summary refs log tree commit diff stats
path: root/test/tc_ext.py
blob: b80942336313257679735e58411fb2c6c44fadba (plain) (blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
# 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/>.

if __name__ == '__main__': from __init__ import init; init()
import unittest
from collections import deque

from ranger.ext.iter_tools import *

class TestCases(unittest.TestCase):
	def test_flatten(self):
		def f(x):
			return list(flatten(x))

		self.assertEqual(
			[1,2,3,4,5],
			f([1,2,3,4,5]))
		self.assertEqual(
			[1,2,3,4,5],
			f([1,[2,3],4,5]))
		self.assertEqual(
			[1,2,3,4,5],
			f([[1,[2,3]],4,5]))
		self.assertEqual(
			[],
			f([[[[]]]]))
		self.assertEqual(
			['a', 'b', 'fskldfjl'],
			f(['a', ('b', 'fskldfjl')]))
		self.assertEqual(
			['a', 'b', 'fskldfjl'],
			f(['a', deque(['b', 'fskldfjl'])]))
		self.assertEqual(
			set([3.5, 4.3, 5.2, 6.0]),
			set(f([6.0, set((3.5, 4.3)), (5.2, )])))

	def test_unique(self):
		def u(x):
			return list(unique(x))

		self.assertEqual(
			[1,2,3],
			u([1,2,3]))
		self.assertEqual(
			[1,2,3],
			u([1,2,3,2,1]))
		self.assertEqual(
			[1,2,3],
			u([1,2,3,1,2,3,2,2,3,1,2,3,1,2,3,2,3,2,1]))
		self.assertEqual(
			[1,[2,3]],
			u([1,[2,3],1,[2,3],[2,3],1,[2,3],1,[2,3],[2,3],1]))

	def test_unique_keeps_type(self):
		def u(x):
			return unique(x)

		self.assertEqual(
			[1,2,3],
			u([1,2,3,1]))
		self.assertEqual(
			(1,2,3),
			u((1,2,3,1)))
		self.assertEqual(
			set((1,2,3)),
			u(set((1,2,3,1))))
		self.assertEqual(
			deque((1,2,3)),
			u(deque((1,2,3,1))))

	def test_mount_path(self):
		# assuming ismount() is used

		def my_ismount(path):
			depth = path.count('/')
			if path.startswith('/media'):
				return depth == 0 or depth == 2
			return depth <= 1

		from ranger.ext import mount_path
		original_ismount = mount_path.ismount
		mount_path.ismount = my_ismount
		try:
			mp = mount_path.mount_path

			self.assertEqual('/home', mp('/home/hut/porn/bondage'))
			self.assertEqual('/', mp('/'))
			self.assertEqual('/media/sdb1', mp('/media/sdb1/foo/bar'))
			self.assertEqual('/media/sdc2', mp('/media/sdc2/a/b/c/d/e'))
		finally:
			mount_path.ismount = original_ismount

		# TODO: links are not tested but I don't see how its possible
		# without messing around with mounts.
		# self.assertEqual('/media/foo',
		#     mount_path('/media/bar/some_link_to_a_foo_subdirectory'))

	def test_openstruct(self):
		from ranger.ext.openstruct import OpenStruct
		from random import randint, choice
		from string import ascii_letters

		os = OpenStruct(a='a')
		self.assertEqual(os.a, 'a')
		self.assertRaises(AttributeError, getattr, os, 'b')

		dictionary = {'foo': 'bar', 'zoo': 'zar'}
		os = OpenStruct(dictionary)
		self.assertEqual(os.foo, 'bar')
		self.assertEqual(os.zoo, 'zar')
		self.assertRaises(AttributeError, getattr, os, 'sdklfj')

		for i in range(100):
			attr_name = ''.join(choice(ascii_letters) \
				for x in range(randint(3,9)))
			value = randint(100,999)
			if not attr_name in os:
				self.assertRaises(AttributeError, getattr, os, attr_name)
			setattr(os, attr_name, value)
			value2 = randint(100,999)
			setattr(os, attr_name, value2)
			self.assertEqual(value2, getattr(os, attr_name))

	def test_shell_escape(self):
		from ranger.ext.shell_escape import shell_escape, shell_quote
		self.assertEqual(r"'luigi'\''s pizza'", shell_quote("luigi's pizza"))
		self.assertEqual(r"luigi\'s\ pizza", shell_escape("luigi's pizza"))
		self.assertEqual(r"\$lol/foo\\xyz\|\>\<\]\[",
				shell_escape(r"$lol/foo\xyz|><]["))


if __name__ == '__main__':
	unittest.main()
="L9" class="LineNr"> 9 </span> populate d, n <span id="L10" class="LineNr"> 10 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L11" class="LineNr"> 11 </span> copy-to *top, <span class="Constant">0</span> <span id="L12" class="LineNr"> 12 </span><span class="Delimiter">}</span> <span id="L13" class="LineNr"> 13 </span> <span id="L14" class="LineNr"> 14 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L14'>grapheme-stack-empty?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -&gt; </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L15" class="LineNr"> 15 </span>$grapheme-stack-empty?:body: <span class="Delimiter">{</span> <span id="L16" class="LineNr"> 16 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L17" class="LineNr"> 17 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L18" class="LineNr"> 18 </span> compare *top, <span class="Constant">0</span> <span id="L19" class="LineNr"> 19 </span> <span class="Delimiter">{</span> <span id="L20" class="LineNr"> 20 </span> <span class="PreProc">break-if-=</span> <span id="L21" class="LineNr"> 21 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">1</span> <span class="muComment"># false</span> <span id="L22" class="LineNr"> 22 </span> <span class="PreProc">break</span> $grapheme-stack-empty?:body <span id="L23" class="LineNr"> 23 </span> <span class="Delimiter">}</span> <span id="L24" class="LineNr"> 24 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> <span id="L25" class="LineNr"> 25 </span><span class="Delimiter">}</span> <span id="L26" class="LineNr"> 26 </span><span class="Delimiter">}</span> <span id="L27" class="LineNr"> 27 </span> <span id="L28" class="LineNr"> 28 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L28'>push-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), _val: grapheme <span class="Delimiter">{</span> <span id="L29" class="LineNr"> 29 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L30" class="LineNr"> 30 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L31" class="LineNr"> 31 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L32" class="LineNr"> 32 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L33" class="LineNr"> 33 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar">&lt;-</span> copy *top-addr <span id="L34" class="LineNr"> 34 </span> <span class="PreProc">var</span> dest-addr/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> <span id="L35" class="LineNr"> 35 </span> <span class="PreProc">var</span> val/<span class="Constant">eax</span>: grapheme <span class="SpecialChar">&lt;-</span> copy _val <span id="L36" class="LineNr"> 36 </span> copy-to *dest-addr, val <span id="L37" class="LineNr"> 37 </span> add-to *top-addr, <span class="Constant">1</span> <span id="L38" class="LineNr"> 38 </span><span class="Delimiter">}</span> <span id="L39" class="LineNr"> 39 </span> <span id="L40" class="LineNr"> 40 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L40'>pop-grapheme-stack</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>)<span class="PreProc"> -&gt; </span>val/<span class="Constant">eax</span>: grapheme <span class="Delimiter">{</span> <span id="L41" class="LineNr"> 41 </span>$pop-grapheme-stack:body: <span class="Delimiter">{</span> <span id="L42" class="LineNr"> 42 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L43" class="LineNr"> 43 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L44" class="LineNr"> 44 </span> <span class="Delimiter">{</span> <span id="L45" class="LineNr"> 45 </span> compare *top-addr, <span class="Constant">0</span> <span id="L46" class="LineNr"> 46 </span> <span class="PreProc">break-if-&gt;</span> <span id="L47" class="LineNr"> 47 </span> val <span class="SpecialChar">&lt;-</span> copy <span class="Constant">-1</span> <span id="L48" class="LineNr"> 48 </span> <span class="PreProc">break</span> $pop-grapheme-stack:body <span id="L49" class="LineNr"> 49 </span> <span class="Delimiter">}</span> <span id="L50" class="LineNr"> 50 </span> subtract-from *top-addr, <span class="Constant">1</span> <span id="L51" class="LineNr"> 51 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edx</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L52" class="LineNr"> 52 </span> <span class="PreProc">var</span> data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L53" class="LineNr"> 53 </span> <span class="PreProc">var</span> <a href='../../203stack.subx.html#L338'>top</a>/<span class="Constant">edx</span>: int <span class="SpecialChar">&lt;-</span> copy *top-addr <span id="L54" class="LineNr"> 54 </span> <span class="PreProc">var</span> result-addr/<span class="Constant">eax</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, <a href='../../203stack.subx.html#L338'>top</a> <span id="L55" class="LineNr"> 55 </span> val <span class="SpecialChar">&lt;-</span> copy *result-addr <span id="L56" class="LineNr"> 56 </span><span class="Delimiter">}</span> <span id="L57" class="LineNr"> 57 </span><span class="Delimiter">}</span> <span id="L58" class="LineNr"> 58 </span> <span id="L59" class="LineNr"> 59 </span><span class="muComment"># dump stack to screen from bottom to top</span> <span id="L60" class="LineNr"> 60 </span><span class="muComment"># don't move the cursor or anything</span> <span id="L61" class="LineNr"> 61 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L61'>render-stack-from-bottom</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> <span id="L62" class="LineNr"> 62 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L63" class="LineNr"> 63 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L64" class="LineNr"> 64 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L65" class="LineNr"> 65 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> copy _data <span id="L66" class="LineNr"> 66 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L67" class="LineNr"> 67 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar">&lt;-</span> copy <span class="Constant">0</span> <span id="L68" class="LineNr"> 68 </span> <span class="Delimiter">{</span> <span id="L69" class="LineNr"> 69 </span> compare i, *top-addr <span id="L70" class="LineNr"> 70 </span> <span class="PreProc">break-if-&gt;=</span> <span id="L71" class="LineNr"> 71 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, i <span id="L72" class="LineNr"> 72 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g <span id="L73" class="LineNr"> 73 </span> i <span class="SpecialChar">&lt;-</span> increment <span id="L74" class="LineNr"> 74 </span> <span class="PreProc">loop</span> <span id="L75" class="LineNr"> 75 </span> <span class="Delimiter">}</span> <span id="L76" class="LineNr"> 76 </span><span class="Delimiter">}</span> <span id="L77" class="LineNr"> 77 </span> <span id="L78" class="LineNr"> 78 </span><span class="muComment"># dump stack to screen from top to bottom</span> <span id="L79" class="LineNr"> 79 </span><span class="muComment"># don't move the cursor or anything</span> <span id="L80" class="LineNr"> 80 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L80'>render-stack-from-top</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), <a href='../../405screen.mu.html#L9'>screen</a>: (addr <a href='../../405screen.mu.html#L9'>screen</a>) <span class="Delimiter">{</span> <span id="L81" class="LineNr"> 81 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L82" class="LineNr"> 82 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L83" class="LineNr"> 83 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L84" class="LineNr"> 84 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> copy _data <span id="L85" class="LineNr"> 85 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L86" class="LineNr"> 86 </span> <span class="PreProc">var</span> i/<span class="Constant">eax</span>: int <span class="SpecialChar">&lt;-</span> copy *top-addr <span id="L87" class="LineNr"> 87 </span> i <span class="SpecialChar">&lt;-</span> decrement <span id="L88" class="LineNr"> 88 </span> <span class="Delimiter">{</span> <span id="L89" class="LineNr"> 89 </span> compare i, <span class="Constant">0</span> <span id="L90" class="LineNr"> 90 </span> <span class="PreProc">break-if-&lt;</span> <span id="L91" class="LineNr"> 91 </span> <span class="PreProc">var</span> g/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, i <span id="L92" class="LineNr"> 92 </span> <a href='../../405screen.mu.html#L206'>print-grapheme</a> <a href='../../405screen.mu.html#L9'>screen</a>, *g <span id="L93" class="LineNr"> 93 </span> i <span class="SpecialChar">&lt;-</span> decrement <span id="L94" class="LineNr"> 94 </span> <span class="PreProc">loop</span> <span id="L95" class="LineNr"> 95 </span> <span class="Delimiter">}</span> <span id="L96" class="LineNr"> 96 </span><span class="Delimiter">}</span> <span id="L97" class="LineNr"> 97 </span> <span id="L98" class="LineNr"> 98 </span><span class="muComment"># compare from bottom</span> <span id="L99" class="LineNr"> 99 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> <span id="L100" class="LineNr">100 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L100'>prefix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -&gt; </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L101" class="LineNr">101 </span>$prefix-match?:body: <span class="Delimiter">{</span> <span id="L102" class="LineNr">102 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L103" class="LineNr">103 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L104" class="LineNr">104 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L105" class="LineNr">105 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> copy _data <span id="L106" class="LineNr">106 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">ecx</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L107" class="LineNr">107 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar">&lt;-</span> copy <span class="Constant">0</span> <span id="L108" class="LineNr">108 </span> <span class="Delimiter">{</span> <span id="L109" class="LineNr">109 </span> compare i, *top-addr <span id="L110" class="LineNr">110 </span> <span class="PreProc">break-if-&gt;=</span> <span id="L111" class="LineNr">111 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L112" class="LineNr">112 </span> <span class="Delimiter">{</span> <span id="L113" class="LineNr">113 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, i <span id="L114" class="LineNr">114 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar">&lt;-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s <span id="L115" class="LineNr">115 </span> <span class="Delimiter">{</span> <span id="L116" class="LineNr">116 </span> compare expected, *curr-a <span id="L117" class="LineNr">117 </span> <span class="PreProc">break-if-=</span> <span id="L118" class="LineNr">118 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> <span id="L119" class="LineNr">119 </span> <span class="PreProc">break</span> $prefix-match?:body <span id="L120" class="LineNr">120 </span> <span class="Delimiter">}</span> <span id="L121" class="LineNr">121 </span> <span class="Delimiter">}</span> <span id="L122" class="LineNr">122 </span> i <span class="SpecialChar">&lt;-</span> increment <span id="L123" class="LineNr">123 </span> <span class="PreProc">loop</span> <span id="L124" class="LineNr">124 </span> <span class="Delimiter">}</span> <span id="L125" class="LineNr">125 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L126" class="LineNr">126 </span><span class="Delimiter">}</span> <span id="L127" class="LineNr">127 </span><span class="Delimiter">}</span> <span id="L128" class="LineNr">128 </span> <span id="L129" class="LineNr">129 </span><span class="muComment"># compare from bottom</span> <span id="L130" class="LineNr">130 </span><span class="muComment"># beware: modifies 'stream', which must be disposed of after a false result</span> <span id="L131" class="LineNr">131 </span><span class="PreProc">fn</span> <span class="muFunction"><a href='grapheme-stack.mu.html#L131'>suffix-match?</a></span> _self: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>), s: (addr stream byte)<span class="PreProc"> -&gt; </span>result/<span class="Constant">eax</span>: boolean <span class="Delimiter">{</span> <span id="L132" class="LineNr">132 </span>$suffix-match?:body: <span class="Delimiter">{</span> <span id="L133" class="LineNr">133 </span> <span class="PreProc">var</span> self/<span class="Constant">esi</span>: (addr <a href='grapheme-stack.mu.html#L1'>grapheme-stack</a>) <span class="SpecialChar">&lt;-</span> copy _self <span id="L134" class="LineNr">134 </span> <span class="PreProc">var</span> data-ah/<span class="Constant">edi</span>: (addr handle array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, data <span id="L135" class="LineNr">135 </span> <span class="PreProc">var</span> _data/<span class="Constant">eax</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> <a href='../../120allocate.subx.html#L256'>lookup</a> *data-ah <span id="L136" class="LineNr">136 </span> <span class="PreProc">var</span> data/<span class="Constant">edi</span>: (addr array grapheme) <span class="SpecialChar">&lt;-</span> copy _data <span id="L137" class="LineNr">137 </span> <span class="PreProc">var</span> top-addr/<span class="Constant">eax</span>: (addr int) <span class="SpecialChar">&lt;-</span> <a href='../../131table.subx.html#L26'>get</a> self, <a href='../../203stack.subx.html#L338'>top</a> <span id="L138" class="LineNr">138 </span> <span class="PreProc">var</span> i/<span class="Constant">ebx</span>: int <span class="SpecialChar">&lt;-</span> copy *top-addr <span id="L139" class="LineNr">139 </span> i <span class="SpecialChar">&lt;-</span> decrement <span id="L140" class="LineNr">140 </span> <span class="Delimiter">{</span> <span id="L141" class="LineNr">141 </span> compare i, <span class="Constant">0</span> <span id="L142" class="LineNr">142 </span> <span class="PreProc">break-if-&lt;</span> <span id="L143" class="LineNr">143 </span> <span class="Delimiter">{</span> <span id="L144" class="LineNr">144 </span> <span class="PreProc">var</span> curr-a/<span class="Constant">edx</span>: (addr grapheme) <span class="SpecialChar">&lt;-</span> index data, i <span id="L145" class="LineNr">145 </span> <span class="PreProc">var</span> expected/<span class="Constant">eax</span>: grapheme <span class="SpecialChar">&lt;-</span> <a href='../../403unicode.mu.html#L160'>read-grapheme</a> s <span id="L146" class="LineNr">146 </span> <span class="muComment"># if curr != expected, return false</span> <span id="L147" class="LineNr">147 </span> <span class="Delimiter">{</span> <span id="L148" class="LineNr">148 </span> compare expected, *curr-a <span id="L149" class="LineNr">149 </span> <span class="PreProc">break-if-=</span> <span id="L150" class="LineNr">150 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">0</span> <span class="muComment"># false</span> <span id="L151" class="LineNr">151 </span> <span class="PreProc">break</span> $suffix-match?:body <span id="L152" class="LineNr">152 </span> <span class="Delimiter">}</span> <span id="L153" class="LineNr">153 </span> <span class="Delimiter">}</span> <span id="L154" class="LineNr">154 </span> i <span class="SpecialChar">&lt;-</span> decrement <span id="L155" class="LineNr">155 </span> <span class="PreProc">loop</span> <span id="L156" class="LineNr">156 </span> <span class="Delimiter">}</span> <span id="L157" class="LineNr">157 </span> result <span class="SpecialChar">&lt;-</span> copy <span class="Constant">1</span> <span class="muComment"># true</span> <span id="L158" class="LineNr">158 </span><span class="Delimiter">}</span> <span id="L159" class="LineNr">159 </span><span class="Delimiter">}</span> </pre> </body> </html> <!-- vim: set foldmethod=manual : -->