「gawk」の正規表現・・・続き

昔の回路図データを紙にプリントしたい！

「gawk」の正規表現で

の続きで、gawkの正規表現で悩んでいます。

・やりたいこと

OrCADの部品ライブライーソースファイルの中に出てくる

こんな文字列（「'xxxx'」というふうに｢'｣で区切られている）内の

「スペース」を「_」（下線記号）に変えたい。

・例　文字列

　　'VOLTAGE REGULATOR'
　　L1  3  SHORT   IN  'PLUS INPUT'
    R1  'C2' CLK  OUT 'CLK OUT'

・なぜか

gawkの「スペースで文字列を文字単位に」分割するという

機能、「'」で区切られた文字列内にスペースがあると、

そこで切られてしまいす。

「'  '」内のスペース、これを「_」（下線記号）に変えて、

分割されないようにしたいわけで。

・条件

1行に複数個の「'  '」が出現することもある。

・試したのはこんな処理

    while(1){                                 # 「'  '」がいくつもあるかもしれないので
        match($0, /'[^']*'/);
        if(RSTART == 0)     break;   　　# 「'  '」がなければおわり
        s1 = substr($0, 1, RSTART-1);             # 「'  '」の左側
        s2 = substr($0, RSTART, RLENGTH);   # 「'  '」の部分
        s3 = substr($0, RSTART+RLENGTH);   # 「'  '」の右側
        gsub("'", "@", s2)      # 「'  '」部分の「']をいったん@に
        gsub(" ", "_", s2)       # 「'  '」部分スペースを｢_｣に
        $0 = s1 s2 s3            # あらたな$0
    }   
    gsub("@", "'", $0)         # @を｢'｣に変えて元に戻す

「'  '」が複数個出るかもということで、「']をいったん@に変えて、

1行の先頭から処理するようにしました。

gawkらしく、もっとスマートな方法は？

　　　※Cだとチカラ技で処理を進めるですが、gawkの書式はパズルです。

　　　　　1文字ずつ読み出して｢'｣が来たらスペースを｢_｣にというほうが

　　　　　良いかな。

そういや、こういった記述にも対応しないと。

R1    24   OUT 'QA'''　← QA'が信号名で 二つの｢''｣で

文字としての｢'｣を示すわけでして・・・。