mirror of
https://github.com/wfjm/w11.git
synced 2026-02-13 03:34:39 +00:00
b2e7c1cdbb
- tools/bin/ti_w11: use rw11::shell by default; add -ns to suppress it - tools/oskit/*/*_boot.tcl: remove activation of cpucons and cpumon - tools/src/librwxxtpp - RtclRw11Cpu.cpp: use 'ssr' instead of 'mmr' for MMU register names - tools/tcl/rw11: - defs.tcl: fix typo in regmap_add for SDR's - shell.tcl: add '@' command - shell_simh.tcl: added, simh command converter - *: README updates
54 lines
1.6 KiB
Tcl
54 lines
1.6 KiB
Tcl
# $Id: shell_simh.tcl 835 2016-12-31 10:00:14Z 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 2, 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"
|
|
}
|
|
}
|