Fossil SCM
Add per-repo setting to enable/disable Tcl support.
Commit
9613828c7e3659024dd5830952f2922f3db8cec1
Parent
c5a6e9ea694d45a…
2 files changed
+1
+3
-1
M
src/db.c
+1
| --- src/db.c | ||
| +++ src/db.c | ||
| @@ -1777,10 +1777,11 @@ | ||
| 1777 | 1777 | { "repo-cksum", 0, 0, 0, "on" }, |
| 1778 | 1778 | { "self-register", 0, 0, 0, "off" }, |
| 1779 | 1779 | { "ssl-ca-location",0, 40, 0, "" }, |
| 1780 | 1780 | { "ssl-identity", 0, 40, 0, "" }, |
| 1781 | 1781 | { "ssh-command", 0, 32, 0, "" }, |
| 1782 | + { "tcl", 0, 0, 1, "off" }, | |
| 1782 | 1783 | { "web-browser", 0, 32, 0, "" }, |
| 1783 | 1784 | { "white-foreground", 0, 0, 0, "off" }, |
| 1784 | 1785 | { 0,0,0,0,0 } |
| 1785 | 1786 | }; |
| 1786 | 1787 | |
| 1787 | 1788 |
| --- src/db.c | |
| +++ src/db.c | |
| @@ -1777,10 +1777,11 @@ | |
| 1777 | { "repo-cksum", 0, 0, 0, "on" }, |
| 1778 | { "self-register", 0, 0, 0, "off" }, |
| 1779 | { "ssl-ca-location",0, 40, 0, "" }, |
| 1780 | { "ssl-identity", 0, 40, 0, "" }, |
| 1781 | { "ssh-command", 0, 32, 0, "" }, |
| 1782 | { "web-browser", 0, 32, 0, "" }, |
| 1783 | { "white-foreground", 0, 0, 0, "off" }, |
| 1784 | { 0,0,0,0,0 } |
| 1785 | }; |
| 1786 | |
| 1787 |
| --- src/db.c | |
| +++ src/db.c | |
| @@ -1777,10 +1777,11 @@ | |
| 1777 | { "repo-cksum", 0, 0, 0, "on" }, |
| 1778 | { "self-register", 0, 0, 0, "off" }, |
| 1779 | { "ssl-ca-location",0, 40, 0, "" }, |
| 1780 | { "ssl-identity", 0, 40, 0, "" }, |
| 1781 | { "ssh-command", 0, 32, 0, "" }, |
| 1782 | { "tcl", 0, 0, 1, "off" }, |
| 1783 | { "web-browser", 0, 32, 0, "" }, |
| 1784 | { "white-foreground", 0, 0, 0, "off" }, |
| 1785 | { 0,0,0,0,0 } |
| 1786 | }; |
| 1787 | |
| 1788 |
+3
-1
| --- src/th_main.c | ||
| +++ src/th_main.c | ||
| @@ -363,11 +363,13 @@ | ||
| 363 | 363 | if( g.interp==0 ){ |
| 364 | 364 | int i; |
| 365 | 365 | g.interp = Th_CreateInterp(&vtab); |
| 366 | 366 | th_register_language(g.interp); /* Basic scripting commands. */ |
| 367 | 367 | #ifdef FOSSIL_ENABLE_TCL |
| 368 | - th_register_tcl(g.interp); /* Tcl integration commands. */ | |
| 368 | + if( db_get_boolean("tcl", 0) ){ | |
| 369 | + th_register_tcl(g.interp); /* Tcl integration commands. */ | |
| 370 | + } | |
| 369 | 371 | #endif |
| 370 | 372 | for(i=0; i<sizeof(aCommand)/sizeof(aCommand[0]); i++){ |
| 371 | 373 | Th_CreateCommand(g.interp, aCommand[i].zName, aCommand[i].xProc, |
| 372 | 374 | aCommand[i].pContext, 0); |
| 373 | 375 | } |
| 374 | 376 |
| --- src/th_main.c | |
| +++ src/th_main.c | |
| @@ -363,11 +363,13 @@ | |
| 363 | if( g.interp==0 ){ |
| 364 | int i; |
| 365 | g.interp = Th_CreateInterp(&vtab); |
| 366 | th_register_language(g.interp); /* Basic scripting commands. */ |
| 367 | #ifdef FOSSIL_ENABLE_TCL |
| 368 | th_register_tcl(g.interp); /* Tcl integration commands. */ |
| 369 | #endif |
| 370 | for(i=0; i<sizeof(aCommand)/sizeof(aCommand[0]); i++){ |
| 371 | Th_CreateCommand(g.interp, aCommand[i].zName, aCommand[i].xProc, |
| 372 | aCommand[i].pContext, 0); |
| 373 | } |
| 374 |
| --- src/th_main.c | |
| +++ src/th_main.c | |
| @@ -363,11 +363,13 @@ | |
| 363 | if( g.interp==0 ){ |
| 364 | int i; |
| 365 | g.interp = Th_CreateInterp(&vtab); |
| 366 | th_register_language(g.interp); /* Basic scripting commands. */ |
| 367 | #ifdef FOSSIL_ENABLE_TCL |
| 368 | if( db_get_boolean("tcl", 0) ){ |
| 369 | th_register_tcl(g.interp); /* Tcl integration commands. */ |
| 370 | } |
| 371 | #endif |
| 372 | for(i=0; i<sizeof(aCommand)/sizeof(aCommand[0]); i++){ |
| 373 | Th_CreateCommand(g.interp, aCommand[i].zName, aCommand[i].xProc, |
| 374 | aCommand[i].pContext, 0); |
| 375 | } |
| 376 |