MacFilename.st
changeset 2938 71a6c0fd6f15
child 17711 39faaaf888b4
equal deleted inserted replaced
2937:3f64925c9df3 2938:71a6c0fd6f15
       
     1 'From Smalltalk/X, Version:3.1.9 on 9-sep-1997 at 11:55:53 pm'                  !
       
     2 
       
     3 Filename subclass:#MacFilename
       
     4 	instanceVariableNames:''
       
     5 	classVariableNames:''
       
     6 	poolDictionaries:''
       
     7 	category:'OS-Mac'
       
     8 !
       
     9 
       
    10 !MacFilename class methodsFor:'documentation'!
       
    11 
       
    12 copyright
       
    13 "
       
    14  COPYRIGHT (c) 1997 by eXept Software AG
       
    15               All Rights Reserved
       
    16 
       
    17  This software is furnished under a license and may be used
       
    18  only in accordance with the terms of that license and with the
       
    19  inclusion of the above copyright notice.   This software may not
       
    20  be provided or otherwise made available to, or used by, any
       
    21  other person.  No title to or ownership of the software is
       
    22  hereby transferred.
       
    23 "
       
    24 !
       
    25 
       
    26 documentation
       
    27 "
       
    28     Filenames in macOS.
       
    29 "
       
    30 ! !
       
    31 
       
    32 !MacFilename class methodsFor:'queries'!
       
    33 
       
    34 isCaseSensitive
       
    35     "return true, if filenames are case sensitive."
       
    36 
       
    37     ^ false
       
    38 !
       
    39 
       
    40 separator
       
    41     "return the file/directory separator."
       
    42 
       
    43      ^ $:
       
    44 
       
    45      "
       
    46       Filename concreteClass separator  
       
    47      "
       
    48 
       
    49     "Modified: 8.9.1997 / 00:18:03 / cg"
       
    50 ! !
       
    51 
       
    52 !MacFilename methodsFor:'queries'!
       
    53 
       
    54 isExplicitRelative
       
    55     "return true, if this name is an explicit relative name
       
    56      (i.e. starts with './' or '../', to avoid path-prepending)"
       
    57 
       
    58     (nameString startsWith:':') ifTrue:[
       
    59 	^ true
       
    60     ].
       
    61     ^ false
       
    62 ! !
       
    63 
       
    64 !MacFilename class methodsFor:'documentation'!
       
    65 
       
    66 version
       
    67     ^ '$Header: /cvs/stx/stx/libbasic/MacFilename.st,v 1.1 1997-09-17 17:43:58 cg Exp $'
       
    68 ! !