Tue 17 Jul 2012 12:52:22 PM UTC, comment #1:
I will try with these changes (including keywords for expect):
1a2
> # extended for expect, by heinrichmartin
19c20
< "append|binary|format|re_syntax|regexp|regsub",
---
> "append|binary|format|re_syntax|regexp|regsub",
27c28
< "load|loadTk|package|pgk::create|pgk_mkIndex|source",
---
> "load|loadTk|package|pkg::create|pkg_mkIndex|source",
33c34,40
< vardef ID = '[[:word:]]+'
---
> keyword = "close|debug|disconnect|exit|exp_continue|exp_internal",
> "exp_open|exp_pid|exp_send|exp_send_error|exp_send_log",
> "exp_send_tty|exp_send_user|exp_version|expect|expect_after",
> "expect_before|expect_tty|expect_user|fork|interact",
> "interpreter|log_file|log_user|match_max|overlay|parity",
> "remove_nulls|send|send_error|send_log|send_tty|send_user",
> "sleep|spawn|strace|stty|system|timestamp|trap|wait"
35c42,44
< variable = '\$' + $ID
\ No newline at end of file
---
> vardef ID = '[[:word:]:-]+'
>
> variable = "$" + $ID + "|${" + $ID + "}"
|