home *** CD-ROM | disk | FTP | other *** search
/ Programmer's ROM - The Computer Language Library / programmersrom.iso / ada / edit / wp.abs < prev    next >
Encoding:
Text File  |  1988-05-03  |  3.9 KB  |  69 lines
  1. package WORD_PROCESSOR is -- a tool for creating, modifying, and formatting
  2. -- ASCII text files.  This package contains an editor and a text formatter 
  3. -- which are for use by the general user.  It also contains a utility for 
  4. -- defining the help screens which are available to the general user as 
  5. -- well as a utility for defining new type fonts.  
  6.   
  7.   procedure TEXT_EDITOR(SOURCE_FILE     : in  ASCII_TEXT_FILE_NAME:= NO_FILE ;
  8.                         DESTINATION_FILE: out ASCII_TEXT_FILE_NAME:= NO_FILE );
  9.   -- This tool allows a SOURCE_FILE to be edited.  Either file name may
  10.   -- be empty, in which case the editor will prompt for the input file
  11.   -- and give standard output file options.
  12.   
  13.   procedure TEXT_FORMATTER(SOURCE_FILE : in ASCII_TEXT_FILE_NAME := NO_FILE ;
  14.                            DESTINATION_FILE : out DEVICE_OR_FILE_TYPE  
  15.                                                    := DEFAULT_PRINTER      ;
  16.                            STARTING_ENVIRONMENT : in FORMATTER_ENVIRONMENT
  17.                                                    := DEFAULT_ENVIRONMENT ) ;
  18.   -- This tool formats the SOURCE_FILE according to the default format
  19.   -- and imbedded formatting commands.  The output is sent to the destination
  20.   -- device or file.  
  21.   
  22.   procedure DEFINE_HELP_FILE(SOURCE_FILE     : in ASCII_TEXT_FILE_NAME ;
  23.                              DESTINATION_FILE: out FILE_NAME );
  24.   -- This tool processes a help file in ASCII format to a format allowing
  25.   -- fast access to each of the various help screens.  It is for use by
  26.   -- the systems's manager to modify user help information to his 
  27.   -- particular audience.
  28.   
  29.   procedure ADD_TYPE_FONT( NEW_TYPE_FONT_FILE : in ASCII_TEXT_FILE_NAME ;
  30.                            FONT_FILE          : in out FILE_NAME );
  31.   -- This tool addes new type font definitions to the text formatter's 
  32.   -- font table.  It is for use by the system's manager to define new
  33.   -- fonts when new device capabilities are added at a site.  
  34.   
  35.   package TITLE_PAGE is new TITLE_PAGE_PACKAGE
  36.           (DEVELOPING_ORGANIZATION => 
  37.                             "Science Applications International Corporation" ,
  38.            AUTHOR                  => "Robert S. Cymbalski & Sally A. Graeff",
  39.            CONTACT                 => "Robert S. Cymbalski",
  40.            ADDRESS                 => ("Energy Systems Group",
  41.                                        "Clearwater Division",
  42.                                        "Ada Software Project Team",
  43.                                        "2280 Highway 19 North, Suite 120",
  44.                                        "Clearwater, Florida  33575"),
  45.            PHONE                   => (813,799,0663),
  46.            DATE_SUBMITTED          => (05,Dec,1984));
  47.   package EDITOR_TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  48.           (LINES_OF_SOURCE_CODE    => 10000,
  49.            DEVELOPMENT_COMPILER    => (UNVALIDATED_TELESOFT),
  50.            PLANNED_COMPILERS_SUPPORTED => (DECVAX),
  51.            AUXILLIARY_FILES_SIZE   => 0 );
  52.            
  53.   package EDITOR_DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  54.           (COMPLETED_EVENTS        => ((PDR,(15,NOV,1984)),
  55.                                        (FIRST_BUILT,(28,NOV,1984))),
  56.            SCHEDULED_EVENTS        => (DELIVER,(15,APR,1985)));
  57.   package FORMATTER_TECHNICAL_PARAMETERS is new TECHNICAL_PARAMETERS_PACKAGE
  58.           (LINES_OF_SOURCE_CODE    => 10000,
  59.            DEVELOPMENT_COMPILER    => (UNVALIDATED_TELESOFT),
  60.            PLANNED_COMPILERS_SUPPORTED => (DECVAX),
  61.            AUXILLIARY_FILES_SIZE   => 0 );
  62.            
  63.   package FORMATTER_DEVELOPMENT_SCHEDULE_AND_STATUS is new SCHEDULE_PACKAGE
  64.           (COMPLETED_EVENTS        => NONE,
  65.            SCHEDULED_EVENTS        => ((PDR,(15,JAN,1985)),
  66.                                       (FIRST_BUILT,(30,JAN,1985)), 
  67.                                       (DELIVER,(15,JUN,1985)));
  68. end WORD_PROCESSOR ;
  69.