command_parser: fixed chunk() - ranger - mirror of ranger

diff options

author	hut <hut@lavabit.com>	2010-03-12 17:59:45 +0100
committer	hut <hut@lavabit.com>	2010-03-12 17:59:45 +0100
commit	5ebb8ef628563f33abf6b72b47afe19b8efc0694 (patch)
tree	f648a63c16e925beefaad39560bf6cd92087890f /test
parent	e5b45c45611a41923eedcde85e546abb84d2b6ab (diff)
download	ranger-5ebb8ef628563f33abf6b72b47afe19b8efc0694.tar.gz

command_parser: fixed chunk()

Diffstat (limited to 'test')

0 files changed, 0 insertions, 0 deletions

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd"> <html> <head> <meta http-equiv="content-type" content="text/html; charset=UTF-8"> <title>Mu - http-server.mu</title> <meta name="Generator" content="Vim/7.4"> <meta name="plugin-version" content="vim7.4_v2"> <meta name="syntax" content="none"> <meta name="settings" content="use_css,pre_wrap,no_foldcolumn,expand_tabs,prevent_copy="> <meta name="colorscheme" content="minimal"> <style type="text/css">  </style> <script type='text/javascript'>  </script> </head> <body> <pre id='vimCodeElement'> # example program: a single-request HTTP server # listen for connections from clients on a server socket # when a connection occurs, transfer it to a session socket # read from it using channels # write to it directly # # After running it, navigate to localhost:8080. Your browser should display # "SUCCESS!" and the server will terminate after one connection. def main [ local-scope socket:num <- $open-server-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 buf:&:buffer <- new-buffer 30 { c:char, done?:bool, contents <- read contents break-if done? buf <- append buf, c loop } socket-text:text <- buffer-to-array buf $print [Done reading from socket.], 10/newline write-to-socket session, [HTTP/1.0 200 OK Content-type: text/plain SUCCESS! ] $print 10/newline, [Wrote to and closing socket...], 10/newline $close-socket session $close-socket socket ] def write-to-socket session-socket:num, s:text [ local-scope load-ingredients len:num <- length *s i:num <- copy 0 { done?:bool <- greater-or-equal i, len break-if done? c:char <- index *s, i $print [writing to socket: ], i, [ ], c, 10/newline $write-to-socket session-socket, c i <- add i, 1 loop } ] def transmit-from-socket session:num, sink:&:sink:char -> sink:&:sink:char [ local-scope load-ingredients { req:text, bytes-read:num <- $read-from-socket session, 4096/bytes $print [read ], bytes-read, [ bytes from socket], 10/newline i:num <- copy 0 { done?:bool <- greater-or-equal i, bytes-read break-if done? c:char <- index *req, i end-of-request?:bool <- equal c, 10/newline break-if end-of-request? # To be safe, for now. sink <- write sink, c i <- add i, 1 loop } } sink <- close sink ] </pre> </body> </html>


context:
space:
mode: