Mercurial > hg > jgplsrc

annotate test/g1x1.ijs @ 0:e0bbaa717f41 draft default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
lol J
author Jordi Gutiérrez Hermoso <jordigh@octave.org>
date Mon, 25 Nov 2013 11:56:30 -0500
parents
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
1 NB. 1!:1 ----------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 dir =. 1!:0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4 read =. 1!:1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 write =. 1!:2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 size =. 1!:4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7 open =. 1!:21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 close =. 1!:22
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 erase =. 1!:55
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 x=. 9!:12 ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 win =. x e. 2 6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 mac =. x e. 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14 unix=. x e. 5 7
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 pc =. x e. 0 1 2 6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 p =. >{:4!:3 ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18 p =. < p ([ }.~ [: - |.@[ i. ]) (pc#'\'),(mac#':'),unix#'/'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 f =. p,&.><'g100.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 h =. open f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 (read f) -: read h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 (read f) -: read <h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24 (size h) -: # read h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 close h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 f =. <'foogoo5.x'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28 t =. (?1000$#a.){a.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 t write f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 h =. open f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 t -: read f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 t -: read h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 erase f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 d =. dir p,&.><(-.mac)#'*.ijs'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 (>2{"1 d) -: #@read p,&.>{."1 d
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 x=.'1'#~1 j. 1 2 4 8 4 2 1 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41 t=.read 1 NB. read from keyboard
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 1 1 1 1 1 1 1 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 t -: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 t=.read <1 NB. read from keyboard
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 1 1 1 1 1 1 1 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46 t -: x
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 'domain error' -: read etx 'a'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 'domain error' -: read etx 'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 'domain error' -: read etx 3.45
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 'domain error' -: read etx 3j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53 'rank error' -: read etx <0 1 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 'rank error' -: read etx <3 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 'rank error' -: read etx <1 3$'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 'length error' -: read etx <''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 'length error' -: read etx <i.0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 'file name error' -: read etx <'1234skidoo'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 'file number error' -: read etx 0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 'file number error' -: read etx 2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64 'file number error' -: read etx 12345 12346
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65 'file number error' -: read etx <0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 'file number error' -: read etx <2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67 'file number error' -: read etx <12345
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
69 4!:55 ;:'close d dir erase f h mac open p pc read size t unix win write x'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
70
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
71