"

 COPYRIGHT (c) 1998 by eXept Software AG

              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:libbasic2' }"

ExternalBytes subclass:#ExternalLong

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'System-Support'

!

!ExternalLong class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1998 by eXept Software AG

              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

"

"

! !

!ExternalLong class methodsFor:'instance creation'!

new

    "allocate some memory usable for data;

     the memory is not controlled by the garbage collector.

     Return a corresponding ExternalBytes object or raise MallocFailure (if malloc fails).

     Use this, if you have to pass a block of bytes to some

     external destination (such as a C function) which does not copy the

     data, but instead keeps a reference to it. For example, many functions

     which expect strings simply keep a ref to the passed string - for those,

     an ST/X string-pointer is not the right thing to pass, since ST/X objects

     may change their address.

     DANGER ALERT: the memory is NOT automatically freed until it is either

                   MANUALLY freed (see #free) or the returned externalBytes object

                   is unprotected or the classes releaseAllMemory method is called."

    "

     ExternalLong new

    "

    "Modified: / 20-12-2010 / 16:22:51 / cg"

!

unprotectedNew

    "allocate some memory usable for data;

     the memory is under the control of the garbage collector.

     Return a corresponding ExternalBytes object or raise MallocFailure (if malloc fails).

     DANGER ALERT: the memory block as allocated will be automatically freed

                   as soon as the reference to the returned externalBytes object

                   is gone (by the next garbage collect).

                   If the memory has been passed to a C-function which

                   remembers this pointer, bad things may happen ...."

    "

     ExternalLong new

    "

    "Modified: / 20-12-2010 / 16:22:39 / cg"

! !

!ExternalLong methodsFor:'accessing'!

asBoolean

    |result|

    result := self byteAt:1.

    result = 0 ifTrue:[

        ^ false.

    ].

    ^ true.

!

asExternalBytes

    ^ ExternalBytes address:(self value)

    "

     (ExternalLong new value:10) asExternalBytes   

     (ExternalLong new value:0) asExternalBytes   

    "

!

asInteger

    ^ self signedDoubleWordAt:1 MSB:false

    "

     ExternalLong new value:10

     (ExternalLong new value:16rFFFFFF) asInteger

    "

    "Modified: / 22-12-2010 / 18:34:02 / cg"

!

asNullStatus

    |result|

    result := self wordAt:1 MSB:false.

    result = 0 ifTrue:[ ^ #SQL_NO_NULLS ].

    result = 1 ifTrue:[ ^ #SQL_NULLABLE ].

    ^ #SQL_NULLABLE_UNKNOWN

!

asPointer

    ^ ExternalAddress new setAddress:(self value)

    "

     (ExternalLong new value:10) asPointer

    "

!

asUnsignedInteger

    ^ self doubleWordAt:1 MSB:false

    "

     (ExternalLong new value:10) asUnsignedInteger

    "

    "Created: / 22-12-2010 / 18:31:03 / cg"

!

boolean:bool

    bool ifTrue:[self byteAt:1 put:1].

    self byteAt:1 put:0.

!

value

    "

     ExternalLong new value:10

    "

    "Modified: / 30.3.1998 / 17:07:57 / cg"

!

value:anInteger

    self doubleWordAt:1 put:anInteger

! !

!ExternalLong methodsFor:'printing & storing'!

printOn:aStream

    aStream nextPutAll:self className; nextPut:$(.

    self asInteger printOn:aStream.

    aStream nextPut:$)

! !

!ExternalLong class methodsFor:'documentation'!

version

!

version_CVS

! !