ExternalLibrary.st
author Claus Gittinger <cg@exept.de>
Thu, 26 Jul 2012 16:34:24 +0200
changeset 14257 b971b4b2318a
parent 13335 bbed71341524
child 17453 28bacb6df32d
child 18011 deb0c3355881
permissions -rw-r--r--
added: #refersToLiteralMatching:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
12671
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     1
"
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     2
 COPYRIGHT (c) 2009 by eXept Software AG
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     3
              All Rights Reserved
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     4
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     5
 This software is furnished under a license and may be used
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     6
 only in accordance with the terms of that license and with the
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     8
 be provided or otherwise made available to, or used by, any
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
     9
 other person.  No title to or ownership of the software is
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    10
 hereby transferred.
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    11
"
12440
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
"{ Package: 'stx:libbasic' }"
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
Object subclass:#ExternalLibrary
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
	instanceVariableNames:''
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
	classVariableNames:''
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
	poolDictionaries:''
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
	category:'System-Support'
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
!
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
!ExternalLibrary class methodsFor:'documentation'!
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
12671
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    23
copyright
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    24
"
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    25
 COPYRIGHT (c) 2009 by eXept Software AG
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    26
              All Rights Reserved
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    27
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    28
 This software is furnished under a license and may be used
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    29
 only in accordance with the terms of that license and with the
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    30
 inclusion of the above copyright notice.   This software may not
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    31
 be provided or otherwise made available to, or used by, any
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    32
 other person.  No title to or ownership of the software is
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    33
 hereby transferred.
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    34
"
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    35
!
9dc24b30457c added: #copyright
Claus Gittinger <cg@exept.de>
parents: 12440
diff changeset
    36
12440
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
documentation
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
"
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
    This is only a hook for compatibility (to be able to fileIn squeak libraries)
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
"
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
! !
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
13335
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    43
!ExternalLibrary methodsFor:'error reporting'!
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    44
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    45
externalCallFailed
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    46
    "{ Pragma: +optSpace }"
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    47
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    48
    "report an error that some external libraray call failed.
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    49
     The error is reported by raising the PrimitiveFailure exception."
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    50
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    51
    <resource: #skipInDebuggersWalkBack>
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    52
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    53
    |sender|
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    54
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    55
    sender := thisContext sender.
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    56
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    57
    ^ PrimitiveFailure raiseRequestWith:(Message selector:sender selector arguments:sender args)
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    58
                       in:sender.
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    59
! !
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    60
12440
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    61
!ExternalLibrary class methodsFor:'documentation'!
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    62
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    63
version_CVS
13335
bbed71341524 added: #externalCallFailed
Stefan Vogel <sv@exept.de>
parents: 12671
diff changeset
    64
    ^ '$Header: /cvs/stx/stx/libbasic/ExternalLibrary.st,v 1.3 2011-04-13 09:40:50 stefan Exp $'
12440
1f96c89e1eb4 initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    65
! !