Mercurial > hg > jgplsrc

annotate test/g1x30.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!:30 ---------------------------------------------------------------
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
3 pc=: (9!:12 '') e. 0 1 2 6 7 NB. works on DOS or Windows only
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
5 3 : 0 ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
6 if. pc do.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
7
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
8 write =: 1!:2
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
9 open =: 1!:21
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
10 close =: 1!:22
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
11 locks =: 1!:30
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
12 lock =: 1!:31
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
13 unlock =: 1!:32
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
14
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
15 f =: <'foo.x'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
16 (128$'a') write f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
17 h =: open f
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
18
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
19 k =: locks ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
20 assert. lock h,0 8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
21 assert. lock h,8 16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
22 assert. 0 -: lock h,0 16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
23 assert. ((h,0 8),:h,8 16)e.locks ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
24
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
25 assert. unlock h,0 8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
26 assert. unlock h,8 16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
27 assert. k -: locks ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
28
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
29 assert. lock h,0 8
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
30 assert. lock h,8 16
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
31 assert. lock h,64 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
32 close h
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
33 assert. k -: locks ''
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
34
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
35 assert. 'domain error' -: lock etx 'a'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
36 assert. 'domain error' -: lock etx 'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
37 assert. 'domain error' -: lock etx 3.45
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
38 assert. 'domain error' -: lock etx 3j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
39 assert. 'domain error' -: lock etx 0;1;0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
40 assert. 'domain error' -: lock etx 4;5;6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
41
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
42 assert. 'file number error' -: lock etx 0 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
43 assert. 'file number error' -: lock etx 1 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
44 assert. 'file number error' -: lock etx 2 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
45 assert. 'file number error' -: lock etx 12345 12346,"0 1 [ 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
46
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
47 assert. 'domain error' -: unlock etx 'abc'
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
48 assert. 'domain error' -: unlock etx 3.45 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
49 assert. 'domain error' -: unlock etx 3j4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
50 assert. 'domain error' -: unlock etx 0;1;0
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
51 assert. 'domain error' -: unlock etx 4;5;6
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
52 assert. 'domain error' -: unlock etx 0 0 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
53
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
54 assert. 'index error' -: unlock etx 3
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
55 assert. 'index error' -: unlock etx 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
56 assert. 'index error' -: unlock etx 1234 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
57 assert. 'index error' -: unlock etx i.2 4
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
58 assert. 'index error' -: unlock etx 1 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
59 assert. 'index error' -: unlock etx 2 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
60 assert. 'index error' -: unlock etx 12345 12346,"0 1 [ 4 5
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
61 end.
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
62 1
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
63 )
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
64
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
65
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
66 4!:55 ;:'close f h k lock locks open pc unlock write '
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
67
Jordi Gutiérrez Hermoso <jordigh@octave.org>
parents:
diff changeset
68