/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / unix / volume26 / calc / part10

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 4e 65 77 73 67 72 6f 75 | 70 73 3a 20 63 6f 6d 70 |Newsgrou|ps: comp|
|00000010| 2e 73 6f 75 72 63 65 73 | 2e 75 6e 69 78 0a 46 72 |.sources|.unix.Fr|
|00000020| 6f 6d 3a 20 64 62 65 6c | 6c 40 70 64 61 63 74 2e |om: dbel|l@pdact.|
|00000030| 70 64 2e 6e 65 63 69 73 | 61 2e 6f 7a 2e 61 75 20 |pd.necis|a.oz.au |
|00000040| 28 44 61 76 69 64 20 49 | 2e 20 42 65 6c 6c 29 0a |(David I|. Bell).|
|00000050| 53 75 62 6a 65 63 74 3a | 20 76 32 36 69 30 33 36 |Subject:| v26i036|
|00000060| 3a 20 43 41 4c 43 20 2d | 20 41 6e 20 61 72 62 69 |: CALC -| An arbi|
|00000070| 74 72 61 72 79 20 70 72 | 65 63 69 73 69 6f 6e 20 |trary pr|ecision |
|00000080| 43 2d 6c 69 6b 65 20 63 | 61 6c 63 75 6c 61 74 6f |C-like c|alculato|
|00000090| 72 2c 20 50 61 72 74 31 | 30 2f 32 31 0a 53 65 6e |r, Part1|0/21.Sen|
|000000a0| 64 65 72 3a 20 75 6e 69 | 78 2d 73 6f 75 72 63 65 |der: uni|x-source|
|000000b0| 73 2d 6d 6f 64 65 72 61 | 74 6f 72 40 70 61 2e 64 |s-modera|tor@pa.d|
|000000c0| 65 63 2e 63 6f 6d 0a 41 | 70 70 72 6f 76 65 64 3a |ec.com.A|pproved:|
|000000d0| 20 76 69 78 69 65 40 70 | 61 2e 64 65 63 2e 63 6f | vixie@p|a.dec.co|
|000000e0| 6d 0a 0a 53 75 62 6d 69 | 74 74 65 64 2d 42 79 3a |m..Submi|tted-By:|
|000000f0| 20 64 62 65 6c 6c 40 70 | 64 61 63 74 2e 70 64 2e | dbell@p|dact.pd.|
|00000100| 6e 65 63 69 73 61 2e 6f | 7a 2e 61 75 20 28 44 61 |necisa.o|z.au (Da|
|00000110| 76 69 64 20 49 2e 20 42 | 65 6c 6c 29 0a 50 6f 73 |vid I. B|ell).Pos|
|00000120| 74 69 6e 67 2d 4e 75 6d | 62 65 72 3a 20 56 6f 6c |ting-Num|ber: Vol|
|00000130| 75 6d 65 20 32 36 2c 20 | 49 73 73 75 65 20 33 36 |ume 26, |Issue 36|
|00000140| 0a 41 72 63 68 69 76 65 | 2d 4e 61 6d 65 3a 20 63 |.Archive|-Name: c|
|00000150| 61 6c 63 2f 70 61 72 74 | 31 30 0a 0a 23 21 20 2f |alc/part|10..#! /|
|00000160| 62 69 6e 2f 73 68 0a 23 | 20 54 68 69 73 20 69 73 |bin/sh.#| This is|
|00000170| 20 61 20 73 68 65 6c 6c | 20 61 72 63 68 69 76 65 | a shell| archive|
|00000180| 2e 20 20 52 65 6d 6f 76 | 65 20 61 6e 79 74 68 69 |.  Remov|e anythi|
|00000190| 6e 67 20 62 65 66 6f 72 | 65 20 74 68 69 73 20 6c |ng befor|e this l|
|000001a0| 69 6e 65 2c 20 74 68 65 | 6e 20 75 6e 70 61 63 6b |ine, the|n unpack|
|000001b0| 0a 23 20 69 74 20 62 79 | 20 73 61 76 69 6e 67 20 |.# it by| saving |
|000001c0| 69 74 20 69 6e 74 6f 20 | 61 20 66 69 6c 65 20 61 |it into |a file a|
|000001d0| 6e 64 20 74 79 70 69 6e | 67 20 22 73 68 20 66 69 |nd typin|g "sh fi|
|000001e0| 6c 65 22 2e 20 20 54 6f | 20 6f 76 65 72 77 72 69 |le".  To| overwri|
|000001f0| 74 65 20 65 78 69 73 74 | 69 6e 67 0a 23 20 66 69 |te exist|ing.# fi|
|00000200| 6c 65 73 2c 20 74 79 70 | 65 20 22 73 68 20 66 69 |les, typ|e "sh fi|
|00000210| 6c 65 20 2d 63 22 2e 20 | 20 59 6f 75 20 63 61 6e |le -c". | You can|
|00000220| 20 61 6c 73 6f 20 66 65 | 65 64 20 74 68 69 73 20 | also fe|ed this |
|00000230| 61 73 20 73 74 61 6e 64 | 61 72 64 20 69 6e 70 75 |as stand|ard inpu|
|00000240| 74 20 76 69 61 0a 23 20 | 75 6e 73 68 61 72 2c 20 |t via.# |unshar, |
|00000250| 6f 72 20 62 79 20 74 79 | 70 69 6e 67 20 22 73 68 |or by ty|ping "sh|
|00000260| 20 3c 66 69 6c 65 22 2c | 20 65 2e 67 2e 2e 20 20 | <file",| e.g..  |
|00000270| 49 66 20 74 68 69 73 20 | 61 72 63 68 69 76 65 20 |If this |archive |
|00000280| 69 73 20 63 6f 6d 70 6c | 65 74 65 2c 20 79 6f 75 |is compl|ete, you|
|00000290| 0a 23 20 77 69 6c 6c 20 | 73 65 65 20 74 68 65 20 |.# will |see the |
|000002a0| 66 6f 6c 6c 6f 77 69 6e | 67 20 6d 65 73 73 61 67 |followin|g messag|
|000002b0| 65 20 61 74 20 74 68 65 | 20 65 6e 64 3a 0a 23 09 |e at the| end:.#.|
|000002c0| 09 22 45 6e 64 20 6f 66 | 20 61 72 63 68 69 76 65 |."End of| archive|
|000002d0| 20 31 30 20 28 6f 66 20 | 32 31 29 2e 22 0a 23 20 | 10 (of |21).".# |
|000002e0| 43 6f 6e 74 65 6e 74 73 | 3a 20 20 69 6f 2e 63 20 |Contents|:  io.c |
|000002f0| 71 66 75 6e 63 2e 63 0a | 23 20 57 72 61 70 70 65 |qfunc.c.|# Wrappe|
|00000300| 64 20 62 79 20 64 62 65 | 6c 6c 40 65 6c 6d 20 6f |d by dbe|ll@elm o|
|00000310| 6e 20 54 75 65 20 46 65 | 62 20 32 35 20 31 35 3a |n Tue Fe|b 25 15:|
|00000320| 32 31 3a 30 38 20 31 39 | 39 32 0a 50 41 54 48 3d |21:08 19|92.PATH=|
|00000330| 2f 62 69 6e 3a 2f 75 73 | 72 2f 62 69 6e 3a 2f 75 |/bin:/us|r/bin:/u|
|00000340| 73 72 2f 75 63 62 20 3b | 20 65 78 70 6f 72 74 20 |sr/ucb ;| export |
|00000350| 50 41 54 48 0a 69 66 20 | 74 65 73 74 20 2d 66 20 |PATH.if |test -f |
|00000360| 27 69 6f 2e 63 27 20 2d | 61 20 22 24 7b 31 7d 22 |'io.c' -|a "${1}"|
|00000370| 20 21 3d 20 22 2d 63 22 | 20 3b 20 74 68 65 6e 20 | != "-c"| ; then |
|00000380| 0a 20 20 65 63 68 6f 20 | 73 68 61 72 3a 20 57 69 |.  echo |shar: Wi|
|00000390| 6c 6c 20 6e 6f 74 20 63 | 6c 6f 62 62 65 72 20 65 |ll not c|lobber e|
|000003a0| 78 69 73 74 69 6e 67 20 | 66 69 6c 65 20 5c 22 27 |xisting |file \"'|
|000003b0| 69 6f 2e 63 27 5c 22 0a | 65 6c 73 65 0a 65 63 68 |io.c'\".|else.ech|
|000003c0| 6f 20 73 68 61 72 3a 20 | 45 78 74 72 61 63 74 69 |o shar: |Extracti|
|000003d0| 6e 67 20 5c 22 27 69 6f | 2e 63 27 5c 22 20 5c 28 |ng \"'io|.c'\" \(|
|000003e0| 32 36 31 38 30 20 63 68 | 61 72 61 63 74 65 72 73 |26180 ch|aracters|
|000003f0| 5c 29 0a 73 65 64 20 22 | 73 2f 5e 58 2f 2f 22 20 |\).sed "|s/^X//" |
|00000400| 3e 27 69 6f 2e 63 27 20 | 3c 3c 27 45 4e 44 5f 4f |>'io.c' |<<'END_O|
|00000410| 46 5f 46 49 4c 45 27 0a | 58 2f 2a 0a 58 20 2a 20 |F_FILE'.|X/*.X * |
|00000420| 43 6f 70 79 72 69 67 68 | 74 20 28 63 29 20 31 39 |Copyrigh|t (c) 19|
|00000430| 39 32 20 44 61 76 69 64 | 20 49 2e 20 42 65 6c 6c |92 David| I. Bell|
|00000440| 0a 58 20 2a 20 50 65 72 | 6d 69 73 73 69 6f 6e 20 |.X * Per|mission |
|00000450| 69 73 20 67 72 61 6e 74 | 65 64 20 74 6f 20 75 73 |is grant|ed to us|
|00000460| 65 2c 20 64 69 73 74 72 | 69 62 75 74 65 2c 20 6f |e, distr|ibute, o|
|00000470| 72 20 6d 6f 64 69 66 79 | 20 74 68 69 73 20 73 6f |r modify| this so|
|00000480| 75 72 63 65 2c 0a 58 20 | 2a 20 70 72 6f 76 69 64 |urce,.X |* provid|
|00000490| 65 64 20 74 68 61 74 20 | 74 68 69 73 20 63 6f 70 |ed that |this cop|
|000004a0| 79 72 69 67 68 74 20 6e | 6f 74 69 63 65 20 72 65 |yright n|otice re|
|000004b0| 6d 61 69 6e 73 20 69 6e | 74 61 63 74 2e 0a 58 20 |mains in|tact..X |
|000004c0| 2a 0a 58 20 2a 20 53 63 | 61 6e 66 20 61 6e 64 20 |*.X * Sc|anf and |
|000004d0| 70 72 69 6e 74 66 20 72 | 6f 75 74 69 6e 65 73 20 |printf r|outines |
|000004e0| 66 6f 72 20 65 78 74 65 | 6e 64 65 64 20 70 72 65 |for exte|nded pre|
|000004f0| 63 69 73 69 6f 6e 20 6e | 75 6d 62 65 72 73 0a 58 |cision n|umbers.X|
|00000500| 20 2a 2f 0a 58 0a 58 23 | 69 6e 63 6c 75 64 65 20 | */.X.X#|include |
|00000510| 3c 73 74 64 69 6f 2e 68 | 3e 0a 58 23 69 6e 63 6c |<stdio.h|>.X#incl|
|00000520| 75 64 65 20 22 73 74 64 | 61 72 67 2e 68 22 0a 58 |ude "std|arg.h".X|
|00000530| 23 69 6e 63 6c 75 64 65 | 20 22 6d 61 74 68 2e 68 |#include| "math.h|
|00000540| 22 0a 58 0a 58 23 64 65 | 66 69 6e 65 09 4f 55 54 |".X.X#de|fine.OUT|
|00000550| 42 55 46 53 49 5a 45 09 | 32 30 30 09 09 2f 2a 20 |BUFSIZE.|200../* |
|00000560| 72 65 61 6c 6c 6f 63 20 | 73 69 7a 65 20 66 6f 72 |realloc |size for|
|00000570| 20 6f 75 74 70 75 74 20 | 62 75 66 66 65 72 73 20 | output |buffers |
|00000580| 2a 2f 0a 58 0a 58 0a 58 | 23 64 65 66 69 6e 65 09 |*/.X.X.X|#define.|
|00000590| 50 55 54 43 48 41 52 28 | 63 68 29 09 09 6d 61 74 |PUTCHAR(|ch)..mat|
|000005a0| 68 5f 63 68 72 28 63 68 | 29 0a 58 23 64 65 66 69 |h_chr(ch|).X#defi|
|000005b0| 6e 65 09 50 55 54 53 54 | 52 28 73 74 72 29 09 09 |ne.PUTST|R(str)..|
|000005c0| 6d 61 74 68 5f 73 74 72 | 28 73 74 72 29 0a 58 23 |math_str|(str).X#|
|000005d0| 64 65 66 69 6e 65 09 50 | 52 49 4e 54 46 31 28 66 |define.P|RINTF1(f|
|000005e0| 6d 74 2c 20 61 31 29 09 | 6d 61 74 68 5f 66 6d 74 |mt, a1).|math_fmt|
|000005f0| 28 66 6d 74 2c 20 61 31 | 29 0a 58 23 64 65 66 69 |(fmt, a1|).X#defi|
|00000600| 6e 65 09 50 52 49 4e 54 | 46 32 28 66 6d 74 2c 20 |ne.PRINT|F2(fmt, |
|00000610| 61 31 2c 20 61 32 29 09 | 6d 61 74 68 5f 66 6d 74 |a1, a2).|math_fmt|
|00000620| 28 66 6d 74 2c 20 61 31 | 2c 20 61 32 29 0a 58 0a |(fmt, a1|, a2).X.|
|00000630| 58 0a 58 6c 6f 6e 67 09 | 5f 6f 75 74 64 69 67 69 |X.Xlong.|_outdigi|
|00000640| 74 73 5f 20 3d 20 32 30 | 3b 09 09 2f 2a 20 64 65 |ts_ = 20|;../* de|
|00000650| 66 61 75 6c 74 20 64 69 | 67 69 74 73 20 66 6f 72 |fault di|gits for|
|00000660| 20 6f 75 74 70 75 74 20 | 2a 2f 0a 58 69 6e 74 09 | output |*/.Xint.|
|00000670| 5f 6f 75 74 6d 6f 64 65 | 5f 20 3d 20 4d 4f 44 45 |_outmode|_ = MODE|
|00000680| 5f 49 4e 49 54 49 41 4c | 3b 09 2f 2a 20 64 65 66 |_INITIAL|;./* def|
|00000690| 61 75 6c 74 20 6f 75 74 | 70 75 74 20 6d 6f 64 65 |ault out|put mode|
|000006a0| 20 2a 2f 0a 58 0a 58 0a | 58 2f 2a 0a 58 20 2a 20 | */.X.X.|X/*.X * |
|000006b0| 4f 75 74 70 75 74 20 73 | 74 61 74 65 20 74 68 61 |Output s|tate tha|
|000006c0| 74 20 68 61 73 20 62 65 | 65 6e 20 73 61 76 65 64 |t has be|en saved|
|000006d0| 20 77 68 65 6e 20 64 69 | 76 65 72 73 69 6f 6e 73 | when di|versions|
|000006e0| 20 61 72 65 20 64 6f 6e | 65 2e 0a 58 20 2a 2f 0a | are don|e..X */.|
|000006f0| 58 74 79 70 65 64 65 66 | 20 73 74 72 75 63 74 20 |Xtypedef| struct |
|00000700| 69 6f 73 74 61 74 65 20 | 49 4f 53 54 41 54 45 3b |iostate |IOSTATE;|
|00000710| 0a 58 73 74 72 75 63 74 | 20 69 6f 73 74 61 74 65 |.Xstruct| iostate|
|00000720| 20 7b 0a 58 09 49 4f 53 | 54 41 54 45 20 2a 6f 6c | {.X.IOS|TATE *ol|
|00000730| 64 69 6f 73 74 61 74 65 | 73 3b 09 09 2f 2a 20 70 |diostate|s;../* p|
|00000740| 72 65 76 69 6f 75 73 20 | 73 61 76 65 64 20 73 74 |revious |saved st|
|00000750| 61 74 65 20 2a 2f 0a 58 | 09 6c 6f 6e 67 20 6f 75 |ate */.X|.long ou|
|00000760| 74 64 69 67 69 74 73 3b | 09 09 09 2f 2a 20 64 69 |tdigits;|.../* di|
|00000770| 67 69 74 73 20 66 6f 72 | 20 6f 75 74 70 75 74 20 |gits for| output |
|00000780| 2a 2f 0a 58 09 69 6e 74 | 20 6f 75 74 6d 6f 64 65 |*/.X.int| outmode|
|00000790| 3b 09 09 09 2f 2a 20 6f | 75 74 70 75 74 20 6d 6f |;.../* o|utput mo|
|000007a0| 64 65 20 2a 2f 0a 58 09 | 46 49 4c 45 20 2a 6f 75 |de */.X.|FILE *ou|
|000007b0| 74 66 70 3b 09 09 09 2f | 2a 20 66 69 6c 65 20 75 |tfp;.../|* file u|
|000007c0| 6e 69 74 20 66 6f 72 20 | 6f 75 74 70 75 74 20 28 |nit for |output (|
|000007d0| 69 66 20 61 6e 79 29 20 | 2a 2f 0a 58 09 63 68 61 |if any) |*/.X.cha|
|000007e0| 72 20 2a 6f 75 74 62 75 | 66 3b 09 09 09 2f 2a 20 |r *outbu|f;.../* |
|000007f0| 6f 75 74 70 75 74 20 73 | 74 72 69 6e 67 20 62 75 |output s|tring bu|
|00000800| 66 66 65 72 20 28 69 66 | 20 61 6e 79 29 20 2a 2f |ffer (if| any) */|
|00000810| 0a 58 09 6c 6f 6e 67 20 | 6f 75 74 62 75 66 73 69 |.X.long |outbufsi|
|00000820| 7a 65 3b 09 09 2f 2a 20 | 63 75 72 72 65 6e 74 20 |ze;../* |current |
|00000830| 73 69 7a 65 20 6f 66 20 | 73 74 72 69 6e 67 20 62 |size of |string b|
|00000840| 75 66 66 65 72 20 2a 2f | 0a 58 09 6c 6f 6e 67 20 |uffer */|.X.long |
|00000850| 6f 75 74 62 75 66 75 73 | 65 64 3b 09 09 2f 2a 20 |outbufus|ed;../* |
|00000860| 73 70 61 63 65 20 75 73 | 65 64 20 69 6e 20 73 74 |space us|ed in st|
|00000870| 72 69 6e 67 20 62 75 66 | 66 65 72 20 2a 2f 0a 58 |ring buf|fer */.X|
|00000880| 09 42 4f 4f 4c 20 6f 75 | 74 70 75 74 69 73 73 74 |.BOOL ou|tputisst|
|00000890| 72 69 6e 67 3b 09 09 2f | 2a 20 54 52 55 45 20 69 |ring;../|* TRUE i|
|000008a0| 66 20 6f 75 74 70 75 74 | 20 69 73 20 74 6f 20 73 |f output| is to s|
|000008b0| 74 72 69 6e 67 20 62 75 | 66 66 65 72 20 2a 2f 0a |tring bu|ffer */.|
|000008c0| 58 7d 3b 0a 58 0a 58 0a | 58 73 74 61 74 69 63 20 |X};.X.X.|Xstatic |
|000008d0| 49 4f 53 54 41 54 45 09 | 2a 6f 6c 64 69 6f 73 74 |IOSTATE.|*oldiost|
|000008e0| 61 74 65 73 20 3d 20 4e | 55 4c 4c 3b 09 2f 2a 20 |ates = N|ULL;./* |
|000008f0| 6c 69 73 74 20 6f 66 20 | 73 61 76 65 64 20 6f 75 |list of |saved ou|
|00000900| 74 70 75 74 20 73 74 61 | 74 65 73 20 2a 2f 0a 58 |tput sta|tes */.X|
|00000910| 73 74 61 74 69 63 20 46 | 49 4c 45 09 2a 6f 75 74 |static F|ILE.*out|
|00000920| 66 70 20 3d 20 73 74 64 | 6f 75 74 3b 09 2f 2a 20 |fp = std|out;./* |
|00000930| 66 69 6c 65 20 75 6e 69 | 74 20 66 6f 72 20 6f 75 |file uni|t for ou|
|00000940| 74 70 75 74 20 2a 2f 0a | 58 73 74 61 74 69 63 20 |tput */.|Xstatic |
|00000950| 63 68 61 72 09 2a 6f 75 | 74 62 75 66 20 3d 20 4e |char.*ou|tbuf = N|
|00000960| 55 4c 4c 3b 09 09 2f 2a | 20 63 75 72 72 65 6e 74 |ULL;../*| current|
|00000970| 20 64 69 76 65 72 74 65 | 64 20 62 75 66 66 65 72 | diverte|d buffer|
|00000980| 20 2a 2f 0a 58 73 74 61 | 74 69 63 20 6c 6f 6e 67 | */.Xsta|tic long|
|00000990| 09 73 63 61 6c 65 66 61 | 63 74 6f 72 3b 0a 58 73 |.scalefa|ctor;.Xs|
|000009a0| 74 61 74 69 63 20 6c 6f | 6e 67 09 6f 75 74 62 75 |tatic lo|ng.outbu|
|000009b0| 66 73 69 7a 65 3b 0a 58 | 73 74 61 74 69 63 20 6c |fsize;.X|static l|
|000009c0| 6f 6e 67 09 6f 75 74 62 | 75 66 75 73 65 64 3b 0a |ong.outb|ufused;.|
|000009d0| 58 73 74 61 74 69 63 20 | 42 4f 4f 4c 09 6f 75 74 |Xstatic |BOOL.out|
|000009e0| 70 75 74 69 73 73 74 72 | 69 6e 67 3b 0a 58 73 74 |putisstr|ing;.Xst|
|000009f0| 61 74 69 63 20 5a 56 41 | 4c 55 45 09 73 63 61 6c |atic ZVA|LUE.scal|
|00000a00| 65 6e 75 6d 62 65 72 20 | 3d 20 7b 20 30 2c 20 30 |enumber |= { 0, 0|
|00000a10| 2c 20 30 20 7d 3b 0a 58 | 0a 58 23 69 66 20 30 0a |, 0 };.X|.X#if 0.|
|00000a20| 58 73 74 61 74 69 63 20 | 6c 6f 6e 67 09 65 74 6f |Xstatic |long.eto|
|00000a30| 61 6c 65 6e 3b 0a 58 73 | 74 61 74 69 63 20 63 68 |alen;.Xs|tatic ch|
|00000a40| 61 72 09 2a 65 74 6f 61 | 62 75 66 20 3d 20 4e 55 |ar.*etoa|buf = NU|
|00000a50| 4c 4c 3b 0a 58 23 65 6e | 64 69 66 0a 58 0a 58 73 |LL;.X#en|dif.X.Xs|
|00000a60| 74 61 74 69 63 20 76 6f | 69 64 20 7a 70 72 69 6e |tatic vo|id zprin|
|00000a70| 74 78 20 70 72 6f 74 6f | 28 28 5a 56 41 4c 55 45 |tx proto|((ZVALUE|
|00000a80| 20 7a 2c 20 6c 6f 6e 67 | 20 77 69 64 74 68 29 29 | z, long| width))|
|00000a90| 3b 0a 58 73 74 61 74 69 | 63 20 76 6f 69 64 20 7a |;.Xstati|c void z|
|00000aa0| 70 72 69 6e 74 62 20 70 | 72 6f 74 6f 28 28 5a 56 |printb p|roto((ZV|
|00000ab0| 41 4c 55 45 20 7a 2c 20 | 6c 6f 6e 67 20 77 69 64 |ALUE z, |long wid|
|00000ac0| 74 68 29 29 3b 0a 58 73 | 74 61 74 69 63 20 76 6f |th));.Xs|tatic vo|
|00000ad0| 69 64 20 7a 70 72 69 6e | 74 6f 20 70 72 6f 74 6f |id zprin|to proto|
|00000ae0| 28 28 5a 56 41 4c 55 45 | 20 7a 2c 20 6c 6f 6e 67 |((ZVALUE| z, long|
|00000af0| 20 77 69 64 74 68 29 29 | 3b 0a 58 73 74 61 74 69 | width))|;.Xstati|
|00000b00| 63 20 76 6f 69 64 20 7a | 70 72 69 6e 74 76 61 6c |c void z|printval|
|00000b10| 20 70 72 6f 74 6f 28 28 | 5a 56 41 4c 55 45 20 7a | proto((|ZVALUE z|
|00000b20| 2c 20 6c 6f 6e 67 20 64 | 65 63 69 6d 61 6c 73 2c |, long d|ecimals,|
|00000b30| 20 6c 6f 6e 67 20 77 69 | 64 74 68 29 29 3b 0a 58 | long wi|dth));.X|
|00000b40| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 20 61 74 |.Xstatic| void at|
|00000b50| 6f 7a 20 70 72 6f 74 6f | 28 28 63 68 61 72 20 2a |oz proto|((char *|
|00000b60| 20 73 2c 20 5a 56 41 4c | 55 45 20 2a 20 72 65 73 | s, ZVAL|UE * res|
|00000b70| 29 29 3b 0a 58 0a 58 73 | 74 61 74 69 63 20 76 6f |));.X.Xs|tatic vo|
|00000b80| 69 64 20 71 70 72 69 6e | 74 66 66 28 29 3b 0a 58 |id qprin|tff();.X|
|00000b90| 73 74 61 74 69 63 20 76 | 6f 69 64 20 71 70 72 69 |static v|oid qpri|
|00000ba0| 6e 74 66 64 28 29 3b 0a | 58 73 74 61 74 69 63 20 |ntfd();.|Xstatic |
|00000bb0| 76 6f 69 64 20 71 70 72 | 69 6e 74 66 65 28 29 3b |void qpr|intfe();|
|00000bc0| 0a 58 73 74 61 74 69 63 | 20 76 6f 69 64 20 71 70 |.Xstatic| void qp|
|00000bd0| 72 69 6e 74 66 72 28 29 | 3b 0a 58 73 74 61 74 69 |rintfr()|;.Xstati|
|00000be0| 63 20 76 6f 69 64 20 71 | 70 72 69 6e 74 66 6f 28 |c void q|printfo(|
|00000bf0| 29 3b 0a 58 73 74 61 74 | 69 63 20 76 6f 69 64 20 |);.Xstat|ic void |
|00000c00| 71 70 72 69 6e 74 66 62 | 28 29 3b 0a 58 23 69 66 |qprintfb|();.X#if|
|00000c10| 64 65 66 20 43 4f 44 45 | 0a 58 65 78 74 65 72 6e |def CODE|.Xextern|
|00000c20| 20 76 6f 69 64 20 71 70 | 72 69 6e 74 66 78 28 29 | void qp|rintfx()|
|00000c30| 3b 0a 58 23 65 6c 73 65 | 0a 58 73 74 61 74 69 63 |;.X#else|.Xstatic|
|00000c40| 20 76 6f 69 64 20 71 70 | 72 69 6e 74 66 78 28 29 | void qp|rintfx()|
|00000c50| 3b 0a 58 23 65 6e 64 69 | 66 0a 58 0a 58 0a 58 2f |;.X#endi|f.X.X.X/|
|00000c60| 2a 0a 58 20 2a 20 52 6f | 75 74 69 6e 65 20 74 6f |*.X * Ro|utine to|
|00000c70| 20 6f 75 74 70 75 74 20 | 61 20 63 68 61 72 61 63 | output |a charac|
|00000c80| 74 65 72 20 65 69 74 68 | 65 72 20 74 6f 20 61 20 |ter eith|er to a |
|00000c90| 46 49 4c 45 0a 58 20 2a | 20 68 61 6e 64 6c 65 20 |FILE.X *| handle |
|00000ca0| 6f 72 20 69 6e 74 6f 20 | 61 20 73 74 72 69 6e 67 |or into |a string|
|00000cb0| 2e 0a 58 20 2a 2f 0a 58 | 76 6f 69 64 0a 58 6d 61 |..X */.X|void.Xma|
|00000cc0| 74 68 5f 63 68 72 28 63 | 68 29 0a 58 7b 0a 58 09 |th_chr(c|h).X{.X.|
|00000cd0| 63 68 61 72 09 2a 63 70 | 3b 0a 58 0a 58 09 69 66 |char.*cp|;.X.X.if|
|00000ce0| 20 28 21 6f 75 74 70 75 | 74 69 73 73 74 72 69 6e | (!outpu|tisstrin|
|00000cf0| 67 29 20 7b 0a 58 09 09 | 66 70 75 74 63 28 63 68 |g) {.X..|fputc(ch|
|00000d00| 2c 20 6f 75 74 66 70 29 | 3b 0a 58 09 09 72 65 74 |, outfp)|;.X..ret|
|00000d10| 75 72 6e 3b 0a 58 09 7d | 0a 58 09 69 66 20 28 6f |urn;.X.}|.X.if (o|
|00000d20| 75 74 62 75 66 75 73 65 | 64 20 3e 3d 20 6f 75 74 |utbufuse|d >= out|
|00000d30| 62 75 66 73 69 7a 65 29 | 20 7b 0a 58 09 09 63 70 |bufsize)| {.X..cp|
|00000d40| 20 3d 20 28 63 68 61 72 | 20 2a 29 72 65 61 6c 6c | = (char| *)reall|
|00000d50| 6f 63 28 6f 75 74 62 75 | 66 2c 20 6f 75 74 62 75 |oc(outbu|f, outbu|
|00000d60| 66 73 69 7a 65 20 2b 20 | 4f 55 54 42 55 46 53 49 |fsize + |OUTBUFSI|
|00000d70| 5a 45 20 2b 20 31 29 3b | 0a 58 09 09 69 66 20 28 |ZE + 1);|.X..if (|
|00000d80| 63 70 20 3d 3d 20 4e 55 | 4c 4c 29 0a 58 09 09 09 |cp == NU|LL).X...|
|00000d90| 65 72 72 6f 72 28 22 43 | 61 6e 6e 6f 74 20 72 65 |error("C|annot re|
|00000da0| 61 6c 6c 6f 63 20 6f 75 | 74 70 75 74 20 73 74 72 |alloc ou|tput str|
|00000db0| 69 6e 67 22 29 3b 0a 58 | 09 09 6f 75 74 62 75 66 |ing");.X|..outbuf|
|00000dc0| 20 3d 20 63 70 3b 0a 58 | 09 09 6f 75 74 62 75 66 | = cp;.X|..outbuf|
|00000dd0| 73 69 7a 65 20 2b 3d 20 | 4f 55 54 42 55 46 53 49 |size += |OUTBUFSI|
|00000de0| 5a 45 3b 0a 58 09 7d 0a | 58 09 6f 75 74 62 75 66 |ZE;.X.}.|X.outbuf|
|00000df0| 5b 6f 75 74 62 75 66 75 | 73 65 64 2b 2b 5d 20 3d |[outbufu|sed++] =|
|00000e00| 20 28 63 68 61 72 29 63 | 68 3b 0a 58 7d 0a 58 0a | (char)c|h;.X}.X.|
|00000e10| 58 0a 58 2f 2a 0a 58 20 | 2a 20 52 6f 75 74 69 6e |X.X/*.X |* Routin|
|00000e20| 65 20 74 6f 20 6f 75 74 | 70 75 74 20 61 20 6e 75 |e to out|put a nu|
|00000e30| 6c 6c 2d 74 65 72 6d 69 | 6e 61 74 65 64 20 73 74 |ll-termi|nated st|
|00000e40| 72 69 6e 67 20 65 69 74 | 68 65 72 0a 58 20 2a 20 |ring eit|her.X * |
|00000e50| 74 6f 20 61 20 46 49 4c | 45 20 68 61 6e 64 6c 65 |to a FIL|E handle|
|00000e60| 20 6f 72 20 69 6e 74 6f | 20 61 20 73 74 72 69 6e | or into| a strin|
|00000e70| 67 2e 0a 58 20 2a 2f 0a | 58 76 6f 69 64 0a 58 6d |g..X */.|Xvoid.Xm|
|00000e80| 61 74 68 5f 73 74 72 28 | 73 74 72 29 0a 58 09 63 |ath_str(|str).X.c|
|00000e90| 68 61 72 09 2a 73 74 72 | 3b 0a 58 7b 0a 58 09 63 |har.*str|;.X{.X.c|
|00000ea0| 68 61 72 09 2a 63 70 3b | 0a 58 09 69 6e 74 09 6c |har.*cp;|.X.int.l|
|00000eb0| 65 6e 3b 0a 58 0a 58 09 | 69 66 20 28 21 6f 75 74 |en;.X.X.|if (!out|
|00000ec0| 70 75 74 69 73 73 74 72 | 69 6e 67 29 20 7b 0a 58 |putisstr|ing) {.X|
|00000ed0| 09 09 66 70 75 74 73 28 | 73 74 72 2c 20 6f 75 74 |..fputs(|str, out|
|00000ee0| 66 70 29 3b 0a 58 09 09 | 72 65 74 75 72 6e 3b 0a |fp);.X..|return;.|
|00000ef0| 58 09 7d 0a 58 09 6c 65 | 6e 20 3d 20 73 74 72 6c |X.}.X.le|n = strl|
|00000f00| 65 6e 28 73 74 72 29 3b | 0a 58 09 69 66 20 28 28 |en(str);|.X.if ((|
|00000f10| 6f 75 74 62 75 66 75 73 | 65 64 20 2b 20 6c 65 6e |outbufus|ed + len|
|00000f20| 29 20 3e 20 6f 75 74 62 | 75 66 73 69 7a 65 29 20 |) > outb|ufsize) |
|00000f30| 7b 0a 58 09 09 63 70 20 | 3d 20 28 63 68 61 72 20 |{.X..cp |= (char |
|00000f40| 2a 29 72 65 61 6c 6c 6f | 63 28 6f 75 74 62 75 66 |*)reallo|c(outbuf|
|00000f50| 2c 20 6f 75 74 62 75 66 | 73 69 7a 65 20 2b 20 6c |, outbuf|size + l|
|00000f60| 65 6e 20 2b 20 4f 55 54 | 42 55 46 53 49 5a 45 20 |en + OUT|BUFSIZE |
|00000f70| 2b 20 31 29 3b 0a 58 09 | 09 69 66 20 28 63 70 20 |+ 1);.X.|.if (cp |
|00000f80| 3d 3d 20 4e 55 4c 4c 29 | 0a 58 09 09 09 65 72 72 |== NULL)|.X...err|
|00000f90| 6f 72 28 22 43 61 6e 6e | 6f 74 20 72 65 61 6c 6c |or("Cann|ot reall|
|00000fa0| 6f 63 20 6f 75 74 70 75 | 74 20 73 74 72 69 6e 67 |oc outpu|t string|
|00000fb0| 22 29 3b 0a 58 09 09 6f | 75 74 62 75 66 20 3d 20 |");.X..o|utbuf = |
|00000fc0| 63 70 3b 0a 58 09 09 6f | 75 74 62 75 66 73 69 7a |cp;.X..o|utbufsiz|
|00000fd0| 65 20 2b 3d 20 28 6c 65 | 6e 20 2b 20 4f 55 54 42 |e += (le|n + OUTB|
|00000fe0| 55 46 53 49 5a 45 29 3b | 0a 58 09 7d 0a 58 09 6d |UFSIZE);|.X.}.X.m|
|00000ff0| 65 6d 63 70 79 28 26 6f | 75 74 62 75 66 5b 6f 75 |emcpy(&o|utbuf[ou|
|00001000| 74 62 75 66 75 73 65 64 | 5d 2c 20 73 74 72 2c 20 |tbufused|], str, |
|00001010| 6c 65 6e 29 3b 0a 58 09 | 6f 75 74 62 75 66 75 73 |len);.X.|outbufus|
|00001020| 65 64 20 2b 3d 20 6c 65 | 6e 3b 0a 58 7d 0a 58 0a |ed += le|n;.X}.X.|
|00001030| 58 0a 58 2f 2a 0a 58 20 | 2a 20 52 6f 75 74 69 6e |X.X/*.X |* Routin|
|00001040| 65 20 74 6f 20 6f 75 74 | 70 75 74 20 61 20 70 72 |e to out|put a pr|
|00001050| 69 6e 74 66 2d 73 74 79 | 6c 65 20 66 6f 72 6d 61 |intf-sty|le forma|
|00001060| 74 74 65 64 20 73 74 72 | 69 6e 67 20 65 69 74 68 |tted str|ing eith|
|00001070| 65 72 0a 58 20 2a 20 74 | 6f 20 61 20 46 49 4c 45 |er.X * t|o a FILE|
|00001080| 20 68 61 6e 64 6c 65 20 | 6f 72 20 69 6e 74 6f 20 | handle |or into |
|00001090| 61 20 73 74 72 69 6e 67 | 2e 0a 58 20 2a 2f 0a 58 |a string|..X */.X|
|000010a0| 23 69 66 64 65 66 20 56 | 41 52 41 52 47 53 0a 58 |#ifdef V|ARARGS.X|
|000010b0| 23 20 64 65 66 69 6e 65 | 20 56 41 5f 41 4c 49 53 |# define| VA_ALIS|
|000010c0| 54 20 66 6d 74 2c 20 76 | 61 5f 61 6c 69 73 74 0a |T fmt, v|a_alist.|
|000010d0| 58 23 20 64 65 66 69 6e | 65 20 56 41 5f 44 43 4c |X# defin|e VA_DCL|
|000010e0| 20 63 68 61 72 20 2a 66 | 6d 74 3b 20 76 61 5f 64 | char *f|mt; va_d|
|000010f0| 63 6c 0a 58 23 65 6c 73 | 65 0a 58 23 20 69 66 64 |cl.X#els|e.X# ifd|
|00001100| 65 66 20 5f 5f 53 54 44 | 43 5f 5f 0a 58 23 20 20 |ef __STD|C__.X#  |
|00001110| 64 65 66 69 6e 65 20 56 | 41 5f 41 4c 49 53 54 20 |define V|A_ALIST |
|00001120| 63 68 61 72 20 2a 66 6d | 74 2c 20 2e 2e 2e 0a 58 |char *fm|t, ....X|
|00001130| 23 20 20 64 65 66 69 6e | 65 20 56 41 5f 44 43 4c |#  defin|e VA_DCL|
|00001140| 0a 58 23 20 65 6c 73 65 | 0a 58 23 20 20 64 65 66 |.X# else|.X#  def|
|00001150| 69 6e 65 20 56 41 5f 41 | 4c 49 53 54 20 66 6d 74 |ine VA_A|LIST fmt|
|00001160| 0a 58 23 20 20 64 65 66 | 69 6e 65 20 56 41 5f 44 |.X#  def|ine VA_D|
|00001170| 43 4c 20 63 68 61 72 20 | 2a 66 6d 74 3b 0a 58 23 |CL char |*fmt;.X#|
|00001180| 20 65 6e 64 69 66 0a 58 | 23 65 6e 64 69 66 0a 58 | endif.X|#endif.X|
|00001190| 2f 2a 56 41 52 41 52 47 | 53 2a 2f 0a 58 76 6f 69 |/*VARARG|S*/.Xvoi|
|000011a0| 64 0a 58 6d 61 74 68 5f | 66 6d 74 28 56 41 5f 41 |d.Xmath_|fmt(VA_A|
|000011b0| 4c 49 53 54 29 0a 58 09 | 56 41 5f 44 43 4c 0a 58 |LIST).X.|VA_DCL.X|
|000011c0| 7b 0a 58 09 76 61 5f 6c | 69 73 74 20 61 70 3b 0a |{.X.va_l|ist ap;.|
|000011d0| 58 09 63 68 61 72 20 62 | 75 66 5b 32 30 30 5d 3b |X.char b|uf[200];|
|000011e0| 0a 58 0a 58 23 69 66 64 | 65 66 20 56 41 52 41 52 |.X.X#ifd|ef VARAR|
|000011f0| 47 53 0a 58 09 76 61 5f | 73 74 61 72 74 28 61 70 |GS.X.va_|start(ap|
|00001200| 29 3b 0a 58 23 65 6c 73 | 65 0a 58 09 76 61 5f 73 |);.X#els|e.X.va_s|
|00001210| 74 61 72 74 28 61 70 2c | 20 66 6d 74 29 3b 0a 58 |tart(ap,| fmt);.X|
|00001220| 23 65 6e 64 69 66 0a 58 | 09 76 73 70 72 69 6e 74 |#endif.X|.vsprint|
|00001230| 66 28 62 75 66 2c 20 66 | 6d 74 2c 20 61 70 29 3b |f(buf, f|mt, ap);|
|00001240| 0a 58 09 76 61 5f 65 6e | 64 28 61 70 29 3b 0a 58 |.X.va_en|d(ap);.X|
|00001250| 09 6d 61 74 68 5f 73 74 | 72 28 62 75 66 29 3b 0a |.math_st|r(buf);.|
|00001260| 58 7d 0a 58 0a 58 0a 58 | 2f 2a 0a 58 20 2a 20 46 |X}.X.X.X|/*.X * F|
|00001270| 6c 75 73 68 20 74 68 65 | 20 63 75 72 72 65 6e 74 |lush the| current|
|00001280| 20 6f 75 74 70 75 74 20 | 73 74 72 65 61 6d 2e 0a | output |stream..|
|00001290| 58 20 2a 2f 0a 58 76 6f | 69 64 0a 58 6d 61 74 68 |X */.Xvo|id.Xmath|
|000012a0| 5f 66 6c 75 73 68 28 29 | 0a 58 7b 0a 58 09 69 66 |_flush()|.X{.X.if|
|000012b0| 20 28 21 6f 75 74 70 75 | 74 69 73 73 74 72 69 6e | (!outpu|tisstrin|
|000012c0| 67 29 0a 58 09 09 66 66 | 6c 75 73 68 28 6f 75 74 |g).X..ff|lush(out|
|000012d0| 66 70 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 0a |fp);.X}.|X.X.X/*.|
|000012e0| 58 20 2a 20 44 69 76 65 | 72 74 20 66 75 72 74 68 |X * Dive|rt furth|
|000012f0| 65 72 20 6f 75 74 70 75 | 74 20 73 6f 20 74 68 61 |er outpu|t so tha|
|00001300| 74 20 69 74 20 69 73 20 | 73 61 76 65 64 20 69 6e |t it is |saved in|
|00001310| 74 6f 20 61 20 73 74 72 | 69 6e 67 20 74 68 61 74 |to a str|ing that|
|00001320| 20 77 69 6c 6c 20 62 65 | 0a 58 20 2a 20 72 65 74 | will be|.X * ret|
|00001330| 75 72 6e 65 64 20 6c 61 | 74 65 72 20 77 68 65 6e |urned la|ter when|
|00001340| 20 74 68 65 20 64 69 76 | 65 72 73 69 6f 6e 20 69 | the div|ersion i|
|00001350| 73 20 63 6f 6d 70 6c 65 | 74 65 64 2e 20 20 54 68 |s comple|ted.  Th|
|00001360| 65 20 63 75 72 72 65 6e | 74 20 73 74 61 74 65 20 |e curren|t state |
|00001370| 6f 66 0a 58 20 2a 20 6f | 75 74 70 75 74 20 69 73 |of.X * o|utput is|
|00001380| 20 72 65 6d 65 6d 62 65 | 72 65 64 20 66 6f 72 20 | remembe|red for |
|00001390| 6c 61 74 65 72 20 72 65 | 73 74 6f 72 61 74 69 6f |later re|storatio|
|000013a0| 6e 2e 20 20 44 69 76 65 | 72 73 69 6f 6e 73 20 63 |n.  Dive|rsions c|
|000013b0| 61 6e 20 62 65 20 6e 65 | 73 74 65 64 2e 0a 58 20 |an be ne|sted..X |
|000013c0| 2a 20 4f 75 74 70 75 74 | 20 64 69 76 65 72 73 69 |* Output| diversi|
|000013d0| 6f 6e 20 69 73 20 6f 6e | 6c 79 20 69 6e 74 65 6e |on is on|ly inten|
|000013e0| 64 65 64 20 66 6f 72 20 | 73 61 76 69 6e 67 20 6f |ded for |saving o|
|000013f0| 75 74 70 75 74 20 74 6f | 20 22 73 74 64 6f 75 74 |utput to| "stdout|
|00001400| 22 2e 0a 58 20 2a 2f 0a | 58 76 6f 69 64 0a 58 64 |"..X */.|Xvoid.Xd|
|00001410| 69 76 65 72 74 69 6f 28 | 29 0a 58 7b 0a 58 09 72 |ivertio(|).X{.X.r|
|00001420| 65 67 69 73 74 65 72 20 | 49 4f 53 54 41 54 45 20 |egister |IOSTATE |
|00001430| 2a 73 70 3b 0a 58 0a 58 | 09 73 70 20 3d 20 28 49 |*sp;.X.X|.sp = (I|
|00001440| 4f 53 54 41 54 45 20 2a | 29 20 6d 61 6c 6c 6f 63 |OSTATE *|) malloc|
|00001450| 28 73 69 7a 65 6f 66 28 | 49 4f 53 54 41 54 45 29 |(sizeof(|IOSTATE)|
|00001460| 29 3b 0a 58 09 69 66 20 | 28 73 70 20 3d 3d 20 4e |);.X.if |(sp == N|
|00001470| 55 4c 4c 29 0a 58 09 09 | 65 72 72 6f 72 28 22 4e |ULL).X..|error("N|
|00001480| 6f 20 6d 65 6d 6f 72 79 | 20 66 6f 72 20 64 69 76 |o memory| for div|
|00001490| 65 72 74 69 6e 67 20 6f | 75 74 70 75 74 22 29 3b |erting o|utput");|
|000014a0| 0a 58 09 73 70 2d 3e 6f | 6c 64 69 6f 73 74 61 74 |.X.sp->o|ldiostat|
|000014b0| 65 73 20 3d 20 6f 6c 64 | 69 6f 73 74 61 74 65 73 |es = old|iostates|
|000014c0| 3b 0a 58 09 73 70 2d 3e | 6f 75 74 64 69 67 69 74 |;.X.sp->|outdigit|
|000014d0| 73 20 3d 20 5f 6f 75 74 | 64 69 67 69 74 73 5f 3b |s = _out|digits_;|
|000014e0| 0a 58 09 73 70 2d 3e 6f | 75 74 6d 6f 64 65 20 3d |.X.sp->o|utmode =|
|000014f0| 20 5f 6f 75 74 6d 6f 64 | 65 5f 3b 0a 58 09 73 70 | _outmod|e_;.X.sp|
|00001500| 2d 3e 6f 75 74 66 70 20 | 3d 20 6f 75 74 66 70 3b |->outfp |= outfp;|
|00001510| 0a 58 09 73 70 2d 3e 6f | 75 74 62 75 66 20 3d 20 |.X.sp->o|utbuf = |
|00001520| 6f 75 74 62 75 66 3b 0a | 58 09 73 70 2d 3e 6f 75 |outbuf;.|X.sp->ou|
|00001530| 74 62 75 66 73 69 7a 65 | 20 3d 20 6f 75 74 62 75 |tbufsize| = outbu|
|00001540| 66 73 69 7a 65 3b 0a 58 | 09 73 70 2d 3e 6f 75 74 |fsize;.X|.sp->out|
|00001550| 62 75 66 75 73 65 64 20 | 3d 20 6f 75 74 62 75 66 |bufused |= outbuf|
|00001560| 75 73 65 64 3b 0a 58 09 | 73 70 2d 3e 6f 75 74 70 |used;.X.|sp->outp|
|00001570| 75 74 69 73 73 74 72 69 | 6e 67 20 3d 20 6f 75 74 |utisstri|ng = out|
|00001580| 70 75 74 69 73 73 74 72 | 69 6e 67 3b 0a 58 0a 58 |putisstr|ing;.X.X|
|00001590| 09 6f 75 74 62 75 66 75 | 73 65 64 20 3d 20 30 3b |.outbufu|sed = 0;|
|000015a0| 0a 58 09 6f 75 74 62 75 | 66 73 69 7a 65 20 3d 20 |.X.outbu|fsize = |
|000015b0| 30 3b 0a 58 09 6f 75 74 | 62 75 66 20 3d 20 28 63 |0;.X.out|buf = (c|
|000015c0| 68 61 72 20 2a 29 20 6d | 61 6c 6c 6f 63 28 4f 55 |har *) m|alloc(OU|
|000015d0| 54 42 55 46 53 49 5a 45 | 20 2b 20 31 29 3b 0a 58 |TBUFSIZE| + 1);.X|
|000015e0| 09 69 66 20 28 6f 75 74 | 62 75 66 20 3d 3d 20 4e |.if (out|buf == N|
|000015f0| 55 4c 4c 29 0a 58 09 09 | 65 72 72 6f 72 28 22 43 |ULL).X..|error("C|
|00001600| 61 6e 6e 6f 74 20 61 6c | 6c 6f 63 61 74 65 20 64 |annot al|locate d|
|00001610| 69 76 65 72 74 20 73 74 | 72 69 6e 67 22 29 3b 0a |ivert st|ring");.|
|00001620| 58 09 6f 75 74 62 75 66 | 73 69 7a 65 20 3d 20 4f |X.outbuf|size = O|
|00001630| 55 54 42 55 46 53 49 5a | 45 3b 0a 58 09 6f 75 74 |UTBUFSIZ|E;.X.out|
|00001640| 70 75 74 69 73 73 74 72 | 69 6e 67 20 3d 20 54 52 |putisstr|ing = TR|
|00001650| 55 45 3b 0a 58 09 6f 6c | 64 69 6f 73 74 61 74 65 |UE;.X.ol|diostate|
|00001660| 73 20 3d 20 73 70 3b 0a | 58 7d 0a 58 0a 58 0a 58 |s = sp;.|X}.X.X.X|
|00001670| 2f 2a 0a 58 20 2a 20 55 | 6e 64 69 76 65 72 74 20 |/*.X * U|ndivert |
|00001680| 6f 75 74 70 75 74 20 61 | 6e 64 20 72 65 74 75 72 |output a|nd retur|
|00001690| 6e 20 74 68 65 20 73 61 | 76 65 64 20 6f 75 74 70 |n the sa|ved outp|
|000016a0| 75 74 20 61 73 20 61 20 | 73 74 72 69 6e 67 2e 20 |ut as a |string. |
|000016b0| 20 54 68 69 73 20 61 6c | 73 6f 0a 58 20 2a 20 72 | This al|so.X * r|
|000016c0| 65 73 74 6f 72 65 73 20 | 74 68 65 20 6f 75 74 70 |estores |the outp|
|000016d0| 75 74 20 73 74 61 74 65 | 20 74 6f 20 77 68 61 74 |ut state| to what|
|000016e0| 20 69 74 20 77 61 73 20 | 62 65 66 6f 72 65 20 74 | it was |before t|
|000016f0| 68 65 20 64 69 76 65 72 | 73 69 6f 6e 20 62 65 67 |he diver|sion beg|
|00001700| 61 6e 2e 0a 58 20 2a 20 | 54 68 65 20 73 74 72 69 |an..X * |The stri|
|00001710| 6e 67 20 6e 65 65 64 73 | 20 66 72 65 65 69 6e 67 |ng needs| freeing|
|00001720| 20 62 79 20 74 68 65 20 | 63 61 6c 6c 65 72 20 77 | by the |caller w|
|00001730| 68 65 6e 20 69 74 20 69 | 73 20 6e 6f 20 6c 6f 6e |hen it i|s no lon|
|00001740| 67 65 72 20 6e 65 65 64 | 65 64 2e 0a 58 20 2a 2f |ger need|ed..X */|
|00001750| 0a 58 63 68 61 72 20 2a | 0a 58 67 65 74 64 69 76 |.Xchar *|.Xgetdiv|
|00001760| 65 72 74 65 64 69 6f 28 | 29 0a 58 7b 0a 58 09 72 |ertedio(|).X{.X.r|
|00001770| 65 67 69 73 74 65 72 20 | 49 4f 53 54 41 54 45 20 |egister |IOSTATE |
|00001780| 2a 73 70 3b 0a 58 09 63 | 68 61 72 20 2a 63 70 3b |*sp;.X.c|har *cp;|
|00001790| 0a 58 0a 58 09 73 70 20 | 3d 20 6f 6c 64 69 6f 73 |.X.X.sp |= oldios|
|000017a0| 74 61 74 65 73 3b 0a 58 | 09 69 66 20 28 73 70 20 |tates;.X|.if (sp |
|000017b0| 3d 3d 20 4e 55 4c 4c 29 | 0a 58 09 09 65 72 72 6f |== NULL)|.X..erro|
|000017c0| 72 28 22 4e 6f 20 64 69 | 76 65 72 74 65 64 20 73 |r("No di|verted s|
|000017d0| 74 61 74 65 20 74 6f 20 | 72 65 73 74 6f 72 65 22 |tate to |restore"|
|000017e0| 29 3b 0a 58 09 63 70 20 | 3d 20 6f 75 74 62 75 66 |);.X.cp |= outbuf|
|000017f0| 3b 0a 58 09 63 70 5b 6f | 75 74 62 75 66 75 73 65 |;.X.cp[o|utbufuse|
|00001800| 64 5d 20 3d 20 27 5c 30 | 27 3b 0a 58 09 6f 6c 64 |d] = '\0|';.X.old|
|00001810| 69 6f 73 74 61 74 65 73 | 20 3d 20 73 70 2d 3e 6f |iostates| = sp->o|
|00001820| 6c 64 69 6f 73 74 61 74 | 65 73 3b 0a 58 09 5f 6f |ldiostat|es;.X._o|
|00001830| 75 74 64 69 67 69 74 73 | 5f 20 3d 20 73 70 2d 3e |utdigits|_ = sp->|
|00001840| 6f 75 74 64 69 67 69 74 | 73 3b 0a 58 09 5f 6f 75 |outdigit|s;.X._ou|
|00001850| 74 6d 6f 64 65 5f 20 3d | 20 73 70 2d 3e 6f 75 74 |tmode_ =| sp->out|
|00001860| 6d 6f 64 65 3b 0a 58 09 | 6f 75 74 66 70 20 3d 20 |mode;.X.|outfp = |
|00001870| 73 70 2d 3e 6f 75 74 66 | 70 3b 0a 58 09 6f 75 74 |sp->outf|p;.X.out|
|00001880| 62 75 66 20 3d 20 73 70 | 2d 3e 6f 75 74 62 75 66 |buf = sp|->outbuf|
|00001890| 3b 0a 58 09 6f 75 74 62 | 75 66 73 69 7a 65 20 3d |;.X.outb|ufsize =|
|000018a0| 20 73 70 2d 3e 6f 75 74 | 62 75 66 73 69 7a 65 3b | sp->out|bufsize;|
|000018b0| 0a 58 09 6f 75 74 62 75 | 66 75 73 65 64 20 3d 20 |.X.outbu|fused = |
|000018c0| 73 70 2d 3e 6f 75 74 62 | 75 66 75 73 65 64 3b 0a |sp->outb|ufused;.|
|000018d0| 58 09 6f 75 74 62 75 66 | 20 3d 20 73 70 2d 3e 6f |X.outbuf| = sp->o|
|000018e0| 75 74 62 75 66 3b 0a 58 | 09 6f 75 74 70 75 74 69 |utbuf;.X|.outputi|
|000018f0| 73 73 74 72 69 6e 67 20 | 3d 20 73 70 2d 3e 6f 75 |sstring |= sp->ou|
|00001900| 74 70 75 74 69 73 73 74 | 72 69 6e 67 3b 0a 58 09 |tputisst|ring;.X.|
|00001910| 72 65 74 75 72 6e 20 63 | 70 3b 0a 58 7d 0a 58 0a |return c|p;.X}.X.|
|00001920| 58 0a 58 2f 2a 0a 58 20 | 2a 20 43 6c 65 61 72 20 |X.X/*.X |* Clear |
|00001930| 61 6c 6c 20 64 69 76 65 | 72 73 69 6f 6e 73 20 61 |all dive|rsions a|
|00001940| 6e 64 20 73 65 74 20 6f | 75 74 70 75 74 20 62 61 |nd set o|utput ba|
|00001950| 63 6b 20 74 6f 20 74 68 | 65 20 6f 72 69 67 69 6e |ck to th|e origin|
|00001960| 61 6c 20 64 65 73 74 69 | 6e 61 74 69 6f 6e 2e 0a |al desti|nation..|
|00001970| 58 20 2a 20 54 68 69 73 | 20 69 73 20 63 61 6c 6c |X * This| is call|
|00001980| 65 64 20 77 68 65 6e 20 | 72 65 73 65 74 74 69 6e |ed when |resettin|
|00001990| 67 20 74 68 65 20 67 6c | 6f 62 61 6c 20 73 74 61 |g the gl|obal sta|
|000019a0| 74 65 20 6f 66 20 74 68 | 65 20 70 72 6f 67 72 61 |te of th|e progra|
|000019b0| 6d 2e 0a 58 20 2a 2f 0a | 58 76 6f 69 64 0a 58 63 |m..X */.|Xvoid.Xc|
|000019c0| 6c 65 61 72 64 69 76 65 | 72 73 69 6f 6e 73 28 29 |leardive|rsions()|
|000019d0| 0a 58 7b 0a 58 09 77 68 | 69 6c 65 20 28 6f 6c 64 |.X{.X.wh|ile (old|
|000019e0| 69 6f 73 74 61 74 65 73 | 29 0a 58 09 09 66 72 65 |iostates|).X..fre|
|000019f0| 65 28 67 65 74 64 69 76 | 65 72 74 65 64 69 6f 28 |e(getdiv|ertedio(|
|00001a00| 29 29 3b 0a 58 7d 0a 58 | 0a 58 0a 58 2f 2a 0a 58 |));.X}.X|.X.X/*.X|
|00001a10| 20 2a 20 53 65 74 20 74 | 68 65 20 6f 75 74 70 75 | * Set t|he outpu|
|00001a20| 74 20 72 6f 75 74 69 6e | 65 73 20 74 6f 20 6f 75 |t routin|es to ou|
|00001a30| 74 70 75 74 20 74 6f 20 | 74 68 65 20 73 70 65 63 |tput to |the spec|
|00001a40| 69 66 69 65 64 20 46 49 | 4c 45 20 73 74 72 65 61 |ified FI|LE strea|
|00001a50| 6d 2e 0a 58 20 2a 20 54 | 68 69 73 20 69 6e 74 65 |m..X * T|his inte|
|00001a60| 72 61 63 74 73 20 77 69 | 74 68 20 6f 75 74 70 75 |racts wi|th outpu|
|00001a70| 74 20 64 69 76 65 72 73 | 69 6f 6e 20 69 6e 20 74 |t divers|ion in t|
|00001a80| 68 65 20 66 6f 6c 6c 6f | 77 69 6e 67 20 6d 61 6e |he follo|wing man|
|00001a90| 6e 65 72 2e 0a 58 20 2a | 09 53 54 44 4f 55 54 09 |ner..X *|.STDOUT.|
|00001aa0| 64 69 76 65 72 73 69 6f | 6e 09 61 63 74 69 6f 6e |diversio|n.action|
|00001ab0| 0a 58 20 2a 09 2d 2d 2d | 2d 09 2d 2d 2d 2d 2d 2d |.X *.---|-.------|
|00001ac0| 2d 2d 2d 09 2d 2d 2d 2d | 2d 2d 0a 58 20 2a 09 79 |---.----|--.X *.y|
|00001ad0| 65 73 09 79 65 73 09 09 | 73 65 74 20 6f 75 74 70 |es.yes..|set outp|
|00001ae0| 75 74 20 74 6f 20 64 69 | 76 65 72 73 69 6f 6e 20 |ut to di|version |
|00001af0| 73 74 72 69 6e 67 20 61 | 67 61 69 6e 2e 0a 58 20 |string a|gain..X |
|00001b00| 2a 09 79 65 73 09 6e 6f | 09 09 73 65 74 20 6f 75 |*.yes.no|..set ou|
|00001b10| 74 70 75 74 20 74 6f 20 | 73 74 64 6f 75 74 2e 0a |tput to |stdout..|
|00001b20| 58 20 2a 09 6e 6f 09 79 | 65 73 09 09 73 65 74 20 |X *.no.y|es..set |
|00001b30| 6f 75 74 70 75 74 20 74 | 6f 20 73 70 65 63 69 66 |output t|o specif|
|00001b40| 69 65 64 20 66 69 6c 65 | 2e 0a 58 20 2a 09 6e 6f |ied file|..X *.no|
|00001b50| 09 6e 6f 09 09 73 65 74 | 20 6f 75 74 70 75 74 20 |.no..set| output |
|00001b60| 74 6f 20 73 70 65 63 69 | 66 69 65 64 20 66 69 6c |to speci|fied fil|
|00001b70| 65 2e 0a 58 20 2a 2f 0a | 58 76 6f 69 64 0a 58 73 |e..X */.|Xvoid.Xs|
|00001b80| 65 74 66 70 28 6e 65 77 | 66 70 29 0a 58 09 46 49 |etfp(new|fp).X.FI|
|00001b90| 4c 45 20 2a 6e 65 77 66 | 70 3b 0a 58 7b 0a 58 09 |LE *newf|p;.X{.X.|
|00001ba0| 6f 75 74 66 70 20 3d 20 | 6e 65 77 66 70 3b 0a 58 |outfp = |newfp;.X|
|00001bb0| 09 6f 75 74 70 75 74 69 | 73 73 74 72 69 6e 67 20 |.outputi|sstring |
|00001bc0| 3d 20 28 6f 6c 64 69 6f | 73 74 61 74 65 73 20 26 |= (oldio|states &|
|00001bd0| 26 20 28 6e 65 77 66 70 | 20 3d 3d 20 73 74 64 6f |& (newfp| == stdo|
|00001be0| 75 74 29 29 3b 0a 58 7d | 0a 58 0a 58 0a 58 2f 2a |ut));.X}|.X.X.X/*|
|00001bf0| 0a 58 20 2a 20 53 65 74 | 20 74 68 65 20 6f 75 74 |.X * Set| the out|
|00001c00| 70 75 74 20 6d 6f 64 65 | 20 66 6f 72 20 6e 75 6d |put mode| for num|
|00001c10| 65 72 69 63 20 6f 75 74 | 70 75 74 2e 0a 58 20 2a |eric out|put..X *|
|00001c20| 2f 0a 58 76 6f 69 64 0a | 58 73 65 74 6d 6f 64 65 |/.Xvoid.|Xsetmode|
|00001c30| 28 6e 65 77 6d 6f 64 65 | 29 0a 58 7b 0a 58 09 69 |(newmode|).X{.X.i|
|00001c40| 66 20 28 28 6e 65 77 6d | 6f 64 65 20 3c 3d 20 4d |f ((newm|ode <= M|
|00001c50| 4f 44 45 5f 44 45 46 41 | 55 4c 54 29 20 7c 7c 20 |ODE_DEFA|ULT) || |
|00001c60| 28 6e 65 77 6d 6f 64 65 | 20 3e 20 4d 4f 44 45 5f |(newmode| > MODE_|
|00001c70| 4d 41 58 29 29 0a 58 09 | 09 65 72 72 6f 72 28 22 |MAX)).X.|.error("|
|00001c80| 53 65 74 74 69 6e 67 20 | 69 6c 6c 65 67 61 6c 20 |Setting |illegal |
|00001c90| 6f 75 74 70 75 74 20 6d | 6f 64 65 22 29 3b 0a 58 |output m|ode");.X|
|00001ca0| 09 5f 6f 75 74 6d 6f 64 | 65 5f 20 3d 20 6e 65 77 |._outmod|e_ = new|
|00001cb0| 6d 6f 64 65 3b 0a 58 7d | 0a 58 0a 58 0a 58 2f 2a |mode;.X}|.X.X.X/*|
|00001cc0| 0a 58 20 2a 20 53 65 74 | 20 74 68 65 20 6e 75 6d |.X * Set| the num|
|00001cd0| 62 65 72 20 6f 66 20 64 | 69 67 69 74 73 20 66 6f |ber of d|igits fo|
|00001ce0| 72 20 66 6c 6f 61 74 20 | 6f 72 20 65 78 70 6f 6e |r float |or expon|
|00001cf0| 65 6e 74 69 61 6c 20 6f | 75 74 70 75 74 2e 0a 58 |ential o|utput..X|
|00001d00| 20 2a 2f 0a 58 76 6f 69 | 64 0a 58 73 65 74 64 69 | */.Xvoi|d.Xsetdi|
|00001d10| 67 69 74 73 28 6e 65 77 | 64 69 67 69 74 73 29 0a |gits(new|digits).|
|00001d20| 58 09 6c 6f 6e 67 20 6e | 65 77 64 69 67 69 74 73 |X.long n|ewdigits|
|00001d30| 3b 0a 58 7b 0a 58 09 69 | 66 20 28 6e 65 77 64 69 |;.X{.X.i|f (newdi|
|00001d40| 67 69 74 73 20 3c 20 30 | 29 0a 58 09 09 65 72 72 |gits < 0|).X..err|
|00001d50| 6f 72 28 22 53 65 74 74 | 69 6e 67 20 69 6c 6c 65 |or("Sett|ing ille|
|00001d60| 67 61 6c 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 69 |gal numb|er of di|
|00001d70| 67 69 74 73 22 29 3b 0a | 58 09 5f 6f 75 74 64 69 |gits");.|X._outdi|
|00001d80| 67 69 74 73 5f 20 3d 20 | 6e 65 77 64 69 67 69 74 |gits_ = |newdigit|
|00001d90| 73 3b 0a 58 7d 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 |s;.X}.X.|X.X/*.X |
|00001da0| 2a 20 50 72 69 6e 74 20 | 61 20 66 6f 72 6d 61 74 |* Print |a format|
|00001db0| 74 65 64 20 73 74 72 69 | 6e 67 20 63 6f 6e 74 61 |ted stri|ng conta|
|00001dc0| 69 6e 69 6e 67 20 61 72 | 62 69 74 72 61 72 79 20 |ining ar|bitrary |
|00001dd0| 6e 75 6d 62 65 72 73 2c | 20 73 69 6d 69 6c 61 72 |numbers,| similar|
|00001de0| 20 74 6f 20 70 72 69 6e | 74 66 2e 0a 58 20 2a 20 | to prin|tf..X * |
|00001df0| 41 4c 4c 20 6e 75 6d 65 | 72 69 63 20 61 72 67 75 |ALL nume|ric argu|
|00001e00| 6d 65 6e 74 73 20 74 6f | 20 74 68 69 73 20 72 6f |ments to| this ro|
|00001e10| 75 74 69 6e 65 20 61 72 | 65 20 72 61 74 69 6f 6e |utine ar|e ration|
|00001e20| 61 6c 20 4e 55 4d 42 45 | 52 73 2e 0a 58 20 2a 20 |al NUMBE|Rs..X * |
|00001e30| 56 61 72 69 6f 75 73 20 | 66 6f 72 6d 73 20 6f 66 |Various |forms of|
|00001e40| 20 70 72 69 6e 74 69 6e | 67 20 73 75 63 68 20 6e | printin|g such n|
|00001e50| 75 6d 62 65 72 73 20 61 | 72 65 20 73 75 70 70 6c |umbers a|re suppl|
|00001e60| 69 65 64 2c 20 69 6e 20 | 61 64 64 69 74 69 6f 6e |ied, in |addition|
|00001e70| 0a 58 20 2a 20 74 6f 20 | 73 74 72 69 6e 67 73 20 |.X * to |strings |
|00001e80| 61 6e 64 20 63 68 61 72 | 61 63 74 65 72 73 2e 20 |and char|acters. |
|00001e90| 20 4f 75 74 70 75 74 20 | 63 61 6e 20 61 63 74 75 | Output |can actu|
|00001ea0| 61 6c 6c 79 20 62 65 20 | 74 6f 20 61 6e 79 20 46 |ally be |to any F|
|00001eb0| 49 4c 45 0a 58 20 2a 20 | 73 74 72 65 61 6d 20 6f |ILE.X * |stream o|
|00001ec0| 72 20 61 20 73 74 72 69 | 6e 67 2e 0a 58 20 2a 2f |r a stri|ng..X */|
|00001ed0| 0a 58 23 69 66 64 65 66 | 20 56 41 52 41 52 47 53 |.X#ifdef| VARARGS|
|00001ee0| 0a 58 23 20 64 65 66 69 | 6e 65 20 56 41 5f 41 4c |.X# defi|ne VA_AL|
|00001ef0| 49 53 54 31 20 66 6d 74 | 2c 20 76 61 5f 61 6c 69 |IST1 fmt|, va_ali|
|00001f00| 73 74 0a 58 23 20 64 65 | 66 69 6e 65 20 56 41 5f |st.X# de|fine VA_|
|00001f10| 44 43 4c 31 20 63 68 61 | 72 20 2a 66 6d 74 3b 20 |DCL1 cha|r *fmt; |
|00001f20| 76 61 5f 64 63 6c 0a 58 | 23 65 6c 73 65 0a 58 23 |va_dcl.X|#else.X#|
|00001f30| 20 69 66 64 65 66 20 5f | 5f 53 54 44 43 5f 5f 0a | ifdef _|_STDC__.|
|00001f40| 58 23 20 20 64 65 66 69 | 6e 65 20 56 41 5f 41 4c |X#  defi|ne VA_AL|
|00001f50| 49 53 54 31 20 63 68 61 | 72 20 2a 66 6d 74 2c 20 |IST1 cha|r *fmt, |
|00001f60| 2e 2e 2e 0a 58 23 20 20 | 64 65 66 69 6e 65 20 56 |....X#  |define V|
|00001f70| 41 5f 44 43 4c 31 0a 58 | 23 20 65 6c 73 65 0a 58 |A_DCL1.X|# else.X|
|00001f80| 23 20 20 64 65 66 69 6e | 65 20 56 41 5f 41 4c 49 |#  defin|e VA_ALI|
|00001f90| 53 54 31 20 66 6d 74 0a | 58 23 20 20 64 65 66 69 |ST1 fmt.|X#  defi|
|00001fa0| 6e 65 20 56 41 5f 44 43 | 4c 31 20 63 68 61 72 20 |ne VA_DC|L1 char |
|00001fb0| 2a 66 6d 74 3b 0a 58 23 | 20 65 6e 64 69 66 0a 58 |*fmt;.X#| endif.X|
|00001fc0| 23 65 6e 64 69 66 0a 58 | 2f 2a 56 41 52 41 52 47 |#endif.X|/*VARARG|
|00001fd0| 53 2a 2f 0a 58 76 6f 69 | 64 0a 58 71 70 72 69 6e |S*/.Xvoi|d.Xqprin|
|00001fe0| 74 66 28 56 41 5f 41 4c | 49 53 54 31 29 0a 58 09 |tf(VA_AL|IST1).X.|
|00001ff0| 56 41 5f 44 43 4c 31 0a | 58 7b 0a 58 09 76 61 5f |VA_DCL1.|X{.X.va_|
|00002000| 6c 69 73 74 20 61 70 3b | 0a 58 09 4e 55 4d 42 45 |list ap;|.X.NUMBE|
|00002010| 52 20 2a 71 3b 0a 58 09 | 69 6e 74 20 63 68 2c 20 |R *q;.X.|int ch, |
|00002020| 73 69 67 6e 3b 0a 58 09 | 6c 6f 6e 67 20 77 69 64 |sign;.X.|long wid|
|00002030| 74 68 2c 20 70 72 65 63 | 69 73 69 6f 6e 3b 0a 58 |th, prec|ision;.X|
|00002040| 0a 58 23 69 66 64 65 66 | 20 56 41 52 41 52 47 53 |.X#ifdef| VARARGS|
|00002050| 0a 58 09 76 61 5f 73 74 | 61 72 74 28 61 70 29 3b |.X.va_st|art(ap);|
|00002060| 0a 58 23 65 6c 73 65 0a | 58 09 76 61 5f 73 74 61 |.X#else.|X.va_sta|
|00002070| 72 74 28 61 70 2c 20 66 | 6d 74 29 3b 0a 58 23 65 |rt(ap, f|mt);.X#e|
|00002080| 6e 64 69 66 0a 58 09 77 | 68 69 6c 65 20 28 28 63 |ndif.X.w|hile ((c|
|00002090| 68 20 3d 20 2a 66 6d 74 | 2b 2b 29 20 21 3d 20 27 |h = *fmt|++) != '|
|000020a0| 5c 30 27 29 20 7b 0a 58 | 09 09 69 66 20 28 63 68 |\0') {.X|..if (ch|
|000020b0| 20 3d 3d 20 27 5c 5c 27 | 29 20 7b 0a 58 09 09 09 | == '\\'|) {.X...|
|000020c0| 63 68 20 3d 20 2a 66 6d | 74 2b 2b 3b 0a 58 09 09 |ch = *fm|t++;.X..|
|000020d0| 09 73 77 69 74 63 68 20 | 28 63 68 29 20 7b 0a 58 |.switch |(ch) {.X|
|000020e0| 09 09 09 09 63 61 73 65 | 20 27 6e 27 3a 20 63 68 |....case| 'n': ch|
|000020f0| 20 3d 20 27 5c 6e 27 3b | 20 62 72 65 61 6b 3b 0a | = '\n';| break;.|
|00002100| 58 09 09 09 09 63 61 73 | 65 20 27 72 27 3a 20 63 |X....cas|e 'r': c|
|00002110| 68 20 3d 20 27 5c 72 27 | 3b 20 62 72 65 61 6b 3b |h = '\r'|; break;|
|00002120| 0a 58 09 09 09 09 63 61 | 73 65 20 27 74 27 3a 20 |.X....ca|se 't': |
|00002130| 63 68 20 3d 20 27 5c 74 | 27 3b 20 62 72 65 61 6b |ch = '\t|'; break|
|00002140| 3b 0a 58 09 09 09 09 63 | 61 73 65 20 27 66 27 3a |;.X....c|ase 'f':|
|00002150| 20 63 68 20 3d 20 27 5c | 66 27 3b 20 62 72 65 61 | ch = '\|f'; brea|
|00002160| 6b 3b 0a 58 09 09 09 09 | 63 61 73 65 20 27 76 27 |k;.X....|case 'v'|
|00002170| 3a 20 63 68 20 3d 20 27 | 5c 76 27 3b 20 62 72 65 |: ch = '|\v'; bre|
|00002180| 61 6b 3b 0a 58 09 09 09 | 09 63 61 73 65 20 27 62 |ak;.X...|.case 'b|
|00002190| 27 3a 20 63 68 20 3d 20 | 27 5c 62 27 3b 20 62 72 |': ch = |'\b'; br|
|000021a0| 65 61 6b 3b 0a 58 09 09 | 09 09 63 61 73 65 20 30 |eak;.X..|..case 0|
|000021b0| 3a 0a 58 09 09 09 09 09 | 76 61 5f 65 6e 64 28 61 |:.X.....|va_end(a|
|000021c0| 70 29 3b 0a 58 09 09 09 | 09 09 72 65 74 75 72 6e |p);.X...|..return|
|000021d0| 3b 0a 58 09 09 09 7d 0a | 58 09 09 09 50 55 54 43 |;.X...}.|X...PUTC|
|000021e0| 48 41 52 28 63 68 29 3b | 0a 58 09 09 09 63 6f 6e |HAR(ch);|.X...con|
|000021f0| 74 69 6e 75 65 3b 0a 58 | 09 09 7d 0a 58 09 09 69 |tinue;.X|..}.X..i|
|00002200| 66 20 28 63 68 20 21 3d | 20 27 25 27 29 20 7b 0a |f (ch !=| '%') {.|
|00002210| 58 09 09 09 50 55 54 43 | 48 41 52 28 63 68 29 3b |X...PUTC|HAR(ch);|
|00002220| 0a 58 09 09 09 63 6f 6e | 74 69 6e 75 65 3b 0a 58 |.X...con|tinue;.X|
|00002230| 09 09 7d 0a 58 09 09 63 | 68 20 3d 20 2a 66 6d 74 |..}.X..c|h = *fmt|
|00002240| 2b 2b 3b 0a 58 09 09 77 | 69 64 74 68 20 3d 20 30 |++;.X..w|idth = 0|
|00002250| 3b 20 70 72 65 63 69 73 | 69 6f 6e 20 3d 20 38 3b |; precis|ion = 8;|
|00002260| 20 73 69 67 6e 20 3d 20 | 31 3b 0a 58 70 65 72 63 | sign = |1;.Xperc|
|00002270| 65 6e 74 3a 09 3b 0a 58 | 09 09 73 77 69 74 63 68 |ent:.;.X|..switch|
|00002280| 20 28 63 68 29 20 7b 0a | 58 09 09 09 63 61 73 65 | (ch) {.|X...case|
|00002290| 20 27 64 27 3a 0a 58 09 | 09 09 09 71 20 3d 20 76 | 'd':.X.|...q = v|
|000022a0| 61 5f 61 72 67 28 61 70 | 2c 20 4e 55 4d 42 45 52 |a_arg(ap|, NUMBER|
|000022b0| 20 2a 29 3b 0a 58 09 09 | 09 09 71 70 72 69 6e 74 | *);.X..|..qprint|
|000022c0| 66 64 28 71 2c 20 77 69 | 64 74 68 29 3b 0a 58 09 |fd(q, wi|dth);.X.|
|000022d0| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 63 61 |...break|;.X...ca|
|000022e0| 73 65 20 27 66 27 3a 0a | 58 09 09 09 09 71 20 3d |se 'f':.|X....q =|
|000022f0| 20 76 61 5f 61 72 67 28 | 61 70 2c 20 4e 55 4d 42 | va_arg(|ap, NUMB|
|00002300| 45 52 20 2a 29 3b 0a 58 | 09 09 09 09 71 70 72 69 |ER *);.X|....qpri|
|00002310| 6e 74 66 66 28 71 2c 20 | 77 69 64 74 68 2c 20 70 |ntff(q, |width, p|
|00002320| 72 65 63 69 73 69 6f 6e | 29 3b 0a 58 09 09 09 09 |recision|);.X....|
|00002330| 62 72 65 61 6b 3b 0a 58 | 09 09 09 63 61 73 65 20 |break;.X|...case |
|00002340| 27 65 27 3a 0a 58 09 09 | 09 09 71 20 3d 20 76 61 |'e':.X..|..q = va|
|00002350| 5f 61 72 67 28 61 70 2c | 20 4e 55 4d 42 45 52 20 |_arg(ap,| NUMBER |
|00002360| 2a 29 3b 0a 58 09 09 09 | 09 71 70 72 69 6e 74 66 |*);.X...|.qprintf|
|00002370| 65 28 71 2c 20 77 69 64 | 74 68 2c 20 70 72 65 63 |e(q, wid|th, prec|
|00002380| 69 73 69 6f 6e 29 3b 0a | 58 09 09 09 09 62 72 65 |ision);.|X....bre|
|00002390| 61 6b 3b 0a 58 09 09 09 | 63 61 73 65 20 27 72 27 |ak;.X...|case 'r'|
|000023a0| 3a 0a 58 09 09 09 63 61 | 73 65 20 27 52 27 3a 0a |:.X...ca|se 'R':.|
|000023b0| 58 09 09 09 09 71 20 3d | 20 76 61 5f 61 72 67 28 |X....q =| va_arg(|
|000023c0| 61 70 2c 20 4e 55 4d 42 | 45 52 20 2a 29 3b 0a 58 |ap, NUMB|ER *);.X|
|000023d0| 09 09 09 09 71 70 72 69 | 6e 74 66 72 28 71 2c 20 |....qpri|ntfr(q, |
|000023e0| 77 69 64 74 68 2c 20 28 | 42 4f 4f 4c 29 20 28 63 |width, (|BOOL) (c|
|000023f0| 68 20 3d 3d 20 27 52 27 | 29 29 3b 0a 58 09 09 09 |h == 'R'|));.X...|
|00002400| 09 62 72 65 61 6b 3b 0a | 58 09 09 09 63 61 73 65 |.break;.|X...case|
|00002410| 20 27 4e 27 3a 0a 58 09 | 09 09 09 71 20 3d 20 76 | 'N':.X.|...q = v|
|00002420| 61 5f 61 72 67 28 61 70 | 2c 20 4e 55 4d 42 45 52 |a_arg(ap|, NUMBER|
|00002430| 20 2a 29 3b 0a 58 09 09 | 09 09 7a 70 72 69 6e 74 | *);.X..|..zprint|
|00002440| 76 61 6c 28 71 2d 3e 6e | 75 6d 2c 20 30 4c 2c 20 |val(q->n|um, 0L, |
|00002450| 77 69 64 74 68 29 3b 0a | 58 09 09 09 09 62 72 65 |width);.|X....bre|
|00002460| 61 6b 3b 0a 58 09 09 09 | 63 61 73 65 20 27 44 27 |ak;.X...|case 'D'|
|00002470| 3a 0a 58 09 09 09 09 71 | 20 3d 20 76 61 5f 61 72 |:.X....q| = va_ar|
|00002480| 67 28 61 70 2c 20 4e 55 | 4d 42 45 52 20 2a 29 3b |g(ap, NU|MBER *);|
|00002490| 0a 58 09 09 09 09 7a 70 | 72 69 6e 74 76 61 6c 28 |.X....zp|rintval(|
|000024a0| 71 2d 3e 64 65 6e 2c 20 | 30 4c 2c 20 77 69 64 74 |q->den, |0L, widt|
|000024b0| 68 29 3b 0a 58 09 09 09 | 09 62 72 65 61 6b 3b 0a |h);.X...|.break;.|
|000024c0| 58 09 09 09 63 61 73 65 | 20 27 6f 27 3a 0a 58 09 |X...case| 'o':.X.|
|000024d0| 09 09 09 71 20 3d 20 76 | 61 5f 61 72 67 28 61 70 |...q = v|a_arg(ap|
|000024e0| 2c 20 4e 55 4d 42 45 52 | 20 2a 29 3b 0a 58 09 09 |, NUMBER| *);.X..|
|000024f0| 09 09 71 70 72 69 6e 74 | 66 6f 28 71 2c 20 77 69 |..qprint|fo(q, wi|
|00002500| 64 74 68 29 3b 0a 58 09 | 09 09 09 62 72 65 61 6b |dth);.X.|...break|
|00002510| 3b 0a 58 09 09 09 63 61 | 73 65 20 27 78 27 3a 0a |;.X...ca|se 'x':.|
|00002520| 58 09 09 09 09 71 20 3d | 20 76 61 5f 61 72 67 28 |X....q =| va_arg(|
|00002530| 61 70 2c 20 4e 55 4d 42 | 45 52 20 2a 29 3b 0a 58 |ap, NUMB|ER *);.X|
|00002540| 09 09 09 09 71 70 72 69 | 6e 74 66 78 28 71 2c 20 |....qpri|ntfx(q, |
|00002550| 77 69 64 74 68 29 3b 0a | 58 09 09 09 09 62 72 65 |width);.|X....bre|
|00002560| 61 6b 3b 0a 58 09 09 09 | 63 61 73 65 20 27 62 27 |ak;.X...|case 'b'|
|00002570| 3a 0a 58 09 09 09 09 71 | 20 3d 20 76 61 5f 61 72 |:.X....q| = va_ar|
|00002580| 67 28 61 70 2c 20 4e 55 | 4d 42 45 52 20 2a 29 3b |g(ap, NU|MBER *);|
|00002590| 0a 58 09 09 09 09 71 70 | 72 69 6e 74 66 62 28 71 |.X....qp|rintfb(q|
|000025a0| 2c 20 77 69 64 74 68 29 | 3b 0a 58 09 09 09 09 62 |, width)|;.X....b|
|000025b0| 72 65 61 6b 3b 0a 58 09 | 09 09 63 61 73 65 20 27 |reak;.X.|..case '|
|000025c0| 73 27 3a 0a 58 09 09 09 | 09 50 55 54 53 54 52 28 |s':.X...|.PUTSTR(|
|000025d0| 76 61 5f 61 72 67 28 61 | 70 2c 20 63 68 61 72 20 |va_arg(a|p, char |
|000025e0| 2a 29 29 3b 0a 58 09 09 | 09 09 62 72 65 61 6b 3b |*));.X..|..break;|
|000025f0| 0a 58 09 09 09 63 61 73 | 65 20 27 63 27 3a 0a 58 |.X...cas|e 'c':.X|
|00002600| 09 09 09 09 50 55 54 43 | 48 41 52 28 76 61 5f 61 |....PUTC|HAR(va_a|
|00002610| 72 67 28 61 70 2c 20 69 | 6e 74 29 29 3b 0a 58 09 |rg(ap, i|nt));.X.|
|00002620| 09 09 09 62 72 65 61 6b | 3b 0a 58 09 09 09 63 61 |...break|;.X...ca|
|00002630| 73 65 20 30 3a 0a 58 09 | 09 09 09 76 61 5f 65 6e |se 0:.X.|...va_en|
|00002640| 64 28 61 70 29 3b 0a 58 | 09 09 09 09 72 65 74 75 |d(ap);.X|....retu|
|00002650| 72 6e 3b 0a 58 09 09 09 | 63 61 73 65 20 27 2d 27 |rn;.X...|case '-'|
|00002660| 3a 0a 58 09 09 09 09 73 | 69 67 6e 20 3d 20 2d 31 |:.X....s|ign = -1|
|00002670| 3b 0a 58 09 09 09 09 63 | 68 20 3d 20 2a 66 6d 74 |;.X....c|h = *fmt|
|00002680| 2b 2b 3b 0a 58 09 09 09 | 64 65 66 61 75 6c 74 3a |++;.X...|default:|
|00002690| 0a 58 09 09 69 66 20 28 | 28 27 30 27 20 3c 3d 20 |.X..if (|('0' <= |
|000026a0| 63 68 20 26 26 20 63 68 | 20 3c 3d 20 27 39 27 29 |ch && ch| <= '9')|
|000026b0| 20 7c 7c 20 63 68 20 3d | 3d 20 27 2e 27 20 7c 7c | || ch =|= '.' |||
|000026c0| 20 63 68 20 3d 3d 20 27 | 2a 27 29 20 7b 0a 58 09 | ch == '|*') {.X.|
|000026d0| 09 09 69 66 20 28 63 68 | 20 3d 3d 20 27 2a 27 29 |..if (ch| == '*')|
|000026e0| 20 7b 0a 58 09 09 09 09 | 71 20 3d 20 76 61 5f 61 | {.X....|q = va_a|
|000026f0| 72 67 28 61 70 2c 20 4e | 55 4d 42 45 52 20 2a 29 |rg(ap, N|UMBER *)|
|00002700| 3b 0a 58 09 09 09 09 77 | 69 64 74 68 20 3d 20 73 |;.X....w|idth = s|
|00002710| 69 67 6e 20 2a 20 71 74 | 6f 69 28 71 29 3b 0a 58 |ign * qt|oi(q);.X|
|00002720| 09 09 09 09 63 68 20 3d | 20 2a 66 6d 74 2b 2b 3b |....ch =| *fmt++;|
|00002730| 0a 58 09 09 09 7d 20 65 | 6c 73 65 20 69 66 20 28 |.X...} e|lse if (|
|00002740| 63 68 20 21 3d 20 27 2e | 27 29 20 7b 0a 58 09 09 |ch != '.|') {.X..|
|00002750| 09 09 77 69 64 74 68 20 | 3d 20 63 68 20 2d 20 27 |..width |= ch - '|
|00002760| 30 27 3b 0a 58 09 09 09 | 09 77 68 69 6c 65 20 28 |0';.X...|.while (|
|00002770| 27 30 27 20 3c 3d 20 28 | 63 68 20 3d 20 2a 66 6d |'0' <= (|ch = *fm|
|00002780| 74 2b 2b 29 20 26 26 20 | 63 68 20 3c 3d 20 27 39 |t++) && |ch <= '9|
|00002790| 27 29 0a 58 09 09 09 09 | 09 77 69 64 74 68 20 3d |').X....|.width =|
|000027a0| 20 77 69 64 74 68 20 2a | 20 31 30 20 2b 20 63 68 | width *| 10 + ch|
|000027b0| 20 2d 20 27 30 27 3b 0a | 58 09 09 09 09 77 69 64 | - '0';.|X....wid|
|000027c0| 74 68 20 2a 3d 20 73 69 | 67 6e 3b 0a 58 09 09 09 |th *= si|gn;.X...|
|000027d0| 7d 0a 58 09 09 09 69 66 | 20 28 63 68 20 3d 3d 20 |}.X...if| (ch == |
|000027e0| 27 2e 27 29 20 7b 0a 58 | 09 09 09 09 69 66 20 28 |'.') {.X|....if (|
|000027f0| 28 63 68 20 3d 20 2a 66 | 6d 74 2b 2b 29 20 3d 3d |(ch = *f|mt++) ==|
|00002800| 20 27 2a 27 29 20 7b 0a | 58 09 09 09 09 09 71 20 | '*') {.|X.....q |
|00002810| 3d 20 76 61 5f 61 72 67 | 28 61 70 2c 20 4e 55 4d |= va_arg|(ap, NUM|
|00002820| 42 45 52 20 2a 29 3b 0a | 58 09 09 09 09 09 70 72 |BER *);.|X.....pr|
|00002830| 65 63 69 73 69 6f 6e 20 | 3d 20 71 74 6f 69 28 71 |ecision |= qtoi(q|
|00002840| 29 3b 0a 58 09 09 09 09 | 09 63 68 20 3d 20 2a 66 |);.X....|.ch = *f|
|00002850| 6d 74 2b 2b 3b 0a 58 09 | 09 09 09 7d 20 65 6c 73 |mt++;.X.|...} els|
|00002860| 65 20 7b 0a 58 09 09 09 | 09 09 70 72 65 63 69 73 |e {.X...|..precis|
|00002870| 69 6f 6e 20 3d 20 30 3b | 0a 58 09 09 09 09 09 77 |ion = 0;|.X.....w|
|00002880| 68 69 6c 65 20 28 27 30 | 27 20 3c 3d 20 28 63 68 |hile ('0|' <= (ch|
|00002890| 20 3d 20 2a 66 6d 74 2b | 2b 29 20 26 26 20 63 68 | = *fmt+|+) && ch|
|000028a0| 20 3c 3d 20 27 39 27 29 | 0a 58 09 09 09 09 09 09 | <= '9')|.X......|
|000028b0| 70 72 65 63 69 73 69 6f | 6e 20 3d 20 70 72 65 63 |precisio|n = prec|
|000028c0| 69 73 69 6f 6e 20 2a 20 | 31 30 20 2b 20 63 68 20 |ision * |10 + ch |
|000028d0| 2d 20 27 30 27 3b 0a 58 | 09 09 09 09 7d 0a 58 09 |- '0';.X|....}.X.|
|000028e0| 09 09 7d 0a 58 09 09 09 | 67 6f 74 6f 20 70 65 72 |..}.X...|goto per|
|000028f0| 63 65 6e 74 3b 0a 58 09 | 09 7d 0a 58 09 09 7d 0a |cent;.X.|.}.X..}.|
|00002900| 58 09 7d 0a 58 09 76 61 | 5f 65 6e 64 28 61 70 29 |X.}.X.va|_end(ap)|
|00002910| 3b 0a 58 7d 0a 58 0a 58 | 0a 58 23 69 66 20 30 0a |;.X}.X.X|.X#if 0.|
|00002920| 58 2f 2a 0a 58 20 2a 20 | 52 65 61 64 20 61 20 6e |X/*.X * |Read a n|
|00002930| 75 6d 62 65 72 20 66 72 | 6f 6d 20 74 68 65 20 73 |umber fr|om the s|
|00002940| 70 65 63 69 66 69 65 64 | 20 46 49 4c 45 20 73 74 |pecified| FILE st|
|00002950| 72 65 61 6d 20 28 4e 55 | 4c 4c 20 6d 65 61 6e 73 |ream (NU|LL means|
|00002960| 20 73 74 64 69 6e 29 2e | 0a 58 20 2a 20 54 68 65 | stdin).|.X * The|
|00002970| 20 6e 75 6d 62 65 72 20 | 63 61 6e 20 62 65 20 61 | number |can be a|
|00002980| 6e 20 69 6e 74 65 67 65 | 72 2c 20 61 20 66 72 61 |n intege|r, a fra|
|00002990| 63 74 69 6f 6e 2c 20 61 | 20 72 65 61 6c 20 6e 75 |ction, a| real nu|
|000029a0| 6d 62 65 72 2c 20 61 6e | 0a 58 20 2a 20 65 78 70 |mber, an|.X * exp|
|000029b0| 6f 6e 65 6e 74 69 61 6c | 20 6e 75 6d 62 65 72 2c |onential| number,|
|000029c0| 20 6f 72 20 61 20 68 65 | 78 2c 20 6f 63 74 61 6c | or a he|x, octal|
|000029d0| 20 6f 72 20 62 69 6e 61 | 72 79 20 6e 75 6d 62 65 | or bina|ry numbe|
|000029e0| 72 2e 20 20 4c 65 61 64 | 69 6e 67 20 62 6c 61 6e |r.  Lead|ing blan|
|000029f0| 6b 73 0a 58 20 2a 20 61 | 72 65 20 73 6b 69 70 70 |ks.X * a|re skipp|
|00002a00| 65 64 2e 20 20 49 6c 6c | 65 67 61 6c 20 6e 75 6d |ed.  Ill|egal num|
|00002a10| 62 65 72 73 20 72 65 74 | 75 72 6e 20 4e 55 4c 4c |bers ret|urn NULL|
|00002a20| 2e 20 20 55 6e 72 65 63 | 6f 67 6e 69 7a 65 64 20 |.  Unrec|ognized |
|00002a30| 63 68 61 72 61 63 74 65 | 72 73 0a 58 20 2a 20 72 |characte|rs.X * r|
|00002a40| 65 6d 61 69 6e 20 74 6f | 20 62 65 20 72 65 61 64 |emain to| be read|
|00002a50| 20 6f 6e 20 74 68 65 20 | 6c 69 6e 65 2e 0a 58 20 | on the |line..X |
|00002a60| 2a 09 71 20 3d 20 71 72 | 65 61 64 76 61 6c 28 66 |*.q = qr|eadval(f|
|00002a70| 70 29 3b 0a 58 20 2a 2f | 0a 58 4e 55 4d 42 45 52 |p);.X */|.XNUMBER|
|00002a80| 20 2a 0a 58 71 72 65 61 | 64 76 61 6c 28 66 70 29 | *.Xqrea|dval(fp)|
|00002a90| 0a 58 09 46 49 4c 45 20 | 2a 66 70 3b 09 09 2f 2a |.X.FILE |*fp;../*|
|00002aa0| 20 66 69 6c 65 20 73 74 | 72 65 61 6d 20 74 6f 20 | file st|ream to |
|00002ab0| 72 65 61 64 20 66 72 6f | 6d 20 28 6f 72 20 4e 55 |read fro|m (or NU|
|00002ac0| 4c 4c 29 20 2a 2f 0a 58 | 7b 0a 58 09 4e 55 4d 42 |LL) */.X|{.X.NUMB|
|00002ad0| 45 52 20 2a 72 3b 09 09 | 2f 2a 20 72 65 74 75 72 |ER *r;..|/* retur|
|00002ae0| 6e 65 64 20 6e 75 6d 62 | 65 72 20 2a 2f 0a 58 09 |ned numb|er */.X.|
|00002af0| 63 68 61 72 20 2a 63 70 | 3b 20 09 09 2f 2a 20 63 |char *cp|; ../* c|
|00002b00| 75 72 72 65 6e 74 20 62 | 75 66 66 65 72 20 6c 6f |urrent b|uffer lo|
|00002b10| 63 61 74 69 6f 6e 20 2a | 2f 0a 58 09 6c 6f 6e 67 |cation *|/.X.long|
|00002b20| 20 73 61 76 65 63 63 3b | 09 09 2f 2a 20 63 68 61 | savecc;|../* cha|
|00002b30| 72 61 63 74 65 72 73 20 | 73 61 76 65 64 20 69 6e |racters |saved in|
|00002b40| 20 62 75 66 66 65 72 20 | 2a 2f 0a 58 09 6c 6f 6e | buffer |*/.X.lon|
|00002b50| 67 20 73 63 61 6e 63 63 | 3b 20 09 09 2f 2a 20 63 |g scancc|; ../* c|
|00002b60| 68 61 72 61 63 74 65 72 | 73 20 70 61 72 73 65 64 |haracter|s parsed|
|00002b70| 20 63 6f 72 72 65 63 74 | 6c 79 20 2a 2f 0a 58 09 | correct|ly */.X.|
|00002b80| 69 6e 74 20 63 68 3b 09 | 09 09 2f 2a 20 63 75 72 |int ch;.|../* cur|
|00002b90| 72 65 6e 74 20 63 68 61 | 72 61 63 74 65 72 20 2a |rent cha|racter *|
|00002ba0| 2f 0a 58 0a 58 09 69 66 | 20 28 66 70 20 3d 3d 20 |/.X.X.if| (fp == |
|00002bb0| 4e 55 4c 4c 29 0a 58 09 | 09 66 70 20 3d 20 73 74 |NULL).X.|.fp = st|
|00002bc0| 64 69 6e 3b 0a 58 09 69 | 66 20 28 65 74 6f 61 62 |din;.X.i|f (etoab|
|00002bd0| 75 66 20 3d 3d 20 4e 55 | 4c 4c 29 20 7b 0a 58 09 |uf == NU|LL) {.X.|
|00002be0| 09 65 74 6f 61 62 75 66 | 20 3d 20 28 63 68 61 72 |.etoabuf| = (char|
|00002bf0| 20 2a 29 6d 61 6c 6c 6f | 63 28 4f 55 54 42 55 46 | *)mallo|c(OUTBUF|
|00002c00| 53 49 5a 45 20 2b 20 32 | 29 3b 0a 58 09 09 69 66 |SIZE + 2|);.X..if|
|00002c10| 20 28 65 74 6f 61 62 75 | 66 20 3d 3d 20 4e 55 4c | (etoabu|f == NUL|
|00002c20| 4c 29 0a 58 09 09 09 72 | 65 74 75 72 6e 20 4e 55 |L).X...r|eturn NU|
|00002c30| 4c 4c 3b 0a 58 09 09 65 | 74 6f 61 6c 65 6e 20 3d |LL;.X..e|toalen =|
|00002c40| 20 4f 55 54 42 55 46 53 | 49 5a 45 3b 0a 58 09 7d | OUTBUFS|IZE;.X.}|
|00002c50| 0a 58 09 63 70 20 3d 20 | 65 74 6f 61 62 75 66 3b |.X.cp = |etoabuf;|
|00002c60| 0a 58 09 63 68 20 3d 20 | 66 67 65 74 63 28 66 70 |.X.ch = |fgetc(fp|
|00002c70| 29 3b 0a 58 09 77 68 69 | 6c 65 20 28 28 63 68 20 |);.X.whi|le ((ch |
|00002c80| 3d 3d 20 27 20 27 29 20 | 7c 7c 20 28 63 68 20 3d |== ' ') ||| (ch =|
|00002c90| 3d 20 27 5c 74 27 29 29 | 0a 58 09 09 63 68 20 3d |= '\t'))|.X..ch =|
|00002ca0| 20 66 67 65 74 63 28 66 | 70 29 3b 0a 58 09 73 61 | fgetc(f|p);.X.sa|
|00002cb0| 76 65 63 63 20 3d 20 30 | 3b 0a 58 09 66 6f 72 20 |vecc = 0|;.X.for |
|00002cc0| 28 3b 3b 29 20 7b 0a 58 | 09 09 69 66 20 28 63 68 |(;;) {.X|..if (ch|
|00002cd0| 20 3d 3d 20 45 4f 46 29 | 0a 58 09 09 09 72 65 74 | == EOF)|.X...ret|
|00002ce0| 75 72 6e 20 4e 55 4c 4c | 3b 0a 58 09 09 69 66 20 |urn NULL|;.X..if |
|00002cf0| 28 73 61 76 65 63 63 20 | 3e 3d 20 65 74 6f 61 6c |(savecc |>= etoal|
|00002d00| 65 6e 29 0a 58 09 09 7b | 0a 58 09 09 09 63 70 20 |en).X..{|.X...cp |
|00002d10| 3d 20 28 63 68 61 72 20 | 2a 29 72 65 61 6c 6c 6f |= (char |*)reallo|
|00002d20| 63 28 65 74 6f 61 62 75 | 66 2c 20 65 74 6f 61 6c |c(etoabu|f, etoal|
|00002d30| 65 6e 20 2b 20 4f 55 54 | 42 55 46 53 49 5a 45 20 |en + OUT|BUFSIZE |
|00002d40| 2b 20 32 29 3b 0a 58 09 | 09 09 69 66 20 28 63 70 |+ 2);.X.|..if (cp|
|00002d50| 20 3d 3d 20 4e 55 4c 4c | 29 0a 58 09 09 09 09 72 | == NULL|).X....r|
|00002d60| 65 74 75 72 6e 20 4e 55 | 4c 4c 3b 0a 58 09 09 09 |eturn NU|LL;.X...|
|00002d70| 65 74 6f 61 62 75 66 20 | 3d 20 63 70 3b 0a 58 09 |etoabuf |= cp;.X.|
|00002d80| 09 09 65 74 6f 61 6c 65 | 6e 20 2b 3d 20 4f 55 54 |..etoale|n += OUT|
|00002d90| 42 55 46 53 49 5a 45 3b | 0a 58 09 09 09 63 70 20 |BUFSIZE;|.X...cp |
|00002da0| 2b 3d 20 73 61 76 65 63 | 63 3b 0a 58 09 09 7d 0a |+= savec|c;.X..}.|
|00002db0| 58 09 09 2a 63 70 2b 2b | 20 3d 20 28 63 68 61 72 |X..*cp++| = (char|
|00002dc0| 29 63 68 3b 0a 58 09 09 | 2a 63 70 20 3d 20 27 5c |)ch;.X..|*cp = '\|
|00002dd0| 30 27 3b 0a 58 09 09 73 | 63 61 6e 63 63 20 3d 20 |0';.X..s|cancc = |
|00002de0| 71 70 61 72 73 65 28 65 | 74 6f 61 62 75 66 2c 20 |qparse(e|toabuf, |
|00002df0| 51 50 46 5f 53 4c 41 53 | 48 29 3b 0a 58 09 09 69 |QPF_SLAS|H);.X..i|
|00002e00| 66 20 28 73 63 61 6e 63 | 63 20 21 3d 20 2b 2b 73 |f (scanc|c != ++s|
|00002e10| 61 76 65 63 63 29 0a 58 | 09 09 09 62 72 65 61 6b |avecc).X|...break|
|00002e20| 3b 0a 58 09 09 63 68 20 | 3d 20 66 67 65 74 63 28 |;.X..ch |= fgetc(|
|00002e30| 66 70 29 3b 0a 58 09 7d | 0a 58 09 75 6e 67 65 74 |fp);.X.}|.X.unget|
|00002e40| 63 28 63 68 2c 20 66 70 | 29 3b 0a 58 09 69 66 20 |c(ch, fp|);.X.if |
|00002e50| 28 73 63 61 6e 63 63 20 | 3c 20 30 29 0a 58 09 09 |(scancc |< 0).X..|
|00002e60| 72 65 74 75 72 6e 20 4e | 55 4c 4c 3b 0a 58 09 72 |return N|ULL;.X.r|
|00002e70| 20 3d 20 61 74 6f 71 28 | 65 74 6f 61 62 75 66 29 | = atoq(|etoabuf)|
|00002e80| 3b 0a 58 09 69 66 20 28 | 69 73 7a 65 72 6f 28 72 |;.X.if (|iszero(r|
|00002e90| 2d 3e 64 65 6e 29 29 20 | 7b 0a 58 09 09 71 66 72 |->den)) |{.X..qfr|
|00002ea0| 65 65 28 72 29 3b 0a 58 | 09 09 72 20 3d 20 4e 55 |ee(r);.X|..r = NU|
|00002eb0| 4c 4c 3b 0a 58 09 7d 0a | 58 09 72 65 74 75 72 6e |LL;.X.}.|X.return|
|00002ec0| 20 72 3b 0a 58 7d 0a 58 | 23 65 6e 64 69 66 0a 58 | r;.X}.X|#endif.X|
|00002ed0| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 50 72 69 6e 74 |.X.X/*.X| * Print|
|00002ee0| 20 61 20 63 6f 6d 70 6c | 65 78 20 6e 75 6d 62 65 | a compl|ex numbe|
|00002ef0| 72 20 69 6e 20 72 61 74 | 69 6f 6e 61 6c 20 72 65 |r in rat|ional re|
|00002f00| 70 72 65 73 65 6e 74 61 | 74 69 6f 6e 2e 0a 58 20 |presenta|tion..X |
|00002f10| 2a 20 45 78 61 6d 70 6c | 65 3a 20 20 32 2f 33 2d |* Exampl|e:  2/3-|
|00002f20| 34 69 2f 35 0a 58 20 2a | 2f 0a 58 76 6f 69 64 0a |4i/5.X *|/.Xvoid.|
|00002f30| 58 63 70 72 69 6e 74 66 | 72 28 63 29 0a 58 09 43 |Xcprintf|r(c).X.C|
|00002f40| 4f 4d 50 4c 45 58 20 2a | 63 3b 0a 58 7b 0a 58 09 |OMPLEX *|c;.X{.X.|
|00002f50| 4e 55 4d 42 45 52 20 2a | 72 3b 0a 58 09 4e 55 4d |NUMBER *|r;.X.NUM|
|00002f60| 42 45 52 20 2a 69 3b 0a | 58 0a 58 09 72 20 3d 20 |BER *i;.|X.X.r = |
|00002f70| 63 2d 3e 72 65 61 6c 3b | 0a 58 09 69 20 3d 20 63 |c->real;|.X.i = c|
|00002f80| 2d 3e 69 6d 61 67 3b 0a | 58 09 69 66 20 28 21 71 |->imag;.|X.if (!q|
|00002f90| 69 73 7a 65 72 6f 28 72 | 29 20 7c 7c 20 71 69 73 |iszero(r|) || qis|
|00002fa0| 7a 65 72 6f 28 69 29 29 | 0a 58 09 09 71 70 72 69 |zero(i))|.X..qpri|
|00002fb0| 6e 74 66 72 28 72 2c 20 | 30 4c 2c 20 46 41 4c 53 |ntfr(r, |0L, FALS|
|00002fc0| 45 29 3b 0a 58 09 69 66 | 20 28 71 69 73 7a 65 72 |E);.X.if| (qiszer|
|00002fd0| 6f 28 69 29 29 0a 58 09 | 09 72 65 74 75 72 6e 3b |o(i)).X.|.return;|
|00002fe0| 0a 58 09 69 66 20 28 21 | 71 69 73 7a 65 72 6f 28 |.X.if (!|qiszero(|
|00002ff0| 72 29 20 26 26 20 21 71 | 69 73 6e 65 67 28 69 29 |r) && !q|isneg(i)|
|00003000| 29 0a 58 09 09 50 55 54 | 43 48 41 52 28 27 2b 27 |).X..PUT|CHAR('+'|
|00003010| 29 3b 0a 58 09 7a 70 72 | 69 6e 74 76 61 6c 28 69 |);.X.zpr|intval(i|
|00003020| 2d 3e 6e 75 6d 2c 20 30 | 4c 2c 20 30 4c 29 3b 0a |->num, 0|L, 0L);.|
|00003030| 58 09 50 55 54 43 48 41 | 52 28 27 69 27 29 3b 0a |X.PUTCHA|R('i');.|
|00003040| 58 09 69 66 20 28 71 69 | 73 66 72 61 63 28 69 29 |X.if (qi|sfrac(i)|
|00003050| 29 20 7b 0a 58 09 09 50 | 55 54 43 48 41 52 28 27 |) {.X..P|UTCHAR('|
|00003060| 2f 27 29 3b 0a 58 09 09 | 7a 70 72 69 6e 74 76 61 |/');.X..|zprintva|
|00003070| 6c 28 69 2d 3e 64 65 6e | 2c 20 30 4c 2c 20 30 4c |l(i->den|, 0L, 0L|
|00003080| 29 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 0a 58 2f |);.X.}.X|}.X.X.X/|
|00003090| 2a 0a 58 20 2a 20 50 72 | 69 6e 74 20 61 20 6e 75 |*.X * Pr|int a nu|
|000030a0| 6d 62 65 72 20 69 6e 20 | 74 68 65 20 73 70 65 63 |mber in |the spec|
|000030b0| 69 66 69 65 64 20 6f 75 | 74 70 75 74 20 6d 6f 64 |ified ou|tput mod|
|000030c0| 65 2e 0a 58 20 2a 20 49 | 66 20 4d 4f 44 45 5f 44 |e..X * I|f MODE_D|
|000030d0| 45 46 41 55 4c 54 20 69 | 73 20 67 69 76 65 6e 2c |EFAULT i|s given,|
|000030e0| 20 74 68 65 6e 20 74 68 | 65 20 64 65 66 61 75 6c | then th|e defaul|
|000030f0| 74 20 6f 75 74 70 75 74 | 20 6d 6f 64 65 20 69 73 |t output| mode is|
|00003100| 20 75 73 65 64 2e 0a 58 | 20 2a 20 41 6e 79 20 61 | used..X| * Any a|
|00003110| 70 70 72 6f 78 69 6d 61 | 74 65 20 6f 75 74 70 75 |pproxima|te outpu|
|00003120| 74 20 69 73 20 66 6c 61 | 67 67 65 64 20 77 69 74 |t is fla|gged wit|
|00003130| 68 20 61 20 6c 65 61 64 | 69 6e 67 20 74 69 6c 64 |h a lead|ing tild|
|00003140| 65 2e 0a 58 20 2a 20 49 | 6e 74 65 67 65 72 73 20 |e..X * I|ntegers |
|00003150| 61 72 65 20 61 6c 77 61 | 79 73 20 70 72 69 6e 74 |are alwa|ys print|
|00003160| 65 64 20 61 73 20 74 68 | 65 6d 73 65 6c 76 65 73 |ed as th|emselves|
|00003170| 2e 0a 58 20 2a 2f 0a 58 | 76 6f 69 64 0a 58 71 70 |..X */.X|void.Xqp|
|00003180| 72 69 6e 74 6e 75 6d 28 | 71 2c 20 6f 75 74 6d 6f |rintnum(|q, outmo|
|00003190| 64 65 29 0a 58 09 4e 55 | 4d 42 45 52 20 2a 71 3b |de).X.NU|MBER *q;|
|000031a0| 0a 58 7b 0a 58 09 4e 55 | 4d 42 45 52 20 74 6d 70 |.X{.X.NU|MBER tmp|
|000031b0| 76 61 6c 3b 0a 58 09 6c | 6f 6e 67 20 70 72 65 63 |val;.X.l|ong prec|
|000031c0| 2c 20 65 78 70 3b 0a 58 | 0a 58 09 69 66 20 28 6f |, exp;.X|.X.if (o|
|000031d0| 75 74 6d 6f 64 65 20 3d | 3d 20 4d 4f 44 45 5f 44 |utmode =|= MODE_D|
|000031e0| 45 46 41 55 4c 54 29 0a | 58 09 09 6f 75 74 6d 6f |EFAULT).|X..outmo|
|000031f0| 64 65 20 3d 20 5f 6f 75 | 74 6d 6f 64 65 5f 3b 0a |de = _ou|tmode_;.|
|00003200| 58 09 69 66 20 28 28 6f | 75 74 6d 6f 64 65 20 3d |X.if ((o|utmode =|
|00003210| 3d 20 4d 4f 44 45 5f 46 | 52 41 43 29 20 7c 7c 20 |= MODE_F|RAC) || |
|00003220| 28 28 6f 75 74 6d 6f 64 | 65 20 3d 3d 20 4d 4f 44 |((outmod|e == MOD|
|00003230| 45 5f 52 45 41 4c 29 20 | 26 26 20 71 69 73 69 6e |E_REAL) |&& qisin|
|00003240| 74 28 71 29 29 29 20 7b | 0a 58 09 09 71 70 72 69 |t(q))) {|.X..qpri|
|00003250| 6e 74 66 72 28 71 2c 20 | 30 4c 2c 20 46 41 4c 53 |ntfr(q, |0L, FALS|
|00003260| 45 29 3b 0a 58 09 09 72 | 65 74 75 72 6e 3b 0a 58 |E);.X..r|eturn;.X|
|00003270| 09 7d 0a 58 09 73 77 69 | 74 63 68 20 28 6f 75 74 |.}.X.swi|tch (out|
|00003280| 6d 6f 64 65 29 20 7b 0a | 58 09 09 63 61 73 65 20 |mode) {.|X..case |
|00003290| 4d 4f 44 45 5f 49 4e 54 | 3a 0a 58 09 09 09 69 66 |MODE_INT|:.X...if|
|000032a0| 20 28 71 69 73 66 72 61 | 63 28 71 29 29 0a 58 09 | (qisfra|c(q)).X.|
|000032b0| 09 09 09 50 55 54 43 48 | 41 52 28 27 7e 27 29 3b |...PUTCH|AR('~');|
|000032c0| 0a 58 09 09 09 71 70 72 | 69 6e 74 66 64 28 71 2c |.X...qpr|intfd(q,|
|000032d0| 20 30 4c 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b | 0L);.X.|..break;|
|000032e0| 0a 58 0a 58 09 09 63 61 | 73 65 20 4d 4f 44 45 5f |.X.X..ca|se MODE_|
|000032f0| 52 45 41 4c 3a 0a 58 09 | 09 09 70 72 65 63 20 3d |REAL:.X.|..prec =|
|00003300| 20 71 70 6c 61 63 65 73 | 28 71 29 3b 0a 58 09 09 | qplaces|(q);.X..|
|00003310| 09 69 66 20 28 28 70 72 | 65 63 20 3c 20 30 29 20 |.if ((pr|ec < 0) |
|00003320| 7c 7c 20 28 70 72 65 63 | 20 3e 20 5f 6f 75 74 64 ||| (prec| > _outd|
|00003330| 69 67 69 74 73 5f 29 29 | 20 7b 0a 58 09 09 09 09 |igits_))| {.X....|
|00003340| 70 72 65 63 20 3d 20 5f | 6f 75 74 64 69 67 69 74 |prec = _|outdigit|
|00003350| 73 5f 3b 0a 58 09 09 09 | 09 50 55 54 43 48 41 52 |s_;.X...|.PUTCHAR|
|00003360| 28 27 7e 27 29 3b 0a 58 | 09 09 09 7d 0a 58 09 09 |('~');.X|...}.X..|
|00003370| 09 71 70 72 69 6e 74 66 | 66 28 71 2c 20 30 4c 2c |.qprintf|f(q, 0L,|
|00003380| 20 70 72 65 63 29 3b 0a | 58 09 09 09 62 72 65 61 | prec);.|X...brea|
|00003390| 6b 3b 0a 58 0a 58 09 09 | 63 61 73 65 20 4d 4f 44 |k;.X.X..|case MOD|
|000033a0| 45 5f 45 58 50 3a 0a 58 | 09 09 09 69 66 20 28 71 |E_EXP:.X|...if (q|
|000033b0| 69 73 7a 65 72 6f 28 71 | 29 29 20 7b 0a 58 09 09 |iszero(q|)) {.X..|
|000033c0| 09 09 50 55 54 43 48 41 | 52 28 27 30 27 29 3b 0a |..PUTCHA|R('0');.|
|000033d0| 58 09 09 09 09 72 65 74 | 75 72 6e 3b 0a 58 09 09 |X....ret|urn;.X..|
|000033e0| 09 7d 0a 58 09 09 09 74 | 6d 70 76 61 6c 20 3d 20 |.}.X...t|mpval = |
|000033f0| 2a 71 3b 0a 58 09 09 09 | 74 6d 70 76 61 6c 2e 6e |*q;.X...|tmpval.n|
|00003400| 75 6d 2e 73 69 67 6e 20 | 3d 20 30 3b 0a 58 09 09 |um.sign |= 0;.X..|
|00003410| 09 65 78 70 20 3d 20 71 | 69 6c 6f 67 31 30 28 26 |.exp = q|ilog10(&|
|00003420| 74 6d 70 76 61 6c 29 3b | 0a 58 09 09 09 69 66 20 |tmpval);|.X...if |
|00003430| 28 65 78 70 20 3d 3d 20 | 30 29 20 7b 09 09 2f 2a |(exp == |0) {../*|
|00003440| 20 69 6e 20 72 61 6e 67 | 65 20 74 6f 20 6f 75 74 | in rang|e to out|
|00003450| 70 75 74 20 61 73 20 72 | 65 61 6c 20 2a 2f 0a 58 |put as r|eal */.X|
|00003460| 09 09 09 09 71 70 72 69 | 6e 74 6e 75 6d 28 71 2c |....qpri|ntnum(q,|
|00003470| 20 4d 4f 44 45 5f 52 45 | 41 4c 29 3b 0a 58 09 09 | MODE_RE|AL);.X..|
|00003480| 09 09 72 65 74 75 72 6e | 3b 0a 58 09 09 09 7d 0a |..return|;.X...}.|
|00003490| 58 09 09 09 74 6d 70 76 | 61 6c 2e 6e 75 6d 20 3d |X...tmpv|al.num =|
|000034a0| 20 5f 6f 6e 65 5f 3b 0a | 58 09 09 09 74 6d 70 76 | _one_;.|X...tmpv|
|000034b0| 61 6c 2e 64 65 6e 20 3d | 20 5f 6f 6e 65 5f 3b 0a |al.den =| _one_;.|
|000034c0| 58 09 09 09 69 66 20 28 | 65 78 70 20 3e 20 30 29 |X...if (|exp > 0)|
|000034d0| 0a 58 09 09 09 09 7a 74 | 65 6e 70 6f 77 28 65 78 |.X....zt|enpow(ex|
|000034e0| 70 2c 20 26 74 6d 70 76 | 61 6c 2e 64 65 6e 29 3b |p, &tmpv|al.den);|
|000034f0| 0a 58 09 09 09 65 6c 73 | 65 0a 58 09 09 09 09 7a |.X...els|e.X....z|
|00003500| 74 65 6e 70 6f 77 28 2d | 65 78 70 2c 20 26 74 6d |tenpow(-|exp, &tm|
|00003510| 70 76 61 6c 2e 6e 75 6d | 29 3b 0a 58 09 09 09 71 |pval.num|);.X...q|
|00003520| 20 3d 20 71 6d 75 6c 28 | 71 2c 20 26 74 6d 70 76 | = qmul(|q, &tmpv|
|00003530| 61 6c 29 3b 0a 58 09 09 | 09 66 72 65 65 68 28 74 |al);.X..|.freeh(t|
|00003540| 6d 70 76 61 6c 2e 6e 75 | 6d 2e 76 29 3b 0a 58 09 |mpval.nu|m.v);.X.|
|00003550| 09 09 66 72 65 65 68 28 | 74 6d 70 76 61 6c 2e 64 |..freeh(|tmpval.d|
|00003560| 65 6e 2e 76 29 3b 0a 58 | 09 09 09 71 70 72 69 6e |en.v);.X|...qprin|
|00003570| 74 6e 75 6d 28 71 2c 20 | 4d 4f 44 45 5f 52 45 41 |tnum(q, |MODE_REA|
|00003580| 4c 29 3b 0a 58 09 09 09 | 71 66 72 65 65 28 71 29 |L);.X...|qfree(q)|
|00003590| 3b 0a 58 09 09 09 50 52 | 49 4e 54 46 31 28 22 65 |;.X...PR|INTF1("e|
|000035a0| 25 6c 64 22 2c 20 65 78 | 70 29 3b 0a 58 09 09 09 |%ld", ex|p);.X...|
|000035b0| 62 72 65 61 6b 3b 0a 58 | 0a 58 09 09 63 61 73 65 |break;.X|.X..case|
|000035c0| 20 4d 4f 44 45 5f 48 45 | 58 3a 0a 58 09 09 09 71 | MODE_HE|X:.X...q|
|000035d0| 70 72 69 6e 74 66 78 28 | 71 2c 20 30 4c 29 3b 0a |printfx(|q, 0L);.|
|000035e0| 58 09 09 09 62 72 65 61 | 6b 3b 0a 58 0a 58 09 09 |X...brea|k;.X.X..|
|000035f0| 63 61 73 65 20 4d 4f 44 | 45 5f 4f 43 54 41 4c 3a |case MOD|E_OCTAL:|
|00003600| 0a 58 09 09 09 71 70 72 | 69 6e 74 66 6f 28 71 2c |.X...qpr|intfo(q,|
|00003610| 20 30 4c 29 3b 0a 58 09 | 09 09 62 72 65 61 6b 3b | 0L);.X.|..break;|
|00003620| 0a 58 0a 58 09 09 63 61 | 73 65 20 4d 4f 44 45 5f |.X.X..ca|se MODE_|
|00003630| 42 49 4e 41 52 59 3a 0a | 58 09 09 09 71 70 72 69 |BINARY:.|X...qpri|
|00003640| 6e 74 66 62 28 71 2c 20 | 30 4c 29 3b 0a 58 09 09 |ntfb(q, |0L);.X..|
|00003650| 09 62 72 65 61 6b 3b 0a | 58 0a 58 09 09 64 65 66 |.break;.|X.X..def|
|00003660| 61 75 6c 74 3a 0a 58 09 | 09 09 65 72 72 6f 72 28 |ault:.X.|..error(|
|00003670| 22 42 61 64 20 6d 6f 64 | 65 20 66 6f 72 20 70 72 |"Bad mod|e for pr|
|00003680| 69 6e 74 22 29 3b 0a 58 | 09 7d 0a 58 7d 0a 58 0a |int");.X|.}.X}.X.|
|00003690| 58 0a 58 2f 2a 0a 58 20 | 2a 20 50 72 69 6e 74 20 |X.X/*.X |* Print |
|000036a0| 61 20 6e 75 6d 62 65 72 | 20 69 6e 20 66 6c 6f 61 |a number| in floa|
|000036b0| 74 69 6e 67 20 70 6f 69 | 6e 74 20 72 65 70 72 65 |ting poi|nt repre|
|000036c0| 73 65 6e 74 61 74 69 6f | 6e 2e 0a 58 20 2a 20 45 |sentatio|n..X * E|
|000036d0| 78 61 6d 70 6c 65 3a 20 | 20 31 39 33 2e 37 38 34 |xample: | 193.784|
|000036e0| 0a 58 20 2a 2f 0a 58 73 | 74 61 74 69 63 20 76 6f |.X */.Xs|tatic vo|
|000036f0| 69 64 0a 58 71 70 72 69 | 6e 74 66 66 28 71 2c 20 |id.Xqpri|ntff(q, |
|00003700| 77 69 64 74 68 2c 20 70 | 72 65 63 69 73 69 6f 6e |width, p|recision|
|00003710| 29 0a 58 09 4e 55 4d 42 | 45 52 20 2a 71 3b 0a 58 |).X.NUMB|ER *q;.X|
|00003720| 09 6c 6f 6e 67 20 77 69 | 64 74 68 3b 0a 58 09 6c |.long wi|dth;.X.l|
|00003730| 6f 6e 67 20 70 72 65 63 | 69 73 69 6f 6e 3b 0a 58 |ong prec|ision;.X|
|00003740| 7b 0a 58 09 5a 56 41 4c | 55 45 20 7a 2c 20 7a 31 |{.X.ZVAL|UE z, z1|
|00003750| 3b 0a 58 0a 58 09 69 66 | 20 28 70 72 65 63 69 73 |;.X.X.if| (precis|
|00003760| 69 6f 6e 20 21 3d 20 73 | 63 61 6c 65 66 61 63 74 |ion != s|calefact|
|00003770| 6f 72 29 20 7b 0a 58 09 | 09 69 66 20 28 73 63 61 |or) {.X.|.if (sca|
|00003780| 6c 65 6e 75 6d 62 65 72 | 2e 76 29 0a 58 09 09 09 |lenumber|.v).X...|
|00003790| 66 72 65 65 68 28 73 63 | 61 6c 65 6e 75 6d 62 65 |freeh(sc|alenumbe|
|000037a0| 72 2e 76 29 3b 0a 58 09 | 09 7a 74 65 6e 70 6f 77 |r.v);.X.|.ztenpow|
|000037b0| 28 70 72 65 63 69 73 69 | 6f 6e 2c 20 26 73 63 61 |(precisi|on, &sca|
|000037c0| 6c 65 6e 75 6d 62 65 72 | 29 3b 0a 58 09 09 73 63 |lenumber|);.X..sc|
|000037d0| 61 6c 65 66 61 63 74 6f | 72 20 3d 20 70 72 65 63 |alefacto|r = prec|
|000037e0| 69 73 69 6f 6e 3b 0a 58 | 09 7d 0a 58 09 69 66 20 |ision;.X|.}.X.if |
|000037f0| 28 73 63 61 6c 65 6e 75 | 6d 62 65 72 2e 76 29 0a |(scalenu|mber.v).|
|00003800| 58 09 09 7a 6d 75 6c 28 | 71 2d 3e 6e 75 6d 2c 20 |X..zmul(|q->num, |
|00003810| 73 63 61 6c 65 6e 75 6d | 62 65 72 2c 20 26 7a 29 |scalenum|ber, &z)|
|00003820| 3b 0a 58 09 65 6c 73 65 | 0a 58 09 09 7a 20 3d 20 |;.X.else|.X..z = |
|00003830| 71 2d 3e 6e 75 6d 3b 0a | 58 09 69 66 20 28 71 69 |q->num;.|X.if (qi|
|00003840| 73 66 72 61 63 28 71 29 | 29 20 7b 0a 58 09 09 7a |sfrac(q)|) {.X..z|
|00003850| 71 75 6f 28 7a 2c 20 71 | 2d 3e 64 65 6e 2c 20 26 |quo(z, q|->den, &|
|00003860| 7a 31 29 3b 0a 58 09 09 | 69 66 20 28 7a 2e 76 20 |z1);.X..|if (z.v |
|00003870| 21 3d 20 71 2d 3e 6e 75 | 6d 2e 76 29 0a 58 09 09 |!= q->nu|m.v).X..|
|00003880| 09 66 72 65 65 68 28 7a | 2e 76 29 3b 0a 58 09 09 |.freeh(z|.v);.X..|
|00003890| 7a 20 3d 20 7a 31 3b 0a | 58 09 7d 0a 58 09 69 66 |z = z1;.|X.}.X.if|
|000038a0| 20 28 71 69 73 6e 65 67 | 28 71 29 20 26 26 20 69 | (qisneg|(q) && i|
|000038b0| 73 7a 65 72 6f 28 7a 29 | 29 0a 58 09 09 50 55 54 |szero(z)|).X..PUT|
|000038c0| 43 48 41 52 28 27 2d 27 | 29 3b 0a 58 09 7a 70 72 |CHAR('-'|);.X.zpr|
|000038d0| 69 6e 74 76 61 6c 28 7a | 2c 20 70 72 65 63 69 73 |intval(z|, precis|
|000038e0| 69 6f 6e 2c 20 77 69 64 | 74 68 29 3b 0a 58 09 69 |ion, wid|th);.X.i|
|000038f0| 66 20 28 7a 2e 76 20 21 | 3d 20 71 2d 3e 6e 75 6d |f (z.v !|= q->num|
|00003900| 2e 76 29 0a 58 09 09 66 | 72 65 65 68 28 7a 2e 76 |.v).X..f|reeh(z.v|
|00003910| 29 3b 0a 58 7d 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 |);.X}.X.|X.X/*.X |
|00003920| 2a 20 50 72 69 6e 74 20 | 61 20 6e 75 6d 62 65 72 |* Print |a number|
|00003930| 20 69 6e 20 65 78 70 6f | 6e 65 6e 74 69 61 6c 20 | in expo|nential |
|00003940| 6e 6f 74 61 74 69 6f 6e | 2e 0a 58 20 2a 20 45 78 |notation|..X * Ex|
|00003950| 61 6d 70 6c 65 3a 20 34 | 2e 31 38 35 36 65 33 34 |ample: 4|.1856e34|
|00003960| 0a 58 20 2a 2f 0a 58 2f | 2a 41 52 47 53 55 53 45 |.X */.X/|*ARGSUSE|
|00003970| 44 2a 2f 0a 58 73 74 61 | 74 69 63 20 76 6f 69 64 |D*/.Xsta|tic void|
|00003980| 0a 58 71 70 72 69 6e 74 | 66 65 28 71 2c 20 77 69 |.Xqprint|fe(q, wi|
|00003990| 64 74 68 2c 20 70 72 65 | 63 69 73 69 6f 6e 29 0a |dth, pre|cision).|
|000039a0| 58 09 72 65 67 69 73 74 | 65 72 20 4e 55 4d 42 45 |X.regist|er NUMBE|
|000039b0| 52 20 2a 71 3b 0a 58 09 | 6c 6f 6e 67 20 77 69 64 |R *q;.X.|long wid|
|000039c0| 74 68 3b 0a 58 09 6c 6f | 6e 67 20 70 72 65 63 69 |th;.X.lo|ng preci|
|000039d0| 73 69 6f 6e 3b 0a 58 7b | 0a 58 09 6c 6f 6e 67 20 |sion;.X{|.X.long |
|000039e0| 65 78 70 6f 6e 65 6e 74 | 3b 0a 58 09 4e 55 4d 42 |exponent|;.X.NUMB|
|000039f0| 45 52 20 71 32 3b 0a 58 | 09 5a 56 41 4c 55 45 20 |ER q2;.X|.ZVALUE |
|00003a00| 6e 75 6d 2c 20 64 65 6e | 2c 20 74 65 6e 70 6f 77 |num, den|, tenpow|
|00003a10| 2c 20 74 6d 70 3b 0a 58 | 0a 58 09 69 66 20 28 71 |, tmp;.X|.X.if (q|
|00003a20| 69 73 7a 65 72 6f 28 71 | 29 29 20 7b 0a 58 09 09 |iszero(q|)) {.X..|
|00003a30| 50 55 54 53 54 52 28 22 | 30 2e 30 22 29 3b 0a 58 |PUTSTR("|0.0");.X|
|00003a40| 09 09 72 65 74 75 72 6e | 3b 0a 58 09 7d 0a 58 09 |..return|;.X.}.X.|
|00003a50| 6e 75 6d 20 3d 20 71 2d | 3e 6e 75 6d 3b 0a 58 09 |num = q-|>num;.X.|
|00003a60| 64 65 6e 20 3d 20 71 2d | 3e 64 65 6e 3b 0a 58 09 |den = q-|>den;.X.|
|00003a70| 6e 75 6d 2e 73 69 67 6e | 20 3d 20 30 3b 0a 58 09 |num.sign| = 0;.X.|
|00003a80| 65 78 70 6f 6e 65 6e 74 | 20 3d 20 7a 64 69 67 69 |exponent| = zdigi|
|00003a90| 74 73 28 6e 75 6d 29 20 | 2d 20 7a 64 69 67 69 74 |ts(num) |- zdigit|
|00003aa0| 73 28 64 65 6e 29 3b 0a | 58 09 69 66 20 28 65 78 |s(den);.|X.if (ex|
|00003ab0| 70 6f 6e 65 6e 74 20 3e | 20 30 29 20 7b 0a 58 09 |ponent >| 0) {.X.|
|00003ac0| 09 7a 74 65 6e 70 6f 77 | 28 65 78 70 6f 6e 65 6e |.ztenpow|(exponen|
|00003ad0| 74 2c 20 26 74 65 6e 70 | 6f 77 29 3b 0a 58 09 09 |t, &tenp|ow);.X..|
|00003ae0| 7a 6d 75 6c 28 64 65 6e | 2c 20 74 65 6e 70 6f 77 |zmul(den|, tenpow|
|00003af0| 2c 20 26 74 6d 70 29 3b | 0a 58 09 09 66 72 65 65 |, &tmp);|.X..free|
|00003b00| 68 28 74 65 6e 70 6f 77 | 2e 76 29 3b 0a 58 09 09 |h(tenpow|.v);.X..|
|00003b10| 64 65 6e 20 3d 20 74 6d | 70 3b 0a 58 09 7d 0a 58 |den = tm|p;.X.}.X|
|00003b20| 09 69 66 20 28 65 78 70 | 6f 6e 65 6e 74 20 3c 20 |.if (exp|onent < |
|00003b30| 30 29 20 7b 0a 58 09 09 | 7a 74 65 6e 70 6f 77 28 |0) {.X..|ztenpow(|
|00003b40| 2d 65 78 70 6f 6e 65 6e | 74 2c 20 26 74 65 6e 70 |-exponen|t, &tenp|
|00003b50| 6f 77 29 3b 0a 58 09 09 | 7a 6d 75 6c 28 6e 75 6d |ow);.X..|zmul(num|
|00003b60| 2c 20 74 65 6e 70 6f 77 | 2c 20 26 74 6d 70 29 3b |, tenpow|, &tmp);|
|00003b70| 0a 58 09 09 66 72 65 65 | 68 28 74 65 6e 70 6f 77 |.X..free|h(tenpow|
|00003b80| 2e 76 29 3b 0a 58 09 09 | 6e 75 6d 20 3d 20 74 6d |.v);.X..|num = tm|
|00003b90| 70 3b 0a 58 09 7d 0a 58 | 09 69 66 20 28 7a 72 65 |p;.X.}.X|.if (zre|
|00003ba0| 6c 28 6e 75 6d 2c 20 64 | 65 6e 29 20 3c 20 30 29 |l(num, d|en) < 0)|
|00003bb0| 20 7b 0a 58 09 09 7a 6d | 75 6c 69 28 6e 75 6d 2c | {.X..zm|uli(num,|
|00003bc0| 20 31 30 4c 2c 20 26 74 | 6d 70 29 3b 0a 58 09 09 | 10L, &t|mp);.X..|
|00003bd0| 69 66 20 28 6e 75 6d 2e | 76 20 21 3d 20 71 2d 3e |if (num.|v != q->|
|00003be0| 6e 75 6d 2e 76 29 0a 58 | 09 09 09 66 72 65 65 68 |num.v).X|...freeh|
|00003bf0| 28 6e 75 6d 2e 76 29 3b | 0a 58 09 09 6e 75 6d 20 |(num.v);|.X..num |
|00003c00| 3d 20 74 6d 70 3b 0a 58 | 09 09 65 78 70 6f 6e 65 |= tmp;.X|..expone|
|00003c10| 6e 74 2d 2d 3b 0a 58 09 | 7d 0a 58 09 71 32 2e 6e |nt--;.X.|}.X.q2.n|
|00003c20| 75 6d 20 3d 20 6e 75 6d | 3b 0a 58 09 71 32 2e 64 |um = num|;.X.q2.d|
|00003c30| 65 6e 20 3d 20 64 65 6e | 3b 0a 58 09 71 32 2e 6e |en = den|;.X.q2.n|
|00003c40| 75 6d 2e 73 69 67 6e 20 | 3d 20 71 2d 3e 6e 75 6d |um.sign |= q->num|
|00003c50| 2e 73 69 67 6e 3b 0a 58 | 09 71 70 72 69 6e 74 66 |.sign;.X|.qprintf|
|00003c60| 66 28 26 71 32 2c 20 30 | 4c 2c 20 70 72 65 63 69 |f(&q2, 0|L, preci|
|00003c70| 73 69 6f 6e 29 3b 0a 58 | 09 69 66 20 28 65 78 70 |sion);.X|.if (exp|
|00003c80| 6f 6e 65 6e 74 29 0a 58 | 09 09 50 52 49 4e 54 46 |onent).X|..PRINTF|
|00003c90| 31 28 22 65 25 6c 64 22 | 2c 20 65 78 70 6f 6e 65 |1("e%ld"|, expone|
|00003ca0| 6e 74 29 3b 0a 58 09 69 | 66 20 28 6e 75 6d 2e 76 |nt);.X.i|f (num.v|
|00003cb0| 20 21 3d 20 71 2d 3e 6e | 75 6d 2e 76 29 0a 58 09 | != q->n|um.v).X.|
|00003cc0| 09 66 72 65 65 68 28 6e | 75 6d 2e 76 29 3b 0a 58 |.freeh(n|um.v);.X|
|00003cd0| 09 69 66 20 28 64 65 6e | 2e 76 20 21 3d 20 71 2d |.if (den|.v != q-|
|00003ce0| 3e 64 65 6e 2e 76 29 0a | 58 09 09 66 72 65 65 68 |>den.v).|X..freeh|
|00003cf0| 28 64 65 6e 2e 76 29 3b | 0a 58 7d 0a 58 0a 58 0a |(den.v);|.X}.X.X.|
|00003d00| 58 2f 2a 0a 58 20 2a 20 | 50 72 69 6e 74 20 61 20 |X/*.X * |Print a |
|00003d10| 6e 75 6d 62 65 72 20 69 | 6e 20 72 61 74 69 6f 6e |number i|n ration|
|00003d20| 61 6c 20 72 65 70 72 65 | 73 65 6e 74 61 74 69 6f |al repre|sentatio|
|00003d30| 6e 2e 0a 58 20 2a 20 45 | 78 61 6d 70 6c 65 3a 20 |n..X * E|xample: |
|00003d40| 33 39 37 2f 33 37 0a 58 | 20 2a 2f 0a 58 73 74 61 |397/37.X| */.Xsta|
|00003d50| 74 69 63 20 76 6f 69 64 | 0a 58 71 70 72 69 6e 74 |tic void|.Xqprint|
|00003d60| 66 72 28 71 2c 20 77 69 | 64 74 68 2c 20 66 6f 72 |fr(q, wi|dth, for|
|00003d70| 63 65 29 0a 58 09 4e 55 | 4d 42 45 52 20 2a 71 3b |ce).X.NU|MBER *q;|
|00003d80| 0a 58 09 6c 6f 6e 67 20 | 77 69 64 74 68 3b 0a 58 |.X.long |width;.X|
|00003d90| 09 42 4f 4f 4c 20 66 6f | 72 63 65 3b 0a 58 7b 0a |.BOOL fo|rce;.X{.|
|00003da0| 58 09 7a 70 72 69 6e 74 | 76 61 6c 28 71 2d 3e 6e |X.zprint|val(q->n|
|00003db0| 75 6d 2c 20 30 4c 2c 20 | 77 69 64 74 68 29 3b 0a |um, 0L, |width);.|
|00003dc0| 58 09 69 66 20 28 66 6f | 72 63 65 20 7c 7c 20 71 |X.if (fo|rce || q|
|00003dd0| 69 73 66 72 61 63 28 71 | 29 29 20 7b 0a 58 09 09 |isfrac(q|)) {.X..|
|00003de0| 50 55 54 43 48 41 52 28 | 27 2f 27 29 3b 0a 58 09 |PUTCHAR(|'/');.X.|
|00003df0| 09 7a 70 72 69 6e 74 76 | 61 6c 28 71 2d 3e 64 65 |.zprintv|al(q->de|
|00003e00| 6e 2c 20 30 4c 2c 20 77 | 69 64 74 68 29 3b 0a 58 |n, 0L, w|idth);.X|
|00003e10| 09 7d 0a 58 7d 0a 58 0a | 58 0a 58 2f 2a 0a 58 20 |.}.X}.X.|X.X/*.X |
|00003e20| 2a 20 50 72 69 6e 74 20 | 61 20 6e 75 6d 62 65 72 |* Print |a number|
|00003e30| 20 61 73 20 61 6e 20 69 | 6e 74 65 67 65 72 20 28 | as an i|nteger (|
|00003e40| 74 72 75 6e 63 61 74 69 | 6e 67 20 66 72 61 63 74 |truncati|ng fract|
|00003e50| 69 6f 6e 61 6c 20 70 61 | 72 74 29 2e 0a 58 20 2a |ional pa|rt)..X *|
|00003e60| 20 45 78 61 6d 70 6c 65 | 3a 20 39 35 38 34 32 31 | Example|: 958421|
|00003e70| 0a 58 20 2a 2f 0a 58 73 | 74 61 74 69 63 20 76 6f |.X */.Xs|tatic vo|
|00003e80| 69 64 0a 58 71 70 72 69 | 6e 74 66 64 28 71 2c 20 |id.Xqpri|ntfd(q, |
|00003e90| 77 69 64 74 68 29 0a 58 | 09 4e 55 4d 42 45 52 20 |width).X|.NUMBER |
|00003ea0| 2a 71 3b 0a 58 09 6c 6f | 6e 67 20 77 69 64 74 68 |*q;.X.lo|ng width|
|00003eb0| 3b 0a 58 7b 0a 58 09 5a | 56 41 4c 55 45 20 7a 3b |;.X{.X.Z|VALUE z;|
|00003ec0| 0a 58 0a 58 09 69 66 20 | 28 71 69 73 66 72 61 63 |.X.X.if |(qisfrac|
|00003ed0| 28 71 29 29 20 7b 0a 58 | 09 09 7a 71 75 6f 28 71 |(q)) {.X|..zquo(q|
|00003ee0| 2d 3e 6e 75 6d 2c 20 71 | 2d 3e 64 65 6e 2c 20 26 |->num, q|->den, &|
|00003ef0| 7a 29 3b 0a 58 09 09 7a | 70 72 69 6e 74 76 61 6c |z);.X..z|printval|
|00003f00| 28 7a 2c 20 30 4c 2c 20 | 77 69 64 74 68 29 3b 0a |(z, 0L, |width);.|
|00003f10| 58 09 09 66 72 65 65 68 | 28 7a 2e 76 29 3b 0a 58 |X..freeh|(z.v);.X|
|00003f20| 09 7d 20 65 6c 73 65 0a | 58 09 09 7a 70 72 69 6e |.} else.|X..zprin|
|00003f30| 74 76 61 6c 28 71 2d 3e | 6e 75 6d 2c 20 30 4c 2c |tval(q->|num, 0L,|
|00003f40| 20 77 69 64 74 68 29 3b | 0a 58 7d 0a 58 0a 58 0a | width);|.X}.X.X.|
|00003f50| 58 2f 2a 0a 58 20 2a 20 | 50 72 69 6e 74 20 61 20 |X/*.X * |Print a |
|00003f60| 6e 75 6d 62 65 72 20 69 | 6e 20 68 65 78 2e 0a 58 |number i|n hex..X|
|00003f70| 20 2a 20 54 68 69 73 20 | 70 72 69 6e 74 73 20 74 | * This |prints t|
|00003f80| 68 65 20 6e 75 6d 65 72 | 61 74 6f 72 20 61 6e 64 |he numer|ator and|
|00003f90| 20 64 65 6e 6f 6d 69 6e | 61 74 6f 72 20 69 6e 20 | denomin|ator in |
|00003fa0| 68 65 78 2e 0a 58 20 2a | 2f 0a 58 23 69 66 6e 64 |hex..X *|/.X#ifnd|
|00003fb0| 65 66 20 43 4f 44 45 0a | 58 73 74 61 74 69 63 20 |ef CODE.|Xstatic |
|00003fc0| 0a 58 23 65 6e 64 69 66 | 0a 58 76 6f 69 64 0a 58 |.X#endif|.Xvoid.X|
|00003fd0| 71 70 72 69 6e 74 66 78 | 28 71 2c 20 77 69 64 74 |qprintfx|(q, widt|
|00003fe0| 68 29 0a 58 09 4e 55 4d | 42 45 52 20 2a 71 3b 0a |h).X.NUM|BER *q;.|
|00003ff0| 58 09 6c 6f 6e 67 20 77 | 69 64 74 68 3b 0a 58 7b |X.long w|idth;.X{|
|00004000| 0a 58 09 7a 70 72 69 6e | 74 78 28 71 2d 3e 6e 75 |.X.zprin|tx(q->nu|
|00004010| 6d 2c 20 77 69 64 74 68 | 29 3b 0a 58 09 69 66 20 |m, width|);.X.if |
|00004020| 28 71 69 73 66 72 61 63 | 28 71 29 29 20 7b 0a 58 |(qisfrac|(q)) {.X|
|00004030| 09 09 50 55 54 43 48 41 | 52 28 27 2f 27 29 3b 0a |..PUTCHA|R('/');.|
|00004040| 58 09 09 7a 70 72 69 6e | 74 78 28 71 2d 3e 64 65 |X..zprin|tx(q->de|
|00004050| 6e 2c 20 30 4c 29 3b 0a | 58 09 7d 0a 58 7d 0a 58 |n, 0L);.|X.}.X}.X|
|00004060| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 50 72 69 6e 74 |.X.X/*.X| * Print|
|00004070| 20 61 20 6e 75 6d 62 65 | 72 20 69 6e 20 62 69 6e | a numbe|r in bin|
|00004080| 61 72 79 2e 0a 58 20 2a | 20 54 68 69 73 20 70 72 |ary..X *| This pr|
|00004090| 69 6e 74 73 20 74 68 65 | 20 6e 75 6d 65 72 61 74 |ints the| numerat|
|000040a0| 6f 72 20 61 6e 64 20 64 | 65 6e 6f 6d 69 6e 61 74 |or and d|enominat|
|000040b0| 6f 72 20 69 6e 20 62 69 | 6e 61 72 79 2e 0a 58 20 |or in bi|nary..X |
|000040c0| 2a 2f 0a 58 73 74 61 74 | 69 63 20 76 6f 69 64 0a |*/.Xstat|ic void.|
|000040d0| 58 71 70 72 69 6e 74 66 | 62 28 71 2c 20 77 69 64 |Xqprintf|b(q, wid|
|000040e0| 74 68 29 0a 58 09 4e 55 | 4d 42 45 52 20 2a 71 3b |th).X.NU|MBER *q;|
|000040f0| 0a 58 09 6c 6f 6e 67 20 | 77 69 64 74 68 3b 0a 58 |.X.long |width;.X|
|00004100| 7b 0a 58 09 7a 70 72 69 | 6e 74 62 28 71 2d 3e 6e |{.X.zpri|ntb(q->n|
|00004110| 75 6d 2c 20 77 69 64 74 | 68 29 3b 0a 58 09 69 66 |um, widt|h);.X.if|
|00004120| 20 28 71 69 73 66 72 61 | 63 28 71 29 29 20 7b 0a | (qisfra|c(q)) {.|
|00004130| 58 09 09 50 55 54 43 48 | 41 52 28 27 2f 27 29 3b |X..PUTCH|AR('/');|
|00004140| 0a 58 09 09 7a 70 72 69 | 6e 74 62 28 71 2d 3e 64 |.X..zpri|ntb(q->d|
|00004150| 65 6e 2c 20 30 4c 29 3b | 0a 58 09 7d 0a 58 7d 0a |en, 0L);|.X.}.X}.|
|00004160| 58 0a 58 0a 58 2f 2a 0a | 58 20 2a 20 50 72 69 6e |X.X.X/*.|X * Prin|
|00004170| 74 20 61 20 6e 75 6d 62 | 65 72 20 69 6e 20 6f 63 |t a numb|er in oc|
|00004180| 74 61 6c 2e 0a 58 20 2a | 20 54 68 69 73 20 70 72 |tal..X *| This pr|
|00004190| 69 6e 74 73 20 74 68 65 | 20 6e 75 6d 65 72 61 74 |ints the| numerat|
|000041a0| 6f 72 20 61 6e 64 20 64 | 65 6e 6f 6d 69 6e 61 74 |or and d|enominat|
|000041b0| 6f 72 20 69 6e 20 6f 63 | 74 61 6c 2e 0a 58 20 2a |or in oc|tal..X *|
|000041c0| 2f 0a 58 73 74 61 74 69 | 63 20 76 6f 69 64 0a 58 |/.Xstati|c void.X|
|000041d0| 71 70 72 69 6e 74 66 6f | 28 71 2c 20 77 69 64 74 |qprintfo|(q, widt|
|000041e0| 68 29 0a 58 09 4e 55 4d | 42 45 52 20 2a 71 3b 0a |h).X.NUM|BER *q;.|
|000041f0| 58 09 6c 6f 6e 67 20 77 | 69 64 74 68 3b 0a 58 7b |X.long w|idth;.X{|
|00004200| 0a 58 09 7a 70 72 69 6e | 74 6f 28 71 2d 3e 6e 75 |.X.zprin|to(q->nu|
|00004210| 6d 2c 20 77 69 64 74 68 | 29 3b 0a 58 09 69 66 20 |m, width|);.X.if |
|00004220| 28 71 69 73 66 72 61 63 | 28 71 29 29 20 7b 0a 58 |(qisfrac|(q)) {.X|
|00004230| 09 09 50 55 54 43 48 41 | 52 28 27 2f 27 29 3b 0a |..PUTCHA|R('/');.|
|00004240| 58 09 09 7a 70 72 69 6e | 74 6f 28 71 2d 3e 64 65 |X..zprin|to(q->de|
|00004250| 6e 2c 20 30 4c 29 3b 0a | 58 09 7d 0a 58 7d 0a 58 |n, 0L);.|X.}.X}.X|
|00004260| 0a 58 0a 58 2f 2a 0a 58 | 20 2a 20 50 72 69 6e 74 |.X.X/*.X| * Print|
|00004270| 20 61 6e 20 69 6e 74 65 | 67 65 72 20 76 61 6c 75 | an inte|ger valu|
|00004280| 65 20 61 73 20 61 20 68 | 65 78 20 6e 75 6d 62 65 |e as a h|ex numbe|
|00004290| 72 2e 0a 58 20 2a 20 54 | 68 65 20 73 70 65 63 69 |r..X * T|he speci|
|000042a0| 61 6c 20 63 68 61 72 61 | 63 74 65 72 73 20 30 78 |al chara|cters 0x|
|000042b0| 20 61 70 70 65 61 72 20 | 74 6f 20 69 6e 64 69 63 | appear |to indic|
|000042c0| 61 74 65 20 74 68 65 20 | 6e 75 6d 62 65 72 20 69 |ate the |number i|
|000042d0| 73 20 68 65 78 2e 0a 58 | 20 2a 2f 0a 58 2f 2a 41 |s hex..X| */.X/*A|
|000042e0| 52 47 53 55 53 45 44 2a | 2f 0a 58 73 74 61 74 69 |RGSUSED*|/.Xstati|
|000042f0| 63 20 76 6f 69 64 0a 58 | 7a 70 72 69 6e 74 78 28 |c void.X|zprintx(|
|00004300| 7a 2c 20 77 69 64 74 68 | 29 0a 58 09 5a 56 41 4c |z, width|).X.ZVAL|
|00004310| 55 45 20 7a 3b 0a 58 09 | 6c 6f 6e 67 20 77 69 64 |UE z;.X.|long wid|
|00004320| 74 68 3b 0a 58 7b 0a 58 | 09 72 65 67 69 73 74 65 |th;.X{.X|.registe|
|00004330| 72 20 48 41 4c 46 20 2a | 68 70 3b 09 2f 2a 20 63 |r HALF *|hp;./* c|
|00004340| 75 72 72 65 6e 74 20 77 | 6f 72 64 20 74 6f 20 70 |urrent w|ord to p|
|00004350| 72 69 6e 74 20 2a 2f 0a | 58 09 69 6e 74 20 6c 65 |rint */.|X.int le|
|00004360| 6e 3b 09 09 2f 2a 20 6e | 75 6d 62 65 72 20 6f 66 |n;../* n|umber of|
|00004370| 20 68 61 6c 66 77 6f 72 | 64 73 20 74 6f 20 74 79 | halfwor|ds to ty|
|00004380| 70 65 20 2a 2f 0a 58 0a | 58 09 6c 65 6e 20 3d 20 |pe */.X.|X.len = |
|00004390| 7a 2e 6c 65 6e 20 2d 20 | 31 3b 0a 58 09 69 66 20 |z.len - |1;.X.if |
|000043a0| 28 69 73 6e 65 67 28 7a | 29 29 0a 58 09 09 50 55 |(isneg(z|)).X..PU|
|000043b0| 54 43 48 41 52 28 27 2d | 27 29 3b 0a 58 09 69 66 |TCHAR('-|');.X.if|
|000043c0| 20 28 28 6c 65 6e 20 3d | 3d 20 30 29 20 26 26 20 | ((len =|= 0) && |
|000043d0| 28 2a 7a 2e 76 20 3c 3d | 20 28 46 55 4c 4c 29 20 |(*z.v <=| (FULL) |
|000043e0| 39 29 29 20 7b 0a 58 09 | 09 6c 65 6e 20 3d 20 27 |9)) {.X.|.len = '|
|000043f0| 30 27 20 2b 20 2a 7a 2e | 76 3b 0a 58 09 09 50 55 |0' + *z.|v;.X..PU|
|00004400| 54 43 48 41 52 28 6c 65 | 6e 29 3b 0a 58 09 09 72 |TCHAR(le|n);.X..r|
|00004410| 65 74 75 72 6e 3b 0a 58 | 09 7d 0a 58 09 68 70 20 |eturn;.X|.}.X.hp |
|00004420| 3d 20 7a 2e 76 20 2b 20 | 6c 65 6e 3b 0a 58 09 50 |= z.v + |len;.X.P|
|00004430| 52 49 4e 54 46 31 28 22 | 30 78 25 78 22 2c 20 28 |RINTF1("|0x%x", (|
|00004440| 46 55 4c 4c 29 20 2a 68 | 70 2d 2d 29 3b 0a 58 09 |FULL) *h|p--);.X.|
|00004450| 77 68 69 6c 65 20 28 2d | 2d 6c 65 6e 20 3e 3d 20 |while (-|-len >= |
|00004460| 30 29 0a 58 09 09 50 52 | 49 4e 54 46 31 28 22 25 |0).X..PR|INTF1("%|
|00004470| 30 34 78 22 2c 20 28 46 | 55 4c 4c 29 20 2a 68 70 |04x", (F|ULL) *hp|
|00004480| 2d 2d 29 3b 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 0a |--);.X}.|X.X.X/*.|
|00004490| 58 20 2a 20 50 72 69 6e | 74 20 61 6e 20 69 6e 74 |X * Prin|t an int|
|000044a0| 65 67 65 72 20 76 61 6c | 75 65 20 61 73 20 61 20 |eger val|ue as a |
|000044b0| 62 69 6e 61 72 79 20 6e | 75 6d 62 65 72 2e 0a 58 |binary n|umber..X|
|000044c0| 20 2a 20 54 68 65 20 73 | 70 65 63 69 61 6c 20 63 | * The s|pecial c|
|000044d0| 68 61 72 61 63 74 65 72 | 73 20 30 62 20 61 70 70 |haracter|s 0b app|
|000044e0| 65 61 72 20 74 6f 20 69 | 6e 64 69 63 61 74 65 20 |ear to i|ndicate |
|000044f0| 74 68 65 20 6e 75 6d 62 | 65 72 20 69 73 20 62 69 |the numb|er is bi|
|00004500| 6e 61 72 79 2e 0a 58 20 | 2a 2f 0a 58 2f 2a 41 52 |nary..X |*/.X/*AR|
|00004510| 47 53 55 53 45 44 2a 2f | 0a 58 73 74 61 74 69 63 |GSUSED*/|.Xstatic|
|00004520| 20 76 6f 69 64 0a 58 7a | 70 72 69 6e 74 62 28 7a | void.Xz|printb(z|
|00004530| 2c 20 77 69 64 74 68 29 | 0a 58 09 5a 56 41 4c 55 |, width)|.X.ZVALU|
|00004540| 45 20 7a 3b 0a 58 09 6c | 6f 6e 67 20 77 69 64 74 |E z;.X.l|ong widt|
|00004550| 68 3b 0a 58 7b 0a 58 09 | 72 65 67 69 73 74 65 72 |h;.X{.X.|register|
|00004560| 20 48 41 4c 46 20 2a 68 | 70 3b 09 2f 2a 20 63 75 | HALF *h|p;./* cu|
|00004570| 72 72 65 6e 74 20 77 6f | 72 64 20 74 6f 20 70 72 |rrent wo|rd to pr|
|00004580| 69 6e 74 20 2a 2f 0a 58 | 09 69 6e 74 20 6c 65 6e |int */.X|.int len|
|00004590| 3b 09 09 2f 2a 20 6e 75 | 6d 62 65 72 20 6f 66 20 |;../* nu|mber of |
|000045a0| 68 61 6c 66 77 6f 72 64 | 73 20 74 6f 20 74 79 70 |halfword|s to typ|
|000045b0| 65 20 2a 2f 0a 58 09 48 | 41 4c 46 20 76 61 6c 3b |e */.X.H|ALF val;|
|000045c0| 09 09 2f 2a 20 63 75 72 | 72 65 6e 74 20 76 61 6c |../* cur|rent val|
|000045d0| 75 65 20 2a 2f 0a 58 09 | 48 41 4c 46 20 6d 61 73 |ue */.X.|HALF mas|
|000045e0| 6b 3b 09 09 2f 2a 20 63 | 75 72 72 65 6e 74 20 6d |k;../* c|urrent m|
|000045f0| 61 73 6b 20 2a 2f 0a 58 | 09 69 6e 74 20 64 69 64 |ask */.X|.int did|
|00004600| 70 72 69 6e 74 3b 09 09 | 2f 2a 20 6e 6f 6e 7a 65 |print;..|/* nonze|
|00004610| 72 6f 20 69 66 20 70 72 | 69 6e 74 65 64 20 73 6f |ro if pr|inted so|
|00004620| 6d 65 20 64 69 67 69 74 | 73 20 2a 2f 0a 58 09 69 |me digit|s */.X.i|
|00004630| 6e 74 20 63 68 3b 09 09 | 09 2f 2a 20 63 75 72 72 |nt ch;..|./* curr|
|00004640| 65 6e 74 20 63 68 61 72 | 20 2a 2f 0a 58 0a 58 09 |ent char| */.X.X.|
|00004650| 6c 65 6e 20 3d 20 7a 2e | 6c 65 6e 20 2d 20 31 3b |len = z.|len - 1;|
|00004660| 0a 58 09 69 66 20 28 69 | 73 6e 65 67 28 7a 29 29 |.X.if (i|sneg(z))|
|00004670| 0a 58 09 09 50 55 54 43 | 48 41 52 28 27 2d 27 29 |.X..PUTC|HAR('-')|
|00004680| 3b 0a 58 09 69 66 20 28 | 28 6c 65 6e 20 3d 3d 20 |;.X.if (|(len == |
|00004690| 30 29 20 26 26 20 28 2a | 7a 2e 76 20 3c 3d 20 28 |0) && (*|z.v <= (|
|000046a0| 46 55 4c 4c 29 20 31 29 | 29 20 7b 0a 58 09 09 6c |FULL) 1)|) {.X..l|
|000046b0| 65 6e 20 3d 20 27 30 27 | 20 2b 20 2a 7a 2e 76 3b |en = '0'| + *z.v;|
|000046c0| 0a 58 09 09 50 55 54 43 | 48 41 52 28 6c 65 6e 29 |.X..PUTC|HAR(len)|
|000046d0| 3b 0a 58 09 09 72 65 74 | 75 72 6e 3b 0a 58 09 7d |;.X..ret|urn;.X.}|
|000046e0| 0a 58 09 68 70 20 3d 20 | 7a 2e 76 20 2b 20 6c 65 |.X.hp = |z.v + le|
|000046f0| 6e 3b 0a 58 09 64 69 64 | 70 72 69 6e 74 20 3d 20 |n;.X.did|print = |
|00004700| 30 3b 0a 58 09 50 55 54 | 53 54 52 28 22 30 62 22 |0;.X.PUT|STR("0b"|
|00004710| 29 3b 0a 58 09 77 68 69 | 6c 65 20 28 6c 65 6e 2d |);.X.whi|le (len-|
|00004720| 2d 20 3e 3d 20 30 29 20 | 7b 0a 58 09 09 76 61 6c |- >= 0) |{.X..val|
|00004730| 20 3d 20 2a 68 70 2d 2d | 3b 0a 58 09 09 6d 61 73 | = *hp--|;.X..mas|
|00004740| 6b 20 3d 20 28 31 20 3c | 3c 20 28 42 41 53 45 42 |k = (1 <|< (BASEB|
|00004750| 20 2d 20 31 29 29 3b 0a | 58 09 09 77 68 69 6c 65 | - 1));.|X..while|
|00004760| 20 28 6d 61 73 6b 29 20 | 7b 0a 58 09 09 09 63 68 | (mask) |{.X...ch|
|00004770| 20 3d 20 27 30 27 20 2b | 20 28 28 6d 61 73 6b 20 | = '0' +| ((mask |
|00004780| 26 20 76 61 6c 29 20 21 | 3d 20 30 29 3b 0a 58 09 |& val) !|= 0);.X.|
|00004790| 09 09 69 66 20 28 64 69 | 64 70 72 69 6e 74 20 7c |..if (di|dprint ||
|000047a0| 7c 20 28 63 68 20 21 3d | 20 27 30 27 29 29 20 7b || (ch !=| '0')) {|
|000047b0| 0a 58 09 09 09 09 50 55 | 54 43 48 41 52 28 63 68 |.X....PU|TCHAR(ch|
|000047c0| 29 3b 0a 58 09 09 09 09 | 64 69 64 70 72 69 6e 74 |);.X....|didprint|
|000047d0| 20 3d 20 31 3b 0a 58 09 | 09 09 7d 0a 58 09 09 09 | = 1;.X.|..}.X...|
|000047e0| 6d 61 73 6b 20 3e 3e 3d | 20 31 3b 0a 58 09 09 7d |mask >>=| 1;.X..}|
|000047f0| 0a 58 09 7d 0a 58 7d 0a | 58 0a 58 0a 58 2f 2a 0a |.X.}.X}.|X.X.X/*.|
|00004800| 58 20 2a 20 50 72 69 6e | 74 20 61 6e 20 69 6e 74 |X * Prin|t an int|
|00004810| 65 67 65 72 20 76 61 6c | 75 65 20 61 73 20 61 6e |eger val|ue as an|
|00004820| 20 6f 63 74 61 6c 20 6e | 75 6d 62 65 72 2e 0a 58 | octal n|umber..X|
|00004830| 20 2a 20 54 68 65 20 6e | 75 6d 62 65 72 20 62 65 | * The n|umber be|
|00004840| 67 69 6e 73 20 77 69 74 | 68 20 61 20 6c 65 61 64 |gins wit|h a lead|
|00004850| 69 6e 67 20 30 20 74 6f | 20 69 6e 64 69 63 61 74 |ing 0 to| indicat|
|00004860| 65 20 74 68 61 74 20 69 | 74 20 69 73 20 6f 63 74 |e that i|t is oct|
|00004870| 61 6c 2e 0a 58 20 2a 2f | 0a 58 2f 2a 41 52 47 53 |al..X */|.X/*ARGS|
|00004880| 55 53 45 44 2a 2f 0a 58 | 73 74 61 74 69 63 20 76 |USED*/.X|static v|
|00004890| 6f 69 64 0a 58 7a 70 72 | 69 6e 74 6f 28 7a 2c 20 |oid.Xzpr|into(z, |
|000048a0| 77 69 64 74 68 29 0a 58 | 09 5a 56 41 4c 55 45 20 |width).X|.ZVALUE |
|000048b0| 7a 3b 0a 58 09 6c 6f 6e | 67 20 77 69 64 74 68 3b |z;.X.lon|g width;|
|000048c0| 0a 58 7b 0a 58 09 72 65 | 67 69 73 74 65 72 20 48 |.X{.X.re|gister H|
|000048d0| 41 4c 46 20 2a 68 70 3b | 09 2f 2a 20 63 75 72 72 |ALF *hp;|./* curr|
|000048e0| 65 6e 74 20 77 6f 72 64 | 20 74 6f 20 70 72 69 6e |ent word| to prin|
|000048f0| 74 20 2a 2f 0a 58 09 69 | 6e 74 20 6c 65 6e 3b 09 |t */.X.i|nt len;.|
|00004900| 09 2f 2a 20 6e 75 6d 62 | 65 72 20 6f 66 20 68 61 |./* numb|er of ha|
|00004910| 6c 66 77 6f 72 64 73 20 | 74 6f 20 74 79 70 65 20 |lfwords |to type |
|00004920| 2a 2f 0a 58 09 69 6e 74 | 20 6e 75 6d 31 2c 20 6e |*/.X.int| num1, n|
|00004930| 75 6d 32 3b 09 09 2f 2a | 20 6e 75 6d 62 65 72 73 |um2;../*| numbers|
|00004940| 20 74 6f 20 74 79 70 65 | 20 2a 2f 0a 58 09 69 6e | to type| */.X.in|
|00004950| 74 20 72 65 6d 3b 09 09 | 2f 2a 20 72 65 6d 61 69 |t rem;..|/* remai|
|00004960| 6e 64 65 72 20 6e 75 6d | 62 65 72 20 6f 66 20 68 |nder num|ber of h|
|00004970| 61 6c 66 77 6f 72 64 73 | 20 2a 2f 0a 58 0a 58 09 |alfwords| */.X.X.|
|00004980| 69 66 20 28 69 73 6e 65 | 67 28 7a 29 29 0a 58 09 |if (isne|g(z)).X.|
|00004990| 09 50 55 54 43 48 41 52 | 28 27 2d 27 29 3b 0a 58 |.PUTCHAR|('-');.X|
|000049a0| 09 6c 65 6e 20 3d 20 7a | 2e 6c 65 6e 3b 0a 58 09 |.len = z|.len;.X.|
|000049b0| 69 66 20 28 28 6c 65 6e | 20 3d 3d 20 31 29 20 26 |if ((len| == 1) &|
|000049c0| 26 20 28 2a 7a 2e 76 20 | 3c 3d 20 28 46 55 4c 4c |& (*z.v |<= (FULL|
|000049d0| 29 20 37 29 29 20 7b 0a | 58 09 09 6e 75 6d 31 20 |) 7)) {.|X..num1 |
|000049e0| 3d 20 27 30 27 20 2b 20 | 2a 7a 2e 76 3b 0a 58 09 |= '0' + |*z.v;.X.|
|000049f0| 09 50 55 54 43 48 41 52 | 28 6e 75 6d 31 29 3b 0a |.PUTCHAR|(num1);.|
|00004a00| 58 09 09 72 65 74 75 72 | 6e 3b 0a 58 09 7d 0a 58 |X..retur|n;.X.}.X|
|00004a10| 09 68 70 20 3d 20 7a 2e | 76 20 2b 20 6c 65 6e 20 |.hp = z.|v + len |
|00004a20| 2d 20 31 3b 0a 58 09 72 | 65 6d 20 3d 20 6c 65 6e |- 1;.X.r|em = len|
|00004a30| 20 25 20 33 3b 0a 58 09 | 73 77 69 74 63 68 20 28 | % 3;.X.|switch (|
|00004a40| 72 65 6d 29 20 7b 09 2f | 2a 20 68 61 6e 64 6c 65 |rem) {./|* handle|
|00004a50| 20 6f 64 64 20 61 6d 6f | 75 6e 74 73 20 66 69 72 | odd amo|unts fir|
|00004a60| 73 74 20 2a 2f 0a 58 09 | 09 63 61 73 65 20 30 3a |st */.X.|.case 0:|
|00004a70| 0a 58 09 09 09 6e 75 6d | 31 20 3d 20 28 28 28 46 |.X...num|1 = (((F|
|00004a80| 55 4c 4c 29 20 68 70 5b | 30 5d 29 20 3c 3c 20 38 |ULL) hp[|0]) << 8|
|00004a90| 29 20 2b 20 28 28 28 46 | 55 4c 4c 29 20 68 70 5b |) + (((F|ULL) hp[|
|00004aa0| 2d 31 5d 29 20 3e 3e 20 | 38 29 3b 0a 58 09 09 09 |-1]) >> |8);.X...|
|00004ab0| 6e 75 6d 32 20 3d 20 28 | 28 28 46 55 4c 4c 29 20 |num2 = (|((FULL) |
|00004ac0| 28 68 70 5b 2d 31 5d 20 | 26 20 30 78 66 66 29 29 |(hp[-1] |& 0xff))|
|00004ad0| 20 3c 3c 20 31 36 29 20 | 2b 20 28 28 46 55 4c 4c | << 16) |+ ((FULL|
|00004ae0| 29 20 68 70 5b 2d 32 5d | 29 3b 0a 58 09 09 09 72 |) hp[-2]|);.X...r|
|00004af0| 65 6d 20 3d 20 33 3b 0a | 58 09 09 09 62 72 65 61 |em = 3;.|X...brea|
|00004b00| 6b 3b 0a 58 09 09 63 61 | 73 65 20 31 3a 0a 58 09 |k;.X..ca|se 1:.X.|
|00004b10| 09 09 6e 75 6d 31 20 3d | 20 30 3b 0a 58 09 09 09 |..num1 =| 0;.X...|
|00004b20| 6e 75 6d 32 20 3d 20 28 | 46 55 4c 4c 29 20 68 70 |num2 = (|FULL) hp|
|00004b30| 5b 30 5d 3b 0a 58 09 09 | 09 62 72 65 61 6b 3b 0a |[0];.X..|.break;.|
|00004b40| 58 09 09 63 61 73 65 20 | 32 3a 0a 58 09 09 09 6e |X..case |2:.X...n|
|00004b50| 75 6d 31 20 3d 20 28 28 | 28 46 55 4c 4c 29 20 68 |um1 = ((|(FULL) h|
|00004b60| 70 5b 30 5d 29 20 3e 3e | 20 38 29 3b 0a 58 09 09 |p[0]) >>| 8);.X..|
|00004b70| 09 6e 75 6d 32 20 3d 20 | 28 28 28 46 55 4c 4c 29 |.num2 = |(((FULL)|
|00004b80| 20 28 68 70 5b 30 5d 20 | 26 20 30 78 66 66 29 29 | (hp[0] |& 0xff))|
|00004b90| 20 3c 3c 20 31 36 29 20 | 2b 20 28 28 46 55 4c 4c | << 16) |+ ((FULL|
|00004ba0| 29 20 68 70 5b 2d 31 5d | 29 3b 0a 58 09 09 09 62 |) hp[-1]|);.X...b|
|00004bb0| 72 65 61 6b 3b 0a 58 09 | 7d 0a 58 09 69 66 20 28 |reak;.X.|}.X.if (|
|00004bc0| 6e 75 6d 31 29 0a 58 09 | 09 50 52 49 4e 54 46 32 |num1).X.|.PRINTF2|
|00004bd0| 28 22 30 25 6f 25 30 38 | 6f 22 2c 20 6e 75 6d 31 |("0%o%08|o", num1|
|00004be0| 2c 20 6e 75 6d 32 29 3b | 0a 58 09 65 6c 73 65 0a |, num2);|.X.else.|
|00004bf0| 58 09 09 50 52 49 4e 54 | 46 31 28 22 30 25 6f 22 |X..PRINT|F1("0%o"|
|00004c00| 2c 20 6e 75 6d 32 29 3b | 0a 58 09 6c 65 6e 20 2d |, num2);|.X.len -|
|00004c10| 3d 20 72 65 6d 3b 0a 58 | 09 68 70 20 2d 3d 20 72 |= rem;.X|.hp -= r|
|00004c20| 65 6d 3b 0a 58 09 77 68 | 69 6c 65 20 28 6c 65 6e |em;.X.wh|ile (len|
|00004c30| 20 3e 20 30 29 20 7b 09 | 2f 2a 20 66 69 6e 69 73 | > 0) {.|/* finis|
|00004c40| 68 20 69 6e 20 67 72 6f | 75 70 73 20 6f 66 20 33 |h in gro|ups of 3|
|00004c50| 20 68 61 6c 66 77 6f 72 | 64 73 20 2a 2f 0a 58 09 | halfwor|ds */.X.|
|00004c60| 09 6e 75 6d 31 20 3d 20 | 28 28 28 46 55 4c 4c 29 |.num1 = |(((FULL)|
|00004c70| 20 68 70 5b 30 5d 29 20 | 3c 3c 20 38 29 20 2b 20 | hp[0]) |<< 8) + |
|00004c80| 28 28 28 46 55 4c 4c 29 | 20 68 70 5b 2d 31 5d 29 |(((FULL)| hp[-1])|
|00004c90| 20 3e 3e 20 38 29 3b 0a | 58 09 09 6e 75 6d 32 20 | >> 8);.|X..num2 |
|00004ca0| 3d 20 28 28 28 46 55 4c | 4c 29 20 28 68 70 5b 2d |= (((FUL|L) (hp[-|
|00004cb0| 31 5d 20 26 20 30 78 66 | 66 29 29 20 3c 3c 20 31 |1] & 0xf|f)) << 1|
|00004cc0| 36 29 20 2b 20 28 28 46 | 55 4c 4c 29 20 68 70 5b |6) + ((F|ULL) hp[|
|00004cd0| 2d 32 5d 29 3b 0a 58 09 | 09 50 52 49 4e 54 46 32 |-2]);.X.|.PRINTF2|
|00004ce0| 28 22 25 30 38 6f 25 30 | 38 6f 22 2c 20 6e 75 6d |("%08o%0|8o", num|
|00004cf0| 31 2c 20 6e 75 6d 32 29 | 3b 0a 58 09 09 68 70 20 |1, num2)|;.X..hp |
|00004d00| 2d 3d 20 33 3b 0a 58 09 | 09 6c 65 6e 20 2d 3d 20 |-= 3;.X.|.len -= |
|00004d10| 33 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 0a 58 2f |3;.X.}.X|}.X.X.X/|
|00004d20| 2a 0a 58 20 2a 20 50 72 | 69 6e 74 20 61 20 64 65 |*.X * Pr|int a de|
|00004d30| 63 69 6d 61 6c 20 69 6e | 74 65 67 65 72 20 74 6f |cimal in|teger to|
|00004d40| 20 74 68 65 20 74 65 72 | 6d 69 6e 61 6c 2e 0a 58 | the ter|minal..X|
|00004d50| 20 2a 20 54 68 69 73 20 | 77 6f 72 6b 73 20 62 79 | * This |works by|
|00004d60| 20 64 69 76 69 64 69 6e | 67 20 74 68 65 20 6e 75 | dividin|g the nu|
|00004d70| 6d 62 65 72 20 62 79 20 | 31 30 5e 32 5e 4e 20 66 |mber by |10^2^N f|
|00004d80| 6f 72 20 73 6f 6d 65 20 | 4e 2c 20 61 6e 64 0a 58 |or some |N, and.X|
|00004d90| 20 2a 20 74 68 65 6e 20 | 64 6f 69 6e 67 20 74 68 | * then |doing th|
|00004da0| 69 73 20 72 65 63 75 72 | 73 69 76 65 6c 79 20 6f |is recur|sively o|
|00004db0| 6e 20 74 68 65 20 71 75 | 6f 74 69 65 6e 74 20 61 |n the qu|otient a|
|00004dc0| 6e 64 20 72 65 6d 61 69 | 6e 64 65 72 2e 0a 58 20 |nd remai|nder..X |
|00004dd0| 2a 20 44 65 63 69 6d 61 | 6c 73 20 73 75 70 70 6c |* Decima|ls suppl|
|00004de0| 69 65 73 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 65 |ies numb|er of de|
|00004df0| 63 69 6d 61 6c 20 70 6c | 61 63 65 73 20 74 6f 20 |cimal pl|aces to |
|00004e00| 70 72 69 6e 74 2c 20 77 | 69 74 68 20 61 20 64 65 |print, w|ith a de|
|00004e10| 63 69 6d 61 6c 0a 58 20 | 2a 20 70 6f 69 6e 74 20 |cimal.X |* point |
|00004e20| 61 74 20 74 68 65 20 72 | 69 67 68 74 20 6c 6f 63 |at the r|ight loc|
|00004e30| 61 74 69 6f 6e 2c 20 77 | 69 74 68 20 7a 65 72 6f |ation, w|ith zero|
|00004e40| 20 6d 65 61 6e 69 6e 67 | 20 6e 6f 20 64 65 63 69 | meaning| no deci|
|00004e50| 6d 61 6c 20 70 6f 69 6e | 74 2e 0a 58 20 2a 20 57 |mal poin|t..X * W|
|00004e60| 69 64 74 68 20 69 73 20 | 74 68 65 20 6e 75 6d 62 |idth is |the numb|
|00004e70| 65 72 20 6f 66 20 63 6f | 6c 75 6d 6e 73 20 74 6f |er of co|lumns to|
|00004e80| 20 70 72 69 6e 74 20 74 | 68 65 20 6e 75 6d 62 65 | print t|he numbe|
|00004e90| 72 20 69 6e 2c 20 69 6e | 63 6c 75 64 69 6e 67 20 |r in, in|cluding |
|00004ea0| 74 68 65 0a 58 20 2a 20 | 64 65 63 69 6d 61 6c 20 |the.X * |decimal |
|00004eb0| 70 6f 69 6e 74 20 61 6e | 64 20 73 69 67 6e 20 69 |point an|d sign i|
|00004ec0| 66 20 72 65 71 75 69 72 | 65 64 2e 20 20 49 66 20 |f requir|ed.  If |
|00004ed0| 7a 65 72 6f 2c 20 6e 6f | 20 65 78 74 72 61 20 6f |zero, no| extra o|
|00004ee0| 75 74 70 75 74 20 69 73 | 20 64 6f 6e 65 2e 0a 58 |utput is| done..X|
|00004ef0| 20 2a 20 49 66 20 70 6f | 73 69 74 69 76 65 2c 20 | * If po|sitive, |
|00004f00| 6c 65 61 64 69 6e 67 20 | 73 70 61 63 65 73 20 61 |leading |spaces a|
|00004f10| 72 65 20 74 79 70 65 64 | 20 69 66 20 6e 65 63 65 |re typed| if nece|
|00004f20| 73 73 61 72 79 2e 20 49 | 66 20 6e 65 67 61 74 69 |ssary. I|f negati|
|00004f30| 76 65 2c 20 74 72 61 69 | 6c 69 6e 67 0a 58 20 2a |ve, trai|ling.X *|
|00004f40| 20 73 70 61 63 65 73 20 | 61 72 65 20 74 79 70 65 | spaces |are type|
|00004f50| 64 20 69 66 20 6e 65 63 | 65 73 73 61 72 79 2e 20 |d if nec|essary. |
|00004f60| 20 41 73 20 65 78 61 6d | 70 6c 65 73 20 6f 66 20 | As exam|ples of |
|00004f70| 74 68 65 20 65 66 66 65 | 63 74 73 20 6f 66 20 74 |the effe|cts of t|
|00004f80| 68 65 73 65 20 76 61 6c | 75 65 73 2c 0a 58 20 2a |hese val|ues,.X *|
|00004f90| 20 28 33 34 35 2c 30 2c | 30 29 20 3d 20 22 33 34 | (345,0,|0) = "34|
|00004fa0| 35 22 2c 20 28 33 34 35 | 2c 32 2c 30 29 20 3d 20 |5", (345|,2,0) = |
|00004fb0| 22 33 2e 34 35 22 2c 20 | 28 33 34 35 2c 35 2c 38 |"3.45", |(345,5,8|
|00004fc0| 29 20 3d 20 22 20 20 2e | 30 30 33 34 35 22 2e 0a |) = "  .|00345"..|
|00004fd0| 58 20 2a 2f 0a 58 73 74 | 61 74 69 63 20 76 6f 69 |X */.Xst|atic voi|
|00004fe0| 64 0a 58 7a 70 72 69 6e | 74 76 61 6c 28 7a 2c 20 |d.Xzprin|tval(z, |
|00004ff0| 64 65 63 69 6d 61 6c 73 | 2c 20 77 69 64 74 68 29 |decimals|, width)|
|00005000| 0a 58 09 5a 56 41 4c 55 | 45 20 7a 3b 09 09 2f 2a |.X.ZVALU|E z;../*|
|00005010| 20 6e 75 6d 62 65 72 20 | 74 6f 20 62 65 20 70 72 | number |to be pr|
|00005020| 69 6e 74 65 64 20 2a 2f | 0a 58 09 6c 6f 6e 67 20 |inted */|.X.long |
|00005030| 64 65 63 69 6d 61 6c 73 | 3b 09 09 2f 2a 20 6e 75 |decimals|;../* nu|
|00005040| 6d 62 65 72 20 6f 66 20 | 64 65 63 69 6d 61 6c 20 |mber of |decimal |
|00005050| 70 6c 61 63 65 73 20 2a | 2f 0a 58 09 6c 6f 6e 67 |places *|/.X.long|
|00005060| 20 77 69 64 74 68 3b 09 | 09 2f 2a 20 6e 75 6d 62 | width;.|./* numb|
|00005070| 65 72 20 6f 66 20 63 6f | 6c 75 6d 6e 73 20 74 6f |er of co|lumns to|
|00005080| 20 70 72 69 6e 74 20 69 | 6e 20 2a 2f 0a 58 7b 0a | print i|n */.X{.|
|00005090| 58 09 69 6e 74 20 64 65 | 70 74 68 3b 09 09 2f 2a |X.int de|pth;../*|
|000050a0| 20 6d 61 78 69 6d 75 6d | 20 64 65 70 74 68 20 2a | maximum| depth *|
|000050b0| 2f 0a 58 09 69 6e 74 20 | 6e 3b 09 09 09 2f 2a 20 |/.X.int |n;.../* |
|000050c0| 63 75 72 72 65 6e 74 20 | 69 6e 64 65 78 20 69 6e |current |index in|
|000050d0| 74 6f 20 61 72 72 61 79 | 20 2a 2f 0a 58 09 69 6e |to array| */.X.in|
|000050e0| 74 20 69 3b 09 09 09 2f | 2a 20 6e 75 6d 62 65 72 |t i;.../|* number|
|000050f0| 20 74 6f 20 70 72 69 6e | 74 20 2a 2f 0a 58 09 6c | to prin|t */.X.l|
|00005100| 6f 6e 67 20 6c 65 61 64 | 73 70 61 63 65 73 3b 09 |ong lead|spaces;.|
|00005110| 2f 2a 20 6e 75 6d 62 65 | 72 20 6f 66 20 6c 65 61 |/* numbe|r of lea|
|00005120| 64 69 6e 67 20 73 70 61 | 63 65 73 20 74 6f 20 70 |ding spa|ces to p|
|00005130| 72 69 6e 74 20 2a 2f 0a | 58 09 6c 6f 6e 67 20 70 |rint */.|X.long p|
|00005140| 75 74 70 6f 69 6e 74 3b | 09 09 2f 2a 20 64 69 67 |utpoint;|../* dig|
|00005150| 69 74 73 20 75 6e 74 69 | 6c 20 70 72 69 6e 74 20 |its unti|l print |
|00005160| 64 65 63 69 6d 61 6c 20 | 70 6f 69 6e 74 20 2a 2f |decimal |point */|
|00005170| 0a 58 09 6c 6f 6e 67 20 | 64 69 67 69 74 73 3b 09 |.X.long |digits;.|
|00005180| 09 2f 2a 20 6e 75 6d 62 | 65 72 20 6f 66 20 64 69 |./* numb|er of di|
|00005190| 67 69 74 73 20 6f 66 20 | 72 61 77 20 6e 75 6d 62 |gits of |raw numb|
|000051a0| 65 72 20 2a 2f 0a 58 09 | 42 4f 4f 4c 20 6f 75 74 |er */.X.|BOOL out|
|000051b0| 70 75 74 3b 09 09 2f 2a | 20 54 52 55 45 20 69 66 |put;../*| TRUE if|
|000051c0| 20 68 61 76 65 20 6f 75 | 74 70 75 74 20 73 6f 6d | have ou|tput som|
|000051d0| 65 74 68 69 6e 67 20 2a | 2f 0a 58 09 42 4f 4f 4c |ething *|/.X.BOOL|
|000051e0| 20 6e 65 67 3b 09 09 2f | 2a 20 54 52 55 45 20 69 | neg;../|* TRUE i|
|000051f0| 66 20 6e 65 67 61 74 69 | 76 65 20 2a 2f 0a 58 09 |f negati|ve */.X.|
|00005200| 5a 56 41 4c 55 45 20 71 | 75 6f 2c 20 72 65 6d 3b |ZVALUE q|uo, rem;|
|00005210| 09 2f 2a 20 71 75 6f 74 | 69 65 6e 74 20 61 6e 64 |./* quot|ient and|
|00005220| 20 72 65 6d 61 69 6e 64 | 65 72 20 2a 2f 0a 58 09 | remaind|er */.X.|
|00005230| 5a 56 41 4c 55 45 20 6c | 65 66 74 6e 75 6d 73 5b |ZVALUE l|eftnums[|
|00005240| 33 32 5d 3b 09 2f 2a 20 | 6c 65 66 74 20 70 61 72 |32];./* |left par|
|00005250| 74 73 20 6f 66 20 74 68 | 65 20 6e 75 6d 62 65 72 |ts of th|e number|
|00005260| 20 2a 2f 0a 58 09 5a 56 | 41 4c 55 45 20 72 69 67 | */.X.ZV|ALUE rig|
|00005270| 68 74 6e 75 6d 73 5b 33 | 32 5d 3b 09 2f 2a 20 72 |htnums[3|2];./* r|
|00005280| 69 67 68 74 20 70 61 72 | 74 73 20 6f 66 20 74 68 |ight par|ts of th|
|00005290| 65 20 6e 75 6d 62 65 72 | 20 2a 2f 0a 58 0a 58 09 |e number| */.X.X.|
|000052a0| 69 66 20 28 64 65 63 69 | 6d 61 6c 73 20 3c 20 30 |if (deci|mals < 0|
|000052b0| 29 0a 58 09 09 64 65 63 | 69 6d 61 6c 73 20 3d 20 |).X..dec|imals = |
|000052c0| 30 3b 0a 58 09 69 66 20 | 28 77 69 64 74 68 20 3c |0;.X.if |(width <|
|000052d0| 20 30 29 0a 58 09 09 77 | 69 64 74 68 20 3d 20 30 | 0).X..w|idth = 0|
|000052e0| 3b 0a 58 09 6e 65 67 20 | 3d 20 28 7a 2e 73 69 67 |;.X.neg |= (z.sig|
|000052f0| 6e 20 21 3d 20 30 29 3b | 0a 58 0a 58 09 6c 65 61 |n != 0);|.X.X.lea|
|00005300| 64 73 70 61 63 65 73 20 | 3d 20 77 69 64 74 68 20 |dspaces |= width |
|00005310| 2d 20 6e 65 67 20 2d 20 | 28 64 65 63 69 6d 61 6c |- neg - |(decimal|
|00005320| 73 20 3e 20 30 29 3b 0a | 58 09 7a 2e 73 69 67 6e |s > 0);.|X.z.sign|
|00005330| 20 3d 20 30 3b 0a 58 09 | 2f 2a 0a 58 09 20 2a 20 | = 0;.X.|/*.X. * |
|00005340| 46 69 6e 64 20 74 68 65 | 20 32 5e 4e 20 70 6f 77 |Find the| 2^N pow|
|00005350| 65 72 20 6f 66 20 74 65 | 6e 20 77 68 69 63 68 20 |er of te|n which |
|00005360| 69 73 20 67 72 65 61 74 | 65 72 20 74 68 61 6e 20 |is great|er than |
|00005370| 6f 72 20 65 71 75 61 6c | 0a 58 09 20 2a 20 74 6f |or equal|.X. * to|
|00005380| 20 74 68 65 20 6e 75 6d | 62 65 72 2c 20 63 61 6c | the num|ber, cal|
|00005390| 63 75 6c 61 74 69 6e 67 | 20 69 74 20 74 68 65 20 |culating| it the |
|000053a0| 66 69 72 73 74 20 74 69 | 6d 65 20 69 66 20 6e 65 |first ti|me if ne|
|000053b0| 63 65 73 73 61 72 79 2e | 0a 58 09 20 2a 2f 0a 58 |cessary.|.X. */.X|
|000053c0| 09 5f 74 65 6e 70 6f 77 | 65 72 73 5f 5b 30 5d 20 |._tenpow|ers_[0] |
|000053d0| 3d 20 5f 74 65 6e 5f 3b | 0a 58 09 64 65 70 74 68 |= _ten_;|.X.depth|
|000053e0| 20 3d 20 30 3b 0a 58 09 | 77 68 69 6c 65 20 28 28 | = 0;.X.|while ((|
|000053f0| 5f 74 65 6e 70 6f 77 65 | 72 73 5f 5b 64 65 70 74 |_tenpowe|rs_[dept|
|00005400| 68 5d 2e 6c 65 6e 20 3c | 20 7a 2e 6c 65 6e 29 20 |h].len <| z.len) |
|00005410| 7c 7c 20 28 7a 72 65 6c | 28 5f 74 65 6e 70 6f 77 ||| (zrel|(_tenpow|
|00005420| 65 72 73 5f 5b 64 65 70 | 74 68 5d 2c 20 7a 29 20 |ers_[dep|th], z) |
|00005430| 3c 3d 20 30 29 29 20 7b | 0a 58 09 09 64 65 70 74 |<= 0)) {|.X..dept|
|00005440| 68 2b 2b 3b 0a 58 09 09 | 69 66 20 28 5f 74 65 6e |h++;.X..|if (_ten|
|00005450| 70 6f 77 65 72 73 5f 5b | 64 65 70 74 68 5d 2e 6c |powers_[|depth].l|
|00005460| 65 6e 20 3d 3d 20 30 29 | 0a 58 09 09 09 7a 73 71 |en == 0)|.X...zsq|
|00005470| 75 61 72 65 28 5f 74 65 | 6e 70 6f 77 65 72 73 5f |uare(_te|npowers_|
|00005480| 5b 64 65 70 74 68 2d 31 | 5d 2c 20 26 5f 74 65 6e |[depth-1|], &_ten|
|00005490| 70 6f 77 65 72 73 5f 5b | 64 65 70 74 68 5d 29 3b |powers_[|depth]);|
|000054a0| 0a 58 09 7d 0a 58 09 2f | 2a 0a 58 09 20 2a 20 44 |.X.}.X./|*.X. * D|
|000054b0| 69 76 69 64 65 20 62 79 | 20 73 6d 61 6c 6c 65 72 |ivide by| smaller|
|000054c0| 20 32 5e 4e 20 70 6f 77 | 65 72 73 20 6f 66 20 74 | 2^N pow|ers of t|
|000054d0| 65 6e 20 75 6e 74 69 6c | 20 74 68 65 20 70 61 72 |en until| the par|
|000054e0| 74 73 20 61 72 65 20 73 | 6d 61 6c 6c 0a 58 09 20 |ts are s|mall.X. |
|000054f0| 2a 20 65 6e 6f 75 67 68 | 20 74 6f 20 6f 75 74 70 |* enough| to outp|
|00005500| 75 74 2e 20 20 54 68 69 | 73 20 61 6c 67 6f 72 69 |ut.  Thi|s algori|
|00005510| 74 68 6d 20 77 61 6c 6b | 73 20 74 68 72 6f 75 67 |thm walk|s throug|
|00005520| 68 20 61 20 62 69 6e 61 | 72 79 20 74 72 65 65 0a |h a bina|ry tree.|
|00005530| 58 09 20 2a 20 77 68 65 | 72 65 20 65 61 63 68 20 |X. * whe|re each |
|00005540| 6e 6f 64 65 20 69 73 20 | 61 20 70 69 65 63 65 20 |node is |a piece |
|00005550| 6f 66 20 74 68 65 20 6e | 75 6d 62 65 72 20 74 6f |of the n|umber to|
|00005560| 20 70 72 69 6e 74 2c 20 | 61 6e 64 20 73 75 63 68 | print, |and such|
|00005570| 20 74 68 61 74 0a 58 09 | 20 2a 20 77 65 20 76 69 | that.X.| * we vi|
|00005580| 73 69 74 20 6c 65 66 74 | 20 6e 6f 64 65 73 20 66 |sit left| nodes f|
|00005590| 69 72 73 74 2e 20 20 57 | 65 20 64 6f 20 74 68 65 |irst.  W|e do the|
|000055a0| 20 6e 65 65 64 65 64 20 | 72 65 63 75 72 73 69 6f | needed |recursio|
|000055b0| 6e 20 69 6e 20 6c 69 6e | 65 2e 0a 58 09 20 2a 2f |n in lin|e..X. */|
|000055c0| 0a 58 09 64 69 67 69 74 | 73 20 3d 20 31 3b 0a 58 |.X.digit|s = 1;.X|
|000055d0| 09 6f 75 74 70 75 74 20 | 3d 20 46 41 4c 53 45 3b |.output |= FALSE;|
|000055e0| 0a 58 09 6e 20 3d 20 30 | 3b 0a 58 09 70 75 74 70 |.X.n = 0|;.X.putp|
|000055f0| 6f 69 6e 74 20 3d 20 30 | 3b 0a 58 09 72 69 67 68 |oint = 0|;.X.righ|
|00005600| 74 6e 75 6d 73 5b 30 5d | 2e 6c 65 6e 20 3d 20 30 |tnums[0]|.len = 0|
|00005610| 3b 0a 58 09 6c 65 66 74 | 6e 75 6d 73 5b 30 5d 20 |;.X.left|nums[0] |
|00005620| 3d 20 7a 3b 0a 58 09 66 | 6f 72 20 28 3b 3b 29 20 |= z;.X.f|or (;;) |
|00005630| 7b 0a 58 09 09 77 68 69 | 6c 65 20 28 6e 20 3c 20 |{.X..whi|le (n < |
|00005640| 64 65 70 74 68 29 20 7b | 0a 58 09 09 09 69 20 3d |depth) {|.X...i =|
|00005650| 20 64 65 70 74 68 20 2d | 20 6e 20 2d 20 31 3b 0a | depth -| n - 1;.|
|00005660| 58 09 09 09 7a 64 69 76 | 28 6c 65 66 74 6e 75 6d |X...zdiv|(leftnum|
|00005670| 73 5b 6e 5d 2c 20 5f 74 | 65 6e 70 6f 77 65 72 73 |s[n], _t|enpowers|
|00005680| 5f 5b 69 5d 2c 20 26 71 | 75 6f 2c 20 26 72 65 6d |_[i], &q|uo, &rem|
|00005690| 29 3b 0a 58 09 09 09 69 | 66 20 28 21 69 73 7a 65 |);.X...i|f (!isze|
|000056a0| 72 6f 28 71 75 6f 29 29 | 0a 58 09 09 09 09 64 69 |ro(quo))|.X....di|
|000056b0| 67 69 74 73 20 2b 3d 20 | 28 31 4c 20 3c 3c 20 69 |gits += |(1L << i|
|000056c0| 29 3b 0a 58 09 09 09 6e | 2b 2b 3b 0a 58 09 09 09 |);.X...n|++;.X...|
|000056d0| 6c 65 66 74 6e 75 6d 73 | 5b 6e 5d 20 3d 20 71 75 |leftnums|[n] = qu|
|000056e0| 6f 3b 0a 58 09 09 09 72 | 69 67 68 74 6e 75 6d 73 |o;.X...r|ightnums|
|000056f0| 5b 6e 5d 20 3d 20 72 65 | 6d 3b 0a 58 09 09 7d 0a |[n] = re|m;.X..}.|
|00005700| 58 09 09 69 20 3d 20 6c | 65 66 74 6e 75 6d 73 5b |X..i = l|eftnums[|
|00005710| 6e 5d 2e 76 5b 30 5d 3b | 0a 58 09 09 69 66 20 28 |n].v[0];|.X..if (|
|00005720| 6f 75 74 70 75 74 20 7c | 7c 20 69 20 7c 7c 20 28 |output ||| i || (|
|00005730| 6e 20 3d 3d 20 30 29 29 | 20 7b 0a 58 09 09 09 69 |n == 0))| {.X...i|
|00005740| 66 20 28 21 6f 75 74 70 | 75 74 29 20 7b 0a 58 09 |f (!outp|ut) {.X.|
|00005750| 09 09 09 6f 75 74 70 75 | 74 20 3d 20 54 52 55 45 |...outpu|t = TRUE|
|00005760| 3b 0a 58 09 09 09 09 69 | 66 20 28 64 65 63 69 6d |;.X....i|f (decim|
|00005770| 61 6c 73 20 3e 20 64 69 | 67 69 74 73 29 0a 58 09 |als > di|gits).X.|
|00005780| 09 09 09 09 6c 65 61 64 | 73 70 61 63 65 73 20 2d |....lead|spaces -|
|00005790| 3d 20 64 65 63 69 6d 61 | 6c 73 3b 0a 58 09 09 09 |= decima|ls;.X...|
|000057a0| 09 65 6c 73 65 0a 58 09 | 09 09 09 09 6c 65 61 64 |.else.X.|....lead|
|000057b0| 73 70 61 63 65 73 20 2d | 3d 20 64 69 67 69 74 73 |spaces -|= digits|
|000057c0| 3b 0a 58 09 09 09 09 77 | 68 69 6c 65 20 28 2d 2d |;.X....w|hile (--|
|000057d0| 6c 65 61 64 73 70 61 63 | 65 73 20 3e 3d 20 30 29 |leadspac|es >= 0)|
|000057e0| 0a 58 09 09 09 09 09 50 | 55 54 43 48 41 52 28 27 |.X.....P|UTCHAR('|
|000057f0| 20 27 29 3b 0a 58 09 09 | 09 09 69 66 20 28 6e 65 | ');.X..|..if (ne|
|00005800| 67 29 0a 58 09 09 09 09 | 09 50 55 54 43 48 41 52 |g).X....|.PUTCHAR|
|00005810| 28 27 2d 27 29 3b 0a 58 | 09 09 09 09 69 66 20 28 |('-');.X|....if (|
|00005820| 64 65 63 69 6d 61 6c 73 | 29 20 7b 0a 58 09 09 09 |decimals|) {.X...|
|00005830| 09 09 70 75 74 70 6f 69 | 6e 74 20 3d 20 28 64 69 |..putpoi|nt = (di|
|00005840| 67 69 74 73 20 2d 20 64 | 65 63 69 6d 61 6c 73 29 |gits - d|ecimals)|
|00005850| 3b 0a 58 09 09 09 09 09 | 69 66 20 28 70 75 74 70 |;.X.....|if (putp|
|00005860| 6f 69 6e 74 20 3c 3d 20 | 30 29 20 7b 0a 58 09 09 |oint <= |0) {.X..|
|00005870| 09 09 09 09 50 55 54 43 | 48 41 52 28 27 2e 27 29 |....PUTC|HAR('.')|
|00005880| 3b 0a 58 09 09 09 09 09 | 09 77 68 69 6c 65 20 28 |;.X.....|.while (|
|00005890| 2b 2b 70 75 74 70 6f 69 | 6e 74 20 3c 3d 20 30 29 |++putpoi|nt <= 0)|
|000058a0| 0a 58 09 09 09 09 09 09 | 09 50 55 54 43 48 41 52 |.X......|.PUTCHAR|
|000058b0| 28 27 30 27 29 3b 0a 58 | 09 09 09 09 09 09 70 75 |('0');.X|......pu|
|000058c0| 74 70 6f 69 6e 74 20 3d | 20 30 3b 0a 58 09 09 09 |tpoint =| 0;.X...|
|000058d0| 09 09 7d 0a 58 09 09 09 | 09 7d 0a 58 09 09 09 7d |..}.X...|.}.X...}|
|000058e0| 0a 58 09 09 09 69 20 2b | 3d 20 27 30 27 3b 0a 58 |.X...i +|= '0';.X|
|000058f0| 09 09 09 50 55 54 43 48 | 41 52 28 69 29 3b 0a 58 |...PUTCH|AR(i);.X|
|00005900| 09 09 09 69 66 20 28 2d | 2d 70 75 74 70 6f 69 6e |...if (-|-putpoin|
|00005910| 74 20 3d 3d 20 30 29 0a | 58 09 09 09 09 50 55 54 |t == 0).|X....PUT|
|00005920| 43 48 41 52 28 27 2e 27 | 29 3b 0a 58 09 09 7d 0a |CHAR('.'|);.X..}.|
|00005930| 58 09 09 77 68 69 6c 65 | 20 28 72 69 67 68 74 6e |X..while| (rightn|
|00005940| 75 6d 73 5b 6e 5d 2e 6c | 65 6e 20 3d 3d 20 30 29 |ums[n].l|en == 0)|
|00005950| 20 7b 0a 58 09 09 09 69 | 66 20 28 6e 20 3c 3d 20 | {.X...i|f (n <= |
|00005960| 30 29 0a 58 09 09 09 09 | 72 65 74 75 72 6e 3b 0a |0).X....|return;.|
|00005970| 58 09 09 09 69 66 20 28 | 6c 65 66 74 6e 75 6d 73 |X...if (|leftnums|
|00005980| 5b 6e 5d 2e 6c 65 6e 29 | 0a 58 09 09 09 09 66 72 |[n].len)|.X....fr|
|00005990| 65 65 68 28 6c 65 66 74 | 6e 75 6d 73 5b 6e 5d 2e |eeh(left|nums[n].|
|000059a0| 76 29 3b 0a 58 09 09 09 | 6e 2d 2d 3b 0a 58 09 09 |v);.X...|n--;.X..|
|000059b0| 7d 0a 58 09 09 66 72 65 | 65 68 28 6c 65 66 74 6e |}.X..fre|eh(leftn|
|000059c0| 75 6d 73 5b 6e 5d 2e 76 | 29 3b 0a 58 09 09 6c 65 |ums[n].v|);.X..le|
|000059d0| 66 74 6e 75 6d 73 5b 6e | 5d 20 3d 20 72 69 67 68 |ftnums[n|] = righ|
|000059e0| 74 6e 75 6d 73 5b 6e 5d | 3b 0a 58 09 09 72 69 67 |tnums[n]|;.X..rig|
|000059f0| 68 74 6e 75 6d 73 5b 6e | 5d 2e 6c 65 6e 20 3d 20 |htnums[n|].len = |
|00005a00| 30 3b 0a 58 09 7d 0a 58 | 7d 0a 58 0a 58 0a 58 2f |0;.X.}.X|}.X.X.X/|
|00005a10| 2a 0a 58 20 2a 20 43 6f | 6e 76 65 72 74 20 61 20 |*.X * Co|nvert a |
|00005a20| 73 74 72 69 6e 67 20 74 | 6f 20 61 20 6e 75 6d 62 |string t|o a numb|
|00005a30| 65 72 20 69 6e 20 72 61 | 74 69 6f 6e 61 6c 2c 20 |er in ra|tional, |
|00005a40| 66 6c 6f 61 74 69 6e 67 | 20 70 6f 69 6e 74 2c 0a |floating| point,.|
|00005a50| 58 20 2a 20 65 78 70 6f | 6e 65 6e 74 69 61 6c 20 |X * expo|nential |
|00005a60| 6e 6f 74 61 74 69 6f 6e | 2c 20 68 65 78 2c 20 6f |notation|, hex, o|
|00005a70| 72 20 6f 63 74 61 6c 2e | 0a 58 20 2a 09 71 20 3d |r octal.|.X *.q =|
|00005a80| 20 61 74 6f 71 28 73 74 | 72 69 6e 67 29 3b 0a 58 | atoq(st|ring);.X|
|00005a90| 20 2a 2f 0a 58 4e 55 4d | 42 45 52 20 2a 0a 58 61 | */.XNUM|BER *.Xa|
|00005aa0| 74 6f 71 28 73 29 0a 58 | 09 72 65 67 69 73 74 65 |toq(s).X|.registe|
|00005ab0| 72 20 63 68 61 72 20 2a | 73 3b 0a 58 7b 0a 58 09 |r char *|s;.X{.X.|
|00005ac0| 72 65 67 69 73 74 65 72 | 20 4e 55 4d 42 45 52 20 |register| NUMBER |
|00005ad0| 2a 71 3b 0a 58 09 72 65 | 67 69 73 74 65 72 20 63 |*q;.X.re|gister c|
|00005ae0| 68 61 72 20 2a 74 3b 0a | 58 09 5a 56 41 4c 55 45 |har *t;.|X.ZVALUE|
|00005af0| 20 64 69 76 2c 20 6e 65 | 77 6e 75 6d 2c 20 6e 65 | div, ne|wnum, ne|
|00005b00| 77 64 65 6e 2c 20 74 6d | 70 3b 0a 58 09 6c 6f 6e |wden, tm|p;.X.lon|
|00005b10| 67 20 64 65 63 69 6d 61 | 6c 73 2c 20 65 78 70 3b |g decima|ls, exp;|
|00005b20| 0a 58 09 42 4f 4f 4c 20 | 68 65 78 2c 20 6e 65 67 |.X.BOOL |hex, neg|
|00005b30| 65 78 70 3b 0a 58 0a 58 | 09 71 20 3d 20 71 61 6c |exp;.X.X|.q = qal|
|00005b40| 6c 6f 63 28 29 3b 0a 58 | 09 64 65 63 69 6d 61 6c |loc();.X|.decimal|
|00005b50| 73 20 3d 20 30 3b 0a 58 | 09 65 78 70 20 3d 20 30 |s = 0;.X|.exp = 0|
|00005b60| 3b 0a 58 09 6e 65 67 65 | 78 70 20 3d 20 46 41 4c |;.X.nege|xp = FAL|
|00005b70| 53 45 3b 0a 58 09 68 65 | 78 20 3d 20 46 41 4c 53 |SE;.X.he|x = FALS|
|00005b80| 45 3b 0a 58 09 74 20 3d | 20 73 3b 0a 58 09 69 66 |E;.X.t =| s;.X.if|
|00005b90| 20 28 28 2a 74 20 3d 3d | 20 27 2b 27 29 20 7c 7c | ((*t ==| '+') |||
|00005ba0| 20 28 2a 74 20 3d 3d 20 | 27 2d 27 29 29 0a 58 09 | (*t == |'-')).X.|
|00005bb0| 09 74 2b 2b 3b 0a 58 09 | 69 66 20 28 28 2a 74 20 |.t++;.X.|if ((*t |
|00005bc0| 3d 3d 20 27 30 27 29 20 | 26 26 20 28 28 74 5b 31 |== '0') |&& ((t[1|
|00005bd0| 5d 20 3d 3d 20 27 78 27 | 29 20 7c 7c 20 28 74 5b |] == 'x'|) || (t[|
|00005be0| 31 5d 20 3d 3d 20 27 58 | 27 29 29 29 20 7b 0a 58 |1] == 'X|'))) {.X|
|00005bf0| 09 09 68 65 78 20 3d 20 | 54 52 55 45 3b 0a 58 09 |..hex = |TRUE;.X.|
|00005c00| 09 74 20 2b 3d 20 32 3b | 0a 58 09 7d 0a 58 09 77 |.t += 2;|.X.}.X.w|
|00005c10| 68 69 6c 65 20 28 28 28 | 2a 74 20 3e 3d 20 27 30 |hile (((|*t >= '0|
|00005c20| 27 29 20 26 26 20 28 2a | 74 20 3c 3d 20 27 39 27 |') && (*|t <= '9'|
|00005c30| 29 29 20 7c 7c 20 28 68 | 65 78 20 26 26 0a 58 09 |)) || (h|ex &&.X.|
|00005c40| 09 28 28 28 2a 74 20 3e | 3d 20 27 61 27 29 20 26 |.(((*t >|= 'a') &|
|00005c50| 26 20 28 2a 74 20 3c 3d | 20 27 66 27 29 29 20 7c |& (*t <=| 'f')) ||
|00005c60| 7c 20 28 28 2a 74 20 3e | 3d 20 27 41 27 29 20 26 || ((*t >|= 'A') &|
|00005c70| 26 20 28 2a 74 20 3c 3d | 20 27 46 27 29 29 29 29 |& (*t <=| 'F'))))|
|00005c80| 29 0a 58 09 09 09 74 2b | 2b 3b 0a 58 09 69 66 20 |).X...t+|+;.X.if |
|00005c90| 28 2a 74 20 3d 3d 20 27 | 2f 27 29 20 7b 0a 58 09 |(*t == '|/') {.X.|
|00005ca0| 09 74 2b 2b 3b 0a 58 09 | 09 61 74 6f 7a 28 74 2c |.t++;.X.|.atoz(t,|
|00005cb0| 20 26 71 2d 3e 64 65 6e | 29 3b 0a 58 09 7d 20 65 | &q->den|);.X.} e|
|00005cc0| 6c 73 65 20 69 66 20 28 | 28 2a 74 20 3d 3d 20 27 |lse if (|(*t == '|
|00005cd0| 2e 27 29 20 7c 7c 20 28 | 2a 74 20 3d 3d 20 27 65 |.') || (|*t == 'e|
|00005ce0| 27 29 20 7c 7c 20 28 2a | 74 20 3d 3d 20 27 45 27 |') || (*|t == 'E'|
|00005cf0| 29 29 20 7b 0a 58 09 09 | 69 66 20 28 2a 74 20 3d |)) {.X..|if (*t =|
|00005d00| 3d 20 27 2e 27 29 20 7b | 0a 58 09 09 09 74 2b 2b |= '.') {|.X...t++|
|00005d10| 3b 0a 58 09 09 09 77 68 | 69 6c 65 20 28 28 2a 74 |;.X...wh|ile ((*t|
|00005d20| 20 3e 3d 20 27 30 27 29 | 20 26 26 20 28 2a 74 20 | >= '0')| && (*t |
|00005d30| 3c 3d 20 27 39 27 29 29 | 20 7b 0a 58 09 09 09 09 |<= '9'))| {.X....|
|00005d40| 74 2b 2b 3b 0a 58 09 09 | 09 09 64 65 63 69 6d 61 |t++;.X..|..decima|
|00005d50| 6c 73 2b 2b 3b 0a 58 09 | 09 09 7d 0a 58 09 09 7d |ls++;.X.|..}.X..}|
|00005d60| 0a 58 09 09 2f 2a 0a 58 | 09 09 20 2a 20 50 61 72 |.X../*.X|.. * Par|
|00005d70| 73 65 20 65 78 70 6f 6e | 65 6e 74 20 69 66 20 61 |se expon|ent if a|
|00005d80| 6e 79 0a 58 09 09 20 2a | 2f 0a 58 09 09 69 66 20 |ny.X.. *|/.X..if |
|00005d90| 28 28 2a 74 20 3d 3d 20 | 27 65 27 29 20 7c 7c 20 |((*t == |'e') || |
|00005da0| 28 2a 74 20 3d 3d 20 27 | 45 27 29 29 20 7b 0a 58 |(*t == '|E')) {.X|
|00005db0| 09 09 09 74 2b 2b 3b 0a | 58 09 09 09 69 66 20 28 |...t++;.|X...if (|
|00005dc0| 2a 74 20 3d 3d 20 27 2b | 27 29 0a 58 09 09 09 09 |*t == '+|').X....|
|00005dd0| 74 2b 2b 3b 0a 58 09 09 | 09 65 6c 73 65 20 69 66 |t++;.X..|.else if|
|00005de0| 20 28 2a 74 20 3d 3d 20 | 27 2d 27 29 20 7b 0a 58 | (*t == |'-') {.X|
|00005df0| 09 09 09 09 6e 65 67 65 | 78 70 20 3d 20 54 52 55 |....nege|xp = TRU|
|00005e00| 45 3b 0a 58 09 09 09 09 | 74 2b 2b 3b 0a 58 09 09 |E;.X....|t++;.X..|
|00005e10| 09 7d 0a 58 09 09 09 77 | 68 69 6c 65 20 28 28 2a |.}.X...w|hile ((*|
|00005e20| 74 20 3e 3d 20 27 30 27 | 29 20 26 26 20 28 2a 74 |t >= '0'|) && (*t|
|00005e30| 20 3c 3d 20 27 39 27 29 | 29 20 7b 0a 58 09 09 09 | <= '9')|) {.X...|
|00005e40| 09 65 78 70 20 3d 20 28 | 65 78 70 20 2a 20 31 30 |.exp = (|exp * 10|
|00005e50| 29 20 2b 20 2a 74 2b 2b | 20 2d 20 27 30 27 3b 0a |) + *t++| - '0';.|
|00005e60| 58 09 09 09 09 69 66 20 | 28 65 78 70 20 3e 20 31 |X....if |(exp > 1|
|00005e70| 30 30 30 30 30 30 29 0a | 58 09 09 09 09 09 65 72 |000000).|X.....er|
|00005e80| 72 6f 72 28 22 45 78 70 | 6f 6e 65 6e 74 20 74 6f |ror("Exp|onent to|
|00005e90| 6f 20 6c 61 72 67 65 22 | 29 3b 0a 58 09 09 09 7d |o large"|);.X...}|
|00005ea0| 0a 58 09 09 7d 0a 58 09 | 09 7a 74 65 6e 70 6f 77 |.X..}.X.|.ztenpow|
|00005eb0| 28 64 65 63 69 6d 61 6c | 73 2c 20 26 71 2d 3e 64 |(decimal|s, &q->d|
|00005ec0| 65 6e 29 3b 0a 58 09 7d | 0a 58 09 61 74 6f 7a 28 |en);.X.}|.X.atoz(|
|00005ed0| 73 2c 20 26 71 2d 3e 6e | 75 6d 29 3b 0a 58 09 69 |s, &q->n|um);.X.i|
|00005ee0| 66 20 28 71 69 73 7a 65 | 72 6f 28 71 29 29 20 7b |f (qisze|ro(q)) {|
|00005ef0| 0a 58 09 09 71 66 72 65 | 65 28 71 29 3b 0a 58 09 |.X..qfre|e(q);.X.|
|00005f00| 09 72 65 74 75 72 6e 20 | 71 6c 69 6e 6b 28 26 5f |.return |qlink(&_|
|00005f10| 71 7a 65 72 6f 5f 29 3b | 0a 58 09 7d 0a 58 09 2f |qzero_);|.X.}.X./|
|00005f20| 2a 0a 58 09 20 2a 20 41 | 70 70 6c 79 20 74 68 65 |*.X. * A|pply the|
|00005f30| 20 65 78 70 6f 6e 65 6e | 74 69 61 6c 20 69 66 20 | exponen|tial if |
|00005f40| 61 6e 79 0a 58 09 20 2a | 2f 0a 58 09 69 66 20 28 |any.X. *|/.X.if (|
|00005f50| 65 78 70 29 20 7b 0a 58 | 09 09 7a 74 65 6e 70 6f |exp) {.X|..ztenpo|
|00005f60| 77 28 65 78 70 2c 20 26 | 74 6d 70 29 3b 0a 58 09 |w(exp, &|tmp);.X.|
|00005f70| 09 69 66 20 28 6e 65 67 | 65 78 70 29 20 7b 0a 58 |.if (neg|exp) {.X|
|00005f80| 09 09 09 7a 6d 75 6c 28 | 71 2d 3e 64 65 6e 2c 20 |...zmul(|q->den, |
|00005f90| 74 6d 70 2c 20 26 6e 65 | 77 64 65 6e 29 3b 0a 58 |tmp, &ne|wden);.X|
|00005fa0| 09 09 09 66 72 65 65 68 | 28 71 2d 3e 64 65 6e 2e |...freeh|(q->den.|
|00005fb0| 76 29 3b 0a 58 09 09 09 | 71 2d 3e 64 65 6e 20 3d |v);.X...|q->den =|
|00005fc0| 20 6e 65 77 64 65 6e 3b | 0a 58 09 09 7d 20 65 6c | newden;|.X..} el|
|00005fd0| 73 65 20 7b 0a 58 09 09 | 09 7a 6d 75 6c 28 71 2d |se {.X..|.zmul(q-|
|00005fe0| 3e 6e 75 6d 2c 20 74 6d | 70 2c 20 26 6e 65 77 6e |>num, tm|p, &newn|
|00005ff0| 75 6d 29 3b 0a 58 09 09 | 09 66 72 65 65 68 28 71 |um);.X..|.freeh(q|
|00006000| 2d 3e 6e 75 6d 2e 76 29 | 3b 0a 58 09 09 09 71 2d |->num.v)|;.X...q-|
|00006010| 3e 6e 75 6d 20 3d 20 6e | 65 77 6e 75 6d 3b 0a 58 |>num = n|ewnum;.X|
|00006020| 09 09 7d 0a 58 09 09 66 | 72 65 65 68 28 74 6d 70 |..}.X..f|reeh(tmp|
|00006030| 2e 76 29 3b 0a 58 09 7d | 0a 58 09 2f 2a 0a 58 09 |.v);.X.}|.X./*.X.|
|00006040| 20 2a 20 52 65 64 75 63 | 65 20 74 68 65 20 66 72 | * Reduc|e the fr|
|00006050| 61 63 74 69 6f 6e 20 74 | 6f 20 6c 6f 77 65 73 74 |action t|o lowest|
|00006060| 20 74 65 72 6d 73 0a 58 | 09 20 2a 2f 0a 58 09 69 | terms.X|. */.X.i|
|00006070| 66 20 28 69 73 75 6e 69 | 74 28 71 2d 3e 6e 75 6d |f (isuni|t(q->num|
|00006080| 29 20 7c 7c 20 69 73 75 | 6e 69 74 28 71 2d 3e 64 |) || isu|nit(q->d|
|00006090| 65 6e 29 29 0a 58 09 09 | 72 65 74 75 72 6e 20 71 |en)).X..|return q|
|000060a0| 3b 0a 58 09 7a 67 63 64 | 28 71 2d 3e 6e 75 6d 2c |;.X.zgcd|(q->num,|
|000060b0| 20 71 2d 3e 64 65 6e 2c | 20 26 64 69 76 29 3b 0a | q->den,| &div);.|
|000060c0| 58 09 69 66 20 28 69 73 | 75 6e 69 74 28 64 69 76 |X.if (is|unit(div|
|000060d0| 29 29 0a 58 09 09 72 65 | 74 75 72 6e 20 71 3b 0a |)).X..re|turn q;.|
|000060e0| 58 09 7a 71 75 6f 28 71 | 2d 3e 6e 75 6d 2c 20 64 |X.zquo(q|->num, d|
|000060f0| 69 76 2c 20 26 6e 65 77 | 6e 75 6d 29 3b 0a 58 09 |iv, &new|num);.X.|
|00006100| 66 72 65 65 68 28 71 2d | 3e 6e 75 6d 2e 76 29 3b |freeh(q-|>num.v);|
|00006110| 0a 58 09 7a 71 75 6f 28 | 71 2d 3e 64 65 6e 2c 20 |.X.zquo(|q->den, |
|00006120| 64 69 76 2c 20 26 6e 65 | 77 64 65 6e 29 3b 0a 58 |div, &ne|wden);.X|
|00006130| 09 66 72 65 65 68 28 71 | 2d 3e 64 65 6e 2e 76 29 |.freeh(q|->den.v)|
|00006140| 3b 0a 58 09 71 2d 3e 6e | 75 6d 20 3d 20 6e 65 77 |;.X.q->n|um = new|
|00006150| 6e 75 6d 3b 0a 58 09 71 | 2d 3e 64 65 6e 20 3d 20 |num;.X.q|->den = |
|00006160| 6e 65 77 64 65 6e 3b 0a | 58 09 72 65 74 75 72 6e |newden;.|X.return|
|00006170| 20 71 3b 0a 58 7d 0a 58 | 0a 58 0a 58 2f 2a 0a 58 | q;.X}.X|.X.X/*.X|
|00006180| 20 2a 20 52 65 61 64 20 | 61 6e 20 69 6e 74 65 67 | * Read |an integ|
|00006190| 65 72 20 76 61 6c 75 65 | 20 69 6e 20 64 65 63 69 |er value| in deci|
|000061a0| 6d 61 6c 2c 20 68 65 78 | 2c 20 6f 63 74 61 6c 2c |mal, hex|, octal,|
|000061b0| 20 6f 72 20 62 69 6e 61 | 72 79 2e 0a 58 20 2a 20 | or bina|ry..X * |
|000061c0| 48 65 78 20 6e 75 6d 62 | 65 72 73 20 61 72 65 20 |Hex numb|ers are |
|000061d0| 69 6e 64 69 63 61 74 65 | 64 20 62 79 20 61 20 6c |indicate|d by a l|
|000061e0| 65 61 64 69 6e 67 20 22 | 30 78 22 2c 20 62 69 6e |eading "|0x", bin|
|000061f0| 61 72 79 20 77 69 74 68 | 20 61 20 6c 65 61 64 69 |ary with| a leadi|
|00006200| 6e 67 20 22 30 62 22 2c | 0a 58 20 2a 20 61 6e 64 |ng "0b",|.X * and|
|00006210| 20 6f 63 74 61 6c 20 62 | 79 20 61 20 6c 65 61 64 | octal b|y a lead|
|00006220| 69 6e 67 20 22 30 22 2e | 20 20 50 65 72 69 6f 64 |ing "0".|  Period|
|00006230| 73 20 61 72 65 20 73 6b | 69 70 70 65 64 20 6f 76 |s are sk|ipped ov|
|00006240| 65 72 2c 20 62 75 74 20 | 61 6e 79 20 6f 74 68 65 |er, but |any othe|
|00006250| 72 0a 58 20 2a 20 65 78 | 74 72 61 6e 65 6f 75 73 |r.X * ex|traneous|
|00006260| 20 63 68 61 72 61 63 74 | 65 72 20 73 74 6f 70 73 | charact|er stops|
|00006270| 20 74 68 65 20 73 63 61 | 6e 2e 0a 58 20 2a 2f 0a | the sca|n..X */.|
|00006280| 58 73 74 61 74 69 63 20 | 76 6f 69 64 0a 58 61 74 |Xstatic |void.Xat|
|00006290| 6f 7a 28 73 2c 20 72 65 | 73 29 0a 58 09 72 65 67 |oz(s, re|s).X.reg|
|000062a0| 69 73 74 65 72 20 63 68 | 61 72 20 2a 73 3b 0a 58 |ister ch|ar *s;.X|
|000062b0| 09 5a 56 41 4c 55 45 20 | 2a 72 65 73 3b 0a 58 7b |.ZVALUE |*res;.X{|
|000062c0| 0a 58 09 5a 56 41 4c 55 | 45 20 7a 2c 20 7a 74 6d |.X.ZVALU|E z, ztm|
|000062d0| 70 2c 20 64 69 67 69 74 | 3b 0a 58 09 48 41 4c 46 |p, digit|;.X.HALF|
|000062e0| 20 64 69 67 76 61 6c 3b | 0a 58 09 42 4f 4f 4c 20 | digval;|.X.BOOL |
|000062f0| 6d 69 6e 75 73 3b 0a 58 | 09 6c 6f 6e 67 20 73 68 |minus;.X|.long sh|
|00006300| 69 66 74 3b 0a 58 0a 58 | 09 6d 69 6e 75 73 20 3d |ift;.X.X|.minus =|
|00006310| 20 46 41 4c 53 45 3b 0a | 58 09 73 68 69 66 74 20 | FALSE;.|X.shift |
|00006320| 3d 20 30 3b 0a 58 09 69 | 66 20 28 2a 73 20 3d 3d |= 0;.X.i|f (*s ==|
|00006330| 20 27 2b 27 29 0a 58 09 | 09 73 2b 2b 3b 0a 58 09 | '+').X.|.s++;.X.|
|00006340| 65 6c 73 65 20 69 66 20 | 28 2a 73 20 3d 3d 20 27 |else if |(*s == '|
|00006350| 2d 27 29 20 7b 0a 58 09 | 09 6d 69 6e 75 73 20 3d |-') {.X.|.minus =|
|00006360| 20 54 52 55 45 3b 0a 58 | 09 09 73 2b 2b 3b 0a 58 | TRUE;.X|..s++;.X|
|00006370| 09 7d 0a 58 09 69 66 20 | 28 2a 73 20 3d 3d 20 27 |.}.X.if |(*s == '|
|00006380| 30 27 29 20 7b 09 09 2f | 2a 20 70 6f 73 73 69 62 |0') {../|* possib|
|00006390| 6c 79 20 68 65 78 2c 20 | 6f 63 74 61 6c 2c 20 6f |ly hex, |octal, o|
|000063a0| 72 20 62 69 6e 61 72 79 | 20 2a 2f 0a 58 09 09 73 |r binary| */.X..s|
|000063b0| 2b 2b 3b 0a 58 09 09 69 | 66 20 28 28 2a 73 20 3e |++;.X..i|f ((*s >|
|000063c0| 3d 20 27 30 27 29 20 26 | 26 20 28 2a 73 20 3c 3d |= '0') &|& (*s <=|
|000063d0| 20 27 37 27 29 29 20 7b | 0a 58 09 09 09 73 68 69 | '7')) {|.X...shi|
|000063e0| 66 74 20 3d 20 33 3b 0a | 58 09 09 7d 20 65 6c 73 |ft = 3;.|X..} els|
|000063f0| 65 20 69 66 20 28 28 2a | 73 20 3d 3d 20 27 78 27 |e if ((*|s == 'x'|
+--------+-------------------------+-------------------------+--------+--------+