Home
last modified time | relevance | path

Searched refs:stxs (Results 1 – 25 of 70) sorted by relevance

123

/dports/lang/racket/racket-8.3/collects/racket/private/
H A Dsubmodule.rkt26 (let ([stxs-box (get-stxs-box stx #'the-submodule #t)])
27 (set-box! stxs-box
29 (car (unbox stxs-box)))
30 (cons stx (cdr (unbox stxs-box))))))
41 (define-values (submodule->stxs-box) (make-weak-hash))
42 (define-values (get-stxs-box)
44 (hash-ref! submodule->stxs-box (syntax-e the-submodule-stx)
62 (let* ([stxs-box (get-stxs-box #f #'the-submodule #f)]
72 (map syntax-local-introduce (reverse (car (unbox stxs-box)))))
76 [origs (cdr (unbox stxs-box))])
/dports/lang/racket-minimal/racket-8.3/collects/racket/private/
H A Dsubmodule.rkt26 (let ([stxs-box (get-stxs-box stx #'the-submodule #t)])
27 (set-box! stxs-box
29 (car (unbox stxs-box)))
30 (cons stx (cdr (unbox stxs-box))))))
41 (define-values (submodule->stxs-box) (make-weak-hash))
42 (define-values (get-stxs-box)
44 (hash-ref! submodule->stxs-box (syntax-e the-submodule-stx)
62 (let* ([stxs-box (get-stxs-box #f #'the-submodule #f)]
72 (map syntax-local-introduce (reverse (car (unbox stxs-box)))))
76 [origs (cdr (unbox stxs-box))])
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/private/
H A Dtype-annotation.rkt76 (define (get-types stxs #:default [default #f])
77 (map (lambda (e) (get-type e #:default default)) stxs))
79 ;; stxs : the identifiers, possibly with type annotations on them
90 (match stxs
92 (let ([anns (for/list ([s (in-list stxs)])
100 #:return (map (λ _ (-tc-result -Bottom)) stxs)
102 (length stxs))]
104 (for/list ([_ (in-range (length stxs))])
108 [(not (= (length stxs) (length tcrs)))
111 (length stxs)
[all …]
H A Dwith-types.rkt60 (type-stxs->ids+defs (syntax->list fvtys) 'untyped))
62 (type-stxs->ids+defs (syntax->list extys) 'typed))
65 (type-stxs->ids+defs (values-stx->type-stxs resty) 'typed)
156 (define (values-stx->type-stxs values-stx)
162 ;; type-stxs->ids+defs : (Listof Syntax) Symbol -> (Listof Id Syntax)
164 (define (type-stxs->ids+defs type-stxs typed-side)
165 (for/lists (_1 _2) ([t (in-list type-stxs)])
/dports/lang/racket-minimal/racket-8.3/src/expander/expand/
H A Dbody.rkt118 track-stxs
120 trans-stxs
167 track-stxs))
169 trans-stxs
206 track-stxs
226 track-stxs
228 trans-stxs
240 track-stxs
242 trans-stxs
328 (let loop ([idss idss] [keyss keyss] [rhss rhss] [track-stxs track-stxs]
[all …]
/dports/lang/racket/racket-8.3/src/expander/expand/
H A Dbody.rkt118 track-stxs
120 trans-stxs
167 track-stxs))
169 trans-stxs
206 track-stxs
226 track-stxs
228 trans-stxs
240 track-stxs
242 trans-stxs
328 (let loop ([idss idss] [keyss keyss] [rhss rhss] [track-stxs track-stxs]
[all …]
/dports/games/scummvm/scummvm-2.5.1/engines/glk/alan3/
H A Dsyntax.cpp33 SyntaxEntry *stxs; /* Syntax table pointer */ variable
50 for (stx = (SyntaxEntryPreBeta2 *)stxs; !isEndOfArray(stx); stx++) in findSyntaxEntryForPreBeta2()
62 for (stx = stxs; !isEndOfArray(stx); stx++) in findSyntaxEntry()
H A Dsyntax.h34 extern SyntaxEntry *stxs; /* Syntax table pointer */
/dports/games/libretro-scummvm/scummvm-7b1e929/engines/glk/alan3/
H A Dsyntax.cpp33 SyntaxEntry *stxs; /* Syntax table pointer */ variable
50 for (stx = (SyntaxEntryPreBeta2 *)stxs; !isEndOfArray(stx); stx++) in findSyntaxEntryForPreBeta2()
62 for (stx = stxs; !isEndOfArray(stx); stx++) in findSyntaxEntry()
H A Dsyntax.h34 extern SyntaxEntry *stxs; /* Syntax table pointer */
/dports/net/p5-perl-ldap/perl-ldap-0.68/t/
H A D03schema.t25 my @stxs = $schema->all_syntaxes();
26 is(@stxs, 32, 'number of LDAP syntaxes in schema');
27 print "The schema contains ", scalar @stxs, " LDAP syntaxes\n";
/dports/lang/racket/racket-8.3/share/pkgs/swindle/
H A Dpatterns.rkt49 (define (flatten-extended-bindings/values stxs expr)
50 (define temps (generate-temporaries stxs))
57 [tail (map cons (syntax->list stxs) temps)]
69 (values stxs expr)
70 (values (datum->syntax-object stxs (map car r) stxs)
74 (quasisyntax/loc stxs #,(cadar r))
75 (quasisyntax/loc stxs (values #,@(map cadr r))))
76 (quasisyntax/loc stxs
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/utils/
H A Dtc-utils.rkt100 (define (raise-typecheck-error msg stxs)
101 (if (null? (cdr stxs))
102 (raise-syntax-error (string->symbol "Type Checker") msg (car stxs))
103 (raise-syntax-error (string->symbol "Type Checker") msg #f #f stxs)))
132 [else (let ([stxs
140 (unless (null? stxs)
142 (length stxs))
143 (apply append stxs))))]))
243 [stxs (map locate-stx ostxs)])
252 (raise-typecheck-error (apply format msg rest) stxs)]
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/insta/
H A Dinsta.rkt26 ;; Expands body-stxs and determines if id-stx is bound therein.
28 (define-for-syntax (check-for-def stx id-stx error-msg body-stxs)
32 (#%module-begin #,@body-stxs))
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/typecheck/
H A Dcheck-class-unit.rkt44 ;; A super-init-stxs is a
558 (define def-stxs
563 (define-values (private-field-stxs method-stxs)
569 (values (cons def-stx private-field-stxs) method-stxs)
572 (values (cons def-stx private-field-stxs) method-stxs)
573 (values private-field-stxs (cons def-stx method-stxs))))))
1043 (for ([stx stxs])
1187 (for/fold ([synthed-stxs null])
1210 synthed-stxs)]
1410 (super-init-stxs
[all …]
H A Dtc-expression.rkt107 [(list ty-stxs ... (app syntax-e (cons bound-ty-stx (? identifier? bound-id))))
110 (if (= (length ty-stxs) (sub1 (PolyDots-n ty)))
113 (instantiate-poly-dotted ty (map parse-type ty-stxs) last-ty last-id))
115 ty (sub1 (PolyDots-n ty)) (length ty-stxs)))]
/dports/science/gromacs/gromacs-2021.4/src/gromacs/fileio/
H A Dfiletypes.cpp74 static const int stxs[] = { efGRO, efG96, efPDB, efBRK, efENT, efESP, efTPR }; variable
75 #define NSTXS asize(stxs)
103 { eftGEN, ".???", "conf", "-c", "Structure file", NSTXS, stxs },
/dports/lang/racket/racket-8.3/share/pkgs/pict-lib/texpict/
H A Dcode.rkt620 (let loop ([stxs is]
630 (= line (or (syntax-line (car stxs)) line)))
631 (let* ([space (if (syntax-column (car stxs))
642 (if (null? (cdr stxs))
644 (loop (cdr stxs)
648 (if (not (syntax-column (car stxs)))
651 (or (syntax-end-line (car stxs))
653 (syntax-line (car stxs)))
671 (if (null? (cdr stxs))
673 (loop (cdr stxs)
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/syntax/private/util/
H A Dexpand.rkt8 ;; head-local-expand-syntaxes : syntax boolean boolean -> stxs ^ 6
16 ;; categorize-expanded-syntaxes : (listof stx) -> stxs ^ 4
17 ;; Split head-expanded stxs into
/dports/lang/racket/racket-8.3/collects/syntax/private/util/
H A Dexpand.rkt8 ;; head-local-expand-syntaxes : syntax boolean boolean -> stxs ^ 6
16 ;; categorize-expanded-syntaxes : (listof stx) -> stxs ^ 4
17 ;; Split head-expanded stxs into
/dports/lang/racket/racket-8.3/share/pkgs/macro-debugger-text-lib/macro-debugger/model/
H A Dreductions.rkt660 [(cons (bfs:lift lderiv stxs) rest)
664 [#:walk (append stxs (% ?forms)) 'splice-lifts
665 #:foci stxs #:from-foci null]
685 [(cons (mod:lift-end stxs) rest)
687 [#:when (pair? stxs)
688 [#:walk (append stxs (stx->list (% ?forms))) 'splice-end-lifts
689 #:foci stxs #:from-foci null]]
751 [(cons (mod:lift-end stxs) rest)
753 [#:when (pair? stxs)
754 [#:walk (append stxs (stx->list (% ?forms))) 'splice-end-lifts
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/macro-debugger/macro-debugger/syntax-browser/
H A Dframe.rkt20 (define (browse-syntaxes stxs)
22 (for ([stx stxs])
/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/private/
H A Dcontract-object.rkt78 [ctc-stxs null]
79 [args-stxs null])
83 (with-syntax ([(x ...) (reverse ctc-stxs)])
85 (with-syntax ([(x ...) (apply append (map syntax->list (reverse args-stxs)))])
90 (cons ctc-stx ctc-stxs)
91 (cons mtd-args args-stxs)))]))]
/dports/lang/racket/racket-8.3/share/pkgs/web-server-lib/web-server/lang/
H A Ddefun.rkt90 (lambda (stxs)
91 (map defun stxs)))
/dports/lang/racket/racket-8.3/share/pkgs/scribble-text-lib/scribble/text/
H A Dsyntax-utils.rkt36 (define (group-stxs stxs fun)
42 stxs fun))
98 (group-stxs

123