| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/127/ |
| H A D | test.sld | 38 (test-assert (lseq? (make-lseq 1 2 3)))
50 (test 1 (lseq-car (make-lseq 1 2 3)))
62 (test 2 (lseq-car (lseq-cdr (make-lseq 1 2 3))))
67 (test 2 (lseq-car (lseq-rest (make-lseq 1 2 3))))
73 (test-error (lseq-ref (make-lseq) 0))
74 (test 1 (lseq-ref (make-lseq 1) 0))
86 (test '(3 4 5) (lseq-realize (lseq-drop (make-lseq 1 2 3 4 5) 2)))
112 (let ((one23abc (lseq-append (make-lseq 1 2 3) (make-lseq 'a 'b 'c))))
125 (test '(-1 -2 -3) (lseq-realize (lseq-map - (make-lseq 1 2 3))))
187 (test '(a b c) (lseq-realize (lseq-memq 'a (make-lseq 'a 'b 'c))))
[all …]
|
| /dports/lang/sagittarius-scheme/sagittarius-0.9.8/sitelib/srfi/%3a127/ |
| H A D | lseqs.scm | 103 (set! lseq (lseq-cdr lseq))
112 (let loop ((i 0) (lseq lseq))
122 (define (lseq-realize lseq) (lseq-length lseq) lseq)
128 (set! lseq (lseq-cdr lseq))
131 (let loop ((i 0) (lseq lseq))
174 (set! lseq (lseq-cdr lseq))
187 (let loop ((lseq lseq))
189 ((pred (lseq-car lseq)) lseq)
195 (let loop ((lseq lseq))
208 (let loop ((lseq lseq) (v #f))
[all …]
|
| /dports/lang/chibi-scheme/chibi-scheme-0.10/lib/srfi/ |
| H A D | 127.scm | 46 lseq))
49 (if (and (pair? lseq) (pred (lseq-car lseq)))
58 (set! lseq (lseq-cdr lseq))
66 (if (and (pair? lseq) (pred (lseq-car lseq)))
68 (set! lseq (lseq-cdr lseq))
76 (let lp ((lseq lseq) (ls '()))
86 (set! lseq (lseq-cdr lseq))
90 (let lp ((lseq lseq) (len 0))
142 (let lp ((lseq (apply lseq-map proc lseq o)))
170 (let any ((lseq lseq))
[all …]
|
| H A D | 127.sld | 8 lseq? lseq=?
10 lseq-car lseq-cdr
11 lseq-first lseq-rest lseq-ref
12 lseq-take lseq-drop
14 lseq-realize lseq->generator
16 lseq-append lseq-zip
18 lseq-map lseq-for-each
19 lseq-filter lseq-remove
21 lseq-find lseq-find-tail
22 lseq-any lseq-every
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/prepar/ |
| H A D | pre_multip.F | 26 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
27 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
28 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
40 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
41 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
42 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
45 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
46 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
47 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
51 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | pre_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| H A D | pre_links.F | 114 + lseq(3,i),lseq(3,i+1)-1,lseq(3,i+1),lseq(3,i+2)-1,
118 lseq(4,i+1)=lseq(4,i)
159 + lseq(3,i),lseq(3,i+1)-1,lseq(3,j),lseq(3,j+1)-1,
183 if(lseq(4,m).eq.l) lseq(4,m)=lseq(4,i)
231 do 8 k=lseq(3,i),lseq(3,i+1)-1
237 do 10 l=lseq(3,j),lseq(3,j+1)-1
253 do 15 j=lseq(3,i),lseq(3,i+1)-1
262 do 12 j=lseq(3,i),lseq(3,i+1)-1
297 do 17 j=lseq(3,i),lseq(3,i+1)-1
349 lseq(4,k)=lseq(4,llnk(1,i))
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/prepar/ |
| H A D | pre_multip.F | 26 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
27 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
28 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
40 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
41 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
42 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
45 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
46 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
47 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
51 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | pre_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| H A D | pre_links.F | 114 + lseq(3,i),lseq(3,i+1)-1,lseq(3,i+1),lseq(3,i+2)-1,
118 lseq(4,i+1)=lseq(4,i)
159 + lseq(3,i),lseq(3,i+1)-1,lseq(3,j),lseq(3,j+1)-1,
183 if(lseq(4,m).eq.l) lseq(4,m)=lseq(4,i)
231 do 8 k=lseq(3,i),lseq(3,i+1)-1
237 do 10 l=lseq(3,j),lseq(3,j+1)-1
253 do 15 j=lseq(3,i),lseq(3,i+1)-1
262 do 12 j=lseq(3,i),lseq(3,i+1)-1
297 do 17 j=lseq(3,i),lseq(3,i+1)-1
349 lseq(4,k)=lseq(4,llnk(1,i))
[all …]
|
| /dports/science/nwchem-data/nwchem-7.0.2-release/src/argos/ |
| H A D | argos_prep_multip.F | 26 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
27 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
28 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
40 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
41 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
42 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
45 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
46 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
47 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
51 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | argos_prepare_multip.F | 27 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
28 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
29 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
41 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
42 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
43 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
46 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
47 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
48 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
52 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | argos_prep_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| H A D | argos_prepare_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| H A D | argos_prep_links.F | 115 + lseq(3,i),lseq(3,i+1)-1,lseq(3,i+1),lseq(3,i+2)-1,
119 lseq(4,i+1)=lseq(4,i)
160 + lseq(3,i),lseq(3,i+1)-1,lseq(3,j),lseq(3,j+1)-1,
184 if(lseq(4,m).eq.l) lseq(4,m)=lseq(4,i)
232 do 8 k=lseq(3,i),lseq(3,i+1)-1
238 do 10 l=lseq(3,j),lseq(3,j+1)-1
254 do 15 j=lseq(3,i),lseq(3,i+1)-1
263 do 12 j=lseq(3,i),lseq(3,i+1)-1
298 do 17 j=lseq(3,i),lseq(3,i+1)-1
350 lseq(4,k)=lseq(4,llnk(1,i))
[all …]
|
| /dports/science/nwchem/nwchem-7b21660b82ebd85ef659f6fba7e1e73433b0bd0a/src/argos/ |
| H A D | argos_prepare_multip.F | 27 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
28 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
29 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
41 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
42 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
43 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
46 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
47 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
48 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
52 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | argos_prep_multip.F | 26 if(lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(2,i))).and.
27 + lseq(1,latm(5,lang(1,i))).ne.lseq(1,latm(5,lang(3,i))).and.
28 + lseq(1,latm(5,lang(2,i))).ne.lseq(1,latm(5,lang(3,i)))) then
40 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
41 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(3,i))).and.
42 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(3,i)))) then
45 if(lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(2,i))).and.
46 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
47 + lseq(1,latm(5,ldih(2,i))).ne.lseq(1,latm(5,ldih(4,i)))) then
51 + lseq(1,latm(5,ldih(1,i))).ne.lseq(1,latm(5,ldih(4,i))).and.
[all …]
|
| H A D | argos_prep_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| H A D | argos_prepare_rdseq.F | 89 lseq(4,iseq+1)=0
98 lseq(2,iseq)=0
102 lseq(1,iseq+1)=0
118 if(lseq(2,1).eq.0) lseq(2,1)=-1
119 if(lseq(2,1).eq.2) lseq(2,1)=-2
121 if(lseq(2,iseq).eq.0) lseq(2,iseq)=1
123 if(lseq(2,i).eq.0.and.lseq(2,i-1).gt.0) lseq(2,i)=-1
124 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.0) lseq(2,i-1)=1
125 if(lseq(2,i).eq.-1.and.lseq(2,i-1).eq.-1) lseq(2,i-1)=-2
126 if(lseq(2,i).gt.0.and.lseq(2,i-1).eq.-2) lseq(2,i)=-2
[all …]
|
| /dports/multimedia/libv4l/linux-5.13-rc2/drivers/scsi/aic94xx/ |
| H A D | aic94xx_dump.c | 478 asd_printk("LSEQ %d STATE\n", lseq); in asd_dump_lseq_state()
484 PRINT_LREG_8bit(asd_ha, lseq, MODEPTR); in asd_dump_lseq_state()
485 PRINT_LREG_8bit(asd_ha, lseq, ALTMODE); in asd_dump_lseq_state()
486 PRINT_LREG_8bit(asd_ha, lseq, FLAG); in asd_dump_lseq_state()
488 PRINT_LREG_16bit(asd_ha, lseq, STACK); in asd_dump_lseq_state()
490 PRINT_LREG_16bit(asd_ha, lseq, ACCUM); in asd_dump_lseq_state()
493 PRINT_LREG_8bit(asd_ha, lseq, SINDIR); in asd_dump_lseq_state()
494 PRINT_LREG_8bit(asd_ha, lseq, DINDIR); in asd_dump_lseq_state()
542 PRINT_LMIP_word(asd_ha, lseq, CONCTL); in asd_dump_lseq_state()
730 int lseq; in asd_dump_seq_state() local
[all …]
|
| H A D | aic94xx_seq.c | 131 int lseq; in asd_pause_lseq() local
209 u32 size, int lseq) in asd_verify_lseq() argument
230 lseq, page, i); in asd_verify_lseq()
255 int lseq, err; in asd_verify_seq() local
406 u8 lseq; in asd_seq_download_seqs() local
594 asd_write_reg_byte(asd_ha, LmSEQ_LINK_NUMBER(lseq), lseq); in asd_init_lseq_mip()
843 u8 lseq; in asd_init_lseq_scratch() local
848 asd_init_lseq_mip(asd_ha, lseq); in asd_init_lseq_scratch()
849 asd_init_lseq_mdp(asd_ha, lseq); in asd_init_lseq_scratch()
1158 int lseq; in asd_seq_setup_seqs() local
[all …]
|
| /dports/multimedia/v4l_compat/linux-5.13-rc2/drivers/scsi/aic94xx/ |
| H A D | aic94xx_dump.c | 478 asd_printk("LSEQ %d STATE\n", lseq); in asd_dump_lseq_state()
484 PRINT_LREG_8bit(asd_ha, lseq, MODEPTR); in asd_dump_lseq_state()
485 PRINT_LREG_8bit(asd_ha, lseq, ALTMODE); in asd_dump_lseq_state()
486 PRINT_LREG_8bit(asd_ha, lseq, FLAG); in asd_dump_lseq_state()
488 PRINT_LREG_16bit(asd_ha, lseq, STACK); in asd_dump_lseq_state()
490 PRINT_LREG_16bit(asd_ha, lseq, ACCUM); in asd_dump_lseq_state()
493 PRINT_LREG_8bit(asd_ha, lseq, SINDIR); in asd_dump_lseq_state()
494 PRINT_LREG_8bit(asd_ha, lseq, DINDIR); in asd_dump_lseq_state()
542 PRINT_LMIP_word(asd_ha, lseq, CONCTL); in asd_dump_lseq_state()
730 int lseq; in asd_dump_seq_state() local
[all …]
|
| H A D | aic94xx_seq.c | 131 int lseq; in asd_pause_lseq() local
209 u32 size, int lseq) in asd_verify_lseq() argument
230 lseq, page, i); in asd_verify_lseq()
255 int lseq, err; in asd_verify_seq() local
406 u8 lseq; in asd_seq_download_seqs() local
594 asd_write_reg_byte(asd_ha, LmSEQ_LINK_NUMBER(lseq), lseq); in asd_init_lseq_mip()
843 u8 lseq; in asd_init_lseq_scratch() local
848 asd_init_lseq_mip(asd_ha, lseq); in asd_init_lseq_scratch()
849 asd_init_lseq_mdp(asd_ha, lseq); in asd_init_lseq_scratch()
1158 int lseq; in asd_seq_setup_seqs() local
[all …]
|
| /dports/multimedia/v4l-utils/linux-5.13-rc2/drivers/scsi/aic94xx/ |
| H A D | aic94xx_dump.c | 478 asd_printk("LSEQ %d STATE\n", lseq); in asd_dump_lseq_state()
484 PRINT_LREG_8bit(asd_ha, lseq, MODEPTR); in asd_dump_lseq_state()
485 PRINT_LREG_8bit(asd_ha, lseq, ALTMODE); in asd_dump_lseq_state()
486 PRINT_LREG_8bit(asd_ha, lseq, FLAG); in asd_dump_lseq_state()
488 PRINT_LREG_16bit(asd_ha, lseq, STACK); in asd_dump_lseq_state()
490 PRINT_LREG_16bit(asd_ha, lseq, ACCUM); in asd_dump_lseq_state()
493 PRINT_LREG_8bit(asd_ha, lseq, SINDIR); in asd_dump_lseq_state()
494 PRINT_LREG_8bit(asd_ha, lseq, DINDIR); in asd_dump_lseq_state()
542 PRINT_LMIP_word(asd_ha, lseq, CONCTL); in asd_dump_lseq_state()
730 int lseq; in asd_dump_seq_state() local
[all …]
|
| H A D | aic94xx_seq.c | 131 int lseq; in asd_pause_lseq() local
209 u32 size, int lseq) in asd_verify_lseq() argument
230 lseq, page, i); in asd_verify_lseq()
255 int lseq, err; in asd_verify_seq() local
406 u8 lseq; in asd_seq_download_seqs() local
594 asd_write_reg_byte(asd_ha, LmSEQ_LINK_NUMBER(lseq), lseq); in asd_init_lseq_mip()
843 u8 lseq; in asd_init_lseq_scratch() local
848 asd_init_lseq_mip(asd_ha, lseq); in asd_init_lseq_scratch()
849 asd_init_lseq_mdp(asd_ha, lseq); in asd_init_lseq_scratch()
1158 int lseq; in asd_seq_setup_seqs() local
[all …]
|