/dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
H A D | parsed.rkt | 14 (struct parsed-primitive-id parsed-id () #:authentic) 15 (struct parsed-top-id parsed-id () #:authentic) 19 (struct parsed-app parsed (rator rands) #:authentic) 20 (struct parsed-if parsed (tst thn els) #:authentic) 21 (struct parsed-set! parsed (id rhs) #:authentic) 24 (struct parsed-begin parsed (body) #:authentic) 25 (struct parsed-begin0 parsed (body) #:authentic) 26 (struct parsed-quote parsed (datum) #:authentic) 37 (struct parsed-#%declare parsed () #:authentic) 38 (struct parsed-require parsed () #:authentic) [all …]
|
H A D | expanded+parsed.rkt | 2 (require "../syntax/syntax.rkt" 5 "parsed.rkt" 8 (provide (struct-out expanded+parsed) 9 (struct-out semi-parsed-define-values) 10 (struct-out semi-parsed-begin-for-syntax) 12 parsed-only 18 (struct expanded+parsed (s parsed) #:authentic) 22 (struct semi-parsed-define-values (s syms ids rhs) #:authentic) 23 (struct semi-parsed-begin-for-syntax (s body) #:authentic) 37 (expanded+parsed-parsed i)] [all …]
|
H A D | top.rkt | 2 (require "../common/struct-star.rkt" 11 "require+provide.rkt" 13 "parsed.rkt" 15 "require.rkt" 31 (if (expand-context-to-parsed? ctx) 47 (if (expand-context-to-parsed? ctx) 64 (define capture-ctx (struct*-copy expand-context trans-ctx 91 (if (expand-context-to-parsed? ctx) 96 '#%require 98 (log-expand ctx 'prim-require s) [all …]
|
H A D | module.rkt | 3 "../common/struct-star.rkt" 75 (struct*-copy expand-context ctx 193 (perform-initial-require! initial-require self 480 (struct*-copy expand-context ctx 564 … `(,(m 'module) ,(m 'id:module-name) ,initial-require-s ,(expanded+parsed-s expanded-mb)))] 593 (struct*-copy expand-context ctx 1119 (cons (struct-copy semi-parsed-begin-for-syntax (car bodys) 1288 (struct-copy expanded+parsed submod 1440 (struct-copy expanded+parsed submod 1441 [parsed (struct-copy parsed-module (expanded+parsed-parsed submod) [all …]
|
H A D | context.rkt | 2 (require "../common/promise.rkt" 3 "../common/struct-star.rkt" 15 (provide (struct*-out expand-context) 33 ;; If `to-parsed?` is true, the result is a `parsed` record instead of 66 require-lifts ; lifted `require`s 78 #:to-parsed? [to-parsed? #f] 117 #f ; require-lifts 129 (struct*-copy expand-context ctx 203 (struct*-copy expand-context ctx 212 (struct*-copy expand-context ctx [all …]
|
H A D | cross-phase.rkt | 2 (require "../syntax/syntax.rkt" 10 "parsed.rkt" 23 (expanded+parsed-parsed body) 30 (syntax? p)) ;; remaining unparsed forms, such as `#%require` and `#%provide`, are ok 46 [(parsed-app? e) 53 [(make-struct-type) 55 [(make-struct-type-property) 79 (andmap parsed-#%variable-reference? (parsed-app-rands e))) 81 [(parsed-app? e) 85 [(parsed-if? e) [all …]
|
/dports/lang/racket/racket-8.3/src/expander/expand/ |
H A D | parsed.rkt | 14 (struct parsed-primitive-id parsed-id () #:authentic) 15 (struct parsed-top-id parsed-id () #:authentic) 19 (struct parsed-app parsed (rator rands) #:authentic) 20 (struct parsed-if parsed (tst thn els) #:authentic) 21 (struct parsed-set! parsed (id rhs) #:authentic) 24 (struct parsed-begin parsed (body) #:authentic) 25 (struct parsed-begin0 parsed (body) #:authentic) 26 (struct parsed-quote parsed (datum) #:authentic) 37 (struct parsed-#%declare parsed () #:authentic) 38 (struct parsed-require parsed () #:authentic) [all …]
|
H A D | expanded+parsed.rkt | 2 (require "../syntax/syntax.rkt" 5 "parsed.rkt" 8 (provide (struct-out expanded+parsed) 9 (struct-out semi-parsed-define-values) 10 (struct-out semi-parsed-begin-for-syntax) 12 parsed-only 18 (struct expanded+parsed (s parsed) #:authentic) 22 (struct semi-parsed-define-values (s syms ids rhs) #:authentic) 23 (struct semi-parsed-begin-for-syntax (s body) #:authentic) 37 (expanded+parsed-parsed i)] [all …]
|
H A D | top.rkt | 2 (require "../common/struct-star.rkt" 11 "require+provide.rkt" 13 "parsed.rkt" 15 "require.rkt" 31 (if (expand-context-to-parsed? ctx) 47 (if (expand-context-to-parsed? ctx) 64 (define capture-ctx (struct*-copy expand-context trans-ctx 91 (if (expand-context-to-parsed? ctx) 96 '#%require 98 (log-expand ctx 'prim-require s) [all …]
|
H A D | module.rkt | 3 "../common/struct-star.rkt" 75 (struct*-copy expand-context ctx 193 (perform-initial-require! initial-require self 480 (struct*-copy expand-context ctx 564 … `(,(m 'module) ,(m 'id:module-name) ,initial-require-s ,(expanded+parsed-s expanded-mb)))] 593 (struct*-copy expand-context ctx 1119 (cons (struct-copy semi-parsed-begin-for-syntax (car bodys) 1288 (struct-copy expanded+parsed submod 1440 (struct-copy expanded+parsed submod 1441 [parsed (struct-copy parsed-module (expanded+parsed-parsed submod) [all …]
|
H A D | context.rkt | 2 (require "../common/promise.rkt" 3 "../common/struct-star.rkt" 15 (provide (struct*-out expand-context) 33 ;; If `to-parsed?` is true, the result is a `parsed` record instead of 66 require-lifts ; lifted `require`s 78 #:to-parsed? [to-parsed? #f] 117 #f ; require-lifts 129 (struct*-copy expand-context ctx 203 (struct*-copy expand-context ctx 212 (struct*-copy expand-context ctx [all …]
|
H A D | cross-phase.rkt | 2 (require "../syntax/syntax.rkt" 10 "parsed.rkt" 23 (expanded+parsed-parsed body) 30 (syntax? p)) ;; remaining unparsed forms, such as `#%require` and `#%provide`, are ok 46 [(parsed-app? e) 53 [(make-struct-type) 55 [(make-struct-type-property) 79 (andmap parsed-#%variable-reference? (parsed-app-rands e))) 81 [(parsed-app? e) 85 [(parsed-if? e) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/expander/eval/ |
H A D | main.rkt | 2 (require "../common/struct-star.rkt" 101 (struct lifted-parsed-begin (seq last)) 148 #:to-parsed? to-parsed? 155 [to-parsed? 156 (wrap-lifts-as-lifted-parsed-begin require-lifts 218 (define tl-ctx (struct*-copy expand-context ctx 226 (expand-capturing-lifts s (struct*-copy expand-context tl-ctx 323 (expand-in-context s (struct*-copy expand-context ctx 342 (define (wrap-lifts-as-lifted-parsed-begin require-lifts 348 (parsed-require req)) [all …]
|
/dports/lang/racket/racket-8.3/src/expander/eval/ |
H A D | main.rkt | 2 (require "../common/struct-star.rkt" 101 (struct lifted-parsed-begin (seq last)) 148 #:to-parsed? to-parsed? 155 [to-parsed? 156 (wrap-lifts-as-lifted-parsed-begin require-lifts 218 (define tl-ctx (struct*-copy expand-context ctx 226 (expand-capturing-lifts s (struct*-copy expand-context tl-ctx 323 (expand-in-context s (struct*-copy expand-context ctx 342 (define (wrap-lifts-as-lifted-parsed-begin require-lifts 348 (parsed-require req)) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/typecheck/ |
H A D | tc-toplevel.rkt | 3 (require "../utils/utils.rkt" 121 [r:typed-require/struct 448 (define parsed (parse-typed-struct def)) 449 (register-parsed-struct-sty! parsed) 450 parsed)) 451 (refine-struct-variance! parsed-structs) 454 (define struct-bindings (map register-parsed-struct-bindings! parsed-structs)) 685 (define parsed (parse-typed-struct form)) 686 (register-parsed-struct-sty! parsed) 687 (refine-struct-variance! (list parsed)) [all …]
|
H A D | tc-structs.rkt | 3 (require "../utils/utils.rkt" 39 (require-for-cond-contract racket/struct-info) 46 register-parsed-struct-sty! 47 register-parsed-struct-bindings!) 59 (struct parsed-struct (sty names desc struct-info type-only) #:transparent) 244 ;; imported via require/typed 527 (define (register-parsed-struct-sty! ps) 542 (define stys (map parsed-struct-sty parsed-structs)) 543 (define tvarss (map (compose struct-desc-tvars parsed-struct-desc) parsed-structs)) 545 (for/list ([parsed-struct (in-list parsed-structs)]) [all …]
|
/dports/devel/p5-Dist-Metadata/Dist-Metadata-0.926/t/ |
H A D | determine.t | 7 eval "require $_" || die $@ 47 my ($base, $args, $parsed, $att) = @$test; 48 $att ||= $parsed; 54 is_deeply(\@nv, $parsed, 'parsed name and version'); 63 my $struct = { 96 new_ok($mod, [struct => $struct, include_inner_packages => 1])->determine_packages, 107 new_ok($mod, [struct => $struct])->determine_packages, 115 my $dm = new_ok($mod, [struct => $struct]);
|
/dports/lang/racket/racket-8.3/collects/racket/match/ |
H A D | match-expander.rkt | 3 (require (for-syntax racket/base "stxtime.rkt")) 10 (define-struct match-expander (match-xform legacy-xform macro-xform) 37 #:property prop:match-expander (struct-field-index match-xform) 38 #:property prop:legacy-match-expander (struct-field-index legacy-xform)) 65 [parsed-args (parse args)]) 67 ([legacy-xform (lookup '#:match parsed-args)] 68 [match-xform (lookup '#:plt-match parsed-args)] 70 (or (lookup '#:expression parsed-args)
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/match/ |
H A D | match-expander.rkt | 3 (require (for-syntax racket/base "stxtime.rkt")) 10 (define-struct match-expander (match-xform legacy-xform macro-xform) 37 #:property prop:match-expander (struct-field-index match-xform) 38 #:property prop:legacy-match-expander (struct-field-index legacy-xform)) 65 [parsed-args (parse args)]) 67 ([legacy-xform (lookup '#:match parsed-args)] 68 [match-xform (lookup '#:plt-match parsed-args)] 70 (or (lookup '#:expression parsed-args)
|
/dports/lang/racket/racket-8.3/share/pkgs/compatibility-lib/mzlib/ |
H A D | unitsig200.rkt | 4 ;; output, and finally mangled to handle the v200 `struct' (with 8 (require "unit200.rkt") 9 (require "private/sigmatch.rkt") 11 (require-for-syntax "private/sigutil.rkt") 12 (require-for-syntax syntax/kerncase) 14 (define-struct signed-unit (unit imports exports)) 55 (parsed-unit-vars a-unit)) 64 (reverse (parsed-unit-body a-unit)) 65 ((parsed-unit-stx-checks a-unit) expr))] 245 ;; Strip struct info: [all …]
|
/dports/converters/p5-Convert-Binary-C/Convert-Binary-C-0.84/tests/ |
H A D | 215_local.t | 18 my $CCCFG = require './tests/include/config.pl'; 52 struct _bar { 54 struct _bar *xxx; 59 struct _bar; 73 struct _bar { 75 struct _bar *xxx; 79 struct _bar { 87 # check that only global types have been parsed
|
H A D | 209_sourcify.t | 16 my $CCCFG = require './tests/include/config.pl'; 96 for my $meth ( qw( enum compound struct union typedef macro ) ) { 108 print "# checking parsed names for \$clone[$c]->$meth_names\n"; 111 "parsed names differ in $meth_names ($c)" ); 127 typedef struct { struct B *x; } A; 128 typedef struct B { A *x; } B; 131 struct foo { 135 struct { 136 struct { 153 $orig->clean->parse( 'typedef struct { ' . 'struct { 'x42 . 'int a;' . ' } a;'x42 . ' } rec;' );
|
/dports/databases/py-asyncpg/asyncpg-0.25.0/asyncpg/ |
H A D | connect_utils.py | 20 import struct 37 require = 3 variable in SSLMode 276 if parsed.netloc: 277 if '@' in parsed.netloc: 294 dsn_database = parsed.path 305 if parsed.query: 498 if sslmode < SSLMode.require: 511 if sslmode > SSLMode.require: 518 elif sslmode == SSLMode.require: 696 tr.write(struct.pack('!ll', 8, 80877103)) # SSLRequest message. [all …]
|
/dports/editors/emacs-devel/emacs-4d1968b/lisp/gnus/ |
H A D | mml.el | 25 (require 'mm-util) 26 (require 'mm-bodies) 27 (require 'mm-encode) 28 (require 'mm-decode) 29 (require 'mml-sec) 281 struct)) 333 struct)) 344 (setq struct (nconc nstruct struct))))))) 381 struct) 404 struct)) [all …]
|
/dports/editors/emacs/emacs-27.2/lisp/gnus/ |
H A D | mml.el | 25 (require 'mm-util) 26 (require 'mm-bodies) 27 (require 'mm-encode) 28 (require 'mm-decode) 29 (require 'mml-sec) 278 struct)) 330 (setq struct (nconc nstruct struct))))))) 367 struct) 390 struct)) 391 struct)))) [all …]
|