2016-01-12 16:26:00

1 files changed, 52 insertions, 0 deletions

diff --git a/tex/context/base/mkiv/java-imp-fil.mkiv b/tex/context/base/mkiv/java-imp-fil.mkiv
new file mode 100644
index 000000000..808950f28
--- /dev/null
+++ b/tex/context/base/mkiv/java-imp-fil.mkiv
@@ -0,0 +1,52 @@
+%D \module
+%D   [       file=java-fil,
+%D        version=1998.06.01,
+%D          title=\CONTEXT\ JavaScript Macros,
+%D       subtitle=Filing and Printing,
+%D         author=Hans Hagen,
+%D           date=\currentdate,
+%D      copyright={PRAGMA ADE \& \CONTEXT\ Development Team}]
+%C
+%C This module is part of the \CONTEXT\ macro||package and is
+%C therefore copyrighted by \PRAGMA. See mreadme.pdf for
+%C details.
+
+\startJSpreamble Auxiliary used now
+
+    function DocumentFileName() {
+        var Paths = this.path.split("/") ;
+        Paths = Paths[Paths.length-1].split(".") ;
+        return(Paths[0])
+    }
+
+    function Print_Page_Range(From,To) {
+        if ((Number(From)>0) && (Number(To) >= Number(From))) {
+            var myFrom = Number(From)-1 ;
+            var myTo = Number(To)-1 ;
+            this.print(false,myFrom,myTo,true) ;
+        }
+    }
+
+    function Print_This_Page() {
+        this.print(false,this.pageNum,this.pageNum,true) ;
+    }
+
+\stopJSpreamble
+
+\definereference
+  [PrintSubPaginas]
+  [JS(Print_Page_Range{\firstsubpage,\lastsubpage})]
+
+\definereference
+  [PrintSubPages]
+  [JS(Print_Page_Range{\firstsubpage,\lastsubpage})]
+
+\definereference
+  [PrintDezePagina]
+  [JS(Print_This_Page)]
+
+\definereference
+  [PrintThisPage]
+  [JS(Print_This_Page)]
+
+\endinput