buildable not testable

6 years ago · ebc8ddb911
parent 8c15baf262
commit ebc8ddb911
45 changed files with 116 additions and 47 deletions
--- a/pitfall/pitfall/afm-font.rkt
+++ b/pitfall/pitfall/afm-font.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang at-exp racket/base
+(require "racket.rkt")
+
 (provide AFMFont AFMFont-open)

 (define AFMFont
--- a/pitfall/pitfall/annotations.rkt
+++ b/pitfall/pitfall/annotations.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (provide annotation-mixin)

 (define (annotation-mixin [% mixin-tester%])
--- a/pitfall/pitfall/binprint.rkt
+++ b/pitfall/pitfall/binprint.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require sugar/list)
 (provide binprint)

--- a/pitfall/pitfall/color.rkt
+++ b/pitfall/pitfall/color.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (provide color-mixin)

 (define (color-mixin [% mixin-tester%])
--- a/pitfall/pitfall/document.rkt
+++ b/pitfall/pitfall/document.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang at-exp racket/base
+(require "racket.rkt")
+
 (require "reference.rkt" "object.rkt" "page.rkt")
 (require "vector.rkt" "color.rkt" "fonts.rkt" "text.rkt" "images.rkt" "annotations.rkt")
 (provide PDFDocument)
--- a/pitfall/pitfall/embedded.rkt
+++ b/pitfall/pitfall/embedded.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "font.rkt" fontland "reference.rkt")
 (provide EmbeddedFont)

--- a/pitfall/pitfall/font-open.rkt
+++ b/pitfall/pitfall/font-open.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "standard-font.rkt" "font.rkt" fontland "embedded.rkt")
 (provide PDFFont-open)

--- a/pitfall/pitfall/font.rkt
+++ b/pitfall/pitfall/font.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "reference.rkt")
 (provide PDFFont)

--- a/pitfall/pitfall/fonts.rkt
+++ b/pitfall/pitfall/fonts.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "font.rkt" "font-open.rkt")
 (provide fonts-mixin)

--- a/pitfall/pitfall/image.rkt
+++ b/pitfall/pitfall/image.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "jpeg.rkt" "png.rkt")
 (provide PDFImage-open)

--- a/pitfall/pitfall/images.rkt
+++ b/pitfall/pitfall/images.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "image.rkt")
 (provide image-mixin)

--- a/pitfall/pitfall/jpeg.rkt
+++ b/pitfall/pitfall/jpeg.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (provide JPEG)

 (define MARKERS '(#xffc0 #xffc1 #xffc2 #xffc3 #xffc5 #xffc6 #xffc7
--- a/pitfall/pitfall/main.rkt
+++ b/pitfall/pitfall/main.rkt
@ -1,3 +1,5 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "document.rkt")
 (provide (all-from-out "document.rkt"))
--- a/pitfall/pitfall/object.rkt
+++ b/pitfall/pitfall/object.rkt
@ -1,5 +1,7 @@
-#lang pitfall/racket
-(require srfi/19)
+#lang racket/base
+(require "racket.rkt")
+
+(require (only-in srfi/19 date->string))
 (provide PDFObject convert)

 (define PDFObject
--- a/pitfall/pitfall/page.rkt
+++ b/pitfall/pitfall/page.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (provide PDFPage)

 (define PDFPage
--- a/pitfall/pitfall/path.rkt
+++ b/pitfall/pitfall/path.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require brag/support sugar/list)
 (provide parse-svg-path)

--- a/pitfall/pitfall/pdftest.rkt
+++ b/pitfall/pitfall/pdftest.rkt
@ -1,5 +1,7 @@
-#lang pitfall/racket
-(provide (all-from-out pitfall/racket))
+#lang racket/base
+(require "racket.rkt")
+
+(provide (all-from-out "racket.rkt"))
 (provide check-copy-equal? check-pdfkit? make-doc)

 (test-mode #t)
--- a/pitfall/pitfall/png-reader.rkt
+++ b/pitfall/pitfall/png-reader.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "zlib.rkt")
 (provide read-png decodePixels)

--- a/pitfall/pitfall/png.rkt
+++ b/pitfall/pitfall/png.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "png-reader.rkt" "zlib.rkt")
 (provide PNG)

