"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

"{ Package: 'stx:libbasic' }"

Filename subclass:#PCFilename

	instanceVariableNames:''

	classVariableNames:'StandardSuffixTable'

	poolDictionaries:''

	category:'OS-Windows'

!

!PCFilename class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1997 by eXept Software AG

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

documentation

"

    Filenames in Windows-NT / Win95.

"

! !

!PCFilename class methodsFor:'initialization'!

initStandardSuffixTable

    "since there is no 'file' command to extract the type,

     return a guess based upon the files suffix. The following

     table defines what is returned."

    StandardSuffixTable := Dictionary new.

    #(  

	'COM'   'executable'

	'DIR'   'directory'

	'EXE'   'executable'

	'LST'   'listing'

	'OBJ'   'object file'

	'TMP'   'temporary'

	'BAS'   'basic source'

	'C'     'c source'

	'COB'   'cobol source'

	'FOR'   'fortran source'

	'PAS'   'pascal source'

	'PL1'   'PL/1 source'

	'ST'    'smalltalk source'

	'STH'   'stc generated header'

	'DLL'   'dynamic link library'

    ) pairWiseDo:[:k :v |

	StandardSuffixTable at:k put:v

    ]

    "

     StandardSuffixTable := nil.

     self initStandardSuffixTable

    "

    "Modified: 16.10.1997 / 13:12:39 / cg"

! !

!PCFilename class methodsFor:'instance creation'!

named:aString

    "return a filename for a directory named aString.

     This is the same as 'aString asFilename'."

    |fn|

    fn := super named:aString.

    fn makeNonDOSName.

    ^fn

!

newTemporaryIn:aDirectoryPrefix

    "return a new unique filename - use this for temporary files.

     redefined to always return an MSDOS 8+3 fileName,

     in case the tempFile is passed to an OLD dos utility.."

    |pid nr nameString|

    NextTempFilenameIndex isNil ifTrue:[

        NextTempFilenameIndex := 1.

    ].

    pid := OperatingSystem getProcessId printString.

    pid := pid copyLast:(3 min:pid size).

    nr := NextTempFilenameIndex printString.

    nr := nr copyLast:(3 min:nr size).

    nameString := (self tempFileNameTemplate)

                  bindWith:pid 

                  with:nr.

    NextTempFilenameIndex := NextTempFilenameIndex + 1.

    (aDirectoryPrefix isNil or:[aDirectoryPrefix asString isEmpty]) ifFalse:[

        ^ aDirectoryPrefix asFilename construct:nameString

    ].

    ^ self named:nameString

    "temp files in '/tmp':

     Filename newTemporary    

    "

    "temp files somewhere 

     (not recommended - use above since it can be controlled via shell variables):

     Filename newTemporaryIn:'/tmp'    

     Filename newTemporaryIn:'/tmp'  

     Filename newTemporaryIn:'/usr/tmp'    

     Filename newTemporaryIn:'/'  

    "

    "a local temp file:

     Filename newTemporaryIn:''         

     Filename newTemporaryIn:nil         

     Filename newTemporaryIn:'.'         

     Filename newTemporaryIn:('source' asFilename) 

    "

    "Modified: 7.9.1995 / 10:48:31 / claus"

    "Modified: 8.9.1997 / 00:28:33 / cg"

    "Created: 30.1.1998 / 11:49:33 / md"

    "Modified: 30.1.1998 / 11:52:06 / md"

    "Modified: 30.1.1998 / 12:09:18 / dq"

!

