#QUALITY by cg
authorClaus Gittinger <cg@exept.de>
Mon, 25 Mar 2019 14:33:27 +0100
changeset 4918 fbda05fa45dc
parent 4917 985b36efa9e6
child 4919 1594f0a70c62
#QUALITY by cg class: CRC16Stream class changed: #newCCITT #newCCITT_1D0F #newCRC_16 #newXMODEM
CRC16Stream.st
--- a/CRC16Stream.st	Mon Mar 25 11:18:17 2019 +0100
+++ b/CRC16Stream.st	Mon Mar 25 14:33:27 2019 +0100
@@ -182,11 +182,11 @@
         x16 + x12 + x5 + 1 "
 
     "/ 16r1021 bitReversed16 => 16r8408
+    self error:'currently broken'.
     ^ self generatorPolynomMSB:16r1021 initValue:16rFFFF xorOut:0
 
     "Created: / 16-03-2019 / 21:13:11 / Claus Gittinger"
-    "Modified: / 24-03-2019 / 11:10:18 / Claus Gittinger"
-    "Modified (comment): / 24-03-2019 / 20:57:44 / Claus Gittinger"
+    "Modified: / 25-03-2019 / 14:32:39 / Claus Gittinger"
 !
 
 newCCITT_1D0F
@@ -194,9 +194,11 @@
         x16 + x12 + x5 + 1 "
 
     "/ 16r1021 bitReversed16 => 16r8408
+    self error:'currently broken'.
     ^ self generatorPolynomMSB:16r1021 initValue:16r1D0F xorOut:0
 
     "Created: / 24-03-2019 / 20:57:32 / Claus Gittinger"
+    "Modified: / 25-03-2019 / 14:33:05 / Claus Gittinger"
 !
 
 newCRC_16
@@ -204,9 +206,11 @@
         x16 + x15 + x2 + 1 "
 
     "/ 16r8005 bitReversed16 => 16rA001
+    self error:'currently broken'.
     ^ self generatorPolynomMSB:16rA001 initValue:0 xorOut:16rFFFF
 
     "Created: / 17-03-2019 / 13:59:52 / Claus Gittinger"
+    "Modified: / 25-03-2019 / 14:32:06 / Claus Gittinger"
 !
 
 newDNP
@@ -254,11 +258,13 @@
     "return an instance of the XMODEM protocol
         x16 + x12 + x5 + 1
         1 2r0001000000100001 "
+        
+    self error:'currently broken'.
     ^ self generatorPolynom:16r1021 initValue:0 xorOut:0
     "/ ^ self generatorPolynomMSB:16r1021 initValue:0 xorOut:0
 
     "Created: / 24-03-2019 / 20:16:08 / Claus Gittinger"
-    "Modified: / 24-03-2019 / 21:20:08 / Claus Gittinger"
+    "Modified: / 25-03-2019 / 14:31:41 / Claus Gittinger"
 ! !
 
 !CRC16Stream class methodsFor:'queries'!