aerc - mirror of ~rjarry's aerc fork - a pretty good email client

diff options

Diffstat (limited to 'go.sum')

0 files changed, 0 insertions, 0 deletions

ef69c56c ^

0893d65e ^

bc98ddb2 ^

0893d65e ^

e2b367dc ^

da925d06 ^

0893d65e ^

da925d06 ^

ebea4c3f ^

0606f4ac ^

ebea4c3f ^

0606f4ac ^

b1f0fa4d ^

7a84094a ^

0893d65e ^

7a84094a ^

ebea4c3f ^

80df524b ^

ebea4c3f ^

0893d65e ^

6641b247 ^

b1f0fa4d ^

ebea4c3f ^

760f683f ^

ea19d0dc ^

f03c9c05 ^

ebea4c3f ^

da925d06 ^

f03c9c05 ^

da925d06 ^

80df524b ^

10bbca64 ^

da925d06 ^

da925d06 ^

ff16e04f ^

a621ef95 ^

f03c9c05 ^

ebea4c3f ^

7a84094a ^

ebea4c3f ^

80df524b ^

ebea4c3f ^

08f4628e ^

ebea4c3f ^

0893d65e ^

a621ef95 ^

760f683f ^

2d3d88d9 ^

0606f4ac ^

0606f4ac ^

f116818c ^

2d3d88d9 ^

0606f4ac ^

a621ef95 ^

760f683f ^

a621ef95 ^

80df524b ^

a621ef95 ^

ff16e04f ^

da925d06 ^

2d3d88d9 ^

0893d65e ^

2d3d88d9 ^

ef69c56c ^

2d3d88d9 ^

760f683f ^

2d3d88d9 ^

80df524b ^

2d3d88d9 ^

ea19d0dc ^

0893d65e ^

ea19d0dc ^

0893d65e ^

2d3d88d9 ^

7a84094a ^

0230a6cc ^

80df524b ^

0230a6cc ^

0893d65e ^

0230a6cc ^

80df524b ^

0230a6cc ^

0893d65e ^

ef69c56c ^

f116818c ^

0230a6cc ^

7a84094a ^

0893d65e ^

2d3d88d9 ^

7a84094a ^

2d3d88d9 ^

80df524b ^

2d3d88d9 ^

0893d65e ^

2d3d88d9 ^

0893d65e ^

ef69c56c ^

2d3d88d9 ^

2
3

7
8

10
11

12
13

15
16

18
19
20

21
22

41
42

47
48
49

50
51

53
54
55

58
59
60

63
64

66
67

68
69

82
83

86
87

95
96

98
99
100

110
111

112
113

123
124

128
129

140
141

143
144

151
152
153

# Wrappers around file system primitives that take a 'resources' object and
# are thus easier to test.

container resources [
  lock:bool
  data:&:@:resource
]

container resource [
  name:text
  contents:text
]

def start-reading resources:&:resources, filename:text -> contents:&:source:char [
  local-scope
  load-ingredients
  {
    break-unless resources
    # fake file system
    contents <- start-reading-from-fake-resources resources, filename
    return
  }
  # real file system
  file:num <- $open-file-for-reading filename
  assert file, [file not found]
  contents:&:source:char, sink:&:sink:char <- new-channel 30
  start-running receive-from-file file, sink
]

def start-reading-from-fake-resources resources:&:resources, resource:text -> contents:&:source:char [
  local-scope
  load-ingredients
  i:num <- copy 0
  data:&:@:resource <- get *resources, data:offset
  len:num <- length *data
  {
    done?:bool <- greater-or-equal i, len
    break-if done?
    tmp:resource <- index *data, i
    i <- add i, 1
    curr-resource:text <- get tmp, name:offset
    found?:bool <- equal resource, curr-resource
    loop-unless found?
    contents:&:source:char, sink:&:sink:char <- new-channel 30
    curr-contents:text <- get tmp, contents:offset
    start-running receive-from-text curr-contents, sink
    return
  }
  return 0/not-found
]

def receive-from-file file:num, sink:&:sink:char -> sink:&:sink:char [
  local-scope
  load-ingredients
  {
    c:char, eof?:bool <- $read-from-file file
    break-if eof?
    sink <- write sink, c
    loop
  }
  sink <- close sink
  file <- $close-file file
]

def receive-from-text contents:text, sink:&:sink:char -> sink:&:sink:char [
  local-scope
  load-ingredients
  i:num <- copy 0
  len:num <- length *contents
  {
    done?:bool <- greater-or-equal i, len
    break-if done?
    c:char <- index *contents, i
    sink <- write sink, c
    i <- add i, 1
    loop
  }
  sink <- close sink
]

def start-writing resources:&:resources, filename:text -> sink:&:sink:char, routine-id:num [
  local-scope
  load-ingredients
  source:&:source:char, sink:&:sink:char <- new-channel 30
  {
    break-unless resources
    # fake file system
    routine-id <- start-running transmit-to-fake-file resources, filename, source
    return
  }
  # real file system
  file:num <- $open-file-for-writing filename
  assert file, [no such file]
  routine-id <- start-running transmit-to-file file, source
]

def transmit-to-file file:num, source:&:source:char -> source:&:source:char [
  local-scope
  load-ingredients
  {
    c:char, done?:bool, source <- read source
    break-if done?
    $write-to-file file, c
    loop
  }
  file <- $close-file file
]

def transmit-to-fake-file resources:&:resources, filename:text, source:&:source:char -> resources:&:resources, source:&:source:char [
  local-scope
  load-ingredients
  lock:location <- get-location *resources, lock:offset
  wait-for-reset-then-set lock
  # compute new file contents
  buf:&:buffer <- new-buffer 30
  {
    c:char, done?:bool, source <- read source
    break-if done?
    buf <- append buf, c
    loop
  }
  contents:text <- buffer-to-array buf
  new-resource:resource <- merge filename, contents
  # write to resources
  curr-filename:text <- copy 0
  data:&:@:resource <- get *resources, data:offset
  # replace file contents if it already exists
  i:num <- copy 0
  len:num <- length *data
  {
    done?:bool <- greater-or-equal i, len
    break-if done?
    tmp:resource <- index *data, i
    curr-filename <- get tmp, name:offset
    found?:bool <- equal filename, curr-filename
    loop-unless found?
    put-index *data, i, new-resource
    reset lock
    return
  }
  # if file didn't already exist, make room for it
  new-len:num <- add len, 1
  new-data:&:@:resource <- new resource:type, new-len
  put *resources, data:offset, new-data
  # copy over old files
  i:num <- copy 0
  {
    done?:bool <- greater-or-equal i, len
    break-if done?
    tmp:resource <- index *data, i
    put-index *new-data, i, tmp
  }
  # write new file
  put-index *new-data, len, new-resource
  reset lock
]


context:
space:
mode: