"{ Package: 'stx:libbasic' }"

OSFileHandle subclass:#UnixFileDescriptorHandle
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'OS-Unix'
!

!UnixFileDescriptorHandle primitiveDefinitions!
%{
#include <stdio.h>
%}

! !


!UnixFileDescriptorHandle methodsFor:'finalization'!

closeFile
    "close the underlying file"

%{
    INT fd = (INT)(__externalAddressVal(self));

    if (fd > 0) {
        __externalAddressVal(self) = (OBJ)-1;
        close(fd);
    }
%}.

! !

!UnixFileDescriptorHandle class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic/UnixFileDescriptorHandle.st,v 1.2 2000-06-23 18:54:24 cg Exp $'
! !