FORTRAN(cutコマンドを作るその5)

自作split関数もできたので、cutコマンド作成の続きをします。
-bオプションを解析して、抽出したい列番号を配列に格納する処理を作ります。

できたのがこれです。

takk@deb9:~$ cat -n cut5.f
     1        PROGRAM MAIN
     2          INTEGER DISP_LOC(100)
     3          CHARACTER*100 ARGS
     4          CALL GETARG(1,ARGS)
     5
     6          IF(ARGS(1:2).EQ.'-b') THEN
     7            CALL B_OPT(ARGS(3:),DISP_LOC)
     8          END IF
     9          STOP
    10        END
    11
    12        SUBROUTINE B_OPT(B_OPT_STRING,DISP_LOC)
    13          CHARACTER*100 B_OPT_STRING
    14          CHARACTER*100 SSTRING1(10),SSTRING2(10)
    15          INTEGER I,SSIZE1,SSIZE2,K,L,M
    16          INTEGER DISP_LOC(100)
    17          DO 10000 I=1,100
    18            DISP_LOC(I) = 0
    19  10000   CONTINUE
    20
    21          CALL SPLIT(B_OPT_STRING,',', SSTRING1,SSIZE1)
    22          DO 10200 I=1,SSIZE1
    23            CALL SPLIT(SSTRING1(I),'-', SSTRING2,SSIZE2)
    24            IF(SSIZE2.EQ.1) THEN
    25              READ(SSTRING1(I),*) L
    26              DISP_LOC(L) = 1
    27            ELSE
    28              READ(SSTRING2(1),*) L
    29              READ(SSTRING2(2),*) M
    30              DO 10100 K=L,M
    31                DISP_LOC(K) = 1
    32  10100       CONTINUE
    33            END IF
    34
    35  10200   CONTINUE
    36        END
    37

2行目のDISP_LOC配列は、-bで指定した配列番号に目印をつけるための変数です。
B_OPT関数内の17～19行目で初期化します。
24行目で、SSIZE2が1かどうか判定してますが、ハイフン入りかどうかをチェックし、ハイフン入りなら範囲と捉えて該当するDISP_LOCの配列に1を立てます。

ではかるくGDBで確認してみます。使うGDBスクリプトはこれです。

takk@deb9:~$ cat test5
break 9
set args -b1,2,3,4,5
run
p args
p DISP_LOC

set args -b1-3,5-8
run
p args
p DISP_LOC

set args -b3,5,7-9
run
p args
p DISP_LOC

set args -b2-10
run
p args
p DISP_LOC
takk@deb9:~$

スクリプトを指定してGDB起動します。

takk@deb9:~$ gdb a.out -x test5

～

Breakpoint 1, MAIN__ () at cut5.f:9
9               STOP
$1 = '-b1,2,3,4,5', ' ' <repeats 89 times>
$2 = (1, 1, 1, 1, 1, 0, 0, 0, 0, 0, 0, 0, ～

Breakpoint 1, MAIN__ () at cut5.f:9
9               STOP
$3 = '-b1-3,5-8', ' ' <repeats 91 times>
$4 = (1, 1, 1, 0, 1, 1, 1, 1, 0, 0, 0, 0, ～

Breakpoint 1, MAIN__ () at cut5.f:9
9               STOP
$5 = '-b3,5,7-9', ' ' <repeats 91 times>
$6 = (0, 0, 1, 0, 1, 0, 1, 1, 1, 0, 0, 0, ～

Breakpoint 1, MAIN__ () at cut5.f:9
9               STOP
$7 = '-b2-10', ' ' <repeats 94 times>
$8 = (0, 1, 1, 1, 1, 1, 1, 1, 1, 1, 0, 0, ～
(gdb)

うまく配列に値が設定されました。次回はファイルから読み込んでcut表示します。