web-dev-qa-db-ja.com

バージョン6Unixでのダンプ解除od（8進数または16進数のダンプ）

od（octal dump）コマンドはバージョン1以降Unixに実装されています。しかし、 バージョン6 Unixマニュアル （1975）に逆コマンドが見つかりませんでした。 現代的な方法odまたはxxdのいずれかでsedを逆にすることは、sedおよびawkはバージョン7でのみ登場しました（uudecode、xxd、およびbase64も利用できません）。

質問は次のとおりです。

  • 1975年の人々はどのようにして8進数または16進数のリストをバイナリファイルに変換しましたか？
  • クリップボードから端末にテキストを貼り付けることしかできないPDP-11エミュレータでこれを行うにはどうすればよいですか？ （言い換えれば、そのために私自身のプログラムを書く必要がありますか？）

odによるバイナリファイルの16進ダンプのサンプルを次に示します。これをバイナリに変換し直したいと思います。

# od -h /bin/sum
0000000 0107 00ba 0000 0204 0000 0000 0000 0001
0000020 1583 0bd6 0ac3 0601 8901 0a37 00ae 15b7
0000040 0002 8905 0000 0000 8609 15c0 0001 8904
0000060 0026 0005 01ef 706f 6472 000a 1001 0a05
0000100 1040 8903 00be 0200 870b 0bc0 030e 0ab7
0000120 007a 15c2 00be 9484 6105 0b45 7e04 01f0
0000140 15c0 0001 8904 0080 0002 09f7 0026 15c0
0000160 0001 8904 0083 0001 1dc5 0050 09f7 0014
0000200 15c0 0001 8904 0082 0001 1040 8906 01c2
0000220 203f 200a 1026 1066 1141 09f7 0006 1581
0000240 1580 0087 0a00 7217 000a 1066 1001 0302
0000260 09f7 fff0 15b7 0012 65f7 0030 000c 15c0
0000300 0001 8904 00ba 0001 0087
0000312
hexodhistorical-unix
2
Andriy Makukha

バージョン6Unixには、バージョン7でのみ登場した一般的なツール（sedやawkなど）がまだ多く含まれていないようです。その時点では、Unixもまだ商品化されていなかったため、「逆16進ダンプ」は、その操作に対する幅広い需要がなかったため、またはKen（または他のプログラマー）が非公式の/usrからそのようなツールを提供したために欠落している可能性があります。ベル研究所のディレクトリ。知るか。

しかし、これがUnixV6で16進ダンプを逆にするための私の実装です。 cc -s -O unhex.cのようにコンパイルすると、結果の実行可能ファイルはわずか1160バイトであり、ダンプよりも高速に動作します（予想どおり）。

当時のC言語にはまだBの複合代入構文（=+、=*など）があり、プログラマーがファイルI/O用に独自のバッファーを提供することを期待していたことに注目してください。

/* reverse "od -h" operation on Unix V6 */
/* written in pre-K&R C */
/* derived from wc.c and cvopt.c */

int ibuf[259];
int obuf[259];

main(argc,argv)
char **argv;
{
    int token, bytecnt;
    register char *p1, *p2;         /* input buffer pointers */
    register int c;                 /* char or read count */
    char sp, b1, b2, lastc, lastb2, nfirst;

    obuf[0] = 1;                    /* standard output by default */
    if (argc>2) {
                                    /* create output file */
            if ((obuf[0] = creat(argv[2], 0666)) < 0) {
                    diag(argv[2]);
                    diag(": failed to create\n");
                    return;
            }
    }
    if (argc>1 && fopen(argv[1], ibuf)>=0) {
            p1 = 0;
            p2 = 0;
            sp = 0;
            token = 0;
            bytecnt = 0;
            nfirst = 0;
            for(;;) {
                    /* reading from file */
                    if (p1 >= p2) {
                            p1 = &ibuf[1];
                            c = read(ibuf[0], p1, 512);
                            if (c <= 0)
                                    break;
                            p2 = p1+c;
                    }
                    /* decoding loop */
                    c = 0;
                    c =| *p1++;
                    if (c==' ' || c=='\n') {
                            b1 = token;
                            b2 = token >> 8;
                            if (lastc!=' ' && lastc!='\n') {
                                    /* end of token */
                                    if (sp>0) {
                                            if (nfirst) putc(lastb2, obuf);
                                            putc(b1, obuf);
                                            lastb2 = b2;
                                            nfirst = 1;
                                    } else {
                                            /* first token in the line */
                                            bytecnt = token;
                                    }
                            }
                            if (c==' ') sp++;
                            else {
                                    /* new line */
                                    sp = 0;
                                    fflush(obuf);
                            }
                            token = 0;
                    } else {
                            /* actual hex and octal conversion */
                            token =* sp>0 ? 16 : 8;
                            token =+ c<='9' ? c-'0' : c-'W';
                    }
                    lastc = c;
            }
            if (!(bytecnt & 1)) {
                    putc(lastb2, obuf);
                    fflush(obuf);
            }
            close(ibuf[0]);
            close(obuf[0]);
    } else if (argc>1) {
            diag(argv[1]);
            diag(": cannot open\n");
    } else {
            diag("error: filename missing\n");
    }
}

diag(s)
char *s;
{
    while(*s)
            write(2,s++,1);
}

UPD。 GitHub で、より高速でシンプルなバージョンを公開しました。ここでは、構文も強調表示されています。

3
Andriy Makukha

これは、V6Unixでコンパイルしようとする可能性のある最小限のCプログラムです。

#define EOF (-1)
int main(){
  int i,a,b;
  while(scanf("%*7o") != EOF){
    for(i = 0; i<8; i++)
      if(scanf("%2x%2x",&a,&b) != EOF){putchar(a); putchar(b);}
  }
}

結果がバイトスワップで終わる場合は、2つのputcharを反転する必要がある場合があります。

2
meuh