rootDirectoryOnVolume:aVolumeName

    "return a filename for the root directory on some volume"

    ^ self named:(aVolumeName , '\')

    "

     Filename rootDirectoryOnVolume:'d:'

     Filename rootDirectoryOnVolume:'\\idefix\home'

    "

    "Modified: / 24.9.1998 / 19:06:15 / cg"

! !

!PCFilename class methodsFor:'defaults'!

defaultTempDirectoryName

    "return the default temp directory as a filename.

     This is used, if no special preferences were defined in

     any of the TEMP-environment variables (see tempDirectory)."

    |vol tempDir|

    #('TMPDIR' 'TEMPDIR' 'TEMP' 'TMP') do:[:envVar |

        tempDir isNil ifTrue:[

            tempDir := OperatingSystem getEnvironment:envVar.

            tempDir notNil ifTrue:[

                "/ kludge when running cygwin: replace '/cygdrive/X/...'

                "/ by X:\...

                (tempDir startsWith:'/cygdrive/') ifTrue:[

                    tempDir := tempDir copyFrom:'/cygdrive/' size+1.

                    tempDir size > 2 ifTrue:[

                        (tempDir at:2) == $/ ifTrue:[

                            tempDir := (tempDir at:1) asString , ':' ,

                                       ((tempDir copyFrom:2) replaceAll:$/ with:$\).    

                        ].

                    ].

                ].

                tempDir asFilename exists ifTrue:[

                    ^ tempDir.

                ].

            ].

        ].

    ].

    vol := OperatingSystem getWindowsDirectory asFilename volume.

    tempDir := vol asFilename construct:'temp'. 

    tempDir exists ifTrue:[ ^tempDir ].

    tempDir := vol asFilename construct:'tmp'. 

    tempDir exists ifTrue:[ ^tempDir ].

    tempDir := OperatingSystem getWindowsDirectory asFilename construct:'temp'.

    tempDir exists ifTrue:[ ^tempDir ].

    ^ '.\temp'

    "

     Filename defaultTempDirectoryName           

     Filename defaultTempDirectoryName asFilename exists         

     Filename defaultTempDirectoryName asFilename isWritable         

    "

! !

!PCFilename class methodsFor:'queries'!

isBadCharacter:aCharacter

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

    ('<>:"/\|' includes:aCharacter) ifTrue:[^ true].

    ^ super isBadCharacter:aCharacter

    "Created: 8.9.1997 / 00:14:06 / cg"

!

isCaseSensitive

    "return true, if filenames are case sensitive."

    ^ false

!

nullFilename

    "Return the OS dependent filename for the data sink, or nil if there is none"

    ^ 'nul:'

!

