OSFileHandle subclass:#OpenVMSFileHandle
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'OS-OpenVMS'
!
!OpenVMSFileHandle primitiveDefinitions!
%{
#include <stdio.h>
%}
! !
!OpenVMSFileHandle methodsFor:'finalization'!
disposed
"a file handle was garbage collected - close the underlying file"
%{
FILE *f = (FILE *)(__externalAddressVal(self));
if (f) {
__externalAddressVal(self) = NULL;
fclose(f);
}
%}
! !
!OpenVMSFileHandle methodsFor:'release'!
close
"close the file"
%{
FILE *f = (FILE *)(__externalAddressVal(self));
if (f) {
__externalAddressVal(self) = NULL;
fclose(f);
}
%}.
Lobby unregister:self
! !
!OpenVMSFileHandle class methodsFor:'documentation'!
version
^ '$Header: /cvs/stx/stx/libbasic/OpenVMSFileHandle.st,v 1.1 1999-09-18 11:11:28 cg Exp $'
! !