SCClassLibrary/Platform/windows/SystemOverwrites/overwrites.sc

   1 + String {
   2         absolutePath {
   3                 var first, sep;
   4                 sep = thisProcess.platform.pathSeparator;
   5                         // 2 styles of absolute path:
   6                         // C:\... or \\machine_name\...
   7                 if((this[0].isAlpha and: { this[1] == $: and: { this[2] == sep } })
   8                                 or: { this[0] == sep and: { this[1] == sep } }) {
   9                         ^this
  10                 } {
  11                                 // let's also try to convert unix-style dirs
  12                                 // assume starting from root dir of drive letter where SC is installed
  13                         if(this[0] == $/ and: { this[1] != $/ }) {
  14                                 ^File.getcwd[..1] ++ this
  15                         };
  16                                 // currently we can't support this on windows
  17                                 // though it would be nice to have a primitive to get the user's home dir
  18 //                      if(first == $~){^this.standardizePath};
  19                         ^File.getcwd ++ sep ++ this;
  20                 }
  21         }
  22 }
  23
  24 + PathName {
  25         isAbsolutePath {
  26                 var     sep = thisProcess.platform.pathSeparator;
  27                 ^(fullPath[0].isAlpha and: { fullPath[1] == $: and: { fullPath[2] == sep } })
  28                                 or: { fullPath[0] == sep and: { fullPath[1] == sep } }
  29                                 or: { fullPath[0] == $/ and: { fullPath[1] != $/ } }
  30         }
  31 }
  32