Path: utzoo!utgpu!news-server.csri.toronto.edu!cs.utexas.edu!wuarchive!zaphod.mps.ohio-state.edu!uakari.primate.wisc.edu!news.larc.nasa.gov!amiga-request From: amiga-request@ab20.larc.nasa.gov (Amiga Sources/Binaries Moderator) Newsgroups: comp.sources.amiga Subject: v91i111: hd - hex dump utility, Part01/01 Message-ID: Date: 18 May 91 02:04:18 GMT Reply-To: RWALLACE%vax1.tcd.ie@CUNYVM.CUNY.EDU Lines: 295 Approved: tadguy@uunet.UU.NET (Tad Guy) X-Mail-Submissions-To: amiga@uunet.uu.net X-Post-Discussions-To: comp.sys.amiga.misc Submitted-by: RWALLACE%vax1.tcd.ie@CUNYVM.CUNY.EDU Posting-number: Volume 91, Issue 111 Archive-name: utilities/hd/part01 [ includes uuencoded executable ...tad ] Hex dump utility Usage: HD or without arg will take data from standard input #!/bin/sh # This is a shell archive. Remove anything before this line, then unpack # it by saving it into a file and typing "sh file". To overwrite existing # files, type "sh file -c". You can also feed this as standard input via # unshar, or by typing "sh 'hd.c' <<'END_OF_FILE' X/* Hex dump utility X by Russell Wallace 15 November 1989 X Usage: HD X or without arg will take data from standard input X Should compile unchanged on most operating systems X Define a constant if appropriate as follows: XAMIGA_AZTEC X*/ X X#include X Xint i,bytes[16],column,c; XFILE *fp; X Xmain (argc,argv) Xchar **argv; X{ X if (argc>2 || (argc==2 && !strcmp (argv[1],"?"))) X { X fprintf (stderr, X"Hex dump utility by Russell Wallace 15 November 1989\n\ XUsage: HD or without arg will take data from standard input\n"); X exit (1); X } X if (argc==2) X { X#ifdef AMIGA_AZTEC X if ((fp=fopen (argv[1],"r"))==0) X#else X if ((fp=fopen (argv[1],"rb"))==0) X#endif X { X fprintf (stderr, X"Error - Can't open %s\n",argv[1]); X exit (1); X } X } X else X fp=stdin; X while (!feof (fp)) X { X c=fgetc (fp); X if (feof (fp)) X break; X bytes[column++]=c; X#ifdef AMIGA_AZTEC X printf ("%02x ",c); X#else X printf ("%02X ",c); X#endif X if (column>=16) X { X printf (" "); X for (column=0;column<16;column++) X { X if (bytes[column]>31 && bytes[column]<127) X putchar (bytes[column]); X else X putchar ('.'); X } X column=0; X putchar ('\n'); X } X } X if (column) X { X for (i=column;i<16;i++) X printf (" "); X printf (" "); X for (i=0;i31 && bytes[i]<127) X putchar (bytes[column]); X else X putchar ('.'); X } X putchar ('\n'); X } X} END_OF_FILE if test 1395 -ne `wc -c <'hd.c'`; then echo shar: \"'hd.c'\" unpacked with wrong size! fi # end of 'hd.c' fi if test -f 'hd.uu' -a "${1}" != "-c" ; then echo shar: Will not clobber existing file \"'hd.uu'\" else echo shar: Extracting \"'hd.uu'\" \(9401 characters\) sed "s/^X//" >'hd.uu' <<'END_OF_FILE' Xbegin 644 hd XM```#\P`````````#``````````(```70````PP````$```/I```%T$[Z!I!.! XM50``#&T``@`(;AX,;0`"``AF+DAZ`?@@;0`*+R@`!$ZZ!%Q03TI`9AA(>@'D> XM2&R`^$ZZ!!)03S\\``%.NA065$\,;0`"``AF/$AZ`D$@;0`*+R@`!$ZZ`TQ0] XM3RE`@KQF(B!M``HO*``$2'H"(TAL@/A.N@/23^\`##\\``%.NA/45$]@"$'L- XM@,PI2(*\(&R"O`@H``,`#&8``,PO+(*\3KH"%EA/.4""NB!L@KP(*``#``QFZ XM``"P,"R"N%)L@KA(P..`0>R"F#&L@KH(`#\L@KI(>@'23KH*,%Q/#&P`$(*X\ XM;7Y(>@'&3KH*'EA/0FR"N#`L@KA(P..`0>R"F`QP`!\(`&\P,"R"N$C`XX!!_ XM[(*8#'``?P@`;!Q(;(#B,"R"N$C`XX!![(*8/S`(`$ZZ#EQ<3V`.2&R`XC\\" XM`"Y.N@Y,7$]2;(*X#&P`$(*X;:)";(*X2&R`XC\\``I.N@XN7$]@`/\J2FR"W XMN&<``)XY;(*X@I9@#DAZ`3A.N@F,6$]2;(*6#&P`$(*6;>I(>@$F3KH)=EA/% XM0FR"EF!6,"R"EDC`XX!![(*8#'``'P@`;S`P+(*62,#C@$'L@I@,<`!_"`!LY XM'$AL@.(P+(*X2,#C@$'L@I@_,`@`3KH-LEQ/8`Y(;(#B/SP`+DZZ#:)<3U)LP XM@I8P+(*6L&R"N&V@2&R`XC\\``I.N@V&7$].74YU/P!(97@@9'5M<"!U=&EL6 XM:71Y(&)Y(%)UR"A+?(9=8_*@`07 XM+RH`"!`J``U(@#\`3KH"IC@`2D!03VX42D1F!'`(8`)P$($J``QP_V``_WHP# XM!$C`)*H`"-"J``@E0``$(%)2DA`02(#`?`#_8`#_6DY5```O"DZZ#>PD0$J`* XM9@AP`"1?3EU.=2\*+RT`#"\M``AA!D_O``Q@Z$Y5``!(YP@@+RT`$$ZZ#%9!> XM[(`")$A83TH29A`Y?``%@L!P`$S?!!!.74YU($HB;0`,$!BP&68$2@!F]I`AC XM2(!G!%R*8-(_*@`$+RT`"$ZZ`*@X`+!\__]<3V8$<`!@Q"!M`!`11``-(&T`C XM$!%\``$`#"`M`!!@K$Y5```I;0`(@HY(;0`0+RT`#$AZ``Y.N@=43^\`#$Y=Y XM3G5.50``+RR"CC\M``A.N@L67$].74YU,#Q__V`$,"\`#%-`:Q0@;P`$(F\`V XM"+$)9@Q32$H85\C_]G``3G5C!'`!3G5P_TYU3E4``#\M``P_/`,!+RT`"&$&J XM4$].74YU3E4``$CG#S`D;0`(3KH/)B9L@L)X`&`.,`3!_``&2K,(`&<.4D2XO XM;(*$;>QZ!F```,0(+0`!``QG,$AX__\O"DZZ$1(L`%!/9R`O!DZZ$4HO"DZZ5 XM$-A*@%!/9@Y.NA#B.@"P?`#-9@``C$AX`^TO"DZZ$/`L`$J&4$]F8`@M````K XM#&8$>@%@;$AX`^XO"DZZ$-(L`%!/9@A.NA"F.@!@5$AX`"%(>@"23KH1;BX`@ XM4$]G"B\'3KH1&%A/8!Y(>``!2'H`@B\&3KH0W$AX__]"IR\&3KH0LD_O`!A@F XM)C`M``S`?`4`L'P%`&88+P9.NA`F>@183SE%@L!P_TS?#/!.74YU,`3!_``&2 XM)X8(`#`$P?P`!B!`TR"CK7)9@XR/``?:PAT`"+"4``$*4Z"RDCG@(`(+@`$`2EG$$OZ``A.KO_B8`9"I_-?3G-#^@`@3J[^:"E`] XM@LYF#"X\``.`!TZN_Y1@!$ZZ`!I03TYU9&]S+FQI8G)A0`!```P+(*$P?P`!B\`3KH/@"E`@L)03V840J=(>0`!``!.N@]$' XM4$\N;(+&3G4@;(+"0F@`!"!L@L(Q?``!`!`@;(+",7P``0`*(&R"QB`L@L:00 XMJ``$4(`I0(+2(&R"TB"\34%.6$*G3KH/-"1`2JH`K%A/9RXO+0`,+RT`""\*B XM3KH`KCE\``&"UB!L@L(`:(````0@;(+"`&B````*3^\`#&!"2&H`7$ZZ#TY(I XM:@!<3KH/$"E`@M@@;(+82J@`)%!/9Q`@;(+8(F@`)"\13KH.!EA/+RR"V"\*' XM3KH":"EL@MB"W%!/3KH.!B!L@L(@@$ZZ#C0@;(+"(4``!F<62'@#[4AZ`"I.2 XMN@X0(&R"PB%```Q03R\L@MP_+(+@3KKWTD)G3KH,(%!/)%].74YU*@!.50``% XM2.<,,"1M`!`@;0`(2J@`K&<8(&T`""`H`*SE@"@`($0@*``0Y8`F0&`$)FR"3 XMAA`32(!(P-"M``Q4@#E`@N)"IS`L@N)(P"\`3KH.$BE`@N103V8(3-\,,$Y=I XM3G40$TB`.@`_!2!+4H@O""\L@N1.N@%^,`5(P"!`T>R"Y$/Z`400V6;\/RT`I XM#B\*+RR"Y$ZZ`3H@;(+D0C!0`#E\``&"X#`%2,#0K(+D)D!2BR1+3^\`%!`3= XM2(`Z`+!\`"!G&+I\``EG$KI\``QG#+I\``UG!KI\``IF!%*+8-@,$P`@;7H,; XM$P`B9BY2BR!+4HL0$$B`.@!G'B!*4HH0A;I\`")F$`P3`")F!%*+8`9"*O__6 XM8`)@UF`X($M2BQ`02(`Z`&@".3KH,=BE`@NA03V8(3-\,<$Y=3G4@;0`,(F@`)"\I``1.N@RF*`!85 XM3V=22'H`;2!$+R@`-DZZ#'@F0$J`4$]G-$AX`^TO"TZZ"WHL`%!/9R0@!N6`V XM*@`@125H``@`I"5&`)Q(>`/M2'H`.$ZZ"U8E0`"@4$\O!$ZZ#$183R\L@NA.+ XMN@NH0JR"Z%A/8(!I8V]N+FQI8G)AR`2@@P``(``&;4& XMN'P`+F9:($M2BQ`02(`X`+!\`"IF&"!M__Q4K?_\.U#_]"!+4HL0$$B`.`!@H XM,D)M__1@'#`M__3!_``*T$20?``P.T#_]"!+4HL0$$B`.``P!%)`0>R`2@@P" XM``(``&;4.WP``O_PN'P`;&82($M2BQ`02(`X`#M\``3_\&`0N'P`:&8*($M2' XMBQ`02(`X`#`$2,!@>CM\``C_[F`6.WP`"O_N8`X[?``0_^Y@!CM\__;_[C\M> XM__!(;?\P/RW_[B\M__Q.NOWD*T#_ZC`M__!(P-&M__Q/[P`,8%P@;?_\6*W_? XM_")0*TG_ZB`)2AEF_)/`4XD[2?_P8$H@;?_\5*W__#@00>W_+RM(_^H0A&`HE XMD+P```!C9^)3@&>2D+P````+9P#_R"A+7(9>HD? XM7TY=3G5.50``2.<(("1M``AX`"`*9@IP_TS?!!!.74YU2BH`#&=0""H``@`,% XM9PP_//__+PIA4C@`7$\0*@`-2(`_`$ZZ!1R(0`@J``$`#%1/9PHO*@`(3KH"X XM+EA/""H`!0`,9Q(O*@`23KH"P"\J`!).N@(44$]"DD*J``1"J@`(0BH`##`$2 XM8)!.5?_^2.<(("1M``A!^O]&*4B"[`@J``0`#&<*R`S"1(2BH`#&<8U?P````60>R"A+7(90AP`"1?3EU.=6#BD XM0I)"J@`$0JH`""`*8.I.5?_\+PHD;0`(/SP$`$ZZ`,`K0/_\5$]F\``$`< XM$"!*T?P````.)4@`""1?3EU.=35\!```$`CJ``$`#"5M__P`"!`J``U(@#\`B XM3KH`XDI`5$]G!@`J`(``#&#.3E4``$CG`#`D;(*28!0F4B`J``10@"\`+PI.. XMN@1X4$\D2R`*9NA"K(*23-\,`$Y=3G5.50``+PI!^O_&*4B"\$*G("T`"%"`P XM+P!.N@0F)$!*@%!/9@AP`"1?3EU.=22L@I(E;0`(``0I2H*2(`I0@&#F3E4`I XM`'``,"T`""\`8;)83TY=3G5.50``2.<`,)?+)&R"DF`.(&T`"%&(L!``0J=.N@+T*T#_" XM_`@```Q03V<22FR"UF8(("W__$Y=3G5.N@`&<`!@]$Y5``!(>``$2'H`'$ZZY XM`?XO`$ZZ`BP_/``!3KH`#D_O``Y.74YU7D,*`$Y5``!*K(+L9P8@;(+L3I`_F XM+0`(3KH`"%1/3EU.=4Y5__PO!#`M``A(P"M`__Q*K(+"9RAX`&`*/P1.N@#^N XM5$]21+AL@H1M\#`L@H3!_``&+P`O+(+"3KH"%E!/2JR"\&<&(&R"\$Z02JR"; XMBF<*+RR"BDZZ`9)83TJL@O1G""!L@O0@K(+X2JR"_&<*+RR"_$ZZ`:Y83TJL9 XM@P!G"B\L@P!.N@&>6$]*K(,$9PHO+(,$3KH!CEA/2JR#"&<*+RR#"$ZZ`7Y8E XM3RQX``0(+@`$`2EG%"\-2_H`"DZN_^(J7V`&0J?S7TYS2JR"V&8P2JR"Y&`````4!>"L```4"````K XM````,#$R,S0U-C. Mail comments to the moderator at . Post requests for sources, and general discussion to comp.sys.amiga.misc.