suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

continuing to optimize whitespace

Browse Source
This commit is contained in:
Danny Yoo 2011-09-06 16:11:54 -04:00
parent 6774f2ae2b
commit a3b0a1755a
1 changed files with 14 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
js-assembler/assemble-helpers.rkt
View File

@ -74,13 +74,13 @@
(cond (cond
[(PrimitivesReference? target) [(PrimitivesReference? target)
(lambda: ([rhs : String]) (lambda: ([rhs : String])
(format "RUNTIME.Primitives[~s] = RUNTIME.Primitives[~s] || ~a;" (format "RUNTIME.Primitives[~s]=RUNTIME.Primitives[~s]||~a;"
(symbol->string (PrimitivesReference-name target)) (symbol->string (PrimitivesReference-name target))
(symbol->string (PrimitivesReference-name target)) (symbol->string (PrimitivesReference-name target))
rhs))] rhs))]
[else [else
(lambda: ([rhs : String]) (lambda: ([rhs : String])
(format "~a = ~a;" (format "~a=~a;"
(cond (cond
[(eq? target 'proc) [(eq? target 'proc)
"MACHINE.proc"] "MACHINE.proc"]
@ -113,7 +113,7 @@
(cond [(symbol? val) (cond [(symbol? val)
(format "RUNTIME.makeSymbol(~s)" (symbol->string val))] (format "RUNTIME.makeSymbol(~s)" (symbol->string val))]
[(pair? val) [(pair? val)
(format "RUNTIME.makePair(~a, ~a)" (format "RUNTIME.makePair(~a,~a)"
(loop (car val)) (loop (car val))
(loop (cdr val)))] (loop (cdr val)))]
[(boolean? val) [(boolean? val)
@ -154,7 +154,7 @@
[(empty? vals) [(empty? vals)
"RUNTIME.NULL"] "RUNTIME.NULL"]
[else [else
(format "RUNTIME.makePair(~a, ~a)" (first vals) (loop (rest vals)))]))) (format "RUNTIME.makePair(~a,~a)" (first vals) (loop (rest vals)))])))
@ -190,7 +190,7 @@
[else [else
(string-append "RUNTIME.makeRational(" (string-append "RUNTIME.makeRational("
(integer->js (ensure-integer (numerator a-num))) (integer->js (ensure-integer (numerator a-num)))
", " ","
(integer->js (ensure-integer (denominator a-num))) (integer->js (ensure-integer (denominator a-num)))
")")])) ")")]))
@ -225,7 +225,7 @@
[(complex? a-num) [(complex? a-num)
(string-append "RUNTIME.makeComplex(" (string-append "RUNTIME.makeComplex("
(assemble-numeric-constant (real-part a-num)) (assemble-numeric-constant (real-part a-num))
", " ","
(assemble-numeric-constant (imag-part a-num)) (assemble-numeric-constant (imag-part a-num))
")")])) ")")]))
@ -253,20 +253,20 @@
(: assemble-lexical-reference (EnvLexicalReference -> String)) (: assemble-lexical-reference (EnvLexicalReference -> String))
(define (assemble-lexical-reference a-lex-ref) (define (assemble-lexical-reference a-lex-ref)
(if (EnvLexicalReference-unbox? a-lex-ref) (if (EnvLexicalReference-unbox? a-lex-ref)
(format "MACHINE.env[MACHINE.env.length - ~a][0]" (format "MACHINE.env[MACHINE.env.length-~a][0]"
(add1 (EnvLexicalReference-depth a-lex-ref))) (add1 (EnvLexicalReference-depth a-lex-ref)))
(format "MACHINE.env[MACHINE.env.length - ~a]" (format "MACHINE.env[MACHINE.env.length-~a]"
(add1 (EnvLexicalReference-depth a-lex-ref))))) (add1 (EnvLexicalReference-depth a-lex-ref)))))
(: assemble-prefix-reference (EnvPrefixReference -> String)) (: assemble-prefix-reference (EnvPrefixReference -> String))
(define (assemble-prefix-reference a-ref) (define (assemble-prefix-reference a-ref)
(format "MACHINE.env[MACHINE.env.length - ~a][~a]" (format "MACHINE.env[MACHINE.env.length-~a][~a]"
(add1 (EnvPrefixReference-depth a-ref)) (add1 (EnvPrefixReference-depth a-ref))
(EnvPrefixReference-pos a-ref))) (EnvPrefixReference-pos a-ref)))
(: assemble-whole-prefix-reference (EnvWholePrefixReference -> String)) (: assemble-whole-prefix-reference (EnvWholePrefixReference -> String))
(define (assemble-whole-prefix-reference a-prefix-ref) (define (assemble-whole-prefix-reference a-prefix-ref)
(format "MACHINE.env[MACHINE.env.length - ~a]" (format "MACHINE.env[MACHINE.env.length-~a]"
(add1 (EnvWholePrefixReference-depth a-prefix-ref)))) (add1 (EnvWholePrefixReference-depth a-prefix-ref))))
@ -295,7 +295,7 @@
(: assemble-subtractarg (SubtractArg -> String)) (: assemble-subtractarg (SubtractArg -> String))
(define (assemble-subtractarg s) (define (assemble-subtractarg s)
(format "(~a - ~a)" (format "(~a-~a)"
(assemble-oparg (SubtractArg-lhs s)) (assemble-oparg (SubtractArg-lhs s))
(assemble-oparg (SubtractArg-rhs s)))) (assemble-oparg (SubtractArg-rhs s))))
@ -370,7 +370,7 @@
(: assemble-jump (OpArg -> String)) (: assemble-jump (OpArg -> String))
(define (assemble-jump target) (define (assemble-jump target)
(format "return (~a)(MACHINE);" (assemble-oparg target))) (format "return(~a)(MACHINE);" (assemble-oparg target)))
@ -417,7 +417,7 @@
(: assemble-is-module-linked (IsModuleLinked -> String)) (: assemble-is-module-linked (IsModuleLinked -> String))
(define (assemble-is-module-linked entry) (define (assemble-is-module-linked entry)
(format "(MACHINE.modules[~s] !== undefined)" (format "(MACHINE.modules[~s]!==undefined)"
(symbol->string (ModuleLocator-name (IsModuleLinked-name entry))))) (symbol->string (ModuleLocator-name (IsModuleLinked-name entry)))))
@ -425,6 +425,6 @@
(: assemble-variable-reference (VariableReference -> String)) (: assemble-variable-reference (VariableReference -> String))
(define (assemble-variable-reference varref) (define (assemble-variable-reference varref)
(let ([t (VariableReference-toplevel varref)]) (let ([t (VariableReference-toplevel varref)])
(format "(new RUNTIME.VariableReference(MACHINE.env[MACHINE.env.length - ~a], ~a))" (format "(new RUNTIME.VariableReference(MACHINE.env[MACHINE.env.length-~a],~a))"
(add1 (ToplevelRef-depth t)) (add1 (ToplevelRef-depth t))
(ToplevelRef-pos t)))) (ToplevelRef-pos t))))