[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