Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Integer.st
changeset 4921 9fd46bc1b6ab
parent 4918 c89047114a1e
child 4949 4c0462bd4d6a 
--- a/Integer.st	Tue Oct 19 16:38:09 1999 +0200
+++ b/Integer.st	Tue Oct 19 16:38:52 1999 +0200
@@ -173,7 +173,12 @@
     ^ val
 
     "
-     Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90]
+     Integer fromBCDBytes:#[16r12 16r34 16r56]    
+     Integer fromBCDBytes:#[16r12 16r34 16r56 16r78]   
+     Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90] 
+     Integer fromBCDBytes:#[16r98 16r76 16r54] 
+     Integer fromBCDBytes:#[16r98 16r76 16r54 16r32] 
+     Integer fromBCDBytes:#[16r98 16r76 16r54 16r32 16r10] 
      Integer fromBCDBytes:#[16r12 16r34 16r56 16r78 16r90 16r12 16r34 16r56 16r78 16r90]
     "
 !
@@ -481,8 +486,17 @@
     ^ rslt
 
     "
+     16r1073741823 decodeFromBCD       
+     16r1073741824 decodeFromBCD       
+     16r1073741825 decodeFromBCD       
+
      16r55 decodeFromBCD   
      16r127 decodeFromBCD    
+     16r800000 decodeFromBCD    
+     16r8000000 decodeFromBCD    
+     16r80000000 decodeFromBCD    
+     16r800000000 decodeFromBCD    
+     16r127567890 decodeFromBCD    
      16r1234567890 decodeFromBCD     
 
      16r5A decodeFromBCD   
@@ -507,7 +521,17 @@
 
     "
      55 encodeAsBCD hexPrintString 
-     127 encodeAsBCD hexPrintString 
+     127 encodeAsBCD hexPrintString        
+     127 encodeAsBCD hexPrintString        
+     8912345 encodeAsBCD hexPrintString        
+     89123456 encodeAsBCD hexPrintString        
+     891234567 encodeAsBCD hexPrintString        
+     900000000 encodeAsBCD hexPrintString        
+     1073741823 encodeAsBCD hexPrintString       
+     1073741824 encodeAsBCD hexPrintString       
+     1073741825 encodeAsBCD hexPrintString       
+     1891234567 encodeAsBCD hexPrintString        
+     8912345678 encodeAsBCD hexPrintString        
      1234567890 encodeAsBCD hexPrintString  
     "
 
@@ -2457,5 +2481,5 @@
 !Integer class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.115 1999-10-19 11:57:47 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Integer.st,v 1.116 1999-10-19 14:38:52 cg Exp $'
 ! !
hg/stx-libbasic