upgrade to #lang scheme
svn: r15345
This commit is contained in:
Jon Rafkind
parent
3d356123cf
commit
b55944bb93
|
|
@ -1,79 +1,79 @@
|
||||||
(module contexts mzscheme
|
#lang scheme
|
||||||
|
|
||||||
(define-struct block-context (return?))
|
(define-struct block-context (return?))
|
||||||
(define-struct (top-block-context block-context) ())
|
(define-struct (top-block-context block-context) ())
|
||||||
(define-struct (expression-block-context block-context) ())
|
(define-struct (expression-block-context block-context) ())
|
||||||
|
|
||||||
(define-struct definition-context ())
|
(define-struct definition-context ())
|
||||||
(define-struct (function-definition-context definition-context) ())
|
(define-struct (function-definition-context definition-context) ())
|
||||||
(define-struct (value-definition-context definition-context) ())
|
(define-struct (value-definition-context definition-context) ())
|
||||||
(define-struct (constant-definition-context value-definition-context) ())
|
(define-struct (constant-definition-context value-definition-context) ())
|
||||||
(define-struct (variable-definition-context value-definition-context) ())
|
(define-struct (variable-definition-context value-definition-context) ())
|
||||||
|
|
||||||
(define-struct expression-context ())
|
(define-struct expression-context ())
|
||||||
(define-struct type-context ())
|
(define-struct type-context ())
|
||||||
(define-struct type-or-expression-context ())
|
(define-struct type-or-expression-context ())
|
||||||
(define-struct prototype-context ())
|
(define-struct prototype-context ())
|
||||||
|
|
||||||
(define the-block-context (make-block-context #f))
|
(define the-block-context (make-block-context #f))
|
||||||
(define the-top-block-context (make-top-block-context #f))
|
(define the-top-block-context (make-top-block-context #f))
|
||||||
(define the-expression-block-context (make-expression-block-context #f))
|
(define the-expression-block-context (make-expression-block-context #f))
|
||||||
(define the-return-block-context (make-block-context #t))
|
(define the-return-block-context (make-block-context #t))
|
||||||
(define the-expression-return-block-context (make-expression-block-context #t))
|
(define the-expression-return-block-context (make-expression-block-context #t))
|
||||||
|
|
||||||
(define the-variable-definition-context (make-variable-definition-context))
|
(define the-variable-definition-context (make-variable-definition-context))
|
||||||
(define the-constant-definition-context (make-constant-definition-context))
|
(define the-constant-definition-context (make-constant-definition-context))
|
||||||
(define the-function-definition-context (make-function-definition-context))
|
(define the-function-definition-context (make-function-definition-context))
|
||||||
|
|
||||||
(define the-expression-context (make-expression-context))
|
(define the-expression-context (make-expression-context))
|
||||||
(define the-type-context (make-type-context))
|
(define the-type-context (make-type-context))
|
||||||
(define the-type-or-expression-context (make-type-or-expression-context))
|
(define the-type-or-expression-context (make-type-or-expression-context))
|
||||||
(define the-prototype-context (make-prototype-context))
|
(define the-prototype-context (make-prototype-context))
|
||||||
|
|
||||||
(define (context->name ctx)
|
(define (context->name ctx)
|
||||||
(cond
|
(cond
|
||||||
[(type-context? ctx) "a type"]
|
[(type-context? ctx) "a type"]
|
||||||
[(type-or-expression-context? ctx) "a type or expression"]
|
[(type-or-expression-context? ctx) "a type or expression"]
|
||||||
[(expression-context? ctx) "an expression"]
|
[(expression-context? ctx) "an expression"]
|
||||||
[(expression-block-context? ctx) "a statement"]
|
[(expression-block-context? ctx) "a statement"]
|
||||||
[(block-context? ctx) "a block"]
|
[(block-context? ctx) "a block"]
|
||||||
[(variable-definition-context? ctx) "a variable-definition"]
|
[(variable-definition-context? ctx) "a variable-definition"]
|
||||||
[(constant-definition-context? ctx) "a constant-definition"]
|
[(constant-definition-context? ctx) "a constant-definition"]
|
||||||
[(function-definition-context? ctx) "a function-definition"]
|
[(function-definition-context? ctx) "a function-definition"]
|
||||||
[(prototype-context? ctx) "a function-definition"]
|
[(prototype-context? ctx) "a function-definition"]
|
||||||
[else "an expression"]))
|
[else "an expression"]))
|
||||||
|
|
||||||
(provide block-context?
|
(provide block-context?
|
||||||
expression-block-context?
|
expression-block-context?
|
||||||
top-block-context?
|
top-block-context?
|
||||||
|
|
||||||
definition-context?
|
definition-context?
|
||||||
function-definition-context?
|
function-definition-context?
|
||||||
value-definition-context?
|
value-definition-context?
|
||||||
variable-definition-context?
|
variable-definition-context?
|
||||||
constant-definition-context?
|
constant-definition-context?
|
||||||
|
|
||||||
expression-context?
|
expression-context?
|
||||||
type-context?
|
type-context?
|
||||||
type-or-expression-context?
|
type-or-expression-context?
|
||||||
prototype-context?
|
prototype-context?
|
||||||
|
|
||||||
block-context-return?
|
block-context-return?
|
||||||
|
|
||||||
the-block-context
|
the-block-context
|
||||||
the-top-block-context
|
the-top-block-context
|
||||||
the-return-block-context
|
the-return-block-context
|
||||||
the-expression-block-context
|
the-expression-block-context
|
||||||
the-expression-return-block-context
|
the-expression-return-block-context
|
||||||
|
|
||||||
make-function-definition-context
|
make-function-definition-context
|
||||||
the-variable-definition-context
|
the-variable-definition-context
|
||||||
the-constant-definition-context
|
the-constant-definition-context
|
||||||
the-function-definition-context
|
the-function-definition-context
|
||||||
|
|
||||||
the-expression-context
|
the-expression-context
|
||||||
the-type-context
|
the-type-context
|
||||||
the-type-or-expression-context
|
the-type-or-expression-context
|
||||||
the-prototype-context
|
the-prototype-context
|
||||||
|
|
||||||
context->name))
|
context->name)
|
||||||
|
|
|
||||||
|
|
@ -1,91 +1,91 @@
|
||||||
|
#lang scheme
|
||||||
|
|
||||||
(module ops mzscheme
|
|
||||||
(provide unary-prefix-ops
|
(provide unary-prefix-ops
|
||||||
unary-postfix-ops
|
unary-postfix-ops
|
||||||
(struct op (id))
|
(struct-out op)
|
||||||
(struct prefix ())
|
(struct-out prefix)
|
||||||
(struct cast-prefix (type))
|
(struct-out cast-prefix)
|
||||||
(struct infix ())
|
(struct-out infix)
|
||||||
(struct postfix ())
|
(struct-out postfix)
|
||||||
prec-key
|
prec-key
|
||||||
precedence-table
|
precedence-table
|
||||||
op-table)
|
op-table)
|
||||||
|
|
||||||
(define unary-prefix-ops '(++
|
(define unary-prefix-ops '(++
|
||||||
--
|
--
|
||||||
+
|
+
|
||||||
-
|
-
|
||||||
!
|
!
|
||||||
~))
|
~))
|
||||||
|
|
||||||
(define unary-postfix-ops '(++
|
(define unary-postfix-ops '(++
|
||||||
--))
|
--))
|
||||||
|
|
||||||
(define-struct op (id))
|
(define-struct op (id))
|
||||||
(define-struct (prefix op) ())
|
(define-struct (prefix op) ())
|
||||||
(define-struct (cast-prefix prefix) (type))
|
(define-struct (cast-prefix prefix) (type))
|
||||||
(define-struct (infix op) ())
|
(define-struct (infix op) ())
|
||||||
(define-struct (postfix op) ())
|
(define-struct (postfix op) ())
|
||||||
|
|
||||||
(define (prec-key op)
|
(define (prec-key op)
|
||||||
(and op
|
(and op
|
||||||
(cons (cond
|
(cons (cond
|
||||||
[(prefix? op) 'pre]
|
[(prefix? op) 'pre]
|
||||||
[(infix? op) 'in]
|
[(infix? op) 'in]
|
||||||
[(postfix? op) 'post])
|
[(postfix? op) 'post])
|
||||||
(syntax-e (op-id op)))))
|
(syntax-e (op-id op)))))
|
||||||
|
|
||||||
(define precedence-table (make-immutable-hash-table
|
(define precedence-table (make-immutable-hash
|
||||||
'(((in . |.|) . 100)
|
'(((in . |.|) . 100)
|
||||||
((in . #%parens) . 100)
|
((in . #%parens) . 100)
|
||||||
((in . #%brackets) . 100)
|
((in . #%brackets) . 100)
|
||||||
((in . #%angles) . 100)
|
((in . #%angles) . 100)
|
||||||
((post . ++) . 100)
|
((post . ++) . 100)
|
||||||
((post . --) . 100)
|
((post . --) . 100)
|
||||||
((pre . ++) . 95)
|
((pre . ++) . 95)
|
||||||
((pre . --) . 95)
|
((pre . --) . 95)
|
||||||
((pre . +) . 95)
|
((pre . +) . 95)
|
||||||
((pre . -) . 95)
|
((pre . -) . 95)
|
||||||
((pre . ~) . 95)
|
((pre . ~) . 95)
|
||||||
((pre . !) . 95)
|
((pre . !) . 95)
|
||||||
((pre . #%parens) . 95)
|
((pre . #%parens) . 95)
|
||||||
((in . *) . 90)
|
((in . *) . 90)
|
||||||
((in . %) . 90)
|
((in . %) . 90)
|
||||||
((in . /) . 90)
|
((in . /) . 90)
|
||||||
((in . +) . 85)
|
((in . +) . 85)
|
||||||
((in . -) . 85)
|
((in . -) . 85)
|
||||||
((in . >>) . 80)
|
((in . >>) . 80)
|
||||||
((in . <<) . 80)
|
((in . <<) . 80)
|
||||||
((in . >>>) . 80)
|
((in . >>>) . 80)
|
||||||
((in . <) . 70)
|
((in . <) . 70)
|
||||||
((in . >) . 70)
|
((in . >) . 70)
|
||||||
((in . <=) . 70)
|
((in . <=) . 70)
|
||||||
((in . >=) . 70)
|
((in . >=) . 70)
|
||||||
((in . ==) . 60)
|
((in . ==) . 60)
|
||||||
((in . !=) . 60)
|
((in . !=) . 60)
|
||||||
((in . &) . 55)
|
((in . &) . 55)
|
||||||
((in . ^) . 50)
|
((in . ^) . 50)
|
||||||
((in . \|) . 45)
|
((in . \|) . 45)
|
||||||
((in . &&) . 40)
|
((in . &&) . 40)
|
||||||
((in . \|\|) . 35)
|
((in . \|\|) . 35)
|
||||||
((in . =) . 10)
|
((in . =) . 10)
|
||||||
((in . +=) . 10)
|
((in . +=) . 10)
|
||||||
((in . -=) . 10)
|
((in . -=) . 10)
|
||||||
((in . *=) . 10)
|
((in . *=) . 10)
|
||||||
((in . /=) . 10)
|
((in . /=) . 10)
|
||||||
((in . %=) . 10)
|
((in . %=) . 10)
|
||||||
((in . &=) . 10)
|
((in . &=) . 10)
|
||||||
((in . ^=) . 10)
|
((in . ^=) . 10)
|
||||||
((in . \|=) . 10)
|
((in . \|=) . 10)
|
||||||
((in . <<=) . 10)
|
((in . <<=) . 10)
|
||||||
((in . >>=) . 10)
|
((in . >>=) . 10)
|
||||||
((in . >>>=) . 10)
|
((in . >>>=) . 10)
|
||||||
((in . \,) . 6)
|
((in . \,) . 6)
|
||||||
((in . :) . 5)
|
((in . :) . 5)
|
||||||
((in . ?) . 4))
|
((in . ?) . 4))))
|
||||||
'equal))
|
|
||||||
|
|
||||||
(define op-table (make-hash-table))
|
|
||||||
(hash-table-for-each precedence-table (lambda (k v)
|
(define op-table (make-hash))
|
||||||
(hash-table-put! op-table (cdr k) #t))))
|
(hash-for-each precedence-table (lambda (k v)
|
||||||
|
(hash-set! op-table (cdr k) #t)))
|
||||||
|
|
||||||
|
|
|
||||||
Loading…
Reference in New Issue
Block a user