- This topic has 5 replies, 2 voices, and was last updated 16 years, 4 months ago by .
-
Topic
-
Here is the proc I pass the arguments to. It so far works except for quotes (“) Here is how i pass the arguments:
{Remove_Character {&}} {Replace_Character {{}}}
any ideas?
proc tps_remove_Character { args } {
keylget args MODE mode ;# Fetch mode
set dispList {} ;# Nothing to return
switch -exact — $mode {
start {
# Perform special init functions
# N.B.: there may or may not be a MSGID key in args
}
run {
# ‘run’ mode always has a MSGID; fetch and process it
keylget args MSGID mh
keylget args ARGS.Remove_Character move_Character
keylget args ARGS.Replace_Character place_Character
set msg [msgget $mh]
set msgHeader [string range $msg 0 7]
set msgTail [string range $msg 8 end]
set msgTail [string map “$move_Character $place_Character” $msgTail]
append newmsg $msgHeader $msgTail
msgset $mh $newmsg
lappend dispList “CONTINUE $mh”
}
time {
# Timer-based processing
# N.B.: there may or may not be a MSGID key in args
}
shutdown {
# Doing some clean-up work
}
}
- The forum ‘Cloverleaf’ is closed to new topics and replies.