Fossil

Check-in [9613828c7e]
Login

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

Overview
Comment:Add per-repo setting to enable/disable Tcl support.
Downloads: Tarball | ZIP archive
Timelines: family | ancestors | descendants | both | tcl-integration
Files: files | file ages | folders
SHA1: 9613828c7e3659024dd5830952f2922f3db8cec1
User & Date: mistachkin 2011-08-27 16:48:11.279
Context
2011-08-27
17:35
Document Tcl integration setting, build fixes. check-in: 326688e58b user: mistachkin tags: tcl-integration
16:48
Add per-repo setting to enable/disable Tcl support. check-in: 9613828c7e user: mistachkin tags: tcl-integration
16:26
Add ability to evaluate Tcl expressions from TH1. Add ability to invoke Tcl commands from TH1. Add the ability to evaluate TH1 scripts and expressions from Tcl. check-in: c5a6e9ea69 user: mistachkin tags: tcl-integration
Changes
Unified Diff Ignore Whitespace Patch
Changes to src/db.c.
1775
1776
1777
1778
1779
1780
1781

1782
1783
1784
1785
1786
1787
1788
  { "proxy",         0,               32, 0, "off"                 },
  { "relative-paths",0,                0, 0, "on"                  },
  { "repo-cksum",    0,                0, 0, "on"                  },
  { "self-register", 0,                0, 0, "off"                 },
  { "ssl-ca-location",0,              40, 0, ""                    },
  { "ssl-identity",  0,               40, 0, ""                    },
  { "ssh-command",   0,               32, 0, ""                    },

  { "web-browser",   0,               32, 0, ""                    },
  { "white-foreground", 0,             0, 0, "off"                 },
  { 0,0,0,0,0 }
};

/*
** COMMAND: settings







>







1775
1776
1777
1778
1779
1780
1781
1782
1783
1784
1785
1786
1787
1788
1789
  { "proxy",         0,               32, 0, "off"                 },
  { "relative-paths",0,                0, 0, "on"                  },
  { "repo-cksum",    0,                0, 0, "on"                  },
  { "self-register", 0,                0, 0, "off"                 },
  { "ssl-ca-location",0,              40, 0, ""                    },
  { "ssl-identity",  0,               40, 0, ""                    },
  { "ssh-command",   0,               32, 0, ""                    },
  { "tcl",           0,                0, 1, "off"                 },
  { "web-browser",   0,               32, 0, ""                    },
  { "white-foreground", 0,             0, 0, "off"                 },
  { 0,0,0,0,0 }
};

/*
** COMMAND: settings
Changes to src/th_main.c.
361
362
363
364
365
366
367

368

369
370
371
372
373
374
375
    {"wiki",          wikiCmd,              0},
  };
  if( g.interp==0 ){
    int i;
    g.interp = Th_CreateInterp(&vtab);
    th_register_language(g.interp);       /* Basic scripting commands. */
#ifdef FOSSIL_ENABLE_TCL

    th_register_tcl(g.interp);            /* Tcl integration commands. */

#endif
    for(i=0; i<sizeof(aCommand)/sizeof(aCommand[0]); i++){
      Th_CreateCommand(g.interp, aCommand[i].zName, aCommand[i].xProc,
                       aCommand[i].pContext, 0);
    }
  }
}







>
|
>







361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
    {"wiki",          wikiCmd,              0},
  };
  if( g.interp==0 ){
    int i;
    g.interp = Th_CreateInterp(&vtab);
    th_register_language(g.interp);       /* Basic scripting commands. */
#ifdef FOSSIL_ENABLE_TCL
    if( db_get_boolean("tcl", 0) ){
      th_register_tcl(g.interp);          /* Tcl integration commands. */
    }
#endif
    for(i=0; i<sizeof(aCommand)/sizeof(aCommand[0]); i++){
      Th_CreateCommand(g.interp, aCommand[i].zName, aCommand[i].xProc,
                       aCommand[i].pContext, 0);
    }
  }
}