about summary refs log blame commit diff stats
path: root/html/039debug.cc.html
blob: a66c4991f1e8a19852fa3f004943bd4d408cf143 (plain) (tree)
104e521c ^















pre { line-height: 125%; }
td.linenos .normal { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
span.linenos { color: inherit; background-color: transparent; padding-left: 5px; padding-right: 5px; }
td.linenos .special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
span.linenos.special { color: #000000; background-color: #ffffc0; padding-left: 5px; padding-right: 5px; }
.highlight .hll { background-color: #ffffcc }
.highlight .c { color: #888888 } /* Comment */
.highlight .err { color: #a61717; background-color: #e3d2d2 } /* Error */
.highlight .k { color: #008800; font-weight: bold } /* Keyword */
.highlight .ch { color: #888888 } /* Comment.Hashbang */
.highlight .cm { color: #888888 } /* Comment.Multiline */
.highlight .cp { color: #cc0000; font-weight: bold } /* Comment.Preproc */
.highlight .cpf { color: #888888 } /* Comment.PreprocFile */
.highlight .c1 { color: #888888 } /* Comment.Single */
.highlight .cs { color: #cc0000; font-weight: bold; background-color: #fff0f0 } /* Comment.Special */
.highlight .gd { color: #000000; background-color: #ffdddd } /* Generic.Deleted */
.highlight .ge { font-style: italic } /* Generic.Emph */
.highlight .ges { font-weight: bold; font-style: italic } /* Generic.EmphStrong */
.highlight .gr { color: #aa0000 } /* Generic.Error */
.highlight .gh { color: #333333 } /* Generic.Heading */
.highlight .gi { color: #000000; background-color: #ddffdd } /* Generic.Inserted */
.highlight .go { color: #888888 } /* Generic.Output */
.highlight .gp { color: #555555 } /* Generic.Prompt */
.highlight .gs { font-weight: bold } /* Generic.Strong */
.highlight .gu { color: #666666 } /* Generic.Subheading */
.highlight .gt { color: #aa0000 } /* Generic.Traceback */
.highlight .kc { color: #008800; font-weight: bold } /* Keyword.Constant */
.highlight .kd { color: #008800; font-weight: bold } /* Keyword.Declaration */
.highlight .kn { color: #008800; font-weight: bold } /* Keyword.Namespace */
.highlight .kp { color: #008800 } /* Keyword.Pseudo */
.highlight .kr { color: #008800; font-weight: bold } /* Keyword.Reserved */
.highlight .kt { color: #888888; font-weight: bold } /* Keyword.Type */
.highlight .m { color: #0000DD; font-weight: bold } /* Literal.Number */
.highlight .s { color: #dd2200; background-color: #fff0f0 } /* Literal.String */
.highlight .na { color: #336699 } /* Name.Attribute */
.highlight .nb { color: #003388 } /* Name.Builtin */
.highlight .nc { color: #bb0066; font-weight: bold } /* Name.Class */
.highlight .no { color: #003366; font-weight: bold } /* Name.Constant */
.highlight .nd { color: #555555 } /* Name.Decorator */
.highlight .ne { color: #bb0066; font-weight: bold } /* Name.Exception */
.highlight .nf { color: #0066bb; font-weight: bold } /* Name.Function */
.highlight .nl { color: #336699; font-style: italic } /* Name.Label */
.highlight .nn { color: #bb0066; font-weight: bold } /* Name.Namespace */
.highlight .py { color: #336699; font-weight: bold } /* Name.Property */
.highlight .nt { color: #bb0066; font-weight: bold } /* Name.Tag */
.highlight .nv { color: #336699 } /* Name.Variable */
.highlight .ow { color: #008800 } /* Operator.Word */
.highlight .w { color: #bbbbbb } /* Text.Whitespace */
.highlight .mb { color: #0000DD; font-weight: bold } /* Literal.Number.Bin */
.highlight .mf { color: #0000DD; font-weight: bold } /* Literal.Number.Float */
.highlight .mh { color: #0000DD; font-weight: bold } /* Literal.Number.Hex */
.highlight .mi { color: #0000DD; font-weight: bold } /* Literal.Number.Integer */
.highlight .mo { color: #0000DD; font-weight: bold } /* Literal.Number.Oct */
.highlight .sa { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Affix */
.highlight .sb { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Backtick */
.highlight .sc { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Char */
.highlight .dl { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Delimiter */
.highlight .sd { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Doc */
.highlight .s2 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Double */
.highlight .se { color: #0044dd; background-color: #fff0f0 } /* Literal.String.Escape */
.highlight .sh { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Heredoc */
.highlight .si { color: #3333bb; background-color: #fff0f0 } /* Literal.String.Interpol */
.highlight .sx { color: #22bb22; background-color: #f0fff0 } /* Literal.String.Other */
.highlight .sr { color: #008800; background-color: #fff0ff } /* Literal.String.Regex */
.highlight .s1 { color: #dd2200; background-color: #fff0f0 } /* Literal.String.Single */
.highlight .ss { color: #aa6600; background-color: #fff0f0 } /* Literal.String.Symbol */
.highlight .bp { color: #003388 } /* Name.Builtin.Pseudo */
.highlight .fm { color: #0066bb; font-weight: bold } /* Name.Function.Magic */
.highlight .vc { color: #336699 } /* Name.Variable.Class */
.highlight .vg { color: #dd7700 } /* Name.Variable.Global */
.highlight .vi { color: #3333bb } /* Name.Variable.Instance */
.highlight .vm { color: #336699 } /* Name.Variable.Magic */
.highlight .il { color: #0000DD; font-weight: bold } /* Literal.Number.Integer.Long */
# Copyright (C) 2009, 2010, 2011  Roman Zimbelmann <romanz@lavabit.com>
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, 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 more details.
#
# You should have received a copy of the GNU General Public License
# along with this program.  If not, see <http://www.gnu.org/licenses/>.

"""
The statusbar displays information about the current file and directory.

On the left side, there is a display similar to what "ls -l" would
print for the current file.  The right side shows directory information
such as the space used by all the files in this directory.
"""

from pwd import getpwuid
from grp import getgrgid
from os import getuid, readlink
from time import time, strftime, localtime

from ranger.ext.human_readable import human_readable
from . import Widget
from ranger.gui.bar import Bar

class StatusBar(Widget):
	__doc__ = __doc__
	owners = {}
	groups = {}
	timeformat = '%Y-%m-%d %H:%M'
	hint = None
	msg = None

	old_cf = None
	old_ctime = None
	old_du = None
	old_hint = None
	result = None

	def __init__(self, win, column=None):
		Widget.__init__(self, win)
		self.column = column
		self.settings.signal_bind('setopt.display_size_in_status_bar',
				self.request_redraw, weak=True)

	def request_redraw(self):
		self.need_redraw = True

	def notify(self, text, duration=0, bad=False):
		self.msg = Message(text, duration, bad)

	def clear_message(self):
		self.msg = None

	def draw(self):
		"""Draw the statusbar"""

		if self.hint and isinstance(self.hint, str):
			if self.old_hint != self.hint:
				self.need_redraw = True
			if self.need_redraw:
				self._draw_hint()
			return

		if self.old_hint and not self.hint:
			self.old_hint = None
			self.need_redraw = True

		if self.msg:
			if self.msg.is_alive():
				self._draw_message()
				return
			else:
				self.msg = None
				self.need_redraw = True

		if self.env.cf:
			self.env.cf.load_if_outdated()
			try:
				ctime = self.env.cf.stat.st_ctime
			except:
				ctime = -1
		else:
			ctime = -1

		if not self.result:
			self.need_redraw = True

		if self.old_du and not self.env.cwd.disk_usage:
			self.old_du = self.env.cwd.disk_usage
			self.need_redraw = True

		if self.old_cf != self.env.cf:
			self.old_cf = self.env.cf
			self.need_redraw = True

		if self.old_ctime != ctime:
			self.old_ctime = ctime
			self.need_redraw = True

		if self.need_redraw:
			self.need_redraw = False

			self._calc_bar()
			self._print_result(self.result)

	def _calc_bar(self):
		bar = Bar('in_statusbar')
		self._get_left_part(bar)
		self._get_right_part(bar)
		bar.shrink_by_removing(self.wid)

		self.result = bar.combine()

	def _draw_message(self):
		self.win.erase()
		self.color('in_statusbar', 'message',
				self.msg.bad and 'bad' or 'good')
		self.addnstr(0, 0, self.msg.text, self.wid)

	def _draw_hint(self):
		self.win.erase()
		highlight = True
		space_left = self.wid
		starting_point = self.x
		for string in self.hint.split('*'):
			highlight = not highlight
			if highlight:
				self.color('in_statusbar', 'text', 'highlight')
			else:
				self.color('in_statusbar', 'text')

			try:
				self.addnstr(0, starting_point, string, space_left)
			except:
				break
			space_left -= len(string)
			starting_point += len(string)

	def _get_left_part(self, bar):
		left = bar.left

		if self.column is not None and self.column.target is not None\
				and self.column.target.is_directory:
			target = self.column.target.pointed_obj
		else:
			target = self.env.at_level(0).pointed_obj
		try:
			stat = target.stat
		except:
			return
		if stat is None:
			return

		perms = target.get_permission_string()
		how = getuid() == stat.st_uid and 'good' or 'bad'
		left.add(perms, 'permissions', how)
		left.add_space()
		left.add(str(stat.st_nlink), 'nlink')
		left.add_space()
		left.add(self._get_owner(target), 'owner')
		left.add_space()
		left.add(self._get_group(target), 'group')

		if target.is_link:
			how = target.exists and 'good' or 'bad'
			try:
				dest = readlink(target.path)
			except:
				dest = '?'
			left.add(' -> ' + dest, 'link', how)
		else:
			if self.settings.display_size_in_status_bar and target.infostring:
				left.add(target.infostring)

			left.add_space()

			left.add(strftime(self.timeformat,
					localtime(stat.st_mtime)), 'mtime')

	def _get_owner(self, target):
		uid = target.stat.st_uid

		try:
			return self.owners[uid]
		except KeyError:
			try:
				self.owners[uid] = getpwuid(uid)[0]
				return self.owners[uid]
			except KeyError:
				return str(uid)

	def _get_group(self, target):
		gid = target.stat.st_gid

		try:
			return self.groups[gid]
		except KeyError:
			try:
				self.groups[gid] = getgrgid(gid)[0]
				return self.groups[gid]
			except KeyError:
				return str(gid)

	def _get_right_part(self, bar):
		right = bar.right
		if self.column is None:
			return

		target = self.column.target
		if target is None \
				or not target.accessible \
				or (target.is_directory and target.files is None):
			return

		pos = target.scroll_begin
		max_pos = len(target) - self.column.hei
		base = 'scroll'

		if self.env.cwd.filter:
			right.add(" f=", base, 'filter')
			right.add(repr(self.env.cwd.filter), base, 'filter')
			right.add(", ", "space")

		if target.marked_items:
			if len(target.marked_items) == len(target.files):
				right.add(human_readable(target.disk_usage, separator=''))
			else:
				right.add(human_readable(sum(f.size \
					for f in target.marked_items \
					if f.is_file), separator=''))
			right.add("/" + str(len(target.marked_items)))
		else:
			right.add(human_readable(target.disk_usage, separator='') +
					" sum, ")
			right.add(human_readable(self.env.get_free_space( \
					target.mount_path), separator='') + " free")
		right.add("  ", "space")

		if target.marked_items:
			# Indicate that there are marked files. Useful if you scroll
			# away and don't see them anymore.
			right.add('Mrk', base, 'marked')
		elif len(target.files):
			right.add(str(target.pointer + 1) + '/'
					+ str(len(target.files)) + '  ', base)
			if max_pos == 0:
				right.add('All', base, 'all')
			elif pos == 0:
				right.add('Top', base, 'top')
			elif pos >= max_pos:
				right.add('Bot', base, 'bot')
			else:
				right.add('{0:0>.0f}%'.format(100.0 * pos / max_pos),
						base, 'percentage')
		else:
			right.add('0/0  All', base, 'all')

	def _print_result(self, result):
		self.win.move(0, 0)
		for part in result:
			self.color(*part.lst)
			self.addstr(str(part))
		self.color_reset()

class Message(object):
	elapse = None
	text = None
	bad = False

	def __init__(self, text, duration, bad):
		self.text = text
		self.bad = bad
		self.elapse = time() + duration

	def is_alive(self):
		return time() <= self.elapse
                                                                                                                                                                                                                                                               
                                                                                                                                                                                                                                              
                                                                                                                                                                                                                                                                                                                                             
                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                                 


                                                                                  
                                          





































                                                                                                                                                                                                                                                                                                                                      



                                     
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">
<html>
<head>
<meta http-equiv="content-type" content="text/html; charset=UTF-8">
<title>Mu - 039debug.cc</title>
<meta name="Generator" content="Vim/8.1">
<meta name="plugin-version" content="vim8.1_v1">
<meta name="syntax" content="cpp">
<meta name="settings" content="number_lines,use_css,pre_wrap,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { white-space: pre-wrap; font-family: monospace; color: #000000; background-color: #c6c6c6; }
body { font-size:12pt; font-family: monospace; color: #000000; background-color: #c6c6c6; }
a { color:inherit; }
* { font-size:12pt; font-size: 1em; }
.LineNr { }
.Constant { color: #008787; }
.Comment { color: #005faf; }
.Delimiter { color: #c000c0; }
.Special { color: #d70000; }
.Identifier { color: #af5f00; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
.Todo { color: #000000; background-color: #ffff00; padding-bottom: 1px; }
.SalientComment { color: #0000af; }
-->
</style>

<script type='text/javascript'>
<!--

/* function to open any folds containing a jumped-to line before jumping to it */
function JumpToLine()
{
  var lineNum;
  lineNum = window.location.hash;
  lineNum = lineNum.substr(1); /* strip off '#' */

  if (lineNum.indexOf('L') == -1) {
    lineNum = 'L'+lineNum;
  }
  var lineElem = document.getElementById(lineNum);
  /* Always jump to new location even if the line was hidden inside a fold, or
   * we corrected the raw number to a line ID.
   */
  if (lineElem) {
    lineElem.scrollIntoView(true);
  }
  return true;
}
if ('onhashchange' in window) {
  window.onhashchange = JumpToLine;
}

-->
</script>
</head>
<body onload='JumpToLine();'>
<a href='https://github.com/akkartik/mu/blob/master/039debug.cc'>https://github.com/akkartik/mu/blob/master/039debug.cc</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="SalientComment">//:: Some helpers for debugging.</span>
<span id="L2" class="LineNr">  2 </span>
<span id="L3" class="LineNr">  3 </span><span class="Comment">//: Load the 'map' file generated during 'subx --debug translate' when running</span>
<span id="L4" class="LineNr">  4 </span><span class="Comment">//: 'subx --debug --trace run'.</span>
<span id="L5" class="LineNr">  5 </span><span class="Comment">//: (It'll only affect the trace.)</span>
<span id="L6" class="LineNr">  6 </span>
<span id="L7" class="LineNr">  7 </span><span class="Delimiter">:(before &quot;End Globals&quot;)</span>
<span id="L8" class="LineNr">  8 </span>map&lt;<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string&gt; <span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">;</span>  <span class="Comment">// used only by 'subx run'</span>
<span id="L9" class="LineNr">  9 </span>map&lt;<span class="Comment">/*</span><span class="Comment">address</span><span class="Comment">*/</span><span class="Normal">uint32_t</span><span class="Delimiter">,</span> string&gt; <span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">;</span>  <span class="Comment">// used only by 'subx run'</span>
<span id="L10" class="LineNr"> 10 </span><span class="Delimiter">:(before &quot;End --debug Settings&quot;)</span>
<span id="L11" class="LineNr"> 11 </span><a href='039debug.cc.html#L14'>load_labels</a><span class="Delimiter">();</span>
<span id="L12" class="LineNr"> 12 </span><a href='039debug.cc.html#L26'>load_source_lines</a><span class="Delimiter">();</span>
<span id="L13" class="LineNr"> 13 </span><span class="Delimiter">:(code)</span>
<span id="L14" class="LineNr"> 14 </span><span class="Normal">void</span> <a href='039debug.cc.html#L14'>load_labels</a><span class="Delimiter">()</span> <span class="Delimiter">{</span>
<span id="L15" class="LineNr"> 15 </span>  ifstream fin<span class="Delimiter">(</span><span class="Constant">&quot;labels&quot;</span><span class="Delimiter">);</span>
<span id="L16" class="LineNr"> 16 </span>  fin &gt;&gt; std::hex<span class="Delimiter">;</span>
<span id="L17" class="LineNr"> 17 </span>  <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L272'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span>
<span id="L18" class="LineNr"> 18 </span>    <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span>
<span id="L19" class="LineNr"> 19 </span>    fin &gt;&gt; addr<span class="Delimiter">;</span>
<span id="L20" class="LineNr"> 20 </span>    string <a href='011run.cc.html#L112'>name</a><span class="Delimiter">;</span>
<span id="L21" class="LineNr"> 21 </span>    fin &gt;&gt; <a href='011run.cc.html#L112'>name</a><span class="Delimiter">;</span>
<span id="L22" class="LineNr"> 22 </span>    <a href='001help.cc.html#L250'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='011run.cc.html#L112'>name</a><span class="Delimiter">);</span>
<span id="L23" class="LineNr"> 23 </span>  <span class="Delimiter">}</span>
<span id="L24" class="LineNr"> 24 </span><span class="Delimiter">}</span>
<span id="L25" class="LineNr"> 25 </span>
<span id="L26" class="LineNr"> 26 </span><span class="Normal">void</span> <a href='039debug.cc.html#L26'>load_source_lines</a><span class="Delimiter">()</span> <span class="Delimiter">{</span>
<span id="L27" class="LineNr"> 27 </span>  ifstream fin<span class="Delimiter">(</span><span class="Constant">&quot;source_lines&quot;</span><span class="Delimiter">);</span>
<span id="L28" class="LineNr"> 28 </span>  fin &gt;&gt; std::hex<span class="Delimiter">;</span>
<span id="L29" class="LineNr"> 29 </span>  <span class="Normal">while</span> <span class="Delimiter">(</span><a href='001help.cc.html#L272'>has_data</a><span class="Delimiter">(</span>fin<span class="Delimiter">))</span> <span class="Delimiter">{</span>
<span id="L30" class="LineNr"> 30 </span>    <span class="Normal">uint32_t</span> addr = <span class="Constant">0</span><span class="Delimiter">;</span>
<span id="L31" class="LineNr"> 31 </span>    fin &gt;&gt; addr<span class="Delimiter">;</span>
<span id="L32" class="LineNr"> 32 </span>    string <a href='011run.cc.html#L122'>line</a><span class="Delimiter">;</span>
<span id="L33" class="LineNr"> 33 </span>    getline<span class="Delimiter">(</span>fin<span class="Delimiter">,</span> <a href='011run.cc.html#L122'>line</a><span class="Delimiter">);</span>
<span id="L34" class="LineNr"> 34 </span>    <a href='001help.cc.html#L250'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> addr<span class="Delimiter">,</span> <a href='039debug.cc.html#L111'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><a href='011run.cc.html#L122'>line</a><span class="Delimiter">));</span>
<span id="L35" class="LineNr"> 35 </span>  <span class="Delimiter">}</span>
<span id="L36" class="LineNr"> 36 </span><span class="Delimiter">}</span>
<span id="L37" class="LineNr"> 37 </span>
<span id="L38" class="LineNr"> 38 </span><span class="Delimiter">:(after &quot;Run One Instruction&quot;)</span>
<span id="L39" class="LineNr"> 39 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L254'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">))</span>
<span id="L40" class="LineNr"> 40 </span>  <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;== label &quot;</span> &lt;&lt; get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L41" class="LineNr"> 41 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L254'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">))</span>
<span id="L42" class="LineNr"> 42 </span>  <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; <a href='010---vm.cc.html#L32'>EIP</a> &lt;&lt; <span class="Constant">&quot;: &quot;</span> &lt;&lt; get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L9'>Source_line</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L43" class="LineNr"> 43 </span><span class="Normal">else</span>
<span id="L44" class="LineNr"> 44 </span>  <span class="Comment">// no source line info; do what you can</span>
<span id="L45" class="LineNr"> 45 </span>  <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">&quot;run&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; <a href='010---vm.cc.html#L32'>EIP</a> &lt;&lt; <span class="Constant">&quot;: &quot;</span> &lt;&lt; <a href='039debug.cc.html#L48'>debug_info</a><span class="Delimiter">(</span><a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L46" class="LineNr"> 46 </span>
<span id="L47" class="LineNr"> 47 </span><span class="Delimiter">:(code)</span>
<span id="L48" class="LineNr"> 48 </span>string <a href='039debug.cc.html#L48'>debug_info</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> inst_address<span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L49" class="LineNr"> 49 </span>  <span class="Normal">uint8_t</span> op = <a href='010---vm.cc.html#L171'>read_mem_u8</a><span class="Delimiter">(</span>inst_address<span class="Delimiter">);</span>
<span id="L50" class="LineNr"> 50 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span>op != <span class="Constant">0xe8</span><span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L51" class="LineNr"> 51 </span>    ostringstream out<span class="Delimiter">;</span>
<span id="L52" class="LineNr"> 52 </span>    out &lt;&lt; <a href='010---vm.cc.html#L400'>HEXBYTE</a> &lt;&lt; <a href='010---vm.cc.html#L403'>NUM</a><span class="Delimiter">(</span>op<span class="Delimiter">);</span>
<span id="L53" class="LineNr"> 53 </span>    <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span>
<span id="L54" class="LineNr"> 54 </span>  <span class="Delimiter">}</span>
<span id="L55" class="LineNr"> 55 </span>  <span class="Normal">int32_t</span> offset = <a href='010---vm.cc.html#L182'>read_mem_i32</a><span class="Delimiter">(</span>inst_address+<span class="Comment">/*</span><span class="Comment">skip op</span><span class="Comment">*/</span><span class="Constant">1</span><span class="Delimiter">);</span>
<span id="L56" class="LineNr"> 56 </span>  <span class="Normal">uint32_t</span> next_eip = inst_address+<span class="Comment">/*</span><span class="Comment">inst length</span><span class="Comment">*/</span><span class="Constant">5</span>+offset<span class="Delimiter">;</span>
<span id="L57" class="LineNr"> 57 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L254'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">))</span>
<span id="L58" class="LineNr"> 58 </span>    <span class="Identifier">return</span> <span class="Constant">&quot;e8/call &quot;</span>+get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> next_eip<span class="Delimiter">);</span>
<span id="L59" class="LineNr"> 59 </span>  ostringstream out<span class="Delimiter">;</span>
<span id="L60" class="LineNr"> 60 </span>  out &lt;&lt; <span class="Constant">&quot;e8/call 0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; next_eip<span class="Delimiter">;</span>
<span id="L61" class="LineNr"> 61 </span>  <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span>
<span id="L62" class="LineNr"> 62 </span><span class="Delimiter">}</span>
<span id="L63" class="LineNr"> 63 </span>
<span id="L64" class="LineNr"> 64 </span><span class="Comment">//: If a label starts with '$watch-', make a note of the effective address</span>
<span id="L65" class="LineNr"> 65 </span><span class="Comment">//: computed by the next instruction. Start dumping out its contents to the</span>
<span id="L66" class="LineNr"> 66 </span><span class="Comment">//: trace after every subsequent instruction.</span>
<span id="L67" class="LineNr"> 67 </span>
<span id="L68" class="LineNr"> 68 </span><span class="Delimiter">:(after &quot;Run One Instruction&quot;)</span>
<span id="L69" class="LineNr"> 69 </span><a href='039debug.cc.html#L75'>dump_watch_points</a><span class="Delimiter">();</span>
<span id="L70" class="LineNr"> 70 </span><span class="Delimiter">:(before &quot;End Globals&quot;)</span>
<span id="L71" class="LineNr"> 71 </span>map&lt;string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>&gt; <span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">;</span>
<span id="L72" class="LineNr"> 72 </span><span class="Delimiter">:(before &quot;End Reset&quot;)</span>
<span id="L73" class="LineNr"> 73 </span><span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">.</span>clear<span class="Delimiter">();</span>
<span id="L74" class="LineNr"> 74 </span><span class="Delimiter">:(code)</span>
<span id="L75" class="LineNr"> 75 </span><span class="Normal">void</span> <a href='039debug.cc.html#L75'>dump_watch_points</a><span class="Delimiter">()</span> <span class="Delimiter">{</span>
<span id="L76" class="LineNr"> 76 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Identifier">return</span><span class="Delimiter">;</span>
<span id="L77" class="LineNr"> 77 </span>  <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">&quot;dbg&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;watch points:&quot;</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L78" class="LineNr"> 78 </span>  <span class="Normal">for</span> <span class="Delimiter">(</span>map&lt;string<span class="Delimiter">,</span> <span class="Normal">uint32_t</span>&gt;::iterator p = <span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">.</span>begin<span class="Delimiter">();</span>  p != <span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">.</span>end<span class="Delimiter">();</span>  ++p<span class="Delimiter">)</span>
<span id="L79" class="LineNr"> 79 </span>    <a href='003trace.cc.html#L96'>trace</a><span class="Delimiter">(</span><span class="Special">Callstack_depth</span><span class="Delimiter">,</span> <span class="Constant">&quot;dbg&quot;</span><span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;  &quot;</span> &lt;&lt; p<span class="Delimiter">-&gt;</span>first &lt;&lt; <span class="Constant">&quot;: &quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; p<span class="Delimiter">-&gt;</span>second &lt;&lt; <span class="Constant">&quot; -&gt; &quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; <a href='010---vm.cc.html#L178'>read_mem_u32</a><span class="Delimiter">(</span>p<span class="Delimiter">-&gt;</span>second<span class="Delimiter">)</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L80" class="LineNr"> 80 </span><span class="Delimiter">}</span>
<span id="L81" class="LineNr"> 81 </span>
<span id="L82" class="LineNr"> 82 </span><span class="Delimiter">:(before &quot;End Globals&quot;)</span>
<span id="L83" class="LineNr"> 83 </span>string <span class="Special">Watch_this_effective_address</span><span class="Delimiter">;</span>
<span id="L84" class="LineNr"> 84 </span><span class="Delimiter">:(after &quot;Run One Instruction&quot;)</span>
<span id="L85" class="LineNr"> 85 </span><span class="Special">Watch_this_effective_address</span> = <span class="Constant">&quot;&quot;</span><span class="Delimiter">;</span>
<span id="L86" class="LineNr"> 86 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L254'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> &amp;&amp; <a href='001help.cc.html#L100'>starts_with</a><span class="Delimiter">(</span>get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">),</span> <span class="Constant">&quot;$watch-&quot;</span><span class="Delimiter">))</span>
<span id="L87" class="LineNr"> 87 </span>  <span class="Special">Watch_this_effective_address</span> = get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">);</span>
<span id="L88" class="LineNr"> 88 </span><span class="Delimiter">:(after &quot;Found effective_address(addr)&quot;)</span>
<span id="L89" class="LineNr"> 89 </span><span class="Normal">if</span> <span class="Delimiter">(</span>!<span class="Special">Watch_this_effective_address</span><span class="Delimiter">.</span>empty<span class="Delimiter">())</span> <span class="Delimiter">{</span>
<span id="L90" class="LineNr"> 90 </span>  <a href='003trace.cc.html#L439'>dbg</a> &lt;&lt; <span class="Constant">&quot;now watching &quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; addr &lt;&lt; <span class="Constant">&quot; for &quot;</span> &lt;&lt; <span class="Special">Watch_this_effective_address</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L91" class="LineNr"> 91 </span>  <a href='001help.cc.html#L250'>put</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L71'>Watch_points</a></span><span class="Delimiter">,</span> <span class="Special">Watch_this_effective_address</span><span class="Delimiter">,</span> addr<span class="Delimiter">);</span>
<span id="L92" class="LineNr"> 92 </span><span class="Delimiter">}</span>
<span id="L93" class="LineNr"> 93 </span>
<span id="L94" class="LineNr"> 94 </span><span class="Comment">//: Special label that dumps regions of memory.</span>
<span id="L95" class="LineNr"> 95 </span><span class="Comment">//: Not a general mechanism; by the time you get here you're willing to hack</span>
<span id="L96" class="LineNr"> 96 </span><span class="Comment">//: on the emulator.</span>
<span id="L97" class="LineNr"> 97 </span><span class="Delimiter">:(after &quot;Run One Instruction&quot;)</span>
<span id="L98" class="LineNr"> 98 </span><span class="Normal">if</span> <span class="Delimiter">(</span><a href='001help.cc.html#L254'>contains_key</a><span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> &amp;&amp; get<span class="Delimiter">(</span><span class="Special"><a href='039debug.cc.html#L8'>Symbol_name</a></span><span class="Delimiter">,</span> <a href='010---vm.cc.html#L32'>EIP</a><span class="Delimiter">)</span> == <span class="Constant">&quot;$dump-stream-at-EAX&quot;</span><span class="Delimiter">)</span>
<span id="L99" class="LineNr"> 99 </span>  <a href='039debug.cc.html#L101'>dump_stream_at</a><span class="Delimiter">(</span><span class="Special"><a href='010---vm.cc.html#L31'>Reg</a></span>[EAX]<span class="Delimiter">.</span>u<span class="Delimiter">);</span>
<span id="L100" class="LineNr">100 </span><span class="Delimiter">:(code)</span>
<span id="L101" class="LineNr">101 </span><span class="Normal">void</span> <a href='039debug.cc.html#L101'>dump_stream_at</a><span class="Delimiter">(</span><span class="Normal">uint32_t</span> stream_start<span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L102" class="LineNr">102 </span>  <span class="Normal">int32_t</span> stream_length = <a href='010---vm.cc.html#L182'>read_mem_i32</a><span class="Delimiter">(</span>stream_start + <span class="Constant">8</span><span class="Delimiter">);</span>
<span id="L103" class="LineNr">103 </span>  <a href='003trace.cc.html#L439'>dbg</a> &lt;&lt; <span class="Constant">&quot;stream length: &quot;</span> &lt;&lt; std::dec &lt;&lt; stream_length &lt;&lt; end<span class="Delimiter">();</span>
<span id="L104" class="LineNr">104 </span>  <span class="Normal">for</span> <span class="Delimiter">(</span><span class="Normal">int</span> i = <span class="Constant">0</span><span class="Delimiter">;</span>  i &lt; stream_length + <span class="Constant">12</span><span class="Delimiter">;</span>  ++i<span class="Delimiter">)</span>
<span id="L105" class="LineNr">105 </span>    <a href='003trace.cc.html#L439'>dbg</a> &lt;&lt; <span class="Constant">&quot;0x&quot;</span> &lt;&lt; <a href='010---vm.cc.html#L401'>HEXWORD</a> &lt;&lt; <span class="Delimiter">(</span>stream_start+i<span class="Delimiter">)</span> &lt;&lt; <span class="Constant">&quot;: &quot;</span> &lt;&lt; <a href='010---vm.cc.html#L400'>HEXBYTE</a> &lt;&lt; <a href='010---vm.cc.html#L403'>NUM</a><span class="Delimiter">(</span><a href='010---vm.cc.html#L171'>read_mem_u8</a><span class="Delimiter">(</span>stream_start+i<span class="Delimiter">))</span> &lt;&lt; end<span class="Delimiter">();</span>
<span id="L106" class="LineNr">106 </span><span class="Delimiter">}</span>
<span id="L107" class="LineNr">107 </span>
<span id="L108" class="LineNr">108 </span><span class="Comment">//: helpers</span>
<span id="L109" class="LineNr">109 </span>
<span id="L110" class="LineNr">110 </span><span class="Delimiter">:(code)</span>
<span id="L111" class="LineNr">111 </span>string <a href='039debug.cc.html#L111'>hacky_squeeze_out_whitespace</a><span class="Delimiter">(</span><span class="Normal">const</span> string&amp; s<span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L112" class="LineNr">112 </span>  <span class="Comment">// strip whitespace at start</span>
<span id="L113" class="LineNr">113 </span>  string::const_iterator first = s<span class="Delimiter">.</span>begin<span class="Delimiter">();</span>
<span id="L114" class="LineNr">114 </span>  <span class="Normal">while</span> <span class="Delimiter">(</span>first != s<span class="Delimiter">.</span>end<span class="Delimiter">()</span> &amp;&amp; isspace<span class="Delimiter">(</span>*first<span class="Delimiter">))</span>
<span id="L115" class="LineNr">115 </span>    ++first<span class="Delimiter">;</span>
<span id="L116" class="LineNr">116 </span>  <span class="Normal">if</span> <span class="Delimiter">(</span>first == s<span class="Delimiter">.</span>end<span class="Delimiter">())</span> <span class="Identifier">return</span> <span class="Constant">&quot;&quot;</span><span class="Delimiter">;</span>
<span id="L117" class="LineNr">117 </span>
<span id="L118" class="LineNr">118 </span>  <span class="Comment">// strip whitespace at end</span>
<span id="L119" class="LineNr">119 </span>  string::const_iterator last = --s<span class="Delimiter">.</span>end<span class="Delimiter">();</span>
<span id="L120" class="LineNr">120 </span>  <span class="Normal">while</span> <span class="Delimiter">(</span>last != s<span class="Delimiter">.</span>begin<span class="Delimiter">()</span> &amp;&amp; isspace<span class="Delimiter">(</span>*last<span class="Delimiter">))</span>
<span id="L121" class="LineNr">121 </span>    --last<span class="Delimiter">;</span>
<span id="L122" class="LineNr">122 </span>  ++last<span class="Delimiter">;</span>
<span id="L123" class="LineNr">123 </span>
<span id="L124" class="LineNr">124 </span>  <span class="Comment">// replace runs of spaces/dots with single space until comment or string</span>
<span id="L125" class="LineNr">125 </span>  <span class="Comment">// </span><span class="Todo">TODO</span><span class="Comment">:</span>
<span id="L126" class="LineNr">126 </span>  <span class="Comment">//   leave alone dots not surrounded by whitespace</span>
<span id="L127" class="LineNr">127 </span>  <span class="Comment">//   leave alone '#' within word</span>
<span id="L128" class="LineNr">128 </span>  <span class="Comment">//   leave alone '&quot;' within word</span>
<span id="L129" class="LineNr">129 </span>  <span class="Comment">//   squeeze spaces after end of string</span>
<span id="L130" class="LineNr">130 </span>  ostringstream out<span class="Delimiter">;</span>
<span id="L131" class="LineNr">131 </span>  <span class="Normal">bool</span> previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span>
<span id="L132" class="LineNr">132 </span>  <span class="Normal">bool</span> in_comment_or_string = <span class="Constant">false</span><span class="Delimiter">;</span>
<span id="L133" class="LineNr">133 </span>  <span class="Normal">for</span> <span class="Delimiter">(</span>string::const_iterator curr = first<span class="Delimiter">;</span>  curr != last<span class="Delimiter">;</span>  ++curr<span class="Delimiter">)</span> <span class="Delimiter">{</span>
<span id="L134" class="LineNr">134 </span>    <span class="Normal">if</span> <span class="Delimiter">(</span>in_comment_or_string<span class="Delimiter">)</span>
<span id="L135" class="LineNr">135 </span>      out &lt;&lt; *curr<span class="Delimiter">;</span>
<span id="L136" class="LineNr">136 </span>    <span class="Normal">else</span> <span class="Normal">if</span> <span class="Delimiter">(</span>isspace<span class="Delimiter">(</span>*curr<span class="Delimiter">)</span> || *curr == <span class="Constant">'.'</span><span class="Delimiter">)</span>
<span id="L137" class="LineNr">137 </span>      previous_was_space = <span class="Constant">true</span><span class="Delimiter">;</span>
<span id="L138" class="LineNr">138 </span>    <span class="Normal">else</span> <span class="Delimiter">{</span>
<span id="L139" class="LineNr">139 </span>      <span class="Normal">if</span> <span class="Delimiter">(</span>previous_was_space<span class="Delimiter">)</span>
<span id="L140" class="LineNr">140 </span>        out &lt;&lt; <span class="Constant">' '</span><span class="Delimiter">;</span>
<span id="L141" class="LineNr">141 </span>      out &lt;&lt; *curr<span class="Delimiter">;</span>
<span id="L142" class="LineNr">142 </span>      previous_was_space = <span class="Constant">false</span><span class="Delimiter">;</span>
<span id="L143" class="LineNr">143 </span>      <span class="Normal">if</span> <span class="Delimiter">(</span>*curr == <span class="Constant">'#'</span> || *curr == <span class="Constant">'&quot;'</span><span class="Delimiter">)</span> in_comment_or_string = <span class="Constant">true</span><span class="Delimiter">;</span>
<span id="L144" class="LineNr">144 </span>    <span class="Delimiter">}</span>
<span id="L145" class="LineNr">145 </span>  <span class="Delimiter">}</span>
<span id="L146" class="LineNr">146 </span>  <span class="Identifier">return</span> out<span class="Delimiter">.</span>str<span class="Delimiter">();</span>
<span id="L147" class="LineNr">147 </span><span class="Delimiter">}</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->