tool/mkpragmatab.tcl

   1 #!/usr/bin/tclsh
   2 #
   3 # Run this script to generate the pragma name lookup table C code.
   4 #
   5 # To add new pragmas, first add the name and other relevant attributes
   6 # of the pragma to the "pragma_def" object below.  Then run this script
   7 # to generate the ../src/pragma.h header file that contains macros and
   8 # the lookup table needed for pragma name lookup in the pragma.c module.
   9 # Then add the extra "case PragTyp_XXXXX:" and subsequent code for the
  10 # new pragma in ../src/pragma.c.
  11 #
  12 # The results are normally written into the ../src/pragma.h file.  However,
  13 # if an alternative output file name is provided as an argument, then
  14 # results are written into the alternative.  For example:
  15 #
  16 #     tclsh tool/mkpragmatab.tcl            ;# <--- Results to src/pragma.h
  17 #
  18 #     tclsh tool/mkpragmatab.tcl /dev/tty   ;# <-- results to terminal
  19 #
  20
  21 # Flag meanings:
  22 set flagMeaning(NeedSchema) {Force schema load before running}
  23 set flagMeaning(ReadOnly)   {Read-only HEADER_VALUE}
  24 set flagMeaning(Result0)    {Acts as query when no argument}
  25 set flagMeaning(Result1)    {Acts as query when has one argument}
  26 set flagMeaning(SchemaReq)  {Schema required - "main" is default}
  27 set flagMeaning(SchemaOpt)  {Schema restricts name search if present}
  28 set flagMeaning(NoColumns)  {OP_ResultRow called with zero columns}
  29 set flagMeaning(NoColumns1) {zero columns if RHS argument is present}
  30
  31 set pragma_def {
  32   NAME: full_column_names
  33   TYPE: FLAG
  34   ARG:  SQLITE_FullColNames
  35   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  36
  37   NAME: short_column_names
  38   TYPE: FLAG
  39   ARG:  SQLITE_ShortColNames
  40   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  41
  42   NAME: count_changes
  43   TYPE: FLAG
  44   ARG:  SQLITE_CountRows
  45   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  46
  47   NAME: empty_result_callbacks
  48   TYPE: FLAG
  49   ARG:  SQLITE_NullCallback
  50   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  51
  52   NAME: fullfsync
  53   TYPE: FLAG
  54   ARG:  SQLITE_FullFSync
  55   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  56
  57   NAME: checkpoint_fullfsync
  58   TYPE: FLAG
  59   ARG:  SQLITE_CkptFullFSync
  60   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  61
  62   NAME: cache_spill
  63   FLAG: Result0 SchemaReq NoColumns1
  64   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  65
  66   NAME: reverse_unordered_selects
  67   TYPE: FLAG
  68   ARG:  SQLITE_ReverseOrder
  69   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  70
  71   NAME: query_only
  72   TYPE: FLAG
  73   ARG:  SQLITE_QueryOnly
  74   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  75
  76   NAME: automatic_index
  77   TYPE: FLAG
  78   ARG:  SQLITE_AutoIndex
  79   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  80   IF:   !defined(SQLITE_OMIT_AUTOMATIC_INDEX)
  81
  82   NAME: sql_trace
  83   TYPE: FLAG
  84   ARG:  SQLITE_SqlTrace
  85   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  86   IF:   defined(SQLITE_DEBUG)
  87
  88   NAME: vdbe_listing
  89   TYPE: FLAG
  90   ARG:  SQLITE_VdbeListing
  91   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  92   IF:   defined(SQLITE_DEBUG)
  93
  94   NAME: vdbe_trace
  95   TYPE: FLAG
  96   ARG:  SQLITE_VdbeTrace
  97   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
  98   IF:   defined(SQLITE_DEBUG)
  99
 100   NAME: vdbe_addoptrace
 101   TYPE: FLAG
 102   ARG:  SQLITE_VdbeAddopTrace
 103   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 104   IF:   defined(SQLITE_DEBUG)
 105
 106   NAME: vdbe_debug
 107   TYPE: FLAG
 108   ARG:  SQLITE_SqlTrace|SQLITE_VdbeListing|SQLITE_VdbeTrace
 109   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 110   IF:   defined(SQLITE_DEBUG)
 111
 112   NAME: vdbe_eqp
 113   TYPE: FLAG
 114   ARG:  SQLITE_VdbeEQP
 115   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 116   IF:   defined(SQLITE_DEBUG)
 117
 118   NAME: ignore_check_constraints
 119   TYPE: FLAG
 120   ARG:  SQLITE_IgnoreChecks
 121   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 122   IF:   !defined(SQLITE_OMIT_CHECK)
 123
 124   NAME: writable_schema
 125   TYPE: FLAG
 126   ARG:  SQLITE_WriteSchema|SQLITE_NoSchemaError
 127   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 128
 129   NAME: read_uncommitted
 130   TYPE: FLAG
 131   ARG:  SQLITE_ReadUncommit
 132   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 133
 134   NAME: recursive_triggers
 135   TYPE: FLAG
 136   ARG:  SQLITE_RecTriggers
 137   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 138
 139   NAME: trusted_schema
 140   TYPE: FLAG
 141   ARG:  SQLITE_TrustedSchema
 142   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 143
 144   NAME: foreign_keys
 145   TYPE: FLAG
 146   ARG:  SQLITE_ForeignKeys
 147   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 148   IF:   !defined(SQLITE_OMIT_FOREIGN_KEY) && !defined(SQLITE_OMIT_TRIGGER)
 149
 150   NAME: defer_foreign_keys
 151   TYPE: FLAG
 152   ARG:  SQLITE_DeferFKs
 153   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 154   IF:   !defined(SQLITE_OMIT_FOREIGN_KEY) && !defined(SQLITE_OMIT_TRIGGER)
 155
 156   NAME: cell_size_check
 157   TYPE: FLAG
 158   ARG:  SQLITE_CellSizeCk
 159
 160   NAME: default_cache_size
 161   FLAG: NeedSchema Result0 SchemaReq NoColumns1
 162   COLS: cache_size
 163   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS) && !defined(SQLITE_OMIT_DEPRECATED)
 164
 165   NAME: page_size
 166   FLAG: Result0 SchemaReq NoColumns1
 167   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 168
 169   NAME: secure_delete
 170   FLAG: Result0
 171   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 172
 173   NAME: page_count
 174   FLAG: NeedSchema Result0 SchemaReq
 175   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 176
 177   NAME: max_page_count
 178   TYPE: PAGE_COUNT
 179   FLAG: NeedSchema Result0 SchemaReq
 180   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 181
 182   NAME: locking_mode
 183   FLAG: Result0 SchemaReq
 184   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 185
 186   NAME: journal_mode
 187   FLAG: NeedSchema Result0 SchemaReq
 188   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 189
 190   NAME: journal_size_limit
 191   FLAG: Result0 SchemaReq
 192   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 193
 194   NAME: cache_size
 195   FLAG: NeedSchema Result0 SchemaReq NoColumns1
 196   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 197
 198   NAME: mmap_size
 199   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 200
 201   NAME: auto_vacuum
 202   FLAG: NeedSchema Result0 SchemaReq NoColumns1
 203   IF:   !defined(SQLITE_OMIT_AUTOVACUUM)
 204
 205   NAME: incremental_vacuum
 206   FLAG: NeedSchema NoColumns
 207   IF:   !defined(SQLITE_OMIT_AUTOVACUUM)
 208
 209   NAME: temp_store
 210   FLAG: Result0 NoColumns1
 211   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 212
 213   NAME: temp_store_directory
 214   FLAG: NoColumns1
 215   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 216
 217   NAME: data_store_directory
 218   FLAG: NoColumns1
 219   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS) && SQLITE_OS_WIN
 220
 221   NAME: lock_proxy_file
 222   FLAG: NoColumns1
 223   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS) && SQLITE_ENABLE_LOCKING_STYLE
 224
 225   NAME: synchronous
 226   FLAG: NeedSchema Result0 SchemaReq NoColumns1
 227   IF:   !defined(SQLITE_OMIT_PAGER_PRAGMAS)
 228
 229   NAME: table_info
 230   FLAG: NeedSchema Result1 SchemaOpt
 231   ARG:  0
 232   COLS: cid name type notnull dflt_value pk
 233   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 234
 235   NAME: table_xinfo
 236   TYPE: TABLE_INFO
 237   FLAG: NeedSchema Result1 SchemaOpt
 238   ARG:  1
 239   COLS: cid name type notnull dflt_value pk hidden
 240   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 241
 242   NAME: table_list
 243   TYPE: TABLE_LIST
 244   FLAG: NeedSchema Result1
 245   COLS: schema name type ncol wr strict
 246   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 247
 248   NAME: stats
 249   FLAG: NeedSchema Result0 SchemaReq
 250   COLS: tbl idx wdth hght flgs
 251   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS) && defined(SQLITE_DEBUG)
 252
 253   NAME: index_info
 254   TYPE: INDEX_INFO
 255   ARG:  0
 256   FLAG: NeedSchema Result1 SchemaOpt
 257   COLS: seqno cid name
 258   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 259
 260   NAME: index_xinfo
 261   TYPE: INDEX_INFO
 262   ARG:  1
 263   FLAG: NeedSchema Result1 SchemaOpt
 264   COLS: seqno cid name desc coll key
 265   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 266
 267   NAME: index_list
 268   FLAG: NeedSchema Result1 SchemaOpt
 269   COLS: seq name unique origin partial
 270   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 271
 272   NAME: database_list
 273   FLAG: Result0
 274   COLS: seq name file
 275   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 276
 277   NAME: function_list
 278   FLAG: Result0
 279   COLS: name builtin type enc narg flags
 280   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 281   IF:   !defined(SQLITE_OMIT_INTROSPECTION_PRAGMAS)
 282
 283   NAME: module_list
 284   FLAG: Result0
 285   COLS: name
 286   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 287   IF:   !defined(SQLITE_OMIT_VIRTUALTABLE)
 288   IF:   !defined(SQLITE_OMIT_INTROSPECTION_PRAGMAS)
 289
 290   NAME: pragma_list
 291   FLAG: Result0
 292   COLS: name
 293   IF:   !defined(SQLITE_OMIT_INTROSPECTION_PRAGMAS)
 294
 295   NAME: collation_list
 296   FLAG: Result0
 297   COLS: seq name
 298   IF:   !defined(SQLITE_OMIT_SCHEMA_PRAGMAS)
 299
 300   NAME: foreign_key_list
 301   FLAG: NeedSchema Result1 SchemaOpt
 302   COLS: id seq table from to on_update on_delete match
 303   IF:   !defined(SQLITE_OMIT_FOREIGN_KEY)
 304
 305   NAME: foreign_key_check
 306   FLAG: NeedSchema Result0 Result1 SchemaOpt
 307   COLS: table rowid parent fkid
 308   IF:   !defined(SQLITE_OMIT_FOREIGN_KEY) && !defined(SQLITE_OMIT_TRIGGER)
 309
 310   NAME: parser_trace
 311   TYPE: FLAG
 312   ARG:  SQLITE_ParserTrace
 313   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 314   IF:   defined(SQLITE_DEBUG)
 315
 316   NAME: case_sensitive_like
 317   FLAG: NoColumns
 318   IF:   !defined(SQLITE_OMIT_CASE_SENSITIVE_LIKE_PRAGMA)
 319
 320   NAME: integrity_check
 321   FLAG: NeedSchema Result0 Result1 SchemaOpt
 322   IF:   !defined(SQLITE_OMIT_INTEGRITY_CHECK)
 323
 324   NAME: quick_check
 325   TYPE: INTEGRITY_CHECK
 326   FLAG: NeedSchema Result0 Result1 SchemaOpt
 327   IF:   !defined(SQLITE_OMIT_INTEGRITY_CHECK)
 328
 329   NAME: encoding
 330   FLAG: Result0 NoColumns1
 331   IF:   !defined(SQLITE_OMIT_UTF16)
 332
 333   NAME: schema_version
 334   TYPE: HEADER_VALUE
 335   ARG:  BTREE_SCHEMA_VERSION
 336   FLAG: NoColumns1 Result0
 337   IF:   !defined(SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS)
 338
 339   NAME: user_version
 340   TYPE: HEADER_VALUE
 341   ARG:  BTREE_USER_VERSION
 342   FLAG: NoColumns1 Result0
 343   IF:   !defined(SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS)
 344
 345   NAME: data_version
 346   TYPE: HEADER_VALUE
 347   ARG:  BTREE_DATA_VERSION
 348   FLAG: ReadOnly Result0
 349   IF:   !defined(SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS)
 350
 351   NAME: freelist_count
 352   TYPE: HEADER_VALUE
 353   ARG:  BTREE_FREE_PAGE_COUNT
 354   FLAG: ReadOnly Result0
 355   IF:   !defined(SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS)
 356
 357   NAME: application_id
 358   TYPE: HEADER_VALUE
 359   ARG:  BTREE_APPLICATION_ID
 360   FLAG: NoColumns1 Result0
 361   IF:   !defined(SQLITE_OMIT_SCHEMA_VERSION_PRAGMAS)
 362
 363   NAME: compile_options
 364   FLAG: Result0
 365   IF:   !defined(SQLITE_OMIT_COMPILEOPTION_DIAGS)
 366
 367   NAME: wal_checkpoint
 368   FLAG: NeedSchema
 369   COLS: busy log checkpointed
 370   IF:   !defined(SQLITE_OMIT_WAL)
 371
 372   NAME: wal_autocheckpoint
 373   IF:   !defined(SQLITE_OMIT_WAL)
 374
 375   NAME: shrink_memory
 376   FLAG: NoColumns
 377
 378   NAME: busy_timeout
 379   FLAG: Result0
 380   COLS: timeout
 381
 382   NAME: lock_status
 383   FLAG: Result0
 384   COLS: database status
 385   IF:   defined(SQLITE_DEBUG) || defined(SQLITE_TEST)
 386
 387   NAME: key
 388   TYPE: KEY
 389   ARG:  0
 390   IF:   defined(SQLITE_HAS_CODEC)
 391
 392   NAME: rekey
 393   TYPE: KEY
 394   ARG:  1
 395   IF:   defined(SQLITE_HAS_CODEC)
 396
 397   NAME: hexkey
 398   TYPE: KEY
 399   ARG:  2
 400   IF:   defined(SQLITE_HAS_CODEC)
 401
 402   NAME: hexrekey
 403   TYPE: KEY
 404   ARG:  3
 405   IF:   defined(SQLITE_HAS_CODEC)
 406
 407   NAME: textkey
 408   TYPE: KEY
 409   ARG:  4
 410   IF:   defined(SQLITE_HAS_CODEC)
 411
 412   NAME: textrekey
 413   TYPE: KEY
 414   ARG:  5
 415   IF:   defined(SQLITE_HAS_CODEC)
 416
 417   NAME: activate_extensions
 418   IF:   defined(SQLITE_ENABLE_CEROD)
 419
 420   NAME: soft_heap_limit
 421   FLAG: Result0
 422
 423   NAME: hard_heap_limit
 424   FLAG: Result0
 425
 426   NAME: threads
 427   FLAG: Result0
 428
 429   NAME: analysis_limit
 430   FLAG: Result0
 431
 432   NAME: optimize
 433   FLAG: Result1 NeedSchema
 434
 435   NAME: legacy_alter_table
 436   TYPE: FLAG
 437   ARG:  SQLITE_LegacyAlter
 438   IF:   !defined(SQLITE_OMIT_FLAG_PRAGMAS)
 439 }
 440
 441 # Open the output file
 442 #
 443 if {$argc>0} {
 444   set destfile [lindex $argv 0]
 445 } else {
 446   set destfile "[file dir [file dir [file normal $argv0]]]/src/pragma.h"
 447   puts "Overwriting $destfile with new pragma table..."
 448 }
 449 set fd [open $destfile wb]
 450 puts $fd {/* DO NOT EDIT!
 451 ** This file is automatically generated by the script at
 452 ** ../tool/mkpragmatab.tcl.  To update the set of pragmas, edit
 453 ** that script and rerun it.
 454 */}
 455
 456 # Parse the PRAGMA table above.
 457 #
 458 set name {}
 459 set type {}
 460 set if {}
 461 set flags {}
 462 set cols {}
 463 set cols_list {}
 464 set arg 0
 465 proc record_one {} {
 466   global name type if arg allbyname typebyif flags cols all_cols
 467   global cols_list colUsedBy
 468   if {$name==""} return
 469   if {$cols!=""} {
 470     if {![info exists all_cols($cols)]} {
 471       set all_cols($cols) 1
 472       lappend cols_list $cols
 473     }
 474     set cx $cols
 475     lappend colUsedBy($cols) $name
 476   } else {
 477     set cx 0
 478   }
 479   set allbyname($name) [list $type $arg $if $flags $cols]
 480   set name {}
 481   set type {}
 482   set if {}
 483   set flags {}
 484   set cols {}
 485   set arg 0
 486 }
 487 foreach line [split $pragma_def \n] {
 488   set line [string trim $line]
 489   if {$line==""} continue
 490   foreach {id val} [split $line :] break
 491   set val [string trim $val]
 492   if {$id=="NAME"} {
 493     record_one
 494     set name $val
 495     set type [string toupper $val]
 496   } elseif {$id=="TYPE"} {
 497     set type $val
 498     if {$type=="FLAG"} {
 499       lappend flags Result0 NoColumns1
 500     }
 501   } elseif {$id=="ARG"} {
 502     set arg $val
 503   } elseif {$id=="COLS"} {
 504     set cols $val
 505   } elseif {$id=="IF"} {
 506     lappend if $val
 507   } elseif {$id=="FLAG"} {
 508     foreach term [split $val] {
 509       lappend flags $term
 510       set allflags($term) 1
 511     }
 512   } else {
 513     error "bad pragma_def line: $line"
 514   }
 515 }
 516 record_one
 517 set allnames [lsort [array names allbyname]]
 518
 519 # Generate #defines for all pragma type names.  Group the pragmas that are
 520 # omit in default builds (ex: defined(SQLITE_DEBUG))
 521 # at the end.
 522 #
 523 puts $fd "\n/* The various pragma types */"
 524 set pnum 0
 525 foreach name $allnames {
 526   set type [lindex $allbyname($name) 0]
 527   if {[info exists seentype($type)]} continue
 528   set if [lindex $allbyname($name) 2]
 529   if {[regexp SQLITE_DEBUG $if] || [regexp SQLITE_HAS_CODEC $if]} continue
 530   set seentype($type) 1
 531   puts $fd [format {#define %-35s %4d} PragTyp_$type $pnum]
 532   incr pnum
 533 }
 534 foreach name $allnames {
 535   set type [lindex $allbyname($name) 0]
 536   if {[info exists seentype($type)]} continue
 537   set if [lindex $allbyname($name) 2]
 538   if {[regexp SQLITE_DEBUG $if]} continue
 539   set seentype($type) 1
 540   puts $fd [format {#define %-35s %4d} PragTyp_$type $pnum]
 541   incr pnum
 542 }
 543 foreach name $allnames {
 544   set type [lindex $allbyname($name) 0]
 545   if {[info exists seentype($type)]} continue
 546   set seentype($type) 1
 547   puts $fd [format {#define %-35s %4d} PragTyp_$type $pnum]
 548   incr pnum
 549 }
 550
 551 # Generate #defines for flags
 552 #
 553 puts $fd "\n/* Property flags associated with various pragma. */"
 554 set fv 1
 555 foreach f [lsort [array names allflags]] {
 556   puts $fd [format {#define PragFlg_%-10s 0x%02x /* %s */} \
 557              $f $fv $flagMeaning($f)]
 558   set fv [expr {$fv*2}]
 559 }
 560
 561 # Sort the column lists so that longer column lists occur first
 562 #
 563 proc colscmp {a b} {
 564   return [expr {[llength $b] - [llength $a]}]
 565 }
 566 set cols_list [lsort -command colscmp $cols_list]
 567
 568 # Generate the array of column names used by pragmas that act like
 569 # queries.
 570 #
 571 puts $fd "\n/* Names of columns for pragmas that return multi-column result"
 572 puts $fd "** or that return single-column results where the name of the"
 573 puts $fd "** result column is different from the name of the pragma\n*/"
 574 puts $fd "static const char *const pragCName\[\] = {"
 575 set offset 0
 576 set allcollist {}
 577 foreach cols $cols_list {
 578   set n [llength $cols]
 579   set limit [expr {[llength $allcollist] - $n}]
 580   for {set i 0} {$i<$limit} {incr i} {
 581     set sublist [lrange $allcollist $i [expr {$i+$n-1}]]
 582     if {$sublist==$cols} {
 583       puts $fd [format "%27s/* $colUsedBy($cols) reuses $i */" ""]
 584       set cols_offset($cols) $i
 585       break
 586     }
 587   }
 588   if {$i<$limit} continue
 589   set cols_offset($cols) $offset
 590   set ub " /* Used by: $colUsedBy($cols) */"
 591   foreach c $cols {
 592     lappend allcollist $c
 593     puts $fd [format "  /* %3d */ %-14s%s" $offset \"$c\", $ub]
 594     set ub ""
 595     incr offset
 596   }
 597 }
 598 puts $fd "\175;"
 599
 600 # Generate the lookup table
 601 #
 602 puts $fd "\n/* Definitions of all built-in pragmas */"
 603 puts $fd "typedef struct PragmaName \173"
 604 puts $fd "  const char *const zName; /* Name of pragma */"
 605 puts $fd "  u8 ePragTyp;             /* PragTyp_XXX value */"
 606 puts $fd "  u8 mPragFlg;             /* Zero or more PragFlg_XXX values */"
 607 puts $fd {  u8 iPragCName;           /* Start of column names in pragCName[] */}
 608 puts $fd "  u8 nPragCName;          \
 609 /* Num of col names. 0 means use pragma name */"
 610 puts $fd "  u64 iArg;                /* Extra argument */"
 611 puts $fd "\175 PragmaName;"
 612 puts $fd "static const PragmaName aPragmaName\[\] = \173"
 613
 614 set current_if {}
 615 set spacer [format {    %26s } {}]
 616 foreach name $allnames {
 617   foreach {type arg if flag cx} $allbyname($name) break
 618   if {$cx==0 || $cx==""} {
 619     set cy 0
 620     set nx 0
 621   } else {
 622     set cy $cols_offset($cx)
 623     set nx [llength $cx]
 624   }
 625   if {$if!=$current_if} {
 626     if {$current_if!=""} {
 627       foreach this_if $current_if {
 628         puts $fd "#endif"
 629       }
 630     }
 631     set current_if $if
 632     if {$current_if!=""} {
 633       foreach this_if $current_if {
 634         puts $fd "#if $this_if"
 635       }
 636     }
 637   }
 638   set typex [format PragTyp_%-23s $type,]
 639   if {$flag==""} {
 640     set flagx "0"
 641   } else {
 642     set flagx PragFlg_[join $flag {|PragFlg_}]
 643   }
 644   puts $fd " \173/* zName:     */ \"$name\","
 645   puts $fd "  /* ePragTyp:  */ PragTyp_$type,"
 646   puts $fd "  /* ePragFlg:  */ $flagx,"
 647   puts $fd "  /* ColNames:  */ $cy, $nx,"
 648   puts $fd "  /* iArg:      */ $arg \175,"
 649 }
 650 if {$current_if!=""} {
 651   foreach this_if $current_if {
 652     puts $fd "#endif"
 653   }
 654 }
 655 puts $fd "\175;"
 656
 657 # count the number of pragmas, for information purposes
 658 #
 659 set allcnt 0
 660 set dfltcnt 0
 661 foreach name $allnames {
 662   incr allcnt
 663   set if [lindex $allbyname($name) 2]
 664   if {[regexp {^defined} $if] || [regexp {[^!]defined} $if]} continue
 665   incr dfltcnt
 666 }
 667 puts $fd "/* Number of pragmas: $dfltcnt on by default, $allcnt total. */"