/dports/lang/racket-minimal/racket-8.3/src/expander/expand/ |
H A D | parsed.rkt | 13 (struct parsed-id parsed (binding inspector) #:authentic) 14 (struct parsed-primitive-id parsed-id () #:authentic) 15 (struct parsed-top-id parsed-id () #:authentic) 21 (struct parsed-set! parsed (id rhs) #:authentic) 23 (struct parsed-#%variable-reference parsed (id) #:authentic) 24 (struct parsed-begin parsed (body) #:authentic) 25 (struct parsed-begin0 parsed (body) #:authentic) 26 (struct parsed-quote parsed (datum) #:authentic) 38 (struct parsed-require parsed () #:authentic) 41 (struct parsed-module parsed (star? [all …]
|
H A D | context.rkt | 3 "../common/struct-star.rkt" 10 "free-id-set.rkt" 15 (provide (struct*-out expand-context) 33 ;; If `to-parsed?` is true, the result is a `parsed` record instead of 78 #:to-parsed? [to-parsed? #f] 110 empty-free-id-set ; stops 129 (struct*-copy expand-context ctx 137 [frame-id #:parent root-expand-context (root-expand-context-frame-id root-ctx)] 203 (struct*-copy expand-context ctx 212 (struct*-copy expand-context ctx [all …]
|
H A D | cross-phase.rkt | 10 "parsed.rkt" 23 (expanded+parsed-parsed body) 53 [(make-struct-type) 55 [(make-struct-type-property) 79 (andmap parsed-#%variable-reference? (parsed-app-rands e))) 90 (define id (parsed-set!-id e)) 91 (define normal-b (parsed-id-binding id)) 93 (parsed-top-id? id) 136 (define (cross-phase-primitive-name id) 138 [(parsed-id? id) [all …]
|
H A D | module.rkt | 3 "../common/struct-star.rkt" 75 (struct*-copy expand-context ctx 237 (define ctx (struct*-copy expand-context mb-init-ctx 480 (struct*-copy expand-context ctx 593 (struct*-copy expand-context ctx 1119 (cons (struct-copy semi-parsed-begin-for-syntax (car bodys) 1288 (struct-copy expanded+parsed submod 1398 (struct*-copy expand-context ctx 1440 (struct-copy expanded+parsed submod 1441 [parsed (struct-copy parsed-module (expanded+parsed-parsed submod) [all …]
|
H A D | top.rkt | 2 (require "../common/struct-star.rkt" 13 "parsed.rkt" 16 "def-id.rkt" 28 (define-match m s '(define-values (id ...) rhs)) 29 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx)) 31 (if (expand-context-to-parsed? ctx) 43 (define-match m s '(define-syntaxes (id ...) rhs)) 44 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx)) 47 (if (expand-context-to-parsed? ctx) 64 (define capture-ctx (struct*-copy expand-context trans-ctx [all …]
|
H A D | main.rkt | 3 "../common/struct-star.rkt" 213 (parsed-id tl-id tl-b #f) 359 (parsed-primitive-id prop-s binding insp) 360 (parsed-id prop-s binding insp))] 423 (define m-ctx (struct*-copy expand-context accum-ctx 494 (struct*-copy expand-context ctx 576 (define capture-ctx (struct*-copy expand-context ctx 645 (struct*-copy expand-context ctx 666 (define parsed-rhs (if (expand-context-to-parsed? ctx) 798 (struct*-copy expand-context rhs-ctx [all …]
|
H A D | body.rkt | 2 (require "../common/struct-star.rkt" 12 "../expand/parsed.rkt" 49 (define body-ctx (struct*-copy expand-context ctx 141 (loop (struct*-copy expand-context body-ctx 198 (loop (struct*-copy expand-context body-ctx 282 (struct*-copy expand-context finish-ctx 304 (if (expand-context-to-parsed? body-ctx) 340 (if (expand-context-to-parsed? ctx) 374 (if (expand-context-to-parsed? ctx) 375 (parsed-let-values (keep-properties-only s) [all …]
|
/dports/lang/racket/racket-8.3/src/expander/expand/ |
H A D | parsed.rkt | 13 (struct parsed-id parsed (binding inspector) #:authentic) 14 (struct parsed-primitive-id parsed-id () #:authentic) 15 (struct parsed-top-id parsed-id () #:authentic) 21 (struct parsed-set! parsed (id rhs) #:authentic) 23 (struct parsed-#%variable-reference parsed (id) #:authentic) 24 (struct parsed-begin parsed (body) #:authentic) 25 (struct parsed-begin0 parsed (body) #:authentic) 26 (struct parsed-quote parsed (datum) #:authentic) 38 (struct parsed-require parsed () #:authentic) 41 (struct parsed-module parsed (star? [all …]
|
H A D | context.rkt | 3 "../common/struct-star.rkt" 10 "free-id-set.rkt" 15 (provide (struct*-out expand-context) 33 ;; If `to-parsed?` is true, the result is a `parsed` record instead of 78 #:to-parsed? [to-parsed? #f] 110 empty-free-id-set ; stops 129 (struct*-copy expand-context ctx 137 [frame-id #:parent root-expand-context (root-expand-context-frame-id root-ctx)] 203 (struct*-copy expand-context ctx 212 (struct*-copy expand-context ctx [all …]
|
H A D | cross-phase.rkt | 10 "parsed.rkt" 23 (expanded+parsed-parsed body) 53 [(make-struct-type) 55 [(make-struct-type-property) 79 (andmap parsed-#%variable-reference? (parsed-app-rands e))) 90 (define id (parsed-set!-id e)) 91 (define normal-b (parsed-id-binding id)) 93 (parsed-top-id? id) 136 (define (cross-phase-primitive-name id) 138 [(parsed-id? id) [all …]
|
H A D | module.rkt | 3 "../common/struct-star.rkt" 75 (struct*-copy expand-context ctx 237 (define ctx (struct*-copy expand-context mb-init-ctx 480 (struct*-copy expand-context ctx 593 (struct*-copy expand-context ctx 1119 (cons (struct-copy semi-parsed-begin-for-syntax (car bodys) 1288 (struct-copy expanded+parsed submod 1398 (struct*-copy expand-context ctx 1440 (struct-copy expanded+parsed submod 1441 [parsed (struct-copy parsed-module (expanded+parsed-parsed submod) [all …]
|
H A D | top.rkt | 2 (require "../common/struct-star.rkt" 13 "parsed.rkt" 16 "def-id.rkt" 28 (define-match m s '(define-values (id ...) rhs)) 29 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx)) 31 (if (expand-context-to-parsed? ctx) 43 (define-match m s '(define-syntaxes (id ...) rhs)) 44 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx)) 47 (if (expand-context-to-parsed? ctx) 64 (define capture-ctx (struct*-copy expand-context trans-ctx [all …]
|
H A D | main.rkt | 3 "../common/struct-star.rkt" 213 (parsed-id tl-id tl-b #f) 359 (parsed-primitive-id prop-s binding insp) 360 (parsed-id prop-s binding insp))] 423 (define m-ctx (struct*-copy expand-context accum-ctx 494 (struct*-copy expand-context ctx 576 (define capture-ctx (struct*-copy expand-context ctx 645 (struct*-copy expand-context ctx 666 (define parsed-rhs (if (expand-context-to-parsed? ctx) 798 (struct*-copy expand-context rhs-ctx [all …]
|
H A D | body.rkt | 2 (require "../common/struct-star.rkt" 12 "../expand/parsed.rkt" 49 (define body-ctx (struct*-copy expand-context ctx 141 (loop (struct*-copy expand-context body-ctx 198 (loop (struct*-copy expand-context body-ctx 282 (struct*-copy expand-context finish-ctx 304 (if (expand-context-to-parsed? body-ctx) 340 (if (expand-context-to-parsed? ctx) 374 (if (expand-context-to-parsed? ctx) 375 (parsed-let-values (keep-properties-only s) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/typed-racket-lib/typed-racket/typecheck/ |
H A D | tc-structs.rkt | 46 register-parsed-struct-sty! 47 register-parsed-struct-bindings!) 59 (struct parsed-struct (sty names desc struct-info type-only) #:transparent) 527 (define (register-parsed-struct-sty! ps) 529 ((parsed-struct sty names desc si type-only) 532 (define (register-parsed-struct-bindings! ps) 534 ((parsed-struct sty names desc si type-only) 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 …]
|
H A D | tc-toplevel.rkt | 123 [struct-type (lookup-type-name (Name-id t))] 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)) 657 (define toplevel-struct-making-tbl (make-free-id-table)) 685 (define parsed (parse-typed-struct form)) 686 (register-parsed-struct-sty! parsed) 687 (refine-struct-variance! (list parsed)) [all …]
|
/dports/www/p5-Parse-HTTP-UserAgent/Parse-HTTP-UserAgent-0.42/t/ |
H A D | 02-parser.t | 36 my $id = shift; 38 return $wanted{ $id }; 43 next if ! ok_to_test( $test->{id} ); 48 my $parsed = Parse::HTTP::UserAgent->new( $test->{string} ); 49 my %got = $parsed->as_hash; 51 if ( ! $test->{struct} ) { 82 $test->{struct}, 86 $test->{id} 92 Dumper( $test->{struct} );
|
/dports/www/tikiwiki/tiki-21.2/vendor_bundled/vendor/jason-munro/cypht/modules/core/ |
H A D | message_functions.php | 107 $parsed = array(); 119 list($parsed, $msg_to) = format_reply_address($headers[$fld], $parsed); 127 $parsed[] = $delivered_address; 131 $parsed += $cc_parsed; 134 list($parsed, $recips) = format_reply_address($headers['to'], $parsed); 256 * @param array $struct message structure details 264 if (array_key_exists('type', $struct) && array_key_exists('subtype', $struct)) { 265 $type = strtolower($struct['type']).strtolower($struct['subtype']); 351 $id = ''; 354 $id = $headers['message-id']; [all …]
|
/dports/lang/racket/racket-8.3/collects/racket/match/ |
H A D | match-expander.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)) 62 [(_ id kw . rest) 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) 77 (define-syntax id 88 (define-syntax id [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/racket/match/ |
H A D | match-expander.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)) 62 [(_ id kw . rest) 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) 77 (define-syntax id 88 (define-syntax id [all …]
|
/dports/devel/py-orange-canvas-core/orange-canvas-core-0.1.20/orangecanvas/scheme/tests/ |
H A D | test_readwrite.py | 105 struct = {1: [{(1, 2): ""}], 109 s = readwrite.literal_dumps(struct) 110 self.assertEqual(readwrite.literal_loads(s), struct) 122 parsed = readwrite.parse_ows_etree_v_2_0(tree) 124 self.assertIsInstance(parsed, readwrite._scheme) 125 self.assertEqual(parsed.version, "2.0") 126 self.assertTrue(len(parsed.nodes) == 2) 127 self.assertTrue(len(parsed.links) == 2) 134 parsed = readwrite.resolve_replaced(parsed, reg) 149 id="foooo", [all …]
|
/dports/mail/libetpan/libetpan-1.9.4/doc/ |
H A D | API.sgml | 3 <book id="libetpan-api"> 2840 <sect2 id="mailimf-message-id"> 4777 parsed data. 8882 parsed data. 9003 parsed data. 9127 parsed data. 9312 <sect2 id="mailmime-id-parse"> 9345 parsed data. 9554 parsed data. 9676 parsed data. [all …]
|
/dports/audio/zrythm/zrythm-1.0.0-alpha.26.0.13/doc/dev/m.css/documentation/ |
H A D | doxygen.py | 38 import struct 118 offset_struct = struct.Struct('<I') 119 flags_struct = struct.Struct('<B') 120 prefix_struct = struct.Struct('<HB') 121 suffix_length_struct = struct.Struct('<B') 122 alias_struct = struct.Struct('<H') 271 root_offset_struct = struct.Struct('<I') 272 header_struct = struct.Struct('<BB') 273 result_struct = struct.Struct('<H') 274 child_struct = struct.Struct('<I') [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/draw-lib/racket/draw/ |
H A D | gif.rkt | 11 (define-struct lsd (width height gt? res sort? gt-size bg-idx ratio)) 12 (define-struct img-desc (left top width height lct? interlace? sort? lct-size)) 13 (define-struct image (desc data ct transparent)) 140 (define parsed-blocks 141 (let loop ([parsed-blocks null] [transparent-color #f]) 147 (reverse parsed-blocks)] 164 (loop parsed-blocks t))] 173 (loop parsed-blocks transparent-color)] 176 (loop parsed-blocks transparent-color)]))] 179 (loop parsed-blocks transparent-color)])))) [all …]
|
/dports/security/py-yubikey-manager/yubikey-manager-4.0.7/yubikit/ |
H A D | oath.py | 22 import struct 108 parsed = urlparse(uri.strip()) 109 if parsed.scheme != "otpauth": 112 if parsed.hostname is None: 114 oath_type = OATH_TYPE[parsed.hostname.upper()] 148 id: bytes 164 and self.id == other.id 168 return hash((self.device_id, self.id)) 226 return struct.pack(">q", time_step) 326 data += struct.pack(b">BB", TAG_PROPERTY, PROP_REQUIRE_TOUCH) [all …]
|