TCL-Utilities/CAT at main · rdminfinity/TCL-Utilities · GitHub

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
55
56
57
58
59
60
61
62
63
64
65
*
    GIT.FILENAME = 'CAT'
    GIT.REPO = 'https://github.com/Krowemoh/TCL-Utilities.git'
*
* VERSION
*
    VERSION = '1'
*
    @USER1 = 'CAT'
    @USER2 = 'CAT'
*
    EQU TRUE TO 1
    EQU FALSE TO 0
*
    CALL GET.ARGUMENTS(ARGUMENTS)
*
    DICT = ''
*
    IF ARGUMENTS<2> = 'DICT' THEN
        DICT = 'DICT'
        ARGUMENTS = DELETE(ARGUMENTS,2)
        ARGS.LEN = DCOUNT(ARGUMENTS,@AM)
    END
*
    ARGS.LEN = DCOUNT(ARGUMENTS,@AM)
*
    IF ARGS.LEN = 1 THEN
        PRINT 'CAT - Print a record or a set of records'
        PRINT
        PRINT '    CAT [DICT] {FILE} {RECORD}'
        PRINT '    CAT [DICT] {FILE}'
        PRINT
        STOP
    END
*
    IF ARGS.LEN > 3 THEN
        PRINT 'Invalid number of arguments.'
        STOP
    END
*
    FILENAME = ARGUMENTS<2>
*
    OPEN DICT,FILENAME TO FILE ELSE
        PRINT 'Unable to open file: ' : FILENAME
        STOP
    END
*
    IF ARGS.LEN = 3 THEN
        RECORD = ARGUMENTS<3>
        SELECT RECORD
    END
*
    LOOP
        READNEXT ITEM.ID ELSE ITEM.ID = ''
*
    UNTIL ITEM.ID = '' DO
        READ ITEM FROM FILE,ITEM.ID ELSE ITEM = ''
        CONVERT @AM TO CHAR(10) IN ITEM
        PRINT ITEM
    REPEAT
*
* END OF PROGRAM
*
    END
*