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

Moved files into private/ (part 2: update files)

Browse Source
This commit is contained in:
Georges Dupéron 2017-02-03 12:46:27 +01:00
parent 6e4d3378ad
commit 3b99a0ce02
18 changed files with 44 additions and 44 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
main.rkt
View File

@ -1,9 +1,9 @@
#lang racket/base
(require subtemplate/ddd-forms
(require subtemplate/private/ddd-forms
stxparse-info/case
stxparse-info/parse
subtemplate/unsyntax-preparse
subtemplate/top-subscripts
subtemplate/private/unsyntax-preparse
subtemplate/private/top-subscripts
(only-in racket/base [... …])
(only-in stxparse-info/parse [...+ …+]))
(provide
@ -13,7 +13,7 @@
(all-from-out stxparse-info/case)
;; stxparse-info/parse
(all-from-out stxparse-info/parse)
;; subtemplate/unsyntax-preparse
;; subtemplate/private/unsyntax-preparse
(rename-out
[template-ddd template]
[subtemplate-ddd subtemplate]
@ -21,9 +21,9 @@
[quasisubtemplate-ddd quasisubtemplate]
[subtemplate-ddd syntax]
[quasisubtemplate-ddd quasisyntax])
;; subtemplate/top-subscripts
;; subtemplate/private/top-subscripts
;; => #%top
(all-from-out subtemplate/top-subscripts)
(all-from-out subtemplate/private/top-subscripts)
;; aliases
…
…+)

2
private/ddd-forms.rkt
View File

@ -17,7 +17,7 @@
splicing-list-l)
(require racket/list
subtemplate/ddd
subtemplate/private/ddd
stxparse-info/case
stxparse-info/parse
phc-toolkit/untyped

2
private/ddd.rkt
View File

@ -5,7 +5,7 @@
(require stxparse-info/current-pvars
phc-toolkit/untyped
subtemplate/copy-attribute
subtemplate/private/copy-attribute
(prefix-in - syntax/parse/private/residual)
(for-syntax racket/contract
racket/syntax

4
private/override.rkt
View File

@ -1,6 +1,6 @@
#lang racket
(require racket/require
(rename-in subtemplate/template-subscripts
(rename-in subtemplate/private/template-subscripts
[subtemplate syntax]
[quasisubtemplate quasisyntax])
stxparse-info/parse
@ -11,7 +11,7 @@
quasitemplate/loc)
stxparse-info/case
(subtract-in racket/syntax stxparse-info/case))
(provide (all-from-out subtemplate/template-subscripts
(provide (all-from-out subtemplate/private/template-subscripts
stxparse-info/parse
stxparse-info/parse/experimental/template
stxparse-info/case

4
private/unsyntax-preparse.rkt
View File

@ -8,8 +8,8 @@
(require (rename-in stxparse-info/parse/experimental/template
[?? stxparse:??]
[?@ stxparse:?@])
subtemplate/ddd-forms
subtemplate/template-subscripts
subtemplate/private/ddd-forms
subtemplate/private/template-subscripts
(only-in racket/base [... …])
stxparse-info/parse
stxparse-info/case

12
scribblings/subtemplate.scrbl
View File

@ -1,13 +1,13 @@
#lang scribble/manual
@require[scriblib/footnote
@for-label[subtemplate/template-subscripts
@for-label[subtemplate/private/template-subscripts
syntax/parse/experimental/template
racket/base]]
@title{Subtemplate}
@author[@author+email["Georges Dupéron" "georges.duperon@gmail.com"]]
@defmodule[subtemplate/template-subscripts]
@defmodule[subtemplate/private/template-subscripts]
@defform*[{(subtemplate template)
(subtemplate template #:properties (prop ...))}
@ -39,17 +39,17 @@
@section{Overriding the default @racket[#'…] and @racket[#`…]}
@defmodule[subtemplate/override]
@defmodule[subtemplate/private/override]
The @racketmodname[subtemplate/override] module re-provides
The @racketmodname[subtemplate/private/override] module re-provides
@racket[subtemplate] as @racket[syntax], and @racket[quasisubtemplate] as
@racket[quasisyntax]. This allows @racketmodname[subtemplate] to be used via
the reader shorthands @racket[#'…] and @racket[#`…].
The @racketmodname[subtemplate/override] module also re-provides
The @racketmodname[subtemplate/private/override] module also re-provides
@racketmodname[stxparse-info/parse] and @racketmodname[stxparse-info/case].
The @racketmodname[subtemplate/override] module also re-provides
The @racketmodname[subtemplate/private/override] module also re-provides
@racketmodname[stxparse-info/parse/experimental/template], but without
@racket[template] and @racket[quasitemplate], which are remapped to their
@racket[sub] equivalents, and without @racket[template/loc] and

2
test/test-copy-attribute.rkt
View File

@ -1,6 +1,6 @@
#lang racket
(require subtemplate/copy-attribute
(require subtemplate/private/copy-attribute
stxparse-info/parse
stxparse-info/parse/experimental/template
phc-toolkit/untyped

2
test/test-ddd-forms.rkt
View File

@ -1,6 +1,6 @@
#lang racket
(require subtemplate/ddd-forms
(require subtemplate/private/ddd-forms
stxparse-info/case
stxparse-info/parse
rackunit

6
test/test-ddd-top.rkt
View File

@ -1,8 +1,8 @@
#lang racket
(require subtemplate/top-subscripts
subtemplate/ddd-forms
(except-in subtemplate/override ?? ?@)
(require subtemplate/private/top-subscripts
subtemplate/private/ddd-forms
(except-in subtemplate/private/override ?? ?@)
stxparse-info/case
stxparse-info/parse
rackunit

2
test/test-ddd.rkt
View File

@ -1,5 +1,5 @@
#lang racket
(require subtemplate/ddd
(require subtemplate/private/ddd
stxparse-info/case
stxparse-info/parse
(only-in racket/base [... …])

2
test/test-optional.rkt
View File

@ -1,5 +1,5 @@
#lang racket
(require subtemplate/ddd-forms
(require subtemplate/private/ddd-forms
stxparse-info/case
stxparse-info/parse
rackunit

4
test/test-or-syntax.rkt
View File

@ -1,7 +1,7 @@
#lang racket
(require subtemplate/ddd
subtemplate/unsyntax-preparse
(require subtemplate/private/ddd
subtemplate/private/unsyntax-preparse
stxparse-info/case
stxparse-info/parse
rackunit

6
test/test-or.rkt
View File

@ -1,8 +1,8 @@
#lang racket
(require subtemplate/ddd
subtemplate/ddd-forms
subtemplate/unsyntax-preparse
(require subtemplate/private/ddd
subtemplate/private/ddd-forms
subtemplate/private/unsyntax-preparse
stxparse-info/case
stxparse-info/parse
rackunit

2
test/test-splice-append.rkt
View File

@ -1,5 +1,5 @@
#lang racket/base
(require (only-in subtemplate/ddd-forms
(require (only-in subtemplate/private/ddd-forms
splicing-list
splice-append
splice-append*)

2
test/test-splice.rkt
View File

@ -1,6 +1,6 @@
#lang racket
(require subtemplate/ddd-forms
(require subtemplate/private/ddd-forms
rackunit)
(check-equal? (let ([l '(4 5 6)])

12
test/test-subtemplate-detect-stxinfo.rkt
View File

@ -1,6 +1,6 @@
#lang racket
(module m-ok racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
stxparse-info/parse
stxparse-info/case
rackunit
@ -11,7 +11,7 @@
(subtemplate ok)))))
(module m-no-parse racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
stxparse-info/case
rackunit
syntax/macro-testing)
@ -21,7 +21,7 @@
(subtemplate ok)))))
(module m-wrong-parse racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
syntax/parse
stxparse-info/case
rackunit
@ -33,7 +33,7 @@
(subtemplate ok)))))
(module m-wrong-case racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
stxparse-info/parse
rackunit
syntax/macro-testing)
@ -43,7 +43,7 @@
(subtemplate ok)))))
(module m-no-parse-wrong-case racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
rackunit
syntax/macro-testing)
(check-exn #rx"subtemplate: syntax-parse seems undefined,"
@ -52,7 +52,7 @@
(subtemplate ok)))))
(module m-wrong-parse-wrong-case racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
syntax/parse
rackunit
syntax/macro-testing)

2
test/test-subtemplate.rkt
View File

@ -1,5 +1,5 @@
#lang racket
(require subtemplate/template-subscripts
(require subtemplate/private/template-subscripts
stxparse-info/parse
stxparse-info/parse/experimental/template
stxparse-info/case

10
test/test-unsyntax.rkt
View File

@ -1,10 +1,10 @@
#lang racket/base
(require subtemplate/top-subscripts
subtemplate/ddd-forms
subtemplate/unsyntax-preparse
subtemplate/template-subscripts
(except-in subtemplate/override ?? ?@)
(require subtemplate/private/top-subscripts
subtemplate/private/ddd-forms
subtemplate/private/unsyntax-preparse
subtemplate/private/template-subscripts
(except-in subtemplate/private/override ?? ?@)
stxparse-info/case
stxparse-info/parse
rackunit