summaryrefslogtreecommitdiff
path: root/Master/tlpkg/dviout/SPECIAL/srcspecial.mac
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/dviout/SPECIAL/srcspecial.mac')
-rw-r--r--Master/tlpkg/dviout/SPECIAL/srcspecial.mac15
1 files changed, 15 insertions, 0 deletions
diff --git a/Master/tlpkg/dviout/SPECIAL/srcspecial.mac b/Master/tlpkg/dviout/SPECIAL/srcspecial.mac
new file mode 100644
index 00000000000..a4ab37cecca
--- /dev/null
+++ b/Master/tlpkg/dviout/SPECIAL/srcspecial.mac
@@ -0,0 +1,15 @@
+ddeinitiate "dviout", "dviout";
+if(!result) {
+ run "dviout ";
+ ddeinitiate "dviout", "dviout";
+}else
+ $basefile = dderequest("dvifile");
+if(strlen($basefile) < 1)
+ $basefile = leftstr(filename,strlen(filename)-3)+"dvi";
+if(selecting){$SrcWord = "/" + gettext(seltopx,seltopy,selendx,selendy);}
+else $SrcWord="";
+ddeexecute "[PageOpen(# "+str(lineno)+$SrcWord+" '"+filename+"')]";
+ddeexecute "[WinNormal]";
+ddeexecute "[FileOpen("+$basefile+")]";
+ddeterminate;
+endmacro;