The Racket repository
333e0aa070
Allows universe and world programs to specify which port they want to
communicate on. If omitted, universe and world use the default port
number. This enables multiple universe instances to run on the same
machine. For example:
(require 2htdp/universe 2htdp/image)
;; Run two client-server pairs
(define (run)
(launch-many-worlds (server 8080)
(client 8080)
(server 8081)
(client 8081)))
;; Port -> #f
(define (server p)
(define noop (make-bundle #f '() '()))
(universe #f
(port p)
(on-new (λ (_u _iw) noop))
(on-msg (λ (_u _iw _msg) noop))))
;; Port -> #f
(define (client p)
(big-bang #f
(port p)
(on-tick values)
(to-draw (λ (_) (empty-scene 400 400)))
(register LOCALHOST)))
|
||
|---|---|---|
| native-pkgs@8988164a6e | ||
| pkgs | ||
| racket | ||
| .gitattributes | ||
| .gitignore | ||
| .gitmodules | ||
| .mailmap | ||
| .travis.yml | ||
| INSTALL.txt | ||
| Makefile | ||
| README.txt | ||
This is the source code for the main Racket distribution. See "INSTALL.txt" for information on building Racket. License ------- Racket Copyright (c) 2010-2014 PLT Design Inc. Racket is distributed under the GNU Lesser General Public License (LGPL). This means that you can link Racket into proprietary applications, provided you follow the rules stated in the LGPL. You can also modify Racket; if you distribute a modified version, you must distribute it under the terms of the LGPL, which in particular means that you must release the source code for the modified software. See racket/src/COPYING_LESSER.txt for more information.