/dports/lang/racket-minimal/racket-8.3/src/regexp/match/ |
H A D | compile.rkt | 40 [(eq? rx rx:any) 44 [(rx:range? rx) 51 [(eq? rx rx:end) 69 [(rx:alts? rx) 72 [(rx:maybe? rx) 73 (if (rx:maybe-non-greedy? rx) 75 (compile (rx:maybe-rx rx) next-m)) 76 (alts-matcher (compile (rx:maybe-rx rx) next-m) 79 (define actual-r-rx (rx:repeat-rx rx)) 94 (define r-m* (compile*/maybe r-rx min max)) [all …]
|
/dports/lang/racket/racket-8.3/src/regexp/match/ |
H A D | compile.rkt | 40 [(eq? rx rx:any) 44 [(rx:range? rx) 51 [(eq? rx rx:end) 69 [(rx:alts? rx) 72 [(rx:maybe? rx) 73 (if (rx:maybe-non-greedy? rx) 75 (compile (rx:maybe-rx rx) next-m)) 76 (alts-matcher (compile (rx:maybe-rx rx) next-m) 79 (define actual-r-rx (rx:repeat-rx rx)) 94 (define r-m* (compile*/maybe r-rx min max)) [all …]
|
/dports/lang/racket/racket-8.3/src/regexp/parse/ |
H A D | main.rkt | 35 (values (rx-alts (rx-sequence rxs) rx (chytes-limit s)) pos3)] 39 (define (parse-regexp/maybe-empty s pos config) 45 (parse-regexp s pos config #:parse-regexp parse-regexp/maybe-empty)])) 77 (values (rx:maybe rx non-greedy?) pos3)] 168 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 179 (define-values (rx pos4) (parse-regexp/maybe-empty s (add1 pos3) config2)) 189 (define-values (rx pos2) (parse-regexp/maybe-empty s pos (config-group-number+1 config))) 201 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 205 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 215 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2+) config)) [all …]
|
H A D | ast.rkt | 24 (struct rx:maybe (rx non-greedy?) #:transparent) ; special case in size validation 41 [(rx:alts? rx) #t] 42 [(rx:sequence? rx) (rx:sequence-needs-backtrack? rx)] 44 [(rx:repeat? rx) #t] 45 [(rx:maybe? rx) #t] 46 [(rx:conditional? rx) (rx:conditional-needs-backtrack? rx)] 135 [(and (rx:range? rx1) (rx:alts? rx2) (rx:range? (rx:alts-rx1 rx2))) 136 (rx-alts (rx-alts rx1 (rx:alts-rx1 rx2) limit-c) 148 (define (rx-group rx n) 149 (rx:group rx n)) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/regexp/parse/ |
H A D | main.rkt | 35 (values (rx-alts (rx-sequence rxs) rx (chytes-limit s)) pos3)] 39 (define (parse-regexp/maybe-empty s pos config) 45 (parse-regexp s pos config #:parse-regexp parse-regexp/maybe-empty)])) 77 (values (rx:maybe rx non-greedy?) pos3)] 168 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 179 (define-values (rx pos4) (parse-regexp/maybe-empty s (add1 pos3) config2)) 189 (define-values (rx pos2) (parse-regexp/maybe-empty s pos (config-group-number+1 config))) 201 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 205 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2) config)) 215 (define-values (rx pos3) (parse-regexp/maybe-empty s (add1 pos2+) config)) [all …]
|
H A D | ast.rkt | 24 (struct rx:maybe (rx non-greedy?) #:transparent) ; special case in size validation 41 [(rx:alts? rx) #t] 42 [(rx:sequence? rx) (rx:sequence-needs-backtrack? rx)] 44 [(rx:repeat? rx) #t] 45 [(rx:maybe? rx) #t] 46 [(rx:conditional? rx) (rx:conditional-needs-backtrack? rx)] 135 [(and (rx:range? rx1) (rx:alts? rx2) (rx:range? (rx:alts-rx1 rx2))) 136 (rx-alts (rx-alts rx1 (rx:alts-rx1 rx2) limit-c) 148 (define (rx-group rx n) 149 (rx:group rx n)) [all …]
|
/dports/lang/racket-minimal/racket-8.3/src/regexp/analyze/ |
H A D | convert.rkt | 11 [(eq? rx rx:any) 17 [(rx:range? rx) 25 (rx-alts (convert (rx:alts-rx1 rx)) 34 [rx (convert (rx:group-rx rx))])] 37 [rx (convert (rx:repeat-rx rx))])] 38 [(rx:maybe? rx) 39 (struct-copy rx:maybe rx 40 [rx (convert (rx:maybe-rx rx))])] 48 [rx (convert (rx:lookahead-rx rx))])] 51 [rx (convert (rx:lookbehind-rx rx))])] [all …]
|
H A D | must-string.rkt | 28 [(or (rx:alts? rx) (rx:repeat? rx)) #t] 29 [(rx:maybe? rx) 30 (something-expensive? (rx:maybe-rx rx))] 37 [(rx:group? rx) 39 [(rx:cut? rx) 65 (must-string (rx:group-rx rx))] 66 [(rx:cut? rx) 67 (must-string (rx:cut-rx rx))] 80 [(rx:range? rx) (list (rx:range-range rx))] 105 (must-range (rx:group-rx rx))] [all …]
|
H A D | validate.rkt | 16 (let validate ([rx rx]) 18 [(eq? rx rx:never) 20 [(or (eq? rx rx:any) 22 (rx:range? rx)) 37 [(rx:alts? rx) 45 [(rx:group? rx) 49 [(rx:repeat? rx) 60 [(rx:maybe? rx) 61 (define-values (min1 max1 lb1) (validate (rx:maybe-rx rx))) 78 [(rx:cut? rx) [all …]
|
/dports/lang/racket/racket-8.3/src/regexp/analyze/ |
H A D | convert.rkt | 11 [(eq? rx rx:any) 17 [(rx:range? rx) 25 (rx-alts (convert (rx:alts-rx1 rx)) 34 [rx (convert (rx:group-rx rx))])] 37 [rx (convert (rx:repeat-rx rx))])] 38 [(rx:maybe? rx) 39 (struct-copy rx:maybe rx 40 [rx (convert (rx:maybe-rx rx))])] 48 [rx (convert (rx:lookahead-rx rx))])] 51 [rx (convert (rx:lookbehind-rx rx))])] [all …]
|
H A D | must-string.rkt | 28 [(or (rx:alts? rx) (rx:repeat? rx)) #t] 29 [(rx:maybe? rx) 30 (something-expensive? (rx:maybe-rx rx))] 37 [(rx:group? rx) 39 [(rx:cut? rx) 65 (must-string (rx:group-rx rx))] 66 [(rx:cut? rx) 67 (must-string (rx:cut-rx rx))] 80 [(rx:range? rx) (list (rx:range-range rx))] 105 (must-range (rx:group-rx rx))] [all …]
|
H A D | validate.rkt | 16 (let validate ([rx rx]) 18 [(eq? rx rx:never) 20 [(or (eq? rx rx:any) 22 (rx:range? rx)) 37 [(rx:alts? rx) 45 [(rx:group? rx) 49 [(rx:repeat? rx) 60 [(rx:maybe? rx) 61 (define-values (min1 max1 lb1) (validate (rx:maybe-rx rx))) 78 [(rx:cut? rx) [all …]
|
/dports/security/doscan/doscan-0.3.3/src/ |
H A D | proto_http_proxy.cc | 67 static const rx regexp_return_code; 75 typedef enum { yes, maybe, no} state; enumerator 92 const rx http_reply::regexp_return_code("^HTTP/(\\d+\\.\\d+) (\\d\\d\\d)" 99 return maybe; in return_code_available() 116 rx::matches matches; in return_code() 140 return maybe; in reply_available() 246 case http_reply::maybe: in ready() 270 case http_reply::maybe: in ready() 291 case http_reply::maybe: in ready() 310 static const rx regexp_request; [all …]
|
/dports/lang/chibi-scheme/chibi-scheme-0.10/lib/chibi/ |
H A D | regexp-test.sld | 8 (define (maybe-match->sexp rx str . o) 14 ((test-re res rx str start end) 15 (test res (maybe-match->sexp rx str start end))) 16 ((test-re res rx str start) 18 ((test-re res rx str) 19 (test-re res rx str 0)))) 21 (define (maybe-search->sexp rx str . o) 28 (test res (maybe-search->sexp rx str start end))) 29 ((test-re-search res rx str start) 31 ((test-re-search res rx str) [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/macro-debugger/tests/macro-debugger/tests/ |
H A D | syntax-macros.rkt | 46 [#:steps (remark local-lift 'a (#rx"^lifted")) 47 (macro (#%expression #rx"^lifted")) 54 (macro (#%expression #rx"^lifted")) 64 (macro (#%expression #rx"^lifted")) 70 ;; maybe don't show lifts, but do find (Tid 'a), show in orig ctx 71 ;; but maybe not a good idea 78 [#:steps (remark local-lift 'a (#rx"^lifted")) 79 (macro (#%expression #rx"^lifted")) 90 (macro (#%expression #rx"^lifted")) 103 (macro (#%expression #rx"^lifted")) [all …]
|
/dports/math/curv/curv-0.5/libcurv/ |
H A D | reactive.cc | 58 auto rx = val.maybe<Reactive_Value>(); in to_expr() local 59 if (rx) in to_expr() 60 return rx->expr(); in to_expr()
|
H A D | list.cc | 22 auto* rx = (Reactive_Value*)(&*list_); in Generic_List() local 23 if (rx->sctype_.is_list()) in Generic_List() 54 auto& rx = get_reactive_value(); in val_at() local 57 rx.sctype_.elem_type(), in val_at() 60 rx.expr(), in val_at() 219 if (auto strval = val.maybe<String>()) { in concat() 227 } else if (auto listval = val.maybe<List>()) { in concat()
|
H A D | prim.h | 95 Ref_Value& rx(x.to_ref_unsafe()); in call() 96 switch (rx.type_) { in call() 98 if (rx.subtype_ == Ref_Value::sty_list) in call() 132 SC_Type rtype = Prim::sc_result_type(rx.sctype_); in reactive_op() 137 share(cx.syntax()), rx.expr()), in reactive_op() 270 Ref_Value& rx(x.to_ref_unsafe()); in call() 271 switch (rx.type_) { in call() 360 if (auto xr = x.maybe<Reactive_Value>()) { in reactive_op() 370 if (auto yr = y.maybe<Reactive_Value>()) { in reactive_op() 669 b = a.maybe<const List>(); in unbox_left() [all …]
|
/dports/lang/racket/racket-8.3/share/pkgs/racket-doc/syntax/scribblings/ |
H A D | macro-testing.scrbl | 16 @defform/subs[(phase1-eval ct-expr maybe-quote maybe-catch?) 17 ([maybe-quote (code:line) 19 [maybe-catch? (code:line) 51 (check-exn #rx"missing an \"else\" expression" 53 (check-exn #rx"missing formals and body" 72 (check-exn #rx"^lambda: bad syntax$"
|
/dports/lang/racket/racket-8.3/share/pkgs/draw-lib/racket/draw/ |
H A D | xpm.rkt | 5 (define rx:start ; maybe skip comments here? 8 (define rx:get-string ; skips spaces, comments, commas 9 #rx#"^(?:[, \t\r\n]+|/\\*.*?\\*/)*\"([^\"\\]*)\"") 11 (define rx:color-spec 19 (cond [(regexp-match rx:get-string in) => cadr] 24 (let ([s (regexp-match rx:color-spec (get-string))] 42 (unless (regexp-match? rx:start in) (err "expected C prefix not found"))
|
/dports/lang/racket/racket-8.3/share/pkgs/syntax-color-lib/syntax-color/ |
H A D | scribble-lexer.rkt | 14 (define-struct text (scheme-rx end-rx sub-rx string-rx open-paren close-paren) #:transparent) 23 (define rx-keys (make-weak-hasheq)) 28 (let ([rx (byte-regexp bstr)]) 29 (hash-set! rxes bstr rx) 30 (hash-set! rx-keys rx (make-ephemeron rx bstr)) 31 rx)))) 34 (define rx:opener (make-rx:opener #:command-char at)) 39 (make-text rx:^@ 77 (define (maybe-no-backup type mode) 195 [(and (text-end-rx l) [all …]
|
/dports/net/rabbitmq/rabbitmq-server-3.9.11/deps/rabbitmq_random_exchange/ |
H A D | README.md | 8 There is no weighting or anything, so maybe load "balancing" might be a bit 66 rx = ch.exchange("x.rnd", durable: true, type: "x-random") 68 q1 = ch.queue("r1").bind(rx) 69 q2 = ch.queue("r2").bind(rx) 70 q3 = ch.queue("r3").bind(rx) 75 rx.publish(rand.to_s, routing_key: rand.to_s)
|
/dports/lang/ghc/ghc-8.10.7/libraries/base/GHC/Event/ |
H A D | PSQ.hs | 311 (b, maybe t (\(p, v) -> unsafeInsertNew k p v t) mbX') 313 maybe _ g (Just x) = g x function 314 maybe def _ Nothing = def function 423 Tip rk rp rx 425 | otherwise -> Bin rk rp rx m l Nil 426 Bin rk rp rx rm rl rr 428 | otherwise -> Bin rk rp rx m l (merge rm rl rr) 433 Tip rk rp rx 435 | otherwise -> Bin rk rp rx m l Nil 436 Bin rk rp rx rm rl rr [all …]
|
/dports/lang/racket/racket-8.3/collects/net/ |
H A D | url-string.rkt | 68 (if (regexp-match? rx:ipv6-hex host) 178 (define rx:ipv6-hex (regexp (string-append "^" ipv6-hex "$"))) 241 [user (uri-decode/maybe user)] 244 (regexp-match? #rx"^/" path))] 253 [fragment (uri-decode/maybe fragment)]) 262 (define (uri-decode/maybe f) (friendly-decode/maybe f uri-decode)) 264 (define (friendly-decode/maybe f uri-decode) 272 (let ([strs (regexp-split #rx"/" str)]) 276 (let ([lst (map path-segment-decode (regexp-split #rx";" s))]) 320 #rx"[/\\\\]$" [all …]
|
/dports/lang/racket-minimal/racket-8.3/collects/net/ |
H A D | url-string.rkt | 68 (if (regexp-match? rx:ipv6-hex host) 178 (define rx:ipv6-hex (regexp (string-append "^" ipv6-hex "$"))) 241 [user (uri-decode/maybe user)] 244 (regexp-match? #rx"^/" path))] 253 [fragment (uri-decode/maybe fragment)]) 262 (define (uri-decode/maybe f) (friendly-decode/maybe f uri-decode)) 264 (define (friendly-decode/maybe f uri-decode) 272 (let ([strs (regexp-split #rx"/" str)]) 276 (let ([lst (map path-segment-decode (regexp-split #rx";" s))]) 320 #rx"[/\\\\]$" [all …]
|