From fc4466b32ed330a956ac603b00fd145524cff49a Mon Sep 17 00:00:00 2001
From: Karl Berry <karl@freefriends.org>
Date: Fri, 22 Apr 2016 22:14:39 +0000
Subject: context (22apr16)

git-svn-id: svn://tug.org/texlive/trunk@40691 c570f23f-e606-0410-a88d-b1316a301751
---
 .../tex/context/base/mkiv/mtx-context-sql.tex      | 64 ++++++++++++++++++++++
 1 file changed, 64 insertions(+)
 create mode 100644 Master/texmf-dist/tex/context/base/mkiv/mtx-context-sql.tex

(limited to 'Master/texmf-dist/tex/context/base/mkiv/mtx-context-sql.tex')

diff --git a/Master/texmf-dist/tex/context/base/mkiv/mtx-context-sql.tex b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-sql.tex
new file mode 100644
index 00000000000..16613c2453a
--- /dev/null
+++ b/Master/texmf-dist/tex/context/base/mkiv/mtx-context-sql.tex
@@ -0,0 +1,64 @@
+%D \module
+%D   [       file=mtx-context-sql-tables,
+%D        version=2012.10.19,
+%D          title=\CONTEXT\ Extra Trickry,
+%D       subtitle=SQL Tables,
+%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.
+
+% begin help
+%
+% usage: context --extra=sql --tables [options]
+%
+% --host                  : hostname (default: localhost)
+% --username              : username (default: root)
+% --password              : password
+% --database              : database of which we want tables
+%
+% example: context --extra=sql --tables --host=localhost --username=root --password=*** --database=test
+%
+% end help
+
+\usemodule
+  [art-01,sql-tables]
+
+\setupbodyfont
+  [10pt]
+
+\setupheader
+  [state=high]
+
+\setuptabulate
+  [before={\blank[big,samepage]}]
+
+\starttext
+
+\startluacode
+
+    require("s-sql-tables")
+
+    local arguments = environment.arguments
+
+    local presets   = arguments.presets
+    local preloaded = presets and table.load(presets) or { }
+
+    local presets   = {
+        host     = preloaded.host     or arguments.host     or "localhost",
+        username = preloaded.username or arguments.username or "root",
+        password = preloaded.password or arguments.password or "",
+        database = preloaded.database or arguments.database or "",
+    }
+
+
+    if arguments.tables then
+        moduledata.sql.tables.showdefined(presets)
+    end
+
+\stopluacode
+
+\stoptext
-- 
cgit v1.2.3

