Ekdohibs
/
ocaml
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Use forward slashes instead of backslashes in #use and #load commands 

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@4918 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
master
Xavier Leroy 2002-06-11 09:48:22 +00:00
parent 2a298c5762
commit e7c71c10da
1 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
win32caml/menu.c
View File

@ -60,9 +60,12 @@ int OpenMlFile(char *fname,int lenbuf)
ofn.Flags = OFN_PATHMUSTEXIST | OFN_NOCHANGEDIR | OFN_LONGNAMES |
OFN_HIDEREADONLY |OFN_EXPLORER;
r = GetOpenFileName(&ofn);
if (r == 0)
return 0;
else return 1;
if (r) {
/* Replace backslashes by forward slashes in file name */
for (p = fname; *p != 0; p++)
if (*p == '\\') *p = '/';
}
return r;
}
/*------------------------------------------------------------------------
Procedure: GetSaveName ID:1