|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Form, seg_00467a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
--| @SUMMARY This package provides an abstraction to define, display, and --| parse forms. Thr form can be displayed in a window_io window with users --| responses returned in an iterator. --| @INDICES (Window_Io) with Fonts; with Window_Io; with Unbounded_String; package Form is subtype Window_Type is Window_Io.File_Type; type Form_Definition is private; function Make return Form_Definition; --| @DESCRIPTION Returns an unaliased copy of a form definition. function Copy (Form : Form_Definition) return Form_Definition; subtype Item_Name is String; --| @DESCRIPTION Adds an new item to a form definition with the --| specified prompt. Note that the prompts font and kind can be --| specified. --| procedure Add (Item : Item_Name; Prompt : String; Prompt_Font : Window_Io.Font := Fonts.Inverse_Bold; Prompt_Kind : Window_Io.Designation := Window_Io.Prompt; To_Form : in out Form_Definition); --| @DESCRIPTION Replaces the prompt specification for a named item --| This is useful when configuring a form for re-display after and --| error has been found in the response. --| --| @PARAMETERS New_Prompt If the New_Prompt is defaulted to "", --| the old prompt is unchanged. --| @RAISES (Item_Not_Found) procedure Modify_Prompt (For_Item : Item_Name; New_Prompt : String := ""; Prompt_Font : Window_Io.Font := Fonts.Inverse_Bold; Prompt_Kind : Window_Io.Designation := Window_Io.Prompt; In_Form : in out Form_Definition); type Modification_Iterator is private; --| @DESCRIPTION Erases the an open Form_Output window and displays the --| form. If Wait_For_Editing is True, an iterator of user responses is --| returned. If "Wait_For_Editing" is False, the form is displayed --| only and a done iterator is returned. --| --| @PARAMETERS Blank_Lines allows the client to specify the number --| of blank lines between form entries procedure Create (Form_Output : Window_Io.File_Type; Form_Input : Window_Io.File_Type; Definition : Form_Definition; The_Form : out Modification_Iterator; Blank_Lines : Natural := 0; Wait_For_User_Editing : Boolean := False); --| @DESCRIPTION Coverts the response to a form_definition for re-display --| after errors are found function Convert (Mods_Iter : Modification_Iterator) return Form_Definition; type Modification_Information is private; procedure Next (Iter : in out Modification_Iterator); function Done (Iter : Modification_Iterator) return Boolean; function Value (Iter : Modification_Iterator) return Modification_Information; --| @DESCRIPTION Returns the string image of the current form item function Item_Image (Mod_Info : Modification_Information) return String; --| @DESCRIPTION Returns the text typed by the user for the corresponding --| item. function Response (Mod_Info : Modification_Information) return String; --| @DESCRIPTION Returns true if no reponse was offered by the user. function Empty (Mod_Info : Modification_Information) return Boolean; --| @DESCRIPTION Indicates that the form as edited by the user could --| not be parsed. Unable_To_Parse_Response : exception; --| @DESCRIPTION Indicates that the item is not included in the --| current Form_Definition Item_Not_Found : exception; private Item_Size : constant := 80; package Unbounded is new Unbounded_String (Item_Size); subtype Item_String is Unbounded.Variable_String; type Form_Item; type Form_Definition is access Form_Item; type Form_Item is record Name : Item_String; Prompt : Item_String; Prompt_Font : Window_Io.Font; Prompt_Kind : Window_Io.Designation; Next_Item : Form_Definition; end record; type Modification_Information is new Form_Item; type Modification_Iterator is new Form_Definition; end Form;
nblk1=5 nid=0 hdr6=a [0x00] rec0=1d rec1=00 rec2=01 rec3=06e [0x01] rec0=15 rec1=00 rec2=02 rec3=054 [0x02] rec0=13 rec1=00 rec2=03 rec3=084 [0x03] rec0=1c rec1=00 rec2=04 rec3=02a [0x04] rec0=14 rec1=00 rec2=05 rec3=000 tail 0x2150045f8815c667af390 0x42a00088462061e03