RJ TextEd

Code: Select all

proc resolveMacros {string} {
    set serial [file tail $::globals(serialDir)]
    if {$serial eq ""} {set serial "Undefined"}
    set part [file tail $::globals(partDir)]
    if {$part eq ""} {set part "Undefined"}

    set time [clock seconds]
    set mapString [list]
    # --- build up a string map of all possible substitutions
    set macroList [dbMem eval {select macro from macro}]
    set sortedList [lsortby {string length} -int -decreasing $macroList]
    foreach macro $sortedList {
        if {$macro eq "%part"} {
            lappend mapString $macro $part
        } elseif {$macro eq "%serial"} {
            lappend mapString $macro $serial
        } else {
            set val [clock format $time -format $macro]
            lappend mapString $macro $val
        }
    }

    # --- return the substituted result
    return [string map $mapString $string]
}

Code: Select all

[Fold]
1_Id=proc
1_Begin=
1_End=
1_EndBefore=\in
1_Section=
1_NoParentOfId=0
1_NotAlwaysEnded=0
1_ListItem=ceMethod
2_Id=foreach
2_Begin=
2_End=
2_EndBefore=\in
2_Section=
2_NoParentOfId=0
2_NotAlwaysEnded=0
2_ListItem=
3_Id=if
3_Begin=
3_End=
3_EndBefore=\in
3_Section=
3_NoParentOfId=0
3_NotAlwaysEnded=1
3_ListItem=
...

Code: Select all

int myAdd(int x) { return 10*x; }

Code: Select all

proc buildUI {parent {name "Test"} {root .}} {
   ...
   ...
}