Mercurial > vim

annotate src/testdir/test34.in @ 7:3fc0f57ecb91 v7.0001

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
updated for version 7.0001
author vimboss
date Sun, 13 Jun 2004 20:20:40 +0000
parents
children 8cd729851562
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
7
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
1 Test for user functions
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
3 STARTTEST
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
4 :so small.vim
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
5 :function Table(title, ...)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
6 : let ret = a:title
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
7 : let idx = 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
8 : while idx <= a:0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
9 : exe "let ret = ret . a:" . idx
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
10 : let idx = idx + 1
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
11 : endwhile
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
12 : return ret
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
13 :endfunction
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
14 :function Compute(n1, n2, divname)
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
15 : if a:n2 == 0
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
16 : return "fail"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
17 : endif
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
18 : exe "let g:" . a:divname . " = ". a:n1 / a:n2
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
19 : return "ok"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
20 :endfunction
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
21 :let retval = "nop"
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
22 /^here
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
23 C=Table("xxx", 4, "asdf")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
24 =Compute(45, 0, "retval")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
25 =retval
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
26 =Compute(45, 5, "retval")
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
27 =retval
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
28 :.wq! test.out
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
29 ENDTEST
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
30
3fc0f57ecb91 updated for version 7.0001
vimboss
parents:
diff changeset
31 here