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

Combinator parser change to add new signature form

Browse Source 
htdp/testing change so that generate-report does something 

svn: r9382
This commit is contained in:
Kathy Gray 2008-04-21 13:31:50 +00:00
parent 8a1e72223f
commit ed478254e2
4 changed files with 16 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/combinator-parser/combinator-unit.ss
View File

@ -6,6 +6,6 @@
(provide combinator-parser-tools@ (provide combinator-parser-tools@
combinator-parser^ err^ combinator-parser^ err^
error-format-parameters^ language-format-parameters^ language-dictionary^ error-format-parameters^ language-format-parameters^ language-dictionary^
terminals) terminals recurs)
) )

10
collects/combinator-parser/private-combinator/parser-sigs.ss
View File

@ -18,6 +18,16 @@
(format "token-~a" (syntax-e e))))) (format "token-~a" (syntax-e e)))))
(syntax->list #'(elt ...)))))])) (syntax->list #'(elt ...)))))]))
(define-signature-form (recurs stx)
(syntax-case stx ()
[(_ id ...)
(andmap identifier? (syntax->list #'(id ...)))
(syntax->list #`(id ...
#,@(map (lambda (e) #`(define-syntaxes
(#,(datum->syntax e (string->symbol (format "~a@" (syntax-e e)))))
(values (syntax-id-rules () [_ #'(eta #,e)]))))
(syntax->list #'(id ...)))))]))
(define-signature language-dictionary^ (misspelled misscap missclass)) (define-signature language-dictionary^ (misspelled misscap missclass))
(define-signature combinator-parser-forms^ (define-signature combinator-parser-forms^

2
collects/htdp/testing.ss
View File

@ -2,7 +2,7 @@
(require test-engine/scheme-tests) (require test-engine/scheme-tests)
(define (generate-report) (void)) (define (generate-report) (test)#;(void))
(provide (all-from-out test-engine/scheme-tests) (provide (all-from-out test-engine/scheme-tests)
generate-report) generate-report)

7
collects/profj/comb-parsers/parser-units.scm
View File

@ -2,11 +2,12 @@
(require parser-tools/lex (require parser-tools/lex
scheme/unit scheme/unit
(lib "combinator-unit.ss" "combinator-parser") combinator-parser/combinator-unit
#;(lib "combinator-unit.ss" "combinator-parser")
"java-signatures.scm" "java-signatures.scm"
mzlib/string) mzlib/string)
(define-signature language-forms^ (program statement expression field interact)) ;value-type method-type)) (define-signature language-forms^ (program statement (recurs expression) field interact)) ;value-type method-type))
(define-signature token-proc^ (old-tokens->new)) (define-signature token-proc^ (old-tokens->new))
@ -329,7 +330,7 @@
(define new-class (define new-class
(choose ((sequence (new name O_PAREN C_PAREN) id) (choose ((sequence (new name O_PAREN C_PAREN) id)
(sequence (new name O_PAREN (comma-sep (eta expression) "arguments") C_PAREN) id)) (sequence (new name O_PAREN (comma-sep expression@ "arguments") C_PAREN) id))
"class instantiation")) "class instantiation"))
(define (new-array type-name) (define (new-array type-name)