blob: 2709286423136caa3885d2cf8b5c246771e64e9f (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
set f [open enums2tcl.c w]
puts $f "#include \"../ccore/ccapi.h\""
puts $f "#include \"../ccore/ccrdscb.h\""
puts $f "#include <stdio.h>"
puts $f "int main (void) {"
set inc [open ../ccore/ccapi.h r]
while {[gets $inc line] >= 0} {
if [regexp {\bcc_rc_\w+} $line code] {
puts $f "printf(\"set $code %d\\n\", $code);"
}
}
close $inc
set inc [open ../ccore/ccrdscb.h r]
while {[gets $inc line] >= 0} {
if [regexp {\bcc_rds_cb_(rc|op|stage)_\w+} $line code] {
puts $f "printf(\"set $code %d\\n\", $code);"
}
}
close $inc
puts $f "return 0;"
puts $f "}"
close $f
|
