Home
last modified time | relevance | path

Searched +refs:match +refs:gen +refs:ellipsis (Results 1 – 25 of 1274) sorted by relevance

12345678910>>...51

/dports/lang/racket/racket-8.3/share/pkgs/redex-lib/redex/private/
H A Drg.rkt16 racket/match
186 (let ([gen (pick-from-list
629 (define named-ellipsis-rx #rx"^\\.\\.\\._[^_]*$")
637 (let ([match (regexp-match rx (symbol->string x))])
638 (and match (cadr match) (string->symbol (cadr match))))))
646 (match-lambda
648 (match ((symbol-match named-nt-rx) name)
660 ;; and after generating an ellipsis
665 (match-lambda
782 (provide (struct-out ellipsis)
[all …]
H A Djudgment-form.rkt16 racket/match
49 #:methods gen:custom-write
317 (ellipsis? #'maybe-ellipsis)
423 (define mtchs (match-pattern pat term))
430 (define mtchs (match-pattern pat term))
592 match-pattern))
942 …(define judgment-runtime-gen-clauses (mk-judgment-gen-clauses #,lang (λ () (judgment-runtime-gen-c…
1599 (ellipsis? #'maybe-ellipsis)
1711 (ellipsis? #'maybe-ellipsis)
1843 #,gen-stx
[all …]
H A Dgenerate-term.rkt3 "jdg-gen.rkt"
142 (define-struct gen-fail ())
176 (match ((make-jf-gen/proc '#,jf-id #,clauses #,lang 'pattern size))
218 (match ((make-mf-gen/proc 'mf-id mf-id #,lang 'lhs-pat 'rhs-pat size))
427 #:term-match term-match))
574 #:term-match term-match
886 (match (gen-proc)
929 ;; this raises an error if there is an ellipsis, etc. in the pattern
944 (termify (gen)))))
947 (define gen (search/next ((metafunc-proc-gen-clauses metafunc-proc))
[all …]
/dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/
H A Dexpander.ss35 ellipsis-map assertion-error
903 (define ellipsis?
2292 ((p dots) (ellipsis? dots)
2460 (define ellipsis?
2578 (define (ellipsis-map proc ls . ls*)
2598 (dots (ellipsis? dots)
2634 (gen-syntax src y r maps ellipsis? vec?)))
2639 (gen-syntax src x r maps ellipsis? #f)))
2641 (gen-syntax src y r maps ellipsis? vec?)))
2645 (gen-syntax src ls r maps ellipsis? #t)))
[all …]
/dports/lang/racket/racket-8.3/share/pkgs/drracket/drracket/private/compiled/
H A Ddebug_rkt.dep1ellipsis-snip.rkt") (collects #"drracket" #"private" #"embedded-snip-utils.rkt") (collects #"drrac…
/dports/lang/guile1/guile-1.8.8/ice-9/
H A Dpsyntax.ss1338 (define ellipsis?
1511 (lambda () (gen-syntax src y r maps ellipsis?))
1519 (lambda () (gen-syntax src (syntax x) r maps ellipsis?))
1522 (lambda () (gen-syntax src (syntax y) r maps ellipsis?))
1527 (gen-syntax src (syntax (e1 e2 ...)) r maps ellipsis?))
1622 (lambda () (gen-syntax e (syntax x) r '() ellipsis?))
1945 (define match-each
1981 ((pair? p) (match-empty (car p) (match-empty (cdr p) r)))
1989 (define match*
2015 (define match
[all …]
H A Dpsyntax.pp1gen-var-163 (lambda (syntmp-id-554) (let ((syntmp-id-555 (if (syntmp-syntax-object?-101 syntmp-id-…
/dports/lang/gambit-c/gambit-4.9.3/lib/
H A Dpsyntax69c.ss2770 (define ellipsis?
2973 (_ (let-values (((y maps) (gen-syntax src y r maps ellipsis?)))
2977 (let-values (((xnew maps) (gen-syntax src (syntax x) r maps ellipsis?)))
2978 (let-values (((ynew maps) (gen-syntax src (syntax y) r maps ellipsis?)))
2983 (let-values (((lsnew maps) (gen-syntax src ls r maps ellipsis?)))
3084 (let-values (((e maps) (gen-syntax e (syntax x) r '() ellipsis?)))
3634 (define match-each
3689 ((pair? p) (match-empty (car p) (match-empty (cdr p) r)))
3706 (define match*
3736 (define match
[all …]
H A Dpsyntax73.ss2945 (define ellipsis?
3196 (_ (let-values (((y maps) (gen-syntax src y r maps ellipsis? vec?)))
3200 (let-values (((xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)))
3201 (let-values (((ynew maps) (gen-syntax src (syntax y) r maps ellipsis? vec?)))
3206 (let-values (((lsnew maps) (gen-syntax src ls r maps ellipsis? #t)))
3307 (let-values (((e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)))
3903 (define match-each
3958 ((pair? p) (match-empty (car p) (match-empty (cdr p) r)))
3975 (define match*
4005 (define match
[all …]
/dports/lang/racket/racket-8.3/doc/redex/
H A Dblueboxes.rktd71   m : match?
104   | tl-pat ... ; a literal ellipsis
152   | ... ; literal ellipsis
373   | non-ellipsis-non-dashes-var
378 maybe-ellipsis = 
1043 (delimit-ellipsis-arguments?) -> any/c
1044 (delimit-ellipsis-arguments? delimit?) -> void?
1331 (run-gen-and-check  get-gen      
1336   get-gen : (-> (-> any/c))
1347 (run-gen-and-check/mods  gen-mod-path      
[all …]
/dports/lang/racket/racket-8.3/collects/racket/contract/private/
H A Darrow-val-first.rkt730 [ellipsis #f])
752 (when ellipsis
1474 [(for/and ([rng-gen (in-list rngs-gens)])
1475 rng-gen)
1490 (for/list ([rng-gen (in-list rngs-gens)])
1491 (rng-gen)))
1533 (for/list ([kwd-gen (in-list kwd-gens)])
1534 (kwd-gen))
1535 (for/list ([gen (in-list gens)])
1536 (gen))))
[all …]
/dports/lang/racket-minimal/racket-8.3/collects/racket/contract/private/
H A Darrow-val-first.rkt730 [ellipsis #f])
752 (when ellipsis
1474 [(for/and ([rng-gen (in-list rngs-gens)])
1475 rng-gen)
1490 (for/list ([rng-gen (in-list rngs-gens)])
1491 (rng-gen)))
1533 (for/list ([kwd-gen (in-list kwd-gens)])
1534 (kwd-gen))
1535 (for/list ([gen (in-list gens)])
1536 (gen))))
[all …]
/dports/security/keybase/client-v5.7.1/shared/stories/__tests__/__snapshots__/
H A DStoryshots.test.js.snap365871 Password confirmation does not match.
400641 className="icon color_blue icon-gen-iconfont-ellipsis"
400869 className="icon color_blue icon-gen-iconfont-ellipsis"
401097 className="icon color_blue icon-gen-iconfont-ellipsis"
401325 className="icon color_blue icon-gen-iconfont-ellipsis"
401699 className="icon color_blue icon-gen-iconfont-ellipsis"
402040 className="icon color_blue icon-gen-iconfont-ellipsis"
402381 className="icon color_blue icon-gen-iconfont-ellipsis"
402722 className="icon color_blue icon-gen-iconfont-ellipsis"
403058 className="icon color_blue icon-gen-iconfont-ellipsis"
[all …]
/dports/lang/racket/racket-8.3/src/ChezScheme/s/
H A Dsyntax.ss4526 (define ellipsis?
6033 [(ellipsis? e) (syntax-error src "misplaced ellipsis in syntax form")]
6066 (_ (let-values ([(y maps) (gen-syntax src y r maps ellipsis? vec?)])
6070 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6071 (let-values ([(ynew maps) (gen-syntax src (syntax y) r maps ellipsis? vec?)])
6076 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6079 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6199 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
6445 (ellipsis? #'dots)
6450 (ellipsis? #'dots)
[all …]
/dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/
H A Dsyntax.ss4526 (define ellipsis?
6033 [(ellipsis? e) (syntax-error src "misplaced ellipsis in syntax form")]
6066 (_ (let-values ([(y maps) (gen-syntax src y r maps ellipsis? vec?)])
6070 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6071 (let-values ([(ynew maps) (gen-syntax src (syntax y) r maps ellipsis? vec?)])
6076 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6079 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6199 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
6445 (ellipsis? #'dots)
6450 (ellipsis? #'dots)
[all …]
/dports/lang/chez-scheme/ChezScheme-9.5.4/s/
H A Dsyntax.ss4500 (define ellipsis?
6002 [(ellipsis? e) (syntax-error src "misplaced ellipsis in syntax form")]
6035 (_ (let-values ([(y maps) (gen-syntax src y r maps ellipsis? vec?)])
6039 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6040 (let-values ([(ynew maps) (gen-syntax src (syntax y) r maps ellipsis? vec?)])
6045 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6048 (let-values ([(xnew maps) (gen-syntax src (syntax x) r maps ellipsis? #f)])
6168 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
6400 (ellipsis? #'dots)
6405 (ellipsis? #'dots)
[all …]
/dports/lang/guile2/guile-2.2.7/gc-benchmarks/larceny/
H A Dtwobit-smaller.sch2461 ; scope of an ellipsis
2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2572 (define (ellipsis-pattern? x)
2766 (define (m-match F P env-def env-use)
2768 (define (match F P answer rank)
2809 (match F P empty-pattern-variable-environment 0))
5192 (rep-match f rs rep-specific caddr))
5199 (rep-match f rs rep-result caaddr))
5206 (rep-match f rs rep-informing caddr))
5209 (rep-match f rs rep-informing cadddr))
[all …]
H A Ddynamic-input-small.sch297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
303ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
307ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310ellipsis-template-vars (lambda (.t|1) (let ((.ellipsis-template-vars|2 0)) (begin (set! .ellipsis-…
457 (let () (begin (set! $mstat.gc-last-gen 8) '$mstat.gc-last-gen))
1042 (let () (begin (set! gen! (lambda (.output|1 . .instruction|1) (gen-instruction! .output|1 .instruc…
1044gen-restore! (lambda (.output|1 .frame|1) (let ((.gen-restore!|2 0)) (begin (set! .gen-restore!|2 …
[all …]
H A Dtwobit-input-long.sch2461 ; scope of an ellipsis
2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2572 (define (ellipsis-pattern? x)
2577 (define (ellipsis-template? x)
2766 (define (m-match F P env-def env-use)
2768 (define (match F P answer rank)
5192 (rep-match f rs rep-specific caddr))
5199 (rep-match f rs rep-result caaddr))
5206 (rep-match f rs rep-informing caddr))
5209 (rep-match f rs rep-informing cadddr))
[all …]
/dports/lang/guile/guile-3.0.7/gc-benchmarks/larceny/
H A Dtwobit-smaller.sch2461 ; scope of an ellipsis
2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2572 (define (ellipsis-pattern? x)
2766 (define (m-match F P env-def env-use)
2768 (define (match F P answer rank)
2809 (match F P empty-pattern-variable-environment 0))
5192 (rep-match f rs rep-specific caddr))
5199 (rep-match f rs rep-result caaddr))
5206 (rep-match f rs rep-informing caddr))
5209 (rep-match f rs rep-informing cadddr))
[all …]
H A Ddynamic-input-small.sch297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
303ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
307ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310ellipsis-template-vars (lambda (.t|1) (let ((.ellipsis-template-vars|2 0)) (begin (set! .ellipsis-…
457 (let () (begin (set! $mstat.gc-last-gen 8) '$mstat.gc-last-gen))
1042 (let () (begin (set! gen! (lambda (.output|1 . .instruction|1) (gen-instruction! .output|1 .instruc…
1044gen-restore! (lambda (.output|1 .frame|1) (let ((.gen-restore!|2 0)) (begin (set! .gen-restore!|2 …
[all …]
/dports/devel/mercurial/mercurial-6.0/mercurial/
H A Dshelve.py169 gen = exchange.readbundle(repo.ui, fp, filename, self.vfs)
173 gen,
449 def commitfunc(ui, repo, message, match, opts): argument
469 match,
479 match = scmutil.match(repo[b'.'], pats, {})
487 stat = repo.status(match=scmutil.match(repo[None], pats, opts))
497 def _shelvecreatedcommit(repo, node, name, match): argument
505 repo, [node], fp, opts=mdiff.diffopts(git=True), match=match
510 s = repo.status(match=scmutil.match(repo[None], pats, opts), unknown=True)
590 _shelvecreatedcommit(repo, node, name, match)
[all …]
/dports/multimedia/gaupol/gaupol-1.4-3-g6116d42b/po/
H A Dde.po256 msgstr "Wörter von Rechtschreibprüfungsvorschlägen zusammenfügen"
352 msgstr "Einfügen"
701 msgstr "_Einfügen"
2072 msgid "_Lengthen duration to match reading speed"
2076 msgid "_Shorten duration to match reading speed"
2392 msgid "Capitalize after an ellipsis"
2444 msgid "Space after an ellipsis"
2448 msgid "Add space after an ellipsis"
2452 msgid "Space after a starting ellipsis"
2456 msgid "Remove space after an ellipsis that starts a line"
[all …]
/dports/games/wolfpack/empire-4.4.1/
H A Dsources.mk1gen build-aux/install-sh configure.ac doc/CHANGES2.0 doc/CHANGES2.3 doc/CHANGES3.0 doc/README doc/…
/dports/lang/chez-scheme/ChezScheme-9.5.4/csug/
H A Dcompat.stex44 % syntax-match? not bothering...
197 generates attempts to match the input expression against each
203 If input does not match the pattern or if the fender returns a false
208 \index{\scheme{...}~(ellipses)}\index{ellipses (~\scheme{...}~)}\emph{ellipsis}
293 ellipsis prototype would not be sufficient to describe all possible
754 (define gen-id
772 ((constructor (gen-id #'name "make-" #'name))
773 (predicate (gen-id #'name #'name "?"))
775 (map (lambda (x) (gen-id x #'name "-" x))
778 (map (lambda (x) (gen-id x "set-" #'name "-" x "!"))

12345678910>>...51