Home » Archimedes archive » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95 » !AWJan95/Goodies/Event/Docs/Strings

!AWJan95/Goodies/Event/Docs/Strings

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » Archimedes archive » Archimedes World » AW-1995-01-Disc2.adf » Disk2Jan95
Filename: !AWJan95/Goodies/Event/Docs/Strings
Read OK:
File size: 081C bytes
Load address: 0000
Exec address: 0000
Duplicates

There is 1 duplicate copy of this file in the archive:

File contents
FNshell_GetString()
Returns the string at the given address.
Terminators may be any character below
ASCII 32.
 
Params  =>
         int address

        <=
         string found at address

--------------------------------------------------------

FNshell_StringArrayGetLongest()
Params =>
         array name of string array
         int   number of elements

       <=
         int   length of longest element

--------------------------------------------------------

FNshell_StringExchange()
Params =>
         str source string
         str target string
         str substitution string

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringUpperCase()
Params =>
         str source string

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringLowerCase()
Params =>
         str source string

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringPadLeading()
Params =>
         str source string
         str pad character
         int length to pad to

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringPadTrailing()
Params =>
         str source string
         str pad character
         int length to pad to

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringStripAll()
Params =>
         str source string
         str character to strip

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringStripLeading()
Params =>
         str source string
         str character to strip

       <=
         str transformed string

--------------------------------------------------------

FNshell_StringStripTrailing()
Params =>
         str source string        
         str character to strip

       <=
         str transformed string

