ber: Make it possible to compare tags

2011-04-02 11:01:58 +02:00 · 2011-04-02 11:01:58 +02:00 · b77da9be3f
parent 04440b5525
commit b77da9be3f
1 changed files with 7 additions and 0 deletions
--- a/BERTLVStream.st
+++ b/BERTLVStream.st
@ -107,6 +107,13 @@ Object subclass: BERTag [
        constructed := false.
    ]

+    = aOther [
+        <category: 'compare'>
+
+        (aOther isKindOf: self class) ifTrue: [^self asTuple = aOther asTuple].
+        ^ self asTuple = aOther.
+    ]
+
    parseExtendedTag: aStream [
        <category: 'decoding'>