Tcl Source Code

Artifact dc1d134eb2ee56f682c6c84aaf5a00ca18210399:

Attachment "demo.tcl" to ticket [8d2c0da36d] added by anonymous 2013-07-29 19:20:22. (unpublished)

---

set num "1*"
set time_t "$num $num $num $num $num $num $num $num $num"
set grp "1 3 8 $time_t 00000000 1 13Hxxxxxxxxxxxxx"
set re "^$time_t { $grp $grp $grp $grp $grp $grp $grp $grp $grp $grp $grp }"
regexp $re hi