1# -*- tcl -*- log.pcx
2# Syntax of the commands provided by package log.
3
4# For use by TclDevKit's static syntax checker.
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 documentation describing the format of the code contained in this file
8#
9
10package require pcx
11pcx::register log
12pcx::tcldep   1.2 needs tcl 8.2
13
14namespace eval ::log {}
15
16#pcx::message FOO {... text ...} type
17#pcx::scan <VERSION> <NAME> <RULE>
18
19pcx::check 1.2 std ::log::levels \
20    {checkSimpleArgs 0 0 {}}
21pcx::check 1.2 std ::log::log \
22    {checkSimpleArgs 2 2 {
23	log::checkLogLevel
24	checkWord
25    }}
26pcx::check 1.2 std ::log::logError \
27    {checkSimpleArgs 1 1 {
28	checkWord
29    }}
30pcx::check 1.2 std ::log::logMsg \
31    {checkSimpleArgs 1 1 {
32	checkWord
33    }}
34pcx::check 1.2 std ::log::logarray \
35    {checkSimpleArgs 2 3 {
36	log::checkLogLevel
37	checkVarNameRdAll
38	checkWord
39    }}
40pcx::check 1.2 std ::log::loghex \
41    {checkSimpleArgs 3 3 {
42	log::checkLogLevel
43	checkWord
44	checkWord
45    }}
46pcx::check 1.2 std ::log::lv2channel \
47    {checkSimpleArgs 1 1 {
48	log::checkLogLevel
49    }}
50pcx::check 1.2 std ::log::lv2cmd \
51    {checkSimpleArgs 1 1 {
52	log::checkLogLevel
53    }}
54pcx::check 1.2 std ::log::lv2color \
55    {checkSimpleArgs 1 1 {
56	log::checkLogLevel
57    }}
58pcx::check 1.2 std ::log::lv2longform \
59    {checkSimpleArgs 1 1 {
60	log::checkLogLevel
61    }}
62pcx::check 1.2 std ::log::lv2priority \
63    {checkSimpleArgs 1 1 {
64	log::checkLogLevel
65    }}
66pcx::check 1.2 std ::log::lvChannel \
67    {checkSimpleArgs 2 2 {
68	log::checkLogLevel
69	checkChannelID
70    }}
71pcx::check 1.2 std ::log::lvChannelForall \
72    {checkSimpleArgs 1 1 {
73	checkChannelID
74    }}
75pcx::check 1.2 std ::log::lvCmd \
76    {checkSimpleArgs 2 2 {
77	log::checkLogLevel
78	checkList
79    }}
80pcx::check 1.2 std ::log::lvCmdForall \
81    {checkSimpleArgs 1 1 {
82	checkList
83    }}
84pcx::check 1.2 std ::log::lvColor \
85    {checkSimpleArgs 2 2 {
86	log::checkLogLevel
87	checkWord
88    }}
89pcx::check 1.2 std ::log::lvColorForall \
90    {checkSimpleArgs 1 1 {
91	checkWord
92    }}
93pcx::check 1.2 std ::log::lvCompare \
94    {checkSimpleArgs 2 2 {
95	log::checkLogLevel
96	log::checkLogLevel
97    }}
98pcx::check 1.2 std ::log::lvIsSuppressed \
99    {checkSimpleArgs 1 1 {
100	log::checkLogLevel
101    }}
102pcx::check 1.2 std ::log::lvSuppress \
103    {checkSimpleArgs 1 2 {
104	log::checkLogLevel
105	checkBoolean
106    }}
107pcx::check 1.2 std ::log::lvSuppressLE \
108    {checkSimpleArgs 1 2 {
109	log::checkLogLevel
110	checkBoolean
111    }}
112
113# Initialization via pcx::init.
114# Use a ::log::init procedure for non-standard initialization.
115
116proc log::checkLogLevel {t i} {
117    return [checkKeyword 0 \
118		{emergency alert critical error warning notice info debug} \
119		$t $i]
120}
121
122pcx::complete
123