Fossil SCM
Added incr as built-in function.
Commit
dc3c8ac3deb06a8f29e68435e7bf523205441433
Parent
66da00e9690d007…
1 file changed
+4
+4
| --- src/th_main.c | ||
| +++ src/th_main.c | ||
| @@ -1665,10 +1665,14 @@ | ||
| 1665 | 1665 | #endif |
| 1666 | 1666 | #ifdef TH_USE_ARGV |
| 1667 | 1667 | th_register_argv(g.interp); |
| 1668 | 1668 | #endif |
| 1669 | 1669 | Th_register_commands( g.interp, aCommand ); |
| 1670 | + Th_Eval( g.interp, 0, "proc incr {name {step 1}} {\n" | |
| 1671 | + "upvar $name x\n" | |
| 1672 | + "set x [expr $x+$step]\n" | |
| 1673 | + "}", -1 ); | |
| 1670 | 1674 | } |
| 1671 | 1675 | } |
| 1672 | 1676 | |
| 1673 | 1677 | /* |
| 1674 | 1678 | ** Store a string value in a variable in the interpreter. |
| 1675 | 1679 |
| --- src/th_main.c | |
| +++ src/th_main.c | |
| @@ -1665,10 +1665,14 @@ | |
| 1665 | #endif |
| 1666 | #ifdef TH_USE_ARGV |
| 1667 | th_register_argv(g.interp); |
| 1668 | #endif |
| 1669 | Th_register_commands( g.interp, aCommand ); |
| 1670 | } |
| 1671 | } |
| 1672 | |
| 1673 | /* |
| 1674 | ** Store a string value in a variable in the interpreter. |
| 1675 |
| --- src/th_main.c | |
| +++ src/th_main.c | |
| @@ -1665,10 +1665,14 @@ | |
| 1665 | #endif |
| 1666 | #ifdef TH_USE_ARGV |
| 1667 | th_register_argv(g.interp); |
| 1668 | #endif |
| 1669 | Th_register_commands( g.interp, aCommand ); |
| 1670 | Th_Eval( g.interp, 0, "proc incr {name {step 1}} {\n" |
| 1671 | "upvar $name x\n" |
| 1672 | "set x [expr $x+$step]\n" |
| 1673 | "}", -1 ); |
| 1674 | } |
| 1675 | } |
| 1676 | |
| 1677 | /* |
| 1678 | ** Store a string value in a variable in the interpreter. |
| 1679 |