--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/.hgignore Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,23 @@
+syntax: glob
+*.chg
+*~
+*.orig
+*.o
+*.so
+*.sc
+*Init.c
+*.H
+*.STH
+*/makefile
+*/docs/output/*
+*/docs/*.xml.profiled
+
+*/objbc
+*/objvc
+*.res
+*-Test.xml
+*.base
+*.orig
+*.local
+*.other
+makefile
--- a/AbortOperationRequest.st Sun May 24 14:53:14 2015 +0200
+++ b/AbortOperationRequest.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
AbortAllOperationRequest subclass:#AbortOperationRequest
@@ -64,7 +63,14 @@
!AbortOperationRequest class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AbortOperationRequest.st,v 1.5 2005-01-11 17:04:57 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AbortOperationRequest.st,v 1.5 2005/01/11 17:04:57 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: AbortOperationRequest.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
AbortOperationRequest initialize!
+
+
+
--- a/ActivityNotification.st Sun May 24 14:53:14 2015 +0200
+++ b/ActivityNotification.st Mon May 25 06:37:39 2015 +0200
@@ -74,7 +74,14 @@
!ActivityNotification class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ActivityNotification.st,v 1.4 2008-10-04 08:42:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ActivityNotification.st,v 1.4 2008/10/04 08:42:14 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ActivityNotification.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
ActivityNotification initialize!
+
+
+
--- a/AllocationFailure.st Sun May 24 14:53:14 2015 +0200
+++ b/AllocationFailure.st Mon May 25 06:37:39 2015 +0200
@@ -40,9 +40,14 @@
"
! !
+
!AllocationFailure class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/AllocationFailure.st,v 1.6 2013-03-13 23:47:13 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: AllocationFailure.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ArgumentError.st Sun May 24 14:53:14 2015 +0200
+++ b/ArgumentError.st Mon May 25 06:37:39 2015 +0200
@@ -50,6 +50,10 @@
version
^ '$Header: /cvs/stx/stx/libbasic/ArgumentError.st,v 1.4 2013-12-16 13:36:35 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ArgumentError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ArithmeticError.st Sun May 24 14:53:14 2015 +0200
+++ b/ArithmeticError.st Mon May 25 06:37:39 2015 +0200
@@ -40,9 +40,14 @@
"
! !
+
!ArithmeticError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/ArithmeticError.st,v 1.8 2013-03-13 23:44:07 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ArithmeticError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/Array.st Sun May 24 14:53:14 2015 +0200
+++ b/Array.st Mon May 25 06:37:39 2015 +0200
@@ -326,15 +326,18 @@
if (__isSmallInteger(index)) {
indx = __intVal(index) - 1;
slf = self;
-
+ cls = __qClass(slf);
nIndex = __BYTES2OBJS__(__qSize(slf) - OHDR_SIZE);
- if ((cls = __qClass(slf)) != Array) {
- if (indx < 0) goto badIndex;
- indx += __intVal(__ClassInstPtr(cls)->c_ninstvars);
+ if (cls == Array) {
+ fetch:
+ if ((unsigned INT)indx < (unsigned INT)nIndex) {
+ RETURN ( __InstPtr(slf)->i_instvars[indx] );
+ }
+ goto badIndex;
}
- if ((unsigned INT)indx < (unsigned INT)nIndex) {
- RETURN ( __InstPtr(slf)->i_instvars[indx] );
- }
+ if (indx < 0) goto badIndex;
+ indx += __intVal(__ClassInstPtr(cls)->c_ninstvars);
+ goto fetch;
}
badIndex: ;
#endif /* not SCHTEAM */
@@ -367,17 +370,20 @@
if (__isSmallInteger(index)) {
indx = __intVal(index) - 1;
slf = self;
-
+ cls = __qClass(slf);
nIndex = __BYTES2OBJS__(__qSize(slf) - OHDR_SIZE);
- if ((cls = __qClass(slf)) != Array) {
- if (indx < 0) goto badIndex;
- indx += __intVal(__ClassInstPtr(cls)->c_ninstvars);
+ if (cls == Array) {
+ store:
+ if ((unsigned INT)indx < (unsigned INT)nIndex) {
+ __InstPtr(slf)->i_instvars[indx] = anObject;
+ __STORE(slf, anObject);
+ RETURN ( anObject );
+ }
+ goto badIndex;
}
- if ((unsigned INT)indx < (unsigned INT)nIndex) {
- __InstPtr(slf)->i_instvars[indx] = anObject;
- __STORE(slf, anObject);
- RETURN ( anObject );
- }
+ if (indx < 0) goto badIndex;
+ indx += __intVal(__ClassInstPtr(cls)->c_ninstvars);
+ goto store;
}
badIndex: ;
#endif /* not SCHTEAM */
--- a/AspectVisitor.st Sun May 24 14:53:14 2015 +0200
+++ b/AspectVisitor.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Visitor subclass:#AspectVisitor
@@ -131,5 +130,12 @@
!AspectVisitor class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AspectVisitor.st,v 1.1 2004-06-11 17:55:26 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AspectVisitor.st,v 1.1 2004/06/11 17:55:26 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: AspectVisitor.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/AssertionFailedError.st Sun May 24 14:53:14 2015 +0200
+++ b/AssertionFailedError.st Mon May 25 06:37:39 2015 +0200
@@ -43,5 +43,12 @@
!AssertionFailedError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/AssertionFailedError.st,v 1.3 2008-09-30 18:09:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/AssertionFailedError.st,v 1.3 2008/09/30 18:09:46 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: AssertionFailedError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/BadLiteralsError.st Sun May 24 14:53:14 2015 +0200
+++ b/BadLiteralsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
InvalidCodeError subclass:#BadLiteralsError
@@ -50,7 +49,14 @@
!BadLiteralsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/BadLiteralsError.st,v 1.4 2003-09-05 10:27:45 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BadLiteralsError.st,v 1.4 2003/09/05 10:27:45 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: BadLiteralsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
BadLiteralsError initialize!
+
+
+
--- a/BadRomanNumberFormatError.st Sun May 24 14:53:14 2015 +0200
+++ b/BadRomanNumberFormatError.st Mon May 25 06:37:39 2015 +0200
@@ -43,5 +43,8 @@
!BadRomanNumberFormatError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/BadRomanNumberFormatError.st,v 1.3 2008-08-06 09:52:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BadRomanNumberFormatError.st,v 1.3 2008/08/06 09:52:59 cg Exp $'
! !
+
+
+
--- a/Behavior.st Sun May 24 14:53:14 2015 +0200
+++ b/Behavior.st Mon May 25 06:37:39 2015 +0200
@@ -2543,7 +2543,11 @@
# if ! defined(FAST_ARRAY_MEMSET)
REGISTER char *cp;
short *sp;
- long *lp;
+# if defined(__i386__) || defined(__x86__) || defined(__x86_64__) || defined(__sparc__)
+ int *lp;
+# else
+# error "please (conditionally) declare lp as pointer to 4byte integer type"
+# endif
# endif
REGISTER OBJ *op;
float *fp;
@@ -2687,8 +2691,12 @@
# else
op = __InstPtr(newobj)->i_instvars;
while (nInstVars--)
- *op++ = nil;
- lp = (long *)op;
+ *op++ = nil;
+# if defined(__i386__) || defined(__x86__) || defined(__x86_64__) || defined(__sparc__)
+ lp = (int *)op;
+# else
+# error "please (conditionally) cast op to pointer to 4byte integer type"
+# endif
while (nindexedinstvars--)
*lp++ = 0;
# endif
--- a/BreakPointInterrupt.st Sun May 24 14:53:14 2015 +0200
+++ b/BreakPointInterrupt.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
HaltInterrupt subclass:#BreakPointInterrupt
@@ -45,5 +44,12 @@
!BreakPointInterrupt class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/BreakPointInterrupt.st,v 1.3 2003-08-29 19:18:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/BreakPointInterrupt.st,v 1.3 2003/08/29 19:18:16 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: BreakPointInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/CachingRegistry.st Sun May 24 14:53:14 2015 +0200
+++ b/CachingRegistry.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,7 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
+"{ Package: 'stx:libbasic' }"
"{ Package: 'stx:libbasic' }"
Registry subclass:#CachingRegistry
@@ -94,4 +94,11 @@
version
^ '$Header: /cvs/stx/stx/libbasic/CachingRegistry.st,v 1.2 2015-04-21 16:01:16 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CachingRegistry.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/CannotResumeError.st Sun May 24 14:53:14 2015 +0200
+++ b/CannotResumeError.st Mon May 25 06:37:39 2015 +0200
@@ -51,5 +51,9 @@
version_CVS
^ '$Header: /cvs/stx/stx/libbasic/CannotResumeError.st,v 1.6 2013-12-24 10:39:51 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CannotResumeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/CannotReturnError.st Sun May 24 14:53:14 2015 +0200
+++ b/CannotReturnError.st Mon May 25 06:37:39 2015 +0200
@@ -51,5 +51,9 @@
version_CVS
^ '$Header: /cvs/stx/stx/libbasic/CannotReturnError.st,v 1.6 2013-12-24 10:39:59 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CannotReturnError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/CharacterArray.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterArray.st Mon May 25 06:37:39 2015 +0200
@@ -6449,7 +6449,11 @@
]
].
- str := self species new:newSz.
+ self isText ifTrue:[
+ str := Text string: (self string class new: newSz).
+ ] ifFalse:[
+ str := self species new:newSz.
+ ].
hasEmphasis := self hasChangeOfEmphasis.
@@ -6503,7 +6507,8 @@
with:$2) withTabsExpanded
"
- "Modified: 12.5.1996 / 13:05:10 / cg"
+ "Modified: / 12-05-1996 / 13:05:10 / cg"
+ "Modified: / 21-04-2015 / 15:40:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
withoutAllSpaces
@@ -6829,7 +6834,6 @@
"
! !
-
!CharacterArray methodsFor:'substring searching'!
findRangeOfString:subString
@@ -7438,6 +7442,11 @@
version_CVS
^ '$Header: /cvs/stx/stx/libbasic/CharacterArray.st,v 1.588 2015-05-23 12:47:44 cg Exp $'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !
--- a/CharacterEncoderImplementations__ASCII.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__ASCII.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -241,5 +240,12 @@
!ASCII class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ASCII.st,v 1.4 2005-03-31 18:12:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ASCII.st,v 1.4 2005/03/31 18:12:07 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__ASCII.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__BIG5.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__BIG5.st Mon May 25 06:37:39 2015 +0200
@@ -52,5 +52,8 @@
!BIG5 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__BIG5.st,v 1.3 2004-03-09 21:59:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__BIG5.st,v 1.3 2004/03/09 21:59:35 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__CNS11643.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__CNS11643.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!CNS11643 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__CNS11643.st,v 1.3 2004-03-09 21:59:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__CNS11643.st,v 1.3 2004/03/09 21:59:27 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__CP437.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__CP437.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -933,5 +932,9 @@
!CP437 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__CP437.st,v 1.4 2005-03-31 18:12:18 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__CP437.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__CP437.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__GB2313_1980.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__GB2313_1980.st Mon May 25 06:37:39 2015 +0200
@@ -52,5 +52,8 @@
!GB2313_1980 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__GB2313_1980.st,v 1.3 2004-03-09 21:57:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__GB2313_1980.st,v 1.3 2004/03/09 21:57:26 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__HANGUL.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__HANGUL.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!HANGUL class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__HANGUL.st,v 1.3 2004-03-09 21:57:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__HANGUL.st,v 1.3 2004/03/09 21:57:59 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__ISO10646_1.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__ISO10646_1.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -64,5 +63,12 @@
!ISO10646_1 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_1.st,v 1.4 2004-03-09 22:00:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_1.st,v 1.4 2004/03/09 22:00:08 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__ISO10646_1.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__ISO10646_to_SGML.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__ISO10646_to_SGML.st Mon May 25 06:37:39 2015 +0200
@@ -145,7 +145,7 @@
"
CharacterEncoderImplementations::ISO10646_to_SGML
- encodeString:'hello '
+ encodeString:'hello '
"
"Modified: / 23-10-2006 / 13:25:27 / cg"
@@ -154,5 +154,8 @@
!ISO10646_to_SGML class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_to_SGML.st,v 1.3 2006-10-23 11:25:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO10646_to_SGML.st,v 1.3 2006/10/23 11:25:11 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__ISO8859_11.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__ISO8859_11.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -596,5 +595,9 @@
!ISO8859_11 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO8859_11.st,v 1.4 2005-03-31 18:12:32 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__ISO8859_11.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__ISO8859_11.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__ISO8859_2.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__ISO8859_2.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -766,5 +765,12 @@
!ISO8859_2 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO8859_2.st,v 1.4 2005-03-31 18:12:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__ISO8859_2.st,v 1.4 2005/03/31 18:12:47 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__ISO8859_2.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JIS0201.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JIS0201.st Mon May 25 06:37:39 2015 +0200
@@ -558,5 +558,8 @@
!JIS0201 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0201.st,v 1.3 2004-03-09 21:59:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0201.st,v 1.3 2004/03/09 21:59:06 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JIS0208.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JIS0208.st Mon May 25 06:37:39 2015 +0200
@@ -28646,5 +28646,8 @@
!JIS0208 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208.st,v 1.4 2008-10-30 19:54:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208.st,v 1.4 2008/10/30 19:54:58 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JIS0208_to_EUC.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JIS0208_to_EUC.st Mon May 25 06:37:39 2015 +0200
@@ -332,5 +332,8 @@
!JIS0208_to_EUC class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_EUC.st,v 1.4 2005-07-08 17:15:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_EUC.st,v 1.4 2005/07/08 17:15:01 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JIS0208_to_JIS7.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JIS0208_to_JIS7.st Mon May 25 06:37:39 2015 +0200
@@ -372,5 +372,8 @@
!JIS0208_to_JIS7 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_JIS7.st,v 1.7 2004-03-12 09:15:11 ca Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0208_to_JIS7.st,v 1.7 2004/03/12 09:15:11 ca Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JIS0212.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JIS0212.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!JIS0212 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0212.st,v 1.3 2004-03-09 21:58:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JIS0212.st,v 1.3 2004/03/09 21:58:52 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__JOHAB.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__JOHAB.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!JOHAB class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JOHAB.st,v 1.3 2004-03-09 21:57:37 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__JOHAB.st,v 1.3 2004/03/09 21:57:37 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__KSC5601.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__KSC5601.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!KSC5601 class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__KSC5601.st,v 1.3 2004-03-09 21:58:35 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__KSC5601.st,v 1.3 2004/03/09 21:58:35 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Arabic.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Arabic.st Mon May 25 06:37:39 2015 +0200
@@ -584,5 +584,8 @@
!MAC_Arabic class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Arabic.st,v 1.3 2004-03-09 21:59:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Arabic.st,v 1.3 2004/03/09 21:59:43 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_CentralEuropean.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_CentralEuropean.st Mon May 25 06:37:39 2015 +0200
@@ -373,5 +373,8 @@
!MAC_CentralEuropean class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_CentralEuropean.st,v 1.3 2004-03-09 21:57:41 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_CentralEuropean.st,v 1.3 2004/03/09 21:57:41 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Croatian.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Croatian.st Mon May 25 06:37:39 2015 +0200
@@ -399,5 +399,8 @@
!MAC_Croatian class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Croatian.st,v 1.3 2004-03-09 22:00:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Croatian.st,v 1.3 2004/03/09 22:00:00 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Cyrillic.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Cyrillic.st Mon May 25 06:37:39 2015 +0200
@@ -398,5 +398,8 @@
!MAC_Cyrillic class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Cyrillic.st,v 1.3 2004-03-09 21:57:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Cyrillic.st,v 1.3 2004/03/09 21:57:56 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Dingbats.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Dingbats.st Mon May 25 06:37:39 2015 +0200
@@ -375,5 +375,8 @@
!MAC_Dingbats class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Dingbats.st,v 1.3 2004-03-09 22:01:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Dingbats.st,v 1.3 2004/03/09 22:01:02 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Farsi.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Farsi.st Mon May 25 06:37:39 2015 +0200
@@ -569,5 +569,8 @@
!MAC_Farsi class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Farsi.st,v 1.3 2004-03-09 22:00:02 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Farsi.st,v 1.3 2004/03/09 22:00:02 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Greek.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Greek.st Mon May 25 06:37:39 2015 +0200
@@ -847,5 +847,8 @@
!MAC_Greek class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Greek.st,v 1.3 2004-03-09 21:59:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Greek.st,v 1.3 2004/03/09 21:59:52 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Hebrew.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Hebrew.st Mon May 25 06:37:39 2015 +0200
@@ -611,5 +611,8 @@
!MAC_Hebrew class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Hebrew.st,v 1.3 2004-03-09 22:01:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Hebrew.st,v 1.3 2004/03/09 22:01:14 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Iceland.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Iceland.st Mon May 25 06:37:39 2015 +0200
@@ -417,5 +417,8 @@
!MAC_Iceland class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Iceland.st,v 1.3 2004-03-09 21:59:24 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Iceland.st,v 1.3 2004/03/09 21:59:24 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Japanese.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Japanese.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!MAC_Japanese class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Japanese.st,v 1.3 2004-03-09 21:59:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Japanese.st,v 1.3 2004/03/09 21:59:58 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Korean.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Korean.st Mon May 25 06:37:39 2015 +0200
@@ -46,5 +46,8 @@
!MAC_Korean class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Korean.st,v 1.3 2004-03-09 21:58:29 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Korean.st,v 1.3 2004/03/09 21:58:29 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Romanian.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Romanian.st Mon May 25 06:37:39 2015 +0200
@@ -414,5 +414,8 @@
!MAC_Romanian class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Romanian.st,v 1.3 2004-03-09 21:58:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Romanian.st,v 1.3 2004/03/09 21:58:05 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Symbol.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Symbol.st Mon May 25 06:37:39 2015 +0200
@@ -445,5 +445,8 @@
!MAC_Symbol class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Symbol.st,v 1.3 2004-03-09 21:57:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Symbol.st,v 1.3 2004/03/09 21:57:44 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Thai.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Thai.st Mon May 25 06:37:39 2015 +0200
@@ -432,5 +432,8 @@
!MAC_Thai class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Thai.st,v 1.3 2004-03-09 21:59:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Thai.st,v 1.3 2004/03/09 21:59:00 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MAC_Turkish.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MAC_Turkish.st Mon May 25 06:37:39 2015 +0200
@@ -389,5 +389,8 @@
!MAC_Turkish class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Turkish.st,v 1.3 2004-03-09 21:59:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MAC_Turkish.st,v 1.3 2004/03/09 21:59:55 cg Exp $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MS_Arabic.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Arabic.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -839,5 +838,9 @@
!MS_Arabic class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Arabic.st,v 1.4 2005-03-31 18:48:44 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__MS_Arabic.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__MS_Arabic.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__MS_Baltic.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Baltic.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -852,5 +851,12 @@
!MS_Baltic class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Baltic.st,v 1.4 2005-03-31 18:48:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Baltic.st,v 1.4 2005/03/31 18:48:58 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__MS_Baltic.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MS_Cyrillic.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Cyrillic.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -718,5 +717,12 @@
!MS_Cyrillic class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Cyrillic.st,v 1.4 2005-03-31 18:48:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Cyrillic.st,v 1.4 2005/03/31 18:48:53 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__MS_Cyrillic.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MS_EastEuropean.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_EastEuropean.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -813,5 +812,9 @@
!MS_EastEuropean class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_EastEuropean.st,v 1.4 2005-03-31 18:48:47 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__MS_EastEuropean.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__MS_EastEuropean.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__MS_Greek.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Greek.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -671,5 +670,12 @@
!MS_Greek class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Greek.st,v 1.4 2005-03-31 18:49:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Greek.st,v 1.4 2005/03/31 18:49:01 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterEncoderImplementations__MS_Greek.st 10807 2012-05-05 21:58:24Z vranyj1 $'
! !
+
+
+
--- a/CharacterEncoderImplementations__MS_Hebrew.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Hebrew.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -607,5 +606,9 @@
!MS_Hebrew class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Hebrew.st,v 1.4 2005-03-31 18:48:50 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__MS_Hebrew.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__MS_Hebrew.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__MS_Symbol.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Symbol.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -88,5 +87,9 @@
!MS_Symbol class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Symbol.st,v 1.5 2005-03-31 18:48:55 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__MS_Symbol.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__MS_Symbol.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__MS_Turkish.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__MS_Turkish.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
"{ NameSpace: CharacterEncoderImplementations }"
@@ -819,5 +818,9 @@
!MS_Turkish class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__MS_Turkish.st,v 1.5 2005-03-31 18:49:37 cg Exp $'
+ ^ '$Id: CharacterEncoderImplementations__MS_Turkish.st 10842 2012-09-07 10:49:18Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id:: CharacterEncoderImplementations__MS_Turkish.st 10842 2012-09-07 10:49:18Z vranyj1 $'
! !
--- a/CharacterEncoderImplementations__NEXT.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterEncoderImplementations__NEXT.st Mon May 25 06:37:39 2015 +0200
@@ -313,5 +313,8 @@
!NEXT class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__NEXT.st,v 1.3 2004-03-09 22:00:52 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterEncoderImplementations__NEXT.st,v 1.3 2004/03/09 22:00:52 cg Exp $'
! !
+
+
+
--- a/CharacterRangeError.st Sun May 24 14:53:14 2015 +0200
+++ b/CharacterRangeError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
DecodingError subclass:#CharacterRangeError
@@ -38,5 +37,12 @@
!CharacterRangeError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/CharacterRangeError.st,v 1.2 2004-03-09 21:58:39 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/CharacterRangeError.st,v 1.2 2004/03/09 21:58:39 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: CharacterRangeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/Class.st Sun May 24 14:53:14 2015 +0200
+++ b/Class.st Mon May 25 06:37:39 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -497,6 +495,7 @@
! !
+
!Class methodsFor:'Compatibility-Dolphin'!
defaultCategoryForDolphinClasses
@@ -698,11 +697,6 @@
"Created: / 18.6.1998 / 22:08:45 / cg"
! !
-!Class methodsFor:'Compatibility-Squeak'!
-
-poolDictionaryNames
- ^ self sharedPoolNames
-! !
!Class methodsFor:'accessing'!
@@ -2901,7 +2895,7 @@
|src|
src := m source.
- src notNil and:[src isWideString]
+ src notNil and:[src isWideString and:[src contains:[:c | c codePoint > 16rFF ] ] ]
]]].
any16Bit ifTrue:[
@@ -2916,6 +2910,7 @@
encoder:encoder
"Modified: / 18-07-2011 / 09:17:17 / cg"
+ "Modified: / 13-04-2015 / 21:15:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOutOn:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
--- a/ContextError.st Sun May 24 14:53:14 2015 +0200
+++ b/ContextError.st Mon May 25 06:37:39 2015 +0200
@@ -44,5 +44,9 @@
version
^ '$Header: /cvs/stx/stx/libbasic/ContextError.st,v 1.5 2013-12-24 10:39:33 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ContextError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/Continuation.st Sun May 24 14:53:14 2015 +0200
+++ b/Continuation.st Mon May 25 06:37:39 2015 +0200
@@ -192,5 +192,9 @@
version
^ '$Header: /cvs/stx/stx/libbasic/Continuation.st,v 1.16 2013-07-25 09:37:35 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: Continuation.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ControlInterrupt.st Sun May 24 14:53:14 2015 +0200
+++ b/ControlInterrupt.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
GenericException subclass:#ControlInterrupt
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Control'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Control'
!
!ControlInterrupt class methodsFor:'documentation'!
@@ -40,6 +40,7 @@
"
! !
+
!ControlInterrupt class methodsFor:'initialization'!
initialize
@@ -50,6 +51,7 @@
"
! !
+
!ControlInterrupt class methodsFor:'testing'!
isControlInterrupt
@@ -58,10 +60,15 @@
"Created: / 16.11.2001 / 16:11:11 / cg"
! !
+
!ControlInterrupt class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/ControlInterrupt.st,v 1.8 2013-04-27 10:13:40 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ControlInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ControlRequest.st Sun May 24 14:53:14 2015 +0200
+++ b/ControlRequest.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Exception subclass:#ControlRequest
@@ -44,5 +43,12 @@
!ControlRequest class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ControlRequest.st,v 1.4 2003-10-07 13:25:12 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ControlRequest.st,v 1.4 2003/10/07 13:25:12 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: ControlRequest.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/ConversionError.st Sun May 24 14:53:14 2015 +0200
+++ b/ConversionError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#ConversionError
@@ -51,7 +50,14 @@
!ConversionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ConversionError.st,v 1.6 2004-08-22 17:47:16 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ConversionError.st,v 1.6 2004/08/22 17:47:16 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: ConversionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
ConversionError initialize!
+
+
+
--- a/DateConversionError.st Sun May 24 14:53:14 2015 +0200
+++ b/DateConversionError.st Mon May 25 06:37:39 2015 +0200
@@ -43,7 +43,14 @@
!DateConversionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/DateConversionError.st,v 1.1 2008-08-06 09:23:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/DateConversionError.st,v 1.1 2008/08/06 09:23:17 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: DateConversionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
DateConversionError initialize!
+
+
+
--- a/DecodingError.st Sun May 24 14:53:14 2015 +0200
+++ b/DecodingError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
CharacterEncoderError subclass:#DecodingError
@@ -38,5 +37,12 @@
!DecodingError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/DecodingError.st,v 1.2 2004-03-09 21:59:09 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/DecodingError.st,v 1.2 2004/03/09 21:59:09 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: DecodingError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/DeepCopyError.st Sun May 24 14:53:14 2015 +0200
+++ b/DeepCopyError.st Mon May 25 06:37:39 2015 +0200
@@ -50,6 +50,10 @@
version
^ '$Header: /cvs/stx/stx/libbasic/DeepCopyError.st,v 1.2 2013-12-24 10:39:41 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: DeepCopyError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/DomainError.st Sun May 24 14:53:14 2015 +0200
+++ b/DomainError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ArithmeticError subclass:#DomainError
@@ -55,7 +54,14 @@
!DomainError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/DomainError.st,v 1.4 2003-08-29 19:14:53 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/DomainError.st,v 1.4 2003/08/29 19:14:53 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: DomainError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
DomainError initialize!
+
+
+
--- a/ElementBoundsError.st Sun May 24 14:53:14 2015 +0200
+++ b/ElementBoundsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Error subclass:#ElementBoundsError
@@ -54,7 +53,14 @@
!ElementBoundsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ElementBoundsError.st,v 1.1 2004-04-23 11:16:20 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ElementBoundsError.st,v 1.1 2004/04/23 11:16:20 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: ElementBoundsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
ElementBoundsError initialize!
+
+
+
--- a/EncodingError.st Sun May 24 14:53:14 2015 +0200
+++ b/EncodingError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
CharacterEncoderError subclass:#EncodingError
@@ -38,5 +37,12 @@
!EncodingError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/EncodingError.st,v 1.2 2004-03-09 21:57:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/EncodingError.st,v 1.2 2004/03/09 21:57:20 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: EncodingError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/EndOfStreamError.st Sun May 24 14:53:14 2015 +0200
+++ b/EndOfStreamError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#EndOfStreamError
@@ -64,7 +63,14 @@
!EndOfStreamError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/EndOfStreamError.st,v 1.1 2005-11-16 08:45:55 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/EndOfStreamError.st,v 1.1 2005/11/16 08:45:55 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: EndOfStreamError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
EndOfStreamError initialize!
+
+
+
--- a/EndOfStreamNotification.st Sun May 24 14:53:14 2015 +0200
+++ b/EndOfStreamNotification.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Notification subclass:#EndOfStreamNotification
@@ -58,5 +57,12 @@
!EndOfStreamNotification class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/EndOfStreamNotification.st,v 1.3 2005-11-16 08:44:41 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/EndOfStreamNotification.st,v 1.3 2005/11/16 08:44:41 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: EndOfStreamNotification.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/Exception.st Sun May 24 14:53:14 2015 +0200
+++ b/Exception.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
GenericException subclass:#Exception
@@ -62,6 +61,13 @@
!Exception class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.82 2003-10-07 13:25:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Exception.st,v 1.82 2003/10/07 13:25:24 stefan Exp $'
+
+!
+version_SVN
+ ^ '$Id: Exception.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/ExceptionHandlerSet.st Sun May 24 14:53:14 2015 +0200
+++ b/ExceptionHandlerSet.st Mon May 25 06:37:39 2015 +0200
@@ -110,6 +110,7 @@
"
! !
+
!ExceptionHandlerSet methodsFor:'Compatibility-VW5.4'!
on:aSignalOrException handle:aHandler
@@ -120,6 +121,7 @@
"Created: / 26.7.1999 / 09:51:37 / stefan"
! !
+
!ExceptionHandlerSet methodsFor:'adding'!
on:anExceptionHandler do:aHandlerBlock
@@ -135,6 +137,7 @@
self at:anExceptionHandler put:aHandlerBlock
! !
+
!ExceptionHandlerSet methodsFor:'queries'!
accepts:anExceptionHandler
@@ -218,6 +221,7 @@
^ false
! !
+
!ExceptionHandlerSet methodsFor:'save evaluation'!
handleDo:aBlock
@@ -316,6 +320,7 @@
"Modified: / 26.7.1999 / 11:36:47 / stefan"
! !
+
!ExceptionHandlerSet methodsFor:'testing'!
isExceptionHandler
@@ -325,9 +330,14 @@
^ true
! !
+
!ExceptionHandlerSet class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/ExceptionHandlerSet.st,v 1.18 2013-04-04 09:37:41 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: ExceptionHandlerSet.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ExecutionError.st Sun May 24 14:53:14 2015 +0200
+++ b/ExecutionError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#ExecutionError
@@ -50,7 +49,14 @@
!ExecutionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ExecutionError.st,v 1.4 2003-09-05 10:26:58 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ExecutionError.st,v 1.4 2003/09/05 10:26:58 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: ExecutionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
ExecutionError initialize!
+
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/FileDirectory.st Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,837 @@
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+"{ Package: 'stx:libbasic' }"
+
+Collection subclass:#FileDirectory
+ instanceVariableNames:'pathName lazy'
+ classVariableNames:'PathOfCurrentDirectory'
+ poolDictionaries:''
+ category:'Compatibility-Squeak'
+!
+
+ArrayedCollection subclass:#DirectoryEntry
+ instanceVariableNames:'name creationTime modificationTime dirFlag fileSize'
+ classVariableNames:''
+ poolDictionaries:''
+ privateIn:FileDirectory
+!
+
+!FileDirectory class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1989 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+ Notice:
+ This class is obsolete and does work only under UNIX.
+ Use Filename instead. It is left here for squeak compatibility.
+
+ This class is not available in other ST-systems;
+ in contrast, VisualWorks provides a Filename class.
+ Therefore, Filename has taken over the functionality.
+
+ FileDirectories represent directories in the underlying host system.
+ They provide various methods to create/delete and query for files and/or
+ directories. Also, since FileDirectory inherits from Collection, it
+ provides all enumeration and testing protocol. For example, you can
+ loop over the filenames in a directory using 'aFileDirectory do:[:nm | ...]'.
+
+ [author:]
+ Claus Gittinger
+
+ [see also:]
+ Filename
+ FileStream DirectoryStream OperatingSystem
+"
+! !
+
+!FileDirectory class methodsFor:'initialization'!
+
+initialize
+ "/
+ "/ want to know about image restart
+ "/
+ ObjectMemory addDependent:self
+!
+
+update:something with:aParameter from:changedObject
+ "/
+ "/ currentDirectory may be different when restarted
+ "/
+ something == #earlySystemInstallation ifTrue:[
+ PathOfCurrentDirectory := nil
+ ]
+
+ "Created: / 15.6.1996 / 15:20:21 / cg"
+ "Modified: / 11.12.1998 / 16:28:40 / cg"
+! !
+
+!FileDirectory class methodsFor:'instance creation'!
+
+currentDirectory
+ "create and return a new FileDirectory for the current directory"
+
+ "/ self obsoleteMethodWarning:'use Filename'.
+ ^ self on:(Filename currentDirectory name)
+
+ "
+ FileDirectory currentDirectory contents
+ FileDirectory currentDirectory files
+ FileDirectory currentDirectory isReadable
+ FileDirectory currentDirectory pathName
+ "
+
+ "Modified: / 20-08-2011 / 12:19:51 / cg"
+!
+
+directoryNamed:name
+ "create and return a new FileDirectory for the directory
+ with given pathname"
+
+ "/ self obsoleteMethodWarning:'use Filename'.
+ name asString = '.' ifTrue:[
+ Filename currentDirectory name ~= '.' ifTrue:[
+ ^ self currentDirectory
+ ]
+ ].
+ ^ self on:(name asFilename constructString:'')
+
+ "
+ (FileDirectory directoryNamed:'..') pathName
+ (FileDirectory directoryNamed:'../..') files
+ "
+
+ "Modified: / 20-08-2011 / 12:19:57 / cg"
+!
+
+directoryNamed:name in:aFileDirectory
+ "create and return a new FileDirectory for the directory with given name
+ in another FileDirectory"
+
+ |baseName|
+
+ "/ self obsoleteMethodWarning:'use Filename'.
+
+ name asFilename isAbsolute ifTrue:[
+ ^ self directoryNamed:name
+ ].
+
+ (aFileDirectory isKindOf:FileDirectory) ifTrue:[
+ baseName := aFileDirectory pathName
+ ] ifFalse:[
+ baseName := aFileDirectory
+ ].
+ ^ self on:((Filename named:baseName) constructString:name)
+
+ "Modified: / 28-04-1997 / 22:34:47 / dq"
+ "Modified: / 20-08-2011 / 12:20:03 / cg"
+!
+
+on:aDirectoryPathName
+ ^ (self basicNew) pathName:aDirectoryPathName
+
+ "Created: / 20-08-2011 / 12:19:28 / cg"
+!
+
+rootDirectory
+ "create and return a new FileDirectory for the root directory"
+
+ "/ self obsoleteMethodWarning:'use Filename'.
+ ^ self on:(Filename rootDirectory name)
+
+ "
+ FileDirectory rootDirectory contents
+ FileDirectory rootDirectory files
+ FileDirectory rootDirectory isReadable
+ "
+
+ "Modified: / 20-08-2011 / 12:20:09 / cg"
+! !
+
+!FileDirectory class methodsFor:'Compatibility-Squeak'!
+
+default
+ ^ (self basicNew) pathName:(Filename defaultDirectory name)
+!
+
+localNameFor:aFileNameString
+ ^ aFileNameString asFilename baseName
+!
+
+pathNameDelimiter
+ ^ Filename separator
+!
+
+slash
+ ^ Filename separator asString
+
+ "Created: / 20-08-2011 / 12:18:27 / cg"
+! !
+
+!FileDirectory class methodsFor:'private'!
+
+fullPathNameOf:name in:path
+ |sep|
+
+ sep := OperatingSystem fileSeparator asString.
+
+ "/ is it an absolute path ?
+
+ (name startsWith:sep) ifTrue:[
+ ^ name
+ ].
+
+ "/ temporary kludge; this and the previous should
+ "/ go into OS isAbsolutePath ..
+
+ OperatingSystem isMSDOSlike ifTrue:[
+ ('[a-zA-Z]:*' match:name) ifTrue:[
+ "/ drive spec ...
+ ^ name
+ ]
+ ].
+ ^ path , sep , name
+
+ "Modified: 28.4.1997 / 22:06:17 / cg"
+ "Modified: 28.4.1997 / 22:34:18 / dq"
+! !
+
+!FileDirectory methodsFor:'Compatibility-Squeak'!
+
+assureExistence
+ self asFilename recursiveMakeDirectory
+!
+
+containingDirectory
+ ^ self class
+ directoryNamed:(self asFilename directory pathName)
+!
+
+deleteDirectory:dirName
+ "Squeak/ST80 compatibility"
+
+ ^ self removeDirectory:dirName
+!
+
+deleteFileNamed:fileName
+ "Squeak/ST80 compatibility"
+
+ ^ self removeFile:fileName
+!
+
+directoryEntryFor:name
+ |info|
+
+ info := self infoOf:name.
+ info isNil ifTrue:[
+ info := (self filenameFor:name) linkInfo.
+ ].
+ ^ DirectoryEntry new
+ name:name
+ creationTime:(info creationTime)
+ modificationTime:(info modificationTime)
+ dirFlag:(info isDirectory)
+ fileSize:(info isDirectory)
+
+ "
+ (FileDirectory directoryNamed:'.') entries
+ "
+
+ "Modified: / 29-08-2011 / 08:19:48 / cg"
+!
+
+directoryExists:dir
+ "Squeak/ST80 compatibility"
+
+ |f|
+
+ f := self filenameFor:dir.
+ ^ f exists and:[f isDirectory ].
+!
+
+directoryNames
+ "Squeak/ST80 compatibility"
+
+ ^ self directories
+!
+
+entries
+ ^ self contents collect:[:nm | self directoryEntryFor:nm].
+!
+
+fileExists:dir
+ "Squeak/ST80 compatibility"
+
+ |f|
+
+ f := self filenameFor:dir.
+ ^ f exists and:[f isDirectory not ].
+!
+
+fileNames
+ "Squeak/ST80 compatibility"
+
+ ^ self files
+!
+
+forceNewFileNamed:fn
+ "Squeak/ST80 compatibility"
+
+ |f|
+
+ f := self filenameFor:fn.
+ ^ f writeStream
+!
+
+includesKey:name
+ "Squeak/ST80 compatibility"
+
+ ^ self exists:name
+!
+
+oldFileNamed:fn
+ "Squeak/ST80 compatibility"
+
+ |f|
+
+ f := self filenameFor:fn.
+ ^ f readStream
+!
+
+readOnlyFileNamed:fn
+ "Squeak/ST80 compatibility"
+
+ |f|
+
+ f := self filenameFor:fn.
+ ^ f readStream
+!
+
+recursiveDelete
+ self asFilename recursiveRemove
+! !
+
+!FileDirectory methodsFor:'accessing'!
+
+baseName
+ "return my baseName
+ - thats the directory name without leading parent-dirs"
+
+ lazy ifTrue:[self getFullPathName].
+ ^ pathName asFilename baseName
+!
+
+contents
+ "return a collection with all files and subdirectories in the receiver.
+ Skips any '.' or '..' entries (UNIX)"
+
+ |coll|
+
+ coll := OrderedCollection new.
+ self do:[:name |
+ name ~= '.' ifTrue:[
+ name ~= '..' ifTrue:[
+ coll add:name
+ ]
+ ]
+ ].
+ coll sort.
+ ^ coll
+
+ "Modified: 20.6.1997 / 17:05:43 / cg"
+!
+
+directories
+ "return a collection with all subdirectories in the receiver directory"
+
+ |coll|
+
+ coll := OrderedCollection new.
+ self directoriesDo:[:name |
+ coll add:name
+ ].
+ coll sort.
+ ^ coll
+!
+
+directoryName
+ "return my directoryName
+ - thats the directory name where I'm in"
+
+ lazy ifTrue:[self getFullPathName].
+ ^ pathName asFilename directoryName
+!
+
+files
+ "return a collection with all plain files in the receiver directory"
+
+ |coll|
+
+ coll := OrderedCollection new.
+ self filesDo:[:name |
+ coll add:name
+ ].
+ coll sort.
+ ^ coll
+!
+
+pathName
+ "return my full pathname"
+
+ lazy ifTrue:[self getFullPathName].
+ ^ pathName
+!
+
+pathName:dirName
+ "set my pathname; return nil if not a valid path; self otherwise"
+
+ pathName := dirName.
+ (dirName startsWith:OperatingSystem fileSeparator) ifFalse:[
+ lazy := true
+ ] ifTrue:[
+ (dirName startsWith:'./') ifFalse:[
+"/ (dirName includes:$.) ifTrue:[
+ lazy := true
+ ]
+ ].
+ ^ self
+! !
+
+!FileDirectory methodsFor:'basic'!
+
+createDirectory:newName
+ "create a new filedirectory as a subdirectory of myself;
+ return true if successful"
+
+ |realName|
+
+ (newName notNil and:[newName notEmpty]) ifTrue:[
+ (newName ~= '.' and:[newName ~= '..']) ifTrue:[
+ ((newName at:1) == OperatingSystem fileSeparator) ifTrue:[
+ realName := newName copyFrom:2
+ ] ifFalse:[
+ realName := newName
+ ].
+ ^ (self filenameFor:realName) makeDirectory
+ ]
+ ].
+ ^ false
+!
+
+link:oldFileName to:newFileName
+ "link oldFileName to newFileName in myself, return true if successful"
+
+ |path1 path2|
+
+ path1 := self pathNameOf:oldFileName.
+ path2 := self pathNameOf:newFileName.
+ ^ OperatingSystem linkFile:path1 to:path2
+!
+
+remove:aFileOrDirectoryName
+ "remove the file or directory from myself; return true if successful"
+
+ ^ (self filenameFor:aFileOrDirectoryName) remove
+!
+
+removeDirectory:dirName
+ "remove the directory 'dirName' from myself; return true if successful.
+ If the directory is not empty, the containing files/directories are also
+ removed."
+
+ ^ (self filenameFor:dirName) recursiveRemove
+!
+
+removeFile:fileName
+ "remove the file 'fileName' from myself; return true if successful"
+
+ ^ (self filenameFor:fileName) remove
+!
+
+renameFile:oldFileName newName:newFileName
+ "rename the file; return true if successful"
+
+ |f1 f2|
+
+ f1 := self filenameFor:oldFileName.
+ f2 := self filenameFor:newFileName.
+ ^ f1 renameTo:f2
+! !
+
+!FileDirectory methodsFor:'converting'!
+
+asFilename
+ "return myself as a filename"
+
+ ^ self pathName asFilename
+!
+
+asFilename:someFile
+ "return a filename for a file named someFile in myself"
+
+ ^ self asFilename construct:someFile
+! !
+
+!FileDirectory methodsFor:'enumerating'!
+
+allDirectoriesDo:aBlock
+ "evaluate the argument, aBlock for every directory name
+ in the directory and in all subdirectories"
+
+ |aStream command line|
+
+ lazy ifTrue:[self getFullPathName].
+ command := 'cd ' , pathName , '; find . -type d -print'.
+ aStream := PipeStream readingFrom:command.
+ aStream isNil ifTrue:[^ nil].
+ [aStream atEnd] whileFalse:[
+ line := aStream nextLine.
+ line notNil ifTrue:[
+ (line = '.') ifFalse:[
+ "cut off initial ./"
+ line := line copyFrom:3
+ ].
+ aBlock value:line
+ ]
+ ].
+ aStream close
+!
+
+allFilesDo:aBlock
+ "evaluate the argument, aBlock for every file name in the directory and in all
+ subdirectories"
+
+ |aStream command line|
+
+ lazy ifTrue:[self getFullPathName].
+ command := 'cd ' , pathName , '; find . -print'.
+ aStream := PipeStream readingFrom:command.
+ aStream isNil ifTrue:[^ nil].
+ [aStream atEnd] whileFalse:[
+ line := aStream nextLine.
+ line notNil ifTrue:[
+ (line = '.') ifFalse:[
+ "cut off initial ./"
+ line := line copyFrom:3
+ ].
+ aBlock value:line
+ ]
+ ].
+ aStream close
+!
+
+directoriesDo:aBlock
+ "evaluate the argument, aBlock for every subdirectory name in the directory"
+
+ self where:[:name | (self isDirectory:name) ifTrue:[
+ ((name ~= '.') and:[name ~= '..'])
+ ] ifFalse:[
+ false
+ ]
+ ] do:aBlock
+!
+
+do:aBlock
+ "evaluate the argument, aBlock for every name in the directory"
+
+ self where:[:name | true] do:aBlock
+!
+
+filesDo:aBlock
+ "evaluate the argument, aBlock for every plain file name in the directory"
+
+ self where:[:name | (self isDirectory:name) not] do:aBlock
+!
+
+namesDo:aBlock
+ "evaluate the argument, aBlock for every name in the directory.
+ for ST-80 compatibility"
+
+ self do:aBlock
+!
+
+where:testBlock do:aBlock
+ "evaluate the argument, aBlock for every object in the directory
+ for which testBlock evaluates to true."
+
+ |aStream name|
+
+ ExternalStream openErrorSignal catch:[
+ aStream := DirectoryStream directoryNamed:pathName.
+ ].
+ aStream isNil ifTrue:[^ nil].
+ [aStream atEnd] whileFalse:[
+ name := aStream nextLine.
+ name notNil ifTrue:[
+ (testBlock value:name) ifTrue:[
+ aBlock value:name
+ ]
+ ]
+ ].
+ aStream close
+! !
+
+!FileDirectory methodsFor:'instance creation'!
+
+directoryNamed:aName
+ "create & return a new fileDirectory for a subdirectory in myself"
+
+ ^ self class directoryNamed:aName in:self pathName
+! !
+
+!FileDirectory methodsFor:'printing & storing'!
+
+printOn:aStream
+ "append a user printed representation of the receiver to aStream.
+ The format is suitable for a human - not meant to be read back."
+
+ lazy ifTrue:[self getFullPathName].
+ aStream nextPutAll:'(a FileDirectory pathName:';
+ nextPutAll:pathName;
+ nextPutAll:')'
+!
+
+storeOn:aStream
+ "append a printed representation of the receiver to aStream,
+ which allows reconstructing it via readFrom:"
+
+ lazy ifTrue:[self getFullPathName].
+ aStream nextPutAll:'(FileDirectory directoryNamed:'.
+ aStream nextPutAll:pathName.
+ aStream nextPut:$)
+! !
+
+!FileDirectory methodsFor:'private'!
+
+filenameFor:fileName
+ "return a filename representing the argument, fileName
+ either in myself (if the arg is a releative path) or absolute otherwise."
+
+ ^ pathName asFilename filenameFor:fileName
+!
+
+fullNameFor:fileName
+ "return a filename representing the argument, fileName
+ either in myself (if the arg is a releative path) or absolute otherwise."
+
+ ^ (pathName asFilename filenameFor:fileName) asAbsoluteFilename
+!
+
+getFullPathName
+ "make my pathname be a full pathname - i.e. starting at root"
+
+ |shortPathName|
+
+
+ (pathName = OperatingSystem fileSeparator asString) ifTrue:[
+ lazy := false.
+ ^ self
+ ].
+
+ "since currentDirectory is used very often, cache its path here"
+
+ (pathName = '.') ifTrue:[
+ PathOfCurrentDirectory notNil ifTrue:[
+ pathName := PathOfCurrentDirectory.
+ lazy := false.
+ ^ self
+ ]
+ ].
+
+ shortPathName := pathName.
+
+ pathName := OperatingSystem pathNameOf:pathName.
+ lazy := false.
+
+ "
+ if it was the current dir, keep name for next query
+ "
+ (shortPathName = '.') ifTrue:[
+ PathOfCurrentDirectory := pathName
+ ]
+!
+
+pathNameOf:fileName
+ "return the pathname for an entry in myself"
+
+ ^ (pathName asFilename construct:fileName) osName
+! !
+
+!FileDirectory methodsFor:'queries'!
+
+accessModeOf:name
+ "return the access-mode bits (rwxrwxrwx) of a file in myself"
+
+ ^ OperatingSystem accessModeOf:(self pathNameOf:name)
+!
+
+changeAccessModeOf:name to:modeBits
+ "set the access-mode bits (rwxrwxrwx) of a file in myself"
+
+ ^ OperatingSystem changeAccessModeOf:(self pathNameOf:name) to:modeBits
+!
+
+exists
+ "return true if this directory exists"
+
+ ^ (Filename named:pathName) isDirectory
+
+ "
+ (FileDirectory directoryNamed:'fooBar') exists
+ (FileDirectory directoryNamed:'/tmp') exists
+ "
+!
+
+exists:name
+ "return true, if the given name exists in myself"
+
+ ^ (self filenameFor:name) exists
+!
+
+id
+ "return the directories file-id (inode number)"
+
+ ^ (Filename named:pathName) id
+!
+
+infoOf:name
+ "return an array filled with file info for the file 'aFileName';
+ return nil if such a file does not exist"
+
+ ^ (self filenameFor:name) info
+!
+
+isDirectory:name
+ "return true, if the given name is that of a directory in myself"
+
+ ^ (self filenameFor:name) isDirectory
+!
+
+isExecutable:name
+ "return true, if the given file is executable"
+
+ ^ (self filenameFor:name) isExecutable
+!
+
+isReadable:name
+ "return true, if the given file is readable"
+
+ ^ (self filenameFor:name) isReadable
+!
+
+isWritable:name
+ "return true, if the given file is readable"
+
+ ^ (self filenameFor:name) isWritable
+!
+
+species
+ "return the type of collection to be returned by collect, select etc."
+
+ ^ OrderedCollection
+!
+
+timeOfLastChange
+ "return the timeStamp of myself"
+
+ ^ (Filename named:pathName) modificationTime
+!
+
+timeOfLastChange:name
+ "return the timeStamp of a file in myself"
+
+ ^ (self filenameFor:name) modificationTime
+!
+
+typeOf:name
+ "return the symbolic type of a file in myself"
+
+ ^ (self filenameFor:name) type
+! !
+
+!FileDirectory methodsFor:'testing'!
+
+isEmpty
+ "return true, if the directory is empty;
+ redefined since '.' and '..' do not count as entries here."
+
+ self do:[:fName |
+ ((fName ~= '.') and:[fName ~= '..']) ifTrue:[^ false].
+ ].
+ ^ true
+! !
+
+!FileDirectory::DirectoryEntry methodsFor:'accessing'!
+
+at: index
+ "compatibility interface"
+ "self halt: 'old-style access to DirectoryEntry'"
+ index = 1 ifTrue: [ ^self name ].
+ index = 2 ifTrue: [ ^self creationTime ].
+ index = 3 ifTrue: [ ^self modificationTime ].
+ index = 4 ifTrue:[ ^self isDirectory ].
+ index = 5 ifTrue:[ ^self fileSize ].
+ self error: 'invalid index specified'.
+!
+
+creationTime
+ ^ creationTime
+!
+
+dirFlag
+ ^ dirFlag
+!
+
+fileSize
+ ^ fileSize
+!
+
+modificationTime
+ ^ modificationTime
+!
+
+name
+ ^ name
+!
+
+name:nameArg creationTime:creationTimeArg modificationTime:modificationTimeArg dirFlag:dirFlagArg fileSize:fileSizeArg
+ name := nameArg.
+ creationTime := creationTimeArg.
+ modificationTime := modificationTimeArg.
+ dirFlag := dirFlagArg.
+ fileSize := fileSizeArg.
+! !
+
+!FileDirectory class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.54 2013-08-16 11:49:12 cg Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/libbasic/FileDirectory.st,v 1.54 2013-08-16 11:49:12 cg Exp $'
+! !
+
+
+FileDirectory initialize!
--- a/HaltInterrupt.st Sun May 24 14:53:14 2015 +0200
+++ b/HaltInterrupt.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
ControlInterrupt subclass:#HaltInterrupt
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Control'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Control'
!
!HaltInterrupt class methodsFor:'documentation'!
@@ -41,6 +41,7 @@
"
! !
+
!HaltInterrupt class methodsFor:'initialization'!
initialize
@@ -51,10 +52,15 @@
"
! !
+
!HaltInterrupt class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/HaltInterrupt.st,v 1.4 2013-04-27 10:12:51 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: HaltInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/HandleRegistry.st Sun May 24 14:53:14 2015 +0200
+++ b/HandleRegistry.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Registry subclass:#HandleRegistry
@@ -73,5 +72,12 @@
!HandleRegistry class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.9 2002-03-04 19:15:09 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/HandleRegistry.st,v 1.9 2002/03/04 19:15:09 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: HandleRegistry.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/IncompleteNextCountError.st Sun May 24 14:53:14 2015 +0200
+++ b/IncompleteNextCountError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#IncompleteNextCountError
@@ -64,7 +63,14 @@
!IncompleteNextCountError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/IncompleteNextCountError.st,v 1.2 2003-08-29 19:14:43 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/IncompleteNextCountError.st,v 1.2 2003/08/29 19:14:43 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: IncompleteNextCountError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
IncompleteNextCountError initialize!
+
+
+
--- a/IndexNotFoundError.st Sun May 24 14:53:14 2015 +0200
+++ b/IndexNotFoundError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
NotFoundError subclass:#IndexNotFoundError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!IndexNotFoundError class methodsFor:'documentation'!
@@ -40,6 +40,7 @@
"
! !
+
!IndexNotFoundError class methodsFor:'initialization'!
initialize
@@ -50,10 +51,15 @@
"
! !
+
!IndexNotFoundError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/IndexNotFoundError.st,v 1.4 2013-04-27 10:06:42 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: IndexNotFoundError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/InvalidByteCodeError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidByteCodeError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
InvalidCodeError subclass:#InvalidByteCodeError
@@ -50,7 +49,14 @@
!InvalidByteCodeError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidByteCodeError.st,v 1.4 2003-09-05 10:28:30 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidByteCodeError.st,v 1.4 2003/09/05 10:28:30 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidByteCodeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
InvalidByteCodeError initialize!
+
+
+
--- a/InvalidCodeError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidCodeError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ExecutionError subclass:#InvalidCodeError
@@ -50,7 +49,14 @@
!InvalidCodeError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidCodeError.st,v 1.4 2003-09-05 10:27:13 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidCodeError.st,v 1.4 2003/09/05 10:27:13 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidCodeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
InvalidCodeError initialize!
+
+
+
--- a/InvalidEncodingError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidEncodingError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
DecodingError subclass:#InvalidEncodingError
@@ -44,5 +43,12 @@
!InvalidEncodingError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidEncodingError.st,v 1.3 2004-03-09 22:00:59 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidEncodingError.st,v 1.3 2004/03/09 22:00:59 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidEncodingError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/InvalidInstructionError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidInstructionError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
InvalidCodeError subclass:#InvalidInstructionError
@@ -50,7 +49,14 @@
!InvalidInstructionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidInstructionError.st,v 1.4 2003-09-05 10:27:30 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidInstructionError.st,v 1.4 2003/09/05 10:27:30 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidInstructionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
InvalidInstructionError initialize!
+
+
+
--- a/InvalidModeError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidModeError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#InvalidModeError
@@ -38,5 +37,12 @@
!InvalidModeError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidModeError.st,v 1.2 2005-02-02 10:59:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidModeError.st,v 1.2 2005/02/02 10:59:58 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidModeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/InvalidOperationError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidOperationError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#InvalidOperationError
@@ -38,5 +37,12 @@
!InvalidOperationError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidOperationError.st,v 1.2 2005-02-02 11:02:30 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidOperationError.st,v 1.2 2005/02/02 11:02:30 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidOperationError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/InvalidReadError.st Sun May 24 14:53:14 2015 +0200
+++ b/InvalidReadError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ReadError subclass:#InvalidReadError
@@ -44,5 +43,12 @@
!InvalidReadError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/InvalidReadError.st,v 1.3 2005-02-02 11:02:06 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/InvalidReadError.st,v 1.3 2005/02/02 11:02:06 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: InvalidReadError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/JavaPackage.st Sun May 24 14:53:14 2015 +0200
+++ b/JavaPackage.st Mon May 25 06:37:39 2015 +0200
@@ -100,7 +100,7 @@
thisNamespace isBehavior ifFalse:[
self error:'name conflict: java package ' , aName , ' vs. global with the same name'.
].
- (thisNamespace ~~ JAVA and:[thisNamespace isJavaPackage not]) ifTrue:[
+ (thisNamespace ~~ JAVA and:[thisNamespace isJavaPackage not and:[(thisNamespace name startsWith: #'JAVA_') not]]) ifTrue:[
self error:'name conflict: non-java package ' , aName , 'aleady exists'.
].
]
--- a/LargeFloat.st Sun May 24 14:53:14 2015 +0200
+++ b/LargeFloat.st Mon May 25 06:37:39 2015 +0200
@@ -735,7 +735,10 @@
!LargeFloat class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.7 2004-11-12 12:23:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/LargeFloat.st,v 1.7 2004/11/12 12:23:46 cg Exp $'
! !
LargeFloat initialize!
+
+
+
--- a/MacFilename.st Sun May 24 14:53:14 2015 +0200
+++ b/MacFilename.st Mon May 25 06:37:39 2015 +0200
@@ -64,5 +64,8 @@
!MacFilename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MacFilename.st,v 1.1 1997-09-17 17:43:58 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MacFilename.st,v 1.1 1997/09/17 17:43:58 cg Exp $'
! !
+
+
+
--- a/MallocFailure.st Sun May 24 14:53:14 2015 +0200
+++ b/MallocFailure.st Mon May 25 06:37:39 2015 +0200
@@ -41,9 +41,14 @@
"
! !
+
!MallocFailure class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/MallocFailure.st,v 1.3 2013-03-13 23:47:08 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: MallocFailure.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/MappedExternalBytes.st Sun May 24 14:53:14 2015 +0200
+++ b/MappedExternalBytes.st Mon May 25 06:37:39 2015 +0200
@@ -83,5 +83,8 @@
!MappedExternalBytes class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MappedExternalBytes.st,v 1.3 2007-02-22 15:27:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MappedExternalBytes.st,v 1.3 2007/02/22 15:27:19 cg Exp $'
! !
+
+
+
--- a/MetaNumber.st Sun May 24 14:53:14 2015 +0200
+++ b/MetaNumber.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Number subclass:#MetaNumber
@@ -119,5 +118,12 @@
!MetaNumber class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/MetaNumber.st,v 1.1 2003-06-21 10:12:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/MetaNumber.st,v 1.1 2003/06/21 10:12:21 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: MetaNumber.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/MethodOverrideTests.st Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,61 @@
+'From Smalltalk/X, Version:6.1.1 on 02-07-2010 at 08:40:49 AM' !
+
+"{ Package: 'stx:libbasic' }"
+
+TestCase subclass:#MethodOverrideTests
+ instanceVariableNames:''
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Tests'
+!
+
+
+!MethodOverrideTests methodsFor:'initialization & release'!
+
+tearDown
+
+ #(methodToBeOverriden_1) do:
+ [:sel|
+ (self respondsTo: sel) ifTrue:
+ [self class removeSelector: sel]].
+
+ "Created: / 17-06-2009 / 19:36:10 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!MethodOverrideTests methodsFor:'tests'!
+
+test_01
+
+ | oldMethod newMethod |
+ '"{ Package: ''stx:libbasic'' }"
+ !!
+ !!MethodOverridesTest methodsFor:''mock methods''!!
+
+ methodToBeOverriden_1
+ ^0
+ !! !!' readStream fileIn.
+ oldMethod := self class compiledMethodAt:#methodToBeOverriden_1.
+ self assert: self methodToBeOverriden_1 = 0.
+
+
+ '"{ Package: ''stx:goodies/sunit'' }"
+ !!
+ !!MethodOverridesTest methodsFor:''mock methods''!!
+
+ methodToBeOverriden_1
+ ^1
+ !! !!' readStream fileIn.
+
+ self assert: self methodToBeOverriden_1 = 1.
+ newMethod := self class compiledMethodAt:#methodToBeOverriden_1.
+
+ self assert: newMethod overridenMethod == oldMethod.
+
+ "Created: / 17-06-2009 / 19:27:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
+! !
+
+!MethodOverrideTests class methodsFor:'documentation'!
+
+version
+ ^'$Id: MethodOverrideTests.st 10717 2011-10-11 15:53:59Z vranyj1 $'
+! !
--- a/NaiveRomanNumberFormatNotification.st Sun May 24 14:53:14 2015 +0200
+++ b/NaiveRomanNumberFormatNotification.st Mon May 25 06:37:39 2015 +0200
@@ -49,5 +49,8 @@
!NaiveRomanNumberFormatNotification class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NaiveRomanNumberFormatNotification.st,v 1.3 2008-08-06 09:53:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NaiveRomanNumberFormatNotification.st,v 1.3 2008/08/06 09:53:07 cg Exp $'
! !
+
+
+
--- a/NoByteCodeError.st Sun May 24 14:53:14 2015 +0200
+++ b/NoByteCodeError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
InvalidCodeError subclass:#NoByteCodeError
@@ -50,7 +49,14 @@
!NoByteCodeError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NoByteCodeError.st,v 1.4 2003-09-05 10:27:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NoByteCodeError.st,v 1.4 2003/09/05 10:27:06 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: NoByteCodeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
NoByteCodeError initialize!
+
+
+
--- a/NonBooleanReceiverError.st Sun May 24 14:53:14 2015 +0200
+++ b/NonBooleanReceiverError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ExecutionError subclass:#NonBooleanReceiverError
@@ -50,7 +49,14 @@
!NonBooleanReceiverError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NonBooleanReceiverError.st,v 1.4 2003-09-05 10:27:38 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NonBooleanReceiverError.st,v 1.4 2003/09/05 10:27:38 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: NonBooleanReceiverError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
NonBooleanReceiverError initialize!
+
+
+
--- a/NonIntegerIndexError.st Sun May 24 14:53:14 2015 +0200
+++ b/NonIntegerIndexError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
IndexNotFoundError subclass:#NonIntegerIndexError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!NonIntegerIndexError class methodsFor:'documentation'!
@@ -41,6 +41,7 @@
"
! !
+
!NonIntegerIndexError class methodsFor:'initialization'!
initialize
@@ -51,10 +52,15 @@
"
! !
+
!NonIntegerIndexError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/NonIntegerIndexError.st,v 1.4 2013-04-27 10:04:41 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: NonIntegerIndexError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/NotANumber.st Sun May 24 14:53:14 2015 +0200
+++ b/NotANumber.st Mon May 25 06:37:39 2015 +0200
@@ -157,7 +157,10 @@
!NotANumber class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NotANumber.st,v 1.2 2003-07-02 09:52:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/NotANumber.st,v 1.2 2003/07/02 09:52:32 cg Exp $'
! !
NotANumber initialize!
+
+
+
--- a/NotFoundError.st Sun May 24 14:53:14 2015 +0200
+++ b/NotFoundError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#NotFoundError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!NotFoundError class methodsFor:'documentation'!
@@ -40,6 +40,7 @@
"
! !
+
!NotFoundError class methodsFor:'initialization'!
initialize
@@ -50,10 +51,15 @@
"
! !
+
!NotFoundError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/NotFoundError.st,v 1.5 2013-04-27 10:05:48 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: NotFoundError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/NumberConversionError.st Sun May 24 14:53:14 2015 +0200
+++ b/NumberConversionError.st Mon May 25 06:37:39 2015 +0200
@@ -37,5 +37,9 @@
!NumberConversionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NumberConversionError.st,v 1.4 2008-08-06 09:53:01 cg Exp $'
+ ^ '$Id: NumberConversionError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id: NumberConversionError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
! !
--- a/NumberFormatError.st Sun May 24 14:53:14 2015 +0200
+++ b/NumberFormatError.st Mon May 25 06:37:39 2015 +0200
@@ -37,5 +37,9 @@
!NumberFormatError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/NumberFormatError.st,v 1.3 2008-08-06 09:52:56 cg Exp $'
+ ^ '$Id: NumberFormatError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id: NumberFormatError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
! !
--- a/OSSignalInterrupt.st Sun May 24 14:53:14 2015 +0200
+++ b/OSSignalInterrupt.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#OSSignalInterrupt
@@ -62,7 +61,14 @@
!OSSignalInterrupt class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OSSignalInterrupt.st,v 1.4 2005-04-11 08:53:28 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OSSignalInterrupt.st,v 1.4 2005/04/11 08:53:28 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: OSSignalInterrupt.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
OSSignalInterrupt initialize!
+
+
+
--- a/Object.st Sun May 24 14:53:14 2015 +0200
+++ b/Object.st Mon May 25 06:37:39 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1988 by Claus Gittinger
All Rights Reserved
@@ -518,6 +516,8 @@
! !
+
+
!Object methodsFor:'Compatibility-Dolphin'!
stbFixup: anSTBInFiler at: newObjectIndex
@@ -607,6 +607,14 @@
]
!
+flag:aString
+ "Send this message, with a relevant symbol as argument, to flag a message for subsequent retrieval. For example, you might put the following line in a number of messages:
+ self flag: #returnHereUrgently
+ Then, to retrieve all such messages, browse all senders of #returnHereUrgently."
+
+ "Created: / 21-04-2015 / 15:50:20 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
inform: aString
"Display a message for the user to read and then dismiss."
@@ -10284,6 +10292,11 @@
^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.806 2015-05-18 15:24:03 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$ Id: Object.st 10643 2011-06-08 21:53:07Z vranyj1 $'
! !
--- a/OpenVMSFileHandle.st Sun May 24 14:53:14 2015 +0200
+++ b/OpenVMSFileHandle.st Mon May 25 06:37:39 2015 +0200
@@ -53,5 +53,8 @@
!OpenVMSFileHandle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFileHandle.st,v 1.1 1999-09-18 11:11:28 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFileHandle.st,v 1.1 1999/09/18 11:11:28 cg Exp $'
! !
+
+
+
--- a/OpenVMSFilename.st Sun May 24 14:53:14 2015 +0200
+++ b/OpenVMSFilename.st Mon May 25 06:37:39 2015 +0200
@@ -1170,5 +1170,8 @@
!OpenVMSFilename class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.18 1997-10-16 10:41:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFilename.st,v 1.18 1997/10/16 10:41:25 cg Exp $'
! !
+
+
+
--- a/OsError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Error subclass:#OsError
@@ -44,5 +43,12 @@
!OsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsError.st,v 1.3 2003-08-30 12:31:08 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsError.st,v 1.3 2003/08/30 12:31:08 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsIllegalOperation.st Sun May 24 14:53:14 2015 +0200
+++ b/OsIllegalOperation.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsIllegalOperation
@@ -38,5 +37,12 @@
!OsIllegalOperation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsIllegalOperation.st,v 1.3 2003-08-30 12:31:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsIllegalOperation.st,v 1.3 2003/08/30 12:31:20 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsIllegalOperation.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsInaccessibleError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsInaccessibleError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsInaccessibleError
@@ -38,5 +37,12 @@
!OsInaccessibleError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsInaccessibleError.st,v 1.3 2003-08-30 12:31:14 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsInaccessibleError.st,v 1.3 2003/08/30 12:31:14 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsInaccessibleError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsInvalidArgumentsError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsInvalidArgumentsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsInvalidArgumentsError
@@ -38,5 +37,12 @@
!OsInvalidArgumentsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsInvalidArgumentsError.st,v 1.3 2003-08-30 12:31:17 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsInvalidArgumentsError.st,v 1.3 2003/08/30 12:31:17 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsInvalidArgumentsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsNeedRetryError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsNeedRetryError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsNeedRetryError
@@ -38,5 +37,12 @@
!OsNeedRetryError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsNeedRetryError.st,v 1.3 2003-08-30 12:31:04 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsNeedRetryError.st,v 1.3 2003/08/30 12:31:04 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsNeedRetryError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsNoResourcesError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsNoResourcesError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsNoResourcesError
@@ -38,5 +37,12 @@
!OsNoResourcesError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsNoResourcesError.st,v 1.3 2003-08-30 12:31:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsNoResourcesError.st,v 1.3 2003/08/30 12:31:11 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsNoResourcesError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsNotification.st Sun May 24 14:53:14 2015 +0200
+++ b/OsNotification.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsNotification
@@ -38,5 +37,12 @@
!OsNotification class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsNotification.st,v 1.3 2003-08-30 12:31:22 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsNotification.st,v 1.3 2003/08/30 12:31:22 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsNotification.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OsTransferFaultError.st Sun May 24 14:53:14 2015 +0200
+++ b/OsTransferFaultError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OsError subclass:#OsTransferFaultError
@@ -38,5 +37,12 @@
!OsTransferFaultError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/OsTransferFaultError.st,v 1.3 2003-08-30 12:31:25 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/OsTransferFaultError.st,v 1.3 2003/08/30 12:31:25 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OsTransferFaultError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/OverflowError.st Sun May 24 14:53:14 2015 +0200
+++ b/OverflowError.st Mon May 25 06:37:39 2015 +0200
@@ -41,16 +41,22 @@
"
! !
+
!OverflowError class methodsFor:'initialization'!
initialize
NotifierString := 'overflow'.
! !
+
!OverflowError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/OverflowError.st,v 1.4 2013-03-13 23:43:48 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: OverflowError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/Point.st Sun May 24 14:53:14 2015 +0200
+++ b/Point.st Mon May 25 06:37:39 2015 +0200
@@ -1184,7 +1184,14 @@
!Point class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.73 2009-05-26 06:31:07 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Point.st,v 1.73 2009/05/26 06:31:07 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: Point.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
Point initialize!
+
+
+
--- a/PositionError.st Sun May 24 14:53:14 2015 +0200
+++ b/PositionError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#PositionError
@@ -38,5 +37,12 @@
!PositionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionError.st,v 1.2 2005-02-02 11:02:33 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionError.st,v 1.2 2005/02/02 11:02:33 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: PositionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/PositionOutOfBoundsError.st Sun May 24 14:53:14 2015 +0200
+++ b/PositionOutOfBoundsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#PositionOutOfBoundsError
@@ -44,5 +43,12 @@
!PositionOutOfBoundsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PositionOutOfBoundsError.st,v 1.3 2003-08-29 19:14:46 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PositionOutOfBoundsError.st,v 1.3 2003/08/29 19:14:46 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: PositionOutOfBoundsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/PositionableStream.st Sun May 24 14:53:14 2015 +0200
+++ b/PositionableStream.st Mon May 25 06:37:39 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1989 by Claus Gittinger
All Rights Reserved
@@ -126,6 +124,7 @@
! !
+
!PositionableStream methodsFor:'Compatibility-Dolphin'!
endChunk
@@ -172,6 +171,28 @@
^ element
"Created: / 03-10-2014 / 03:06:26 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+upToAnyOf: aCollection
+ "Answer a subcollection from the current access position to the
+ occurrence (if any, but not inclusive) of any object in the collection. If
+ no matching object is found, answer the entire rest of the receiver."
+ ^self upToAnyOf: aCollection do: [:matchingObject | ]
+
+ "Created: / 21-04-2015 / 17:25:51 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+upToAnyOf: subcollection do: aBlock
+ "Answer a subcollection from the current access position to the occurrence (if any, but not inclusive) of any object in the collection.
+ Evaluate aBlock with this occurence as argument.
+ If no matching object is found, don't evaluate aBlock and answer the entire rest of the receiver."
+
+ ^self collection species new: 1000 streamContents: [ :stream |
+ | ch |
+ [ self atEnd or: [ (subcollection includes: (ch := self next)) and: [aBlock value: ch. true] ] ]
+ whileFalse: [ stream nextPut: ch ] ]
+
+ "Created: / 21-04-2015 / 17:26:06 / Jan Vrany <jan.vrany@fit.cvut.cz>"
! !
!PositionableStream methodsFor:'accessing'!
@@ -887,6 +908,11 @@
version_CVS
^ '$Header: /cvs/stx/stx/libbasic/PositionableStream.st,v 1.171 2015-03-12 19:24:30 stefan Exp $'
+!
+
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
! !
--- a/PrimitiveFailure.st Sun May 24 14:53:14 2015 +0200
+++ b/PrimitiveFailure.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
ExecutionError subclass:#PrimitiveFailure
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-ExecutionErrors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-ExecutionErrors'
!
!PrimitiveFailure class methodsFor:'documentation'!
@@ -43,6 +43,7 @@
"
! !
+
!PrimitiveFailure class methodsFor:'initialization'!
initialize
@@ -53,6 +54,7 @@
"
! !
+
!PrimitiveFailure methodsFor:'printing & storing'!
description
@@ -66,10 +68,15 @@
^ desc
! !
+
!PrimitiveFailure class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/PrimitiveFailure.st,v 1.8 2013-04-27 10:11:13 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: PrimitiveFailure.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/PrivateMetaclass.st Sun May 24 14:53:14 2015 +0200
+++ b/PrivateMetaclass.st Mon May 25 06:37:39 2015 +0200
@@ -1,5 +1,3 @@
-"{ Encoding: utf8 }"
-
"
COPYRIGHT (c) 1996 by eXept Software AG
All Rights Reserved
@@ -11,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libbasic' }"
Metaclass subclass:#PrivateMetaclass
@@ -132,5 +127,12 @@
!PrivateMetaclass class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.13 2004-03-05 17:53:16 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/PrivateMetaclass.st,v 1.13 2004/03/05 17:53:16 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: PrivateMetaclass.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/ProceedError.st Sun May 24 14:53:14 2015 +0200
+++ b/ProceedError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
Warning subclass:#ProceedError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!ProceedError class methodsFor:'documentation'!
@@ -53,6 +53,7 @@
! !
+
!ProceedError class methodsFor:'initialization'!
initialize
@@ -66,6 +67,7 @@
! !
+
!ProceedError methodsFor:'default actions'!
defaultAction
@@ -94,10 +96,15 @@
"
! !
+
!ProceedError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/ProceedError.st,v 1.6 2013-04-19 08:40:03 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ProceedError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/QualifiedName.st Sun May 24 14:53:14 2015 +0200
+++ b/QualifiedName.st Mon May 25 06:37:39 2015 +0200
@@ -1,4 +1,4 @@
-"{ Package: 'stx:libbasic' }"
+"{ Package: '__NoProject__' }"
Object subclass:#QualifiedName
instanceVariableNames:'pathString'
--- a/QueryWithoutDefault.st Sun May 24 14:53:14 2015 +0200
+++ b/QueryWithoutDefault.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Query subclass:#QueryWithoutDefault
@@ -83,7 +82,14 @@
!QueryWithoutDefault class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/QueryWithoutDefault.st,v 1.3 2005-01-20 12:26:17 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/QueryWithoutDefault.st,v 1.3 2005/01/20 12:26:17 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: QueryWithoutDefault.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
QueryWithoutDefault initialize!
+
+
+
--- a/RangeError.st Sun May 24 14:53:14 2015 +0200
+++ b/RangeError.st Mon May 25 06:37:39 2015 +0200
@@ -41,16 +41,22 @@
"
! !
+
!RangeError class methodsFor:'initialization'!
initialize
NotifierString := 'numeric range error'.
! !
+
!RangeError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/RangeError.st,v 1.5 2013-03-13 23:43:54 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: RangeError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/ReadError.st Sun May 24 14:53:14 2015 +0200
+++ b/ReadError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#ReadError
@@ -38,5 +37,12 @@
!ReadError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadError.st,v 1.2 2005-02-02 10:59:36 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadError.st,v 1.2 2005/02/02 10:59:36 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ReadError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/ReadOnlySequenceableCollection.st Sun May 24 14:53:14 2015 +0200
+++ b/ReadOnlySequenceableCollection.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
SequenceableCollection subclass:#ReadOnlySequenceableCollection
@@ -106,5 +105,12 @@
!ReadOnlySequenceableCollection class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/ReadOnlySequenceableCollection.st,v 1.4 2005-06-27 10:24:03 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/ReadOnlySequenceableCollection.st,v 1.4 2005/06/27 10:24:03 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ReadOnlySequenceableCollection.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/RecursionError.st Sun May 24 14:53:14 2015 +0200
+++ b/RecursionError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
Error subclass:#RecursionError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!RecursionError class methodsFor:'documentation'!
@@ -41,6 +41,7 @@
"
! !
+
!RecursionError class methodsFor:'initialization'!
initialize
@@ -51,6 +52,7 @@
"
! !
+
!RecursionError class methodsFor:'queries'!
mayProceed
@@ -61,10 +63,15 @@
"Created: / 10.11.2001 / 15:10:56 / cg"
! !
+
!RecursionError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/RecursionError.st,v 1.6 2013-04-27 10:09:34 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: RecursionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/RecursiveExceptionError.st Sun May 24 14:53:14 2015 +0200
+++ b/RecursiveExceptionError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
Error subclass:#RecursiveExceptionError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!RecursiveExceptionError class methodsFor:'documentation'!
@@ -47,6 +47,7 @@
! !
+
!RecursiveExceptionError class methodsFor:'initialization'!
initialize
@@ -60,6 +61,7 @@
! !
+
!RecursiveExceptionError class methodsFor:'queries'!
mayProceed
@@ -69,6 +71,7 @@
! !
+
!RecursiveExceptionError methodsFor:'accessing'!
exception
@@ -78,10 +81,15 @@
^ parameter
! !
+
!RecursiveExceptionError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/RecursiveExceptionError.st,v 1.6 2013-04-19 08:40:19 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: RecursiveExceptionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/RestartProcessRequest.st Sun May 24 14:53:14 2015 +0200
+++ b/RestartProcessRequest.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ControlRequest subclass:#RestartProcessRequest
@@ -45,5 +44,12 @@
!RestartProcessRequest class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/RestartProcessRequest.st,v 1.2 2003-08-29 19:18:11 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/RestartProcessRequest.st,v 1.2 2003/08/29 19:18:11 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: RestartProcessRequest.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/RomanNumberFormatError.st Sun May 24 14:53:14 2015 +0200
+++ b/RomanNumberFormatError.st Mon May 25 06:37:39 2015 +0200
@@ -49,5 +49,9 @@
!RomanNumberFormatError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/RomanNumberFormatError.st,v 1.4 2008-08-06 09:53:04 cg Exp $'
+ ^ '$Id: RomanNumberFormatError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
+!
+
+version_SVN
+ ^ '$Id: RomanNumberFormatError.st 10808 2012-05-09 15:04:12Z vranyj1 $'
! !
--- a/SignalError.st Sun May 24 14:53:14 2015 +0200
+++ b/SignalError.st Mon May 25 06:37:39 2015 +0200
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#SignalError
@@ -49,5 +46,12 @@
!SignalError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SignalError.st,v 1.5 2004-04-22 15:28:24 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SignalError.st,v 1.5 2004/04/22 15:28:24 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: SignalError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/Smalltalk.st Sun May 24 14:53:14 2015 +0200
+++ b/Smalltalk.st Mon May 25 06:37:39 2015 +0200
@@ -1326,31 +1326,34 @@
oldName := aClass name.
sym := oldNameSym := oldName asSymbol.
((self at:oldNameSym) == aClass) ifFalse:[
- "check other name ..."
- (self includes:aClass) ifFalse:[
- 'Smalltalk [warning]: no such class: ' errorPrint. oldName errorPrintCR.
- ^ self
- ].
- "
- the class has changed its name - without telling me ...
- what should be done in this case ?
- "
- 'Smalltalk [warning]: class ' errorPrint. oldName errorPrint.
- ' has changed its name' errorPrintCR.
-
- "/
- "/ might be an alias (i.e. removing a compatibility name)
- "/
- actualName := self keyAtValue:aClass.
- ('Smalltalk [info]: ' , oldName , ' is actually stored as ' , actualName , '.') infoPrintCR.
- sym := actualName asSymbol.
- oldName := actualName asString.
- wrongName := true.
+ "check other name ..."
+ (self includes:aClass) ifFalse:[
+ 'Smalltalk [warning]: no such class: ' errorPrint. oldName errorPrintCR.
+ ^ self
+ ].
+ "
+ the class has changed its name - without telling me ...
+ what should be done in this case ?
+ "
+ 'Smalltalk [warning]: class ' errorPrint. oldName errorPrint.
+ ' has changed its name' errorPrintCR.
+
+ "/
+ "/ might be an alias (i.e. removing a compatibility name)
+ "/
+ actualName := self keyAtValue:aClass.
+ ('Smalltalk [info]: ' , oldName , ' is actually stored as ' , actualName , '.') infoPrintCR.
+ sym := actualName asSymbol.
+ oldName := actualName asString.
+ wrongName := true.
].
ns := aClass nameSpace.
aClass topOwningClass notNil ifTrue:[
- ons := aClass topOwningClass nameSpace
+ ons := aClass topOwningClass nameSpace
+ ].
+ aClass isBuiltInClass ifTrue:[
+ self error: 'Cannot remove builtin class!!'.
].
self at:sym put:nil. "nil it out for compiled accesses"
@@ -1359,25 +1362,25 @@
"/ see comment in removeKey: on why we dont remove it here
"/
"/ self removeKey:sym. "/ remove key - this actually fails, if there are
- "/ still compiled code references."
+ "/ still compiled code references."
"remove private classes"
aClass privateClassesSorted do:[:somePrivateClass |
- aClass privateClassesAt:(somePrivateClass nameWithoutPrefix) asSymbol put:nil.
+ aClass privateClassesAt:(somePrivateClass nameWithoutPrefix) asSymbol put:nil.
].
"remove class variables"
names := aClass classVariableString asCollectionOfWords.
names do:[:name |
- cSym := aClass globalKeyForClassVar:name.
- self at:cSym asSymbol put:nil.
-
- "/
- "/ see comment in removeKey: on why we dont remove it here
- "/
- "/ self removeKey:cSym
+ cSym := aClass globalKeyForClassVar:name.
+ self at:cSym asSymbol put:nil.
+
+ "/
+ "/ see comment in removeKey: on why we dont remove it here
+ "/
+ "/ self removeKey:cSym
].
@@ -1409,34 +1412,35 @@
Class flushSubclassInfoFor:aClass.
wrongName == true ifTrue:[
- "/
- "/ an alias (i.e. removing a compatibility name)
- "/
- "/ check if there are more refs to it ...
- [self includes:aClass] whileTrue:[
- actualName := self keyAtValue:aClass.
- ('Smalltalk [info]: ' , aClass name , ' is also registered under the name ' , actualName
- , ' - remove that binding too.') infoPrintCR.
- self at:actualName put:nil.
- ].
+ "/
+ "/ an alias (i.e. removing a compatibility name)
+ "/
+ "/ check if there are more refs to it ...
+ [self includes:aClass] whileTrue:[
+ actualName := self keyAtValue:aClass.
+ ('Smalltalk [info]: ' , aClass name , ' is also registered under the name ' , actualName
+ , ' - remove that binding too.') infoPrintCR.
+ self at:actualName put:nil.
+ ].
].
ns ~~ Smalltalk ifTrue:[
- ons notNil ifTrue:[
- ClassBuilder
- recompileGlobalAccessorsTo:oldNameSym
- in:ons
- except:nil
- ].
- (ns notNil and:[ns ~~ ons]) ifTrue:[
- ClassBuilder
- recompileGlobalAccessorsTo:oldNameSym
- in:ns
- except:nil
- ].
+ ons notNil ifTrue:[
+ ClassBuilder
+ recompileGlobalAccessorsTo:oldNameSym
+ in:ons
+ except:nil
+ ].
+ (ns notNil and:[ns ~~ ons]) ifTrue:[
+ ClassBuilder
+ recompileGlobalAccessorsTo:oldNameSym
+ in:ns
+ except:nil
+ ].
].
"Modified: / 18-11-2006 / 17:16:31 / cg"
+ "Modified: / 20-04-2015 / 17:20:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
renameClass:aClass to:newName
@@ -8291,6 +8295,11 @@
^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.1133 2015-05-22 18:41:08 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$ Id: Smalltalk.st 10648 2011-06-23 15:55:10Z vranyj1 $'
! !
--- a/SmalltalkChunkFileSourceWriter.st Sun May 24 14:53:14 2015 +0200
+++ b/SmalltalkChunkFileSourceWriter.st Mon May 25 06:37:39 2015 +0200
@@ -124,7 +124,7 @@
|src|
src := m source.
- src notNil and:[src isWideString]
+ src notNil and:[src isWideString and:[ src contains: [:c | c codePoint > 16rFF ] ] ]
]]].
any16Bit ifTrue:[
@@ -140,6 +140,7 @@
encoder:encoder
"Created: / 04-10-2014 / 12:11:49 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 13-04-2015 / 21:28:52 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOut:aClass on:outStreamArg withTimeStamp:stampIt withInitialize:initIt withDefinition:withDefinition methodFilter:methodFilter encoder:encoderOrNil
@@ -577,7 +578,7 @@
|source possiblyRewrittenSource rewriteQuery|
- source := aMethod source.
+ source := aMethod source asSingleByteStringIfPossible.
source isNil ifTrue:[
Class fileOutErrorSignal
raiseRequestWith:aMethod mclass
@@ -599,6 +600,8 @@
"/ Transcript showCR: possiblyRewrittenSource.
"/].
].
+
+ "Modified: / 13-04-2015 / 21:37:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
fileOutMethods: methods on: stream
@@ -715,6 +718,11 @@
^ '$Header: /cvs/stx/stx/libbasic/SmalltalkChunkFileSourceWriter.st,v 1.30 2015-02-03 19:14:15 cg Exp $'
!
+version_HG
+
+ ^ '$Changeset: <not expanded> $'
+!
+
version_SVN
^ '$ Id: SmalltalkChunkFileSourceWriter.st 10643 2011-06-08 21:53:07Z vranyj1 $'
! !
--- a/SnapshotError.st Sun May 24 14:53:14 2015 +0200
+++ b/SnapshotError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
Error subclass:#SnapshotError
@@ -44,7 +43,14 @@
!SnapshotError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SnapshotError.st,v 1.3 2005-03-29 22:25:15 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SnapshotError.st,v 1.3 2005/03/29 22:25:15 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: SnapshotError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
SnapshotError initialize!
+
+
+
--- a/StreamIOError.st Sun May 24 14:53:14 2015 +0200
+++ b/StreamIOError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#StreamIOError
@@ -38,5 +37,12 @@
!StreamIOError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/StreamIOError.st,v 1.2 2005-02-02 11:03:44 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/StreamIOError.st,v 1.2 2005/02/02 11:03:44 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: StreamIOError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/StreamNotOpenError.st Sun May 24 14:53:14 2015 +0200
+++ b/StreamNotOpenError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
StreamError subclass:#StreamNotOpenError
@@ -44,5 +43,12 @@
!StreamNotOpenError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/StreamNotOpenError.st,v 1.3 2005-02-02 10:59:49 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/StreamNotOpenError.st,v 1.3 2005/02/02 10:59:49 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: StreamNotOpenError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/SubscriptOutOfBoundsError.st Sun May 24 14:53:14 2015 +0200
+++ b/SubscriptOutOfBoundsError.st Mon May 25 06:37:39 2015 +0200
@@ -12,10 +12,10 @@
"{ Package: 'stx:libbasic' }"
IndexNotFoundError subclass:#SubscriptOutOfBoundsError
- instanceVariableNames:''
- classVariableNames:''
- poolDictionaries:''
- category:'Kernel-Exceptions-Errors'
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Kernel-Exceptions-Errors'
!
!SubscriptOutOfBoundsError class methodsFor:'documentation'!
@@ -41,6 +41,7 @@
"
! !
+
!SubscriptOutOfBoundsError class methodsFor:'initialization'!
initialize
@@ -51,10 +52,15 @@
"
! !
+
!SubscriptOutOfBoundsError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/SubscriptOutOfBoundsError.st,v 1.5 2013-04-27 10:07:39 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: SubscriptOutOfBoundsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/SystemNotification.st Sun May 24 14:53:14 2015 +0200
+++ b/SystemNotification.st Mon May 25 06:37:39 2015 +0200
@@ -37,5 +37,8 @@
!SystemNotification class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/SystemNotification.st,v 1.3 2008-10-04 08:42:18 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/SystemNotification.st,v 1.3 2008/10/04 08:42:18 cg Exp $'
! !
+
+
+
--- a/TextCollectorStream.st Sun May 24 14:53:14 2015 +0200
+++ b/TextCollectorStream.st Mon May 25 06:37:39 2015 +0200
@@ -195,5 +195,8 @@
!TextCollectorStream class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/TextCollectorStream.st,v 1.2 2006-04-06 10:54:06 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/TextCollectorStream.st,v 1.2 2006/04/06 10:54:06 stefan Exp $'
! !
+
+
+
--- a/TimeConversionError.st Sun May 24 14:53:14 2015 +0200
+++ b/TimeConversionError.st Mon May 25 06:37:39 2015 +0200
@@ -43,7 +43,14 @@
!TimeConversionError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/TimeConversionError.st,v 1.1 2008-08-06 09:22:57 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/TimeConversionError.st,v 1.1 2008/08/06 09:22:57 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: TimeConversionError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
TimeConversionError initialize!
+
+
+
--- a/TimeoutError.st Sun May 24 14:53:14 2015 +0200
+++ b/TimeoutError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#TimeoutError
@@ -67,7 +66,14 @@
!TimeoutError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/TimeoutError.st,v 1.5 2004-08-22 17:47:07 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/TimeoutError.st,v 1.5 2004/08/22 17:47:07 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: TimeoutError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
TimeoutError initialize!
+
+
+
--- a/UnboundedExternalStream.st Sun May 24 14:53:14 2015 +0200
+++ b/UnboundedExternalStream.st Mon May 25 06:37:39 2015 +0200
@@ -71,3 +71,6 @@
version
^ '$Header: /cvs/stx/stx/libbasic/UnboundedExternalStream.st,v 1.9 2015-04-21 16:06:59 cg Exp $'
! !
+
+
+
--- a/UnderflowError.st Sun May 24 14:53:14 2015 +0200
+++ b/UnderflowError.st Mon May 25 06:37:39 2015 +0200
@@ -41,16 +41,22 @@
"
! !
+
!UnderflowError class methodsFor:'initialization'!
initialize
NotifierString := 'underflow'.
! !
+
!UnderflowError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/UnderflowError.st,v 1.4 2013-03-13 23:43:59 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: UnderflowError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/UnimplementedFunctionalityError.st Sun May 24 14:53:14 2015 +0200
+++ b/UnimplementedFunctionalityError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ProceedableError subclass:#UnimplementedFunctionalityError
@@ -63,7 +62,14 @@
!UnimplementedFunctionalityError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UnimplementedFunctionalityError.st,v 1.2 2006-03-03 19:13:11 stefan Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UnimplementedFunctionalityError.st,v 1.2 2006/03/03 19:13:11 stefan Exp $'
+!
+
+version_SVN
+ ^ '$Id: UnimplementedFunctionalityError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
UnimplementedFunctionalityError initialize!
+
+
+
--- a/UnixFileHandle.st Sun May 24 14:53:14 2015 +0200
+++ b/UnixFileHandle.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
OSFileHandle subclass:#UnixFileHandle
@@ -60,5 +59,12 @@
!UnixFileHandle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UnixFileHandle.st,v 1.4 2003-08-30 12:36:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UnixFileHandle.st,v 1.4 2003/08/30 12:36:42 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: UnixFileHandle.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
+
+
+
--- a/UnorderedNumbersError.st Sun May 24 14:53:14 2015 +0200
+++ b/UnorderedNumbersError.st Mon May 25 06:37:39 2015 +0200
@@ -40,16 +40,22 @@
"
! !
+
!UnorderedNumbersError class methodsFor:'initialization'!
initialize
NotifierString := 'unordered'.
! !
+
!UnorderedNumbersError class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/UnorderedNumbersError.st,v 1.5 2013-03-13 23:44:03 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: UnorderedNumbersError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- a/UserInformation.st Sun May 24 14:53:14 2015 +0200
+++ b/UserInformation.st Mon May 25 06:37:39 2015 +0200
@@ -63,7 +63,14 @@
!UserInformation class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/UserInformation.st,v 1.4 2008-10-04 08:42:26 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/UserInformation.st,v 1.4 2008/10/04 08:42:26 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: UserInformation.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
UserInformation initialize!
+
+
+
--- a/WeakValueIdentityDictionary.st Sun May 24 14:53:14 2015 +0200
+++ b/WeakValueIdentityDictionary.st Mon May 25 06:37:39 2015 +0200
@@ -251,5 +251,8 @@
!WeakValueIdentityDictionary class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WeakValueIdentityDictionary.st,v 1.4 2006-03-06 10:04:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WeakValueIdentityDictionary.st,v 1.4 2006/03/06 10:04:38 cg Exp $'
! !
+
+
+
--- a/Win32OperatingSystem.st Sun May 24 14:53:14 2015 +0200
+++ b/Win32OperatingSystem.st Mon May 25 06:37:39 2015 +0200
@@ -484,7 +484,9 @@
#define _HANDLEVal(o) (HANDLE)(__externalAddressVal(o))
#define _SETHANDLEVal(o, v) (__externalAddressVal(o) = (v))
+#ifndef __MINGW__
HANDLE _get_osfhandle(int);
+#endif
#if defined(__BORLANDC__)
@@ -18210,7 +18212,7 @@
initialize
%{ /* NOCONTEXT */
- (SOCKET)(__externalAddressVal(self)) = INVALID_SOCKET;
+ (__externalAddressVal(self)) = (INT)INVALID_SOCKET;
%}
"
--- a/WrongNumberOfArgumentsError.st Sun May 24 14:53:14 2015 +0200
+++ b/WrongNumberOfArgumentsError.st Mon May 25 06:37:39 2015 +0200
@@ -9,7 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
"{ Package: 'stx:libbasic' }"
ArgumentError subclass:#WrongNumberOfArgumentsError
@@ -56,7 +55,14 @@
!WrongNumberOfArgumentsError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WrongNumberOfArgumentsError.st,v 1.5 2003-12-05 15:47:45 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WrongNumberOfArgumentsError.st,v 1.5 2003/12/05 15:47:45 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: WrongNumberOfArgumentsError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
WrongNumberOfArgumentsError initialize!
+
+
+
--- a/WrongProceedabilityError.st Sun May 24 14:53:14 2015 +0200
+++ b/WrongProceedabilityError.st Mon May 25 06:37:39 2015 +0200
@@ -9,9 +9,6 @@
other person. No title to or ownership of the software is
hereby transferred.
"
-
-
-
"{ Package: 'stx:libbasic' }"
SignalError subclass:#WrongProceedabilityError
@@ -67,7 +64,14 @@
!WrongProceedabilityError class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/WrongProceedabilityError.st,v 1.4 2003-08-29 19:14:38 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/WrongProceedabilityError.st,v 1.4 2003/08/29 19:14:38 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: WrongProceedabilityError.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
WrongProceedabilityError initialize!
+
+
+
--- a/ZeroDivide.st Sun May 24 14:53:14 2015 +0200
+++ b/ZeroDivide.st Mon May 25 06:37:39 2015 +0200
@@ -65,12 +65,14 @@
"
! !
+
!ZeroDivide class methodsFor:'initialization'!
initialize
NotifierString := 'division by zero'.
! !
+
!ZeroDivide methodsFor:'accessing'!
defaultResumeValue
@@ -123,10 +125,15 @@
"
! !
+
!ZeroDivide class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/ZeroDivide.st,v 1.8 2013-01-25 17:19:34 cg Exp $'
+!
+
+version_SVN
+ ^ '$Id: ZeroDivide.st 10761 2012-01-19 11:46:00Z vranyj1 $'
! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/lcmake.bat Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,8 @@
+@REM -------
+@REM make using lcc compiler
+@REM type lcmake, and wait...
+@REM do not edit - automatically generated from ProjectDefinition
+@REM -------
+make.exe -N -f bc.mak USELCC=1 %1 %2
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/not_delivered/.cvsignore Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,2 @@
+*.bad
+*.new
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/not_delivered/SysDict.st Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,316 @@
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+Collection subclass:#SystemDictionary
+ instanceVariableNames:'sysId'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Support'
+!
+
+!SystemDictionary class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/not_delivered/SysDict.st,v 1.1 1996/09/12 01:05:30 cg Exp $'
+!
+
+documentation
+"
+ SystemDictionaries are nameSpaces, which are also known in the c-world
+ somehow (i.e. names found in SystemDictionaries may also be known as
+ a c-global).
+
+ As you will notice, this is NOT a Dictionary
+ - my implementation of globals is totally different
+ (due to the need to be able to access globals from c-code as well).
+ However, it provides the known enumeration protocol.
+
+ Instance variables:
+ sysId <SmallInteger> the dictionaries id
+"
+! !
+
+!SystemDictionary methodsFor:'accessing'!
+
+at:aKey
+ "retrieve the value stored under aKey, which must be some kind of symbol.
+ Return nil if not present."
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_GET();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_GET(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+at:aKey ifAbsent:aBlock
+ "retrieve the value stored under aKey.
+ If there is none stored this key, return the value of
+ the evaluation of aBlock"
+
+ (self includesKey:aKey) ifTrue:[
+ ^ self at:aKey
+ ].
+ ^ aBlock value
+!
+
+at:aKey put:aValue
+ "store the argument aValue under aKey, which must be some kind of symbol."
+
+%{ /* NOCONTEXT */
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_SET(__intVal(__INST(sysId)), aKey, aValue, (OBJ *)0);
+ RETURN (aValue);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+removeKey:aKey
+ "remove the argument from the globals dictionary"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_REMOVE();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_REMOVE(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+includesKey:aKey
+ "return true, if the key is known"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_KEYKNOWN();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_KEYKNOWN(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+keyAtValue:anObject
+ "return the symbol under which anObject is stored - or nil"
+
+ self allKeysDo:[:aKey |
+ (self at:aKey) == anObject ifTrue:[^ aKey]
+ ]
+
+ "Smalltalk keyAtValue:Object"
+!
+
+keys
+ "return a collection with all keys in the Smalltalk dictionary"
+
+ |keys|
+
+ keys := IdentitySet new.
+ self allKeysDo:[:k | keys add:k].
+ ^ keys
+! !
+
+!SystemDictionary class methodsFor:'copying'!
+
+shallowCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+simpleDeepCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+deepCopyUsing:aDictionary
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+deepCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+! !
+
+!SystemDictionary methodsFor:'inspecting'!
+
+inspect
+ "redefined to launch a DictionaryInspector on the receiver
+ (instead of the default InspectorView)."
+
+ DictionaryInspectorView isNil ifTrue:[
+ super inspect
+ ] ifFalse:[
+ DictionaryInspectorView openOn:self
+ ]
+! !
+
+!SystemDictionary methodsFor:'enumeration'!
+
+do:aBlock
+ "evaluate the argument, aBlock for all values in the dictionary"
+%{
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_DO(__intVal(__INST(sysId)), &aBlock COMMA_CON);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+
+ "
+ Smalltalk do:[:value | value class name printNL]
+ "
+!
+
+allKeysDo:aBlock
+ "evaluate the argument, aBlock for all keys in the dictionary"
+%{
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_KEYSDO(__intVal(__INST(sysId)), &aBlock COMMA_CON);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+
+ "
+ Smalltalk allKeysDo:[:key | key printNL]
+ "
+!
+
+associationsDo:aBlock
+ "evaluate the argument, aBlock for all key/value pairs
+ in the dictionary"
+
+ self allKeysDo:[:aKey |
+ aBlock value:(aKey -> (self at:aKey))
+ ]
+
+ "
+ Smalltalk associationsDo:[:assoc | assoc printNL]
+ "
+!
+
+keysAndValuesDo:aBlock
+ "evaluate the two-arg block, aBlock for all keys and values"
+
+ self allKeysDo:[:aKey |
+ aBlock value:aKey value:(self at:aKey)
+ ]
+! !
+
+!SystemDictionary methodsFor:'queries'!
+
+cellAt:aKey
+ "return the address of a global cell
+ - used internally for compiler only"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_GETCELL();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_GETCELL(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+references:anObject
+ "return true, if I refer to the argument, anObject
+ must be reimplemented since systemDictionaries are no real collections."
+
+ self do:[:o |
+ (o == anObject) ifTrue:[^ true]
+ ].
+ ^ false
+! !
+
+!SystemDictionary class methodsFor: 'binary storage'!
+
+addGlobalsTo:globalDictionary manager: manager
+ |pools|
+
+ pools := Set new.
+ self associationsDo:[:assoc |
+ |value|
+
+ value := assoc value.
+ value == self ifFalse:[
+ value isClass ifTrue:[
+ value addGlobalsTo:globalDictionary manager:manager.
+ pools addAll:value sharedPools
+ ] ifFalse:[
+ globalDictionary at:assoc put:self
+ ].
+ value isNil ifFalse:[
+ globalDictionary at:value put:self
+ ]
+ ]
+ ].
+
+ pools do:[:poolDictionary|
+ poolDictionary addGlobalsTo:globalDictionary manager:manager
+ ]
+!
+
+storeBinaryDefinitionOf:anObject on:stream manager:manager
+ |string|
+
+ anObject class == Association ifTrue:[
+ string := 'Smalltalk associationAt:', anObject key storeString
+ ] ifFalse: [
+ string := 'Smalltalk at:', (self keyAtValue: anObject) storeString
+ ].
+ stream nextNumber:2 put:string size.
+ string do:[:char | stream nextPut:char asciiValue]
+! !
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/not_delivered/SystemDictionary.st Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,321 @@
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+Collection subclass:#SystemDictionary
+ instanceVariableNames:'sysId'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Support'
+!
+
+!SystemDictionary class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1994 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/not_delivered/SysDict.st,v 1.1 1996/09/12 01:05:30 cg Exp $'
+!
+
+documentation
+"
+ SystemDictionaries are nameSpaces, which are also known in the c-world
+ somehow (i.e. names found in SystemDictionaries may also be known as
+ a c-global).
+
+ As you will notice, this is NOT a Dictionary
+ - my implementation of globals is totally different
+ (due to the need to be able to access globals from c-code as well).
+ However, it provides the known enumeration protocol.
+
+ Instance variables:
+ sysId <SmallInteger> the dictionaries id
+"
+! !
+
+!SystemDictionary methodsFor:'accessing'!
+
+at:aKey
+ "retrieve the value stored under aKey, which must be some kind of symbol.
+ Return nil if not present."
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_GET();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_GET(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+at:aKey ifAbsent:aBlock
+ "retrieve the value stored under aKey.
+ If there is none stored this key, return the value of
+ the evaluation of aBlock"
+
+ (self includesKey:aKey) ifTrue:[
+ ^ self at:aKey
+ ].
+ ^ aBlock value
+!
+
+at:aKey put:aValue
+ "store the argument aValue under aKey, which must be some kind of symbol."
+
+%{ /* NOCONTEXT */
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_SET(__intVal(__INST(sysId)), aKey, aValue, (OBJ *)0);
+ RETURN (aValue);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+removeKey:aKey
+ "remove the argument from the globals dictionary"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_REMOVE();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_REMOVE(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+includesKey:aKey
+ "return true, if the key is known"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_KEYKNOWN();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_KEYKNOWN(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+keyAtValue:anObject
+ "return the symbol under which anObject is stored - or nil"
+
+ self allKeysDo:[:aKey |
+ (self at:aKey) == anObject ifTrue:[^ aKey]
+ ]
+
+ "Smalltalk keyAtValue:Object"
+!
+
+keys
+ "return a collection with all keys in the Smalltalk dictionary"
+
+ |keys|
+
+ keys := IdentitySet new.
+ self allKeysDo:[:k | keys add:k].
+ ^ keys
+! !
+
+!SystemDictionary class methodsFor:'copying'!
+
+shallowCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+simpleDeepCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+deepCopyUsing:aDictionary
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+!
+
+deepCopy
+ "redefine copy - there is only one instance of each dictionary"
+
+ ^ self
+! !
+
+!SystemDictionary methodsFor:'inspecting'!
+
+inspect
+ "redefined to launch a DictionaryInspector on the receiver
+ (instead of the default InspectorView)."
+
+ DictionaryInspectorView isNil ifTrue:[
+ super inspect
+ ] ifFalse:[
+ DictionaryInspectorView openOn:self
+ ]
+! !
+
+!SystemDictionary methodsFor:'enumeration'!
+
+do:aBlock
+ "evaluate the argument, aBlock for all values in the dictionary"
+%{
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_DO(__intVal(__INST(sysId)), &aBlock COMMA_CON);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+
+ "
+ Smalltalk do:[:value | value class name printNL]
+ "
+!
+
+allKeysDo:aBlock
+ "evaluate the argument, aBlock for all keys in the dictionary"
+%{
+ if (__isSmallInteger(__INST(sysId))) {
+ _SYSDICT_KEYSDO(__intVal(__INST(sysId)), &aBlock COMMA_CON);
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+
+ "
+ Smalltalk allKeysDo:[:key | key printNL]
+ "
+!
+
+associationsDo:aBlock
+ "evaluate the argument, aBlock for all key/value pairs
+ in the dictionary"
+
+ self allKeysDo:[:aKey |
+ aBlock value:(aKey -> (self at:aKey))
+ ]
+
+ "
+ Smalltalk associationsDo:[:assoc | assoc printNL]
+ "
+!
+
+keysAndValuesDo:aBlock
+ "evaluate the two-arg block, aBlock for all keys and values"
+
+ self allKeysDo:[:aKey |
+ aBlock value:aKey value:(self at:aKey)
+ ]
+! !
+
+!SystemDictionary methodsFor:'queries'!
+
+cellAt:aKey
+ "return the address of a global cell
+ - used internally for compiler only"
+
+%{ /* NOCONTEXT */
+ extern OBJ _SYSDICT_GETCELL();
+
+ if (__isSmallInteger(__INST(sysId))) {
+ RETURN ( _SYSDICT_GETCELL(__intVal(__INST(sysId)), aKey) );
+ }
+%}.
+ "
+ the receiver is not a valid systemDictionary
+ "
+ self pimitiveFailed
+!
+
+references:anObject
+ "return true, if I refer to the argument, anObject
+ must be reimplemented since systemDictionaries are no real collections."
+
+ self do:[:o |
+ (o == anObject) ifTrue:[^ true]
+ ].
+ ^ false
+! !
+
+!SystemDictionary class methodsFor: 'binary storage'!
+
+addGlobalsTo:globalDictionary manager: manager
+ |pools|
+
+ pools := Set new.
+ self associationsDo:[:assoc |
+ |value|
+
+ value := assoc value.
+ value == self ifFalse:[
+ value isClass ifTrue:[
+ value addGlobalsTo:globalDictionary manager:manager.
+ pools addAll:value sharedPools
+ ] ifFalse:[
+ globalDictionary at:assoc put:self
+ ].
+ value isNil ifFalse:[
+ globalDictionary at:value put:self
+ ]
+ ]
+ ].
+
+ pools do:[:poolDictionary|
+ poolDictionary addGlobalsTo:globalDictionary manager:manager
+ ]
+!
+
+storeBinaryDefinitionOf:anObject on:stream manager:manager
+ |string|
+
+ anObject class == Association ifTrue:[
+ string := 'Smalltalk associationAt:', anObject key storeString
+ ] ifFalse: [
+ string := 'Smalltalk at:', (self keyAtValue: anObject) storeString
+ ].
+ stream nextNumber:2 put:string size.
+ string do:[:char | stream nextPut:char asciiValue]
+! !
+
+
+
+
+
--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/not_delivered/VMBehavior.st Mon May 25 06:37:39 2015 +0200
@@ -0,0 +1,615 @@
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+
+Object subclass:#VMBehavior
+ instanceVariableNames:'superclass flags selectorArray methodArray'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'Kernel-Classes'
+!
+
+!VMBehavior class methodsFor:'documentation'!
+
+copyright
+"
+ COPYRIGHT (c) 1995 by Claus Gittinger
+ All Rights Reserved
+
+ This software is furnished under a license and may be used
+ only in accordance with the terms of that license and with the
+ inclusion of the above copyright notice. This software may not
+ be provided or otherwise made available to, or used by, any
+ other person. No title to or ownership of the software is
+ hereby transferred.
+"
+!
+
+documentation
+"
+ This class describes what the VM considers to be a classLike object.
+ Every class in the system inherits from VMBehavior (via Behavior, Class, ClassDescription).
+
+ In contrast to Behavior (which describes smalltalk behavior), the things defined
+ here are valid for all objects for which the VM can do a method lookup.
+ In theory, you can create totally different object systems on top of VMBehavior.
+ This class is purely abstract - therefore, no smalltalk behavior is defined here.
+
+ This is certainly not for normal applications.
+
+ Instance variables:
+
+ superclass <Class> where lookup continues when a selector is not
+ found in the selector array
+ (i.e. the superclass in Smalltalk terms)
+
+ selectorArray <Array of Symbol> the selectors for which inst-methods are defined here
+
+ methodArray <Array of Method> the inst-methods corresponding to the selectors
+
+ flags <SmallInteger> special flag bits coded in a number
+ not for application use
+
+ flag bits (see stc.h):
+
+ NOTICE: layout known by compiler and runtime system; be careful when changing
+"
+! !
+
+!VMBehavior class methodsFor:'initialization'!
+
+initialize
+ self == VMBehavior ifTrue:[
+ self flags:(self flagBehavior).
+ ]
+
+ "
+ self initialize
+ "
+! !
+
+!VMBehavior class methodsFor:'flag bit constants'!
+
+flagBehavior
+ "return the flag code which marks Behavior-like instances.
+ You have to check this single bit in the flag value when
+ checking for behaviors."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(BEHAVIOR_INSTS) );
+%}
+
+ "consistency check:
+ all class-entries must be behaviors;
+ all behaviors must be flagged so (in its class's flags)
+ (otherwise, VM will bark)
+ all non-behaviors may not be flagged
+
+ |bit|
+ bit := Class flagBehavior.
+
+ ObjectMemory allObjectsDo:[:o|
+ o isBehavior ifTrue:[
+ (o class flags bitTest:bit) ifFalse:[
+ self halt
+ ].
+ ] ifFalse:[
+ (o class flags bitTest:bit) ifTrue:[
+ self halt
+ ].
+ ].
+ o class isBehavior ifFalse:[
+ self halt
+ ] ifTrue:[
+ (o class class flags bitTest:bit) ifFalse:[
+ self halt
+ ]
+ ]
+ ]
+ "
+!
+
+flagBlock
+ "return the flag code which marks Block-like instances.
+ You have to check this single bit in the flag value when
+ checking for blocks."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(BLOCK_INSTS) );
+%}
+!
+
+flagBlockContext
+ "return the flag code which marks BlockContext-like instances.
+ You have to check this single bit in the flag value when
+ checking for blockContexts."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(BCONTEXT_INSTS) );
+%}
+!
+
+flagBytes
+ "return the flag code for byte-valued indexed instances.
+ You have to mask the flag value with indexMask when comparing
+ it with flagBytes."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(BYTEARRAY) );
+%}
+ "
+ Behavior flagBytes
+ "
+!
+
+flagContext
+ "return the flag code which marks Context-like instances.
+ You have to check this single bit in the flag value when
+ checking for contexts."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(CONTEXT_INSTS) );
+%}
+!
+
+flagDoubles
+ "return the flag code for double-valued indexed instances (i.e. 8-byte reals).
+ You have to mask the flag value with indexMask when comparing
+ it with flagDoubles."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(DOUBLEARRAY) );
+%}
+ "
+ Behavior flagDoubles
+ "
+!
+
+flagFloat
+ "return the flag code which marks Float-like instances.
+ You have to check this single bit in the flag value when
+ checking for floats."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(FLOAT_INSTS) );
+%}
+!
+
+flagFloats
+ "return the flag code for float-valued indexed instances (i.e. 4-byte reals).
+ You have to mask the flag value with indexMask when comparing
+ it with flagFloats."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(FLOATARRAY) );
+%}
+ "
+ Behavior flagFloats
+ "
+!
+
+flagLongs
+ "return the flag code for long-valued indexed instances (i.e. 4-byte).
+ You have to mask the flag value with indexMask when comparing
+ it with flagLongs."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(LONGARRAY) );
+%}
+ "
+ Behavior flagLongs
+ "
+!
+
+flagMethod
+ "return the flag code which marks Method-like instances.
+ You have to check this single bit in the flag value when
+ checking for methods."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(METHOD_INSTS) );
+%}
+!
+
+flagNotIndexed
+ "return the flag code for non-indexed instances.
+ You have to mask the flag value with indexMask when comparing
+ it with flagNotIndexed."
+
+ ^ 0
+!
+
+flagPointers
+ "return the flag code for pointer indexed instances (i.e. Array of object).
+ You have to mask the flag value with indexMask when comparing
+ it with flagPointers."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(POINTERARRAY) );
+%}
+ "
+ Behavior flagPointers
+ "
+!
+
+flagSymbol
+ "return the flag code which marks Symbol-like instances.
+ You have to check this single bit in the flag value when
+ checking for symbols."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(SYMBOL_INSTS) );
+%}
+!
+
+flagWeakPointers
+ "return the flag code for weak pointer indexed instances (i.e. WeakArray).
+ You have to mask the flag value with indexMask when comparing
+ it with flagWeakPointers."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(WKPOINTERARRAY) );
+%}
+!
+
+flagWords
+ "return the flag code for word-valued indexed instances (i.e. 2-byte).
+ You have to mask the flag value with indexMask when comparing
+ it with flagWords."
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(WORDARRAY) );
+%}
+ "
+ Behavior flagWords
+ "
+!
+
+maskIndexType
+ "return a mask to extract all index-type bits"
+
+%{ /* NOCONTEXT */
+ /* this is defined as a primitive to get defines from stc.h */
+
+ RETURN ( _MKSMALLINT(ARRAYMASK) );
+%}
+! !
+
+!VMBehavior class methodsFor:'private'!
+
+basicNew
+ "I dont know how to do this ..."
+
+ ^ self subclassResponsibility
+!
+
+basicNew:size
+ "I dont know how to do this ..."
+
+ ^ self subclassResponsibility
+!
+
+new
+ "I dont know how to do this ..."
+
+ ^ self subclassResponsibility
+!
+
+new:size
+ "I dont know how to do this ..."
+
+ ^ self subclassResponsibility
+! !
+
+!VMBehavior class methodsFor:'queries'!
+
+isBuiltInClass
+ "this class is known by the run-time-system"
+
+ ^ true
+! !
+
+!VMBehavior methodsFor:'accessing'!
+
+flags
+ "return the receivers flag bits"
+
+ ^ flags
+!
+
+methodArray
+ "return the receivers method array.
+ Notice: this is not compatible with ST-80."
+
+ ^ methodArray
+!
+
+selectorArray
+ "return the receivers selector array.
+ Notice: this is not compatible with ST-80."
+
+ ^ selectorArray
+!
+
+selectors:newSelectors methods:newMethods
+ "set both selector array and method array of the receiver,
+ and flush caches"
+
+ ObjectMemory flushCaches.
+ selectorArray := newSelectors.
+ methodArray := newMethods
+!
+
+superclass
+ "return the receivers superclass"
+
+ ^ superclass
+! !
+
+!VMBehavior methodsFor:'private accessing'!
+
+setFlags:aNumber
+ "set the flags.
+ Do NOT use it."
+
+ flags := aNumber
+!
+
+setMethodArray:anArray
+ "set the method array of the receiver.
+ this method is for special uses only - there will be no recompilation
+ and no change record written here.
+ NOT for general use."
+
+ methodArray := anArray
+!
+
+setSelectorArray:anArray
+ "set the selector array of the receiver.
+ this method is for special uses only - there will be no recompilation
+ and no change record written here.
+ NOT for general use."
+
+ selectorArray := anArray
+!
+
+setSelectors:sels methods:m
+ "set some inst vars.
+ this method is for special uses only - there will be no recompilation
+ and no change record written here;
+ Do NOT use it."
+
+ selectorArray := sels.
+ methodArray := m.
+!
+
+setSuperclass:aClass
+ "set the superclass of the receiver.
+ this method is for special uses only - there will be no recompilation
+ and no change record written here. Also, if the receiver class has
+ already been in use, future operation of the system is not guaranteed to
+ be correct, since no caches are flushed.
+ Therefore: do NOT use it; use Behavior>>superclass: (or flush the caches, at least)"
+
+ superclass := aClass
+! !
+
+!VMBehavior methodsFor:'queries'!
+
+cachedLookupMethodFor:aSelector
+ "return the method, which would be executed if aSelector was sent to
+ an instance of the receiver. I.e. the selector arrays of the receiver
+ and all of its superclasses are searched for aSelector.
+ Return the method, or nil if instances do not understand aSelector.
+ This interface provides exactly the same information as #lookupMethodFor:,
+ but uses the lookup-cache in the VM for faster search.
+ However, keep in mind, that doing a lookup through the cache also adds new
+ entries and can thus slow down the system by polluting the cache with
+ irrelevant entries. (do NOT loop over all objects calling this method).
+ Does NOT (currently) handle MI"
+
+%{ /* NOCONTEXT */
+ RETURN ( __lookup(self, aSelector, SENDER) );
+%}
+
+ "
+ String cachedLookupMethodFor:#=
+ String cachedLookupMethodFor:#asOrderedCollection
+ "
+!
+
+isBits
+ "return true, if instances have indexed byte or short instance variables.
+ Ignore long, float and double arrays, since ST-80 code using isBits are probably
+ not prepared to handle them correctly."
+
+%{ /* NOCONTEXT */
+
+ REGISTER int flags;
+
+ RETURN ( (((flags = (_intVal(_INST(flags)) & ARRAYMASK)) == BYTEARRAY)
+ || (flags == WORDARRAY)) ? true : false );
+%}
+!
+
+isBytes
+ "return true, if instances have indexed byte instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) == VMBehavior flagBytes
+ "
+%{ /* NOCONTEXT */
+
+ RETURN ( ((_intVal(_INST(flags)) & ARRAYMASK) == BYTEARRAY) ? true : false );
+%}
+!
+
+isDoubles
+ "return true, if instances have indexed double instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) == VMBehavior flagDoubles
+ "
+%{ /* NOCONTEXT */
+
+ RETURN ( ((_intVal(_INST(flags)) & ARRAYMASK) == DOUBLEARRAY) ? true : false );
+%}
+!
+
+isFixed
+ "return true, if instances do not have indexed instance variables"
+
+ "this could be defined as:
+ ^ self isVariable not
+ "
+
+%{ /* NOCONTEXT */
+
+ RETURN ( (_intVal(_INST(flags)) & ARRAYMASK) ? false : true );
+%}
+!
+
+isFloats
+ "return true, if instances have indexed float instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) == VMBehavior flagFloats
+ "
+%{ /* NOCONTEXT */
+
+ RETURN ( ((_intVal(_INST(flags)) & ARRAYMASK) == FLOATARRAY) ? true : false );
+%}
+!
+
+isLongs
+ "return true, if instances have indexed long instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) == VMBehavior flagLongs
+ "
+%{ /* NOCONTEXT */
+
+ RETURN ( ((_intVal(_INST(flags)) & ARRAYMASK) == LONGARRAY) ? true : false );
+%}
+!
+
+isPointers
+ "return true, if instances have pointer instance variables
+ i.e. are either non-indexed or have indexed pointer variables"
+
+ "QUESTION: should we ignore WeakPointers ?"
+
+%{ /* NOCONTEXT */
+
+ REGISTER int flags;
+
+ flags = _intVal(_INST(flags)) & ARRAYMASK;
+ switch (flags) {
+ default:
+ /* normal objects */
+ RETURN ( true );
+
+ case BYTEARRAY:
+ case WORDARRAY:
+ case LONGARRAY:
+ case FLOATARRAY:
+ case DOUBLEARRAY:
+ RETURN (false );
+
+ case WKPOINTERARRAY:
+ /* what about those ? */
+ RETURN (true );
+ }
+%}
+!
+
+isVariable
+ "return true, if instances have indexed instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) ~~ 0
+ "
+
+%{ /* NOCONTEXT */
+
+ RETURN ( (_intVal(_INST(flags)) & ARRAYMASK) ? true : false );
+%}
+!
+
+isWords
+ "return true, if instances have indexed short instance variables"
+
+ "this could be defined as:
+ ^ (flags bitAnd:(VMBehavior maskIndexType)) == VMBehavior flagWords
+ "
+%{ /* NOCONTEXT */
+
+ RETURN ( ((_intVal(_INST(flags)) & ARRAYMASK) == WORDARRAY) ? true : false );
+%}
+!
+
+lookupMethodFor:aSelector
+ "return the method, which would be executed if aSelector was sent to
+ an instance of the receiver. I.e. the selector arrays of the receiver
+ and all of its superclasses are searched for aSelector.
+ Return the method, or nil if instances do not understand aSelector.
+ EXPERIMENTAL: take care of multiple superclasses."
+
+ |m cls|
+
+ cls := self.
+ [cls notNil] whileTrue:[
+ m := cls compiledMethodAt:aSelector.
+ m notNil ifTrue:[^ m].
+ cls := cls superclass
+ ].
+ ^ nil
+! !
+
+!VMBehavior class methodsFor:'documentation'!
+
+version
+ ^ '$Header: /cvs/stx/stx/libbasic/not_delivered/VMBehavior.st,v 1.1 1996/09/12 01:03:24 cg Exp $'
+! !
+VMBehavior initialize!
+
+
+
+
+
--- a/resources/af.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/af.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/af.rs,v 1.3 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/af.rs,v 1.3 2004/03/15 16:39:09 cg Exp $
;
; Afrikaans strings
;
@@ -48,3 +48,10 @@
'oct' 'okt'
'nov' 'nov'
'dec' 'des'
+
+
+
+
+
+
+
--- a/resources/el.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/el.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-7
-; $Header: /cvs/stx/stx/libbasic/resources/el.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/el.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Greek strings
;
@@ -48,3 +48,10 @@
'oct' ''
'nov' ''
'dec' ''
+
+
+
+
+
+
+
--- a/resources/eo.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/eo.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding utf8
-; $Header: /cvs/stx/stx/libbasic/resources/eo.rs,v 1.3 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/eo.rs,v 1.3 2004/03/15 16:39:09 cg Exp $
;
; Esperanto strings
;
@@ -48,3 +48,10 @@
'oct' 'okt'
; 'nov' 'nov'
; 'dec' 'dec'
+
+
+
+
+
+
+
--- a/resources/fr.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/fr.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/fr.rs,v 1.3 2008-02-05 12:23:42 sr Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/fr.rs,v 1.3 2008/02/05 12:23:42 sr Exp $
;
; French strings
;
@@ -50,3 +50,10 @@
'oct' 'oct'
'nov' 'nov'
'dec' 'dc'
+
+
+
+
+
+
+
--- a/resources/hu.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/hu.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding utf-8
-; $Header: /cvs/stx/stx/libbasic/resources/hu.rs,v 1.2 2006-10-23 10:20:55 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/hu.rs,v 1.2 2006/10/23 10:20:55 cg Exp $
;
; Hungarian strings
;
@@ -48,3 +48,10 @@
'oct' 'okt'
'nov' 'nov'
'dec' 'dec'
+
+
+
+
+
+
+
--- a/resources/it.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/it.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/it.rs,v 1.4 2006-10-28 14:11:17 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/it.rs,v 1.4 2006/10/28 14:11:17 cg Exp $
;
; Italian strings
;
@@ -54,3 +54,10 @@
'oct' 'ott'
'nov' 'nov'
'dec' 'dic'
+
+
+
+
+
+
+
--- a/resources/ja.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/ja.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding utf-8
-; $Header: /cvs/stx/stx/libbasic/resources/ja.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/ja.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Japanese strings
;
@@ -59,3 +59,10 @@
'fri' '金曜'
'sat' '土曜'
'sun' '日曜'
+
+
+
+
+
+
+
--- a/resources/nl.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/nl.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/nl.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/nl.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Dutch strings
;
@@ -48,3 +48,10 @@
'oct' 'okt'
'nov' 'nov'
'dec' 'dec'
+
+
+
+
+
+
+
--- a/resources/no.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/no.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/no.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/no.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Norwegian strings
;
@@ -48,3 +48,10 @@
'oct' 'okt'
'nov' 'nov'
'dec' 'des'
+
+
+
+
+
+
+
--- a/resources/pt.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/pt.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/pt.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/pt.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Portuguese strings
;
@@ -49,3 +49,10 @@
'oct' 'out'
'nov' 'nov'
'dec' 'dez'
+
+
+
+
+
+
+
--- a/resources/resources.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/resources.rs Mon May 25 06:37:39 2015 +0200
@@ -1,7 +1,7 @@
#encoding ascii
;
-; $Header: /cvs/stx/stx/libbasic/resources/resources.rs,v 1.8 2008-11-28 16:44:55 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/resources.rs,v 1.8 2008/11/28 16:44:55 cg Exp $
;
#if Language == #af
@@ -128,3 +128,10 @@
#else
'TIME_FORMAT' ? 24
#endif
+
+
+
+
+
+
+
--- a/resources/ro.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/ro.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-2
-; $Header: /cvs/stx/stx/libbasic/resources/ro.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/ro.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Romanian strings
;
@@ -48,3 +48,10 @@
'oct' 'oct'
'nov' 'noi'
'dec' 'dec'
+
+
+
+
+
+
+
--- a/resources/ru.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/ru.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-5
-; $Header: /cvs/stx/stx/libbasic/resources/ru.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/ru.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Russian strings
;
@@ -48,3 +48,10 @@
'oct' '' "/ ???
'nov' '' "/ ???
'dec' '' "/ ???
+
+
+
+
+
+
+
--- a/resources/sv.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/sv.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/sv.rs,v 1.3 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/sv.rs,v 1.3 2004/03/15 16:39:09 cg Exp $
;
; Swedish strings
;
@@ -52,3 +52,10 @@
'oct' 'okt'
'nov' 'nov'
'dec' 'dec'
+
+
+
+
+
+
+
--- a/resources/tr.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/tr.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding iso8859-1
-; $Header: /cvs/stx/stx/libbasic/resources/tr.rs,v 1.2 2004-03-15 16:39:09 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/tr.rs,v 1.2 2004/03/15 16:39:09 cg Exp $
;
; Turkish strings
;
@@ -48,3 +48,10 @@
'oct' 'eki'
'nov' 'kas'
'dec' 'ara'
+
+
+
+
+
+
+
--- a/resources/zh.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/zh.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding utf8
-; $Header: /cvs/stx/stx/libbasic/resources/zh.rs,v 1.2 2008-11-28 16:44:28 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/zh.rs,v 1.2 2008/11/28 16:44:28 cg Exp $
;
; Chinese simplified
; extracted from google by claus - can someone proofread, please.
@@ -48,3 +48,10 @@
'oct' '十月'
'nov' '十一月'
'dec' '十二月'
+
+
+
+
+
+
+
--- a/resources/zh_trad.rs Sun May 24 14:53:14 2015 +0200
+++ b/resources/zh_trad.rs Mon May 25 06:37:39 2015 +0200
@@ -1,6 +1,6 @@
#encoding utf8
-; $Header: /cvs/stx/stx/libbasic/resources/zh_trad.rs,v 1.2 2008-11-28 16:50:03 cg Exp $
+; $Header: /cvs/stx/stx/libbasic/resources/zh_trad.rs,v 1.2 2008/11/28 16:50:03 cg Exp $
;
; Chinese traditional
; this file contains 8bit national characters;
@@ -9,3 +9,10 @@
#include 'zh.rs'
; please redefine any differences to traditional chinese below
+
+
+
+
+
+
+
--- a/vms.mak Sun May 24 14:53:14 2015 +0200
+++ b/vms.mak Mon May 25 06:37:39 2015 +0200
@@ -2,7 +2,7 @@
# DO NOT EDIT
# automatically generated from Make.proto
#
-# $Header: /cvs/stx/stx/libbasic/vms.mak,v 1.9 2001-10-31 15:02:19 cg Exp $
+# $Header: /cvs/stx/stx/libbasic/vms.mak,v 1.9 2001/10/31 15:02:19 cg Exp $
#
TOP=..
LIBNAME=libbasic
@@ -296,3 +296,10 @@
$(OUTDIR)WriteStream.$(O) WriteStream.$(H): WriteStream.st $(STCHDR) ../include/PositionableStream.$(H) ../include/PeekableStream.$(H) ../include/Stream.$(H) ../include/Object.$(H)
$(OUTDIR)WrongProceedabilityError.$(O) WrongProceedabilityError.$(H): WrongProceedabilityError.st $(STCHDR) ../include/SignalError.$(H) ../include/ProceedableError.$(H) ../include/Error.$(H) ../include/Exception.$(H) ../include/GenericException.$(H) ../include/Object.$(H)
# ENDMAKEDEPEND
+
+
+
+
+
+
+