88 lines
2.5 KiB
Scheme
88 lines
2.5 KiB
Scheme
#lang scheme/base
|
|
|
|
(require scheme/contract
|
|
"private/pict.ss"
|
|
"private/core-layout.ss"
|
|
"private/loc-wrapper.ss"
|
|
"reduction-semantics.ss"
|
|
(lib "mred.ss" "mred")
|
|
(lib "mrpict.ss" "texpict"))
|
|
|
|
(provide/contract
|
|
[reduction-relation->pict
|
|
(->* (reduction-relation?)
|
|
((or/c false/c (listof (or/c string? symbol?))))
|
|
pict?)]
|
|
[reduction-relation->ps
|
|
(->* (reduction-relation?
|
|
(or/c string? path?))
|
|
((or/c false/c (listof (or/c string? symbol?))))
|
|
void?)]
|
|
[language->pict
|
|
(->* (compiled-lang?)
|
|
((or/c false/c (cons/c symbol? (listof symbol?))))
|
|
pict?)]
|
|
[language->ps
|
|
(->* (compiled-lang?
|
|
(or/c path? string?))
|
|
((or/c false/c (cons/c symbol? (listof symbol?))))
|
|
void?)]
|
|
[extend-language-show-union (parameter/c boolean?)])
|
|
|
|
; syntax
|
|
(provide metafunction->pict
|
|
metafunction->ps)
|
|
|
|
(provide/contract
|
|
[current-text (parameter/c (-> string? text-style/c number? pict?))])
|
|
|
|
(provide/contract
|
|
[label-style (parameter/c text-style/c)]
|
|
[literal-style (parameter/c text-style/c)]
|
|
[metafunction-style (parameter/c text-style/c)]
|
|
[default-style (parameter/c text-style/c)]
|
|
[non-terminal-style (parameter/c text-style/c)]
|
|
[non-terminal-subscript-style (parameter/c text-style/c)]
|
|
[linebreaks (parameter/c (or/c false/c (listof boolean?)))]
|
|
[curly-quotes-for-strings (parameter/c boolean?)])
|
|
|
|
(provide/contract
|
|
[rule-pict-style
|
|
(parameter/c (symbols 'compact-vertical
|
|
'vertical
|
|
'vertical-overlapping-side-conditions
|
|
'horizontal))]
|
|
[arrow-space (parameter/c natural-number/c)]
|
|
[label-space (parameter/c natural-number/c)]
|
|
[metafunction-pict-style
|
|
(parameter/c (symbols 'left-right
|
|
'up-down))])
|
|
|
|
(provide/contract
|
|
[label-font-size (parameter/c (and/c (between/c 1 255) integer?))]
|
|
[default-font-size (parameter/c (and/c (between/c 1 255) integer?))]
|
|
[metafunction-font-size (parameter/c (and/c (between/c 1 255) integer?))]
|
|
[reduction-relation-rule-separation (parameter/c (and/c integer? positive? exact?))])
|
|
|
|
(provide
|
|
build-lw
|
|
lw
|
|
lw?
|
|
lw-e
|
|
lw-line
|
|
lw-line-span
|
|
lw-column
|
|
lw-column-span)
|
|
|
|
(provide/contract
|
|
[just-before (-> (or/c pict? string? symbol?) lw? lw?)]
|
|
[just-after (-> (or/c pict? string? symbol?) lw? lw?)])
|
|
(provide with-unquote-rewriter
|
|
with-compound-rewriter
|
|
with-atomic-rewriter)
|
|
|
|
(provide/contract
|
|
[set-arrow-pict! (-> symbol? (-> pict?) void?)]
|
|
|
|
[lw->pict
|
|
(-> (or/c (listof symbol?) compiled-lang?) lw? pict?)]) |