finish info.rkt

dev-srcloc
Matthew Butterick 7 years ago
parent 8bb1dc4cc2
commit 5d7242fccb

@ -1,3 +1,14 @@
#lang info #lang info
(define collection "jsonic")
(define version "1.0")
(define scribblings '(("scribblings/jsonic.scrbl"))) (define scribblings '(("scribblings/jsonic.scrbl")))
(define test-omit-paths '("jsonic-test.rkt"))
(define deps '("base"
"beautiful-racket-lib"
"brag"
"draw-lib"
"gui-lib"
"parser-tools-lib"
"rackunit-lib"
"syntax-color-lib"))
(define build-deps '("scribble-lib"))

@ -1,4 +1,4 @@
#lang jsonic-demo-2 #lang jsonic-demo-3
// a line comment // a line comment
[ [
@$ 'null $@, @$ 'null $@,

@ -6,11 +6,11 @@
(define (handle-query key default) (define (handle-query key default)
(case key (case key
[(color-lexer) [(color-lexer)
(dynamic-require 'jsonic-demo-2/colorer 'color-jsonic)] (dynamic-require 'jsonic-demo-3/colorer 'color-jsonic)]
[(drracket:indentation) [(drracket:indentation)
(dynamic-require 'jsonic-demo-2/indenter 'indent-jsonic)] (dynamic-require 'jsonic-demo-3/indenter 'indent-jsonic)]
[(drracket:toolbar-buttons) [(drracket:toolbar-buttons)
(dynamic-require 'jsonic-demo-2/buttons 'button-list)] (dynamic-require 'jsonic-demo-3/buttons 'button-list)]
[else default])) [else default]))
handle-query)) handle-query))

@ -3,7 +3,7 @@
(define (read-syntax path port) (define (read-syntax path port)
(define parse-tree (parse path (tokenize port))) (define parse-tree (parse path (tokenize port)))
(define module-datum `(module jsonic-module jsonic-demo-2/expander (define module-datum `(module jsonic-module jsonic-demo-3/expander
,parse-tree)) ,parse-tree))
(datum->syntax #f module-datum)) (datum->syntax #f module-datum))
(provide (contract-out (provide (contract-out

Loading…
Cancel
Save