FilesExpand file tree

master

/

mkopts.tcl

Copy path

Blame

More file actions

Blame

More file actions

Latest commit

 

History

History

History

51 lines (48 loc) · 1.14 KB

master

/

mkopts.tcl

Copy path

Top

File metadata and controls

• Code
• Blame

51 lines (48 loc) · 1.14 KB

Raw

Copy raw file

Download raw file

Open symbols panel

Edit and raw actions

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

#!/usr/bin/tclsh

#

# This script is used to generate the array of strings and the enum

# that appear at the beginning of the C code implementation of a

# a TCL command and that define the available subcommands for that

# TCL command.

set prefix {}

while {![eof stdin]} {

set line [gets stdin]

if {$line==""} continue

regsub -all "\[ \t\n,\]+" [string trim $line] { } line

foreach token [split $line { }] {

if {![regexp {(([a-zA-Z]+)_)?([_a-zA-Z0-9]+)} $token all px p2 name]} continue

lappend namelist [string tolower $name]

if {$px!=""} {set prefix $p2}

}

}

puts " static const char *${prefix}_strs\[\] = \173"

set col 0

proc put_item x {

global col

if {$col==0} {puts -nonewline " "}

if {$col<2} {

puts -nonewline [format " %-25s" $x]

incr col

} else {

puts $x

set col 0

}

}

proc finalize {} {

global col

if {$col>0} {puts {}}

set col 0

}

foreach name [lsort $namelist] {

put_item \"$name\",

}

put_item 0

finalize

puts " \175;"

puts " enum ${prefix}_enum \173"

foreach name [lsort $namelist] {

regsub -all {@} $name {} name

put_item ${prefix}_[string toupper $name],

}

finalize

puts " \175;"