steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

serialize: Remove code for handling complex and ratio values since those are tuples now

db4
Slava Pestov 2009-05-15 17:18:56 -05:00
parent dedbd14945
commit 79f5c30a7a
1 changed files with 0 additions and 18 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
basis/serialize/serialize.factor
View File

@ -90,16 +90,6 @@ M: float (serialize) ( obj -- )
CHAR: F write1 CHAR: F write1
double>bits serialize-cell ; double>bits serialize-cell ;
M: complex (serialize) ( obj -- )
CHAR: c write1
[ real-part (serialize) ]
[ imaginary-part (serialize) ] bi ;
M: ratio (serialize) ( obj -- )
CHAR: r write1
[ numerator (serialize) ]
[ denominator (serialize) ] bi ;
: serialize-seq ( obj code -- ) : serialize-seq ( obj code -- )
[ [
write1 write1
@ -205,12 +195,6 @@ SYMBOL: deserialized
: deserialize-float ( -- float ) : deserialize-float ( -- float )
deserialize-cell bits>double ; deserialize-cell bits>double ;
: deserialize-ratio ( -- ratio )
(deserialize) (deserialize) / ;
: deserialize-complex ( -- complex )
(deserialize) (deserialize) rect> ;
: (deserialize-string) ( -- string ) : (deserialize-string) ( -- string )
deserialize-cell read utf8 decode ; deserialize-cell read utf8 decode ;
@ -279,7 +263,6 @@ SYMBOL: deserialized
{ CHAR: T [ deserialize-tuple ] } { CHAR: T [ deserialize-tuple ] }
{ CHAR: W [ deserialize-wrapper ] } { CHAR: W [ deserialize-wrapper ] }
{ CHAR: a [ deserialize-array ] } { CHAR: a [ deserialize-array ] }
{ CHAR: c [ deserialize-complex ] }
{ CHAR: h [ deserialize-hashtable ] } { CHAR: h [ deserialize-hashtable ] }
{ CHAR: m [ deserialize-negative-integer ] } { CHAR: m [ deserialize-negative-integer ] }
{ CHAR: n [ deserialize-false ] } { CHAR: n [ deserialize-false ] }
@ -287,7 +270,6 @@ SYMBOL: deserialized
{ CHAR: o [ deserialize-unknown ] } { CHAR: o [ deserialize-unknown ] }
{ CHAR: p [ deserialize-positive-integer ] } { CHAR: p [ deserialize-positive-integer ] }
{ CHAR: q [ deserialize-quotation ] } { CHAR: q [ deserialize-quotation ] }
{ CHAR: r [ deserialize-ratio ] }
{ CHAR: s [ deserialize-string ] } { CHAR: s [ deserialize-string ] }
{ CHAR: w [ deserialize-word ] } { CHAR: w [ deserialize-word ] }
{ CHAR: G [ deserialize-word ] } { CHAR: G [ deserialize-word ] }