Check-in [1cb1fedb47]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:use display-condition instead of our print-condition, improved repl
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:1cb1fedb47a0e1bb969f43ae7a2d597fa4914ef3
User & Date: aldo 2016-09-06 09:06:17
Context
2016-09-06
09:07
added support for z-index css check-in: 989c34f966 user: aldo tags: trunk
09:06
use display-condition instead of our print-condition, improved repl check-in: 1cb1fedb47 user: aldo tags: trunk
2016-09-04
14:45
little fixes check-in: e53e9815ac user: aldo tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to event-loop.ss.

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
	 (mi-el el)
	 (mi-element-w-set! el (mi-window-width))
	 (mi-element-h-set! el (mi-window-height))
	 (mi-element-x-set! el 0)
	 (mi-element-y-set! el 0)
	 (mi-element-position-set! el 'absolute))

       (guard (x [else (printf "ERROR IN RENDER ") (print-condition x) #;(sleep-s 1) #f])
	      (render-stuff))
       
       (let poll-event-loop ()
	 (sdl-let-ref-call 
	  sdl-poll-event ((e sdl-event-t &)) result
	  ;(printf "~d ~d\n" e result)
	  (when (not (zero? result))







|







28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
	 (mi-el el)
	 (mi-element-w-set! el (mi-window-width))
	 (mi-element-h-set! el (mi-window-height))
	 (mi-element-x-set! el 0)
	 (mi-element-y-set! el 0)
	 (mi-element-position-set! el 'absolute))

       (guard (x [else (printf "ERROR IN RENDER ") (display-condition x)(newline) #;(sleep-s 1) #f])
	      (render-stuff))
       
       (let poll-event-loop ()
	 (sdl-let-ref-call 
	  sdl-poll-event ((e sdl-event-t &)) result
	  ;(printf "~d ~d\n" e result)
	  (when (not (zero? result))

Changes to repl.ss.

28
29
30
31
32
33
34
35

36

37
38

39
40
	     (printf "in my-local-repl ~d~n" (utf8->string (unbox buf)))
	     (with-input-from-string (utf8->string (unbox buf))
	       (lambda ()
		 (let ([pr (call-with-string-output-port
			    (lambda (p)
			      (parameterize 
			       ([current-output-port p])
				 (guard (e [else (print-condition e) ])

					(let* ([token (read)]

					       [x (eval token (interaction-environment))])
					  (pretty-print x))))))])

			  (nn-send my-local-repl-sock (string->utf8 pr) 0)))))))))








|
>
|
>
|
|
>
|

28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
	     (printf "in my-local-repl ~d~n" (utf8->string (unbox buf)))
	     (with-input-from-string (utf8->string (unbox buf))
	       (lambda ()
		 (let ([pr (call-with-string-output-port
			    (lambda (p)
			      (parameterize 
			       ([current-output-port p])
				 (guard (e [else (display-condition e)(newline) ])
				   (let loop () 
				       (let ([token (read)])
					 (unless (eof-object? token)
					   (let ([x (eval token (interaction-environment))])
					     (pretty-print x)(newline)
					     (loop)))))))))])
		       (nn-send my-local-repl-sock (string->utf8 pr) 0)))))))))