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

2
private/ddd-forms.rkt
View File

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

2
private/ddd.rkt
View File

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

4
private/override.rkt
View File

@ -1,6 +1,6 @@
#lang racket #lang racket
(require racket/require (require racket/require
(rename-in subtemplate/template-subscripts (rename-in subtemplate/private/template-subscripts
[subtemplate syntax] [subtemplate syntax]
[quasisubtemplate quasisyntax]) [quasisubtemplate quasisyntax])
stxparse-info/parse stxparse-info/parse
@ -11,7 +11,7 @@
quasitemplate/loc) quasitemplate/loc)
stxparse-info/case stxparse-info/case
(subtract-in racket/syntax 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
stxparse-info/parse/experimental/template stxparse-info/parse/experimental/template
stxparse-info/case stxparse-info/case

4
private/unsyntax-preparse.rkt
View File

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

12
scribblings/subtemplate.scrbl
View File

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

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

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

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

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

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

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

2
test/test-ddd.rkt
View File

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

2
test/test-optional.rkt
View File

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

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

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

6
test/test-or.rkt
View File

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

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

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

2
test/test-splice.rkt
View File

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

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

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

2
test/test-subtemplate.rkt
View File

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

10
test/test-unsyntax.rkt
View File

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