Changeset 82871e8 in tol


Ignore:
Timestamp:
Feb 20, 2012, 11:49:55 AM (15 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
746525a
Parents:
f3155c5
Message:

refs #297, implementación más eficiente de TextMatch_Tcl

git-svn-id: ​https://www.tol-project.org/svn/tolp/trunk@4163 be4846ae-f051-483a-831f-b64e7d08527f

Location:
tol
Files:
2 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/general/grammars/_text.tol

    rf3155c5 r82871e8  
    12731273//////////////////////////////////////////////////////////////////////////////
    12741274{
    1275   Text text.tcl = "{"<<Replace(Replace(Replace(text, "\\", "\\\\"),
    1276     "{",  "\\{"), "}",  "\\}") << "}";
    1277   Text pattern.tcl = "{"<<Replace(Replace(Replace(pattern, "\\", "\\\\"),
    1278     "{",  "\\{"), "}",  "\\}") << "}";
    1279   Text caseText = If(case, "", "-nocase ");
    1280   Eval(Tcl_Eval("string match "<<caseText<<pattern.tcl<<" "<<text.tcl)[1])
    1281 };
     1275  Set tclScript = [[ "string", "match" ]];
     1276  Set If( Not(case), Set Append( tclScript, [[ "-nocase" ]] ) );
     1277  Set Append( tclScript, [[ pattern, text ]] );
     1278  TextToReal( Tcl_EvalEx( tclScript )[1] )
     1279};

  • tol/tol_version_def.h

    rf3155c5 r82871e8  
    2424#define VERSION_MAJOR   3
    2525#define VERSION_MINOR   2
    26 #define VERSION_BUILD   "b002"
     26#define VERSION_BUILD   "b003"
    2727
    2828#if defined(_MSC_VER)
Note: See TracChangeset for help on using the changeset viewer.