#BUGFIX by stefan
class: Collection
comment/format in:
#union:
#xor:
changed:
# #difference:
#intersect:
#select: (send #speciesForAdding instead of #species)
make set operations work with Dictionaries
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 $'
! !