--- a/pitfall/pitfall/reference.rkt
+++ b/pitfall/pitfall/reference.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "object.rkt" "zlib.rkt")
 (provide PDFReference)

--- a/pitfall/pitfall/standard-font.rkt
+++ b/pitfall/pitfall/standard-font.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "afm-font.rkt" "font.rkt" fontland)
 (require racket/runtime-path)
 (provide isStandardFont standard-fonts StandardFont)
--- a/pitfall/pitfall/text.rkt
+++ b/pitfall/pitfall/text.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require sugar/list racket/promise)
 (provide text-mixin)

--- a/pitfall/pitfall/vector.rkt
+++ b/pitfall/pitfall/vector.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (require "path.rkt")
 (provide vector-mixin default-ctm-value)

--- a/pitfall/pitfall/zlib.rkt
+++ b/pitfall/pitfall/zlib.rkt
@ -1,4 +1,6 @@
-#lang pitfall/racket
+#lang racket/base
+(require "racket.rkt")
+
 (provide deflate inflate)

 ;; see https://groups.google.com/d/topic/racket-users/3CvjHLAmwSQ/discussion
--- a/pitfall/ptest/test0.rkt
+++ b/pitfall/ptest/test0.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path this "test0rkt.pdf")
 (make-doc this #f)
--- a/pitfall/ptest/test09.rkt
+++ b/pitfall/ptest/test09.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  (send* doc
--- a/pitfall/ptest/test1.rkt
+++ b/pitfall/ptest/test1.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  ;; Draw a triangle and a circle
--- a/pitfall/ptest/test10.rkt
+++ b/pitfall/ptest/test10.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path tiger "assets/tiger.json")

--- a/pitfall/ptest/test11.rkt
+++ b/pitfall/ptest/test11.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  (send* doc
--- a/pitfall/ptest/test12.rkt
+++ b/pitfall/ptest/test12.rkt
@ -1,4 +1,5 @@
- #lang pitfall/pdftest
+ #lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path charter-path "assets/charter.ttf")

--- a/pitfall/ptest/test13.rkt
+++ b/pitfall/ptest/test13.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path charter-path "assets/charter.ttf")

--- a/pitfall/ptest/test14.rkt
+++ b/pitfall/ptest/test14.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; subset font with GPOS table
 (define-runtime-path ttf-path "assets/fira.ttf")
--- a/pitfall/ptest/test15.rkt
+++ b/pitfall/ptest/test15.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; test kerning from GPOS

--- a/pitfall/ptest/test16.rkt
+++ b/pitfall/ptest/test16.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; test ligatures (GSUB parsing + substitution)

--- a/pitfall/ptest/test17.rkt
+++ b/pitfall/ptest/test17.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; test ligatures (multiple ligs in a line)

--- a/pitfall/ptest/test18.rkt
+++ b/pitfall/ptest/test18.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; multiple lines

--- a/pitfall/ptest/test19.rkt
+++ b/pitfall/ptest/test19.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; subset font with GPOS table
 (define-runtime-path ttf-path "assets/fira.ttf")
--- a/pitfall/ptest/test2.rkt
+++ b/pitfall/ptest/test2.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)

--- a/pitfall/ptest/test20.rkt
+++ b/pitfall/ptest/test20.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 ;; subset OTF font
 (define-runtime-path otf-path "assets/charter.otf")
--- a/pitfall/ptest/test3.rkt
+++ b/pitfall/ptest/test3.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  (send doc text "Hello world"))
--- a/pitfall/ptest/test4.rkt
+++ b/pitfall/ptest/test4.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  (send* doc
--- a/pitfall/ptest/test5.rkt
+++ b/pitfall/ptest/test5.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path death "assets/death.png")

--- a/pitfall/ptest/test6.rkt
+++ b/pitfall/ptest/test6.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define (proc doc)
  (send* doc
--- a/pitfall/ptest/test7.rkt
+++ b/pitfall/ptest/test7.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path test-jpeg "assets/test.jpeg")

--- a/pitfall/ptest/test8.rkt
+++ b/pitfall/ptest/test8.rkt
@ -1,4 +1,5 @@
-#lang pitfall/pdftest
+#lang racket/base
+(require pitfall/pdftest)

 (define-runtime-path pic "assets/test.png")