Issue #259: fix `ProjectDefinition >> classesForPlatform` and use it `#testSuite`
THis allows packages to specify testcases valid for some platform only.
This is normally not needed but sometimes the testcase uses a class
that is platform specific and this will cause package validation
error upon commit.
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 $'
! !