/dports/lang/racket/racket-8.3/src/expander/expand/ |
H A D | liberal-def-ctx.rkt | 3 (provide prop:liberal-define-context 4 (rename-out [has-liberal-define-context-property? liberal-define-context?]) 5 make-liberal-define-context) 7 (define-values (prop:liberal-define-context has-liberal-define-context-property? liberal-define-con… 8 (make-struct-type-property 'liberal-define-context)) 10 (struct liberal-define-context () 11 #:property prop:liberal-define-context #t 12 #:constructor-name make-liberal-define-context)
|
H A D | body.rkt | 2 (require "../common/struct-star.rkt" 18 "liberal-def-ctx.rkt" 43 (define phase (expand-context-phase ctx)) 49 (define body-ctx (struct*-copy expand-context ctx 50 [context (list (make-liberal-define-context))] 69 (define name (expand-context-name ctx)) 101 (struct*-copy expand-context body-ctx 141 (loop (struct*-copy expand-context body-ctx 198 (loop (struct*-copy expand-context body-ctx 267 …(define finish-ctx (struct*-copy expand-context (accumulate-def-ctx-scopes body-ctx def-ctx-scopes) [all …]
|
H A D | main.rkt | 3 "../common/struct-star.rkt" 31 "liberal-def-ctx.rkt" 423 (define m-ctx (struct*-copy expand-context accum-ctx 494 (struct*-copy expand-context ctx 563 (define context (expand-context-context ctx)) 576 (define capture-ctx (struct*-copy expand-context ctx 631 (define trans-ctx (context->transformer-context ctx context 639 (define (context->transformer-context ctx [context 'expression] 645 (struct*-copy expand-context ctx 798 (struct*-copy expand-context rhs-ctx [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
H A D | liberal-def-ctx.rkt | 3 (provide prop:liberal-define-context 4 (rename-out [has-liberal-define-context-property? liberal-define-context?]) 5 make-liberal-define-context) 7 (define-values (prop:liberal-define-context has-liberal-define-context-property? liberal-define-con… 8 (make-struct-type-property 'liberal-define-context)) 10 (struct liberal-define-context () 11 #:property prop:liberal-define-context #t 12 #:constructor-name make-liberal-define-context)
|
H A D | body.rkt | 2 (require "../common/struct-star.rkt" 18 "liberal-def-ctx.rkt" 43 (define phase (expand-context-phase ctx)) 49 (define body-ctx (struct*-copy expand-context ctx 50 [context (list (make-liberal-define-context))] 69 (define name (expand-context-name ctx)) 101 (struct*-copy expand-context body-ctx 141 (loop (struct*-copy expand-context body-ctx 198 (loop (struct*-copy expand-context body-ctx 267 …(define finish-ctx (struct*-copy expand-context (accumulate-def-ctx-scopes body-ctx def-ctx-scopes) [all …]
|
H A D | main.rkt | 3 "../common/struct-star.rkt" 31 "liberal-def-ctx.rkt" 423 (define m-ctx (struct*-copy expand-context accum-ctx 494 (struct*-copy expand-context ctx 563 (define context (expand-context-context ctx)) 576 (define capture-ctx (struct*-copy expand-context ctx 631 (define trans-ctx (context->transformer-context ctx context 639 (define (context->transformer-context ctx [context 'expression] 645 (struct*-copy expand-context ctx 798 (struct*-copy expand-context rhs-ctx [all …]
|
/dports/lang/racket/racket-8.3/collects/syntax/ |
H A D | context.rkt | 3 (provide build-expand-context 4 generate-expand-context) 6 (define (build-expand-context v) 7 (let ([c (syntax-local-context)]) 12 (struct in-liberal-define-context () 13 #:property prop:liberal-define-context #t) 15 (define (generate-expand-context [liberal-definitions? #f]) 16 (build-expand-context (if liberal-definitions? 17 (in-liberal-define-context) 18 (gensym 'internal-define))))
|
/dports/lang/racket-minimal/racket-8.3/collects/syntax/ |
H A D | context.rkt | 3 (provide build-expand-context 4 generate-expand-context) 6 (define (build-expand-context v) 7 (let ([c (syntax-local-context)]) 12 (struct in-liberal-define-context () 13 #:property prop:liberal-define-context #t) 15 (define (generate-expand-context [liberal-definitions? #f]) 16 (build-expand-context (if liberal-definitions? 17 (in-liberal-define-context) 18 (gensym 'internal-define))))
|
/dports/lang/racket-minimal/racket-8.3/src/expander/boot/ |
H A D | core-primitive.rkt | 17 "../expand/liberal-def-ctx.rkt" 35 (define-syntax-rule (add-core-primitives! #:table primitive-ids id/maybe-protected ...) 37 (define primitive-ids (seteq (quote-core id/maybe-protected) ...)) 43 (define-syntax quote-core 48 (define-syntax add-a-core-primitive! 105 struct:exn:fail:syntax 110 struct:exn:fail:syntax:unbound 119 struct:exn:fail:filesystem:missing-module 124 struct:exn:fail:syntax:missing-module 195 prop:liberal-define-context [all …]
|
/dports/lang/racket/racket-8.3/src/expander/boot/ |
H A D | core-primitive.rkt | 17 "../expand/liberal-def-ctx.rkt" 35 (define-syntax-rule (add-core-primitives! #:table primitive-ids id/maybe-protected ...) 37 (define primitive-ids (seteq (quote-core id/maybe-protected) ...)) 43 (define-syntax quote-core 48 (define-syntax add-a-core-primitive! 105 struct:exn:fail:syntax 110 struct:exn:fail:syntax:unbound 119 struct:exn:fail:filesystem:missing-module 124 struct:exn:fail:syntax:missing-module 195 prop:liberal-define-context [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/contract/private/ |
H A D | helpers.rkt | 4 build-struct-names 5 lookup-struct-info 15 racket/struct-info 24 ;; lookup-struct-info : syntax -> struct-info? 25 (define (lookup-struct-info stx provide-stx) 36 (if (struct-info? v) 145 (define build-struct-names 181 (define cm 299 (internal-definition-context? . #t) 301 (liberal-define-context? . #t) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/contract/private/ |
H A D | helpers.rkt | 4 build-struct-names 5 lookup-struct-info 15 racket/struct-info 24 ;; lookup-struct-info : syntax -> struct-info? 25 (define (lookup-struct-info stx provide-stx) 36 (if (struct-info? v) 145 (define build-struct-names 181 (define cm 299 (internal-definition-context? . #t) 301 (liberal-define-context? . #t) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/scribblings/reference/ |
H A D | stx-trans.scrbl | 73 @defthing[prop:set!-transformer struct-type-property?]{ 187 @defthing[prop:rename-transformer struct-type-property?]{ 221 (struct slv-cooperator (redirect-to-first?) 327 @tech{liberal expansion} of @racket[define] forms, the generated value 329 @racket[prop:liberal-define-context]. If the internal-definition 1326 @defthing[prop:liberal-define-context struct-type-property?] 1327 @defproc[(liberal-define-context? [v any/c]) boolean?] 1331 @racket[prop:liberal-define-context] property can be used as an 1335 supports @deftech{liberal expansion} of @racket[define] forms into 1341 The @racket[liberal-define-context?] predicate returns @racket[#t] if [all …]
|
H A D | syntax.scrbl | 975 (struct-out id) 1127 (provide (struct-out egg)) 1128 (struct egg (color wt))) 1367 (#,(racketidfont "struct") struct-id (field-id ...)) 1389 A @racket[(#,(racketidfont "struct") struct-id (field-id ...))] 1390 sub-form expands to @racket[struct-id], 1391 @racketidfont{make-}@racket[struct-id], 1392 @racketidfont{struct:}@racket[struct-id], 1393 @racket[struct-id]@racketidfont{?}, 2529 In an @tech{internal-definition context}, a @racket[define] form [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/bc/src/ |
H A D | startup.inc | 44487 "(1/prop:liberal-define-context has-liberal-define-context-property? liberal-define-context-value)" 44488 "(make-struct-type-property 'liberal-define-context))" 44490 "(struct:liberal-define-context make-liberal-define-context 1/liberal-define-context?)" 44495 " 'liberal-define-context" 44500 "(list(cons 1/prop:liberal-define-context #t))" 44505 " 'make-liberal-define-context)))))" 66853 " 'prop:liberal-define-context" 66854 " 'liberal-define-context?" 67183 "((prop:liberal-define-context245_0) 1/prop:liberal-define-context))" 67185 "(let-values(((temp246_0) 'liberal-define-context?)" [all …]
|
/dports/lang/racket/racket-8.3/src/bc/src/ |
H A D | startup.inc | 44487 "(1/prop:liberal-define-context has-liberal-define-context-property? liberal-define-context-value)" 44488 "(make-struct-type-property 'liberal-define-context))" 44490 "(struct:liberal-define-context make-liberal-define-context 1/liberal-define-context?)" 44495 " 'liberal-define-context" 44500 "(list(cons 1/prop:liberal-define-context #t))" 44505 " 'make-liberal-define-context)))))" 66853 " 'prop:liberal-define-context" 66854 " 'liberal-define-context?" 67183 "((prop:liberal-define-context245_0) 1/prop:liberal-define-context))" 67185 "(let-values(((temp246_0) 'liberal-define-context?)" [all …]
|
/dports/lang/racket/racket-8.3/doc/syntax/ |
H A D | blueboxes.rktd | 9 parse-option = #:context context-expr 38 #:context context-expr 238 #s(prefab-struct-key pattern-part ...) 457 #:context context 1472 struct 1531 (generate-expand-context [liberal-definitions?]) -> list? 1532 liberal-definitions? : boolean? = #f 1561 (parse-define-struct stx orig-stx) -> identifier? 1657 make-make-struct-type : procedure? 1965 #:context context [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | kw.rkt | 151 ;; `core` is flattened into the definition context as described 191 ;; definition context. That way, uses of the `f` macro can typically 207 (define-values (struct:keyword-procedure mk-kw-proc keyword-procedure? 215 (define keyword-procedure-checker (make-struct-field-accessor keyword-procedure-ref 0)) 216 (define keyword-procedure-proc (make-struct-field-accessor keyword-procedure-ref 1)) 220 (define-values (struct:keyword-method make-km keyword-method? km-ref km-set!) 284 (define-values (struct:okp make-optional-keyword-procedure okp? okp-ref okp-set!) 292 (define-values (struct:okm make-optional-keyword-method okm? okm-ref okm-set!) 873 (if (eq? (syntax-local-context) 'expression) 1127 (let ([ctx (syntax-local-context)]) [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/ |
H A D | kw.rkt | 151 ;; `core` is flattened into the definition context as described 191 ;; definition context. That way, uses of the `f` macro can typically 207 (define-values (struct:keyword-procedure mk-kw-proc keyword-procedure? 215 (define keyword-procedure-checker (make-struct-field-accessor keyword-procedure-ref 0)) 216 (define keyword-procedure-proc (make-struct-field-accessor keyword-procedure-ref 1)) 220 (define-values (struct:keyword-method make-km keyword-method? km-ref km-set!) 284 (define-values (struct:okp make-optional-keyword-procedure okp? okp-ref okp-set!) 292 (define-values (struct:okm make-optional-keyword-method okm? okm-ref okm-set!) 873 (if (eq? (syntax-local-context) 'expression) 1127 (let ([ctx (syntax-local-context)]) [all …]
|
/dports/lang/racket/racket-8.3/doc/reference/ |
H A D | blueboxes.rktd | 5190 (define-struct id-maybe-super (field ...) 5201 (define-struct/derived (id . rest-form) 6172 (define-unit-from-context id tagged-sig-spec) 6690 (define-contract-struct id (field-id ...)) 6745 (define-struct/contract struct-id ([field contract-expr] ...) 6747 (define-struct/contract (struct-id super-struct-id) 6761 context-limit) 9246 prop:liberal-define-context : struct-type-property? 9248 (liberal-define-context? v) -> boolean? 11099 (define-serializable-struct id-maybe-super (field ...) [all …]
|
/dports/mail/libspf/libspf-1.0.0-p5/patches/Postfix/2.1.x/ |
H A D | postfix-2.1.4-libspf-1.0-RC6.diff | 286 * command with a 501 response. So much for the principle of "be liberal 296 * command with a 501 response. So much for the principle of "be liberal 307 * command with a 501 response. So much for the principle of "be liberal 317 * command with a 501 response. So much for the principle of "be liberal 422 * attributes. This requires making "state" a context attribute of the 432 * attributes. This requires making "state" a context attribute of the 780 * immediately, outside any particular mail transaction context. For 790 * immediately, outside any particular mail transaction context. For 1198 *************** typedef struct SMTPD_STATE { 1218 #define SMTPD_PEER_CODE_PERM 5 [all …]
|
/dports/security/sequoia/sequoia-383133f6be990237044900a4df676488bf8dd71e/cargo-crates/nettle-src-3.5.1-2/nettle/ |
H A D | nettle.info | 280 on the context. The context struct encapsulates all information needed 329 #define BUF_SIZE 1000 659 Initialize the context struct. 2020 It can be used to define a CBC context struct, either directly, 2240 conventions. The last three arguments define the source and 2247 conventions. The last three arguments define the source and 2449 may implement more liberal conventions. The CCM mode is a bit special 2553 This defines an all-in-one context struct, including the context of 2717 This defines an all-in-one context struct, including the context of 3376 It can be used to define a HMAC context struct, either directly, [all …]
|
H A D | nettle.texinfo | 296 operating on the context. The context struct encapsulates all information 655 Initialize the context struct. 2085 It can be used to define a @acronym{CBC} context struct, either directly, 2188 last three arguments define the source and destination area for the 2301 last three arguments define the source and destination area for the 2309 last three arguments define the source and destination area for the 2548 @acronym{AEAD} may implement more liberal conventions. The @acronym{CCM} 2650 This defines an all-in-one context struct, including the context of the 2824 This defines an all-in-one context struct, including the context of the 3449 It can be used to define a @acronym{HMAC} context struct, either [all …]
|
/dports/security/nettle/nettle-3.7.3/ |
H A D | nettle.info | 291 on the context. The context struct encapsulates all information needed 340 #define BUF_SIZE 1000 671 Initialize the context struct. 2264 It can be used to define a CBC context struct, either directly, 2484 conventions. The last three arguments define the source and 2491 conventions. The last three arguments define the source and 2693 may implement more liberal conventions. The CCM mode is a bit special 2798 This defines an all-in-one context struct, including the context of 2962 This defines an all-in-one context struct, including the context of 3714 It can be used to define a HMAC context struct, either directly, [all …]
|
H A D | nettle.texinfo | 307 operating on the context. The context struct encapsulates all information 667 Initialize the context struct. 2346 It can be used to define a @acronym{CBC} context struct, either directly, 2449 last three arguments define the source and destination area for the 2562 last three arguments define the source and destination area for the 2570 last three arguments define the source and destination area for the 2809 @acronym{AEAD} may implement more liberal conventions. The @acronym{CCM} 2912 This defines an all-in-one context struct, including the context of the 3086 This defines an all-in-one context struct, including the context of the 3801 It can be used to define a @acronym{HMAC} context struct, either [all …]
|