diff options
| author | Steve Bennett <steveb@workware.net.au> | 2009-07-29 14:12:41 +1000 |
|---|---|---|
| committer | Steve Bennett <steveb@workware.net.au> | 2010-10-15 10:11:03 +1000 |
| commit | 4996f466d3bfb568b4798cbef03f059ae030be7f (patch) | |
| tree | 05da6b67fd091ef2c081b951168abf78026582fa /jim-regexp.c | |
| parent | 1c0ce5bc7197de87f5820b1afc72304adef537b3 (diff) | |
| download | jimtcl-4996f466d3bfb568b4798cbef03f059ae030be7f.zip jimtcl-4996f466d3bfb568b4798cbef03f059ae030be7f.tar.gz jimtcl-4996f466d3bfb568b4798cbef03f059ae030be7f.tar.bz2 | |
Build fixes, better Jim_EvalFile()
*: make-c-ext is now make-c-ext.tcl
*: build doc/Tcl.html with asciidoc
*: Jim_SetIntResult -> Jim_SetResultInt
*: Jim_EvalFile() now reads the file contents in one go
Diffstat (limited to 'jim-regexp.c')
| -rw-r--r-- | jim-regexp.c | 10 |
1 files changed, 2 insertions, 8 deletions
diff --git a/jim-regexp.c b/jim-regexp.c index e3c194e..736813d 100644 --- a/jim-regexp.c +++ b/jim-regexp.c @@ -53,12 +53,6 @@ #define JIM_EXTENSION #include "jim.h" -/* REVISIT: Would be useful in jim.h */ -static void Jim_SetIntResult(Jim_Interp *interp, jim_wide wide) -{ - Jim_SetResult(interp, Jim_NewIntObj(interp, wide)); -} - /** * REVISIT: Should cache a number of compiled regexps for performance reasons. */ @@ -272,7 +266,7 @@ int Jim_RegexpCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) Jim_SetResult(interp, resultListObj); } else { - Jim_SetIntResult(interp, num_matches); + Jim_SetResultInt(interp, num_matches); } } @@ -456,7 +450,7 @@ int Jim_RegsubCmd(Jim_Interp *interp, int argc, Jim_Obj *const *argv) result = Jim_SetVariable(interp, varname, resultObj); if (result == JIM_OK) { - Jim_SetIntResult(interp, num_matches); + Jim_SetResultInt(interp, num_matches); } else { Jim_SetResult(interp, Jim_NewEmptyStringObj(interp)); |