Home
last modified time | relevance | path

Searched +refs:struct +refs:parsed +refs:require (Results 1 – 25 of 5644) sorted by relevance

12345678910>>...226

/dports/lang/racket-minimal/racket-8.3/src/expander/expand/
H A Dparsed.rkt14 (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 Dexpanded+parsed.rkt2 (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 Dtop.rkt2 (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 Dmodule.rkt3 "../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 Dcontext.rkt2 (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 Dcross-phase.rkt2 (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 Dparsed.rkt14 (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 Dexpanded+parsed.rkt2 (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 Dtop.rkt2 (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 Dmodule.rkt3 "../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 Dcontext.rkt2 (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 Dcross-phase.rkt2 (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 Dmain.rkt2 (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 Dmain.rkt2 (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 Dtc-toplevel.rkt3 (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 Dtc-structs.rkt3 (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 Ddetermine.t7 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 Dmatch-expander.rkt3 (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 Dmatch-expander.rkt3 (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 Dunitsig200.rkt4 ;; 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 D215_local.t18 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 D209_sourcify.t16 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 Dconnect_utils.py20 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 Dmml.el25 (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 Dmml.el25 (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 …]

12345678910>>...226