Mercurial Mercurial > hg > stx-libbasic / diff
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
AbstractOperatingSystem.st
changeset 18356 1312e3a2100b
parent 18303 3168be747a94
child 18364 a693511a7c46 
--- a/AbstractOperatingSystem.st	Sat May 16 11:59:00 2015 +0200
+++ b/AbstractOperatingSystem.st	Sat May 16 11:59:50 2015 +0200
@@ -18,8 +18,7 @@
 Object subclass:#AbstractOperatingSystem
 	instanceVariableNames:''
 	classVariableNames:'ConcreteClass LastErrorNumber LocaleInfo OSSignals PipeFailed
-		ErrorSignal AccessDeniedErrorSignal FileNotFoundErrorSignal
-		InvalidArgumentsSignal UnsupportedOperationSignal Resources'
+		ErrorSignal Resources'
 	poolDictionaries:''
 	category:'System-Support'
 !
@@ -101,10 +100,10 @@
 	ErrorSignal     <Signal>        Parentsignal of all OS error signals.
 					not directly raised.
 
-	AccessDeniedErrorSignal         misc concrete error reporting signals
-	FileNotFoundErrorSignal
-	UnsupportedOperationSignal
-	InvalidArgumentsSignal
+					misc concrete error reporting signals
+
+
+
 
     [author:]
 	Claus Gittinger
@@ -238,10 +237,6 @@
 
 	OSErrorHolder initialize.
 	ErrorSignal := OsError.
-	InvalidArgumentsSignal := OsInvalidArgumentsError.
-	AccessDeniedErrorSignal := OSErrorHolder noPermissionsSignal.
-	FileNotFoundErrorSignal := OSErrorHolder nonexistentSignal.
-	UnsupportedOperationSignal := OSErrorHolder unsupportedOperationSignal.
 	Smalltalk addDependent:self.    "/ to catch language changes
     ].
 !
@@ -558,7 +553,7 @@
 accessDeniedErrorSignal
     "return the signal raised when a (file-) access is denied."
 
-    ^ AccessDeniedErrorSignal
+    ^ OSErrorHolder noPermissionsSignal
 !
 
 errorSignal
@@ -572,14 +567,14 @@
 fileNotFoundErrorSignal
     "return the signal raised when a file was not found."
 
-    ^ FileNotFoundErrorSignal
+    ^ OSErrorHolder nonexistentSignal
 !
 
 invalidArgumentsSignal
     "return the signal which is raised for invalid arguments.
      Currently, this is never raised."
 
-    ^ InvalidArgumentsSignal
+    ^ OsInvalidArgumentsError
 
     "Created: 13.9.1997 / 10:46:47 / cg"
     "Modified: 13.9.1997 / 10:47:03 / cg"
@@ -590,7 +585,7 @@
      is attempted, which is not supported by the OS.
      (For example, creating a link on VMS or MSDOS)"
 
-    ^ UnsupportedOperationSignal
+    ^ OSErrorHolder unsupportedOperationSignal.
 ! !
 
 !AbstractOperatingSystem class methodsFor:'change & update'!
@@ -889,7 +884,7 @@
     "/ not supported by OS
     "/
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 !
 
 startProcess:aCommandString inputFrom:anExternalInStream outputTo:anExternalOutStream
@@ -2351,7 +2346,7 @@
     "/
     "/ assume that this OperatingSystem does not support links
     "/
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 13.8.1998 / 21:37:12 / cg"
     "Modified: / 13.8.1998 / 21:38:39 / cg"
@@ -2365,7 +2360,7 @@
     "/
     "/ assume that this OperatingSystem does not support symbolic links
     "/
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 13.8.1998 / 21:38:24 / cg"
     "Modified: / 13.8.1998 / 21:38:43 / cg"
@@ -3019,7 +3014,7 @@
 createCOMFileForVMSCommand:aCommandString in:aDirectory
     "this is only implemented/required for VMS systems, to execute commands"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 19.5.1999 / 12:16:31 / cg"
     "Modified: / 19.5.1999 / 14:22:05 / cg"
@@ -3028,7 +3023,7 @@
 createMailBox
     "this is only implemented/required for VMS systems, to emulate pipes"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 19.5.1999 / 12:14:56 / cg"
     "Modified: / 19.5.1999 / 14:22:22 / cg"
@@ -3037,7 +3032,7 @@
 destroyMailBox:mbx
     "this is only implemented/required for VMS systems, to emulate pipes"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 19.5.1999 / 12:16:43 / cg"
     "Modified: / 19.5.1999 / 14:22:33 / cg"
@@ -3046,7 +3041,7 @@
 mailBoxNameOf:mbx
     "this is only implemented/required for VMS systems, to emulate pipes"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Created: / 19.5.1999 / 12:14:56 / cg"
     "Modified: / 19.5.1999 / 14:22:40 / cg"
@@ -5799,7 +5794,7 @@
     "low level entry to shmat()-system call.
      Not supported on all operatingSystems"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Modified: / 19.5.1999 / 14:21:35 / cg"
 !
@@ -5808,7 +5803,7 @@
     "low level entry to shmdt()-system call.
      Not supported on all operatingSystems"
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Modified: / 19.5.1999 / 14:21:37 / cg"
 !
@@ -5818,7 +5813,7 @@
      This is not for public use and not supported with all operatingSystems.
      - use the provided wrapper class SharedExternalBytes instead."
 
-    ^ UnsupportedOperationSignal raise
+    ^ self unsupportedOperationSignal raise
 
     "Modified: / 19.5.1999 / 14:21:41 / cg"
 ! !
@@ -7740,11 +7735,11 @@
 !AbstractOperatingSystem class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.299 2015-04-28 21:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.300 2015-05-16 09:59:50 cg Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.299 2015-04-28 21:22:13 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/AbstractOperatingSystem.st,v 1.300 2015-05-16 09:59:50 cg Exp $'
 ! !
hg/stx-libbasic