diff options
author | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-21 19:31:53 +0000 |
---|---|---|
committer | Siep Kroonenberg <siepo@cybercomm.nl> | 2008-05-21 19:31:53 +0000 |
commit | 55526b1012f0bdd22a72c05b2e16306b17ecf6ef (patch) | |
tree | 28c111861ae4330580feb491ff88157e74216db4 /Master | |
parent | 455a8e9c0b4d9927d212514a5b77bd90cd5b8627 (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.pm | 7 | ||||
-rw-r--r-- | Master/tlpkg/TeXLive/TLWinGoo.pm | 7 |
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; } } |