--- a/ByteArray.st Thu Feb 16 20:15:06 2017 +0100
+++ b/ByteArray.st Thu Feb 16 20:15:32 2017 +0100
@@ -1,3 +1,5 @@
+"{ Encoding: utf8 }"
+
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -3212,6 +3214,22 @@
!
+isEmpty
+ "return true if the receiver is empty (i.e. if size == 0)
+ Redefined here for performance"
+
+%{ /* NOCONTEXT */
+#ifndef __SCHTEAM__
+ if (__isByteArrayLike(self)) {
+ RETURN ( (__byteArraySize(self) == 0) ? true : false);
+ }
+#endif /* ! __SCHTEAM__ */
+%}.
+ ^ self size == 0
+
+ "Created: / 16-02-2017 / 15:02:03 / stefan"
+!
+
isLiteral
"return true, if the receiver can be used as a literal constant in ST syntax
(i.e. can be used in constant arrays)"
@@ -3223,6 +3241,22 @@
^ self class == ByteArray
"Modified: 22.4.1996 / 12:55:30 / cg"
+!
+
+notEmpty
+ "return true if the receiver is not empty (i.e. if size ~~ 0)
+ Redefined here for performance"
+
+%{ /* NOCONTEXT */
+#ifndef __SCHTEAM__
+ if (__isByteArrayLike(self)) {
+ RETURN ( (__byteArraySize(self) != 0) ? true : false);
+ }
+#endif /* ! __SCHTEAM__ */
+%}.
+ ^ self size ~~ 0
+
+ "Created: / 16-02-2017 / 15:02:36 / stefan"
! !