syndicate-lang
/
syndicate-2017
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

Remove obsolete "examples"

This commit is contained in:
Tony Garnock-Jones 2016-06-14 03:52:59 -04:00
parent 4ae9aa0e2b
commit 7cc8f2cbe6
3 changed files with 0 additions and 69 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
racket/doc/chat-client.rkt.txt
View File

@ -1,22 +0,0 @@
#lang syndicate ;; -*- racket -*-
(require (only-in racket/port read-bytes-line-evt))
(require "../drivers/tcp.rkt")
(define local-handle (tcp-handle 'chat))
(define remote-handle (tcp-address "localhost" 5999))
(spawn-tcp-driver)
(actor (define e (read-bytes-line-evt (current-input-port) 'any))
(until (rising-edge quit?)
#:collect [quit? #f]
(assert (advertise (tcp-channel local-handle remote-handle ?)))
(on (retracted (advertise (tcp-channel remote-handle local-handle ?))) #t)
(on (message (at-meta (external-event e (list $value))))
(match value
[(? eof-object?) #t]
[(? bytes?) (send! (tcp-channel local-handle remote-handle value)) #f]))
(on (message (tcp-channel remote-handle local-handle $bs))
(write-bytes bs)
(flush-output)
#f)))

31
racket/doc/chat.rkt.txt
View File

@ -1,31 +0,0 @@
#lang syndicate ;; -*- racket -*-
(require (only-in racket/string string-trim))
(require "../drivers/tcp.rkt")
(require "../demand-matcher.rkt")
(define (spawn-session them us)
(define user (gensym 'user))
(define (send-to-remote fmt . vs)
(send! (at-meta (tcp-channel us them (string->bytes/utf-8 (apply format fmt vs))))))
(define (say who fmt . vs)
(unless (equal? who user) (send-to-remote "~a ~a\n" who (apply format fmt vs))))
(actor (send-to-remote "Welcome, ~a.\n" user)
(until (retracted (advertise (tcp-channel them us ?)) #:meta-level 1)
(assert (advertise (tcp-channel us them ?) #:meta-level 1))
(assert (advertise `(,user says ,?)))
(on (asserted (advertise `(,$who says ,?))) (say who "arrived."))
(on (retracted (advertise `(,$who says ,?))) (say who "departed."))
(on `(,$who says ,$what) (say who "says: ~a" what))
(on (message (at-meta (tcp-channel them us $bs)))
(define input-string (string-trim (bytes->string/utf-8 bs)))
(if (equal? input-string "quit-dataspace")
(assert! 'quit-dataspace)
(send! `(,user says ,input-string)))))
(send-to-remote "Goodbye!\n")))
(spawn-tcp-driver)
(let ((us (tcp-listener 5999)))
(group (until (asserted 'quit-dataspace)
(on (asserted (advertise (tcp-channel $them us ?)) #:meta-level 1)
(spawn-session them us)))))

16
racket/doc/echo.rkt.txt
View File

@ -1,16 +0,0 @@
#lang syndicate ;; -*- racket -*-
(require "../drivers/tcp.rkt")
(require "../demand-matcher.rkt")
(define server-id (tcp-listener 5999))
(spawn-tcp-driver)
(actor (forever
(on (asserted (advertise (tcp-channel $c server-id ?)))
(printf "Accepted connection from ~v\n" c)
(actor (until (retracted (advertise (tcp-channel c server-id ?)))
(advertise (tcp-channel server-id c ?))
(on (tcp-channel c server-id bs)
(send! (tcp-channel server-id c bs))))
(printf "Closed connection ~v\n" c)))))