[M3devel] canonicalizepath??

Jay jay.krell at cornell.edu
Sat Jun 27 16:48:56 CEST 2009


DoMakeDir 1: /cm3/bin/../pkg/m3cggen/PPC_LINUX
DoMakeDir 2: /cm3/bin/m3cggen/PPC_LINUX


C:\dev2\cm3.2\m3-sys\m3quake\src\QMachine.m3

PROCEDURE DoMakeDir (t: T;  n_args: INTEGER) RAISES {Error} =
  VAR val: QValue.T;  dir, prefix: TEXT;
  BEGIN
    
    Pop (t, val);  dir := QVal.ToText (t, val);
    prefix := Env.Get("CM3_INSTALL_PREFIX");
    IF prefix # NIL THEN
      dir := prefix & dir;
    END;
    RTIO.PutText("DoMakeDir 1: " & dir & "\n");
    dir := Pathname.Compose (CanonicalizePath (Pathname.Decompose (dir)));
    RTIO.PutText("DoMakeDir 2: " & dir & "\n");
    RTIO.Flush();
    MakeDir (t, dir);
  END DoMakeDir;

 
huh?
 
 
I don't think I've ever change this..
 
Am I expected to reverse the path before passing it through here?
 
I'll just avoid this function..
 - Jay


More information about the M3devel mailing list