1 files changed, 50 insertions, 0 deletions
diff --git a/tcllib/modules/pt/pt_peg_export_json.tcl b/tcllib/modules/pt/pt_peg_export_json.tcl
new file mode 100644
index 0000000..12eaa50
--- /dev/null
+++ b/tcllib/modules/pt/pt_peg_export_json.tcl
@@ -0,0 +1,50 @@
+# pt_peg_export_json.tcl --
+#
+#	The PEG to JSON export plugin. Generation of Tcl code, a
+#	snit::type.
+#
+# Copyright (c) 2009 Andreas Kupries <andreas_kupries@sourceforge.net>
+#
+# See the file "license.terms" for information on usage and redistribution
+# of this file, and for a DISCLAIMER OF ALL WARRANTIES.
+# 
+# RCS: @(#) $Id: pt_peg_export_json.tcl,v 1.1 2010/03/26 05:07:24 andreas_kupries Exp $
+
+# This package is a plugin for the pt::peg export manager.  It
+# takes the canonical serialization of a parsing expression grammar
+# and produces text in JSON format.
+
+# ### ### ### ######### ######### #########
+## Requisites
+
+# @mdgen NODEP: pt::peg::export::plugin
+
+package require Tcl 8.5
+package require pt::peg::export::plugin ; # The presence of this
+					  # pseudo package indicates
+					  # execution inside of a
+					  # properly initialized
+					  # plugin interpreter.
+package require pt::peg::to::json
+
+# ### ### ### ######### ######### #########
+## API.
+
+proc export {serial configuration} {
+
+    pt::peg::to::json reset
+    foreach {option value} $configuration {
+	pt::peg::to::json configure $option $value
+    }
+
+    set text [pt::peg::to::json convert $serial]
+
+    pt::peg::to::json reset
+    return $text
+}
+
+# ### ### ### ######### ######### #########
+## Ready
+
+package provide pt::peg::export::json 1
+return