ohrrpgce/hsspiffy.e.revert.patch

   1 --- hsspiffy.e  2011-05-28 17:01:07.000000000 +0300
   2 +++ hsspiffy.e.revert   2011-05-29 15:04:51.081617497 +0300
   3 @@ -24,11 +24,11 @@
   4  --globals--
   5  global integer PATH_SLASH
   6
   7 -ifdef WINDOWS then
   8 -  PATH_SLASH='\\'
   9 -elsedef
  10 +if platform()=LINUX then  --yes, believe it or not, HSPEAK can be compiled to run on Linux
  11    PATH_SLASH='/'
  12 -end ifdef
  13 +else
  14 +  PATH_SLASH='\\'
  15 +end if
  16
  17  --redundant to the standard upper() and lower() functions I know, but I
  18  --use them constantly, and almost never use the other wildcard functs.
  19 @@ -209,11 +209,11 @@
  20
  21  --normalise a pathname to use the platform specific path delimiter--
  22  global function normalize_filename(sequence s)
  23 -  ifdef WINDOWS then
  24 -    return filenamos(s)
  25 -  elsedef
  26 +  if platform()=LINUX then
  27      return filenamix(s)
  28 -  end ifdef
  29 +  else
  30 +    return filenamos(s)
  31 +  end if
  32  end function
  33
  34  --extract only portion of a string after the last of a delimiter--
  35 @@ -604,3 +604,4 @@
  36      return(s)
  37    end if
  38  end function
  39 +