22 lines
408 B
Tcl
22 lines
408 B
Tcl
####################################################################
|
|
#
|
|
# dumpdef.tcl
|
|
#
|
|
# Dump data definitions from every table of the database to a file.
|
|
#
|
|
# Uses utility procedure DumpSchema in file datautil.tcl
|
|
#
|
|
|
|
# Create the db, if not yet created.
|
|
source createdb.tcl
|
|
|
|
####################################################################
|
|
#
|
|
# Execution starts here
|
|
#
|
|
|
|
tclodbc::DumpSchema db db.def
|
|
|
|
|
|
|