summaryrefslogtreecommitdiff
path: root/Master
diff options
context:
space:
mode:
authorSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 19:31:53 +0000
committerSiep Kroonenberg <siepo@cybercomm.nl>2008-05-21 19:31:53 +0000
commit55526b1012f0bdd22a72c05b2e16306b17ecf6ef (patch)
tree28c111861ae4330580feb491ff88157e74216db4 /Master
parent455a8e9c0b4d9927d212514a5b77bd90cd5b8627 (diff)
Revised PSview filetype, without dosbox. Revised semantics of
register_file_type: the caller should take care of all the gory details. git-svn-id: svn://tug.org/texlive/trunk@8274 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master')
-rw-r--r--Master/tlpkg/TeXLive/TLPostActions.pm7
-rw-r--r--Master/tlpkg/TeXLive/TLWinGoo.pm7
2 files changed, 10 insertions, 4 deletions
diff --git a/Master/tlpkg/TeXLive/TLPostActions.pm b/Master/tlpkg/TeXLive/TLPostActions.pm
index 0ee8fed4e20..9cbc3f2da00 100644
--- a/Master/tlpkg/TeXLive/TLPostActions.pm
+++ b/Master/tlpkg/TeXLive/TLPostActions.pm
@@ -114,7 +114,12 @@ sub do_install_bin_tlpsv_win32 {
);
register_extension(".ps", "PostScript");
register_extension(".eps", "PostScript");
- register_file_type("PostScript", $texdir.'/bin/win32/psv.bat');
+ #register_file_type("PostScript", '"'.$texdir.'/bin/win32/psv.bat"');
+ register_file_type("PostScript",
+ '"'.$texdir.'/tlpkg/tlpsv/gswxlua.exe" -g '.
+ '"'.$texdir.'/tlpkg/tlgs/bin/gsdll32.dll" -l '.
+ '"'.$texdir.'/tlpkg/tlpsv/psv.wx.lua" -p '.
+ '"'.$texdir.'/tlpkg/tlpsv/psv_view.ps" -sINPUT="%1"');
update_assocs();
}
}
diff --git a/Master/tlpkg/TeXLive/TLWinGoo.pm b/Master/tlpkg/TeXLive/TLWinGoo.pm
index 7cf27f446b5..4d2c48657c2 100644
--- a/Master/tlpkg/TeXLive/TLWinGoo.pm
+++ b/Master/tlpkg/TeXLive/TLWinGoo.pm
@@ -717,7 +717,8 @@ sub unregister_extension {
=item C<register_file_type($file_type, $command)>
Add registry entries to associate $file_type with $command. Slashes
-are flipped where necessary.
+are flipped where necessary. Double quotes should be added by the
+caller if necessary.
=cut
@@ -732,7 +733,7 @@ sub register_file_type {
$classes_key = $Registry -> Open("LMachine/Software/Classes/",
{Access => KEY_ALL_ACCESS()}) or die "Cannot open classpath";
$k = $classes_key->CreateKey($file_type."/Shell/Open/Command/");
- $k -> {"/"} = '"'.$command.'" "%1" %*';
+ $k -> {"/"} = $command;
$k -> ArrayValues(0);
# delete possibly conflicting values from HKCU/software
$classes_key = $Registry -> Open("CUser/Software/Classes/",
@@ -743,7 +744,7 @@ sub register_file_type {
{Access => KEY_ALL_ACCESS()});
$k = $classes_key->CreateKey($file_type."/Shell/Open/Command/");
$k -> ArrayValues(0);
- $k -> {"/"} = '"'.$command.'" "%1" %*';
+ $k -> {"/"} = $command;
}
}