1 'From Smalltalk/X, Version:3.1.9 on 8-sep-1997 at 12:39:22 am'                  !

     2 

     3 Filename subclass:#OpenVMSFilename

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'OS-OpenVMS'

     8 !

     9 

    10 !OpenVMSFilename class methodsFor:'queries'!

    11 

    12 isBadCharacter:aCharacter

    13     "return true, if aCharacter is unallowed in a filename."

    14 

    15     ('/\' includes:aCharacter) ifTrue:[^ true].

    16     ^ super isBadCharacter:aCharacter

    17 

    18     "Created: 8.9.1997 / 00:14:47 / cg"

    19 !

    20 

    21 separator

    22     "return the file/directory separator.

    23      For openVMS, the separator concept does not really fit,

    24      since names are composed as volume:[dir.dir.dir]file."

    25 

    26      ^ $.

    27 

    28      "

    29       Filename concreteClass separator  

    30      "

    31 

    32     "Created: 8.9.1997 / 00:17:28 / cg"

    33 !

    34 

    35 tempFileNameTemplate

    36     "return a template for temporary files.

    37      This is expanded with the current processID and a sequenceNumber

    38      to generate a unique filename."

    39 

    40     ^ 'AAA_%1_%2.TMP'

    41 

    42     "Created: 8.9.1997 / 00:01:46 / cg"

    43     "Modified: 8.9.1997 / 00:29:23 / cg"

    44 ! !

    45