/dports/lang/racket/racket-8.3/collects/racket/private/ |
H A D | submodule.rkt | 26 (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 D | submodule.rkt | 26 (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 D | type-annotation.rkt | 76 (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 D | with-types.rkt | 60 (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 D | body.rkt | 118 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 D | body.rkt | 118 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 D | syntax.cpp | 33 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 D | syntax.h | 34 extern SyntaxEntry *stxs; /* Syntax table pointer */
|
/dports/games/libretro-scummvm/scummvm-7b1e929/engines/glk/alan3/ |
H A D | syntax.cpp | 33 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 D | syntax.h | 34 extern SyntaxEntry *stxs; /* Syntax table pointer */
|
/dports/net/p5-perl-ldap/perl-ldap-0.68/t/ |
H A D | 03schema.t | 25 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 D | patterns.rkt | 49 (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 D | tc-utils.rkt | 100 (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 D | insta.rkt | 26 ;; 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 D | check-class-unit.rkt | 44 ;; 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 D | tc-expression.rkt | 107 [(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 D | filetypes.cpp | 74 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 D | code.rkt | 620 (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 D | expand.rkt | 8 ;; 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 D | expand.rkt | 8 ;; 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 D | reductions.rkt | 660 [(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 D | frame.rkt | 20 (define (browse-syntaxes stxs) 22 (for ([stx stxs])
|
/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/private/ |
H A D | contract-object.rkt | 78 [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 D | defun.rkt | 90 (lambda (stxs) 91 (map defun stxs)))
|
/dports/lang/racket/racket-8.3/share/pkgs/scribble-text-lib/scribble/text/ |
H A D | syntax-utils.rkt | 36 (define (group-stxs stxs fun) 42 stxs fun)) 98 (group-stxs
|