From 29fe558a60c44805f925983ad6557825390fe4c9 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Fri, 7 Oct 2016 10:36:04 -0700 Subject: 3461 --- server-socket.mu | 17 +++++++++-------- 1 file changed, 9 insertions(+), 8 deletions(-) (limited to 'server-socket.mu') diff --git a/server-socket.mu b/server-socket.mu index 8a25da92..989bdb47 100644 --- a/server-socket.mu +++ b/server-socket.mu @@ -8,6 +8,7 @@ def main [ local-scope socket:num <- $socket 8080/port $print [Mu socket creation returned ], socket, 10/newline + return-unless socket session:num <- $accept socket contents:&:source:char, sink:&:sink:char <- new-channel 30 sink <- start-running transmit-from-socket session, sink @@ -30,15 +31,15 @@ SUCCESS! $close-socket socket ] -def write-to-socket session-socket:number, s:address:array:character, source:&:source:char [ +def write-to-socket session-socket:num, s:text, source:&:source:char [ local-scope load-ingredients - len:number <- length *s - i:number <- copy 0 + len:num <- length *s + i:num <- copy 0 { - done?:boolean <- greater-or-equal i, len + done?:bool <- greater-or-equal i, len break-if done? - c:character <- index *s, i + c:char <- index *s, i $print [writing to socket: ], i, [ ], c, 10/newline $write-to-socket session-socket, c i <- add i, 1 @@ -50,11 +51,11 @@ def transmit-from-socket session:num, sink:&:sink:char -> sink:&:sink:char [ local-scope load-ingredients { - req:text, bytes-read:number <- $read-from-socket session, 4096/bytes + req:text, bytes-read:num <- $read-from-socket session, 4096/bytes $print [read ], bytes-read, [ bytes from socket], 10/newline - i:number <- copy 0 + i:num <- copy 0 { - done?:boolean <- greater-or-equal i, bytes-read + done?:bool <- greater-or-equal i, bytes-read break-if done? c:char <- index *req, i end-of-request?:bool <- equal c, 10/newline -- cgit 1.4.1-2-gfad0 ts/sandbox/008-sandbox-test.mu?h=main'>stats
path: root/sandbox/008-sandbox-test.mu
blob: 04a83ac61d7cafd794362a9ecf51afbb1a672533 (plain) (tree) 
fa94f4d9 ^


95425355 ^





1ead3562 ^


95425355 ^



















































50689bff ^

1ead3562 ^


95425355 ^






50689bff ^

95425355 ^












fa94f4d9 ^

67d2a9c0 ^











44bab2e4 ^

67d2a9c0 ^





d31037ff ^

67d2a9c0 ^


fa94f4d9 ^





7bf9212f ^

fa94f4d9 ^


455fbac6 ^

fa94f4d9 ^


7bf9212f ^

fa94f4d9 ^



455fbac6 ^

fa94f4d9 ^






aaf61a53 ^

fa94f4d9 ^






1ead3562 ^

fa94f4d9 ^

be422222 ^

fa94f4d9 ^

455fbac6 ^

fa94f4d9 ^





455fbac6 ^

fa94f4d9 ^









1ead3562 ^

fa94f4d9 ^

1ead3562 ^


fa94f4d9 ^


1ead3562 ^

fa94f4d9 ^

be422222 ^

d31037ff ^

fa94f4d9 ^


d31037ff ^








fa94f4d9 ^

fa94f4d9 ^






d31037ff ^

455fbac6 ^

fa94f4d9 ^

c193f232 ^

fa94f4d9 ^


3f7eed6c ^

fa94f4d9 ^



3f7eed6c ^

fa94f4d9 ^




07a64183 ^


d31037ff ^

07a64183 ^

1
2

3
4
5
6
7

8
9

10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60

61

62
63

64
65
66
67
68
69

70

71
72
73
74
75
76
77
78
79
80
81
82

83

84
85
86
87
88
89
90
91
92
93
94

95

96
97
98
99
100

101

102
103

104
105
106
107
108

109

110
111

112

113
114

115

116
117
118

119

120
121
122
123
124
125

126

127
128
129
130
131
132

133

134

135

136

137

138
139
140
141
142

143

144
145
146
147
148
149
150
151
152

153

154

155
156

157
158

159

160

161

162

163
164

165
166
167
168
169
170
171
172

173

174
175
176
177
178
179

180

181

182

183

184
185

186

187
188
189

190

191
192
193
194

195
196

197

198