Commit | Line | Data |
458402ad |
1 | # -*- tcl -*- json_write.pcx |
2 | # Syntax of the commands provided by package json::write. |
3 | # |
4 | # For use by TclDevKit's static syntax checker (v4.1+). |
5 | # See http://www.activestate.com/solutions/tcl/ |
6 | # See http://aspn.activestate.com/ASPN/docs/Tcl_Dev_Kit/4.0/Checker.html#pcx_api |
7 | # for the specification of the format of the code in this file. |
8 | # |
9 | |
10 | package require pcx |
11 | pcx::register json::write |
12 | pcx::tcldep 1.0 needs tcl 8.5 |
13 | |
14 | namespace eval ::json::write {} |
15 | |
16 | #pcx::message FOO {... text ...} type |
17 | #pcx::scan <VERSION> <NAME> <RULE> |
18 | |
19 | pcx::check 1.0 std ::json::write {checkSimpleArgs 1 -1 { |
20 | {checkOption { |
21 | {indented {checkSimpleArgs 0 1 { |
22 | checkBoolean |
23 | }}} |
24 | {aligned {checkSimpleArgs 0 1 { |
25 | checkBoolean |
26 | }}} |
27 | {string {checkSimpleArgs 1 1 { |
28 | checkWord |
29 | }}} |
30 | {array {checkSimpleArgs 0 -1 { |
31 | checkWord |
32 | }}} |
33 | {object {checkSimpleArgsModNk 0 2 { |
34 | checkWord |
35 | checkWord |
36 | }}}} |
37 | } {}} |
38 | } |
39 | |
40 | # Initialization via pcx::init. |
41 | # Use a ::json::write::init procedure for non-standard initialization. |
42 | pcx::complete |