"{ Package: 'stx:libbasic' }"

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

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


!UnixFileHandle methodsFor:'release'!

closeFile
    "close the underlying file"

%{
    FILE *f = (FILE *)(__externalAddressVal(self));

    if (f) {
        __externalAddressVal(self) = NULL;
        fclose(f);
    }
%}

! !

!UnixFileHandle class methodsFor:'documentation'!

version
    ^ '$Header: /cvs/stx/stx/libbasic/UnixFileHandle.st,v 1.3 2000-06-23 19:43:49 cg Exp $'
! !