--------------------------------------------------------
00000000  46 4e 73 68 65 6c 6c 5f  47 65 74 53 74 72 69 6e  |FNshell_GetStrin|
00000010  67 28 29 0a 52 65 74 75  72 6e 73 20 74 68 65 20  |g().Returns the |
00000020  73 74 72 69 6e 67 20 61  74 20 74 68 65 20 67 69  |string at the gi|
00000030  76 65 6e 20 61 64 64 72  65 73 73 2e 0a 54 65 72  |ven address..Ter|
00000040  6d 69 6e 61 74 6f 72 73  20 6d 61 79 20 62 65 20  |minators may be |
00000050  61 6e 79 20 63 68 61 72  61 63 74 65 72 20 62 65  |any character be|
00000060  6c 6f 77 0a 41 53 43 49  49 20 33 32 2e 0a 20 0a  |low.ASCII 32.. .|
00000070  50 61 72 61 6d 73 20 20  3d 3e 0a 20 20 20 20 20  |Params  =>.     |
00000080  20 20 20 20 69 6e 74 20  61 64 64 72 65 73 73 0a  |    int address.|
00000090  0a 20 20 20 20 20 20 20  20 3c 3d 0a 20 20 20 20  |.        <=.    |
000000a0  20 20 20 20 20 73 74 72  69 6e 67 20 66 6f 75 6e  |     string foun|
000000b0  64 20 61 74 20 61 64 64  72 65 73 73 0a 0a 2d 2d  |d at address..--|
000000c0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000000f0  2d 2d 2d 2d 2d 2d 0a 0a  46 4e 73 68 65 6c 6c 5f  |------..FNshell_|
00000100  53 74 72 69 6e 67 41 72  72 61 79 47 65 74 4c 6f  |StringArrayGetLo|
00000110  6e 67 65 73 74 28 29 0a  50 61 72 61 6d 73 20 3d  |ngest().Params =|
00000120  3e 0a 20 20 20 20 20 20  20 20 20 61 72 72 61 79  |>.         array|
00000130  20 6e 61 6d 65 20 6f 66  20 73 74 72 69 6e 67 20  | name of string |
00000140  61 72 72 61 79 0a 20 20  20 20 20 20 20 20 20 69  |array.         i|
00000150  6e 74 20 20 20 6e 75 6d  62 65 72 20 6f 66 20 65  |nt   number of e|
00000160  6c 65 6d 65 6e 74 73 0a  0a 20 20 20 20 20 20 20  |lements..       |
00000170  3c 3d 0a 20 20 20 20 20  20 20 20 20 69 6e 74 20  |<=.         int |
00000180  20 20 6c 65 6e 67 74 68  20 6f 66 20 6c 6f 6e 67  |  length of long|
00000190  65 73 74 20 65 6c 65 6d  65 6e 74 0a 0a 2d 2d 2d  |est element..---|
000001a0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000001d0  2d 2d 2d 2d 2d 0a 0a 46  4e 73 68 65 6c 6c 5f 53  |-----..FNshell_S|
000001e0  74 72 69 6e 67 45 78 63  68 61 6e 67 65 28 29 0a  |tringExchange().|
000001f0  50 61 72 61 6d 73 20 3d  3e 0a 20 20 20 20 20 20  |Params =>.      |
00000200  20 20 20 73 74 72 20 73  6f 75 72 63 65 20 73 74  |   str source st|
00000210  72 69 6e 67 0a 20 20 20  20 20 20 20 20 20 73 74  |ring.         st|
00000220  72 20 74 61 72 67 65 74  20 73 74 72 69 6e 67 0a  |r target string.|
00000230  20 20 20 20 20 20 20 20  20 73 74 72 20 73 75 62  |         str sub|
00000240  73 74 69 74 75 74 69 6f  6e 20 73 74 72 69 6e 67  |stitution string|
00000250  0a 0a 20 20 20 20 20 20  20 3c 3d 0a 20 20 20 20  |..       <=.    |
00000260  20 20 20 20 20 73 74 72  20 74 72 61 6e 73 66 6f  |     str transfo|
00000270  72 6d 65 64 20 73 74 72  69 6e 67 0a 0a 2d 2d 2d  |rmed string..---|
00000280  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000002b0  2d 2d 2d 2d 2d 0a 0a 46  4e 73 68 65 6c 6c 5f 53  |-----..FNshell_S|
000002c0  74 72 69 6e 67 55 70 70  65 72 43 61 73 65 28 29  |tringUpperCase()|
000002d0  0a 50 61 72 61 6d 73 20  3d 3e 0a 20 20 20 20 20  |.Params =>.     |
000002e0  20 20 20 20 73 74 72 20  73 6f 75 72 63 65 20 73  |    str source s|
000002f0  74 72 69 6e 67 0a 0a 20  20 20 20 20 20 20 3c 3d  |tring..       <=|
00000300  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 74 72  |.         str tr|
00000310  61 6e 73 66 6f 72 6d 65  64 20 73 74 72 69 6e 67  |ansformed string|
00000320  0a 0a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
00000330  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000350  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 0a 46 4e 73 68  |----------..FNsh|
00000360  65 6c 6c 5f 53 74 72 69  6e 67 4c 6f 77 65 72 43  |ell_StringLowerC|
00000370  61 73 65 28 29 0a 50 61  72 61 6d 73 20 3d 3e 0a  |ase().Params =>.|
00000380  20 20 20 20 20 20 20 20  20 73 74 72 20 73 6f 75  |         str sou|
00000390  72 63 65 20 73 74 72 69  6e 67 0a 0a 20 20 20 20  |rce string..    |
000003a0  20 20 20 3c 3d 0a 20 20  20 20 20 20 20 20 20 73  |   <=.         s|
000003b0  74 72 20 74 72 61 6e 73  66 6f 72 6d 65 64 20 73  |tr transformed s|
000003c0  74 72 69 6e 67 0a 0a 2d  2d 2d 2d 2d 2d 2d 2d 2d  |tring..---------|
000003d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000003f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 0a  |---------------.|
00000400  0a 46 4e 73 68 65 6c 6c  5f 53 74 72 69 6e 67 50  |.FNshell_StringP|
00000410  61 64 4c 65 61 64 69 6e  67 28 29 0a 50 61 72 61  |adLeading().Para|
00000420  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 73  |ms =>.         s|
00000430  74 72 20 73 6f 75 72 63  65 20 73 74 72 69 6e 67  |tr source string|
00000440  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 70 61  |.         str pa|
00000450  64 20 63 68 61 72 61 63  74 65 72 0a 20 20 20 20  |d character.    |
00000460  20 20 20 20 20 69 6e 74  20 6c 65 6e 67 74 68 20  |     int length |
00000470  74 6f 20 70 61 64 20 74  6f 0a 0a 20 20 20 20 20  |to pad to..     |
00000480  20 20 3c 3d 0a 20 20 20  20 20 20 20 20 20 73 74  |  <=.         st|
00000490  72 20 74 72 61 6e 73 66  6f 72 6d 65 64 20 73 74  |r transformed st|
000004a0  72 69 6e 67 0a 0a 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ring..----------|
000004b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000004d0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 0a  |--------------..|
000004e0  46 4e 73 68 65 6c 6c 5f  53 74 72 69 6e 67 50 61  |FNshell_StringPa|
000004f0  64 54 72 61 69 6c 69 6e  67 28 29 0a 50 61 72 61  |dTrailing().Para|
00000500  6d 73 20 3d 3e 0a 20 20  20 20 20 20 20 20 20 73  |ms =>.         s|
00000510  74 72 20 73 6f 75 72 63  65 20 73 74 72 69 6e 67  |tr source string|
00000520  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 70 61  |.         str pa|
00000530  64 20 63 68 61 72 61 63  74 65 72 0a 20 20 20 20  |d character.    |
00000540  20 20 20 20 20 69 6e 74  20 6c 65 6e 67 74 68 20  |     int length |
00000550  74 6f 20 70 61 64 20 74  6f 0a 0a 20 20 20 20 20  |to pad to..     |
00000560  20 20 3c 3d 0a 20 20 20  20 20 20 20 20 20 73 74  |  <=.         st|
00000570  72 20 74 72 61 6e 73 66  6f 72 6d 65 64 20 73 74  |r transformed st|
00000580  72 69 6e 67 0a 0a 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |ring..----------|
00000590  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
000005b0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 0a 0a  |--------------..|
000005c0  46 4e 73 68 65 6c 6c 5f  53 74 72 69 6e 67 53 74  |FNshell_StringSt|
000005d0  72 69 70 41 6c 6c 28 29  0a 50 61 72 61 6d 73 20  |ripAll().Params |
000005e0  3d 3e 0a 20 20 20 20 20  20 20 20 20 73 74 72 20  |=>.         str |
000005f0  73 6f 75 72 63 65 20 73  74 72 69 6e 67 0a 20 20  |source string.  |
00000600  20 20 20 20 20 20 20 73  74 72 20 63 68 61 72 61  |       str chara|
00000610  63 74 65 72 20 74 6f 20  73 74 72 69 70 0a 0a 20  |cter to strip.. |
00000620  20 20 20 20 20 20 3c 3d  0a 20 20 20 20 20 20 20  |      <=.       |
00000630  20 20 73 74 72 20 74 72  61 6e 73 66 6f 72 6d 65  |  str transforme|
00000640  64 20 73 74 72 69 6e 67  0a 0a 2d 2d 2d 2d 2d 2d  |d string..------|
00000650  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000680  2d 2d 0a 0a 46 4e 73 68  65 6c 6c 5f 53 74 72 69  |--..FNshell_Stri|
00000690  6e 67 53 74 72 69 70 4c  65 61 64 69 6e 67 28 29  |ngStripLeading()|
000006a0  0a 50 61 72 61 6d 73 20  3d 3e 0a 20 20 20 20 20  |.Params =>.     |
000006b0  20 20 20 20 73 74 72 20  73 6f 75 72 63 65 20 73  |    str source s|
000006c0  74 72 69 6e 67 0a 20 20  20 20 20 20 20 20 20 73  |tring.         s|
000006d0  74 72 20 63 68 61 72 61  63 74 65 72 20 74 6f 20  |tr character to |
000006e0  73 74 72 69 70 0a 0a 20  20 20 20 20 20 20 3c 3d  |strip..       <=|
000006f0  0a 20 20 20 20 20 20 20  20 20 73 74 72 20 74 72  |.         str tr|
00000700  61 6e 73 66 6f 72 6d 65  64 20 73 74 72 69 6e 67  |ansformed string|
00000710  0a 0a 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |..--------------|
00000720  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000740  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 0a 0a 46 4e 73 68  |----------..FNsh|
00000750  65 6c 6c 5f 53 74 72 69  6e 67 53 74 72 69 70 54  |ell_StringStripT|
00000760  72 61 69 6c 69 6e 67 28  29 0a 50 61 72 61 6d 73  |railing().Params|
00000770  20 3d 3e 0a 20 20 20 20  20 20 20 20 20 73 74 72  | =>.         str|
00000780  20 73 6f 75 72 63 65 20  73 74 72 69 6e 67 20 20  | source string  |
00000790  20 20 20 20 20 20 0a 20  20 20 20 20 20 20 20 20  |      .         |
000007a0  73 74 72 20 63 68 61 72  61 63 74 65 72 20 74 6f  |str character to|
000007b0  20 73 74 72 69 70 0a 0a  20 20 20 20 20 20 20 3c  | strip..       <|
000007c0  3d 0a 20 20 20 20 20 20  20 20 20 73 74 72 20 74  |=.         str t|
000007d0  72 61 6e 73 66 6f 72 6d  65 64 20 73 74 72 69 6e  |ransformed strin|
000007e0  67 0a 0a 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |g..-------------|
000007f0  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 2d 2d 2d 2d 2d  |----------------|
*
00000810  2d 2d 2d 2d 2d 2d 2d 2d  2d 2d 2d 0a              |-----------.|
0000081c