Home
last modified time | relevance | path

Searched +refs:parsed +refs:define +refs:values (Results 1 – 25 of 15552) sorted by relevance

12345678910>>...623

/dports/lang/racket-minimal/racket-8.3/src/expander/expand/
H A Dcross-phase.rkt20 (define (check-body bodys)
22 (define p (if (expanded+parsed? body)
26 [(parsed-define-values? p)
27 (check-expr (parsed-define-values-rhs p) (length (parsed-define-values-syms p)) p)]
47 (define rands (parsed-app-rands e))
90 (define id (parsed-set!-id e))
91 (define normal-b (parsed-id-binding id))
106 [(parsed-let_-values? e)
107 (for ([clause (in-list (parsed-let_-values-clauses e))])
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
[all …]
H A Dexpanded+parsed.rkt9 (struct-out semi-parsed-define-values)
18 (struct expanded+parsed (s parsed) #:authentic)
20 ;; A `define-values` or `begin-for-syntax-form` is in limbo though
22 (struct semi-parsed-define-values (s syms ids rhs) #:authentic)
25 (define (extract-syntax s)
30 (define (parsed-only l)
37 (expanded+parsed-parsed i)]
43 (define (syntax-only l)
53 (define s (semi-parsed-begin-for-syntax-s i))
54 (define nested-bodys (semi-parsed-begin-for-syntax-body i))
[all …]
H A Dexpr.rkt72 (values (if (expand-context-to-parsed? ctx)
83 (define-values (formals body)
125 (define-values (exp-formals exp-body)
171 (define (make-let-values-form #:log-tag log-tag
298 (define letrec-values-id
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
591 (define-values (t primitive? insp-of-t protected?)
654 ;; `define-values` expands without it
678 (define-values (t primitive? insp protected?) (if binding
[all …]
H A Dtop.rkt13 "parsed.rkt"
23 'define-values
25 (log-expand ctx 'prim-define-values s)
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)
32 (parsed-define-values s ids syms exp-rhs)
35 `(,(m 'define-values) ,ids ,exp-rhs)))))
44 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx))
48 (parsed-define-syntaxes s ids syms exp-rhs)
[all …]
H A Dparsed.rkt15 (struct parsed-top-id parsed-id () #:authentic)
21 (struct parsed-set! parsed (id rhs) #:authentic)
24 (struct parsed-begin parsed (body) #:authentic)
25 (struct parsed-begin0 parsed (body) #:authentic)
29 (struct parsed-let_-values parsed (idss clauses body) #:authentic)
30 (struct parsed-let-values parsed-let_-values () #:authentic)
31 (struct parsed-letrec-values parsed-let_-values () #:authentic)
33 (struct parsed-define-values parsed (ids syms rhs) #:authentic)
34 (struct parsed-define-syntaxes parsed (ids syms rhs) #:authentic)
38 (struct parsed-require parsed () #:authentic)
[all …]
H A Dmodule.rkt835 (define-values (exp-rhs parsed-rhs vals)
992 [(semi-parsed-define-values? body)
993 (define ids (semi-parsed-define-values-ids body))
995 (define syms (semi-parsed-define-values-syms body))
996 (define s (semi-parsed-define-values-s body))
1006 (parsed-define-values rebuild-s ids syms
1328 [(parsed-define-values? p)
1329 (define syms (parsed-define-values-syms p))
1330 (define ids (parsed-define-values-ids p))
1331 (eval-for-bindings 'define-values ids (parsed-define-values-rhs p) phase m-ns ctx
[all …]
/dports/lang/racket/racket-8.3/src/expander/expand/
H A Dcross-phase.rkt20 (define (check-body bodys)
22 (define p (if (expanded+parsed? body)
26 [(parsed-define-values? p)
27 (check-expr (parsed-define-values-rhs p) (length (parsed-define-values-syms p)) p)]
47 (define rands (parsed-app-rands e))
90 (define id (parsed-set!-id e))
91 (define normal-b (parsed-id-binding id))
106 [(parsed-let_-values? e)
107 (for ([clause (in-list (parsed-let_-values-clauses e))])
109 (check-body-no-disallowed-expr (parsed-let_-values-body e))]
[all …]
H A Dexpanded+parsed.rkt9 (struct-out semi-parsed-define-values)
18 (struct expanded+parsed (s parsed) #:authentic)
20 ;; A `define-values` or `begin-for-syntax-form` is in limbo though
22 (struct semi-parsed-define-values (s syms ids rhs) #:authentic)
25 (define (extract-syntax s)
30 (define (parsed-only l)
37 (expanded+parsed-parsed i)]
43 (define (syntax-only l)
53 (define s (semi-parsed-begin-for-syntax-s i))
54 (define nested-bodys (semi-parsed-begin-for-syntax-body i))
[all …]
H A Dexpr.rkt72 (values (if (expand-context-to-parsed? ctx)
83 (define-values (formals body)
125 (define-values (exp-formals exp-body)
171 (define (make-let-values-form #:log-tag log-tag
298 (define letrec-values-id
340 (parsed-letrec-values rebuild-s val-name-idss clauses exp-body)
341 (parsed-let-values rebuild-s val-name-idss clauses exp-body))
591 (define-values (t primitive? insp-of-t protected?)
654 ;; `define-values` expands without it
678 (define-values (t primitive? insp protected?) (if binding
[all …]
H A Dtop.rkt13 "parsed.rkt"
23 'define-values
25 (log-expand ctx 'prim-define-values s)
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)
32 (parsed-define-values s ids syms exp-rhs)
35 `(,(m 'define-values) ,ids ,exp-rhs)))))
44 (define-values (ids syms) (as-expand-time-top-level-bindings (m 'id) s ctx))
48 (parsed-define-syntaxes s ids syms exp-rhs)
[all …]
H A Dparsed.rkt15 (struct parsed-top-id parsed-id () #:authentic)
21 (struct parsed-set! parsed (id rhs) #:authentic)
24 (struct parsed-begin parsed (body) #:authentic)
25 (struct parsed-begin0 parsed (body) #:authentic)
29 (struct parsed-let_-values parsed (idss clauses body) #:authentic)
30 (struct parsed-let-values parsed-let_-values () #:authentic)
31 (struct parsed-letrec-values parsed-let_-values () #:authentic)
33 (struct parsed-define-values parsed (ids syms rhs) #:authentic)
34 (struct parsed-define-syntaxes parsed (ids syms rhs) #:authentic)
38 (struct parsed-require parsed () #:authentic)
[all …]
H A Dmodule.rkt835 (define-values (exp-rhs parsed-rhs vals)
992 [(semi-parsed-define-values? body)
993 (define ids (semi-parsed-define-values-ids body))
995 (define syms (semi-parsed-define-values-syms body))
996 (define s (semi-parsed-define-values-s body))
1006 (parsed-define-values rebuild-s ids syms
1328 [(parsed-define-values? p)
1329 (define syms (parsed-define-values-syms p))
1330 (define ids (parsed-define-values-ids p))
1331 (eval-for-bindings 'define-values ids (parsed-define-values-rhs p) phase m-ns ctx
[all …]
/dports/lang/racket/racket-8.3/collects/racket/contract/private/
H A Darrow-val-first.rkt205 (define rest (parsed->*-rest-ctc a-parsed->*))
206 (define rngs (parsed->*-rng-ctcs a-parsed->*))
207 (define pre (parsed->*-pre a-parsed->*))
209 (define post (parsed->*-post a-parsed->*))
250 (define rest (parsed->*-rest-ctc a-parsed->*))
251 (define rngs (parsed->*-rng-ctcs a-parsed->*))
253 (define pre (parsed->*-pre a-parsed->*))
255 (define post (parsed->*-post a-parsed->*))
1066 (values (valid-app-shapes-from-man/opts (length (parsed->*-man-dom a-parsed->*))
1086 (define pre (parsed->*-pre a-parsed->*))
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/contract/private/
H A Darrow-val-first.rkt205 (define rest (parsed->*-rest-ctc a-parsed->*))
206 (define rngs (parsed->*-rng-ctcs a-parsed->*))
207 (define pre (parsed->*-pre a-parsed->*))
209 (define post (parsed->*-post a-parsed->*))
250 (define rest (parsed->*-rest-ctc a-parsed->*))
251 (define rngs (parsed->*-rng-ctcs a-parsed->*))
253 (define pre (parsed->*-pre a-parsed->*))
255 (define post (parsed->*-post a-parsed->*))
1066 (values (valid-app-shapes-from-man/opts (length (parsed->*-man-dom a-parsed->*))
1086 (define pre (parsed->*-pre a-parsed->*))
[all …]
/dports/lang/racket/racket-8.3/src/expander/compile/
H A Dexpr.rkt40 (define s (parsed-s p))
62 (define rands (parsed-app-rands p))
95 [(parsed-let-values? p)
97 [(parsed-letrec-values? p)
100 (define datum (parsed-quote-datum p))
162 (define body (parsed-let_-values-body p))
164 `(,(if rec? 'letrec-values 'let-values)
165 ,(for/list ([clause (in-list (parsed-let_-values-clauses p))]
166 [ids (in-list (parsed-let_-values-idss p))])
184 (define normal-b (parsed-id-binding p))
[all …]
H A Dform.rkt89 [(parsed-define-values? body)
90 (for ([sym (in-list (parsed-define-values-syms body))])
112 [(parsed-define-values? body)
113 (define ids (parsed-define-values-ids body))
114 (define binding-syms (parsed-define-values-syms body))
134 (define rhs (compile (parsed-define-values-rhs body)
143 (correlate* (parsed-s body) `(define-values ,def-syms ,rhs))
162 [(parsed-define-syntaxes? body)
163 (define ids (parsed-define-syntaxes-ids body))
164 (define binding-syms (parsed-define-syntaxes-syms body))
[all …]
H A Dtop.rkt8 "../expand/parsed.rkt"
36 ;; Compile a single form, which can be a `define-values` form, a
53 (define-values (body-linklets
115 (define-values (linklet new-keys)
131 (define-values (,mpi-vector-id)
133 (define-values (,deserialized-syntax-vector-id)
135 (define-values (phase-to-link-modules) ,phase-to-link-module-uses-expr)
136 (define-values (,syntax-literals-id) ,syntax-literals-expr))))
164 [(parsed-require? p)
165 (define form-stx (compile-quote-syntax (parsed-s p) cctx))
[all …]
H A Dmodule.rkt49 (define compiled-submodules (parsed-module-compiled-submodules p))
65 (define-values (name prefix) (if (symbol? full-module-name)
86 (define (compile-module-from-parsed p cctx
99 (define self (parsed-module-self p))
100 (define requires (parsed-module-requires p))
101 (define provides (parsed-module-provides p))
105 (define bodys (parsed-module-body p))
140 (define-values (body-linklets
221 (define-values (linklet new-keys)
245 (define-values (get-encoded-root-expand-ctx)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/expander/compile/
H A Dexpr.rkt40 (define s (parsed-s p))
62 (define rands (parsed-app-rands p))
95 [(parsed-let-values? p)
97 [(parsed-letrec-values? p)
100 (define datum (parsed-quote-datum p))
162 (define body (parsed-let_-values-body p))
164 `(,(if rec? 'letrec-values 'let-values)
165 ,(for/list ([clause (in-list (parsed-let_-values-clauses p))]
166 [ids (in-list (parsed-let_-values-idss p))])
184 (define normal-b (parsed-id-binding p))
[all …]
H A Dform.rkt89 [(parsed-define-values? body)
90 (for ([sym (in-list (parsed-define-values-syms body))])
112 [(parsed-define-values? body)
113 (define ids (parsed-define-values-ids body))
114 (define binding-syms (parsed-define-values-syms body))
134 (define rhs (compile (parsed-define-values-rhs body)
143 (correlate* (parsed-s body) `(define-values ,def-syms ,rhs))
162 [(parsed-define-syntaxes? body)
163 (define ids (parsed-define-syntaxes-ids body))
164 (define binding-syms (parsed-define-syntaxes-syms body))
[all …]
H A Dtop.rkt8 "../expand/parsed.rkt"
36 ;; Compile a single form, which can be a `define-values` form, a
53 (define-values (body-linklets
115 (define-values (linklet new-keys)
131 (define-values (,mpi-vector-id)
133 (define-values (,deserialized-syntax-vector-id)
135 (define-values (phase-to-link-modules) ,phase-to-link-module-uses-expr)
136 (define-values (,syntax-literals-id) ,syntax-literals-expr))))
164 [(parsed-require? p)
165 (define form-stx (compile-quote-syntax (parsed-s p) cctx))
[all …]
H A Dmodule.rkt49 (define compiled-submodules (parsed-module-compiled-submodules p))
65 (define-values (name prefix) (if (symbol? full-module-name)
86 (define (compile-module-from-parsed p cctx
99 (define self (parsed-module-self p))
100 (define requires (parsed-module-requires p))
101 (define provides (parsed-module-provides p))
105 (define bodys (parsed-module-body p))
140 (define-values (body-linklets
221 (define-values (linklet new-keys)
245 (define-values (get-encoded-root-expand-ctx)
[all …]
/dports/audio/ampache/ampache-php74-5.0.0/vendor/openid/php-openid/Auth/
H A DOpenID.php96 define('Auth_OpenID_letters',
99 define('Auth_OpenID_digits',
102 define('Auth_OpenID_punct',
234 * @param array $values
238 static function addPrefix($values, $prefix) argument
241 foreach ($values as $s) {
434 @$parsed = parse_url($url);
436 if (!$parsed) {
440 if (isset($parsed['scheme']) &&
441 isset($parsed['host'])) {
[all …]
/dports/databases/pear-MDB2/MDB2-2.5.0b5/
H A DMDB2.php822 $parsed['phptype'] = $str;
823 $parsed['dbsyntax'] = $str;
827 return $parsed;
904 if (!array_key_exists($key, $parsed) || false === $parsed[$key]) {
912 return $parsed;
2938 $values = implode(', ', $values);
3713 public $values = array(); variable in MDB2_Result_Common
4221 var $values = array(); variable in MDB2_Statement_Common
4404 $values = (array)$values;
4405 if (!empty($values)) {
[all …]
/dports/www/tikiwiki/tiki-21.2/vendor_bundled/vendor/openid/php-openid/Auth/
H A DOpenID.php23 define('Auth_OpenID_VERSION', '2.2.2');
96 define('Auth_OpenID_letters',
99 define('Auth_OpenID_digits',
102 define('Auth_OpenID_punct',
229 static function addPrefix($values, $prefix) argument
232 foreach ($values as $s) {
418 @$parsed = parse_url($url);
420 if (!$parsed) {
424 if (isset($parsed['scheme']) &&
425 isset($parsed['host'])) {
[all …]

12345678910>>...623