-
Notifications
You must be signed in to change notification settings - Fork 0
/
Copy pathAGT.html
92 lines (92 loc) · 4.3 KB
/
AGT.html
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
<!DOCTYPE html>
<html><head>
<meta http-equiv="content-type"
content="text/html; charset=UTF-8">
<meta name="description"
content="sweave generated">
</head><body><font face="Sorts Mill Goudy">
<p align="justify"><font face="Sorts Mill Goudy">
<h1>AGT - Alphabetic comparision with upper and lower equal</h1>
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
<font face="Source Code Pro">AGT(S1,S2)</font> is the same as <font face="Source Code Pro">LGT(S1,S2)</font> but considers upper and
lower case identical. <font face="Source Code Pro">AGT</font> converts both strings to lowercase.
This is done by creating a translation table based on <font face="Source Code Pro">&ALPHABET</font>.
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
After the strings have been translated, <font face="Source Code Pro">LGT</font> is used for the
comparision.
</font></p>
<p align="justify"><font face="Sorts Mill Goudy">
<h2>Uses</h2>
</font></p>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«INCLUDES»≡</b>
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«AGT»≡</b>
-PUBLIC AGT()
<font color="#818181"><i>*</i></font>
DEFINE('AGT(S1,S2)')
AGT_TT = REPLACE(&ALPHABET, &UCASE, &LCASE) <b>:(AGT_END)</b>
<font color="#818181"><i>*</i></font>
AGT LGT(REPLACE(S1, &ALPHABET, AGT_TT),
+ REPLACE(S2, &ALPHABET, AGT_TT)) <b>:S(RETURN)F(FRETURN)</b>
<font color="#818181"><i>*</i></font>
AGT_END
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«unit_test»≡</b>
<font color="#818181"><i>#!/usr/bin/bash</i></font>
exec "snobol4" "-b" "$0" "$@"
-INCLUDE 'AGT.INC'
&CODE = 1
AGT('abd', 'ABC') <b>:F(END)</b>
AGT('abc', 'ABC') <b>:S(END)</b>
&CODE = 0
END
<b>@</b>
</font></pre></div>
<div style="background-image: url(greenbar.gif)">
<pre><font face="Source Code Pro">
<b>«»≡</b>
-MODULE AGT
<b>«INCLUDES»</b>
-IN72
-STITL AGT
-EJECT
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* # ##### ####### *</i></font>
<font color="#818181"><i>* # # # # # *</i></font>
<font color="#818181"><i>* # # # # *</i></font>
<font color="#818181"><i>* # # # #### # *</i></font>
<font color="#818181"><i>* ####### # # # *</i></font>
<font color="#818181"><i>* # # # # # *</i></font>
<font color="#818181"><i>* # # ##### # *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>* AGT ALPHABETIC COMPARISION WITH UPPER AND LOWER EQUAL *</i></font>
<font color="#818181"><i>* *</i></font>
<font color="#818181"><i>************************************************************************</i></font>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* AGT.lss</i></font>
<font color="#818181"><i>*</i></font>
<b>«AGT»</b>
<font color="#818181"><i>*</i></font>
<font color="#818181"><i>* CE: .MSNOBOL4;</i></font>
<b>@</b>
</font></pre></div>
<footer><hr><table width="100%" border="0">
<tr><td><p align=left>
Produced by <code>sweave</code>
</p></td><td><p align=center>
Sun Aug 31 15:19:18 EDT 2014</p></td><td><p align=right>
Return to <a href="index.html">index</a>
</p></td></table></footer>
</font></body></html>