projects
/
ghc-hetmet.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
| inline |
side by side
(parent:
5b51ce9
)
Windows: the .hp file is <prog>.exe.hp
author
Simon Marlow
<simonmar@microsoft.com>
Wed, 28 Feb 2007 12:03:19 +0000
(12:03 +0000)
committer
Simon Marlow
<simonmar@microsoft.com>
Wed, 28 Feb 2007 12:03:19 +0000
(12:03 +0000)
utils/hp2ps/Main.c
patch
|
blob
|
history
diff --git
a/utils/hp2ps/Main.c
b/utils/hp2ps/Main.c
index
eb50e00
..
53f010b
100644
(file)
--- a/
utils/hp2ps/Main.c
+++ b/
utils/hp2ps/Main.c
@@
-145,8
+145,12
@@
nextarg: ;
if (!filter) {
pathName = copystring(argv[0]);
DropSuffix(pathName, ".hp");
+#if defined(_MSC_VER) || defined(__MINGW32__) || defined(_WIN32)
+ DropSuffix(pathName, ".exe");
+ pathName = copystring2(pathName,".exe");
+#endif
baseName = copystring(Basename(pathName));
-
+
hpfp = Fp(pathName, &hpfile, ".hp", "r");
psfp = Fp(baseName, &psfile, ".ps", "w");