about summary refs log tree commit diff stats
path: root/html/subx/examples/ex7.subx.html
diff options
context:
space:
mode:
authorKartik Agaram <vc@akkartik.com>2018-11-30 09:43:49 -0800
committerKartik Agaram <vc@akkartik.com>2018-11-30 09:43:49 -0800
commitc56d803cd8a0e3f28328f91aa1d457905a68641a (patch)
treedd527a54c1ed8b45d5db44960f579c6faaf9ebd8 /html/subx/examples/ex7.subx.html
parentf989d6ccf9884e911db25494983da476f3c511b1 (diff)
downloadmu-c56d803cd8a0e3f28328f91aa1d457905a68641a.tar.gz
4796
Diffstat (limited to 'html/subx/examples/ex7.subx.html')
-rw-r--r--html/subx/examples/ex7.subx.html92


1 files changed, 45 insertions, 47 deletions
diff --git a/html/subx/examples/ex7.subx.html b/html/subx/examples/ex7.subx.html
index c41eccbf..fc0a4928 100644
--- a/html/subx/examples/ex7.subx.html
+++ b/html/subx/examples/ex7.subx.html
@@ -15,12 +15,10 @@ body { font-size: 12pt; font-family: monospace; color: #aaaaaa; background-color
 a { color:#eeeeee; text-decoration: none; }
 a:hover { text-decoration: underline; }
 * { font-size: 12pt; font-size: 1em; }
+.subxComment { color: #005fff; }
 .LineNr { color: #444444; }
-.Delimiter { color: #800080; }
+.CommentedCode { color: #6c6c6c; }
 .Special { color: #c00000; }
-.Comment { color: #9090ff; }
-.Comment a { color:#0000ee; text-decoration:underline; }
-.SalientComment { color: #00ffff; }
 -->
 </style>
 
@@ -55,95 +53,95 @@ if ('onhashchange' in window) {
 </head>
 <body onload='JumpToLine();'>
 <pre id='vimCodeElement'>
-<span id="L1" class="LineNr">  1 </span><span class="SalientComment">## example showing file syscalls</span>
-<span id="L2" class="LineNr">  2 </span><span class="Comment"># Create a file, open it for writing, write a character to it, close it, open</span>
-<span id="L3" class="LineNr">  3 </span><span class="Comment"># it for reading, read a character from it, close it, delete it, and return</span>
-<span id="L4" class="LineNr">  4 </span><span class="Comment"># the character read.</span>
-<span id="L5" class="LineNr">  5 </span><span class="Comment">#</span>
-<span id="L6" class="LineNr">  6 </span><span class="Comment"># To run (from the subx directory):</span>
-<span id="L7" class="LineNr">  7 </span><span class="Comment">#   $ subx translate examples/ex7.subx -o examples/ex7</span>
-<span id="L8" class="LineNr">  8 </span><span class="Comment">#   $ subx run examples/ex7</span>
-<span id="L9" class="LineNr">  9 </span><span class="Comment"># Expected result:</span>
-<span id="L10" class="LineNr"> 10 </span><span class="Comment">#   $ echo $?</span>
-<span id="L11" class="LineNr"> 11 </span><span class="Comment">#   97</span>
+<span id="L1" class="LineNr">  1 </span><span class="subxComment">## example showing file syscalls</span>
+<span id="L2" class="LineNr">  2 </span><span class="subxComment"># Create a file, open it for writing, write a character to it, close it, open</span>
+<span id="L3" class="LineNr">  3 </span><span class="subxComment"># it for reading, read a character from it, close it, delete it, and return</span>
+<span id="L4" class="LineNr">  4 </span><span class="subxComment"># the character read.</span>
+<span id="L5" class="LineNr">  5 </span><span class="subxComment">#</span>
+<span id="L6" class="LineNr">  6 </span><span class="subxComment"># To run (from the subx directory):</span>
+<span id="L7" class="LineNr">  7 </span><span class="subxComment">#   $ subx translate examples/ex7.subx -o examples/ex7</span>
+<span id="L8" class="LineNr">  8 </span><span class="subxComment">#   $ subx run examples/ex7</span>
+<span id="L9" class="LineNr">  9 </span><span class="subxComment"># Expected result:</span>
+<span id="L10" class="LineNr"> 10 </span><span class="subxComment">#   $ echo $?</span>
+<span id="L11" class="LineNr"> 11 </span><span class="subxComment">#   97</span>
 <span id="L12" class="LineNr"> 12 </span>
 <span id="L13" class="LineNr"> 13 </span>== code
-<span id="L14" class="LineNr"> 14 </span><span class="Comment"># instruction                     effective address                                                   operand     displacement    immediate</span>
-<span id="L15" class="LineNr"> 15 </span><span class="Comment"># op          subop               mod             rm32          base        index         scale       r32</span>
-<span id="L16" class="LineNr"> 16 </span><span class="Comment"># 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes</span>
+<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># instruction                     effective address                                                   operand     displacement    immediate</span>
+<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># op          subop               mod             rm32          base        index         scale       r32</span>
+<span id="L16" class="LineNr"> 16 </span><span class="subxComment"># 1-3 bytes   3 bits              2 bits          3 bits        3 bits      3 bits        2 bits      2 bits      0/1/2/4 bytes   0/1/2/4 bytes</span>
 <span id="L17" class="LineNr"> 17 </span>
-<span id="L18" class="LineNr"> 18 </span>  <span class="Comment"># syscall(creat, Filename)</span>
+<span id="L18" class="LineNr"> 18 </span>  <span class="subxComment"># syscall(creat, Filename)</span>
 <span id="L19" class="LineNr"> 19 </span>  bb/copy-to-EBX  <span class="Special">Filename</span>/imm32
 <span id="L20" class="LineNr"> 20 </span>  b9/copy-to-ECX  0x180/imm32/fixed-perms
 <span id="L21" class="LineNr"> 21 </span>  b8/copy-to-EAX  8/imm32/creat
 <span id="L22" class="LineNr"> 22 </span>  cd/syscall  0x80/imm8
 <span id="L23" class="LineNr"> 23 </span>
-<span id="L24" class="LineNr"> 24 </span>  <span class="Comment"># stream = syscall(open, Filename, O_WRONLY, 0)  # we can't use 'fd' because it looks like a hex byte</span>
+<span id="L24" class="LineNr"> 24 </span>  <span class="subxComment"># stream = syscall(open, Filename, O_WRONLY, 0)  # we can't use 'fd' because it looks like a hex byte</span>
 <span id="L25" class="LineNr"> 25 </span>  bb/copy-to-EBX  <span class="Special">Filename</span>/imm32
 <span id="L26" class="LineNr"> 26 </span>  b9/copy-to-ECX  1/imm32/wronly
 <span id="L27" class="LineNr"> 27 </span>  ba/copy-to-EDX  0x180/imm32/fixed-perms
 <span id="L28" class="LineNr"> 28 </span>  b8/copy-to-EAX  5/imm32/open
 <span id="L29" class="LineNr"> 29 </span>  cd/syscall  0x80/imm8
-<span id="L30" class="LineNr"> 30 </span>    <span class="Comment"># save stream</span>
+<span id="L30" class="LineNr"> 30 </span>    <span class="subxComment"># save stream</span>
 <span id="L31" class="LineNr"> 31 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L32" class="LineNr"> 32 </span>  89/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          0/r32/EAX  <span class="Delimiter"> . </span>             <span class="Delimiter"> . </span>                      <span class="Comment"># copy EAX to *EBX</span>
+<span id="L32" class="LineNr"> 32 </span>  89/copy                         0/mod/indirect  3/rm32/EBX   <span class="CommentedCode"> . </span>         <span class="CommentedCode"> . </span>           <span class="CommentedCode"> . </span>          0/r32/EAX  <span class="CommentedCode"> . </span>             <span class="CommentedCode"> . </span>                      <span class="subxComment"># copy EAX to *EBX</span>
 <span id="L33" class="LineNr"> 33 </span>
-<span id="L34" class="LineNr"> 34 </span>  <span class="Comment"># syscall(write, Stream, &quot;a&quot;, 1)</span>
-<span id="L35" class="LineNr"> 35 </span>    <span class="Comment"># load stream</span>
+<span id="L34" class="LineNr"> 34 </span>  <span class="subxComment"># syscall(write, Stream, &quot;a&quot;, 1)</span>
+<span id="L35" class="LineNr"> 35 </span>    <span class="subxComment"># load stream</span>
 <span id="L36" class="LineNr"> 36 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L37" class="LineNr"> 37 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          3/r32/EBX  <span class="Delimiter"> . </span>             <span class="Delimiter"> . </span>                      <span class="Comment"># copy *EBX to EBX</span>
-<span id="L38" class="LineNr"> 38 </span>    <span class="Comment">#</span>
+<span id="L37" class="LineNr"> 37 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="CommentedCode"> . </span>         <span class="CommentedCode"> . </span>           <span class="CommentedCode"> . </span>          3/r32/EBX  <span class="CommentedCode"> . </span>             <span class="CommentedCode"> . </span>                      <span class="subxComment"># copy *EBX to EBX</span>
+<span id="L38" class="LineNr"> 38 </span>    <span class="subxComment">#</span>
 <span id="L39" class="LineNr"> 39 </span>  b9/copy-to-ECX  <span class="Special">A</span>/imm32
 <span id="L40" class="LineNr"> 40 </span>  ba/copy-to-EDX  1/imm32/size
 <span id="L41" class="LineNr"> 41 </span>  b8/copy-to-EAX  4/imm32/write
 <span id="L42" class="LineNr"> 42 </span>  cd/syscall  0x80/imm8
 <span id="L43" class="LineNr"> 43 </span>
-<span id="L44" class="LineNr"> 44 </span>  <span class="Comment"># syscall(close, Stream)</span>
-<span id="L45" class="LineNr"> 45 </span>    <span class="Comment"># load stream</span>
+<span id="L44" class="LineNr"> 44 </span>  <span class="subxComment"># syscall(close, Stream)</span>
+<span id="L45" class="LineNr"> 45 </span>    <span class="subxComment"># load stream</span>
 <span id="L46" class="LineNr"> 46 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L47" class="LineNr"> 47 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          3/r32/EBX  <span class="Delimiter"> . </span>             <span class="Delimiter"> . </span>                      <span class="Comment"># copy *EBX to EBX</span>
-<span id="L48" class="LineNr"> 48 </span>    <span class="Comment">#</span>
+<span id="L47" class="LineNr"> 47 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="CommentedCode"> . </span>         <span class="CommentedCode"> . </span>           <span class="CommentedCode"> . </span>          3/r32/EBX  <span class="CommentedCode"> . </span>             <span class="CommentedCode"> . </span>                      <span class="subxComment"># copy *EBX to EBX</span>
+<span id="L48" class="LineNr"> 48 </span>    <span class="subxComment">#</span>
 <span id="L49" class="LineNr"> 49 </span>  b8/copy-to-EAX  6/imm32/close
 <span id="L50" class="LineNr"> 50 </span>  cd/syscall  0x80/imm8
 <span id="L51" class="LineNr"> 51 </span>
-<span id="L52" class="LineNr"> 52 </span>  <span class="Comment"># stream = syscall(open, Filename, O_RDONLY, 0)</span>
+<span id="L52" class="LineNr"> 52 </span>  <span class="subxComment"># stream = syscall(open, Filename, O_RDONLY, 0)</span>
 <span id="L53" class="LineNr"> 53 </span>  bb/copy-to-EBX  <span class="Special">Filename</span>/imm32
 <span id="L54" class="LineNr"> 54 </span>  b9/copy-to-ECX  0/imm32/rdonly
 <span id="L55" class="LineNr"> 55 </span>  ba/copy-to-EDX  0x180/imm32/fixed-perms
 <span id="L56" class="LineNr"> 56 </span>  b8/copy-to-EAX  5/imm32/open
 <span id="L57" class="LineNr"> 57 </span>  cd/syscall  0x80/imm8
-<span id="L58" class="LineNr"> 58 </span>    <span class="Comment"># save Stream</span>
+<span id="L58" class="LineNr"> 58 </span>    <span class="subxComment"># save Stream</span>
 <span id="L59" class="LineNr"> 59 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L60" class="LineNr"> 60 </span>  89/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          0/r32/EAX  <span class="Delimiter"> . </span>             <span class="Delimiter"> . </span>                      <span class="Comment"># copy EAX to *EBX</span>
+<span id="L60" class="LineNr"> 60 </span>  89/copy                         0/mod/indirect  3/rm32/EBX   <span class="CommentedCode"> . </span>         <span class="CommentedCode"> . </span>           <span class="CommentedCode"> . </span>          0/r32/EAX  <span class="CommentedCode"> . </span>             <span class="CommentedCode"> . </span>                      <span class="subxComment"># copy EAX to *EBX</span>
 <span id="L61" class="LineNr"> 61 </span>
-<span id="L62" class="LineNr"> 62 </span>  <span class="Comment"># syscall(read, Stream, B, 1)</span>
-<span id="L63" class="LineNr"> 63 </span>    <span class="Comment"># load stream</span>
+<span id="L62" class="LineNr"> 62 </span>  <span class="subxComment"># syscall(read, Stream, B, 1)</span>
+<span id="L63" class="LineNr"> 63 </span>    <span class="subxComment"># load stream</span>
 <span id="L64" class="LineNr"> 64 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L65" class="LineNr"> 65 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          3/r32/EBX  <span class="Delimiter"> . </span>             <span class="Delimiter"> . </span>                      <span class="Comment"># copy *EBX to EBX</span>
-<span id="L66" class="LineNr"> 66 </span>    <span class="Comment">#</span>
+<span id="L65" class="LineNr"> 65 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="CommentedCode"> . </span>         <span class="CommentedCode"> . </span>           <span class="CommentedCode"> . </span>          3/r32/EBX  <span class="CommentedCode"> . </span>             <span class="CommentedCode"> . </span>                      <span class="subxComment"># copy *EBX to EBX</span>
+<span id="L66" class="LineNr"> 66 </span>    <span class="subxComment">#</span>
 <span id="L67" class="LineNr"> 67 </span>  b9/copy-to-ECX  <span class="Special">B</span>/imm32
 <span id="L68" class="LineNr"> 68 </span>  ba/copy-to-EDX  1/imm32/size
 <span id="L69" class="LineNr"> 69 </span>  b8/copy-to-EAX  3/imm32/read
 <span id="L70" class="LineNr"> 70 </span>  cd/syscall  0x80/imm8
 <span id="L71" class="LineNr"> 71 </span>
-<span id="L72" class="LineNr"> 72 </span>  <span class="Comment"># syscall(close, Stream)</span>
-<span id="L73" class="LineNr"> 73 </span>    <span class="Comment"># load stream</span>
+<span id="L72" class="LineNr"> 72 </span>  <span class="subxComment"># syscall(close, Stream)</span>
+<span id="L73" class="LineNr"> 73 </span>    <span class="subxComment"># load stream</span>
 <span id="L74" class="LineNr"> 74 </span>  bb/copy-to-EBX  <span class="Special">Stream</span>/imm32
-<span id="L75" class="LineNr"> 75 </span>  8b/copy                         0/mod/indirect  3/rm32/EBX   <span class="Delimiter"> . </span>         <span class="Delimiter"> . </span>           <span class="Delimiter"> . </span>          3/r32/EBX  <span class="Delimiter"> . </span>             <s 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  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/>.

"""
Directions provide convenience methods for movement operations.

Direction objects are handled just like dicts but provide
methods like up() and down() which give you the correct value
for the vertical direction, even if only the "up" or "down" key
has been defined.

Example application:
d = Direction(down=5)
print(d.up()) # prints -5
print(bool(d.horizontal())) # False, since no horizontal direction is defined
"""

class Direction(dict):
	__doc__ = __doc__  # for nicer pydoc

	def __init__(self, dictionary=None, **keywords):
		if dictionary is not None:
			dict.__init__(self, dictionary)
		else:
			dict.__init__(self, keywords)
		if 'to' in self:
			self['down'] = self['to']
			self['absolute'] = True

	def copy(self):
		return Direction(**self)

	def _get_bool(self, first, second, fallback=None):
		try: return self[first]
		except:
			try: return not self[second]
			except: return fallback

	def _get_direction(self, first, second, fallback=0):
		try: return self[first]
		except:
			try: return -self[second]
			except: return fallback

	def up(self):
		return -Direction.down(self)

	def down(self):
		return Direction._get_direction(self, 'down', 'up')

	def right(self):
		return Direction._get_direction(self, 'right', 'left')

	def absolute(self):
		return Direction._get_bool(self, 'absolute', 'relative')

	def left(self):
		return -Direction.right(self)

	def relative(self):
		return not Direction.absolute(self)

	def vertical_direction(self):
		down = Direction.down(self)
		return (down > 0) - (down < 0)

	def horizontal_direction(self):
		right = Direction.right(self)
		return (right > 0) - (right < 0)

	def vertical(self):
		return set(self) & set(['up', 'down'])

	def horizontal(self):
		return set(self) & set(['left', 'right'])

	def pages(self):
		return 'pages' in self and self['pages']

	def percentage(self):
		return 'percentage' in self and self['percentage']

	def multiply(self, n):
		for key in ('up', 'right', 'down', 'left'):
			try:
				self[key] *= n
			except:
				pass

	def set(self, n):
		for key in ('up', 'right', 'down', 'left'):
			if key in self:
				self[key] = n

	def move(self, direction, override=None, minimum=0, maximum=9999,
			current=0, pagesize=1, offset=0):
		"""
		Calculates the new position in a given boundary.

		Example:
		d = Direction(pages=True)
		d.move(direction=3) # = 3
		d.move(direction=3, current=2) # = 5
		d.move(direction=3, pagesize=5) # = 15
		d.move(direction=3, pagesize=5, maximum=10) # = 10
		d.move(direction=9, override=2) # = 18
		"""
		pos = direction
		if override is not None:
			if self.absolute():
				pos = override
			else:
				pos *= override
		if self.pages():
			pos *= pagesize
		elif self.percentage():
			pos *= maximum / 100.0
		if self.absolute():
			if pos < minimum:
				pos += maximum
		else:
			pos += current
		return int(max(min(pos, maximum + offset - 1), minimum))









 

generated by cgit-pink 1.4.1-2-gfad0 (git 2.36.2.497.gbbea4dcf42) at 2024-09-08 00:43:50 +0000