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