File: rexxtest.cmd

package info (click to toggle)
unzip 5.32-1
  • links: PTS
  • area: non-free
  • in suites: hamm, slink
  • size: 3,616 kB
  • ctags: 5,353
  • sloc: ansic: 35,010; cpp: 3,775; makefile: 1,269; asm: 1,113; sh: 133
file content (54 lines) | stat: -rw-r--r-- 1,243 bytes parent folder | download | duplicates (16)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
/* Test REXX UnZip API */
call RxFuncAdd 'UZLoadFuncs', 'UNZIP32', 'UZLoadFuncs'
call UZLoadFuncs

parse arg all

say; say 'Demonstrating UZUnZip' UZUnZip(all,'TEST.')
do num=1 to test.0
  say num':'test.num
end

/*** Demonstrate UZFileTree ***/
fname = 'g:\cqc\channel1\12-30.qwk'
say; say 'Demonstrating UZFileTree by displaying all entries in',
          fname
exc.0 = 2
exc.1 = '*.dat'
exc.2 = '*.ndx'
call UZFileTree fname, 'files','','exc'
do num=1 to files.0
  say num':'files.num
end

say; say 'Demonstrating UZUnZipToVar -' UZUnZipToVar(fname,'CONTROL.DAT')


test. = 0
say; say 'Demonstrating UZUnZipToVar -' UZUnZipToVar(fname,'CONTROL.DAT','test.')
SAY "Test =" test.0
do num=1 to test.0
  say num':'test.num
end

test. = 0
say; say 'Demonstrating UZUnZipToStem -' UZUnZipToStem('\SourceCode\cqc\cqcmain.zip','test',"*.rch",,'T')
call recout "test"

say; say 'Demonstrating UZVer -' UZVer()

call UZDropFuncs
exit

recout: PROCEDURE EXPOSE test.
parse arg this
say this "Contains" value(this'.0') "entries"
do num=1 to value(this'.0')
  tval = value(this'.'num)
  say "Got" this'.'num':' tval
  if Right(tval,1) = '/' then
     call recout this'.'left(tval,length(tval)-1)
  else
     say "Contains:" value(this'.tval')
end
return