Permalink
Browse files

Initial target-generator code to pick a JS or PHP backend.

  • Loading branch information...
1 parent d449f22 commit 1dd68d111021188c5c9b0122c99ed8bf34bdd214 @gnuvince gnuvince committed May 18, 2012
Showing with 9,822 additions and 9,008 deletions.
  1. +301 −159 gsc/_back.c
  2. +3 −1 gsc/_back.scm
  3. +1,444 −1,455 gsc/_front.c
  4. +4,889 −4,651 gsc/_gambcgsc.c
  5. +5 −5 gsc/_gsc.c
  6. +98 −9 gsc/_gsc_.c
  7. +355 −326 gsc/_gsclib.c
  8. +1,223 −1,276 gsc/_t-c-1.c
  9. +1,244 −1,007 gsc/_t-univ.c
  10. +65 −119 gsc/_t-univ.scm
  11. +96 −0 gsc/target_js.scm
  12. +99 −0 gsc/target_php.scm
View

Large diffs are not rendered by default.

Oops, something went wrong.
View
@@ -119,7 +119,7 @@
(compiler-internal-error
"make-target, version of target module is not current" name))
- (let ((x (make-vector 14)))
+ (let ((x (make-vector 15)))
(vector-set! x 0 'target)
(vector-set! x 1 name)
x))
@@ -151,6 +151,8 @@
(define (target-switch-testable?-set! x y) (vector-set! x 12 y))
(define (target-file-extension x) (vector-ref x 13))
(define (target-file-extension-set! x y) (vector-set! x 13 y))
+(define (target-generator x) (vector-ref x 14))
+(define (target-generator-set! x y) (vector-set! x 14 y))
;;;; Frame constraints structure
Oops, something went wrong.

0 comments on commit 1dd68d1

Please sign in to comment.