mirror of
https://github.com/wfjm/w11.git
synced 2026-01-27 04:42:13 +00:00
54 lines
1.6 KiB
Tcl
54 lines
1.6 KiB
Tcl
# $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"
|
|
}
|
|
}
|