2021-01-21 13:40:28 +01:00
|
|
|
<?xml version="1.0" encoding="utf-8"?>
|
|
|
|
|
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">
|
|
|
|
|
<html xmlns="http://www.w3.org/1999/xhtml"><head>
|
|
|
|
|
<title>.</title>
|
|
|
|
|
<style type="text/css">
|
|
|
|
|
|
|
|
|
|
* { color: #000; background: #fff; max-width: 700px; }
|
|
|
|
|
tt, pre { background: #dedede; color: #111; font-family: monospace;
|
|
|
|
|
white-space: pre; display: block; width: 100%; }
|
|
|
|
|
.indentedcode { margin-left: 2em; margin-right: 2em; }
|
|
|
|
|
.codeblock {
|
|
|
|
|
background: #dedede; color: #111; font-family: monospace;
|
|
|
|
|
box-shadow: 0 4px 8px 0 rgba(0, 0, 0, 0.2), 0 6px 20px 0 rgba(0, 0, 0, 0.19);
|
|
|
|
|
padding: 7px;
|
|
|
|
|
display: block;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
.indentedlist { margin-left: 2em; color: #000; }
|
|
|
|
|
|
|
|
|
|
span { white-space: pre; }
|
|
|
|
|
.text { color: #000; white-space: pre; background: #dedede; }
|
|
|
|
|
.colon { color: #000; background: #dedede; }
|
|
|
|
|
.note { color: #000; background: #dedede; }
|
|
|
|
|
.str { color: #000; text-decoration: underline; background: #dedede; }
|
|
|
|
|
.num { color: #000; background: #dedede; font-weight: bold; font-style: italic; }
|
|
|
|
|
.fnum { color: #000; font-weight: bold; background: #dedede; }
|
|
|
|
|
.ptr { color: #000; font-weight: bold; background: #dedede; }
|
|
|
|
|
.fetch { color: #000; font-style: italic; background: #dedede; }
|
|
|
|
|
.store { color: #000; font-style: italic; background: #dedede; }
|
|
|
|
|
.char { color: #000; background: #dedede; }
|
|
|
|
|
.inst { color: #000; background: #dedede; }
|
|
|
|
|
.defer { color: #000; background: #dedede; }
|
|
|
|
|
.imm { color: #000; font-weight: bold; background: #dedede; }
|
|
|
|
|
.prim { color: #000; font-weight: bolder; background: #dedede; }
|
|
|
|
|
|
|
|
|
|
.tt { white-space: pre; font-family: monospace; background: #dedede; }
|
|
|
|
|
|
|
|
|
|
.h1, .h2, .h3, .h4 { white-space: normal; }
|
|
|
|
|
.h1 { font-size: 125%; }
|
|
|
|
|
.h2 { font-size: 120%; }
|
|
|
|
|
.h3 { font-size: 115%; }
|
|
|
|
|
.h4 { font-size: 110%; }
|
|
|
|
|
.hr { display: block; height: 2px; background: #000000; }
|
|
|
|
|
</style>
|
|
|
|
|
</head><body>
|
|
|
|
|
<p><span class="h3">On The Use Of Underscores In Word Names</span>
|
|
|
|
|
<br/><br/>
|
|
|
|
|
In brief: don't use underscores in word names.
|
|
|
|
|
<br/><br/>
|
2021-05-17 19:04:42 +02:00
|
|
|
There is a good reason for this, and it has to do with how Retro
|
2021-01-21 13:40:28 +01:00
|
|
|
processes strings. By default, underscores in strings are replaced
|
|
|
|
|
by spaces. This is problematic when dealing with words like <span class="tt">var</span>,
|
|
|
|
|
<span class="tt">const</span>, and <span class="tt">d:create</span> which take word names as strings.
|
|
|
|
|
<br/><br/>
|
|
|
|
|
Consider:
|
|
|
|
|
<br/><br/>
|
|
|
|
|
<tt class='indentedcode'>:hello_msg 'hello_user ;</tt>
|
|
|
|
|
<tt class='indentedcode'>'test_name var</tt>
|
|
|
|
|
<tt class='indentedcode'>#188 !test_name</tt>
|
|
|
|
|
<br/><br/>
|
2021-03-30 13:58:25 +02:00
|
|
|
In the first case, the <span class="tt">:</span> sigil handles the token, so the
|
2021-01-21 13:40:28 +01:00
|
|
|
underscore is not remapped to a space, creating a word name as
|
2021-03-30 13:58:25 +02:00
|
|
|
<span class="tt">hello_msg</span>. But in the second, the <span class="tt">'</span> sigil remaps the
|
2021-01-21 13:40:28 +01:00
|
|
|
underscore to a space, giving a variable name of <span class="tt">test name</span>.
|
|
|
|
|
In the third line, the name lookup will fail as <span class="tt">test_name</span> is
|
|
|
|
|
not defined, so the store will be done to an incorrect address.
|
|
|
|
|
<br/><br/>
|
|
|
|
|
Because of this, it's best to avoid underscores in names.
|
|
|
|
|
<br/><br/>
|
|
|
|
|
Having covered this, if you do need to use them for some reason,
|
|
|
|
|
you can replace <span class="tt">d:add-header</span> with a version that remaps spaces
|
|
|
|
|
back to underscores before creating the header. The following
|
|
|
|
|
will allow for this.
|
|
|
|
|
<br/><br/>
|
|
|
|
|
<tt class='indentedcode'>~~~</tt>
|
|
|
|
|
<tt class='indentedcode'>{{</tt>
|
|
|
|
|
<tt class='indentedcode'> :fields @Dictionary , (link) , (xt) , (class) ;</tt>
|
|
|
|
|
<tt class='indentedcode'> :invalid-name? dup ASCII:SPACE s:contains-char? ;</tt>
|
|
|
|
|
<tt class='indentedcode'> :rewrite [ ASCII:SPACE [ $_ ] case ] s:map ;</tt>
|
|
|
|
|
<tt class='indentedcode'> :entry here &call dip !Dictionary ;</tt>
|
|
|
|
|
<tt class='indentedcode'> [ [ fields invalid-name? &rewrite if s, (name) ] entry ]</tt>
|
|
|
|
|
<tt class='indentedcode'>}}</tt>
|
|
|
|
|
<br/><br/>
|
|
|
|
|
<tt class='indentedcode'>#1793 &d:add-header store</tt>
|
|
|
|
|
<tt class='indentedcode'>&d:add-header n:inc store</tt>
|
|
|
|
|
<tt class='indentedcode'>~~~</tt>
|
|
|
|
|
<br/><br/>
|
|
|
|
|
Additional Note:
|
|
|
|
|
<br/><br/>
|
2021-05-17 19:04:42 +02:00
|
|
|
Some version of Retro have included the above patch. The last
|
2021-01-21 13:40:28 +01:00
|
|
|
release that will include this by default is 2020.4 as it is
|
|
|
|
|
not needed by the majority of users. If you want to keep it in
|
|
|
|
|
your system, you will need to load it yourself or add it to
|
|
|
|
|
your <span class="tt">package/list.forth</span> (for Unix users) before building.
|
|
|
|
|
</p>
|
|
|
|
|
</body></html>
|
