1 OSHandle subclass:#OSFileHandle

     2 	instanceVariableNames:''

     3 	classVariableNames:'ConcreteClass'

     4 	poolDictionaries:''

     5 	category:'System-Support'

     6 !

     7 

     8 

     9 !OSFileHandle class methodsFor:'initialization'!

    10 

    11 initialize

    12     "initialize for the OS we are running on"

    13 

    14     self initializeConcreteClass

    15 

    16     "

    17      self initialize

    18     "

    19 

    20 

    21 !

    22 

    23 initializeConcreteClass

    24     "initialize for the OS we are running on"

    25 

    26     OperatingSystem isMSDOSlike ifTrue:[

    27         ConcreteClass := Win32FileHandle

    28     ] ifFalse:[

    29         OperatingSystem isVMSlike ifTrue:[

    30             ConcreteClass := OpenVMSFileHandle

    31         ] ifFalse:[

    32             OperatingSystem isUNIXlike ifTrue:[

    33                 ConcreteClass := UnixFileHandle

    34             ] ifFalse:[

    35                 ConcreteClass := nil

    36             ]

    37         ]

    38     ]

    39 

    40     "

    41      self initializeConcreteClass

    42     "

    43 

    44     "Modified: 7.9.1997 / 23:32:37 / cg"

    45 

    46 

    47 !

    48 

    49 reinitialize

    50     "initialize for the OS we are running on"

    51 

    52     self initializeConcreteClass

    53 

    54     "

    55      self reinitialize

    56     "

    57 

    58 ! !

    59 

    60 !OSFileHandle methodsFor:'finalization'!

    61 

    62 disposed

    63 

    64 

    65 

    66 ! !

    67 

    68 !OSFileHandle class methodsFor:'documentation'!

    69 

    70 version

    71     ^ '$Header: /cvs/stx/stx/libbasic/OSFileHandle.st,v 1.1 1999-09-18 11:14:52 cg Exp $'

    72 ! !

    73 OSFileHandle initialize!