Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] Diff of /sml/trunk/src/smlnj-lib/Util/format.sml
ViewVC logotype

Diff of /sml/trunk/src/smlnj-lib/Util/format.sml

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 3, Sat Oct 4 23:33:46 1997 UTC revision 469, Wed Nov 10 22:42:52 1999 UTC
# Line 152  Line 152 
152                    case (ty, arg)                    case (ty, arg)
153                     of (OctalField, LINT i) => octal i                     of (OctalField, LINT i) => octal i
154                      | (OctalField, INT i) => octal(Int.toLarge i)                      | (OctalField, INT i) => octal(Int.toLarge i)
155                        | (OctalField, WORD w) => octal(Word.toLargeInt w)
156                        | (OctalField, LWORD w) => raise Fail "LWORD"
157                        | (OctalField, WORD8 w) => octal(Word8.toLargeInt w)
158                      | (IntField, LINT i) => decimal i                      | (IntField, LINT i) => decimal i
159                      | (IntField, INT i) => decimal(Int.toLarge i)                      | (IntField, INT i) => decimal(Int.toLarge i)
160                        | (IntField, WORD w) => decimal(Word.toLargeInt w)
161                        | (IntField, LWORD w) => raise Fail "LWORD"
162                        | (IntField, WORD8 w) => decimal(Word8.toLargeInt w)
163                      | (HexField, LINT i) => hexidecimal i                      | (HexField, LINT i) => hexidecimal i
164                      | (HexField, INT i) => hexidecimal(Int.toLarge i)                      | (HexField, INT i) => hexidecimal(Int.toLarge i)
165                        | (HexField, WORD w) => hexidecimal(Word.toLargeInt w)
166                        | (HexField, LWORD w) => raise Fail "LWORD"
167                        | (HexField, WORD8 w) => hexidecimal(Word8.toLargeInt w)
168                      | (CapHexField, LINT i) => capHexidecimal i                      | (CapHexField, LINT i) => capHexidecimal i
169                      | (CapHexField, INT i) => capHexidecimal(Int.toLarge i)                      | (CapHexField, INT i) => capHexidecimal(Int.toLarge i)
170                        | (CapHexField, WORD w) => capHexidecimal(Word.toLargeInt w)
171                        | (CapHexField, LWORD w) => raise Fail "LWORD"
172                        | (CapHexField, WORD8 w) => capHexidecimal(Word8.toLargeInt w)
173                      | (CharField, CHR c) => padFn(String.str c)                      | (CharField, CHR c) => padFn(String.str c)
174                      | (BoolField, BOOL false) => padFn "false"                      | (BoolField, BOOL false) => padFn "false"
175                      | (BoolField, BOOL true) => padFn "true"                      | (BoolField, BOOL true) => padFn "true"

Legend:
Removed from v.3  
changed lines
  Added in v.469

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0