Changeset 0dce4cb in tol


Ignore:
Timestamp:
May 24, 2017, 9:51:29 AM (9 years ago)
Author:
Jorge Pérez <josp.jorge@…>
Branches:
1941-docker-image-to-test, devel, master
Children:
74f469a
Parents:
18d02f2e
Message:

getOptArg usa Element con argumento opcional

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

File:
1 edited

Legend:

Unmodified
Added
Removed

  • tol/stdlib/various/_tools.tol

    r18d02f2e r0dce4cb  
    1414    Real hasName = And
    1515    (
    16       name!="",
    17       name==ToName(name),
     16      name!="",      name==ToName(name),
    1817      name!="Empty"
    1918    );
    … …  
    5554  Text g = Grammar(optArgs);
    5655  Case(
    57     g=="Set",
    58     If(!Card(optArgs), defValue,
    59     {
    60       Real Do If(Card(optArgs),!HasIndexByName(optArgs),SetIndexByName(optArgs));
    61       Real idx = FindIndexByName(optArgs,name);
    62       If(!idx, defValue, optArgs[idx])
    63     }),
     56    g=="Set", Element(optArgs, name, defValue),
    6457    g=="NameBlock",
    6558    If(!ObjectExist("Anything","optArgs::"+name), defValue,
Note: See TracChangeset for help on using the changeset viewer.