Scan tokens from strings
Date/Time of Processing: Tuesday 24 May 1994 01:50:23Pm Overall Assessment of System: OK Classification of System: B Basis of Classification -- Syntax Errors PASS Completeness PASS Independence from External Libraries FAIL Independence from a Specific Ada Compiler PASS Explanations for failures -- System withs non-standard library units that are not provided Number of ... Files 2 Library Units 2 Lines 3247 Statements 838 Comments 903 Unidentified Withed Units -- 3 unidentified withed units
languages/ada/asr/new-abstractions/sutils: File Name Size --------- ---- sutils.zip 10,462 Totals ============== ============== 1 Files 10,462
This package provides a set of functions used to scan tokens from strings. After the function Make_Scanner is called to convert a string into a string Scanner, the following functions may be called to scan various tokens from the string: Make_Scanner Given a string, returns a Scanner More Returns TRUE if unscanned characters remain Forward Bump the Scanner Backward Bump back the Scanner Get Return a character Next Return a character and bump the Scanner Get_String Return Generic_String_Type in Scanner Get_Remainder Return Generic_String_Type in Scanner from index Get_Segment Return Generic_String_Type in Scanner as specified Mark Mark the current index for restore Unmark Remove the previous mark from the Scanner Restore Restore the previously marked index Position Return the current position of the Scanner Destroy_Scanner Free storage used by a Scanner Is_Word Return TRUE if Scanner is at a non-blank character Scan_Word Return sequence of non-blank characters Is_Number Return TRUE if Scanner is at a digit Scan_Number Return sequence of decimal digits Is_Signed_Number Return TRUE if Scanner is at a digit or sign Scan_Signed_Number Return sequence of decimal digits with optional sign Is_Space Return TRUE if Scanner is at a space or tab Scan_Space Return sequence of spaces or tabs Skip_Space Advance Scanner past white space Is_Ada_Id Return TRUE if Scanner is at 1st char of a possible Ada ID Scan_Ada_Id Scan Ada ID Is_Quoted Return TRUE if Scanner is at a double quote Scan_Quoted Scan quoted string, embedded quotes doubled Is_Enclosed Return TRUE if Scanner is at an enclosing char Scan_Enclosed Scan enclosed string, embedded enclosing chars doubled Is_Sequence Return TRUE if Scanner is at some char in a sequence Scan_Sequence Scan user-specified sequence of characters Is_Not_Sequence Return TRUE if Scanner is not at a char in a sequence Scan_Not_Sequence Scan non-sequence Is_Literal Return TRUE if Scanner is at a literal Scan_Literal Scan user-specified literal Is_Not_Literal Return TRUE if Scanner is not at a literal Scan_Not_Literal Scan non-literal Strip_Leading Strip leading characters from a given string Strip_Trailing Strip trailing chars from a given string Strip Strip both leading and trailing chars Left_Justify Left justify a given string Right_Justify Right justify a given string Center Center a given string Expand Fill and justify a given string Format Format a given string Image Convert an integer to a string Value Convert a string to an integer Match Return TRUE if a string matches another string NEW_ABSTRACTIONS is used by NOSC/WIS tools 4.1.1 and 4.1.2.
DATE VERSION AUTHOR HISTORY 03/85 1.0 Bill Toscano Initial Release
This prologue must be included in all copies of this software. This software is copyright by the author. This software is released to the Ada community. This software is released to the Public Domain (note: software released to the Public Domain is not subject to copyright protection). Restrictions on use or distribution: NONE
This software and its documentation are provided "AS IS" and without any expressed or implied warranties whatsoever. No warranties as to performance, merchantability, or fitness for a particular purpose exist. The user is advised to test the software thoroughly before relying on it. The user must assume the entire risk and liability of using this software. In no event shall any person or organization of people be held responsible for any direct, indirect, consequential or inconsequential damages or lost profits.