/ Usenet 1994 January / usenetsourcesnewsgroupsinfomagicjanuary1994.iso / sources / misc / volume4 / strtod

< prev

next >

MacOS 8.1

Win98

DOS

browse contents

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| 50 61 74 68 3a 20 78 61 | 6e 74 68 21 6d 63 6e 63 |Path: xa|nth!mcnc|
|00000010| 21 67 61 74 65 63 68 21 | 63 77 6a 63 63 21 68 61 |!gatech!|cwjcc!ha|
|00000020| 6c 21 6e 63 6f 61 73 74 | 21 61 6c 6c 62 65 72 79 |l!ncoast|!allbery|
|00000030| 0a 46 72 6f 6d 3a 20 6f | 6b 40 71 75 69 6e 74 75 |.From: o|k@quintu|
|00000040| 73 2e 55 55 43 50 0a 4e | 65 77 73 67 72 6f 75 70 |s.UUCP.N|ewsgroup|
|00000050| 73 3a 20 63 6f 6d 70 2e | 73 6f 75 72 63 65 73 2e |s: comp.|sources.|
|00000060| 6d 69 73 63 0a 53 75 62 | 6a 65 63 74 3a 20 76 30 |misc.Sub|ject: v0|
|00000070| 34 69 30 31 33 3a 20 52 | 65 70 6c 61 63 65 6d 65 |4i013: R|eplaceme|
|00000080| 6e 74 20 66 6f 72 20 73 | 74 72 74 6f 64 28 29 0a |nt for s|trtod().|
|00000090| 4d 65 73 73 61 67 65 2d | 49 44 3a 20 3c 32 33 32 |Message-|ID: <232|
|000000a0| 40 71 75 69 6e 74 75 73 | 2e 55 55 43 50 3e 0a 44 |@quintus|.UUCP>.D|
|000000b0| 61 74 65 3a 20 33 20 41 | 75 67 20 38 38 20 30 31 |ate: 3 A|ug 88 01|
|000000c0| 3a 31 39 3a 31 31 20 47 | 4d 54 0a 53 65 6e 64 65 |:19:11 G|MT.Sende|
|000000d0| 72 3a 20 61 6c 6c 62 65 | 72 79 40 6e 63 6f 61 73 |r: allbe|ry@ncoas|
|000000e0| 74 2e 55 55 43 50 0a 52 | 65 70 6c 79 2d 54 6f 3a |t.UUCP.R|eply-To:|
|000000f0| 20 6f 6b 40 71 75 69 6e | 74 75 73 2e 55 55 43 50 | ok@quin|tus.UUCP|
|00000100| 0a 4f 72 67 61 6e 69 7a | 61 74 69 6f 6e 3a 20 51 |.Organiz|ation: Q|
|00000110| 75 69 6e 74 75 73 20 43 | 6f 6d 70 75 74 65 72 20 |uintus C|omputer |
|00000120| 53 79 73 74 65 6d 73 2c | 20 49 6e 63 2e 0a 4c 69 |Systems,| Inc..Li|
|00000130| 6e 65 73 3a 20 32 31 38 | 0a 41 70 70 72 6f 76 65 |nes: 218|.Approve|
|00000140| 64 3a 20 61 6c 6c 62 65 | 72 79 40 6e 63 6f 61 73 |d: allbe|ry@ncoas|
|00000150| 74 2e 55 55 43 50 0a 0a | 50 6f 73 74 69 6e 67 2d |t.UUCP..|Posting-|
|00000160| 6e 75 6d 62 65 72 3a 20 | 56 6f 6c 75 6d 65 20 34 |number: |Volume 4|
|00000170| 2c 20 49 73 73 75 65 20 | 31 33 0a 53 75 62 6d 69 |, Issue |13.Submi|
|00000180| 74 74 65 64 2d 62 79 3a | 20 22 41 2e 20 4e 6f 6e |tted-by:| "A. Non|
|00000190| 79 6d 6f 75 73 22 20 3c | 6f 6b 40 71 75 69 6e 74 |ymous" <|ok@quint|
|000001a0| 75 73 2e 55 55 43 50 3e | 0a 41 72 63 68 69 76 65 |us.UUCP>|.Archive|
|000001b0| 2d 6e 61 6d 65 3a 20 73 | 74 72 74 6f 64 0a 0a 73 |-name: s|trtod..s|
|000001c0| 74 72 74 6f 64 28 29 20 | 69 73 20 61 20 6e 69 63 |trtod() |is a nic|
|000001d0| 65 20 66 75 6e 63 74 69 | 6f 6e 2c 20 62 75 74 20 |e functi|on, but |
|000001e0| 69 74 27 73 20 6f 66 74 | 65 6e 20 6d 69 73 73 69 |it's oft|en missi|
|000001f0| 6e 67 20 6f 72 20 62 72 | 6f 6b 65 6e 2e 0a 48 65 |ng or br|oken..He|
|00000200| 72 65 20 69 73 20 61 20 | 72 65 70 6c 61 63 65 6d |re is a |replacem|
|00000210| 65 6e 74 20 66 6f 72 20 | 69 74 20 77 68 69 63 68 |ent for |it which|
|00000220| 20 64 6f 65 73 20 74 68 | 65 20 70 61 72 73 69 6e | does th|e parsin|
|00000230| 67 20 61 6e 64 20 63 68 | 65 63 6b 69 6e 67 0a 72 |g and ch|ecking.r|
|00000240| 65 71 75 69 72 65 64 20 | 6f 66 20 73 74 72 74 6f |equired |of strto|
|00000250| 64 28 29 20 62 75 74 20 | 63 61 6c 6c 73 20 61 74 |d() but |calls at|
|00000260| 6f 66 28 29 20 74 6f 20 | 64 6f 20 74 68 65 20 63 |of() to |do the c|
|00000270| 6f 6e 76 65 72 73 69 6f | 6e 2e 0a 0a 2d 2d 2d 2d |onversio|n...----|
|00000280| 20 63 75 74 20 68 65 72 | 65 20 2d 2d 2d 2d 20 63 | cut her|e ---- c|
|00000290| 75 74 20 68 65 72 65 20 | 2d 2d 2d 2d 20 63 75 74 |ut here |---- cut|
|000002a0| 20 68 65 72 65 20 2d 2d | 2d 2d 20 63 75 74 20 68 | here --|-- cut h|
|000002b0| 65 72 65 20 2d 2d 2d 2d | 20 63 75 74 20 68 65 72 |ere ----| cut her|
|000002c0| 65 20 2d 2d 2d 2d 0a 23 | 21 2f 62 69 6e 2f 73 68 |e ----.#|!/bin/sh|
|000002d0| 0a 23 20 54 68 69 73 20 | 69 73 20 61 20 73 68 65 |.# This |is a she|
|000002e0| 6c 6c 20 61 72 63 68 69 | 76 65 2c 20 6d 65 61 6e |ll archi|ve, mean|
|000002f0| 69 6e 67 3a 20 20 20 20 | 20 20 20 20 20 20 20 20 |ing:    |        |
|00000300| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000310| 20 20 0a 23 20 31 2e 20 | 52 65 6d 6f 76 65 20 65 |  .# 1. |Remove e|
|00000320| 76 65 72 79 74 68 69 6e | 67 20 61 62 6f 76 65 20 |verythin|g above |
|00000330| 74 68 65 20 23 21 2f 62 | 69 6e 2f 73 68 20 6c 69 |the #!/b|in/sh li|
|00000340| 6e 65 2e 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |ne.     |        |
|00000350| 20 20 20 0a 23 20 32 2e | 20 53 61 76 65 20 74 68 |   .# 2.| Save th|
|00000360| 65 20 72 65 73 75 6c 74 | 69 6e 67 20 74 65 73 74 |e result|ing test|
|00000370| 20 69 6e 20 61 20 66 69 | 6c 65 2e 20 20 20 20 20 | in a fi|le.     |
|00000380| 20 20 20 20 20 20 20 20 | 20 20 20 20 20 20 20 20 |        |        |
|00000390| 20 20 20 20 20 0a 23 20 | 33 2e 20 45 78 65 63 75 |     .# |3. Execu|
|000003a0| 74 65 20 74 68 65 20 66 | 69 6c 65 20 77 69 74 68 |te the f|ile with|
|000003b0| 20 2f 62 69 6e 2f 73 68 | 20 28 6e 6f 74 20 63 73 | /bin/sh| (not cs|
|000003c0| 68 29 20 74 6f 20 63 72 | 65 61 74 65 20 74 68 65 |h) to cr|eate the|
|000003d0| 20 66 69 6c 65 73 3a 0a | 23 09 52 45 41 44 4d 45 | files:.|#.README|
|000003e0| 0a 23 09 6d 61 6b 65 66 | 69 6c 65 0a 23 09 73 74 |.#.makef|ile.#.st|
|000003f0| 72 32 64 62 6c 2e 63 0a | 73 65 64 20 2d 65 20 27 |r2dbl.c.|sed -e '|
|00000400| 73 2f 5e 58 2f 2f 27 20 | 3e 52 45 41 44 4d 45 20 |s/^X//' |>README |
|00000410| 3c 3c 27 2d 2d 2d 2d 2d | 2d 20 45 4f 46 20 2d 2d |<<'-----|- EOF --|
|00000420| 2d 2d 2d 2d 27 0a 58 46 | 49 4c 45 53 3a 0a 58 09 |----'.XF|ILES:.X.|
|00000430| 52 45 41 44 4d 45 09 09 | 2d 20 74 68 69 73 20 66 |README..|- this f|
|00000440| 69 6c 65 0a 58 09 6d 61 | 6b 65 66 69 6c 65 09 2d |ile.X.ma|kefile.-|
|00000450| 20 61 20 74 72 69 76 69 | 61 6c 20 6d 61 6b 65 66 | a trivi|al makef|
|00000460| 69 6c 65 0a 58 09 73 74 | 72 32 64 62 6c 2e 63 09 |ile.X.st|r2dbl.c.|
|00000470| 2d 20 64 65 66 69 6e 65 | 73 20 73 74 72 32 64 62 |- define|s str2db|
|00000480| 6c 28 29 2c 20 72 65 71 | 75 69 72 65 73 20 61 74 |l(), req|uires at|
|00000490| 6f 66 28 29 20 2b 20 66 | 6c 6f 61 74 20 73 75 70 |of() + f|loat sup|
|000004a0| 70 6f 72 74 0a 58 0a 58 | 64 6f 75 62 6c 65 20 73 |port.X.X|double s|
|000004b0| 74 72 32 64 62 6c 28 63 | 68 61 72 20 2a 73 74 72 |tr2dbl(c|har *str|
|000004c0| 2c 20 63 68 61 72 20 2a | 2a 70 74 72 29 0a 58 20 |, char *|*ptr).X |
|000004d0| 20 20 20 63 6f 6e 76 65 | 72 74 73 20 74 68 65 20 |   conve|rts the |
|000004e0| 63 68 61 72 61 63 74 65 | 72 20 73 74 72 69 6e 67 |characte|r string|
|000004f0| 20 73 74 72 20 70 6f 69 | 6e 74 73 20 74 6f 20 74 | str poi|nts to t|
|00000500| 6f 20 61 20 64 6f 75 62 | 6c 65 2d 70 72 65 63 69 |o a doub|le-preci|
|00000510| 73 69 6f 6e 0a 58 20 20 | 20 20 66 6c 6f 61 74 69 |sion.X  |  floati|
|00000520| 6e 67 2d 70 6f 69 6e 74 | 20 6e 75 6d 62 65 72 20 |ng-point| number |
|00000530| 61 6e 64 20 72 65 74 75 | 72 6e 73 20 69 74 2e 20 |and retu|rns it. |
|00000540| 20 73 74 72 32 64 62 6c | 28 29 20 72 65 63 6f 67 | str2dbl|() recog|
|00000550| 6e 69 73 65 73 0a 58 0a | 58 09 3c 73 70 61 63 65 |nises.X.|X.<space|
|00000560| 3e 2e 2e 2e 20 5b 2b 7c | 2d 5d 20 3c 64 69 67 69 |>... [+||-] <digi|
|00000570| 74 3e 2e 2e 2e 20 5b 2e | 20 3c 64 69 67 69 74 3e |t>... [.| <digit>|
|00000580| 2e 2e 2e 5d 20 5b 3c 65 | 78 70 6f 6e 65 6e 74 3e |...] [<e|xponent>|
|00000590| 5d 0a 58 0a 58 20 20 20 | 20 77 68 65 72 65 20 3c |].X.X   | where <|
|000005a0| 65 78 70 6f 6e 65 6e 74 | 3e 20 69 73 0a 58 0a 58 |exponent|> is.X.X|
|000005b0| 09 65 7c 45 20 5b 2b 7c | 2d 7c 20 5d 20 3c 64 69 |.e|E [+||-| ] <di|
|000005c0| 67 69 74 3e 20 3c 64 69 | 67 69 74 3e 2e 2e 2e 0a |git> <di|git>....|
|000005d0| 58 0a 58 20 20 20 20 49 | 66 20 70 74 72 20 69 73 |X.X    I|f ptr is|
|000005e0| 20 6e 6f 74 20 28 63 68 | 61 72 2a 2a 29 4e 55 4c | not (ch|ar**)NUL|
|000005f0| 4c 2c 20 2a 70 74 72 20 | 69 73 20 61 73 73 69 67 |L, *ptr |is assig|
|00000600| 6e 65 64 20 61 20 70 6f | 69 6e 74 65 72 20 74 6f |ned a po|inter to|
|00000610| 20 74 68 65 0a 58 20 20 | 20 20 63 68 61 72 61 63 | the.X  |  charac|
|00000620| 74 65 72 20 6a 75 73 74 | 20 61 66 74 65 72 20 74 |ter just| after t|
|00000630| 68 65 20 6c 61 73 74 20 | 63 68 61 72 61 63 74 65 |he last |characte|
|00000640| 72 20 61 63 63 65 70 74 | 65 64 20 62 79 20 73 74 |r accept|ed by st|
|00000650| 72 32 64 62 6c 28 29 2e | 0a 58 20 20 20 20 7b 54 |r2dbl().|.X    {T|
|00000660| 68 69 73 20 77 69 6c 6c | 20 74 79 70 69 63 61 6c |his will| typical|
|00000670| 6c 79 20 62 65 20 61 20 | 6c 61 79 6f 75 74 20 63 |ly be a |layout c|
|00000680| 68 61 72 61 63 74 65 72 | 20 6f 72 20 4e 55 4c 2e |haracter| or NUL.|
|00000690| 7d 0a 58 0a 58 20 20 20 | 20 49 66 20 74 68 65 72 |}.X.X   | If ther|
|000006a0| 65 20 61 72 65 6e 27 74 | 20 61 6e 79 20 64 69 67 |e aren't| any dig|
|000006b0| 69 74 73 20 61 74 20 74 | 68 65 20 66 72 6f 6e 74 |its at t|he front|
|000006c0| 20 28 65 2e 67 2e 20 74 | 68 65 20 69 6e 70 75 74 | (e.g. t|he input|
|000006d0| 20 69 73 0a 58 20 20 20 | 20 22 65 34 35 22 20 6f | is.X   | "e45" o|
|000006e0| 72 20 22 46 72 65 64 22 | 20 6f 72 20 22 2d 67 6f |r "Fred"| or "-go|
|000006f0| 74 63 68 61 2d 22 29 20 | 73 74 72 32 64 62 6c 28 |tcha-") |str2dbl(|
|00000700| 29 20 77 69 6c 6c 20 6d | 61 6b 65 20 2a 70 74 72 |) will m|ake *ptr|
|00000710| 20 70 6f 69 6e 74 0a 58 | 20 20 20 20 74 6f 20 74 | point.X|    to t|
|00000720| 68 65 20 77 68 6f 6c 65 | 20 6f 66 20 73 74 72 20 |he whole| of str |
|00000730| 28 65 76 65 6e 20 69 66 | 20 74 68 65 72 65 20 77 |(even if| there w|
|00000740| 65 72 65 20 6c 65 61 64 | 69 6e 67 20 73 70 61 63 |ere lead|ing spac|
|00000750| 65 73 20 61 6e 64 20 73 | 69 67 6e 73 29 0a 58 20 |es and s|igns).X |
|00000760| 20 20 20 61 6e 64 20 77 | 69 6c 6c 20 72 65 74 75 |   and w|ill retu|
|00000770| 72 6e 20 30 2e 30 2e 0a | 58 0a 58 20 20 20 20 49 |rn 0.0..|X.X    I|
|00000780| 66 20 74 68 65 72 65 20 | 69 73 20 73 6f 6d 65 20 |f there |is some |
|00000790| 70 72 6f 62 6c 65 6d 20 | 77 69 74 68 20 74 68 65 |problem |with the|
|000007a0| 20 65 78 70 6f 6e 65 6e | 74 20 28 65 2e 67 2e 20 | exponen|t (e.g. |
|000007b0| 74 68 65 20 69 6e 70 75 | 74 20 69 73 0a 58 20 20 |the inpu|t is.X  |
|000007c0| 20 20 22 31 2e 32 65 25 | 34 35 22 29 20 73 74 72 |  "1.2e%|45") str|
|000007d0| 32 64 62 6c 28 29 20 77 | 69 6c 6c 20 72 65 6a 65 |2dbl() w|ill reje|
|000007e0| 63 74 20 61 6c 6c 20 6f | 66 20 74 68 65 20 65 78 |ct all o|f the ex|
|000007f0| 70 6f 6e 65 6e 74 2c 20 | 6d 61 6b 69 6e 67 20 2a |ponent, |making *|
|00000800| 70 74 72 0a 58 20 20 20 | 20 70 6f 69 6e 74 20 74 |ptr.X   | point t|
|00000810| 6f 20 74 68 65 20 27 65 | 27 2c 20 61 6e 64 20 77 |o the 'e|', and w|
|00000820| 69 6c 6c 20 63 6f 6e 76 | 65 72 74 20 6f 6e 6c 79 |ill conv|ert only|
|00000830| 20 74 68 65 20 70 72 65 | 63 65 64 69 6e 67 20 63 | the pre|ceding c|
|00000840| 68 61 72 61 63 74 65 72 | 73 2e 0a 58 0a 58 20 20 |haracter|s..X.X  |
|00000850| 20 20 41 20 73 69 6e 67 | 6c 65 20 73 70 61 63 65 |  A sing|le space|
|00000860| 20 61 66 74 65 72 20 74 | 68 65 20 27 65 27 20 6f | after t|he 'e' o|
|00000870| 72 20 27 45 27 20 6f 66 | 20 61 6e 20 65 78 70 6f |r 'E' of| an expo|
|00000880| 6e 65 6e 74 20 69 73 20 | 61 63 63 65 70 74 65 64 |nent is |accepted|
|00000890| 20 61 73 0a 58 20 20 20 | 20 69 66 20 69 74 20 77 | as.X   | if it w|
|000008a0| 65 72 65 20 61 20 27 2b | 27 20 73 69 67 6e 2c 20 |ere a '+|' sign, |
|000008b0| 62 65 63 61 75 73 65 20 | 73 6f 6d 65 20 6f 75 74 |because |some out|
|000008c0| 70 75 74 20 66 6f 72 6d | 61 74 74 69 6e 67 20 72 |put form|atting r|
|000008d0| 6f 75 74 69 6e 65 73 0a | 58 20 20 20 20 67 65 6e |outines.|X    gen|
|000008e0| 65 72 61 74 65 20 6e 75 | 6d 62 65 72 73 20 74 68 |erate nu|mbers th|
|000008f0| 61 74 20 6c 6f 6f 6b 20 | 6c 69 6b 65 20 74 68 61 |at look |like tha|
|00000900| 74 2e 20 20 53 70 61 63 | 65 73 20 61 72 65 20 6e |t.  Spac|es are n|
|00000910| 6f 74 20 6f 74 68 65 72 | 77 69 73 65 0a 58 20 20 |ot other|wise.X  |
|00000920| 20 20 61 63 63 65 70 74 | 65 64 20 69 6e 73 69 64 |  accept|ed insid|
|00000930| 65 20 6e 75 6d 62 65 72 | 73 2e 0a 58 0a 58 20 20 |e number|s..X.X  |
|00000940| 20 20 49 66 20 74 68 65 | 20 63 6f 72 72 65 63 74 |  If the| correct|
|00000950| 20 76 61 6c 75 65 20 63 | 61 6e 6e 6f 74 20 62 65 | value c|annot be|
|00000960| 20 72 65 70 72 65 73 65 | 6e 74 65 64 2c 20 73 74 | represe|nted, st|
|00000970| 72 32 64 62 6c 28 29 20 | 73 65 74 73 20 65 72 72 |r2dbl() |sets err|
|00000980| 6e 6f 0a 58 20 20 20 20 | 74 6f 20 45 52 41 4e 47 |no.X    |to ERANG|
|00000990| 45 2c 20 61 6e 64 20 72 | 65 74 75 72 6e 73 20 2b |E, and r|eturns +|
|000009a0| 2f 2d 48 55 47 45 20 66 | 6f 72 20 6f 76 65 72 66 |/-HUGE f|or overf|
|000009b0| 6c 6f 77 2c 20 2b 2f 2d | 5a 45 52 4f 20 66 6f 72 |low, +/-|ZERO for|
|000009c0| 20 75 6e 64 65 72 66 6c | 6f 77 2e 0a 58 0a 58 57 | underfl|ow..X.XW|
|000009d0| 41 52 4e 49 4e 47 3a 0a | 58 20 20 20 20 54 68 65 |ARNING:.|X    The|
|000009e0| 20 73 6f 75 72 63 65 20 | 63 6f 64 65 20 61 73 20 | source |code as |
|000009f0| 70 72 6f 76 69 64 65 64 | 20 69 73 20 73 65 74 20 |provided| is set |
|00000a00| 75 70 20 66 6f 72 20 36 | 34 2d 62 69 74 20 49 45 |up for 6|4-bit IE|
|00000a10| 45 45 2d 37 35 34 20 66 | 6c 6f 61 74 69 6e 67 0a |EE-754 f|loating.|
|00000a20| 58 20 20 20 20 70 6f 69 | 6e 74 2e 20 20 56 41 58 |X    poi|nt.  VAX|
|00000a30| 20 61 6e 64 20 49 42 4d | 20 66 6c 6f 61 74 69 6e | and IBM| floatin|
|00000a40| 67 2d 70 6f 69 6e 74 20 | 66 6f 72 6d 61 74 73 20 |g-point |formats |
|00000a50| 61 72 65 20 64 69 66 66 | 65 72 65 6e 74 2c 20 73 |are diff|erent, s|
|00000a60| 6f 20 74 68 65 0a 58 20 | 20 20 20 6e 75 6d 65 72 |o the.X |   numer|
|00000a70| 69 63 20 72 61 6e 67 65 | 20 69 73 20 64 69 66 66 |ic range| is diff|
|00000a80| 65 72 65 6e 74 2e 20 20 | 53 6f 6d 65 20 6d 61 63 |erent.  |Some mac|
|00000a90| 68 69 6e 65 73 20 77 68 | 69 63 68 20 6c 6f 6f 6b |hines wh|ich look|
|00000aa0| 20 61 73 20 74 68 6f 75 | 67 68 0a 58 20 20 20 20 | as thou|gh.X    |
|00000ab0| 74 68 65 79 20 68 61 76 | 65 20 49 45 45 45 20 66 |they hav|e IEEE f|
|00000ac0| 6c 6f 61 74 73 20 6d 61 | 79 20 6e 6f 74 20 73 75 |loats ma|y not su|
|00000ad0| 70 70 6f 72 74 20 69 6e | 66 69 6e 69 74 69 65 73 |pport in|finities|
|00000ae0| 20 6f 72 20 64 65 6e 6f | 72 6d 61 6c 69 73 65 64 | or deno|rmalised|
|00000af0| 0a 58 20 20 20 20 6e 75 | 6d 62 65 72 73 2c 20 69 |.X    nu|mbers, i|
|00000b00| 6e 20 77 68 69 63 68 20 | 63 61 73 65 20 74 68 65 |n which |case the|
|00000b10| 20 6e 75 6d 65 72 69 63 | 20 72 61 6e 67 65 20 69 | numeric| range i|
|00000b20| 73 20 64 69 66 66 65 72 | 65 6e 74 2e 20 20 59 6f |s differ|ent.  Yo|
|00000b30| 75 20 77 69 6c 6c 0a 58 | 20 20 20 20 68 61 76 65 |u will.X|    have|
|00000b40| 20 74 6f 20 64 65 74 65 | 72 6d 69 6e 65 20 74 68 | to dete|rmine th|
|00000b50| 65 20 63 6f 72 72 65 63 | 74 20 76 61 6c 75 65 73 |e correc|t values|
|00000b60| 20 66 6f 72 20 79 6f 75 | 72 20 6d 61 63 68 69 6e | for you|r machin|
|00000b70| 65 2e 0a 58 0a 2d 2d 2d | 2d 2d 2d 20 45 4f 46 20 |e..X.---|--- EOF |
|00000b80| 2d 2d 2d 2d 2d 2d 0a 6c | 73 20 2d 6c 20 52 45 41 |------.l|s -l REA|
|00000b90| 44 4d 45 0a 73 65 64 20 | 2d 65 20 27 73 2f 5e 58 |DME.sed |-e 's/^X|
|00000ba0| 2f 2f 27 20 3e 6d 61 6b | 65 66 69 6c 65 20 3c 3c |//' >mak|efile <<|
|00000bb0| 27 2d 2d 2d 2d 2d 2d 20 | 45 4f 46 20 2d 2d 2d 2d |'------ |EOF ----|
|00000bc0| 2d 2d 27 0a 58 73 74 72 | 32 64 62 6c 2e 6f 3a 20 |--'.Xstr|2dbl.o: |
|00000bd0| 73 74 72 32 64 62 6c 2e | 63 0a 2d 2d 2d 2d 2d 2d |str2dbl.|c.------|
|00000be0| 20 45 4f 46 20 2d 2d 2d | 2d 2d 2d 0a 6c 73 20 2d | EOF ---|---.ls -|
|00000bf0| 6c 20 6d 61 6b 65 66 69 | 6c 65 0a 73 65 64 20 2d |l makefi|le.sed -|
|00000c00| 65 20 27 73 2f 5e 58 2f | 2f 27 20 3e 73 74 72 32 |e 's/^X/|/' >str2|
|00000c10| 64 62 6c 2e 63 20 3c 3c | 27 2d 2d 2d 2d 2d 2d 20 |dbl.c <<|'------ |
|00000c20| 45 4f 46 20 2d 2d 2d 2d | 2d 2d 27 0a 58 2f 2a 20 |EOF ----|--'.X/* |
|00000c30| 20 46 69 6c 65 20 20 20 | 3a 20 73 74 72 32 64 62 | File   |: str2db|
|00000c40| 6c 2e 63 0a 58 20 20 20 | 20 41 75 74 68 6f 72 20 |l.c.X   | Author |
|00000c50| 3a 20 52 69 63 68 61 72 | 64 20 41 2e 20 4f 27 4b |: Richar|d A. O'K|
|00000c60| 65 65 66 65 20 40 20 51 | 75 69 6e 74 75 73 20 43 |eefe @ Q|uintus C|
|00000c70| 6f 6d 70 75 74 65 72 20 | 53 79 73 74 65 6d 73 2c |omputer |Systems,|
|00000c80| 20 49 6e 63 2e 0a 58 20 | 20 20 20 55 70 64 61 74 | Inc..X |   Updat|
|00000c90| 65 64 3a 20 54 75 65 73 | 64 61 79 20 41 75 67 75 |ed: Tues|day Augu|
|00000ca0| 73 74 20 32 6e 64 2c 20 | 31 39 38 38 0a 58 20 20 |st 2nd, |1988.X  |
|00000cb0| 20 20 44 65 66 69 6e 65 | 73 3a 20 64 6f 75 62 6c |  Define|s: doubl|
|00000cc0| 65 20 73 74 72 32 64 62 | 6c 28 63 68 61 72 20 2a |e str2db|l(char *|
|00000cd0| 73 74 72 2c 20 63 68 61 | 72 2a 2a 70 74 72 29 0a |str, cha|r**ptr).|
|00000ce0| 58 2a 2f 0a 58 0a 58 2f | 2a 20 20 54 68 69 73 20 |X*/.X.X/|*  This |
|00000cf0| 69 73 20 61 6e 20 69 6d | 70 6c 65 6d 65 6e 74 61 |is an im|plementa|
|00000d00| 74 69 6f 6e 20 6f 66 20 | 74 68 65 20 73 74 72 74 |tion of |the strt|
|00000d10| 6f 64 28 29 20 66 75 6e | 63 74 69 6f 6e 20 64 65 |od() fun|ction de|
|00000d20| 73 63 72 69 62 65 64 20 | 69 6e 20 74 68 65 20 0a |scribed |in the .|
|00000d30| 58 20 20 20 20 53 79 73 | 74 65 6d 20 56 20 6d 61 |X    Sys|tem V ma|
|00000d40| 6e 75 61 6c 73 2c 20 77 | 69 74 68 20 61 20 64 69 |nuals, w|ith a di|
|00000d50| 66 66 65 72 65 6e 74 20 | 6e 61 6d 65 20 74 6f 20 |fferent |name to |
|00000d60| 61 76 6f 69 64 20 6c 69 | 6e 6b 65 72 20 70 72 6f |avoid li|nker pro|
|00000d70| 62 6c 65 6d 73 2e 0a 58 | 20 20 20 20 41 6c 6c 20 |blems..X|    All |
|00000d80| 74 68 61 74 20 73 74 72 | 32 64 62 6c 28 29 20 64 |that str|2dbl() d|
|00000d90| 6f 65 73 20 69 74 73 65 | 6c 66 20 69 73 20 63 68 |oes itse|lf is ch|
|00000da0| 65 63 6b 20 74 68 61 74 | 20 74 68 65 20 61 72 67 |eck that| the arg|
|00000db0| 75 6d 65 6e 74 20 69 73 | 20 77 65 6c 6c 2d 66 6f |ument is| well-fo|
|00000dc0| 72 6d 65 64 0a 58 20 20 | 20 20 61 6e 64 20 69 73 |rmed.X  |  and is|
|00000dd0| 20 69 6e 20 72 61 6e 67 | 65 2e 20 20 49 74 20 6c | in rang|e.  It l|
|00000de0| 65 61 76 65 73 20 74 68 | 65 20 77 6f 72 6b 20 6f |eaves th|e work o|
|00000df0| 66 20 63 6f 6e 76 65 72 | 73 69 6f 6e 20 74 6f 20 |f conver|sion to |
|00000e00| 61 74 6f 66 28 29 2c 20 | 77 68 69 63 68 20 69 73 |atof(), |which is|
|00000e10| 0a 58 20 20 20 20 61 73 | 73 75 6d 65 64 20 74 6f |.X    as|sumed to|
|00000e20| 20 65 78 69 73 74 20 61 | 6e 64 20 64 65 6c 69 76 | exist a|nd deliv|
|00000e30| 65 72 20 63 6f 72 72 65 | 63 74 20 72 65 73 75 6c |er corre|ct resul|
|00000e40| 74 73 20 28 69 66 20 74 | 68 65 79 20 63 61 6e 20 |ts (if t|hey can |
|00000e50| 62 65 20 72 65 70 72 65 | 73 65 6e 74 65 64 29 2e |be repre|sented).|
|00000e60| 0a 58 0a 58 20 20 20 20 | 54 68 65 72 65 20 61 72 |.X.X    |There ar|
|00000e70| 65 20 74 77 6f 20 72 65 | 61 73 6f 6e 73 20 77 68 |e two re|asons wh|
|00000e80| 79 20 74 68 69 73 20 73 | 68 6f 75 6c 64 20 62 65 |y this s|hould be|
|00000e90| 20 70 72 6f 76 69 64 65 | 64 20 74 6f 20 74 68 65 | provide|d to the|
|00000ea0| 20 6e 65 74 3a 0a 58 20 | 20 20 20 28 61 29 20 73 | net:.X |   (a) s|
|00000eb0| 6f 6d 65 20 55 4e 49 58 | 20 73 79 73 74 65 6d 73 |ome UNIX| systems|
|00000ec0| 20 64 6f 20 6e 6f 74 20 | 79 65 74 20 68 61 76 65 | do not |yet have|
|00000ed0| 20 73 74 72 74 6f 64 28 | 29 2c 20 6f 72 20 64 6f | strtod(|), or do|
|00000ee0| 20 6e 6f 74 20 68 61 76 | 65 20 69 74 0a 58 20 20 | not hav|e it.X  |
|00000ef0| 20 20 20 20 20 20 61 76 | 61 69 6c 61 62 6c 65 20 |      av|ailable |
|00000f00| 69 6e 20 74 68 65 20 42 | 53 44 20 22 75 6e 69 76 |in the B|SD "univ|
|00000f10| 65 72 73 65 22 20 28 62 | 75 74 20 74 68 65 79 20 |erse" (b|ut they |
|00000f20| 64 6f 20 68 61 76 65 20 | 61 74 6f 66 28 29 29 2e |do have |atof()).|
|00000f30| 0a 58 20 20 20 20 28 62 | 29 20 73 6f 6d 65 20 6f |.X    (b|) some o|
|00000f40| 66 20 74 68 65 20 55 4e | 49 58 20 73 79 73 74 65 |f the UN|IX syste|
|00000f50| 6d 73 20 74 68 61 74 20 | 2a 64 6f 2a 20 68 61 76 |ms that |*do* hav|
|00000f60| 65 20 69 74 20 67 65 74 | 20 69 74 20 77 72 6f 6e |e it get| it wron|
|00000f70| 67 2e 0a 58 09 28 73 6f | 6d 65 20 63 72 61 73 68 |g..X.(so|me crash|
|00000f80| 20 77 69 74 68 20 6c 61 | 72 67 65 20 61 72 67 75 | with la|rge argu|
|00000f90| 6d 65 6e 74 73 2c 20 73 | 6f 6d 65 20 61 73 73 69 |ments, s|ome assi|
|00000fa0| 67 6e 20 74 68 65 20 77 | 72 6f 6e 67 20 2a 70 74 |gn the w|rong *pt|
|00000fb0| 72 20 76 61 6c 75 65 29 | 2e 0a 58 20 20 20 20 54 |r value)|..X    T|
|00000fc0| 68 65 72 65 20 69 73 20 | 61 20 72 65 61 73 6f 6e |here is |a reason|
|00000fd0| 20 77 68 79 20 2a 77 65 | 2a 20 61 72 65 20 70 72 | why *we|* are pr|
|00000fe0| 6f 76 69 64 69 6e 67 20 | 69 74 3a 20 77 65 20 6e |oviding |it: we n|
|00000ff0| 65 65 64 20 61 20 63 6f | 72 72 65 63 74 20 76 65 |eed a co|rrect ve|
|00001000| 72 73 69 6f 6e 0a 58 20 | 20 20 20 6f 66 20 73 74 |rsion.X |   of st|
|00001010| 72 74 6f 64 28 29 2c 20 | 61 6e 64 20 69 66 20 77 |rtod(), |and if w|
|00001020| 65 20 67 69 76 65 20 74 | 68 69 73 20 6f 6e 65 20 |e give t|his one |
|00001030| 61 77 61 79 20 6d 61 79 | 62 65 20 73 6f 6d 65 6f |away may|be someo|
|00001040| 6e 65 20 77 69 6c 6c 20 | 6c 6f 6f 6b 20 66 6f 72 |ne will |look for|
|00001050| 0a 58 20 20 20 20 6d 69 | 73 74 61 6b 65 73 20 69 |.X    mi|stakes i|
|00001060| 6e 20 69 74 20 61 6e 64 | 20 66 69 78 20 74 68 65 |n it and| fix the|
|00001070| 6d 20 66 6f 72 20 75 73 | 20 28 3a 2d 29 2e 0a 58 |m for us| (:-)..X|
|00001080| 2a 2f 0a 58 20 20 20 20 | 0a 58 2f 2a 20 20 54 68 |*/.X    |.X/*  Th|
|00001090| 65 20 66 6f 6c 6c 6f 77 | 69 6e 67 20 63 6f 6e 73 |e follow|ing cons|
|000010a0| 74 61 6e 74 73 20 61 72 | 65 20 6d 61 63 68 69 6e |tants ar|e machin|
|000010b0| 65 2d 73 70 65 63 69 66 | 69 63 2e 20 20 4d 44 7b |e-specif|ic.  MD{|
|000010c0| 4d 49 4e 2c 4d 41 58 7d | 45 58 50 54 20 61 72 65 |MIN,MAX}|EXPT are|
|000010d0| 0a 58 20 20 20 20 69 6e | 74 65 67 65 72 73 20 61 |.X    in|tegers a|
|000010e0| 6e 64 20 4d 44 7b 4d 49 | 4e 2c 4d 41 58 7d 46 52 |nd MD{MI|N,MAX}FR|
|000010f0| 41 43 20 61 72 65 20 73 | 74 72 69 6e 67 73 20 73 |AC are s|trings s|
|00001100| 75 63 68 20 74 68 61 74 | 0a 58 09 30 2e 24 7b 4d |uch that|.X.0.${M|
|00001110| 44 4d 41 58 46 52 41 43 | 7d 65 24 7b 4d 44 4d 41 |DMAXFRAC|}e${MDMA|
|00001120| 58 45 58 50 54 7d 20 69 | 73 20 74 68 65 20 6c 61 |XEXPT} i|s the la|
|00001130| 72 67 65 73 74 20 72 65 | 70 72 65 73 65 6e 74 61 |rgest re|presenta|
|00001140| 62 6c 65 20 64 6f 75 62 | 6c 65 2c 0a 58 09 30 2e |ble doub|le,.X.0.|
|00001150| 24 7b 4d 44 4d 49 4e 46 | 52 41 43 7d 65 24 7b 4d |${MDMINF|RAC}e${M|
|00001160| 44 4d 49 4e 45 58 50 54 | 7d 20 69 73 20 74 68 65 |DMINEXPT|} is the|
|00001170| 20 73 6d 61 6c 6c 65 73 | 74 20 72 65 70 72 65 73 | smalles|t repres|
|00001180| 65 6e 74 61 62 6c 65 20 | 2b 76 65 20 64 6f 75 62 |entable |+ve doub|
|00001190| 6c 65 0a 58 20 20 20 20 | 4d 44 7b 4d 49 4e 2c 4d |le.X    |MD{MIN,M|
|000011a0| 41 58 7d 46 52 41 43 20 | 6d 75 73 74 20 6e 6f 74 |AX}FRAC |must not|
|000011b0| 20 68 61 76 65 20 61 6e | 79 20 74 72 61 69 6c 69 | have an|y traili|
|000011c0| 6e 67 20 7a 65 72 6f 73 | 2e 0a 58 20 20 20 20 54 |ng zeros|..X    T|
|000011d0| 68 65 20 76 61 6c 75 65 | 73 20 68 65 72 65 20 61 |he value|s here a|
|000011e0| 72 65 20 66 6f 72 20 49 | 45 45 45 2d 37 35 34 20 |re for I|EEE-754 |
|000011f0| 36 34 2d 62 69 74 20 66 | 6c 6f 61 74 73 2e 0a 58 |64-bit f|loats..X|
|00001200| 20 20 20 20 49 74 20 69 | 73 20 6e 6f 74 20 70 65 |    It i|s not pe|
|00001210| 72 66 65 63 74 6c 79 20 | 63 6c 65 61 72 20 74 6f |rfectly |clear to|
|00001220| 20 6d 65 20 77 68 65 74 | 68 65 72 20 61 6e 20 49 | me whet|her an I|
|00001230| 45 45 45 20 69 6e 66 69 | 6e 69 74 79 20 73 68 6f |EEE infi|nity sho|
|00001240| 75 6c 64 20 62 65 0a 58 | 20 20 20 20 72 65 74 75 |uld be.X|    retu|
|00001250| 72 6e 65 64 20 66 6f 72 | 20 6f 76 65 72 66 6c 6f |rned for| overflo|
|00001260| 77 2c 20 6e 6f 72 20 77 | 68 61 74 20 61 20 70 6f |w, nor w|hat a po|
|00001270| 72 74 61 62 6c 65 20 77 | 61 79 20 6f 66 20 77 72 |rtable w|ay of wr|
|00001280| 69 74 69 6e 67 20 6f 6e | 65 20 69 73 2c 0a 58 20 |iting on|e is,.X |
|00001290| 20 20 20 73 6f 20 48 55 | 47 45 20 69 73 20 6a 75 |   so HU|GE is ju|
|000012a0| 73 74 20 30 2e 4d 41 58 | 46 52 41 43 2a 31 30 2a |st 0.MAX|FRAC*10*|
|000012b0| 2a 4d 41 58 45 58 50 54 | 20 28 74 68 69 73 20 73 |*MAXEXPT| (this s|
|000012c0| 65 65 6d 73 20 73 74 69 | 6c 6c 20 74 6f 20 62 65 |eems sti|ll to be|
|000012d0| 20 74 68 65 0a 58 20 20 | 20 20 55 4e 49 58 20 63 | the.X  |  UNIX c|
|000012e0| 6f 6e 76 65 6e 74 69 6f | 6e 29 2e 0a 58 0a 58 20 |onventio|n)..X.X |
|000012f0| 20 20 20 49 20 64 6f 20 | 6b 6e 6f 77 20 61 62 6f |   I do |know abo|
|00001300| 75 74 20 3c 76 61 6c 75 | 65 73 2e 68 3e 2c 20 62 |ut <valu|es.h>, b|
|00001310| 75 74 20 74 68 65 20 77 | 68 6f 6c 65 20 70 6f 69 |ut the w|hole poi|
|00001320| 6e 74 20 6f 66 20 74 68 | 69 73 20 66 69 6c 65 20 |nt of th|is file |
|00001330| 69 73 20 74 68 61 74 0a | 58 20 20 20 20 77 65 20 |is that.|X    we |
|00001340| 63 61 6e 27 74 20 61 6c | 77 61 79 73 20 74 72 75 |can't al|ways tru|
|00001350| 73 74 20 74 68 61 74 20 | 73 74 75 66 66 20 74 6f |st that |stuff to|
|00001360| 20 62 65 20 74 68 65 72 | 65 20 6f 72 20 74 6f 20 | be ther|e or to |
|00001370| 62 65 20 63 6f 72 72 65 | 63 74 2e 0a 58 2a 2f 0a |be corre|ct..X*/.|
|00001380| 58 73 74 61 74 69 63 09 | 69 6e 74 09 4d 44 4d 49 |Xstatic.|int.MDMI|
|00001390| 4e 45 58 50 54 09 3d 20 | 7b 2d 33 32 33 7d 3b 0a |NEXPT.= |{-323};.|
|000013a0| 58 73 74 61 74 69 63 09 | 63 68 61 72 09 4d 44 4d |Xstatic.|char.MDM|
|000013b0| 49 4e 46 52 41 43 5b 5d | 09 3d 20 22 34 39 34 30 |INFRAC[]|.= "4940|
|000013c0| 36 35 36 34 35 38 34 31 | 32 34 36 35 34 34 22 3b |65645841|246544";|
|000013d0| 0a 58 73 74 61 74 69 63 | 09 64 6f 75 62 6c 65 09 |.Xstatic|.double.|
|000013e0| 5a 45 52 4f 09 09 3d 20 | 30 2e 30 3b 0a 58 0a 58 |ZERO..= |0.0;.X.X|
|000013f0| 73 74 61 74 69 63 09 69 | 6e 74 09 4d 44 4d 41 58 |static.i|nt.MDMAX|
|00001400| 45 58 50 54 09 3d 20 7b | 20 33 30 39 7d 3b 0a 58 |EXPT.= {| 309};.X|
|00001410| 73 74 61 74 69 63 09 63 | 68 61 72 09 4d 44 4d 41 |static.c|har.MDMA|
|00001420| 58 46 52 41 43 5b 5d 09 | 3d 20 22 31 37 39 37 36 |XFRAC[].|= "17976|
|00001430| 39 33 31 33 34 38 36 32 | 33 31 34 37 22 3b 0a 58 |93134862|3147";.X|
|00001440| 73 74 61 74 69 63 09 64 | 6f 75 62 6c 65 09 48 55 |static.d|ouble.HU|
|00001450| 47 45 09 09 3d 20 31 2e | 37 39 37 36 39 33 31 33 |GE..= 1.|79769313|
|00001460| 34 38 36 32 33 31 34 37 | 65 33 30 38 3b 0a 58 0a |48623147|e308;.X.|
|00001470| 58 65 78 74 65 72 6e 09 | 64 6f 75 62 6c 65 09 61 |Xextern.|double.a|
|00001480| 74 6f 66 28 29 3b 09 09 | 2f 2a 20 4f 6e 6c 79 20 |tof();..|/* Only |
|00001490| 63 61 6c 6c 65 64 20 77 | 68 65 6e 20 72 65 73 75 |called w|hen resu|
|000014a0| 6c 74 20 6b 6e 6f 77 6e | 20 74 6f 20 62 65 20 6f |lt known| to be o|
|000014b0| 6b 20 2a 2f 0a 58 0a 58 | 23 69 6e 63 6c 75 64 65 |k */.X.X|#include|
|000014c0| 20 3c 65 72 72 6e 6f 2e | 68 3e 0a 58 65 78 74 65 | <errno.|h>.Xexte|
|000014d0| 72 6e 09 69 6e 74 09 65 | 72 72 6e 6f 3b 0a 58 0a |rn.int.e|rrno;.X.|
|000014e0| 58 64 6f 75 62 6c 65 20 | 73 74 72 32 64 62 6c 28 |Xdouble |str2dbl(|
|000014f0| 73 74 72 2c 20 70 74 72 | 29 0a 58 20 20 20 20 63 |str, ptr|).X    c|
|00001500| 68 61 72 20 2a 73 74 72 | 3b 0a 58 20 20 20 20 63 |har *str|;.X    c|
|00001510| 68 61 72 20 2a 2a 70 74 | 72 3b 0a 58 20 20 20 20 |har **pt|r;.X    |
|00001520| 7b 0a 58 09 69 6e 74 20 | 73 69 67 6e 2c 20 73 63 |{.X.int |sign, sc|
|00001530| 61 6c 65 2c 20 64 6f 74 | 73 65 65 6e 3b 0a 58 09 |ale, dot|seen;.X.|
|00001540| 69 6e 74 20 65 73 69 67 | 6e 2c 20 65 78 70 74 3b |int esig|n, expt;|
|00001550| 0a 58 09 63 68 61 72 20 | 2a 73 61 76 65 3b 0a 58 |.X.char |*save;.X|
|00001560| 09 72 65 67 69 73 74 65 | 72 20 63 68 61 72 20 2a |.registe|r char *|
|00001570| 73 70 2c 20 2a 64 70 3b | 0a 58 09 72 65 67 69 73 |sp, *dp;|.X.regis|
|00001580| 74 65 72 20 69 6e 74 20 | 63 3b 0a 58 09 63 68 61 |ter int |c;.X.cha|
|00001590| 72 20 2a 62 75 66 6f 72 | 67 2c 20 2a 62 75 66 6c |r *bufor|g, *bufl|
|000015a0| 69 6d 3b 0a 58 09 63 68 | 61 72 20 62 75 66 66 65 |im;.X.ch|ar buffe|
|000015b0| 72 5b 36 34 5d 3b 09 09 | 2f 2a 20 34 35 2d 64 69 |r[64];..|/* 45-di|
|000015c0| 67 69 74 20 73 69 67 6e | 69 66 69 63 61 6e 64 20 |git sign|ificand |
|000015d0| 2b 20 2a 2f 0a 58 09 09 | 09 09 09 2f 2a 20 31 33 |+ */.X..|.../* 13|
|000015e0| 2d 64 69 67 69 74 20 65 | 78 70 6f 6e 65 6e 74 20 |-digit e|xponent |
|000015f0| 2a 2f 0a 58 09 73 70 20 | 3d 20 73 74 72 3b 0a 58 |*/.X.sp |= str;.X|
|00001600| 09 77 68 69 6c 65 20 28 | 2a 73 70 20 3d 3d 20 27 |.while (|*sp == '|
|00001610| 20 27 29 20 73 70 2b 2b | 3b 0a 58 09 73 69 67 6e | ') sp++|;.X.sign|
|00001620| 20 3d 20 31 3b 0a 58 09 | 69 66 20 28 2a 73 70 20 | = 1;.X.|if (*sp |
|00001630| 3d 3d 20 27 2d 27 29 20 | 73 69 67 6e 20 2d 3d 20 |== '-') |sign -= |
|00001640| 32 2c 20 73 70 2b 2b 3b | 0a 58 09 64 6f 74 73 65 |2, sp++;|.X.dotse|
|00001650| 65 6e 20 3d 20 30 2c 20 | 73 63 61 6c 65 20 3d 20 |en = 0, |scale = |
|00001660| 30 3b 0a 58 09 64 70 20 | 3d 20 62 75 66 66 65 72 |0;.X.dp |= buffer|
|00001670| 3b 09 0a 58 09 2a 64 70 | 2b 2b 20 3d 20 27 30 27 |;..X.*dp|++ = '0'|
|00001680| 3b 20 2a 64 70 2b 2b 20 | 3d 20 27 2e 27 3b 0a 58 |; *dp++ |= '.';.X|
|00001690| 09 62 75 66 6f 72 67 20 | 3d 20 64 70 2c 20 62 75 |.buforg |= dp, bu|
|000016a0| 66 6c 69 6d 20 3d 20 62 | 75 66 66 65 72 2b 34 38 |flim = b|uffer+48|
|000016b0| 3b 0a 58 09 66 6f 72 20 | 28 73 61 76 65 20 3d 20 |;.X.for |(save = |
|000016c0| 73 70 3b 20 63 20 3d 20 | 2a 73 70 3b 20 73 70 2b |sp; c = |*sp; sp+|
|000016d0| 2b 29 0a 58 09 20 20 20 | 20 69 66 20 28 63 20 3d |+).X.   | if (c =|
|000016e0| 3d 20 27 2e 27 29 20 7b | 0a 58 09 09 69 66 20 28 |= '.') {|.X..if (|
|000016f0| 64 6f 74 73 65 65 6e 29 | 20 62 72 65 61 6b 3b 0a |dotseen)| break;.|
|00001700| 58 09 09 64 6f 74 73 65 | 65 6e 2b 2b 3b 0a 58 09 |X..dotse|en++;.X.|
|00001710| 20 20 20 20 7d 20 65 6c | 73 65 0a 58 09 20 20 20 |    } el|se.X.   |
|00001720| 20 69 66 20 28 28 75 6e | 73 69 67 6e 65 64 29 28 | if ((un|signed)(|
|00001730| 63 2d 27 30 27 29 20 3e | 20 28 75 6e 73 69 67 6e |c-'0') >| (unsign|
|00001740| 65 64 29 28 27 39 27 2d | 27 30 27 29 29 20 7b 0a |ed)('9'-|'0')) {.|
|00001750| 58 09 09 62 72 65 61 6b | 3b 0a 58 09 20 20 20 20 |X..break|;.X.    |
|00001760| 7d 20 65 6c 73 65 0a 58 | 09 20 20 20 20 69 66 20 |} else.X|.    if |
|00001770| 28 63 20 3d 3d 20 27 30 | 27 29 20 7b 0a 58 09 09 |(c == '0|') {.X..|
|00001780| 69 66 20 28 64 70 20 21 | 3d 20 62 75 66 6f 72 67 |if (dp !|= buforg|
|00001790| 29 20 7b 0a 58 09 09 20 | 20 20 20 2f 2a 20 54 68 |) {.X.. |   /* Th|
|000017a0| 69 73 20 69 73 20 6e 6f | 74 20 74 68 65 20 66 69 |is is no|t the fi|
|000017b0| 72 73 74 20 64 69 67 69 | 74 2c 20 73 6f 20 77 65 |rst digi|t, so we|
|000017c0| 20 77 61 6e 74 20 74 6f | 20 6b 65 65 70 20 69 74 | want to| keep it|
|000017d0| 20 2a 2f 0a 58 09 09 20 | 20 20 20 69 66 20 28 64 | */.X.. |   if (d|
|000017e0| 70 20 3c 20 62 75 66 6c | 69 6d 29 20 2a 64 70 2b |p < bufl|im) *dp+|
|000017f0| 2b 20 3d 20 63 3b 0a 58 | 09 09 7d 20 65 6c 73 65 |+ = c;.X|..} else|
|00001800| 20 7b 0a 58 09 09 20 20 | 20 20 2f 2a 20 4e 6f 20 | {.X..  |  /* No |
|00001810| 6e 6f 6e 2d 7a 65 72 6f | 20 64 69 67 69 74 73 20 |non-zero| digits |
|00001820| 73 65 65 6e 20 79 65 74 | 20 2a 2f 0a 58 09 09 20 |seen yet| */.X.. |
|00001830| 20 20 20 2f 2a 20 49 66 | 20 61 20 2e 20 68 61 73 |   /* If| a . has|
|00001840| 20 62 65 65 6e 20 73 65 | 65 6e 2c 20 73 63 61 6c | been se|en, scal|
|00001850| 65 20 6d 75 73 74 20 62 | 65 20 61 64 6a 75 73 74 |e must b|e adjust|
|00001860| 65 64 20 2a 2f 0a 58 09 | 09 20 20 20 20 69 66 20 |ed */.X.|.    if |
|00001870| 28 64 6f 74 73 65 65 6e | 29 20 73 63 61 6c 65 2d |(dotseen|) scale-|
|00001880| 2d 3b 0a 58 09 09 7d 0a | 58 09 20 20 20 20 7d 20 |-;.X..}.|X.    } |
|00001890| 65 6c 73 65 20 7b 0a 58 | 09 09 2f 2a 20 54 68 69 |else {.X|../* Thi|
|000018a0| 73 20 69 73 20 61 20 6e | 6f 6e 7a 65 72 6f 20 64 |s is a n|onzero d|
|000018b0| 69 67 69 74 2c 20 73 6f | 20 77 65 20 77 61 6e 74 |igit, so| we want|
|000018c0| 20 74 6f 20 6b 65 65 70 | 20 69 74 20 2a 2f 0a 58 | to keep| it */.X|
|000018d0| 09 09 69 66 20 28 64 70 | 20 3c 20 62 75 66 6c 69 |..if (dp| < bufli|
|000018e0| 6d 29 20 2a 64 70 2b 2b | 20 3d 20 63 3b 0a 58 09 |m) *dp++| = c;.X.|
|000018f0| 09 2f 2a 20 49 66 20 69 | 74 20 70 72 65 63 65 64 |./* If i|t preced|
|00001900| 65 73 20 61 20 2e 2c 20 | 73 63 61 6c 65 20 6d 75 |es a ., |scale mu|
|00001910| 73 74 20 62 65 20 61 64 | 6a 75 73 74 65 64 20 2a |st be ad|justed *|
|00001920| 2f 0a 58 09 09 69 66 20 | 28 21 64 6f 74 73 65 65 |/.X..if |(!dotsee|
|00001930| 6e 29 20 73 63 61 6c 65 | 2b 2b 3b 0a 58 09 20 20 |n) scale|++;.X.  |
|00001940| 20 20 7d 0a 58 09 69 66 | 20 28 73 70 20 3d 3d 20 |  }.X.if| (sp == |
|00001950| 73 61 76 65 29 20 7b 0a | 58 09 20 20 20 20 69 66 |save) {.|X.    if|
|00001960| 20 28 70 74 72 29 20 2a | 70 74 72 20 3d 20 73 74 | (ptr) *|ptr = st|
|00001970| 72 3b 0a 58 09 20 20 20 | 20 65 72 72 6e 6f 20 3d |r;.X.   | errno =|
|00001980| 20 45 44 4f 4d 3b 09 09 | 2f 2a 20 77 68 61 74 20 | EDOM;..|/* what |
|00001990| 73 68 6f 75 6c 64 20 74 | 68 69 73 20 62 65 3f 20 |should t|his be? |
|000019a0| 2a 2f 0a 58 09 20 20 20 | 20 72 65 74 75 72 6e 20 |*/.X.   | return |
|000019b0| 5a 45 52 4f 3b 0a 58 09 | 7d 0a 58 09 0a 58 09 77 |ZERO;.X.|}.X..X.w|
|000019c0| 68 69 6c 65 20 28 64 70 | 20 3e 20 62 75 66 6f 72 |hile (dp| > bufor|
|000019d0| 67 20 26 26 20 64 70 5b | 2d 31 5d 20 3d 3d 20 27 |g && dp[|-1] == '|
|000019e0| 30 27 29 20 2d 2d 64 70 | 3b 0a 58 09 69 66 20 28 |0') --dp|;.X.if (|
|000019f0| 64 70 20 3d 3d 20 62 75 | 66 6f 72 67 29 20 2a 64 |dp == bu|forg) *d|
|00001a00| 70 2b 2b 20 3d 20 27 30 | 27 3b 0a 58 09 2a 64 70 |p++ = '0|';.X.*dp|
|00001a10| 20 3d 20 27 5c 30 27 3b | 0a 58 09 2f 2a 20 20 4e | = '\0';|.X./*  N|
|00001a20| 6f 77 20 74 68 65 20 63 | 6f 6e 74 65 6e 74 73 20 |ow the c|ontents |
|00001a30| 6f 66 20 62 75 66 66 65 | 72 20 61 72 65 0a 58 09 |of buffe|r are.X.|
|00001a40| 20 20 20 20 2b 2d 2d 2b | 2d 2d 2d 2d 2d 2d 2d 2d |    +--+|--------|
|00001a50| 2b 2d 2b 2d 2d 2d 2d 2d | 2d 2d 2d 2b 0a 58 09 20 |+-+-----|---+.X. |
|00001a60| 20 20 20 7c 30 2e 7c 66 | 72 61 63 74 69 6f 6e 7c |   |0.|f|raction||
|00001a70| 5c 7c 6c 65 66 74 6f 76 | 65 72 7c 0a 58 09 20 20 |\|leftov|er|.X.  |
|00001a80| 20 20 2b 2d 2d 2b 2d 2d | 2d 2d 2d 2d 2d 2d 2b 2d |  +--+--|------+-|
|00001a90| 2b 2d 2d 2d 2d 2d 2d 2d | 2d 2b 0a 58 09 09 09 20 |+-------|-+.X... |
|00001aa0| 5e 64 70 20 70 6f 69 6e | 74 73 20 68 65 72 65 0a |^dp poin|ts here.|
|00001ab0| 58 09 20 20 20 20 77 68 | 65 72 65 20 66 72 61 63 |X.    wh|ere frac|
|00001ac0| 74 69 6f 6e 20 62 65 67 | 69 6e 73 20 77 69 74 68 |tion beg|ins with|
|00001ad0| 20 30 20 69 66 66 20 69 | 74 20 69 73 20 22 30 22 | 0 iff i|t is "0"|
|00001ae0| 2c 20 61 6e 64 20 68 61 | 73 20 61 74 20 6d 6f 73 |, and ha|s at mos|
|00001af0| 74 0a 58 09 20 20 20 20 | 34 35 20 64 69 67 69 74 |t.X.    |45 digit|
|00001b00| 73 20 69 6e 20 69 74 2c | 20 61 6e 64 20 6c 65 66 |s in it,| and lef|
|00001b10| 74 6f 76 65 72 20 69 73 | 20 61 74 20 6c 65 61 73 |tover is| at leas|
|00001b20| 74 20 31 36 20 63 68 61 | 72 61 63 74 65 72 73 2e |t 16 cha|racters.|
|00001b30| 0a 58 09 2a 2f 0a 58 09 | 73 61 76 65 20 3d 20 73 |.X.*/.X.|save = s|
|00001b40| 70 2c 20 65 78 70 74 20 | 3d 20 30 2c 20 65 73 69 |p, expt |= 0, esi|
|00001b50| 67 6e 20 3d 20 31 3b 0a | 58 09 64 6f 20 7b 0a 58 |gn = 1;.|X.do {.X|
|00001b60| 09 20 20 20 20 63 20 3d | 20 2a 73 70 2b 2b 3b 0a |.    c =| *sp++;.|
|00001b70| 58 09 20 20 20 20 69 66 | 20 28 63 20 21 3d 20 27 |X.    if| (c != '|
|00001b80| 65 27 20 26 26 20 63 20 | 21 3d 20 27 45 27 29 20 |e' && c |!= 'E') |
|00001b90| 62 72 65 61 6b 3b 0a 58 | 09 20 20 20 20 63 20 3d |break;.X|.    c =|
|00001ba0| 20 2a 73 70 2b 2b 3b 0a | 58 09 20 20 20 20 69 66 | *sp++;.|X.    if|
|00001bb0| 20 28 63 20 3d 3d 20 27 | 2d 27 29 20 65 73 69 67 | (c == '|-') esig|
|00001bc0| 6e 20 2d 3d 20 32 2c 20 | 63 20 3d 20 2a 73 70 2b |n -= 2, |c = *sp+|
|00001bd0| 2b 3b 20 65 6c 73 65 0a | 58 09 20 20 20 20 69 66 |+; else.|X.    if|
|00001be0| 20 28 63 20 3d 3d 20 27 | 2b 27 20 7c 7c 20 63 20 | (c == '|+' || c |
|00001bf0| 3d 3d 20 27 20 27 29 20 | 63 20 3d 20 2a 73 70 2b |== ' ') |c = *sp+|
|00001c00| 2b 3b 0a 58 09 20 20 20 | 20 69 66 20 28 28 75 6e |+;.X.   | if ((un|
|00001c10| 73 69 67 6e 65 64 29 28 | 63 2d 27 30 27 29 20 3e |signed)(|c-'0') >|
|00001c20| 20 28 75 6e 73 69 67 6e | 65 64 29 28 27 39 27 2d | (unsign|ed)('9'-|
|00001c30| 27 30 27 29 29 20 62 72 | 65 61 6b 3b 0a 58 09 20 |'0')) br|eak;.X. |
|00001c40| 20 20 20 77 68 69 6c 65 | 20 28 63 20 3d 3d 20 27 |   while| (c == '|
|00001c50| 30 27 29 20 63 20 3d 20 | 2a 73 70 2b 2b 3b 0a 58 |0') c = |*sp++;.X|
|00001c60| 09 20 20 20 20 66 6f 72 | 20 28 3b 20 28 75 6e 73 |.    for| (; (uns|
|00001c70| 69 67 6e 65 64 29 28 63 | 2d 27 30 27 29 20 3c 3d |igned)(c|-'0') <=|
|00001c80| 20 28 75 6e 73 69 67 6e | 65 64 29 28 27 39 27 2d | (unsign|ed)('9'-|
|00001c90| 27 30 27 29 3b 20 63 20 | 3d 20 2a 73 70 2b 2b 29 |'0'); c |= *sp++)|
|00001ca0| 0a 58 09 09 65 78 70 74 | 20 3d 20 65 78 70 74 2a |.X..expt| = expt*|
|00001cb0| 31 30 20 2b 20 63 2d 27 | 30 27 3b 09 20 20 20 20 |10 + c-'|0';.    |
|00001cc0| 0a 58 09 20 20 20 20 69 | 66 20 28 65 73 69 67 6e |.X.    i|f (esign|
|00001cd0| 20 3c 20 30 29 20 65 78 | 70 74 20 3d 20 2d 65 78 | < 0) ex|pt = -ex|
|00001ce0| 70 74 3b 0a 58 09 20 20 | 20 20 73 61 76 65 20 3d |pt;.X.  |  save =|
|00001cf0| 20 73 70 2d 31 3b 0a 58 | 09 7d 20 77 68 69 6c 65 | sp-1;.X|.} while|
|00001d00| 20 28 30 29 3b 0a 58 09 | 69 66 20 28 70 74 72 29 | (0);.X.|if (ptr)|
|00001d10| 20 2a 70 74 72 20 3d 20 | 73 61 76 65 3b 0a 58 09 | *ptr = |save;.X.|
|00001d20| 65 78 70 74 20 2b 3d 20 | 73 63 61 6c 65 3b 0a 58 |expt += |scale;.X|
|00001d30| 09 2f 2a 20 20 4e 6f 77 | 20 74 68 65 20 6e 75 6d |./*  Now| the num|
|00001d40| 62 65 72 20 69 73 20 73 | 69 67 6e 2a 30 2e 66 72 |ber is s|ign*0.fr|
|00001d50| 61 63 74 69 6f 6e 2a 31 | 30 2a 2a 65 78 70 74 20 |action*1|0**expt |
|00001d60| 20 2a 2f 0a 58 09 65 72 | 72 6e 6f 20 3d 20 45 52 | */.X.er|rno = ER|
|00001d70| 41 4e 47 45 3b 0a 58 09 | 69 66 20 28 65 78 70 74 |ANGE;.X.|if (expt|
|00001d80| 20 3e 20 4d 44 4d 41 58 | 45 58 50 54 29 20 7b 0a | > MDMAX|EXPT) {.|
|00001d90| 58 09 20 20 20 20 72 65 | 74 75 72 6e 20 48 55 47 |X.    re|turn HUG|
|00001da0| 45 2a 73 69 67 6e 3b 0a | 58 09 7d 20 65 6c 73 65 |E*sign;.|X.} else|
|00001db0| 0a 58 09 69 66 20 28 65 | 78 70 74 20 3d 3d 20 4d |.X.if (e|xpt == M|
|00001dc0| 44 4d 41 58 45 58 50 54 | 29 20 7b 0a 58 09 20 20 |DMAXEXPT|) {.X.  |
|00001dd0| 20 20 69 66 20 28 73 74 | 72 63 6d 70 28 62 75 66 |  if (st|rcmp(buf|
|00001de0| 6f 72 67 2c 20 4d 44 4d | 41 58 46 52 41 43 29 20 |org, MDM|AXFRAC) |
|00001df0| 3e 20 30 29 20 72 65 74 | 75 72 6e 20 48 55 47 45 |> 0) ret|urn HUGE|
|00001e00| 2a 73 69 67 6e 3b 0a 58 | 09 7d 20 65 6c 73 65 0a |*sign;.X|.} else.|
|00001e10| 58 09 69 66 20 28 65 78 | 70 74 20 3c 20 4d 44 4d |X.if (ex|pt < MDM|
|00001e20| 49 4e 45 58 50 54 29 20 | 7b 0a 58 09 20 20 20 20 |INEXPT) |{.X.    |
|00001e30| 72 65 74 75 72 6e 20 5a | 45 52 4f 2a 73 69 67 6e |return Z|ERO*sign|
|00001e40| 3b 0a 58 09 7d 20 65 6c | 73 65 0a 58 09 69 66 20 |;.X.} el|se.X.if |
|00001e50| 28 65 78 70 74 20 3d 3d | 20 4d 44 4d 49 4e 45 58 |(expt ==| MDMINEX|
|00001e60| 50 54 29 20 7b 0a 58 09 | 20 20 20 20 69 66 20 28 |PT) {.X.|    if (|
|00001e70| 73 74 72 63 6d 70 28 62 | 75 66 6f 72 67 2c 20 4d |strcmp(b|uforg, M|
|00001e80| 44 4d 49 4e 46 52 41 43 | 29 20 3c 20 30 29 20 72 |DMINFRAC|) < 0) r|
|00001e90| 65 74 75 72 6e 20 5a 45 | 52 4f 2a 73 69 67 6e 3b |eturn ZE|RO*sign;|
|00001ea0| 0a 58 09 7d 0a 58 09 2f | 2a 20 20 57 65 20 68 61 |.X.}.X./|*  We ha|
|00001eb0| 76 65 20 6e 6f 77 20 65 | 73 74 61 62 6c 69 73 68 |ve now e|stablish|
|00001ec0| 65 64 20 74 68 61 74 20 | 74 68 65 20 6e 75 6d 62 |ed that |the numb|
|00001ed0| 65 72 20 63 61 6e 20 62 | 65 20 20 2a 2f 0a 58 09 |er can b|e  */.X.|
|00001ee0| 2f 2a 20 20 72 65 70 72 | 65 73 65 6e 74 65 64 20 |/*  repr|esented |
|00001ef0| 77 69 74 68 6f 75 74 20 | 6f 76 65 72 66 6c 6f 77 |without |overflow|
|00001f00| 20 6f 72 20 75 6e 64 65 | 72 66 6c 6f 77 20 20 2a | or unde|rflow  *|
|00001f10| 2f 0a 58 09 28 76 6f 69 | 64 29 20 73 70 72 69 6e |/.X.(voi|d) sprin|
|00001f20| 74 66 28 64 70 2c 20 22 | 45 25 64 22 2c 20 65 78 |tf(dp, "|E%d", ex|
|00001f30| 70 74 29 3b 0a 58 09 65 | 72 72 6e 6f 20 3d 20 30 |pt);.X.e|rrno = 0|
|00001f40| 3b 0a 58 09 72 65 74 75 | 72 6e 20 61 74 6f 66 28 |;.X.retu|rn atof(|
|00001f50| 62 75 66 66 65 72 29 2a | 73 69 67 6e 3b 0a 58 20 |buffer)*|sign;.X |
|00001f60| 20 20 20 7d 0a 58 0a 2d | 2d 2d 2d 2d 2d 20 45 4f |   }.X.-|----- EO|
|00001f70| 46 20 2d 2d 2d 2d 2d 2d | 0a 6c 73 20 2d 6c 20 73 |F ------|.ls -l s|
|00001f80| 74 72 32 64 62 6c 2e 63 | 0a 65 78 69 74 20 30 0a |tr2dbl.c|.exit 0.|
+--------+-------------------------+-------------------------+--------+--------+