about summary refs log tree commit diff stats
Commit message (Collapse)AuthorAgeFilesLines
...
* XEP-0392: color: implement color hashingAurelien Aptel2019-12-032-283/+376
| | | | | | | | | | * add the HSL values of each of the 256 terminal colors * add color_pair_cache_hash_str() * move common code to _color_pair_cache_get() helper func after hashing a string to a color, return the closest matching terminal color using euclidian distance of the HSL diff vector (this method was found empirically and seems to work well enough...)
* XEP-0392: config: add "color.nick" bool optionAurelien Aptel2019-12-033-0/+5
| | | | | the option will control whether to enable coloration of usernames based on the hashing algorithm described in XEP-0392.
* Call ncurses resize function before move functionMichael Vetter2019-12-022-2/+3
| | | | | | | | | | | | | | From @xaizek s comment on issue #1235: ``` If the move would cause the window to be off the screen, it is an error and the window is not moved. Resize on the other hand doesn't fail like this according to its documentation. So new size needs to be applied first. ``` Big thanks to @xaizek for taking a look at our code and helping us!! Regards https://github.com/profanity-im/profanity/issues/1235
* _win_print: Guard against time being nullMichael Vetter2019-12-011-1/+1
| | | | | | | | | | | | | | | This is encountered when biboumi is used. Example: `/join #debian-next%irc.oftc.net@biboumi.lebihan.pl` It seems then time can be null. g_date_time_format() will not work in this case although time_pref will not be "off". So let's not call g_date_time_format() in this case. But treat it like time is set to off. However message reflection will not work properly with biboumi. Probably we dont get origin-id. Fix https://github.com/profanity-im/profanity/issues/1230
* Merge /group command into /rosterMichael Vetter2019-11-253-146/+118
| | | | | Fix https://github.com/profanity-im/profanity/issues/1229 Regards https://github.com/profanity-im/profanity/issues/1116
* Fix stanza_get_child_by_name_and_from() strcmpMichael Vetter2019-11-141-1/+3
| | | | Fix https://github.com/profanity-im/profanity/issues/1227
* Add vim modelineMichael Vetter2019-11-13149-0/+217
|
* Merge branch 'issue/1190-multi-delay'Michael Vetter2019-11-133-19/+42
|\
| * Check for correct delay tag for muc timestampsMichael Vetter2019-11-133-19/+42
|/ | | | | | | | | | | | | https://github.com/profanity-im/profanity/issues/1190 had another issue: Sometimes servers send multiple </delay> and we just checked the first one we got and only used it if the 'from' attribute was fitting. However it could be that we actually wanted the second </delay> element and there the 'from' would have been right. So we need to loop through them until we get the one with the fitting 'from'. Fix https://github.com/profanity-im/profanity/issues/1190
* Merge branch 'issue/1220-remove-rtl'Michael Vetter2019-11-131-0/+30
|\
| * Filter RTL unicode characters outMichael Vetter2019-11-131-0/+30
|/ | | | | | | | | | | | | | Gajim sends \u200E and \u200F for RTL. It is planned that Gajim stops doing this and uses some GTK feature to get the same result. However users expressed the whish that we filter out such characters in incoming messages before displaying them to make Profanity more robust. I'm still not sure whether I like the solution because it means a lot of allocating/deallocating upon every new message. Fix https://github.com/profanity-im/profanity/issues/1220
* Add cons_logging_setting() to test stubMichael Vetter2019-11-131-2/+1
|
* Fix stanza_get_child_by_name_and_ns() if no nameMichael Vetter2019-11-121-1/+3
| | | | Fix bug introduced in 68af0aad65d243e654866eac5a7cd728ee293aa0.
* Merge /chlog and /grlog commands into /loggingMichael Vetter2019-11-126-56/+67
| | | | | | | Instead of `/chlog on` we now have `/logging chat on`. Instead of `/grlog on` we now have `/logging group on`. Fix https://github.com/profanity-im/profanity/issues/1224
* Merge pull request #1222 from mdosch/masterMichael Vetter2019-11-081-0/+82
|\ | | | | Add (experimental) solarized-light theme
| * Add (experimental) solarized-light themeMartin Dosch2019-11-081-0/+82
| | | | | | | | | | | | | | | | | | This theme should (when finished) look well with the solarized-light color scheme. It is still very rough and needs a lot of polishing but I will try to improve it when I find time. Otherwise it might be start for someone using solarized-light to improve it.
* | _handle_groupchat(): get correct origin-id stanzaMichael Vetter2019-11-083-2/+22
|/ | | | | | | | | | | | | | | | | | The problem is that in _handle_groupchat() we look for STANZA_NS_STABLE_ID which will result in origin-id or stanza-id. It seems like prosody servers send origin-id first, so this worked in all my tests. But actually we cannot be sure of the order. So far we stopped after the first element was found. I only found xmpp_stanza_get_child_by_ns() and xmpp_stanza_get_child_by_name() in libstrophe. But we need a combination of both. So I created stanza_get_child_by_name_and_ns() for Profanity. I need to remember to upstream this to libstrophe later (if they really don't have such a function). Fix https://github.com/profanity-im/profanity/issues/1223
* cmd_room: don't check arguments twiceMichael Vetter2019-11-081-13/+4
|
* Fix setting of status messageMichael Vetter2019-11-072-2/+6
| | | | | | | | | Seems this actually never worked. Now it does. `/status set online "This is my text"` `/status set away bye` `/status set away`
* Merge state commands (online, away) into statusMichael Vetter2019-11-064-141/+113
| | | | | | | | | | | | Before we had `/online`, `/away`, `/dnd`, `/chat`, `/xa`. These commands are no longer available. We have `/status set online` etc now. Before `/status` was used to get the status of a contact. This now moved to `/status get`. Regards https://github.com/profanity-im/profanity/issues/1116
* Fix formatting for invite command helpMichael Vetter2019-11-051-1/+1
|
* Add cons_titlebar_setting stubMichael Vetter2019-11-051-1/+1
| | | | and remove encwarn one.
* Merge /invite, /invites and /decline commandsMichael Vetter2019-11-055-86/+86
| | | | | | | | | | `/invite <contact>` became `/invite send <contact>. `/invites` became `/invite list`. `/decline` became `/invite decline`. Accept is still done via `/join`. Regards https://github.com/profanity-im/profanity/issues/1116
* Add `/titlebar show presence` commandMichael Vetter2019-11-053-0/+13
| | | | | | | Additionally to `/presence titlebar on` we now allow the setting via /titlebar show|hide presence` since it's about the titlebar. Regards https://github.com/profanity-im/profanity/issues/1116
* Display resource information in `/titlebar`Michael Vetter2019-11-051-0/+6
|
* Add `/titlebar show resource` commandMichael Vetter2019-11-053-3/+10
| | | | | | | | | | | Additionally to `/resource titlebar on` we now allow the setting via /titlebar show|hide resource` since it's about the titlebar. But makes sense to have it in `/resource` too because there is `/resource message on|off` too. And this one doesnt have an setting of it's own. Regards https://github.com/profanity-im/profanity/issues/1116
* Move /encwarn command into /titlebarMichael Vetter2019-11-056-58/+49
| | | | | | Instead of `/encwarn on|off` we now have `/titlebar show|hide encwarn`. Regards https://github.com/profanity-im/profanity/issues/1116
* Add my GitHub Sponsors URLMichael Vetter2019-11-051-1/+1
|
* Fix add_history usage in down arrow handlerMichael Vetter2019-11-051-4/+1
| | | | | | | | | | | | | | [Programming with GNU History](http://www.math.utah.edu/docs/info/hist_2.html) mentions using_history(). Chet, maintainer of readline told me about it. (Thanks Chet!) Seems like we need to call this so that the history offset is at the right end of the list. I assume it's called in the linehandler automatically. Fix https://github.com/profanity-im/profanity/issues/200
* Store current input line in historyMichael Vetter2019-11-051-0/+16
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | Regards https://github.com/profanity-im/profanity/issues/200 This doesn't work yet. And I have no idea why. Weird behaviour: - start profanity - type 'ASDF' - ctrl+arrow down -> text vanishes (like intended) - arrow up -> nothing happens (intended is that the last history item [ASDF] appears) - type 'ABC' - press enter - arrow up -> ABC appears - enter - type 'UUU' - ctrl+arrow down - type 'ZZZ' - enter - arrow up - ZZZ appears - arrow up - UUU appears So in the latter case we added to history and deleted from the input line and then immediately entered new text and pressed enter, to add this to the history too. When we do this the not sent text succesfully was stored in history.
* Move `tls show` to titlebar commandMichael Vetter2019-11-054-23/+72
| | | | | | | | | | | Previously we had `/tls show on|off` to manipulate the UI setting for the title bar. To decide whether to show TLS info there or not. This should go into `/titlebar`. Now we have `/titlebar show|hide tls` for this. Regards https://github.com/profanity-im/profanity/issues/1116
* Initialize ProfBufEntry->id correctlyMichael Vetter2019-11-011-1/+5
|
* Move id from DeliveryReceipt to ProfBuffEntry structMichael Vetter2019-11-013-26/+24
| | | | | | | | | | | | | | | | | XEP-0184: Message Delivery Receipts, *requires* the id attribute. Generally this is not the case. For this reason the id was only present in the DeliveryReceipt struct since it was only used for XEP-0184. For https://github.com/profanity-im/profanity/issues/660 XEP-0313 MAM and https://github.com/profanity-im/profanity/issues/805 XEP-0308 Last Message Correction we will also need the id. So in preparation for further work let's move the id to the general ProfBuffEntry. We will need to adapt code so that we actually always write the ID if we receive one.
* Remove not needed if blocksMichael Vetter2019-11-011-9/+2
|
* Don't override ProfMessage Id with origin-idMichael Vetter2019-10-315-22/+46
| | | | | | | | | | Profanity sends the same value for both. Other clients might not. Safe both since we could need them later. Once we implement Last Message Correction we will need the regular id. If we override it with origin-id and another client chooses to not use the same value for id and origin-id then we can't interpret the id sent with the LMC request correctly.
* Replace sent_messages list with algoMichael Vetter2019-10-314-6/+1
| | | | | | | | | | | | | | | | | | | | | | | | | | | | | For OMEMO we had a list with our sent messages. It was used so that we don't decrypt our own messages in MUCs that come in via reflection. Recently for https://github.com/profanity-im/profanity/pull/1209 we started to use origin-id and use an algorithm so we can detect our own sent messages via checking origin-id. Profanity uses the same id for the message ID and origin-id. With 06f300a42c4c627b6f1817bd48d92f083ffd9883 we added the message_is_sent_by_us() function. We implemented XEP-0359 this way to fix https://github.com/profanity-im/profanity/issues/1201 so that we don't log our own messages in MUCs twice. We can now check whether the message was sent by us using this function and can get rid of the list. Probably we could also put many parts of the sv_ev_room_message() function inside (else) part of `if (!(g_strcmp0(mynick, message->jid->resourcepart) == 0 && message_is_sent_by_us(message))) {`. Have to look more closely whether any of this needs to be run in case the message actually comes from us.
* Merge pull request #1217 from aszlig/omemo-check-element-namesMichael Vetter2019-10-301-0/+8
|\ | | | | omemo: Check stanza names when iterating nodes
| * omemo: Check stanza names when iterating nodesaszlig2019-10-291-0/+8
|/ | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | | Some clients (eg. PSI) are sending the stanzas delimited by whitespace text nodes, which will fail while looping through the <prekeys/> children and also print weird errors when iterating through the <list/> of devices. When debugging this, I was looking at the XML of Gajim and PSI and first was somehow confused why Profanity printed "OMEMO: received device without ID" while the XML looked identical (minus the actual IDs and the JIDs of course). However, Gajim was sending the XML without whitespace nodes in between and PSI did not, so for example the following (with the relevant whitespace nodes marked with X): <message type="headline" to="..." from="..."> <event xmlns="http://jabber.org/protocol/pubsub#event"> <items type="headline" node="eu.siacs.conversations.axolotl.devicelist"> <item id="..."> <list xmlns="eu.siacs.conversations.axolotl"> X <device id="..."/> X <device id="..."/> X </list> </item> </items> </event> <delay xmlns="urn:xmpp:delay" stamp="..." from="..."/> </message> ... would result in three times the "OMEMO: received device without ID" error, because we actually have three XML text nodes here that obviously don't have an "id" attribute. Now since the <list/> children above aren't really a problem and only annoying, text nodes in the <prekeys/> stanza actually cause omemo_start_device_session_handle_bundle to return failure. I've fixed this by explicitly matching the stanza names we are interested in, skipping everything else. Signed-off-by: aszlig <aszlig@nix.build> Reported-by: @devhell
* Put ifdef around tray.h functionsMichael Vetter2019-10-292-9/+8
| | | | Only define in case we built with GTK support.
* Remove not neede gtk_init() in tray.cMichael Vetter2019-10-291-1/+0
| | | | gtk_init_check() already has that functionality.
* Remove commentsMichael Vetter2019-10-291-6/+0
|
* Merge pull request #1216 from profanity-im/feature/issue-156-clipboardMichael Vetter2019-10-297-5/+179
|\ | | | | Paste command
| * Dont use clipboard_init yetMichael Vetter2019-10-292-1/+4
| | | | | | | | | | | | For now we initialize gtk in tray_init(). Should maybe use a general function and check in tray_init and clipboard_init whether gtk was already initialized.
| * Send clipboard via /pasteMichael Vetter2019-10-291-2/+34
| | | | | | | | | | | | New command `/paste` that sends the clipboard in MUC, Chat etc windows. Fix https://github.com/profanity-im/profanity/issues/156
| * Adjust tray configure switch to also include clipboardMichael Vetter2019-10-292-5/+7
| | | | | | | | General GTK.
| * Add clipboard featureMichael Vetter2019-10-295-0/+137
|/ | | | | Use GTK to take the text from the clipboard. Add `/paste` command which pastes this text now to console window.
* Update chat_log_pgp_msg_out() usageMichael Vetter2019-10-291-6/+6
| | | | Fix build
* Adjust message stubs in unit testsMichael Vetter2019-10-291-4/+4
|
* Two carbon logging changesMichael Vetter2019-10-291-27/+38
| | | | | | | | | | | | | Add resourcepart to the outgoing carbon that is logged, so we use the correct filenames for MUC PMs. Dont log incoming carbons of MUC PMs as a workaround to faulty server behaviour. See https://wiki.xmpp.org/web/Multi-Session_Nicks#Private_Messages under 'Client-side workaround behavior'. Regards https://github.com/profanity-im/profanity/issues/1214
* Also log sv_ev_delayed_private_messageMichael Vetter2019-10-291-0/+1
|
tle='author Kartik Agaram <vc@akkartik.com> 2020-01-02 15:23:01 -0800 committer Kartik Agaram <vc@akkartik.com> 2020-01-02 15:23:01 -0800 5875' href='/akkartik/mu/commit/html/apps/ex11.subx.html?h=hlt&id=c9bda4d13ea33873dd5bce1eef0434cb11763d19'>c9bda4d1 ^
a0d3cac4 ^







c9bda4d1 ^
a0d3cac4 ^







c9bda4d1 ^
a0d3cac4 ^
c9bda4d1 ^
a0d3cac4 ^







c9bda4d1 ^
a0d3cac4 ^






2104d1a7 ^
b1635a5c ^
a0d3cac4 ^
































c9bda4d1 ^
a0d3cac4 ^












2104d1a7 ^
b1635a5c ^
a0d3cac4 ^




























9309600c ^
a0d3cac4 ^













37d53a70 ^



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
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
357
358
359
360
361
362
363
364
365
366
367
368
369
370
371
372
373
374
375
376
377
378
379
380
381
382
383
384
385
386
387
388
389
390
391
392
393
394
395
396
397
398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
421



                                                                                          
                                  

                                                

                                                                                                      
                                                 

                       

                                                                                           
                    
                                     
                                
                                                             
           
                             
                                  
                                      
                                
                                                                           
                             
                                  
                                                              















                                                                                 
                                                  















                                                                              
                                                                                                                                 
                         
                                                                                                                          
                                                                          
                                                                                                                                                            

                                                                                                                                                      
                                                                                                                                                
                                                                          
                                                                                  

                                                                                                                                           




                                                                                                                                                           
                                         
                                                


                                                                                                                                                                                                                             
                                         
                                                                                                                                  
                                                                                                                                                                                                                   
                                                                                         
                                                                                                                                                                                                                                                                                                                                                                                             

                                                                         
                                                                                                                                                                 
                                                                                                                                                                                     
                                                                                                                                                                                                                              
                                                                                           
                                                                                                        


















                                                                                                              
                                                                                            









                                                                                                                                                                                                                                                                                                                                                                                             
                                                                                                          











                                                                                                                                                                                                                                                                                                                                                                                                  
                                                                                                                              




                                                                                                                                                                                                                                                                                                                                                                                                     
                                                                             
                                                                                            

                                                                                                                                                                                                                                                                                                                                                                                                 
                                                                                             





                                                                                    
                                                                                                                    


                                                                                                                                                                                                                                                                                                                                                                                                     
                                                                             
                                                                                             











                                                                                                      
                                                                                             









                                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                    
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                    
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                    
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                    
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                    
                                                                                           
                                                                                  







                                                                                                                                                                                                                                                                                                                                                                                         
                                                                              






                                                                                                                                                                                                                                                                                                                                                                                         
                                                                                                                                                                                        
                                                                                             
































                                                                                                                                                                                                                                                                                                                                                                                                  
                                                                                                     












                                                                                                                                                                                                                                                                                                                                                                                              
                                                                                                                                                                     
                                                                                             




























                                                                                                                                                                                                                                                                                                                                                                                               
                                          













                                                                                                               



                                     
<!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 - apps/ex11.subx</title>
<meta name="Generator" content="Vim/8.1">
<meta name="plugin-version" content="vim8.1_v1">
<meta name="syntax" content="none">
<meta name="settings" content="number_lines,use_css,no_foldcolumn,expand_tabs,line_ids,prevent_copy=">
<meta name="colorscheme" content="minimal-light">
<style type="text/css">
<!--
pre { 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; }
.subxComment { color: #005faf; }
.subxFunction { color: #af5f00; text-decoration: underline; }
.LineNr { }
.subxTest { color: #5f8700; }
.subxS1Comment { color: #0000af; }
.subxMinorFunction { color: #875f5f; }
.SpecialChar { color: #d70000; }
.Normal { color: #000000; background-color: #c6c6c6; padding-bottom: 1px; }
.Constant { color: #008787; }
.subxS2Comment { color: #8a8a8a; }
.subxH1Comment { color: #005faf; text-decoration: underline; }
-->
</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/apps/ex11.subx'>https://github.com/akkartik/mu/blob/master/apps/ex11.subx</a>
<pre id='vimCodeElement'>
<span id="L1" class="LineNr">  1 </span><span class="subxComment"># Null-terminated vs size-prefixed ascii strings.</span>
<span id="L2" class="LineNr">  2 </span><span class="subxComment">#</span>
<span id="L3" class="LineNr">  3 </span><span class="subxComment"># By default we create strings with a 4-byte size prefix rather than a null suffix.</span>
<span id="L4" class="LineNr">  4 </span><span class="subxComment"># However we still need null-prefixed strings when interacting with the Linux</span>
<span id="L5" class="LineNr">  5 </span><span class="subxComment"># kernel in a few places. This layer implements a function for comparing</span>
<span id="L6" class="LineNr">  6 </span><span class="subxComment"># a null-terminated 'kernel string' with a size-prefixed 'SubX string'.</span>
<span id="L7" class="LineNr">  7 </span><span class="subxComment">#</span>
<span id="L8" class="LineNr">  8 </span><span class="subxComment"># To run:</span>
<span id="L9" class="LineNr">  9 </span><span class="subxComment">#   $ ./bootstrap translate init.linux apps/ex11.subx -o apps/ex11</span>
<span id="L10" class="LineNr"> 10 </span><span class="subxComment">#   $ ./bootstrap run apps/ex11  # runs a series of tests</span>
<span id="L11" class="LineNr"> 11 </span><span class="subxComment">#   ......  # all tests pass</span>
<span id="L12" class="LineNr"> 12 </span><span class="subxComment">#</span>
<span id="L13" class="LineNr"> 13 </span><span class="subxComment"># (We can't yet run the tests when given a &quot;test&quot; commandline argument,</span>
<span id="L14" class="LineNr"> 14 </span><span class="subxComment"># because checking for it would require the function being tested! Breakage</span>
<span id="L15" class="LineNr"> 15 </span><span class="subxComment"># would cause tests to not run, rather than to fail as we'd like.)</span>
<span id="L16" class="LineNr"> 16 </span>
<span id="L17" class="LineNr"> 17 </span>== code
<span id="L18" class="LineNr"> 18 </span><span class="subxComment">#   instruction                     effective address                                                   register    displacement    immediate</span>
<span id="L19" class="LineNr"> 19 </span><span class="subxS1Comment"># . op          subop               mod             rm32          base        index         scale       r32</span>
<span id="L20" class="LineNr"> 20 </span><span class="subxS1Comment"># . 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="L21" class="LineNr"> 21 </span>
<span id="L22" class="LineNr"> 22 </span><span class="SpecialChar">Entry</span>:  <span class="subxComment"># run all tests</span>
<span id="L23" class="LineNr"> 23 </span>    e8/call  run-tests/disp32  <span class="subxComment"># 'run-tests' is a function created automatically by SubX. It calls all functions that start with 'test-'.</span>
<span id="L24" class="LineNr"> 24 </span>    <span class="subxComment"># exit(eax)</span>
<span id="L25" class="LineNr"> 25 </span>    89/copy                         3/mod/direct    3/rm32/ebx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy eax to ebx</span>
<span id="L26" class="LineNr"> 26 </span>    e8/call  syscall_exit/disp32
<span id="L27" class="LineNr"> 27 </span>
<span id="L28" class="LineNr"> 28 </span><span class="subxComment"># compare a null-terminated ascii string with a more idiomatic size-prefixed byte array</span>
<span id="L29" class="LineNr"> 29 </span><span class="subxComment"># reason for the name: the only place we should have null-terminated ascii strings is from commandline args</span>
<span id="L30" class="LineNr"> 30 </span><span class="subxFunction">kernel-string-equal?</span>:  <span class="subxComment"># s: null-terminated ascii string, benchmark: size-prefixed ascii string -&gt; eax: boolean</span>
<span id="L31" class="LineNr"> 31 </span>    <span class="subxComment"># pseudocode:</span>
<span id="L32" class="LineNr"> 32 </span>    <span class="subxComment">#   n = benchmark-&gt;size</span>
<span id="L33" class="LineNr"> 33 </span>    <span class="subxComment">#   s1 = s</span>
<span id="L34" class="LineNr"> 34 </span>    <span class="subxComment">#   s2 = benchmark-&gt;data</span>
<span id="L35" class="LineNr"> 35 </span>    <span class="subxComment">#   i = 0</span>
<span id="L36" class="LineNr"> 36 </span>    <span class="subxComment">#   while i &lt; n</span>
<span id="L37" class="LineNr"> 37 </span>    <span class="subxComment">#     c1 = *s1</span>
<span id="L38" class="LineNr"> 38 </span>    <span class="subxComment">#     c2 = *s2</span>
<span id="L39" class="LineNr"> 39 </span>    <span class="subxComment">#     if (c1 == 0) return false</span>
<span id="L40" class="LineNr"> 40 </span>    <span class="subxComment">#     if (c1 != c2) return false</span>
<span id="L41" class="LineNr"> 41 </span>    <span class="subxComment">#     ++s1, ++s2, ++i</span>
<span id="L42" class="LineNr"> 42 </span>    <span class="subxComment">#   return *s1 == 0</span>
<span id="L43" class="LineNr"> 43 </span>    <span class="subxComment">#</span>
<span id="L44" class="LineNr"> 44 </span>    <span class="subxComment"># registers:</span>
<span id="L45" class="LineNr"> 45 </span>    <span class="subxComment">#   i: ecx</span>
<span id="L46" class="LineNr"> 46 </span>    <span class="subxComment">#   n: edx</span>
<span id="L47" class="LineNr"> 47 </span>    <span class="subxComment">#   s1: edi</span>
<span id="L48" class="LineNr"> 48 </span>    <span class="subxComment">#   s2: esi</span>
<span id="L49" class="LineNr"> 49 </span>    <span class="subxComment">#   c1: eax</span>
<span id="L50" class="LineNr"> 50 </span>    <span class="subxComment">#   c2: ebx</span>
<span id="L51" class="LineNr"> 51 </span>    <span class="subxComment">#</span>
<span id="L52" class="LineNr"> 52 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L53" class="LineNr"> 53 </span>    55/push-ebp
<span id="L54" class="LineNr"> 54 </span>    89/copy                         3/mod/direct    5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          4/r32/esp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy esp to ebp</span>
<span id="L55" class="LineNr"> 55 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L56" class="LineNr"> 56 </span>    51/push-ecx
<span id="L57" class="LineNr"> 57 </span>    52/push-edx
<span id="L58" class="LineNr"> 58 </span>    53/push-ebx
<span id="L59" class="LineNr"> 59 </span>    56/push-esi
<span id="L60" class="LineNr"> 60 </span>    57/push-edi
<span id="L61" class="LineNr"> 61 </span>    <span class="subxComment"># s1/edi = s</span>
<span id="L62" class="LineNr"> 62 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          7/r32/edi   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to edi</span>
<span id="L63" class="LineNr"> 63 </span>    <span class="subxComment"># n/edx = benchmark-&gt;size</span>
<span id="L64" class="LineNr"> 64 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to edx</span>
<span id="L65" class="LineNr"> 65 </span>    8b/copy                         0/mod/indirect  2/rm32/edx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *edx to edx</span>
<span id="L66" class="LineNr"> 66 </span>    <span class="subxComment"># s2/esi = benchmark-&gt;data</span>
<span id="L67" class="LineNr"> 67 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          6/r32/esi   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to esi</span>
<span id="L68" class="LineNr"> 68 </span>    81          0/subop/add         3/mod/direct    6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esi</span>
<span id="L69" class="LineNr"> 69 </span>    <span class="subxComment"># i/ecx = c1/eax = c2/ebx = 0</span>
<span id="L70" class="LineNr"> 70 </span>    b9/copy-to-ecx  0/imm32/exit
<span id="L71" class="LineNr"> 71 </span>    b8/copy-to-eax  0/imm32
<span id="L72" class="LineNr"> 72 </span>    bb/copy-to-ebx  0/imm32
<span id="L73" class="LineNr"> 73 </span><span class="Constant">$kernel-string-equal?:loop</span>:
<span id="L74" class="LineNr"> 74 </span>    <span class="subxComment"># if (i &gt;= n) break</span>
<span id="L75" class="LineNr"> 75 </span>    39/compare                      3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare ecx with edx</span>
<span id="L76" class="LineNr"> 76 </span>    7d/jump-if-&gt;=  $kernel-string-equal?:<span class="Constant">break</span>/disp8
<span id="L77" class="LineNr"> 77 </span>    <span class="subxComment"># c1 = *s1</span>
<span id="L78" class="LineNr"> 78 </span>    8a/copy-byte                    0/mod/indirect  7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/AL   <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy byte at *edi to AL</span>
<span id="L79" class="LineNr"> 79 </span>    <span class="subxComment"># c2 = *s2</span>
<span id="L80" class="LineNr"> 80 </span>    8a/copy-byte                    0/mod/indirect  6/rm32/esi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/BL   <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy byte at *esi to BL</span>
<span id="L81" class="LineNr"> 81 </span>    <span class="subxComment"># if (c1 == 0) return false</span>
<span id="L82" class="LineNr"> 82 </span>    3d/compare-eax-and  0/imm32/null
<span id="L83" class="LineNr"> 83 </span>    74/jump-if-=  $kernel-string-equal?:false/disp8
<span id="L84" class="LineNr"> 84 </span>    <span class="subxComment"># if (c1 != c2) return false</span>
<span id="L85" class="LineNr"> 85 </span>    39/compare                      3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare eax and ebx</span>
<span id="L86" class="LineNr"> 86 </span>    75/jump-if-!=  $kernel-string-equal?:false/disp8
<span id="L87" class="LineNr"> 87 </span>    <span class="subxComment"># ++i</span>
<span id="L88" class="LineNr"> 88 </span>    41/increment-ecx
<span id="L89" class="LineNr"> 89 </span>    <span class="subxComment"># ++s1</span>
<span id="L90" class="LineNr"> 90 </span>    47/increment-edi
<span id="L91" class="LineNr"> 91 </span>    <span class="subxComment"># ++s2</span>
<span id="L92" class="LineNr"> 92 </span>    46/increment-esi
<span id="L93" class="LineNr"> 93 </span>    eb/jump  $kernel-string-equal?:<span class="Constant">loop</span>/disp8
<span id="L94" class="LineNr"> 94 </span><span class="Constant">$kernel-string-equal?:break</span>:
<span id="L95" class="LineNr"> 95 </span>    <span class="subxComment"># return *s1 == 0</span>
<span id="L96" class="LineNr"> 96 </span>    8a/copy-byte                    0/mod/indirect  7/rm32/edi   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/AL   <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy byte at *edi to AL</span>
<span id="L97" class="LineNr"> 97 </span>    3d/compare-eax-and  0/imm32/null
<span id="L98" class="LineNr"> 98 </span>    75/jump-if-!=  $kernel-string-equal?:false/disp8
<span id="L99" class="LineNr"> 99 </span><span class="Constant">$kernel-string-equal?:true</span>:
<span id="L100" class="LineNr">100 </span>    b8/copy-to-eax  1/imm32
<span id="L101" class="LineNr">101 </span>    eb/jump  $kernel-string-equal?:end/disp8
<span id="L102" class="LineNr">102 </span><span class="Constant">$kernel-string-equal?:false</span>:
<span id="L103" class="LineNr">103 </span>    b8/copy-to-eax  0/imm32
<span id="L104" class="LineNr">104 </span><span class="Constant">$kernel-string-equal?:end</span>:
<span id="L105" class="LineNr">105 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L106" class="LineNr">106 </span>    5f/pop-to-edi
<span id="L107" class="LineNr">107 </span>    5e/pop-to-esi
<span id="L108" class="LineNr">108 </span>    5b/pop-to-ebx
<span id="L109" class="LineNr">109 </span>    5a/pop-to-edx
<span id="L110" class="LineNr">110 </span>    59/pop-to-ecx
<span id="L111" class="LineNr">111 </span>    <span class="subxS1Comment"># . epilogue</span>
<span id="L112" class="LineNr">112 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L113" class="LineNr">113 </span>    5d/pop-to-ebp
<span id="L114" class="LineNr">114 </span>    c3/return
<span id="L115" class="LineNr">115 </span>
<span id="L116" class="LineNr">116 </span><span class="subxH1Comment"># - tests</span>
<span id="L117" class="LineNr">117 </span>
<span id="L118" class="LineNr">118 </span><span class="subxTest">test-compare-null-kernel-string-with-empty-array</span>:
<span id="L119" class="LineNr">119 </span>    <span class="subxComment"># eax = kernel-string-equal?(Null-kernel-string, &quot;&quot;)</span>
<span id="L120" class="LineNr">120 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L121" class="LineNr">121 </span>    68/push  <span class="Constant">&quot;&quot;</span>/imm32
<span id="L122" class="LineNr">122 </span>    68/push  <span class="SpecialChar">Null-kernel-string</span>/imm32
<span id="L123" class="LineNr">123 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L124" class="LineNr">124 </span>    e8/call  kernel-string-equal?/disp32
<span id="L125" class="LineNr">125 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L126" class="LineNr">126 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L127" class="LineNr">127 </span>    <span class="subxComment"># check-ints-equal(eax, 1, msg)</span>
<span id="L128" class="LineNr">128 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L129" class="LineNr">129 </span>    68/push  <span class="Constant">&quot;F - test-compare-null-kernel-string-with-empty-array&quot;</span>/imm32
<span id="L130" class="LineNr">130 </span>    68/push  1/imm32/true
<span id="L131" class="LineNr">131 </span>    50/push-eax
<span id="L132" class="LineNr">132 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L133" class="LineNr">133 </span>    e8/call  check-ints-equal/disp32
<span id="L134" class="LineNr">134 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L135" class="LineNr">135 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L136" class="LineNr">136 </span>    c3/return
<span id="L137" class="LineNr">137 </span>
<span id="L138" class="LineNr">138 </span><span class="subxTest">test-compare-null-kernel-string-with-non-empty-array</span>:
<span id="L139" class="LineNr">139 </span>    <span class="subxComment"># eax = kernel-string-equal?(Null-kernel-string, &quot;Abc&quot;)</span>
<span id="L140" class="LineNr">140 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L141" class="LineNr">141 </span>    68/push  <span class="Constant">&quot;Abc&quot;</span>/imm32
<span id="L142" class="LineNr">142 </span>    68/push  <span class="SpecialChar">Null-kernel-string</span>/imm32
<span id="L143" class="LineNr">143 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L144" class="LineNr">144 </span>    e8/call  kernel-string-equal?/disp32
<span id="L145" class="LineNr">145 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L146" class="LineNr">146 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L147" class="LineNr">147 </span>    <span class="subxComment"># check-ints-equal(eax, 0, msg)</span>
<span id="L148" class="LineNr">148 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L149" class="LineNr">149 </span>    68/push  <span class="Constant">&quot;F - test-compare-null-kernel-string-with-non-empty-array&quot;</span>/imm32
<span id="L150" class="LineNr">150 </span>    68/push  0/imm32/false
<span id="L151" class="LineNr">151 </span>    50/push-eax
<span id="L152" class="LineNr">152 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L153" class="LineNr">153 </span>    e8/call  check-ints-equal/disp32
<span id="L154" class="LineNr">154 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L155" class="LineNr">155 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L156" class="LineNr">156 </span>    c3/return
<span id="L157" class="LineNr">157 </span>
<span id="L158" class="LineNr">158 </span><span class="subxTest">test-compare-kernel-string-with-equal-array</span>:
<span id="L159" class="LineNr">159 </span>    <span class="subxComment"># eax = kernel-string-equal?(_test-Abc-kernel-string, &quot;Abc&quot;)</span>
<span id="L160" class="LineNr">160 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L161" class="LineNr">161 </span>    68/push  <span class="Constant">&quot;Abc&quot;</span>/imm32
<span id="L162" class="LineNr">162 </span>    68/push  _test-Abc-kernel-string/imm32
<span id="L163" class="LineNr">163 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L164" class="LineNr">164 </span>    e8/call  kernel-string-equal?/disp32
<span id="L165" class="LineNr">165 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L166" class="LineNr">166 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L167" class="LineNr">167 </span>    <span class="subxComment"># check-ints-equal(eax, 1, msg)</span>
<span id="L168" class="LineNr">168 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L169" class="LineNr">169 </span>    68/push  <span class="Constant">&quot;F - test-compare-kernel-string-with-equal-array&quot;</span>/imm32
<span id="L170" class="LineNr">170 </span>    68/push  1/imm32/true
<span id="L171" class="LineNr">171 </span>    50/push-eax
<span id="L172" class="LineNr">172 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L173" class="LineNr">173 </span>    e8/call  check-ints-equal/disp32
<span id="L174" class="LineNr">174 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L175" class="LineNr">175 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L176" class="LineNr">176 </span>    c3/return
<span id="L177" class="LineNr">177 </span>
<span id="L178" class="LineNr">178 </span><span class="subxTest">test-compare-kernel-string-with-inequal-array</span>:
<span id="L179" class="LineNr">179 </span>    <span class="subxComment"># eax = kernel-string-equal?(_test-Abc-kernel-string, &quot;Adc&quot;)</span>
<span id="L180" class="LineNr">180 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L181" class="LineNr">181 </span>    68/push  <span class="Constant">&quot;Adc&quot;</span>/imm32
<span id="L182" class="LineNr">182 </span>    68/push  _test-Abc-kernel-string/imm32
<span id="L183" class="LineNr">183 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L184" class="LineNr">184 </span>    e8/call  kernel-string-equal?/disp32
<span id="L185" class="LineNr">185 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L186" class="LineNr">186 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L187" class="LineNr">187 </span>    <span class="subxComment"># check-ints-equal(eax, 0, msg)</span>
<span id="L188" class="LineNr">188 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L189" class="LineNr">189 </span>    68/push  <span class="Constant">&quot;F - test-compare-kernel-string-with-equal-array&quot;</span>/imm32
<span id="L190" class="LineNr">190 </span>    68/push  0/imm32/false
<span id="L191" class="LineNr">191 </span>    50/push-eax
<span id="L192" class="LineNr">192 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L193" class="LineNr">193 </span>    e8/call  check-ints-equal/disp32
<span id="L194" class="LineNr">194 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L195" class="LineNr">195 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L196" class="LineNr">196 </span>    c3/return
<span id="L197" class="LineNr">197 </span>
<span id="L198" class="LineNr">198 </span><span class="subxTest">test-compare-kernel-string-with-empty-array</span>:
<span id="L199" class="LineNr">199 </span>    <span class="subxComment"># eax = kernel-string-equal?(_test-Abc-kernel-string, &quot;&quot;)</span>
<span id="L200" class="LineNr">200 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L201" class="LineNr">201 </span>    68/push  <span class="Constant">&quot;&quot;</span>/imm32
<span id="L202" class="LineNr">202 </span>    68/push  _test-Abc-kernel-string/imm32
<span id="L203" class="LineNr">203 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L204" class="LineNr">204 </span>    e8/call  kernel-string-equal?/disp32
<span id="L205" class="LineNr">205 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L206" class="LineNr">206 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L207" class="LineNr">207 </span>    <span class="subxComment"># check-ints-equal(eax, 0, msg)</span>
<span id="L208" class="LineNr">208 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L209" class="LineNr">209 </span>    68/push  <span class="Constant">&quot;F - test-compare-kernel-string-with-equal-array&quot;</span>/imm32
<span id="L210" class="LineNr">210 </span>    68/push  0/imm32/false
<span id="L211" class="LineNr">211 </span>    50/push-eax
<span id="L212" class="LineNr">212 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L213" class="LineNr">213 </span>    e8/call  check-ints-equal/disp32
<span id="L214" class="LineNr">214 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L215" class="LineNr">215 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L216" class="LineNr">216 </span>    c3/return
<span id="L217" class="LineNr">217 </span>
<span id="L218" class="LineNr">218 </span><span class="subxTest">test-compare-kernel-string-with-shorter-array</span>:
<span id="L219" class="LineNr">219 </span>    <span class="subxComment"># eax = kernel-string-equal?(_test-Abc-kernel-string, &quot;Ab&quot;)</span>
<span id="L220" class="LineNr">220 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L221" class="LineNr">221 </span>    68/push  <span class="Constant">&quot;Ab&quot;</span>/imm32
<span id="L222" class="LineNr">222 </span>    68/push  _test-Abc-kernel-string/imm32
<span id="L223" class="LineNr">223 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L224" class="LineNr">224 </span>    e8/call  kernel-string-equal?/disp32
<span id="L225" class="LineNr">225 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L226" class="LineNr">226 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L227" class="LineNr">227 </span>    <span class="subxComment"># check-ints-equal(eax, 0, msg)</span>
<span id="L228" class="LineNr">228 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L229" class="LineNr">229 </span>    68/push  <span class="Constant">&quot;F - test-compare-kernel-string-with-shorter-array&quot;</span>/imm32
<span id="L230" class="LineNr">230 </span>    68/push  0/imm32/false
<span id="L231" class="LineNr">231 </span>    50/push-eax
<span id="L232" class="LineNr">232 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L233" class="LineNr">233 </span>    e8/call  check-ints-equal/disp32
<span id="L234" class="LineNr">234 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L235" class="LineNr">235 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L236" class="LineNr">236 </span>    c3/return
<span id="L237" class="LineNr">237 </span>
<span id="L238" class="LineNr">238 </span><span class="subxTest">test-compare-kernel-string-with-longer-array</span>:
<span id="L239" class="LineNr">239 </span>    <span class="subxComment"># eax = kernel-string-equal?(_test-Abc-kernel-string, &quot;Abcd&quot;)</span>
<span id="L240" class="LineNr">240 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L241" class="LineNr">241 </span>    68/push  <span class="Constant">&quot;Abcd&quot;</span>/imm32
<span id="L242" class="LineNr">242 </span>    68/push  _test-Abc-kernel-string/imm32
<span id="L243" class="LineNr">243 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L244" class="LineNr">244 </span>    e8/call  kernel-string-equal?/disp32
<span id="L245" class="LineNr">245 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L246" class="LineNr">246 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              8/imm32           <span class="subxComment"># add to esp</span>
<span id="L247" class="LineNr">247 </span>    <span class="subxComment"># check-ints-equal(eax, 0, msg)</span>
<span id="L248" class="LineNr">248 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L249" class="LineNr">249 </span>    68/push  <span class="Constant">&quot;F - test-compare-kernel-string-with-longer-array&quot;</span>/imm32
<span id="L250" class="LineNr">250 </span>    68/push  0/imm32/false
<span id="L251" class="LineNr">251 </span>    50/push-eax
<span id="L252" class="LineNr">252 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L253" class="LineNr">253 </span>    e8/call  check-ints-equal/disp32
<span id="L254" class="LineNr">254 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L255" class="LineNr">255 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              0xc/imm32         <span class="subxComment"># add to esp</span>
<span id="L256" class="LineNr">256 </span>    c3/return
<span id="L257" class="LineNr">257 </span>
<span id="L258" class="LineNr">258 </span><span class="subxH1Comment"># - helpers</span>
<span id="L259" class="LineNr">259 </span>
<span id="L260" class="LineNr">260 </span><span class="subxComment"># print msg to stderr if a != b, otherwise print &quot;.&quot;</span>
<span id="L261" class="LineNr">261 </span><span class="subxFunction">check-ints-equal</span>:  <span class="subxComment"># (a: int, b: int, msg: (addr array byte)) -&gt; boolean</span>
<span id="L262" class="LineNr">262 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L263" class="LineNr">263 </span>    55/push-ebp
<span id="L264" class="LineNr">264 </span>    89/copy                         3/mod/direct    5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          4/r32/esp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy esp to ebp</span>
<span id="L265" class="LineNr">265 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L266" class="LineNr">266 </span>    51/push-ecx
<span id="L267" class="LineNr">267 </span>    53/push-ebx
<span id="L268" class="LineNr">268 </span>    <span class="subxComment"># load args into eax, ebx and ecx</span>
<span id="L269" class="LineNr">269 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          0/r32/eax   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to eax</span>
<span id="L270" class="LineNr">270 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx   0xc/disp8      <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+12) to ebx</span>
<span id="L271" class="LineNr">271 </span>    <span class="subxComment"># if (eax == b/ebx) print('.') and return</span>
<span id="L272" class="LineNr">272 </span>    39/compare                      3/mod/direct    0/rm32/eax   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          3/r32/ebx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># compare eax and ebx</span>
<span id="L273" class="LineNr">273 </span>    75/jump-if-unequal  $check-ints-equal:else/disp8
<span id="L274" class="LineNr">274 </span>    <span class="subxS1Comment"># . write-stderr('.')</span>
<span id="L275" class="LineNr">275 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L276" class="LineNr">276 </span>    68/push  <span class="Constant">&quot;.&quot;</span>/imm32
<span id="L277" class="LineNr">277 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L278" class="LineNr">278 </span>    e8/call  <a href='ex11.subx.html#L310'>write-stderr</a>/disp32
<span id="L279" class="LineNr">279 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L280" class="LineNr">280 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L281" class="LineNr">281 </span>    <span class="subxS1Comment"># . return</span>
<span id="L282" class="LineNr">282 </span>    eb/jump  $check-ints-equal:end/disp8
<span id="L283" class="LineNr">283 </span>    <span class="subxComment"># otherwise print(msg)</span>
<span id="L284" class="LineNr">284 </span><span class="Constant">$check-ints-equal:else</span>:
<span id="L285" class="LineNr">285 </span>    <span class="subxComment"># copy msg into ecx</span>
<span id="L286" class="LineNr">286 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          1/r32/ecx   0x10/disp8      <span class="Normal"> . </span>               <span class="subxComment"># copy *(ebp+16) to ecx</span>
<span id="L287" class="LineNr">287 </span>    <span class="subxComment"># print(ecx)</span>
<span id="L288" class="LineNr">288 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L289" class="LineNr">289 </span>    51/push-ecx
<span id="L290" class="LineNr">290 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L291" class="LineNr">291 </span>    e8/call  <a href='ex11.subx.html#L310'>write-stderr</a>/disp32
<span id="L292" class="LineNr">292 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L293" class="LineNr">293 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L294" class="LineNr">294 </span>    <span class="subxComment"># print newline</span>
<span id="L295" class="LineNr">295 </span>    <span class="subxS2Comment"># . . push args</span>
<span id="L296" class="LineNr">296 </span>    68/push  <span class="SpecialChar">Newline</span>/imm32
<span id="L297" class="LineNr">297 </span>    <span class="subxS2Comment"># . . call</span>
<span id="L298" class="LineNr">298 </span>    e8/call  <a href='ex11.subx.html#L310'>write-stderr</a>/disp32
<span id="L299" class="LineNr">299 </span>    <span class="subxS2Comment"># . . discard args</span>
<span id="L300" class="LineNr">300 </span>    81          0/subop/add         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to esp</span>
<span id="L301" class="LineNr">301 </span><span class="Constant">$check-ints-equal:end</span>:
<span id="L302" class="LineNr">302 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L303" class="LineNr">303 </span>    5b/pop-to-ebx
<span id="L304" class="LineNr">304 </span>    59/pop-to-ecx
<span id="L305" class="LineNr">305 </span>    <span class="subxComment"># end</span>
<span id="L306" class="LineNr">306 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L307" class="LineNr">307 </span>    5d/pop-to-ebp
<span id="L308" class="LineNr">308 </span>    c3/return
<span id="L309" class="LineNr">309 </span>
<span id="L310" class="LineNr">310 </span><span class="subxFunction">write-stderr</span>:  <span class="subxComment"># s: (addr array byte) -&gt; &lt;void&gt;</span>
<span id="L311" class="LineNr">311 </span>    <span class="subxS1Comment"># . prologue</span>
<span id="L312" class="LineNr">312 </span>    55/push-ebp
<span id="L313" class="LineNr">313 </span>    89/copy                         3/mod/direct    5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          4/r32/esp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy esp to ebp</span>
<span id="L314" class="LineNr">314 </span>    <span class="subxS1Comment"># . save registers</span>
<span id="L315" class="LineNr">315 </span>    50/push-eax
<span id="L316" class="LineNr">316 </span>    51/push-ecx
<span id="L317" class="LineNr">317 </span>    52/push-edx
<span id="L318" class="LineNr">318 </span>    53/push-ebx
<span id="L319" class="LineNr">319 </span>    <span class="subxComment"># syscall(write, 2/stderr, (data) s+4, (size) *s)</span>
<span id="L320" class="LineNr">320 </span>    <span class="subxS2Comment"># . . fd = 2 (stderr)</span>
<span id="L321" class="LineNr">321 </span>    bb/copy-to-ebx  2/imm32
<span id="L322" class="LineNr">322 </span>    <span class="subxS2Comment"># . . x = s+4</span>
<span id="L323" class="LineNr">323 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          1/r32/ecx   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to ecx</span>
<span id="L324" class="LineNr">324 </span>    81          0/subop/add         3/mod/direct    1/rm32/ecx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>         <span class="Normal"> . </span>         <span class="Normal"> . </span>              4/imm32           <span class="subxComment"># add to ecx</span>
<span id="L325" class="LineNr">325 </span>    <span class="subxS2Comment"># . . size = *s</span>
<span id="L326" class="LineNr">326 </span>    8b/copy                         1/mod/*+disp8   5/rm32/ebp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx   8/disp8        <span class="Normal"> . </span>                <span class="subxComment"># copy *(ebp+8) to edx</span>
<span id="L327" class="LineNr">327 </span>    8b/copy                         0/mod/indirect  2/rm32/edx   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          2/r32/edx  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy *edx to edx</span>
<span id="L328" class="LineNr">328 </span>    <span class="subxS2Comment"># . . syscall</span>
<span id="L329" class="LineNr">329 </span>    e8/call  syscall_write/disp32
<span id="L330" class="LineNr">330 </span>    <span class="subxS1Comment"># . restore registers</span>
<span id="L331" class="LineNr">331 </span>    5b/pop-to-ebx
<span id="L332" class="LineNr">332 </span>    5a/pop-to-edx
<span id="L333" class="LineNr">333 </span>    59/pop-to-ecx
<span id="L334" class="LineNr">334 </span>    58/pop-to-eax
<span id="L335" class="LineNr">335 </span>    <span class="subxS1Comment"># . end</span>
<span id="L336" class="LineNr">336 </span>    89/copy                         3/mod/direct    4/rm32/esp   <span class="Normal"> . </span>         <span class="Normal"> . </span>           <span class="Normal"> . </span>          5/r32/ebp  <span class="Normal"> . </span>             <span class="Normal"> . </span>                <span class="subxComment"># copy ebp to esp</span>
<span id="L337" class="LineNr">337 </span>    5d/pop-to-ebp
<span id="L338" class="LineNr">338 </span>    c3/return
<span id="L339" class="LineNr">339 </span>
<span id="L340" class="LineNr">340 </span>== data
<span id="L341" class="LineNr">341 </span>
<span id="L342" class="LineNr">342 </span><span class="SpecialChar">Newline</span>:
<span id="L343" class="LineNr">343 </span>    <span class="subxComment"># size</span>
<span id="L344" class="LineNr">344 </span>    1/imm32
<span id="L345" class="LineNr">345 </span>    <span class="subxComment"># data</span>
<span id="L346" class="LineNr">346 </span>    0a/newline
<span id="L347" class="LineNr">347 </span>
<span id="L348" class="LineNr">348 </span><span class="subxComment"># for kernel-string-equal tests</span>
<span id="L349" class="LineNr">349 </span><span class="SpecialChar">Null-kernel-string</span>:
<span id="L350" class="LineNr">350 </span>    00/null
<span id="L351" class="LineNr">351 </span>
<span id="L352" class="LineNr">352 </span><span class="subxMinorFunction">_test-Abc-kernel-string</span>:
<span id="L353" class="LineNr">353 </span>    41/A 62/b 63/c 00/null
<span id="L354" class="LineNr">354 </span>
<span id="L355" class="LineNr">355 </span><span class="subxS2Comment"># . . vim&#0058;nowrap:textwidth=0</span>
</pre>
</body>
</html>
<!-- vim: set foldmethod=manual : -->