# $Id: shell_simh.tcl 985 2018-01-03 08:59:40Z mueller $
#
# Copyright 2016- by Walter F.J. Mueller <W.F.J.Mueller@gsi.de>
#
# This program is free software; you may redistribute and/or modify it under
# the terms of the GNU General Public License as published by the Free
# Software Foundation, either version 3, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY, without even the implied warranty of MERCHANTABILITY
# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
# for complete details.
#
#  Revision History:
# Date         Rev Version  Comment
# 2016-12-30   833   1.0    Initial version (limited to 'dep')
#

package provide rw11 1.0

namespace eval rw11 {

  #
  # shell_simh: simh command converter ---------------------------------------
  # 
  proc shell_simh {fname} {
    set fd [open $fname r]
    while {[gets $fd line] >= 0} {
      set cline $line
      if {[regexp -- {^(.*);} $line matched nocomm]} {set cline $nocomm}
      set cline [string trim $cline]
      if {$cline eq ""} {continue}

      set tlist [regexp -inline -all -- {\S+} $cline]
      set scmd  [lindex $tlist 0]
      set sargs [lrange $tlist 1 end]
      switch $scmd {
        dep     {shell_simh_dep {*}$sargs}
        default {
          error "shell_simh-E: not supported simh command '$cmd'"
        }
      }
    }
    return
  }

  #
  # shell_simh_dep: handler for 'dep'  ---------------------------------------
  # 
  proc shell_simh_dep {addr val} {
    .d "0$addr" "0$val"
  }  
}