Mercurial Mercurial > hg > stx-libbasic / comparison
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.
OSErrorHolder.st
branchjv
changeset 17795 569eec7576f1
parent 17780 b6e42c92eba0
child 17807 06cc6c49e291
equal deleted inserted replaced
17794:da075fbea903 17795:569eec7576f1 
   117 needRetrySignal
 
   117 needRetrySignal
 
   118     ^ Signals at:#needRetrySignal
 
   118     ^ Signals at:#needRetrySignal
 
   119 !
 
   119 !
 
   120 
   120 
   121 noAccociationSignal
 
   121 noAccociationSignal
 
   122     ^ Signals at:#noAccociationSignal
 
   122     <resource: #obsolete>
 
       
   123     self obsoleteMethodWarning.
 
       
   124     ^ self noAssociationSignal
 
   123 !
 
   125 !
 
   124 
   126 
   125 noAggregationSignal
 
   127 noAggregationSignal
 
   126     ^ Signals at:#noAggregationSignal
 
   128     ^ Signals at:#noAggregationSignal
 
   127 !
 
   129 !
 
   128 
   130 
       
   131 noAssociationSignal
 
       
   132     ^ Signals at:#noAssociationSignal
 
       
   133 !
 
       
   134 
   129 noDataSignal
 
   135 noDataSignal
 
   130     ^ Signals at:#noDataSignal
 
   136     ^ Signals at:#noDataSignal
 
   131 !
 
   137 !
 
   132 
   138 
   133 noInterfaceSignal
 
   139 noInterfaceSignal
 
   219 !OSErrorHolder class methodsFor:'class initialization'!
 
   225 !OSErrorHolder class methodsFor:'class initialization'!
 
   220 
   226 
   221 initialize
 
   227 initialize
 
   222     "init signals etc."
 
   228     "init signals etc."
 
   223 
   229 
   224     |s|
 
   230     |unavailableReferentSignal|
 
   225 
   231 
   226     OSErrorSignal isNil ifTrue:[
 
   232     OSErrorSignal isNil ifTrue:[
 
   227         OSErrorSignal := OsError.
 
   233         OSErrorSignal := OsError.
 
   228         OSErrorSignal notifierString:'OperatingSystem error'.
 
   234         OSErrorSignal notifierString:'OperatingSystem error'.
 
   229 
   235 
   247         OsNeedRetryError notifierString:'Retry Operation'.
 
   253         OsNeedRetryError notifierString:'Retry Operation'.
 
   248         Signals at:#needRetrySignal put:OsNeedRetryError. 
   254         Signals at:#needRetrySignal put:OsNeedRetryError. 
   249 
   255 
   250         Signals at:#defaultOsErrorSignal put:OSErrorSignal. 
   256         Signals at:#defaultOsErrorSignal put:OSErrorSignal. 
   251 
   257 
   252 false ifTrue:[
 
       
   253         "/ Information signals
 
   258         "/ Information signals
 
   254 
   259 
   255         s := self setupSignal:#informationSignal parent:OSErrorSignal 
   260 "/        s := self setupSignal:#informationSignal parent:OSErrorSignal 
   256                      notifier:'Information'.
 
   261 "/                     notifier:'Information'.
 
   257         self setupSignal:#operationStartedSignal parent:s 
   262 "/        self setupSignal:#operationStartedSignal parent:s 
   258                      notifier:'Operation started'.
 
   263 "/                     notifier:'Operation started'.
 
   259 ].
 
   264 
   260         "/ Retry signals
 
   265         "/ Retry signals
 
   261 
   266 
   262         self setupSignal:#notReadySignal parent:OsNeedRetryError 
   267         self setupSignal:#notReadySignal parent:OsNeedRetryError 
   263                      notifier:' -- referent not ready'.
 
   268                      notifier:' -- referent not ready'.
 
   264         self setupSignal:#transientErrorSignal parent:OsNeedRetryError 
   269         self setupSignal:#transientErrorSignal parent:OsNeedRetryError 
   282 
   287 
   283         "/ Inaccesible faults
 
   288         "/ Inaccesible faults
 
   284 
   289 
   285         self setupSignal:#nonexistentSignal parent:OsInaccessibleError 
   290         self setupSignal:#nonexistentSignal parent:OsInaccessibleError 
   286                      notifier:'File does not exist'.
 
   291                      notifier:'File does not exist'.
 
   287         self setupSignal:#unavailableReferentSignal parent:OsInaccessibleError 
   292         unavailableReferentSignal :=
 
       
   293                 self setupSignal:#unavailableReferentSignal parent:OsInaccessibleError 
   288                      notifier:' currently'.
 
   294                      notifier:' currently'.
 
   289         self setupSignal:#noPermissionsSignal parent:OsInaccessibleError 
   295         self setupSignal:#noPermissionsSignal parent:OsInaccessibleError 
   290                      notifier:'Permission denied'.
 
   296                      notifier:'Permission denied'.
 
   291         self setupSignal:#existingReferentSignal parent:OsInaccessibleError 
   297         self setupSignal:#existingReferentSignal parent:OsInaccessibleError 
   292                      notifier:' -- already exists or currently in use'.
 
   298                      notifier:' -- already exists or currently in use'.
 
   316                      notifier:' -- operation not fully specified'.
 
   322                      notifier:' -- operation not fully specified'.
 
   317 
   323 
   318         "/ COM errors
 
   324         "/ COM errors
 
   319         self setupSignal:#coNotInitializedSignal parent:OsIllegalOperation 
   325         self setupSignal:#coNotInitializedSignal parent:OsIllegalOperation 
   320                      notifier:'COM not initialized'.
 
   326                      notifier:'COM not initialized'.
 
   321         self setupSignal:#noInterfaceSignal parent:OsIllegalOperation 
   327         self setupSignal:#noInterfaceSignal parent:unavailableReferentSignal 
   322                      notifier:'No such interface'.
 
   328                      notifier:'No such interface'.
 
   323         self setupSignal:#classNotRegisteredSignal parent:OsIllegalOperation 
   329         self setupSignal:#classNotRegisteredSignal parent:unavailableReferentSignal 
   324                      notifier:'Class not registered'.
 
   330                      notifier:'Class not registered'.
 
   325         self setupSignal:#noAggregationSignal parent:OsIllegalOperation 
   331         self setupSignal:#noAggregationSignal parent:OsIllegalOperation 
   326                      notifier:'No Aggregation'.
 
   332                      notifier:'No Aggregation'.
 
   327         self setupSignal:#unknownNameSignal parent:OsIllegalOperation 
   333         self setupSignal:#unknownNameSignal parent:unavailableReferentSignal 
   328                      notifier:'Unknown member name'.
 
   334                      notifier:'Unknown member name'.
 
   329         self setupSignal:#noVerbsSignal parent:OsIllegalOperation 
   335         self setupSignal:#noVerbsSignal parent:OsIllegalOperation 
   330                      notifier:'No verbs for OLE object'.
 
   336                      notifier:'No verbs for OLE object'.
 
   331 
   337 
   332         "/ Shell errors
 
   338         "/ Shell errors
 
   333         self setupSignal:#noAccociationSignal parent:OsIllegalOperation 
   339         self setupSignal:#noAssociationSignal parent:unavailableReferentSignal 
   334                      notifier:'No association for file extension'.
 
   340                      notifier:'No association for file extension'.
 
   335    ].
 
   341    ].
 
   336 
   342 
   337    "
 
   343    "
 
   338     OSErrorSignal := nil.
 
   344     OSErrorSignal := nil.
 
   377     |signal|
 
   383     |signal|
 
   378 
   384 
   379     signal := self class signalNamed:errorCategory.
 
   385     signal := self class signalNamed:errorCategory.
 
   380     signal  
   386     signal  
   381         raiseWith:self 
   387         raiseWith:self 
   382         errorString:(parameter isNil ifTrue:[''] ifFalse:[' - ', parameter printString]) 
   388         errorString:(parameter isNil ifTrue:[nil] ifFalse:[' - ', parameter printString]) 
   383         in:(thisContext sender).
 
   389         in:(thisContext sender).
 
   384 
   390 
   385 "/    ^ self errorReporter reportOn:self
 
   391 "/    ^ self errorReporter reportOn:self
 
   386 ! !
 
   392 ! !
 
   387 
   393 
   404 ! !
 
   410 ! !
 
   405 
   411 
   406 !OSErrorHolder class methodsFor:'documentation'!
 
   412 !OSErrorHolder class methodsFor:'documentation'!
 
   407 
   413 
   408 version
 
   414 version
 
   409     ^ '$Id: OSErrorHolder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
 
   415     ^ '$Id: OSErrorHolder.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 
   410 !
 
   416 !
 
   411 
   417 
   412 version_CVS
 
   418 version_CVS
 
   413     ^ 'Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.17 2009/10/06 08:31:33 cg Exp '
 
   419     ^ 'Header: /cvs/stx/stx/libbasic/OSErrorHolder.st,v 1.19 2010/07/22 18:11:49 stefan Exp '
 
   414 !
 
   420 !
 
   415 
   421 
   416 version_SVN
 
   422 version_SVN
 
   417     ^ '$Id: OSErrorHolder.st 10544 2010-07-12 16:20:36Z vranyj1 $'
 
   423     ^ '$Id: OSErrorHolder.st 10564 2010-08-10 08:55:15Z vranyj1 $'
 
   418 ! !
 
   424 ! !
 
   419 
   425 
   420 OSErrorHolder initialize!
 
   426 OSErrorHolder initialize!
 
   421 
   427 
   422 
   428 
   423 
   429 
       
   430
hg/stx-libbasic