diff options
Diffstat (limited to 'tcllib/modules/fumagic/fileutil_magic_cfront.pcx')
| -rw-r--r-- | tcllib/modules/fumagic/fileutil_magic_cfront.pcx | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/tcllib/modules/fumagic/fileutil_magic_cfront.pcx b/tcllib/modules/fumagic/fileutil_magic_cfront.pcx new file mode 100644 index 0000000..99ad5c3 --- /dev/null +++ b/tcllib/modules/fumagic/fileutil_magic_cfront.pcx @@ -0,0 +1,35 @@ +# -*- tcl -*- fileutil::magic::cfront.pcx +# Syntax of the commands provided by package fileutil::magic::cfront. +# +# 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 fileutil::magic::cfront +pcx::tcldep 1.0 needs tcl 8.4 + +namespace eval ::fileutil::magic::cfront {} + +#pcx::message FOO {... text ...} type +#pcx::scan <VERSION> <NAME> <RULE> + +pcx::check 1.0 std ::fileutil::magic::cfront::compile \ + {checkSimpleArgs 1 -1 { + checkFileName + }} +pcx::check 1.0 std ::fileutil::magic::cfront::install \ + {checkSimpleArgs 1 -1 { + checkFileName + }} +pcx::check 1.0 std ::fileutil::magic::cfront::procdef \ + {checkSimpleArgs 2 -1 { + checkWord + checkFileName + }} + +# Initialization via pcx::init. +# Use a ::fileutil::magic::cfront::init procedure for non-standard initialization. +pcx::complete |