/ BBS in a Box 12 / BBS in a box XII-1.iso / Files / Tele / C / Comet2.1.3.sit / emlib / printf.c

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 00 08 70 72 69 6e 74 66 | 2e 63 00 00 00 00 00 00 |..printf|.c......|
|00000010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000040| 00 54 45 58 54 3f 3f 3f | 3f 00 00 00 00 00 00 00 |.TEXT???|?.......|
|00000050| 00 00 00 00 00 17 9f 00 | 00 01 7e a5 32 59 6c a5 |........|..~.2Yl.|
|00000060| 32 59 6c 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |2Yl.....|........|
|00000070| 00 00 00 00 00 00 00 00 | 00 00 81 81 91 b3 00 00 |........|........|
|00000080| 2f 2a 20 20 43 6f 70 79 | 72 69 67 68 74 20 31 39 |/*  Copy|right 19|
|00000090| 38 34 20 62 79 20 74 68 | 65 20 4d 61 73 73 61 63 |84 by th|e Massac|
|000000a0| 68 75 73 65 74 74 73 20 | 49 6e 73 74 69 74 75 74 |husetts |Institut|
|000000b0| 65 20 6f 66 20 54 65 63 | 68 6e 6f 6c 6f 67 79 20 |e of Tec|hnology |
|000000c0| 20 2a 2f 0d 2f 2a 20 20 | 53 65 65 20 70 65 72 6d | */./*  |See perm|
|000000d0| 69 73 73 69 6f 6e 20 61 | 6e 64 20 64 69 73 63 6c |ission a|nd discl|
|000000e0| 61 69 6d 65 72 20 6e 6f | 74 69 63 65 20 69 6e 20 |aimer no|tice in |
|000000f0| 66 69 6c 65 20 22 6e 6f | 74 69 63 65 2e 68 22 20 |file "no|tice.h" |
|00000100| 20 2a 2f 0d 0d 2f 2a 0d | 09 43 6f 70 79 72 69 67 | */../*.|.Copyrig|
|00000110| 68 74 20 43 6f 72 6e 65 | 6c 6c 20 55 6e 69 76 65 |ht Corne|ll Unive|
|00000120| 72 73 69 74 79 20 31 39 | 38 36 2e 20 20 41 6c 6c |rsity 19|86.  All|
|00000130| 20 72 69 67 68 74 73 20 | 61 72 65 20 72 65 73 65 | rights |are rese|
|00000140| 72 76 65 64 2e 0d 0d 09 | 41 73 20 6f 66 20 34 2f |rved....|As of 4/|
|00000150| 31 30 2f 38 36 3a 0d 09 | 54 68 69 73 20 73 6f 75 |10/86:..|This sou|
|00000160| 72 63 65 20 66 69 6c 65 | 20 6d 61 79 20 68 61 76 |rce file| may hav|
|00000170| 65 20 6e 6f 20 63 68 61 | 6e 67 65 73 20 66 72 6f |e no cha|nges fro|
|00000180| 6d 20 74 68 65 20 4d 2e | 49 2e 54 20 6f 72 69 67 |m the M.|I.T orig|
|00000190| 69 6e 61 6c 0d 09 6f 74 | 68 65 72 20 74 68 61 6e |inal..ot|her than|
|000001a0| 20 74 68 69 73 20 6e 6f | 74 69 63 65 3b 20 62 75 | this no|tice; bu|
|000001b0| 74 20 69 74 20 68 61 73 | 20 62 65 65 6e 20 74 65 |t it has| been te|
|000001c0| 73 74 65 64 20 61 73 20 | 70 61 72 74 20 6f 66 20 |sted as |part of |
|000001d0| 0d 09 43 6f 72 6e 65 6c | 6c 27 73 20 41 7a 74 65 |..Cornel|l's Azte|
|000001e0| 63 2d 43 20 70 6f 72 74 | 2e 20 20 53 65 65 20 6e |c-C port|.  See n|
|000001f0| 6f 74 69 63 65 2e 68 0d | 0d 2a 2f 0d 0d 2f 2a 20 |otice.h.|.*/../* |
|00000200| 39 2f 31 39 2f 38 35 20 | 6b 65 76 69 6e 20 2d 20 |9/19/85 |kevin - |
|00000210| 70 75 74 63 28 29 20 63 | 68 61 6e 67 65 64 20 74 |putc() c|hanged t|
|00000220| 6f 20 65 6d 28 29 3b 20 | 61 6c 6c 20 72 6f 75 74 |o em(); |all rout|
|00000230| 69 6e 65 28 63 68 61 72 | 2c 20 6f 75 74 61 72 67 |ine(char|, outarg|
|00000240| 29 20 2a 2f 0d 2f 2a 20 | 39 2f 32 30 2f 38 35 20 |) */./* |9/20/85 |
|00000250| 6b 65 76 69 6e 20 61 64 | 64 65 64 20 54 52 55 45 |kevin ad|ded TRUE|
|00000260| 20 26 20 46 41 4c 53 45 | 20 2a 2f 0d 2f 2a 20 39 | & FALSE| */./* 9|
|00000270| 2f 32 30 2f 38 35 20 6b | 65 76 69 6e 20 63 68 61 |/20/85 k|evin cha|
|00000280| 6e 67 65 64 20 66 6f 72 | 20 31 2d 70 61 72 61 6d |nged for| 1-param|
|00000290| 65 74 65 72 20 65 6d 28 | 63 68 61 72 29 20 2a 2f |eter em(|char) */|
|000002a0| 0d 2f 2a 20 39 2f 32 2f | 38 37 20 6b 65 76 69 6e |./* 9/2/|87 kevin|
|000002b0| 20 63 68 61 6e 67 65 64 | 20 73 6f 6d 65 20 6e 61 | changed| some na|
|000002c0| 6d 65 73 20 74 6f 20 6d | 61 6b 65 20 6e 65 77 20 |mes to m|ake new |
|000002d0| 63 6f 6d 70 69 6c 65 72 | 20 68 61 70 70 79 20 2a |compiler| happy *|
|000002e0| 2f 0d 2f 2a 20 39 2f 33 | 30 2f 38 37 20 6b 65 76 |/./* 9/3|0/87 kev|
|000002f0| 69 6e 20 72 65 6d 6f 76 | 65 64 20 63 61 6c 6c 20 |in remov|ed call |
|00000300| 74 6f 20 42 75 74 74 6f | 6e 28 29 20 69 6e 20 70 |to Butto|n() in p|
|00000310| 72 69 6e 74 66 20 77 68 | 69 63 68 20 6d 61 64 65 |rintf wh|ich made|
|00000320| 20 6d 6f 75 73 65 20 6d | 65 6e 75 20 73 65 6c 65 | mouse m|enu sele|
|00000330| 63 74 73 20 64 69 66 66 | 69 63 75 6c 74 20 77 68 |cts diff|icult wh|
|00000340| 65 6e 20 6c 6f 74 73 20 | 6f 66 20 64 61 74 61 20 |en lots |of data |
|00000350| 62 65 69 6e 67 20 72 65 | 63 27 64 20 2a 2f 0d 2f |being re|c'd */./|
|00000360| 2a 20 33 2f 31 38 2f 38 | 38 20 6b 65 76 69 6e 20 |* 3/18/8|8 kevin |
|00000370| 66 69 78 65 64 20 73 6f | 20 6e 6f 20 5c 72 20 61 |fixed so| no \r a|
|00000380| 64 64 65 64 20 69 66 20 | 6f 75 74 70 75 74 20 72 |dded if |output r|
|00000390| 6f 75 74 69 6e 65 20 6e | 6f 74 20 65 6d 28 29 20 |outine n|ot em() |
|000003a0| 2a 2f 0d 2f 2a 20 33 2f | 31 36 2f 38 39 20 6b 65 |*/./* 3/|16/89 ke|
|000003b0| 76 69 6e 20 66 69 78 65 | 64 20 74 6f 20 75 73 65 |vin fixe|d to use|
|000003c0| 20 63 75 5f 65 78 69 74 | 28 29 20 2a 2f 0d 2f 2a | cu_exit|() */./*|
|000003d0| 20 39 2f 32 36 2f 39 30 | 20 6b 65 76 69 6e 20 63 | 9/26/90| kevin c|
|000003e0| 68 61 6e 67 65 64 20 65 | 6d 20 74 6f 20 76 74 31 |hanged e|m to vt1|
|000003f0| 30 30 20 2a 2f 0d 0d 23 | 69 6e 63 6c 75 64 65 09 |00 */..#|include.|
|00000400| 3c 68 31 39 2e 68 3e 20 | 0d 23 69 6e 63 6c 75 64 |<h19.h> |.#includ|
|00000410| 65 09 3c 73 74 64 69 6f | 2e 68 3e 0d 0d 23 64 65 |e.<stdio|.h>..#de|
|00000420| 66 69 6e 65 20 54 52 55 | 45 09 28 2d 31 29 0d 23 |fine TRU|E.(-1).#|
|00000430| 64 65 66 69 6e 65 20 46 | 41 4c 53 45 09 30 0d 0d |define F|ALSE.0..|
|00000440| 23 64 65 66 69 6e 65 20 | 44 4f 45 4d 4f 55 54 50 |#define |DOEMOUTP|
|00000450| 55 54 0d 23 69 66 64 65 | 66 20 44 4f 45 4d 4f 55 |UT.#ifde|f DOEMOU|
|00000460| 54 50 55 54 0d 0d 65 78 | 74 65 72 6e 20 76 74 31 |TPUT..ex|tern vt1|
|00000470| 30 30 28 29 3b 0d 0d 23 | 75 6e 64 65 66 09 70 75 |00();..#|undef.pu|
|00000480| 74 63 68 61 72 0d 0d 70 | 75 74 63 68 61 72 28 74 |tchar..p|utchar(t|
|00000490| 68 65 63 68 61 72 29 0d | 63 68 61 72 20 74 68 65 |hechar).|char the|
|000004a0| 63 68 61 72 3b 0d 7b 0d | 09 65 6d 70 72 65 70 28 |char;.{.|.emprep(|
|000004b0| 29 3b 0d 09 76 74 31 30 | 30 28 74 68 65 63 68 61 |);..vt10|0(thecha|
|000004c0| 72 29 3b 0d 09 65 6d 65 | 6e 64 28 29 3b 0d 7d 0d |r);..eme|nd();.}.|
|000004d0| 0d 70 72 69 6e 74 66 28 | 66 6f 72 6d 61 74 29 0d |.printf(|format).|
|000004e0| 63 68 61 72 09 2a 66 6f | 72 6d 61 74 3b 20 0d 7b |char.*fo|rmat; .{|
|000004f0| 0d 09 65 6d 70 72 65 70 | 28 29 3b 0d 09 5f 66 6f |..emprep|();.._fo|
|00000500| 72 6d 61 74 5f 73 74 72 | 69 6e 67 28 76 74 31 30 |rmat_str|ing(vt10|
|00000510| 30 2c 20 73 74 64 6f 75 | 74 2c 20 26 66 6f 72 6d |0, stdou|t, &form|
|00000520| 61 74 29 3b 09 2f 2a 20 | 6b 65 76 69 6e 20 77 61 |at);./* |kevin wa|
|00000530| 73 20 70 75 74 63 20 2a | 2f 0d 09 2f 2a 20 39 2f |s putc *|/../* 9/|
|00000540| 32 30 2f 38 36 20 6b 65 | 76 69 6e 20 75 70 64 61 |20/86 ke|vin upda|
|00000550| 74 65 20 63 75 72 73 6f | 72 20 69 66 20 64 6f 6e |te curso|r if don|
|00000560| 65 20 2a 2f 0d 09 73 65 | 74 63 75 72 73 6f 72 28 |e */..se|tcursor(|
|00000570| 29 3b 0d 09 65 6d 65 6e | 64 28 29 3b 0d 7d 0d 0d |);..emen|d();.}..|
|00000580| 66 61 74 61 6c 28 66 6f | 72 6d 61 74 29 0d 63 68 |fatal(fo|rmat).ch|
|00000590| 61 72 20 2a 66 6f 72 6d | 61 74 3b 20 0d 7b 0d 0d |ar *form|at; .{..|
|000005a0| 09 65 6d 70 72 65 70 28 | 29 3b 0d 09 5f 66 6f 72 |.emprep(|);.._for|
|000005b0| 6d 61 74 5f 73 74 72 69 | 6e 67 28 76 74 31 30 30 |mat_stri|ng(vt100|
|000005c0| 2c 20 73 74 64 6f 75 74 | 2c 20 26 66 6f 72 6d 61 |, stdout|, &forma|
|000005d0| 74 29 3b 09 2f 2a 20 77 | 61 73 20 70 75 74 63 20 |t);./* w|as putc |
|000005e0| 2a 2f 0d 09 70 72 69 6e | 74 66 28 22 5c 6e 22 29 |*/..prin|tf("\n")|
|000005f0| 3b 0d 09 65 6d 65 6e 64 | 28 29 3b 0d 09 63 75 5f |;..emend|();..cu_|
|00000600| 65 78 69 74 28 31 29 3b | 0d 7d 0d 0d 23 65 6e 64 |exit(1);|.}..#end|
|00000610| 69 66 0d 0d 23 69 66 64 | 65 66 20 52 45 44 49 52 |if..#ifd|ef REDIR|
|00000620| 45 43 54 41 42 4c 45 0d | 66 70 72 69 6e 74 66 28 |ECTABLE.|fprintf(|
|00000630| 66 64 2c 20 66 6f 72 6d | 61 74 29 0d 46 49 4c 45 |fd, form|at).FILE|
|00000640| 09 2a 66 64 3b 0d 63 68 | 61 72 09 2a 66 6f 72 6d |.*fd;.ch|ar.*form|
|00000650| 61 74 3b 0d 7b 0d 09 5f | 66 6f 72 6d 61 74 5f 73 |at;.{.._|format_s|
|00000660| 74 72 69 6e 67 28 76 74 | 31 30 30 2c 20 66 64 2c |tring(vt|100, fd,|
|00000670| 20 26 66 6f 72 6d 61 74 | 29 3b 09 2f 2a 20 77 61 | &format|);./* wa|
|00000680| 73 20 70 75 74 63 20 2a | 2f 0d 7d 0d 23 65 6e 64 |s putc *|/.}.#end|
|00000690| 69 66 0d 0d 69 6e 74 09 | 73 74 6f 72 65 5f 73 74 |if..int.|store_st|
|000006a0| 72 69 6e 67 28 29 3b 0d | 63 68 61 72 09 2a 5f 73 |ring();.|char.*_s|
|000006b0| 70 3b 09 09 09 2f 2a 20 | 74 68 69 73 20 73 68 6f |p;.../* |this sho|
|000006c0| 75 6c 64 20 62 65 20 6e | 6f 74 20 62 65 20 73 74 |uld be n|ot be st|
|000006d0| 61 74 69 63 20 73 69 6e | 63 65 20 69 74 20 2a 2f |atic sin|ce it */|
|000006e0| 0d 09 09 09 09 2f 2a 20 | 69 73 20 75 73 65 64 20 |...../* |is used |
|000006f0| 62 79 20 54 43 50 27 73 | 20 70 72 69 6e 74 66 20 |by TCP's| printf |
|00000700| 61 6e 64 20 6f 74 68 65 | 72 73 20 09 20 2a 2f 0d |and othe|rs . */.|
|00000710| 0d 73 70 72 69 6e 74 66 | 28 73 2c 20 66 6f 72 6d |.sprintf|(s, form|
|00000720| 61 74 29 0d 63 68 61 72 | 09 2a 73 3b 0d 63 68 61 |at).char|.*s;.cha|
|00000730| 72 09 2a 66 6f 72 6d 61 | 74 3b 0d 7b 0d 09 5f 73 |r.*forma|t;.{.._s|
|00000740| 70 20 3d 20 73 3b 0d 09 | 5f 66 6f 72 6d 61 74 5f |p = s;..|_format_|
|00000750| 73 74 72 69 6e 67 28 73 | 74 6f 72 65 5f 73 74 72 |string(s|tore_str|
|00000760| 69 6e 67 2c 20 4e 55 4c | 4c 2c 20 26 66 6f 72 6d |ing, NUL|L, &form|
|00000770| 61 74 29 3b 0d 09 2a 5f | 73 70 20 3d 20 27 5c 30 |at);..*_|sp = '\0|
|00000780| 27 3b 0d 7d 0d 0d 73 74 | 6f 72 65 5f 73 74 72 69 |';.}..st|ore_stri|
|00000790| 6e 67 28 63 29 09 09 09 | 2f 2a 20 77 61 73 20 28 |ng(c)...|/* was (|
|000007a0| 63 2c 20 66 6f 6f 29 3b | 20 69 6e 74 09 66 6f 6f |c, foo);| int.foo|
|000007b0| 3b 2a 2f 0d 63 68 61 72 | 09 63 3b 0d 7b 0d 09 2a |;*/.char|.c;.{..*|
|000007c0| 5f 73 70 2b 2b 20 3d 20 | 63 3b 0d 7d 0d 0d 2f 2a |_sp++ = |c;.}../*|
|000007d0| 20 57 41 52 4e 49 4e 47 | 2d 2d 6b 65 76 69 6e 2d | WARNING|--kevin-|
|000007e0| 2d 20 74 68 69 73 20 72 | 6f 75 74 69 6e 65 20 77 |- this r|outine w|
|000007f0| 69 6c 6c 20 62 72 65 61 | 6b 20 69 66 20 63 68 61 |ill brea|k if cha|
|00000800| 72 20 21 3d 20 69 6e 74 | 20 6f 6e 20 74 68 65 20 |r != int| on the |
|00000810| 73 74 61 63 6b 20 2a 2f | 0d 0d 5f 66 6f 72 6d 61 |stack */|.._forma|
|00000820| 74 5f 73 74 72 69 6e 67 | 28 72 6f 75 74 69 6e 65 |t_string|(routine|
|00000830| 2c 20 6f 75 74 61 72 67 | 2c 20 64 61 74 61 29 0d |, outarg|, data).|
|00000840| 69 6e 74 09 28 2a 72 6f | 75 74 69 6e 65 29 28 29 |int.(*ro|utine)()|
|00000850| 3b 09 2f 2a 20 74 68 65 | 20 72 6f 75 74 69 6e 65 |;./* the| routine|
|00000860| 20 74 6f 20 6f 75 74 70 | 75 74 20 74 68 65 20 63 | to outp|ut the c|
|00000870| 68 61 72 61 63 74 65 72 | 73 20 2a 2f 0d 46 49 4c |haracter|s */.FIL|
|00000880| 45 20 2a 09 6f 75 74 61 | 72 67 3b 09 09 09 2f 2a |E *.outa|rg;.../*|
|00000890| 20 61 6e 20 61 72 67 75 | 6d 65 6e 74 20 74 6f 20 | an argu|ment to |
|000008a0| 70 61 73 73 20 74 6f 20 | 74 68 65 20 6f 75 74 70 |pass to |the outp|
|000008b0| 75 74 20 72 6f 75 74 69 | 6e 65 20 2a 2f 0d 63 68 |ut routi|ne */.ch|
|000008c0| 61 72 09 2a 2a 64 61 74 | 61 3b 09 09 2f 2a 20 74 |ar.**dat|a;../* t|
|000008d0| 68 65 20 61 64 64 72 65 | 73 73 20 74 6f 20 67 65 |he addre|ss to ge|
|000008e0| 74 20 74 68 65 20 66 6f | 72 6d 61 74 20 73 74 72 |t the fo|rmat str|
|000008f0| 69 6e 67 20 61 6e 64 20 | 74 68 65 20 61 72 67 75 |ing and |the argu|
|00000900| 6d 65 6e 74 73 20 66 72 | 6f 6d 20 2a 2f 0d 7b 0d |ments fr|om */.{.|
|00000910| 09 75 6e 73 69 67 6e 65 | 64 20 2a 61 72 67 3b 09 |.unsigne|d *arg;.|
|00000920| 2f 2a 20 61 20 70 6f 69 | 6e 74 65 72 20 74 6f 20 |/* a poi|nter to |
|00000930| 74 68 65 20 61 72 67 75 | 6d 65 6e 74 73 20 6f 6e |the argu|ments on|
|00000940| 20 74 68 65 20 73 74 61 | 63 6b 20 2a 2f 0d 09 63 | the sta|ck */..c|
|00000950| 68 61 72 09 2a 66 6f 72 | 6d 61 74 3b 09 2f 2a 20 |har.*for|mat;./* |
|00000960| 61 20 70 6f 69 6e 74 65 | 72 20 74 6f 20 74 68 65 |a pointe|r to the|
|00000970| 20 66 6f 72 6d 61 74 20 | 73 74 72 69 6e 67 20 2a | format |string *|
|00000980| 2f 0d 09 69 6e 74 09 66 | 69 65 6c 64 3b 09 09 09 |/..int.f|ield;...|
|00000990| 2f 2a 20 6e 75 6d 62 65 | 72 20 61 66 74 65 72 20 |/* numbe|r after |
|000009a0| 61 20 27 25 27 20 61 6e | 64 20 62 65 66 6f 72 65 |a '%' an|d before|
|000009b0| 20 74 68 65 20 66 6f 72 | 6d 61 74 20 63 68 61 72 | the for|mat char|
|000009c0| 61 63 74 65 72 20 2a 2f | 0d 09 69 6e 74 09 6c 5f |acter */|..int.l_|
|000009d0| 7a 65 72 6f 3b 09 09 09 | 2f 2a 20 66 6c 61 67 20 |zero;...|/* flag |
|000009e0| 69 73 20 74 72 75 65 20 | 69 66 20 74 68 65 20 6e |is true |if the n|
|000009f0| 75 6d 62 65 72 20 73 74 | 61 72 74 65 64 20 77 69 |umber st|arted wi|
|00000a00| 74 68 20 61 0d 09 09 09 | 09 09 09 09 20 27 30 27 |th a....|.... '0'|
|00000a10| 2c 20 69 66 20 73 6f 20 | 74 68 65 6e 20 70 72 69 |, if so |then pri|
|00000a20| 6e 74 20 6f 75 74 20 6c | 65 61 64 69 6e 67 20 7a |nt out l|eading z|
|00000a30| 65 72 6f 73 20 2a 2f 0d | 09 63 68 61 72 09 2a 73 |eros */.|.char.*s|
|00000a40| 3b 09 09 09 2f 2a 20 73 | 74 72 69 6e 67 20 70 6f |;.../* s|tring po|
|00000a50| 69 6e 74 65 72 20 66 6f | 72 20 32 6e 64 2d 6e 74 |inter fo|r 2nd-nt|
|00000a60| 68 20 61 72 67 75 6d 65 | 6e 74 73 20 2a 2f 0d 09 |h argume|nts */..|
|00000a70| 0d 09 66 6f 72 6d 61 74 | 20 3d 20 2a 64 61 74 61 |..format| = *data|
|00000a80| 3b 0d 09 61 72 67 20 3d | 20 28 75 6e 73 69 67 6e |;..arg =| (unsign|
|00000a90| 65 64 20 20 2a 29 20 64 | 61 74 61 3b 0d 09 61 72 |ed  *) d|ata;..ar|
|00000aa0| 67 20 2b 3d 20 32 3b 09 | 2f 2a 20 73 6b 69 70 20 |g += 2;.|/* skip |
|00000ab0| 66 69 72 73 74 20 61 72 | 67 2c 20 70 6f 69 6e 74 |first ar|g, point|
|00000ac0| 65 72 20 74 6f 20 66 6f | 72 6d 61 74 20 73 74 72 |er to fo|rmat str|
|00000ad0| 69 6e 67 20 2a 2f 0d 6c | 6f 6f 70 3a 09 77 68 69 |ing */.l|oop:.whi|
|00000ae0| 6c 65 20 28 28 2a 66 6f | 72 6d 61 74 20 21 3d 20 |le ((*fo|rmat != |
|00000af0| 27 25 27 29 20 26 26 20 | 28 2a 66 6f 72 6d 61 74 |'%') && |(*format|
|00000b00| 20 21 3d 20 27 5c 30 27 | 29 29 20 7b 0d 09 09 2f | != '\0'|)) {.../|
|00000b10| 2a 20 77 61 73 20 28 2a | 72 6f 75 74 69 6e 65 29 |* was (*|routine)|
|00000b20| 28 2a 66 6f 72 6d 61 74 | 2b 2b 2c 20 6f 75 74 61 |(*format|++, outa|
|00000b30| 72 67 29 3b 20 2a 2f 0d | 0d 23 69 66 64 65 66 20 |rg); */.|.#ifdef |
|00000b40| 44 4f 45 4d 4f 55 54 50 | 55 54 0d 09 09 69 66 20 |DOEMOUTP|UT...if |
|00000b50| 28 2a 66 6f 72 6d 61 74 | 20 3d 3d 20 4c 46 20 26 |(*format| == LF &|
|00000b60| 26 20 72 6f 75 74 69 6e | 65 20 3d 3d 20 76 74 31 |& routin|e == vt1|
|00000b70| 30 30 29 0d 09 09 09 2f | 2a 20 61 64 64 20 43 52 |00)..../|* add CR|
|00000b80| 20 74 6f 20 4c 46 20 66 | 6f 72 20 65 6d 75 6c 61 | to LF f|or emula|
|00000b90| 74 6f 72 20 2a 2f 0d 09 | 09 09 28 2a 72 6f 75 74 |tor */..|..(*rout|
|00000ba0| 69 6e 65 29 28 43 52 29 | 3b 0d 0d 23 65 6e 64 69 |ine)(CR)|;..#endi|
|00000bb0| 66 0d 09 09 28 2a 72 6f | 75 74 69 6e 65 29 28 2a |f...(*ro|utine)(*|
|00000bc0| 66 6f 72 6d 61 74 2b 2b | 29 3b 0d 09 7d 0d 09 69 |format++|);..}..i|
|00000bd0| 66 20 28 2a 66 6f 72 6d | 61 74 20 3d 3d 20 27 5c |f (*form|at == '\|
|00000be0| 30 27 29 0d 09 09 72 65 | 74 75 72 6e 28 30 29 3b |0')...re|turn(0);|
|00000bf0| 0d 0d 09 66 6f 72 6d 61 | 74 2b 2b 3b 0d 09 69 66 |...forma|t++;..if|
|00000c00| 20 28 2a 66 6f 72 6d 61 | 74 20 3d 3d 20 27 30 27 | (*forma|t == '0'|
|00000c10| 29 20 0d 09 09 6c 5f 7a | 65 72 6f 20 3d 20 54 52 |) ...l_z|ero = TR|
|00000c20| 55 45 3b 0d 09 65 6c 73 | 65 20 0d 09 09 6c 5f 7a |UE;..els|e ...l_z|
|00000c30| 65 72 6f 20 3d 20 46 41 | 4c 53 45 3b 0d 09 66 69 |ero = FA|LSE;..fi|
|00000c40| 65 6c 64 20 3d 20 30 3b | 0d 09 77 68 69 6c 65 20 |eld = 0;|..while |
|00000c50| 28 2a 66 6f 72 6d 61 74 | 20 3e 3d 20 27 30 27 20 |(*format| >= '0' |
|00000c60| 26 26 20 2a 66 6f 72 6d | 61 74 20 3c 3d 20 27 39 |&& *form|at <= '9|
|00000c70| 27 29 20 7b 0d 09 09 66 | 69 65 6c 64 20 3d 20 66 |') {...f|ield = f|
|00000c80| 69 65 6c 64 20 2a 20 31 | 30 20 2b 20 2a 66 6f 72 |ield * 1|0 + *for|
|00000c90| 6d 61 74 20 2d 20 27 30 | 27 3b 0d 09 09 66 6f 72 |mat - '0|';...for|
|00000ca0| 6d 61 74 2b 2b 3b 0d 09 | 7d 0d 09 73 77 69 74 63 |mat++;..|}..switc|
|00000cb0| 68 20 28 2a 66 6f 72 6d | 61 74 29 20 7b 0d 09 63 |h (*form|at) {..c|
|00000cc0| 61 73 65 20 27 73 27 3a | 0d 09 09 73 20 3d 20 2a |ase 's':|...s = *|
|00000cd0| 28 63 68 61 72 20 2a 2a | 29 61 72 67 3b 0d 09 09 |(char **|)arg;...|
|00000ce0| 77 68 69 6c 65 20 28 2a | 73 20 21 3d 20 27 5c 30 |while (*|s != '\0|
|00000cf0| 27 29 0d 09 09 09 2f 2a | 20 77 61 73 20 28 2a 72 |')..../*| was (*r|
|00000d00| 6f 75 74 69 6e 65 29 28 | 2a 73 2b 2b 2c 20 6f 75 |outine)(|*s++, ou|
|00000d10| 74 61 72 67 29 3b 20 2a | 2f 0d 09 09 09 28 2a 72 |targ); *|/....(*r|
|00000d20| 6f 75 74 69 6e 65 29 28 | 2a 73 2b 2b 29 3b 0d 09 |outine)(|*s++);..|
|00000d30| 09 61 72 67 20 2b 3d 20 | 32 3b 0d 09 09 62 72 65 |.arg += |2;...bre|
|00000d40| 61 6b 3b 0d 09 63 61 73 | 65 20 27 63 27 3a 0d 09 |ak;..cas|e 'c':..|
|00000d50| 09 2f 2a 20 77 61 73 20 | 28 2a 72 6f 75 74 69 6e |./* was |(*routin|
|00000d60| 65 29 28 2a 28 63 68 61 | 72 20 2a 29 61 72 67 2c |e)(*(cha|r *)arg,|
|00000d70| 20 6f 75 74 61 72 67 29 | 3b 20 2a 2f 0d 09 09 28 | outarg)|; */...(|
|00000d80| 2a 72 6f 75 74 69 6e 65 | 29 28 2a 61 72 67 29 3b |*routine|)(*arg);|
|00000d90| 0d 09 09 61 72 67 2b 2b | 3b 0d 09 09 62 72 65 61 |...arg++|;...brea|
|00000da0| 6b 3b 0d 09 63 61 73 65 | 20 27 25 27 3a 0d 09 09 |k;..case| '%':...|
|00000db0| 2f 2a 20 77 61 73 20 28 | 2a 72 6f 75 74 69 6e 65 |/* was (|*routine|
|00000dc0| 29 28 27 25 27 2c 20 6f | 75 74 61 72 67 29 3b 20 |)('%', o|utarg); |
|00000dd0| 2a 2f 0d 09 09 28 2a 72 | 6f 75 74 69 6e 65 29 28 |*/...(*r|outine)(|
|00000de0| 27 25 27 29 3b 0d 09 09 | 61 72 67 2b 2b 3b 0d 09 |'%');...|arg++;..|
|00000df0| 09 62 72 65 61 6b 3b 0d | 09 63 61 73 65 20 27 6f |.break;.|.case 'o|
|00000e00| 27 3a 0d 09 09 69 6e 74 | 5f 70 72 69 6e 74 28 28 |':...int|_print((|
|00000e10| 75 6e 73 69 67 6e 65 64 | 20 6c 6f 6e 67 29 2a 61 |unsigned| long)*a|
|00000e20| 72 67 2c 20 30 31 30 2c | 20 46 41 4c 53 45 2c 20 |rg, 010,| FALSE, |
|00000e30| 66 69 65 6c 64 2c 20 6c | 5f 7a 65 72 6f 2c 20 72 |field, l|_zero, r|
|00000e40| 6f 75 74 69 6e 65 2c 20 | 6f 75 74 61 72 67 29 3b |outine, |outarg);|
|00000e50| 0d 09 09 61 72 67 2b 2b | 3b 0d 09 09 62 72 65 61 |...arg++|;...brea|
|00000e60| 6b 3b 0d 09 63 61 73 65 | 20 27 4f 27 3a 0d 09 09 |k;..case| 'O':...|
|00000e70| 69 6e 74 5f 70 72 69 6e | 74 28 2a 28 75 6e 73 69 |int_prin|t(*(unsi|
|00000e80| 67 6e 65 64 20 6c 6f 6e | 67 20 2a 29 61 72 67 2c |gned lon|g *)arg,|
|00000e90| 20 30 31 30 2c 20 46 41 | 4c 53 45 2c 20 66 69 65 | 010, FA|LSE, fie|
|00000ea0| 6c 64 2c 20 6c 5f 7a 65 | 72 6f 2c 20 72 6f 75 74 |ld, l_ze|ro, rout|
|00000eb0| 69 6e 65 2c 20 6f 75 74 | 61 72 67 29 3b 0d 09 09 |ine, out|arg);...|
|00000ec0| 61 72 67 20 2b 3d 20 32 | 3b 0d 09 09 62 72 65 61 |arg += 2|;...brea|
|00000ed0| 6b 3b 0d 09 63 61 73 65 | 20 27 64 27 3a 0d 09 09 |k;..case| 'd':...|
|00000ee0| 69 6e 74 5f 70 72 69 6e | 74 28 28 6c 6f 6e 67 29 |int_prin|t((long)|
|00000ef0| 2a 28 69 6e 74 20 2a 29 | 61 72 67 2c 20 31 30 2c |*(int *)|arg, 10,|
|00000f00| 20 54 52 55 45 2c 20 66 | 69 65 6c 64 2c 20 6c 5f | TRUE, f|ield, l_|
|00000f10| 7a 65 72 6f 2c 20 72 6f | 75 74 69 6e 65 2c 20 6f |zero, ro|utine, o|
|00000f20| 75 74 61 72 67 29 3b 0d | 09 09 61 72 67 2b 2b 3b |utarg);.|..arg++;|
|00000f30| 0d 09 09 62 72 65 61 6b | 3b 0d 09 63 61 73 65 20 |...break|;..case |
|00000f40| 27 44 27 3a 0d 09 09 69 | 6e 74 5f 70 72 69 6e 74 |'D':...i|nt_print|
|00000f50| 28 2a 28 6c 6f 6e 67 20 | 2a 29 61 72 67 2c 20 31 |(*(long |*)arg, 1|
|00000f60| 30 2c 20 54 52 55 45 2c | 20 66 69 65 6c 64 2c 20 |0, TRUE,| field, |
|00000f70| 6c 5f 7a 65 72 6f 2c 20 | 72 6f 75 74 69 6e 65 2c |l_zero, |routine,|
|00000f80| 20 6f 75 74 61 72 67 29 | 3b 0d 09 09 61 72 67 20 | outarg)|;...arg |
|00000f90| 2b 3d 20 32 3b 0d 09 09 | 62 72 65 61 6b 3b 0d 09 |+= 2;...|break;..|
|00000fa0| 63 61 73 65 20 27 75 27 | 3a 0d 09 09 69 6e 74 5f |case 'u'|:...int_|
|00000fb0| 70 72 69 6e 74 28 28 75 | 6e 73 69 67 6e 65 64 20 |print((u|nsigned |
|00000fc0| 6c 6f 6e 67 29 2a 61 72 | 67 2c 20 31 30 2c 20 46 |long)*ar|g, 10, F|
|00000fd0| 41 4c 53 45 2c 20 66 69 | 65 6c 64 2c 20 6c 5f 7a |ALSE, fi|eld, l_z|
|00000fe0| 65 72 6f 2c 20 72 6f 75 | 74 69 6e 65 2c 20 6f 75 |ero, rou|tine, ou|
|00000ff0| 74 61 72 67 29 3b 0d 09 | 09 61 72 67 2b 2b 3b 0d |targ);..|.arg++;.|
|00001000| 09 09 62 72 65 61 6b 3b | 0d 09 63 61 73 65 20 27 |..break;|..case '|
|00001010| 55 27 3a 0d 09 09 69 6e | 74 5f 70 72 69 6e 74 28 |U':...in|t_print(|
|00001020| 2a 28 75 6e 73 69 67 6e | 65 64 20 6c 6f 6e 67 20 |*(unsign|ed long |
|00001030| 2a 29 61 72 67 2c 20 31 | 30 2c 20 46 41 4c 53 45 |*)arg, 1|0, FALSE|
|00001040| 2c 20 66 69 65 6c 64 2c | 20 6c 5f 7a 65 72 6f 2c |, field,| l_zero,|
|00001050| 20 72 6f 75 74 69 6e 65 | 2c 20 6f 75 74 61 72 67 | routine|, outarg|
|00001060| 29 3b 0d 09 09 61 72 67 | 20 2b 3d 20 32 3b 0d 09 |);...arg| += 2;..|
|00001070| 09 62 72 65 61 6b 3b 0d | 09 63 61 73 65 20 27 78 |.break;.|.case 'x|
|00001080| 27 3a 0d 09 09 69 6e 74 | 5f 70 72 69 6e 74 28 28 |':...int|_print((|
|00001090| 75 6e 73 69 67 6e 65 64 | 20 6c 6f 6e 67 29 2a 61 |unsigned| long)*a|
|000010a0| 72 67 2c 20 30 78 31 30 | 2c 20 46 41 4c 53 45 2c |rg, 0x10|, FALSE,|
|000010b0| 20 66 69 65 6c 64 2c 20 | 6c 5f 7a 65 72 6f 2c 20 | field, |l_zero, |
|000010c0| 72 6f 75 74 69 6e 65 2c | 20 6f 75 74 61 72 67 29 |routine,| outarg)|
|000010d0| 3b 0d 09 09 61 72 67 2b | 2b 3b 0d 09 09 62 72 65 |;...arg+|+;...bre|
|000010e0| 61 6b 3b 0d 09 63 61 73 | 65 20 27 58 27 3a 0d 09 |ak;..cas|e 'X':..|
|000010f0| 09 69 6e 74 5f 70 72 69 | 6e 74 28 2a 28 75 6e 73 |.int_pri|nt(*(uns|
|00001100| 69 67 6e 65 64 20 6c 6f | 6e 67 20 2a 29 61 72 67 |igned lo|ng *)arg|
|00001110| 2c 20 30 78 31 30 2c 20 | 46 41 4c 53 45 2c 20 66 |, 0x10, |FALSE, f|
|00001120| 69 65 6c 64 2c 20 6c 5f | 7a 65 72 6f 2c 20 72 6f |ield, l_|zero, ro|
|00001130| 75 74 69 6e 65 2c 20 6f | 75 74 61 72 67 29 3b 0d |utine, o|utarg);.|
|00001140| 09 09 61 72 67 20 2b 3d | 20 32 3b 0d 09 09 62 72 |..arg +=| 2;...br|
|00001150| 65 61 6b 3b 0d 0d 23 64 | 65 66 69 6e 65 09 6d 6b |eak;..#d|efine.mk|
|00001160| 62 79 74 65 28 78 29 09 | 28 28 28 75 6e 73 69 67 |byte(x).|(((unsig|
|00001170| 6e 65 64 29 28 78 29 29 | 26 30 78 66 66 29 0d 09 |ned)(x))|&0xff)..|
|00001180| 63 61 73 65 20 27 61 27 | 3a 20 7b 0d 09 09 75 6e |case 'a'|: {...un|
|00001190| 69 6f 6e 20 7b 0d 09 09 | 09 6c 6f 6e 67 20 5f 6c |ion {...|.long _l|
|000011a0| 3b 0d 09 09 09 63 68 61 | 72 20 5f 63 5b 34 5d 3b |;....cha|r _c[4];|
|000011b0| 0d 09 09 7d 20 66 6f 6f | 3b 0d 0d 09 09 66 6f 6f |...} foo|;....foo|
|000011c0| 2e 5f 6c 20 3d 20 2a 28 | 6c 6f 6e 67 20 2a 29 61 |._l = *(|long *)a|
|000011d0| 72 67 3b 0d 09 09 61 72 | 67 20 2b 3d 20 32 3b 0d |rg;...ar|g += 2;.|
|000011e0| 0d 09 09 5f 70 72 5f 69 | 70 28 72 6f 75 74 69 6e |..._pr_i|p(routin|
|000011f0| 65 2c 20 6f 75 74 61 72 | 67 2c 20 22 25 64 2e 25 |e, outar|g, "%d.%|
|00001200| 64 2e 25 64 2e 25 64 22 | 2c 0d 09 09 09 6d 6b 62 |d.%d.%d"|,....mkb|
|00001210| 79 74 65 28 66 6f 6f 2e | 5f 63 5b 30 5d 29 2c 20 |yte(foo.|_c[0]), |
|00001220| 6d 6b 62 79 74 65 28 66 | 6f 6f 2e 5f 63 5b 31 5d |mkbyte(f|oo._c[1]|
|00001230| 29 2c 0d 09 09 09 6d 6b | 62 79 74 65 28 66 6f 6f |),....mk|byte(foo|
|00001240| 2e 5f 63 5b 32 5d 29 2c | 20 6d 6b 62 79 74 65 28 |._c[2]),| mkbyte(|
|00001250| 66 6f 6f 2e 5f 63 5b 33 | 5d 29 29 3b 0d 0d 09 09 |foo._c[3|]));....|
|00001260| 7d 0d 09 09 62 72 65 61 | 6b 3b 0d 09 63 61 73 65 |}...brea|k;..case|
|00001270| 20 27 41 27 3a 20 7b 0d | 09 09 75 6e 69 6f 6e 20 | 'A': {.|..union |
|00001280| 7b 0d 09 09 09 6c 6f 6e | 67 20 5f 6c 3b 0d 09 09 |{....lon|g _l;...|
|00001290| 09 63 68 61 72 20 5f 63 | 5b 34 5d 3b 0d 09 09 7d |.char _c|[4];...}|
|000012a0| 20 66 6f 6f 3b 0d 0d 09 | 09 66 6f 6f 2e 5f 6c 20 | foo;...|.foo._l |
|000012b0| 3d 20 2a 28 6c 6f 6e 67 | 20 2a 29 61 72 67 3b 0d |= *(long| *)arg;.|
|000012c0| 09 09 61 72 67 20 2b 3d | 20 32 3b 0d 0d 09 09 5f |..arg +=| 2;...._|
|000012d0| 70 72 5f 69 70 28 72 6f | 75 74 69 6e 65 2c 20 6f |pr_ip(ro|utine, o|
|000012e0| 75 74 61 72 67 2c 20 22 | 25 6f 2c 25 6f 2c 25 6f |utarg, "|%o,%o,%o|
|000012f0| 2c 25 6f 22 2c 0d 09 09 | 09 6d 6b 62 79 74 65 28 |,%o",...|.mkbyte(|
|00001300| 66 6f 6f 2e 5f 63 5b 30 | 5d 29 2c 20 6d 6b 62 79 |foo._c[0|]), mkby|
|00001310| 74 65 28 66 6f 6f 2e 5f | 63 5b 31 5d 29 2c 0d 09 |te(foo._|c[1]),..|
|00001320| 09 09 6d 6b 62 79 74 65 | 28 66 6f 6f 2e 5f 63 5b |..mkbyte|(foo._c[|
|00001330| 32 5d 29 2c 20 6d 6b 62 | 79 74 65 28 66 6f 6f 2e |2]), mkb|yte(foo.|
|00001340| 5f 63 5b 33 5d 29 29 3b | 0d 0d 09 09 7d 0d 09 09 |_c[3]));|....}...|
|00001350| 62 72 65 61 6b 3b 0d 09 | 7d 0d 09 66 6f 72 6d 61 |break;..|}..forma|
|00001360| 74 2b 2b 3b 0d 09 67 6f | 74 6f 09 6c 6f 6f 70 3b |t++;..go|to.loop;|
|00001370| 0d 7d 0d 0d 0d 69 6e 74 | 5f 70 72 69 6e 74 28 6e |.}...int|_print(n|
|00001380| 75 6d 62 65 72 2c 20 72 | 61 64 69 78 2c 20 68 61 |umber, r|adix, ha|
|00001390| 73 73 69 67 6e 2c 20 66 | 69 65 6c 64 2c 20 6c 5f |ssign, f|ield, l_|
|000013a0| 7a 65 72 6f 2c 20 72 6f | 75 74 69 6e 65 2c 20 6f |zero, ro|utine, o|
|000013b0| 75 74 61 72 67 29 0d 75 | 6e 73 69 67 6e 65 64 20 |utarg).u|nsigned |
|000013c0| 6c 6f 6e 67 09 6e 75 6d | 62 65 72 3b 09 2f 2a 20 |long.num|ber;./* |
|000013d0| 74 68 65 20 6e 75 6d 62 | 65 72 20 74 6f 20 70 72 |the numb|er to pr|
|000013e0| 69 6e 74 20 2a 2f 0d 69 | 6e 74 09 72 61 64 69 78 |int */.i|nt.radix|
|000013f0| 3b 09 09 2f 2a 20 74 68 | 65 20 72 61 64 69 78 20 |;../* th|e radix |
|00001400| 74 6f 20 70 72 69 6e 74 | 20 74 68 65 20 6e 75 6d |to print| the num|
|00001410| 62 65 72 20 69 6e 20 2a | 2f 0d 69 6e 74 09 68 61 |ber in *|/.int.ha|
|00001420| 73 73 69 67 6e 3b 09 09 | 2f 2a 20 74 72 75 65 20 |ssign;..|/* true |
|00001430| 69 66 20 73 68 6f 75 6c | 64 20 70 72 69 6e 74 20 |if shoul|d print |
|00001440| 61 73 20 73 69 67 6e 65 | 64 20 6e 75 6d 62 65 72 |as signe|d number|
|00001450| 20 2a 2f 0d 69 6e 74 09 | 66 69 65 6c 64 3b 09 09 | */.int.|field;..|
|00001460| 2f 2a 20 74 68 65 20 61 | 72 67 75 6d 65 6e 74 20 |/* the a|rgument |
|00001470| 69 6e 20 74 68 65 20 66 | 6f 72 6d 61 74 20 63 6f |in the f|ormat co|
|00001480| 6e 74 72 6f 6c 20 2a 2f | 0d 69 6e 74 09 6c 5f 7a |ntrol */|.int.l_z|
|00001490| 65 72 6f 3b 09 09 2f 2a | 20 74 72 75 65 20 69 66 |ero;../*| true if|
|000014a0| 20 61 72 67 20 68 61 64 | 20 61 20 6c 65 61 64 69 | arg had| a leadi|
|000014b0| 6e 67 20 7a 65 72 6f 20 | 2a 2f 0d 69 6e 74 09 28 |ng zero |*/.int.(|
|000014c0| 2a 72 6f 75 74 69 6e 65 | 29 28 29 3b 09 2f 2a 20 |*routine|)();./* |
|000014d0| 72 6f 75 74 69 6e 65 20 | 74 6f 20 70 72 69 6e 74 |routine |to print|
|000014e0| 20 6f 75 74 20 74 68 65 | 20 6e 75 6d 62 65 72 20 | out the| number |
|000014f0| 2a 2f 0d 69 6e 74 09 6f | 75 74 61 72 67 3b 09 09 |*/.int.o|utarg;..|
|00001500| 2f 2a 20 61 6e 20 61 72 | 67 75 6d 65 6e 74 20 74 |/* an ar|gument t|
|00001510| 6f 20 70 61 73 73 20 74 | 6f 20 74 68 65 20 6f 75 |o pass t|o the ou|
|00001520| 74 70 75 74 20 72 6f 75 | 74 69 6e 65 20 2a 2f 0d |tput rou|tine */.|
|00001530| 7b 0d 09 63 68 61 72 09 | 74 61 62 6c 65 5b 32 30 |{..char.|table[20|
|00001540| 5d 3b 09 2f 2a 20 70 6c | 61 63 65 20 74 6f 20 6d |];./* pl|ace to m|
|00001550| 61 6b 65 20 75 70 20 74 | 68 65 20 6f 75 74 70 75 |ake up t|he outpu|
|00001560| 74 20 2a 2f 0d 09 69 6e | 74 09 6e 65 67 61 74 69 |t */..in|t.negati|
|00001570| 76 65 3b 09 2f 2a 20 74 | 72 75 65 20 69 66 20 6e |ve;./* t|rue if n|
|00001580| 75 6d 62 65 72 20 69 73 | 20 73 69 67 6e 65 64 20 |umber is| signed |
|00001590| 61 6e 64 20 6e 65 67 61 | 74 69 76 65 20 2a 2f 0d |and nega|tive */.|
|000015a0| 09 69 6e 74 09 69 3b 0d | 09 63 68 61 72 09 63 3b |.int.i;.|.char.c;|
|000015b0| 0d 09 0d 09 69 66 20 28 | 68 61 73 73 69 67 6e 20 |....if (|hassign |
|000015c0| 26 26 20 28 28 6c 6f 6e | 67 29 6e 75 6d 62 65 72 |&& ((lon|g)number|
|000015d0| 20 3c 20 30 29 29 20 7b | 0d 09 09 6e 65 67 61 74 | < 0)) {|...negat|
|000015e0| 69 76 65 20 3d 20 54 52 | 55 45 3b 0d 09 09 6e 75 |ive = TR|UE;...nu|
|000015f0| 6d 62 65 72 20 3d 20 2d | 28 6c 6f 6e 67 29 6e 75 |mber = -|(long)nu|
|00001600| 6d 62 65 72 3b 0d 09 7d | 0d 09 65 6c 73 65 09 6e |mber;..}|..else.n|
|00001610| 65 67 61 74 69 76 65 20 | 3d 20 46 41 4c 53 45 3b |egative |= FALSE;|
|00001620| 0d 09 0d 09 63 20 3d 20 | 6c 5f 7a 65 72 6f 20 3f |....c = |l_zero ?|
|00001630| 20 27 30 27 20 3a 20 27 | 20 27 3b 0d 09 66 6f 72 | '0' : '| ';..for|
|00001640| 20 28 69 3d 30 3b 20 69 | 20 3c 20 32 30 3b 20 69 | (i=0; i| < 20; i|
|00001650| 2b 2b 29 0d 09 09 74 61 | 62 6c 65 5b 69 5d 20 3d |++)...ta|ble[i] =|
|00001660| 20 63 3b 0d 09 0d 09 66 | 6f 72 20 28 69 20 3d 20 | c;....f|or (i = |
|00001670| 30 3b 20 69 20 3c 20 32 | 30 3b 20 69 2b 2b 29 20 |0; i < 2|0; i++) |
|00001680| 7b 0d 09 09 74 61 62 6c | 65 5b 69 5d 20 3d 20 22 |{...tabl|e[i] = "|
|00001690| 30 31 32 33 34 35 36 37 | 38 39 41 42 43 44 45 46 |01234567|89ABCDEF|
|000016a0| 22 5b 6e 75 6d 62 65 72 | 20 25 20 28 6c 6f 6e 67 |"[number| % (long|
|000016b0| 29 72 61 64 69 78 5d 3b | 0d 09 09 6e 75 6d 62 65 |)radix];|...numbe|
|000016c0| 72 20 2f 3d 20 28 6c 6f | 6e 67 29 72 61 64 69 78 |r /= (lo|ng)radix|
|000016d0| 3b 0d 09 09 69 66 20 28 | 6e 75 6d 62 65 72 20 3d |;...if (|number =|
|000016e0| 3d 20 30 29 20 62 72 65 | 61 6b 3b 0d 09 7d 0d 09 |= 0) bre|ak;..}..|
|000016f0| 0d 09 69 66 20 28 6e 65 | 67 61 74 69 76 65 29 20 |..if (ne|gative) |
|00001700| 74 61 62 6c 65 5b 2b 2b | 69 5d 20 3d 20 27 2d 27 |table[++|i] = '-'|
|00001710| 3b 0d 09 69 66 20 28 28 | 66 69 65 6c 64 20 21 3d |;..if ((|field !=|
|00001720| 20 30 29 20 26 26 20 28 | 66 69 65 6c 64 20 3c 20 | 0) && (|field < |
|00001730| 32 30 29 29 20 69 20 3d | 20 66 69 65 6c 64 20 2d |20)) i =| field -|
|00001740| 20 31 3b 0d 09 77 68 69 | 6c 65 20 28 69 20 3e 3d | 1;..whi|le (i >=|
|00001750| 20 30 29 0d 09 09 2f 2a | 20 77 61 73 20 28 2a 72 | 0).../*| was (*r|
|00001760| 6f 75 74 69 6e 65 29 28 | 74 61 62 6c 65 5b 69 2d |outine)(|table[i-|
|00001770| 2d 5d 2c 20 6f 75 74 61 | 72 67 29 3b 20 2a 2f 0d |-], outa|rg); */.|
|00001780| 09 09 28 2a 72 6f 75 74 | 69 6e 65 29 28 74 61 62 |..(*rout|ine)(tab|
|00001790| 6c 65 5b 69 2d 2d 5d 29 | 3b 0d 7d 0d 0d 5f 70 72 |le[i--])|;.}.._pr|
|000017a0| 5f 69 70 28 72 6f 75 74 | 69 6e 65 2c 20 6f 75 74 |_ip(rout|ine, out|
|000017b0| 61 72 67 2c 20 66 6f 72 | 6d 61 74 29 0d 09 63 68 |arg, for|mat)..ch|
|000017c0| 61 72 20 2a 6f 75 74 61 | 72 67 3b 0d 09 69 6e 74 |ar *outa|rg;..int|
|000017d0| 20 28 2a 72 6f 75 74 69 | 6e 65 29 28 29 3b 0d 09 | (*routi|ne)();..|
|000017e0| 63 68 61 72 20 2a 66 6f | 72 6d 61 74 3b 20 0d 7b |char *fo|rmat; .{|
|000017f0| 0d 0d 09 5f 66 6f 72 6d | 61 74 5f 73 74 72 69 6e |..._form|at_strin|
|00001800| 67 28 72 6f 75 74 69 6e | 65 2c 20 6f 75 74 61 72 |g(routin|e, outar|
|00001810| 67 2c 20 26 66 6f 72 6d | 61 74 29 3b 0d 7d 0d 00 |g, &form|at);.}..|
|00001820| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001830| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001840| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001850| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001860| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001870| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001880| 00 00 01 00 00 00 01 4c | 00 00 00 4c 00 00 00 32 |.......L|...L...2|
|00001890| 00 00 00 00 03 ed ff ff | 00 00 00 7c 00 00 00 00 |........|...|....|
|000018a0| 03 ef ff ff 00 00 00 c8 | 00 3a f4 80 48 78 66 06 |........|.:..Hxf.|
|000018b0| 08 70 72 69 6e 74 66 2e | 63 00 02 00 00 00 50 61 |.printf.|c.....Pa|
|000018c0| 72 74 53 49 54 78 00 00 | 00 00 00 00 00 00 00 01 |rtSITx..|........|
|000018d0| 00 00 50 61 72 74 53 49 | 54 78 00 00 00 00 00 00 |..PartSI|Tx......|
|000018e0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000018f0| 00 00 a9 8d 3a 7f 00 00 | 00 00 00 00 01 7e 3f 6d |....:...|.....~?m|
|00001900| eb 30 00 04 60 06 3f 6d | eb 2e 00 04 4e 75 00 00 |.0..`.?m|....Nu..|
|00001910| 06 46 03 50 00 0a 4e 56 | 00 00 48 e7 20 00 20 6e |.F.P..NV|..H. . n|
|00001920| 00 08 20 2e 00 0c 22 2e | 00 10 24 08 67 00 00 06 |.. ...".|..$.g...|
|00001930| 4a 10 66 0a 20 3c 40 00 | 00 16 60 00 00 5c 0c 80 |J.f. <@.|..`..\..|
|00001940| 00 00 64 00 6d 18 6e 02 | 60 1c 0c 80 00 00 64 01 |..d.m.n.|`.....d.|
|00001950| 66 02 60 1c 0c 80 00 00 | 64 02 67 00 00 1e 20 3c |f.`.....|d.g... <|
|00001960| 40 00 00 16 60 32 2f 08 | 2f 01 4e ba 00 3e 60 28 |@...`2/.|/.N..>`(|
|00001970| 42 a7 2f 08 4e ad 00 da | 60 0a 2f 01 42 a7 2f 08 |B./.N...|`./.B./.|
|00001980| 00 00 00 48 00 09 4d 6f | 6e 61 63 6f 00 00 00 00 |...H..Mo|naco....|
|00001990| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|000019a0| 00 00 00 00 00 00 00 06 | 00 04 00 27 00 00 01 e1 |........|...'....|
|000019b0| 02 00 00 27 00 00 01 e1 | 02 00 a5 32 13 1c 00 00 |...'....|...2....|
|000019c0| 04 33 00 00 04 44 00 00 | 03 4e 01 00 00 00 01 00 |.3...D..|.N......|
|000019d0| 00 00 01 4c 00 00 00 4c | 00 00 00 32 00 1a 1f a8 |...L...L|...2....|
|000019e0| 08 d2 00 00 00 1c 00 32 | 00 00 4d 50 53 52 00 00 |.......2|..MPSR..|
|000019f0| 00 0a 03 ed ff ff 00 00 | 00 00 00 1b e1 a8 00 00 |........|........|
+--------+-------------------------+-------------------------+--------+--------+