about summary refs log blame commit diff stats
path: root/.gitattributes
blob: 43b82e97691836391da6710e54414934e4a866e1 (plain) (tree) 
f44ccb6c ^



1bfee095 ^

ca9455ba ^

de8ec47d ^


90b37462 ^


de8ec47d ^


1
2
3

4

5

6
7

8
9

10
11



                                  
                                  
                                     

                                                                     

                                                                 

                                 
# hide from GitHub stats
index.html linguist-generated=true
html/** linguist-generated=true
archive/** linguist-generated=true
prototypes/** linguist-generated=true
tools/iso/kernel.soso/** linguist-vendored
# include the bulk of the repo with an approximately-correct language
# just so it seems less like a purely C++ project
# unfortunately Linguist won't accept a spec for my toy languages
*.subx linguist-language=Assembly
*.mu linguist-language=Forth
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-29 18:48:54 +0000
/div>
                      
                               
                                                            
                                                         
                              




                                                
 
                                                                 

                                  
 
# 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 receive-from-socket session, sink
  query:text <- drain contents
  $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
  session <- $close-socket session
  socket <- $close-socket socket
]
generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-08-29 18:48:52 +0000