Many hyperlinks are disabled.
Use anonymous login
to enable hyperlinks.
Overview
Comment: | added remote-repl |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
0da0d1eefeefd67e11b683567a56c623 |
User & Date: | aldo 2016-09-06 09:08:02 |
Context
2016-09-06
| ||
09:52 | fixed bug in draw-text/centered check-in: d111441eed user: aldo tags: trunk | |
09:08 | added remote-repl check-in: 0da0d1eefe user: aldo tags: trunk | |
09:07 | added support for z-index css check-in: 989c34f966 user: aldo tags: trunk | |
Changes
Added remote-repl.
> > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > > |
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 |
#! /usr/bin/env scheme-script ;; -*- mode: scheme -*- ;; ;; Copyright 2016 Aldo Nicolas Bruno ;; ;; Licensed under the Apache License, Version 2.0 (the "License"); ;; you may not use this file except in compliance with the License. ;; You may obtain a copy of the License at ;; ;; http://www.apache.org/licenses/LICENSE-2.0 ;; ;; Unless required by applicable law or agreed to in writing, software ;; distributed under the License is distributed on an "AS IS" BASIS, ;; WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied. ;; See the License for the specific language governing permissions and ;; limitations under the License. ; example of remote REPL ; you can use any transport, tcp:// ipc:// websocket inproc ; see http://nanomsg.org/v1.0.0/nanomsg.7.html ; and nanomsg.sls for details #!chezscheme (import (chezscheme) (nanomsg)) (nanomsg-library-init) (define argv (command-line-arguments)) (define sock (nn-socket AF_SP NN_REQ)) ;(define eid (nn-connect sock (car argv))) (define eid (nn-connect sock "tcp://localhost:9888")) (call/cc (lambda (return) (let loop () (guard (e (else (printf "error in remote-repl: on ~d: ~d with irritants ~d~n" (if (who-condition? e) (condition-who e) 'unknown) (if (message-condition? e) (condition-message e) "") (if (irritants-condition? e) (condition-irritants e) "")))) (printf "> ") (nn-send sock (string->utf8 (call-with-string-output-port (lambda (p) (let ([token (read)]) (if (eof-object? token) (return #f) (write token p)))))) 0) (let ([buf (box #t)]) (nn-recv sock buf NN_MSG 0) (let ([s (utf8->string (unbox buf))]) (printf "~d" (if (string=? "#<void>\n" s) "" s))))) (loop)))) |