/ Check-in [478a84ef]
Login
SQLite training in Houston TX on 2019-11-05 (details)
Part of the 2019 Tcl Conference

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Modify the mksqlite3h.tcl tool to handle the syscall typedef specially.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | callbackConv
Files: files | file ages | folders
SHA1: 478a84efa6ea13629227ba8970c8ef8545d31074
User & Date: mistachkin 2016-07-28 15:38:34
Context
2016-07-28
16:09
More work on getting the 'testfixture.exe' target to work correctly. check-in: 36b72fd6 user: mistachkin tags: callbackConv
15:38
Modify the mksqlite3h.tcl tool to handle the syscall typedef specially. check-in: 478a84ef user: mistachkin tags: callbackConv
15:09
Change mksqlite3h.tcl to automatically insert the SQLITE_CALLBACK calling convention macros. check-in: 11ab9c9a user: drh tags: callbackConv
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to tool/mksqlite3h.tcl.

123
124
125
126
127
128
129


130
131
132
133
134
135
136
137
          append line SQLITE_CDECL
        } else {
          append line SQLITE_APICALL
        }
        append line " " $funcname $rest
      }
    }


    regsub {\(\*} $line {(SQLITE_CALLBACK *} line
    puts $line
  }
  close $in
  if {![regexp {sqlite\.h\.in} $file]} {
    puts "/******** End of [file tail $file] *********/"
  }
}







>
>








123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
          append line SQLITE_CDECL
        } else {
          append line SQLITE_APICALL
        }
        append line " " $funcname $rest
      }
    }
    set line [string map [list (*sqlite3_syscall_ptr) \
        "(SQLITE_SYSAPI *sqlite3_syscall_ptr)"] $line]
    regsub {\(\*} $line {(SQLITE_CALLBACK *} line
    puts $line
  }
  close $in
  if {![regexp {sqlite\.h\.in} $file]} {
    puts "/******** End of [file tail $file] *********/"
  }
}