Move to the 2d collection, and the 2d-lib package.

This commit is contained in:
Vincent St-Amour 2015-09-07 17:28:55 -05:00
parent db9d93c7cc
commit cf245c04d3
12 changed files with 12 additions and 13 deletions

View File

@ -1,5 +1,5 @@
unstable-2d 2d-lib
Copyright (c) 2010-2014 PLT Design Inc. Copyright (c) 2010-2015 PLT Design Inc.
This package is distributed under the GNU Lesser General Public This package is distributed under the GNU Lesser General Public
License (LGPL). This means that you can link this package into proprietary License (LGPL). This means that you can link this package into proprietary

7
2d-lib/info.rkt Normal file
View File

@ -0,0 +1,7 @@
#lang info
(define collection "2d")
(define version "1.0")
(define deps '("base"))
(define pkg-desc "Implementation (no documentation) part of \"2d\"")
(define pkg-authors '(robby))

View File

@ -33,5 +33,5 @@
(define theirs (define theirs
(or (and proc (proc key #f)) (or (and proc (proc key #f))
(dynamic-require 'syntax-color/racket-lexer 'racket-lexer))) (dynamic-require 'syntax-color/racket-lexer 'racket-lexer)))
((dynamic-require 'unstable/2d/lexer '2d-lexer) theirs)] ((dynamic-require '2d/lexer '2d-lexer) theirs)]
[else (if proc (proc key defval) defval)]))))) [else (if proc (proc key defval) defval)])))))

View File

@ -167,7 +167,7 @@ todo:
[c1 (in-string eol-string)]) [c1 (in-string eol-string)])
(define c2 (read-char-or-special peek-port)) (define c2 (read-char-or-special peek-port))
(unless (equal? c1 c2) (unless (equal? c1 c2)
(error 'unstable/2d/lexer.rkt "got an unexpected char.1 ~s vs ~s" c1 c2))) (error '2d/lexer.rkt "got an unexpected char.1 ~s vs ~s" c1 c2)))
(define the-state (make-state line pos (string-length first-tok-string))) (define the-state (make-state line pos (string-length first-tok-string)))
(setup-state the-state) (setup-state the-state)
@ -215,7 +215,7 @@ todo:
(define error-pos (- (srcloc-position (car (exn:fail:read-srclocs failed))) (define error-pos (- (srcloc-position (car (exn:fail:read-srclocs failed)))
base-position)) ;; account for the newline base-position)) ;; account for the newline
(when (< error-pos 0) (when (< error-pos 0)
(error 'unstable/2d/lexer.rkt "got error-pos < 0: ~s ~s" (error '2d/lexer.rkt "got error-pos < 0: ~s ~s"
(srcloc-position (car (exn:fail:read-srclocs failed))) (srcloc-position (car (exn:fail:read-srclocs failed)))
base-position)) base-position))
(define peek-port2 (peeking-input-port port)) (define peek-port2 (peeking-input-port port))

View File

@ -1,8 +0,0 @@
#lang info
(define collection 'multi)
(define deps '("base" "scribble-lib" "syntax-color-lib"))
(define pkg-desc "Experimental 2d syntax")
(define pkg-authors '(robby))