import  Type.Text

The Type.Text class has a bunch of type declarations used throughout the Basis library.

Global Variables

Bell   |= '^G',         Ding (7)
Bs     |= '^H',         Back space (8)
Tab    |= '^I',         horizontal tab (9).
Lf     |= '^J',         line feed (10).
Ff     |= '^K',         form feed (11).
Cr     |= '^M',         Carriage return (13)
Esc    |= '^[',         Escape (27 #1B)
Del    |= '^127'        Delete (#7F)

                        Return codes from the I/O Status function
Eol    |= '^J'          Sequential in at a new line   10 = line feed
Eof    |= '^K'          Sequential or direct at eof   11 = form feed
Peof   |= '^L'          Sequential or direct at peof  12 = #C
In     |= '^M'          Open for sequential input     13 = return
Out    |= '^N'          Open for sequential output    14 = #E
Direct |= '^O'          Open for direct access        15 = #F

Procedure Declarations To Manipulate Strings

First.String(  Text string, Pattern=" " string )  ==>  Index word
Last.String(   Text string, Pattern=" " string )  ==>  Index word
Prefix.Index(  Text string, Prefix string )       ==>  Index word
Non.Printable( Text string )                      ==>  Index word

Pad.Left(   Text string, Width word )     ==>  Padded string
Pad.Right(  Text string, Width word )     ==>  Padded string
Has.Prefix( Text string, Prefix string )  ==>  Match Bit
Has.Suffix( Text string, Suffix string )  ==>  Match Bit

APPEND.SUFFIX   change Text string, entry Suffix string  pure
APPEND.TAIL     change Text string, entry Suffix string  pure

Find.Prefix.String( Text string, Delimiter=" " string )  ==>  Prefix string
Find.Suffix.String( Text string, Delimiter=" " string )  ==>  Suffix string
Trim.Prefix.String( Text string, Delimiter string )      ==>  Tail   string
Trim.Suffix.String( Text string, Delimiter string )      ==>  Front  string

TRIM.LEAD         change Text string, entry Prefix string  pure
TRIM.LEAD.SPACE   change Text string  pure
Trim.Lead.Blank( Text string )  ==>  Trimmed string

TRIM.TAIL         change Text string, entry Pattern=" " string  pure
TRIM.TAIL.SPACE   change Text string  pure
Trim.Tail.Blank( Text string )  ==>  Trimmed string

TRIM.OUTER        change Text string, entry Pattern=" " string  pure
TRIM.OUTER.SPACE  change Text string  pure
Trim.Outer.Blank( Text string )  ==>  Trimmed string

Proper( Symbol string )  ==>  Proper string
INSERT  change Text string, entry Index word, entry Insert string  Pure
DELETE  change Text string, entry Index word, entry Width=1  word  Pure

Is.Alpha(        Text string )  ==>  Pass Bit
Is.Alphanumeric( Text string )  ==>  Pass Bit
Is.Hexadecimal(  Text string )  ==>  Pass Bit
Is.Printable(    Text string )  ==>  Pass Bit

Detab( Text string, Stop=3 byte )  ==>  Detab  string
Extab( Text string, Stop=3 byte )  ==>  Extab  string
Merge.Blank(  Text string )        ==>  Merged string
RETAB  change Text string, Stop=3 byte

Quote( Text string, Quote='"' byte, Program=0 Bit )  ==>  Quoted string
UNQUOTE  change Text string, exit Tail string
UNQUOTE.PURE  entry Quoted string, exit Unquoted string
PARSE.QUOTE   entry Text string, change Index word, exit Quote string  pure

SPLIT.QUOTE.LEFT   change Text string,  exit Left  string, entry C=' ' byte  pure
SPLIT.QUOTE.RIGHT  change Text string,  exit Right string, entry C=' ' byte  pure

REPLACE.ALL     change Text string, entry From string, To string  pure
REPLACE.FIRST   change Text string, entry From string, To string  pure
REPLACE.CH.QUOTE   change Text string, entry C=' ' byte, Fill="" string

Procedure Declarations To Manipulate Characters

First.Character( Text string, Character=' ' byte, From=0 word )  ==>  Index word
Last.Character(  Text string, Character=' ' byte, From=0 word )  ==>  Index word

First.Character.Set( Text string, Set string, From=0 word )  ==>  Index word
Last.Character.Set(  Text string, Set string, From=0 word )  ==>  Index word

Trim.Prefix( Text string, Delimiter=' ' byte )  ==>  Tail   string
Trim.Suffix( Text string, Delimiter=' ' byte )  ==>  Left   string
Find.Prefix( Text string, Delimiter=' ' byte )  ==>  Prefix string
Find.Suffix( Text string, Delimiter=' ' byte )  ==>  Suffix string

SPLIT.PREFIX  change Text string, entry C byte, exit Prefix string
SPLIT.SUFFIX  change Text string, entry C byte, exit Suffix string

Split.Character( entry Text string, Delimiter byte )  >>>  Segment string
Split.Blank(     entry Text string, Delimiter byte )  >>>  Segment string
Split.Quote(     entry Text string, Split = 0 byte )  >>>  Segment string

Find.Character(  entry Text string, Character byte )  >>>  Index word
Find.Character.Set( entry Text string, Set  string )  >>>  Index word
List.Quote( entry Text string, Delimiter=0  byte )    >>>  Item  string

Is.Alpha(        C byte )  ==>  Pass Bit
Is.Alphanumeric( C byte )  ==>  Pass Bit
Is.Hexadecimal(  C byte )  ==>  Pass Bit
Is.Printable(    C byte )  ==>  Pass Bit

Skip.Alpha( Text string, From=1 word )  ==>  Index word
Non.Space(  Text string, From=1 word )  ==>  Index word
Non.Blank(  Text string, From=1 word )  ==>  Index word
Non.Printable( Text string )            ==>  Index word

Form.Space( Count=1 parcel )  ==>  Text string
Replace.Character( Text string, From byte, To="" string )  ==>  Replaced string
First.Mismatch( Text string, Character=' ' byte, From=0 word )  ==>  Suffix string

Is.Left.Right( Left byte, Right byte )  ==>  Match Bit
ASSERT.LEFT.RIGHT  Left byte, Right byte