UnixFileDescriptorHandle.st
author Claus Gittinger <cg@exept.de>
Sat, 18 Sep 1999 13:11:28 +0200
changeset 4762 7c403263e1be
child 5409 9b5890348f9c
permissions -rw-r--r--
initial checkin
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
4762
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     1
OSFileHandle subclass:#UnixFileDescriptorHandle
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     2
	instanceVariableNames:''
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     3
	classVariableNames:''
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     4
	poolDictionaries:''
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     5
	category:'OS-Unix'
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     6
!
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     7
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     8
!UnixFileDescriptorHandle primitiveDefinitions!
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
     9
%{
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    10
#include <stdio.h>
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    11
%}
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    12
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    13
! !
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    14
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    15
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    16
!UnixFileDescriptorHandle methodsFor:'finalization'!
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    17
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    18
disposed
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    19
    "a filedescriptor was garbage collected - close the underlying file"
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    20
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    21
%{
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    22
    INT fd = (INT)(__externalAddressVal(self));
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    23
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    24
    if (fd > 0) {
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    25
        __externalAddressVal(self) = (OBJ)-1;
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    26
        close(fd);
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    27
    }
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    28
%}.
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    29
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    30
! !
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    31
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    32
!UnixFileDescriptorHandle methodsFor:'release'!
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    33
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    34
close
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    35
    "close the file"
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    36
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    37
%{
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    38
    INT fd = (INT)(__externalAddressVal(self));
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    39
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    40
    if (fd > 0) {
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    41
        __externalAddressVal(self) = (OBJ)-1;
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    42
        close(fd);
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    43
    }
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    44
%}.
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    45
    Lobby unregister:self
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    46
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    47
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    48
! !
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    49
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    50
!UnixFileDescriptorHandle class methodsFor:'documentation'!
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    51
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    52
version
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    53
    ^ '$Header: /cvs/stx/stx/libbasic/UnixFileDescriptorHandle.st,v 1.1 1999-09-18 11:11:04 cg Exp $'
7c403263e1be initial checkin
Claus Gittinger <cg@exept.de>
parents:
diff changeset
    54
! !