From 8d8d528d2ad52599f11250cfc567fea4f37f2a8b Mon Sep 17 00:00:00 2001
From: Context Git Mirror Bot <phg42.2a@gmail.com>
Date: Tue, 12 Jan 2016 17:15:07 +0100
Subject: 2016-01-12 16:26:00

---
 tex/context/modules/mkii/x-dir-05.mkii | 51 ++++++++++++++++++++++++++++++++++
 1 file changed, 51 insertions(+)
 create mode 100644 tex/context/modules/mkii/x-dir-05.mkii

(limited to 'tex/context/modules/mkii/x-dir-05.mkii')

diff --git a/tex/context/modules/mkii/x-dir-05.mkii b/tex/context/modules/mkii/x-dir-05.mkii
new file mode 100644
index 000000000..53e73c5eb
--- /dev/null
+++ b/tex/context/modules/mkii/x-dir-05.mkii
@@ -0,0 +1,51 @@
+%D \module
+%D   [      file=x-dir-05,
+%D        version=2003.05.10, % around that time -)
+%D          title=\CONTEXT\ Directory Handling,
+%D       subtitle=Access,
+%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.
+
+\setvariables
+  [filestate]
+  [name=,base=,type=,size=,permissions=,date=]
+
+\def\savefilestate
+  {\dodoubleargument\dosavefilestate}
+
+\def\dosavefilestate[#1][#2]%
+  {\startnointerference
+     \setxvariables
+       [#1]
+       [name=#2,base=,type=,size=,permissions=,date=]
+     \executesystemcommand{texmfstart xmltools.rb --dir --pattern=\getvariable{#1}{name} --output=xmldir.tmp}
+     \defineXMLprocess [files]
+     \defineXMLprocess [directory]
+     \defineXMLenvironment [file]
+       {\defineXMLsave [base]
+        \defineXMLsave [type]
+        \defineXMLsave [size]
+        \defineXMLsave [permissions]
+        \defineXMLsave [date]}
+       {\setxvariables
+          [#1]
+          [name=\XMLop{name},
+           base=\XMLflush{base},
+           type=\XMLflush{type},
+           size=\XMLflush{size},
+           permissions=\XMLflush{permissions},
+           date=\XMLflush{date}]}
+     \startXMLignore
+     \processXMLfile{xmldir.tmp}
+     \stopXMLignore
+   \stopnointerference}
+
+\def\getfilestate#1% old one
+  {\savefilestate[filestate][#1]}
+
+\endinput
-- 
cgit v1.2.3