parentDirectoryName

    "return the name used for the parent directory.

     This is '..' for unix and dos-like systems.

     (there may be more in the future."

    ^ '..'

!

separator

    "return the file/directory separator."

     ^ $\

     "

      Filename concreteClass separator  

     "

    "Modified: 8.9.1997 / 00:18:03 / cg"

!

tempFileNameTemplate

    "return a template for temporary files.

     This is expanded with the current processID and a sequenceNumber

     to generate a unique filename.

     Redefined for MSDOS 8+3 filenames"

    ^ 'st%1%2'

    "Created: 30.1.1998 / 12:09:18 / dq"

! !

!PCFilename methodsFor:'converting'!

makeLegalFilename 

    "convert the receivers name to be a legal filename.

     This removes/replaces invalid characters and/or compresses

     the name as required by Win95-WinNT."

    |srchStart|

    "/ there may be only one colon in the name

    "/ (and if present, it must be the second character)

    ((nameString size >= 2)

    and:[(nameString at:2) == $:]) ifTrue:[

        srchStart := 3.

    ] ifFalse:[

        srchStart := 1

    ].

    "/ replace colons by underscore

    "/ may need more to convert - time will show

    (nameString indexOfAny:#($: $ ) startingAt:srchStart) ~~ 0 ifTrue:[

        nameString := nameString copy.

        nameString replaceAny:#($: $ ) with:$_ from:srchStart to:(nameString size).

    ].

    ^ self

    "

     'hello world' asFilename makeLegalFilename 

     'hello:world' asFilename makeLegalFilename 

     'hello::world' asFilename makeLegalFilename 

     'c:hello::world' asFilename makeLegalFilename 

     '\\idefix' asFilename makeLegalFilename 

     '\\idefix\' asFilename makeLegalFilename 

    "

    "Modified: / 11.10.1998 / 01:40:47 / cg"

!

makeNonDOSName

    "convert the receivers name to be a full filename, in case its an abbreviated (alternative) DOS name.

     This removes/replaces components of the form FOOBAR~n by the real, full components name."

    |directory directoryName baseName info|

    (nameString includes:$~) ifFalse:[^self].

    (nameString startsWith:$~) ifTrue:[^self].

    directoryName := self directoryName.

    directoryName = nameString ifTrue:[^self].

    baseName := self baseName.

    (baseName includes:$~) ifTrue:[

        info := self info.

        info notNil ifTrue:[ 

            baseName := info fullName.

        ].

        directory := self class named:directoryName.

        directory isRootDirectory ifFalse:[

            directory makeNonDOSName.

        ].

        nameString := directory constructString:baseName

    ].

    "

     Filename tempDirectory makeNonDOSName 

    "

    "Modified: / 11.10.1998 / 01:40:47 / cg"

! !

!PCFilename methodsFor:'file operations'!

renameTo:newName

    "rename the file - the argument must be convertable to a String.

     Raise an error if not successful.

     Redefined to delete any existing target-file first."

    newName asFilename exists ifTrue:[

	newName asFilename delete

    ].

    ^ super renameTo:newName

    "

     '\tmp\foo' asFilename renameTo:'\tmp\bar'

    "

    "Modified: 20.1.1998 / 15:33:00 / md"

! !

!PCFilename methodsFor:'queries'!

directoryName

    "return the directory name part of the file/directory as a string.

     - thats the name of the directory where the file/dir represented by

       the receiver is contained in.

     This method does not check if the path is valid.

     (i.e. '/usr/lib/st/file' asFilename directoryName -> '/usr/lib/st'

       and '/usr/lib' asFilename directoryName         -> /usr').

     (this is almost equivalent to #directory, but returns

      a string instead of a Filename instance).

     See also: #pathName, #directoryPathName and #baseName.

     Compatibility note: use #head for ST-80 compatibility."

    |nm|

    nm := super directoryName.

    (nm size == 2 and:[(nm at:2) == $:]) ifTrue:[

        ^ nm , '\'

    ].

    ^ nm

    "

     (PCFilename named:'c:\users') directoryName

     (PCFilename named:'c:\users') directory pathName   

     (PCFilename named:'c:\users') directory isRootDirectory  

    "

!

fileType

    "this returns a string describing the type of contents of

     the file. Here, the suffix is examined for a standard

     suffix and an appropriate string is returned.

     Poor MSDOS - no file command."

    |suff type info fmt|

    StandardSuffixTable isNil ifTrue:[

	self class initStandardSuffixTable

    ].

    suff := self suffix asUppercase.

    type := StandardSuffixTable at:suff ifAbsent:nil.

    type isNil ifTrue:[

	type := super fileType.

    ].

    ^ type

    "Created: 16.10.1997 / 13:07:24 / cg"

    "Modified: 16.10.1997 / 13:10:00 / cg"

!

isDirectory

    "return true, if I represent a directory 

     Redefined to care for volumeRoots."

    self isRootDirectory ifTrue:[^ true].

    ^ super isDirectory.

    "Created: / 24.9.1998 / 14:04:31 / cg"

!

isExecutableProgram

    "return true, if such a file exists and is an executable program.

     (i.e. for directories, false is returned.)"

    |mySuffix|

    mySuffix := self suffix asLowercase.

    (mySuffix = 'exe' or:[mySuffix = 'com']) ifTrue:[

        ^ super isExecutableProgram

    ].

    ^ false

    "Created: / 16.10.1997 / 13:19:10 / cg"

    "Modified: / 9.9.1998 / 20:17:52 / cg"

!

isExplicitRelative

    "return true, if this name is an explicit relative name

     (i.e. starts with './' or '../', to avoid path-prepending)"

    (nameString startsWith:'.\') ifTrue:[

	^ true

    ].

    (nameString startsWith:'..\') ifTrue:[

	^ true

    ].

    ^ false

!

isRootDirectory

    "return true, if I represent a root directory 

     (i.e. I have no parentDir)"

    |sz nm i|

    sz := nameString size.

    sz == 1 ifTrue:[

        (nameString = '\') ifTrue:[

            "/ \ alone

            ^ true