| /dports/lang/mosh/mosh-0.2.7/boot/runtimes/psyntax-mosh/psyntax/ |
| H A D | expander.ss | 2392 (match-empty (vector-ref p 3) r))))
2395 ((vector) (match-empty (vector-ref p 1) r))
2416 (match-empty (vector-ref p 1) r)
2442 (match (vector->list e) (vector-ref p 1) m* s* ae* r)))
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)))
2646 (values (gen-vector e ls lsnew) maps)))
2705 (define gen-vector
[all …]
|
| /dports/lang/guile1/guile-1.8.8/ice-9/ |
| H A D | psyntax.ss | 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?))
1591 (define gen-vector
1622 (lambda () (gen-syntax e (syntax x) r '() ellipsis?))
1985 ((each) (match-empty (vector-ref p 1) r))
1987 ((vector) (match-empty (vector-ref p 1) r)))))))
2002 (match-empty (vector-ref p 1) r)
2003 (let ((l (match-each e (vector-ref p 1) w)))
[all …]
|
| H A D | psyntax.pp | 1 …gen-var-163 (lambda (syntmp-id-554) (let ((syntmp-id-555 (if (syntmp-syntax-object?-101 syntmp-id-…
6 …vector syntmp-x-1634))) syntmp-tmp-1633) ((lambda (syntmp-tmp-1636) (if syntmp-tmp-1636 (apply (la…
|
| /dports/lang/gambit-c/gambit-4.9.3/lib/ |
| H A D | psyntax69c.ss | 3051 (define gen-vector
3693 ((each) (match-empty (vector-ref p 1) r))
3694 ((each+) (match-empty (vector-ref p 1)
3695 (match-empty (reverse (vector-ref p 2))
3696 (match-empty (vector-ref p 3) r))))
3698 ((vector) (match-empty (vector-ref p 1) r)))))))
3719 (match-empty (vector-ref p 1) r)
3720 (let ((r* (match-each e (vector-ref p 1) w)))
3725 (match-each+ e (vector-ref p 1) (vector-ref p 2)
3729 (match-empty (vector-ref p 1) r)
[all …]
|
| H A D | psyntax73.ss | 3274 (define gen-vector
3962 ((each) (match-empty (vector-ref p 1) r))
3963 ((each+) (match-empty (vector-ref p 1)
3964 (match-empty (reverse (vector-ref p 2))
3965 (match-empty (vector-ref p 3) r))))
3967 ((vector) (match-empty (vector-ref p 1) r)))))))
3988 (match-empty (vector-ref p 1) r)
3989 (let ((r* (match-each e (vector-ref p 1) w)))
3994 (match-each+ e (vector-ref p 1) (vector-ref p 2)
3998 (match-empty (vector-ref p 1) r)
[all …]
|
| /dports/lang/racket/racket-8.3/share/pkgs/redex-lib/redex/private/ |
| H A D | judgment-form.rkt | 16 racket/match
49 #:methods gen:custom-write
317 (ellipsis? #'maybe-ellipsis)
593 (for ([d (in-vector without-exact-duplicates-vec)]
599 (define main (vector-ref without-exact-duplicates-vec (car v)))
607 (vector-set! without-exact-duplicates-vec dup-i #f))))
609 (for/list ([v (in-vector without-exact-duplicates-vec)]
942 …(define judgment-runtime-gen-clauses (mk-judgment-gen-clauses #,lang (λ () (judgment-runtime-gen-c…
1599 (ellipsis? #'maybe-ellipsis)
1711 (ellipsis? #'maybe-ellipsis)
[all …]
|
| /dports/lang/guile2/guile-2.2.7/gc-benchmarks/larceny/ |
| H A D | twobit-smaller.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | dynamic-input-small.sch | 297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
300 …ellipsis-pattern (lambda (.p|1 .vars|1) (let ((.make-ellipsis-pattern|2 0)) (begin (set! .make-ell…
301 …ellipsis-template (lambda (.t|1 .vars|1) (let ((.make-ellipsis-template|2 0)) (begin (set! .make-e…
303 …ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
304 …ellipsis-template? (lambda (.x|1) (let ((.ellipsis-template?|2 0)) (begin (set! .ellipsis-template…
307 …ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308 …ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309 …ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310 …ellipsis-template-vars (lambda (.t|1) (let ((.ellipsis-template-vars|2 0)) (begin (set! .ellipsis-…
[all …]
|
| H A D | twobit-input-long.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | twobit.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | dynamic-input-large.sch | 297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
303 …ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
304 …ellipsis-template? (lambda (.x|1) (let ((.ellipsis-template?|2 0)) (begin (set! .ellipsis-template…
307 …ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308 …ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309 …ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310 …ellipsis-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…
[all …]
|
| /dports/lang/guile/guile-3.0.7/gc-benchmarks/larceny/ |
| H A D | twobit-smaller.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | dynamic-input-small.sch | 297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
300 …ellipsis-pattern (lambda (.p|1 .vars|1) (let ((.make-ellipsis-pattern|2 0)) (begin (set! .make-ell…
301 …ellipsis-template (lambda (.t|1 .vars|1) (let ((.make-ellipsis-template|2 0)) (begin (set! .make-e…
303 …ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
304 …ellipsis-template? (lambda (.x|1) (let ((.ellipsis-template?|2 0)) (begin (set! .ellipsis-template…
307 …ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308 …ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309 …ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310 …ellipsis-template-vars (lambda (.t|1) (let ((.ellipsis-template-vars|2 0)) (begin (set! .ellipsis-…
[all …]
|
| H A D | twobit-input-long.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | twobit.sch | 2558 (define ellipsis-template-flag ellipsis-pattern-flag)
2563 (vector ellipsis-pattern-flag P vars))
2565 (vector ellipsis-template-flag T vars))
2575 (eq? (vector-ref x 0) ellipsis-pattern-flag)))
2580 (eq? (vector-ref x 0) ellipsis-template-flag)))
2584 (define (ellipsis-pattern P) (vector-ref P 1))
2585 (define (ellipsis-pattern-vars P) (vector-ref P 2))
2586 (define (ellipsis-template T) (vector-ref T 1))
2587 (define (ellipsis-template-vars T) (vector-ref T 2))
2768 (define (match F P answer rank)
[all …]
|
| H A D | dynamic-input-large.sch | 297 (let () (begin (set! ellipsis-pattern-flag (cons 'e '())) 'ellipsis-pattern-flag))
298 (let () (begin (set! ellipsis-template-flag ellipsis-pattern-flag) 'ellipsis-template-flag))
303 …ellipsis-pattern? (lambda (.x|1) (let ((.ellipsis-pattern?|2 0)) (begin (set! .ellipsis-pattern?|2…
304 …ellipsis-template? (lambda (.x|1) (let ((.ellipsis-template?|2 0)) (begin (set! .ellipsis-template…
307 …ellipsis-pattern (lambda (.p|1) (let ((.ellipsis-pattern|2 0)) (begin (set! .ellipsis-pattern|2 (l…
308 …ellipsis-pattern-vars (lambda (.p|1) (let ((.ellipsis-pattern-vars|2 0)) (begin (set! .ellipsis-pa…
309 …ellipsis-template (lambda (.t|1) (let ((.ellipsis-template|2 0)) (begin (set! .ellipsis-template|2…
310 …ellipsis-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…
[all …]
|
| /dports/lang/racket/racket-8.3/src/ChezScheme/s/ |
| H A D | syntax.ss | 6076 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6155 (define gen-vector
6199 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
7443 ((each) (match-empty (vector-ref p 1) r))
7444 ((each+) (match-empty (vector-ref p 1)
7448 ((box) (match-empty (vector-ref p 1) r))
7449 ((vector) (match-empty (vector-ref p 1) r)))))))
7470 (match-empty (vector-ref p 1) r)
7484 (match-each+ e (vector-ref p 1) (vector-ref p 2)
7488 (match-empty (vector-ref p 1) r)
[all …]
|
| /dports/lang/racket-minimal/racket-8.3/src/ChezScheme/s/ |
| H A D | syntax.ss | 6076 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6155 (define gen-vector
6199 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
7443 ((each) (match-empty (vector-ref p 1) r))
7444 ((each+) (match-empty (vector-ref p 1)
7448 ((box) (match-empty (vector-ref p 1) r))
7449 ((vector) (match-empty (vector-ref p 1) r)))))))
7470 (match-empty (vector-ref p 1) r)
7484 (match-each+ e (vector-ref p 1) (vector-ref p 2)
7488 (match-empty (vector-ref p 1) r)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/s/ |
| H A D | syntax.ss | 6045 (let-values ([(lsnew maps) (gen-syntax src ls r maps ellipsis? #t)])
6124 (define gen-vector
6168 (let-values ([(e maps) (gen-syntax e (syntax x) r '() ellipsis? #f)])
7398 ((each) (match-empty (vector-ref p 1) r))
7399 ((each+) (match-empty (vector-ref p 1)
7403 ((box) (match-empty (vector-ref p 1) r))
7404 ((vector) (match-empty (vector-ref p 1) r)))))))
7425 (match-empty (vector-ref p 1) r)
7439 (match-each+ e (vector-ref p 1) (vector-ref p 2)
7443 (match-empty (vector-ref p 1) r)
[all …]
|
| /dports/lang/chez-scheme/ChezScheme-9.5.4/csug/ |
| H A D | compat.stex | 44 % 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
533 (and (vector? obj)
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))
[all …]
|
| /dports/lang/racket/racket-8.3/collects/racket/contract/private/ |
| H A D | arrow-val-first.rkt | 907 (vector this->
1119 (vector this->*
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 D | arrow-val-first.rkt | 907 (vector this->
1119 (vector this->*
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/racket-8.3/doc/reference/ |
| H A D | blueboxes.rktd | 1055 (pseudo-random-generator->vector rand-gen)
1063 (vector->pseudo-random-generator! rand-gen
4406 gen:dict
4778 gen:set
5359 gen:name-id
6522 ellipsis = ...
8625 ellipsis = ...
8649 (ellipsis stat-pattern)
8679 ellipsis = ...
8695 (ellipsis stat-template)
[all …]
|
| /dports/math/giacxcas/giac-1.6.0/po/ |
| H A D | zh.po | 220 msgid "vector<int> operator /"
221 msgstr "vector<int> operator /"
224 msgid "vector<int> operator %"
225 msgstr "vector<int> operator %"
228 msgid "vector<int> operator >"
229 msgstr "vector<int> operator >"
639 msgid "Not a vector potential"
968 "as a poly of x or as a vector)"
2587 msgid "Empty ellipsis"
4146 msgid "Best match has score "
[all …]
|
| H A D | giac.pot | 217 msgid "vector<int> operator /"
221 msgid "vector<int> operator %"
225 msgid "vector<int> operator >"
632 msgid "Not a vector potential"
948 "as a poly of x or as a vector)"
2528 msgid "Empty ellipsis"
3187 msgid "Unable to convert to vector "
4071 msgid "Best match has score "
4391 msgid "List, vector, matrix delimiter"
5731 msgid "ranm: random vector/matrix"
[all …]
|