X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=json%2Fjson_write.pcx;fp=json%2Fjson_write.pcx;h=b24956a15cde8079fcb2ee8872b19c1e36607aa2;hb=458402ad7848042949e49d5b73831f75a870317c;hp=0000000000000000000000000000000000000000;hpb=c7db0954d5c41fd117a7cbce5e88f9a89a9a4a54;p=scpubgit%2FTenDotTcl.git

diff --git a/json/json_write.pcx b/json/json_write.pcx
new file mode 100644
index 0000000..b24956a
--- /dev/null
+++ b/json/json_write.pcx
@@ -0,0 +1,42 @@
+# -*- tcl -*- json_write.pcx
+# Syntax of the commands provided by package json::write.
+#
+# For use by TclDevKit's static syntax checker (v4.1+).
+# See http://www.activestate.com/solutions/tcl/
+# See http://aspn.activestate.com/ASPN/docs/Tcl_Dev_Kit/4.0/Checker.html#pcx_api
+# for the specification of the format of the code in this file.
+#
+
+package require pcx
+pcx::register json::write
+pcx::tcldep   1.0 needs tcl 8.5
+
+namespace eval ::json::write {}
+
+#pcx::message FOO {... text ...} type
+#pcx::scan <VERSION> <NAME> <RULE>
+
+pcx::check 1.0 std ::json::write {checkSimpleArgs 1 -1 {
+    {checkOption {
+	{indented {checkSimpleArgs 0 1 {
+	    checkBoolean
+	}}}
+	{aligned {checkSimpleArgs 0 1 {
+	    checkBoolean
+	}}}
+	{string {checkSimpleArgs 1 1 {
+	    checkWord
+	}}}
+	{array {checkSimpleArgs 0 -1 {
+	    checkWord
+	}}}
+	{object {checkSimpleArgsModNk 0 2 {
+	    checkWord
+	    checkWord
+	}}}}
+    } {}}
+}
+
+# Initialization via pcx::init.
+# Use a ::json::write::init procedure for non-standard initialization.
+pcx::complete