Skip to content
This repository
Browse code

Various changes to Gambit REPL (build using SDK 4.3, higher resolutio…

…n screenshots, avoid errors when remote REPL connection closes, get tar to work with Windows path syntax)
  • Loading branch information...
commit dbda5d784685ddcdf3463ca51454cef2e328d3de 1 parent 15c7390
Marc Feeley authored
BIN  examples/iOS/GambitREPL.xcodeproj.tgz
Binary file not shown
9 examples/iOS/build-gambit-iOS
@@ -8,18 +8,19 @@
8 8
9 9 # Which iOS kind and version are to be used.
10 10 ios_kind="iPhone"
11   -ios_version="5.0"
  11 +#ios_version="5.0"
  12 +ios_version="4.3"
12 13
13 14 # Which ./configure options are to be used.
14 15 #config_options="--enable-single-host --enable-debug"
15   -#config_options="--enable-single-host"
16   -config_options=""
  16 +config_options="--enable-single-host"
  17 +#config_options=""
17 18 prefix_subdir="current"
18 19
19 20 # The following two settings are only relevant when this script is used
20 21 # outside of the Gambit distribution tree. In this case the Gambit
21 22 # distribution must be downloaded.
22   -gambit_dist_if_downloaded="gambc-v4_6_3-devel"
  23 +gambit_dist_if_downloaded="gambc-v4_6_4-devel"
23 24 update_with_latest_changes_if_downloaded="yes"
24 25
25 26 select_macosx()
10 examples/iOS/make-appstore-screenshots
@@ -25,12 +25,22 @@ for f in IMG_[0-9][0-9][0-9][0-9].PNG ; do
25 25 480x320) geom="480x300+0+20"
26 26 ;;
27 27
  28 + 640x960) geom="640x920+0+40"
  29 + ;;
  30 +
  31 + 960x640) geom="960x600+0+40"
  32 + ;;
  33 +
28 34 768x1024) geom="768x1004+0+20"
29 35 ;;
30 36
31 37 1024x768) geom="1024x748+0+20"
32 38 ;;
33 39
  40 + *) echo "unsupported resolution $res"
  41 + exit 1
  42 + ;;
  43 +
34 44 esac
35 45
36 46 convert "$f" -crop "$geom" ../appstore-screenshots/"$f"
17 examples/iOS/repl-server.scm
@@ -2,7 +2,7 @@
2 2
3 3 ;;; File: "repl-server.scm"
4 4
5   -;;; Copyright (c) 2011 by Marc Feeley, All Rights Reserved.
  5 +;;; Copyright (c) 2011-2012 by Marc Feeley, All Rights Reserved.
6 6
7 7 ;;;============================================================================
8 8
@@ -88,8 +88,19 @@
88 88 (loop))))))
89 89
90 90 (let ((tgroup (make-thread-group 'repl-pump #f)))
91   - (thread-start! (make-thread process-input #f tgroup))
92   - (thread-start! (make-thread process-output #f tgroup))))
  91 +
  92 + (define (start thunk)
  93 + (thread-start! (make-thread
  94 + (lambda ()
  95 + (with-exception-catcher
  96 + (lambda (e)
  97 + #f)
  98 + thunk))
  99 + #f
  100 + tgroup)))
  101 +
  102 + (start process-input)
  103 + (start process-output)))
93 104
94 105 (define (make-ide-repl-ports ide-repl-connection tgroup)
95 106 (receive (in-rd-port in-wr-port) (open-string-pipe '(direction: input permanent-close: #f))
48 examples/iOS/tar.scm
@@ -497,9 +497,10 @@
497 497 (seconds (file-last-change-time filename)))
498 498 (tr
499 499 (make-tar-rec
500   - (if (eq? type 'directory)
501   - (path-expand "" filename)
502   - filename)
  500 + (path-to-unix
  501 + (if (eq? type 'directory)
  502 + (path-expand "" filename)
  503 + filename))
503 504 mode ;; mode
504 505 0 ;; uid
505 506 0 ;; gid
@@ -594,18 +595,35 @@
594 595 (create-dir-recursive (path-directory d))
595 596 (create-dir d)))))
596 597
597   -(define (delete-file-recursive filename)
598   - (if (exists? filename)
599   - (let ((type (file-type filename)))
600   - (if (eq? type 'directory)
601   - (let ((files
602   - (directory-files
603   - (list path: filename
604   - ignore-hidden: 'dot-and-dot-dot))))
605   - (parameterize ((current-directory filename))
606   - (for-each delete-file-recursive files))
607   - (delete-directory filename))
608   - (delete-file filename)))))
  598 +(define (delete-file-recursive path)
  599 + (let ((path2 (path-expand path)))
  600 + (if (exists? path2)
  601 + (let ((type (file-type path2)))
  602 + (if (eq? type 'directory)
  603 + (let ((files
  604 + (directory-files
  605 + (list path: path2
  606 + ignore-hidden: 'dot-and-dot-dot))))
  607 + (parameterize ((current-directory path2))
  608 + (for-each delete-file-recursive files))
  609 + (delete-directory path2))
  610 + (delete-file path2))))))
  611 +
  612 +(define (path-to-unix path)
  613 +
  614 + (define (p2u path parts)
  615 + (let* ((f (path-strip-directory path))
  616 + (x (cons f parts))
  617 + (d (path-directory path)))
  618 + (if (string=? d "")
  619 + x
  620 + (let ((y (cons "/" x))
  621 + (p (path-strip-trailing-directory-separator d)))
  622 + (if (string=? p "")
  623 + y
  624 + (p2u p y))))))
  625 +
  626 + (append-strings (p2u (path-strip-volume path) '())))
609 627
610 628 ;;;----------------------------------------------------------------------------
611 629
4 include/stamp.h
@@ -2,5 +2,5 @@
2 2 * Time stamp of last source code repository commit.
3 3 */
4 4
5   -#define ___STAMP_YMD 20120210
6   -#define ___STAMP_HMS 52234
  5 +#define ___STAMP_YMD 20120221
  6 +#define ___STAMP_HMS 145739

0 comments on commit dbda5d7

Please sign in to comment.
Something went wrong with that request. Please try again.