34 set data [read $fd]
44 proc get_struct_members {data} {  argument
47   regexp "struct Fts5ExtensionApi {(.*?)};" $data -> defn
66 proc get_struct_docs {data names} {
68   regexp {EXTENSION API FUNCTIONS(.*?)[*]/} $data -> docs
101 proc get_tokenizer_docs {data} {  argument
102   regexp {(xCreate:.*?)[*]/} $data -> docs
124 proc get_api_docs {data} {  argument
132   array set M [get_struct_members $data]
137   set D [get_struct_docs $data [array names M]]
180 proc get_fts5_struct {data start end} {
183   foreach line [split $data "\n"] {
205 proc main {data} {  argument
208       output [get_fts5_struct $data "typedef struct fts5_api" "^\};"]
212       output [get_fts5_struct $data "typedef struct Fts5Tokenizer" "^\};"]
213       output [get_fts5_struct $data \
220       output [get_fts5_struct $data "typedef.*Fts5ExtensionApi" "^.;"]
224       set struct [get_fts5_struct $data "^struct Fts5ExtensionApi" "^.;"]
226       foreach {k v} [get_struct_members $data] {
234       get_api_docs $data
238       output [get_tokenizer_docs $data]
245 main $data