DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: T V

⟦15f9cdeec⟧ TextFile

    Length: 2297 (0x8f9)
    Types: TextFile
    Names: »V«

Derivation

└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
    └─⟦5cb1d1d7f⟧ »DATA« 
        └─⟦3b1ee7bd8⟧ 
            └─⟦this⟧

TextFile

package Character_Utilities is

    subtype Control_Character is Character range Ascii.Nul .. Ascii.Us;
    subtype Graphic_Character is Character range ' ' .. '~';
    subtype Uppercase_Character is Character range 'A' .. 'Z';
    subtype Lowercase_Character is Character range 'a' .. 'z';
    subtype Digit_Character is Character range '0' .. '9';
    subtype Digit is Integer range 0 .. 15;
    subtype Letter is Integer range 1 .. 26;

    procedure Make_Uppercase (The_Character : in out Character);
    procedure Make_Lowercase (The_Character : in out Character);

    function Uppercase (The_Character : in Character) return Character;
    function Lowercase (The_Character : in Character) return Character;
    function Is_Control (The_Character : in Character) return Boolean;
    function Is_Graphic (The_Character : in Character) return Boolean;
    function Is_Uppercase (The_Character : in Character) return Boolean;
    function Is_Lowercase (The_Character : in Character) return Boolean;
    function Is_Digit (The_Character : in Character) return Boolean;
    function Is_Alphabetic (The_Character : in Character) return Boolean;
    function Is_Alphanumeric (The_Character : in Character) return Boolean;
    function Is_Special (The_Character : in Character) return Boolean;
    function Value_Of (The_Character : in Character) return Digit;
    function Image_Of (The_Digit : in Digit) return Character;
    function Index_Of (The_Character : in Character) return Letter;
    function Uppercase_Of (The_Letter : in Letter) return Character;
    function Lowercase_Of (The_Letter : in Letter) return Character;
    function Is_Equal (Left : in Character;
                       Right : in Character;
                       Case_Sensitive : in Boolean := True)  
                      return Boolean;
    function Is_Less_Than (Left : in Character;
                           Right : in Character;
                           Case_Sensitive : in Boolean := True)  
                          return Boolean;
    function Is_Greater_Than (Left : in Character;
                              Right : in Character;
                              Case_Sensitive : in Boolean := True)  
                             return Boolean;

    Lexical_Error : exception;

end Character_Utilities;