DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400

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

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download

⟦ac176a298⟧ Ada Source

    Length: 10240 (0x2800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Help_Text, seg_02120a

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

E3 Source Code



package Help_Text is

    Assembly : constant String :=
       "This switch allows the user to control " &
          "the amount of compilation information " &
          "that is generated in a compiler listing. " &
          "The valid options for this " &
          "switch are (CODE, MAP, ALL, NONE). " &
          "[ASSEMBLY=CODE - Include compiled " &
          "object code in the compilation listing, " &
          "in both assembly-language and hexadecimal forms]. " &
          "[ASSEMBLY=MAP - Include a (relocatable) memory map in the " &
          "compilation listing showing the position of data objects]. " &
          "[ASSEMBLY=ALL - Include information as for both CODE and MAP]. " &
          "[ASSEMBLY=NONE - Do not list any object code " &
          "or map information]. " &  
          "(DEFAULT => NONE)";

    Checks : constant String :=
       "This switch lets you specify whether or not " &
          "you want to have all the execution " &
          "checks requested by Ada to be included in the object code. " &
          "The valid options for this switch are (ALL, STACK, NONE). " &
          "[CHECKS=ALL - All run time checks are performed]. " &
          "[CHECKS=STACK - Suppress Ada checks, " &
          "but leave stack overflow checks enabled]. " &
          "[CHECKS=NONE - No checking will be performed]. " &
          "NOTE : Checks can also be individually " &
          "suppressed by using the pragma SUPPRESS. " &  
          "(DEFAULT => NONE)";

    Data : constant String :=
       "This switch controls the presence of map information " &
          "from the Binder and Linker. " &
          "The valid options for this switch are (BIND, LINK, ALL, NONE). " &
          "[DATA=BIND] - a map is written by the Binder. " &
          "[DATA=LINK] - a map is written by the Linker. " &
          "[DATA=ALL] - the map includes information from both " &
          "the Binder and Linker. " &  
          "(DEFAULT => NONE)";

    Expressions : constant String :=
       "Part of the compiler optimizer that lets you " &
          "control the actions of the high level " &
          "optimizer to obtain a smaller and/or faster program. " &
          "The valid options for this switch " &
          "are (NONE, PARTIAL, EXTENSIVE). " &
          "[EXPRESSIONS=NONE - No low level optimization is performed]. " &
          "[EXPRESSIONS=PARTIAL - Common subexpressions are eliminated]. " &
          "[EXPRESSIONS=EXTENSIVE - Currently, EXTENSIVE and PARTIAL " &
          "code improvements are the same]. " &  
          "(DEFAULT => NONE)";

    Family_Name : constant String :=
       "Contains a string which can be set by the user " &
          "to a remote Unix directory name. " &
          "If this switch value is non-null, its value will be used " &
          "as the view's remote Alsys family directory. " &
          "Otherwise the view's family directory name will be " &
          "extracted from its Remote_Directory name. " &  
          "(DEFAULT => null)";

    Get_Binder_List : constant String :=
       "If TRUE, return the Binder listing ('remote_file.map') to the host " &  
          "after a Link. (DEFAULT => TRUE)";

    Get_Comp_List : constant String :=
       "If TRUE, return the compilation listing ('remote_file.lis') to the " &  
          "host after a Compile. (DEFAULT => TRUE)";

    Get_Cui_File : constant String :=
       "If TRUE, return the cui file ('remote_file.cui') to the host " &
          "after a Link. (DEFAULT => FALSE)";

    Get_Executable : constant String :=
       "If TRUE, return the Executable file ('remote_file', with no " &
          "extension) to the host after a Link. " &  
          "(DEFAULT => FALSE)";

    Get_Lnk_File : constant String :=
       "If TRUE, return the lnk file ('remote_file.lnk') to the host " &
          "after a Link. (DEFAULT => FALSE)";

    History : constant String :=
       "If 'YES', provide a dynamic trace of subprogram calls " &
          "for use when an unhandled " &
          "exception is propagated out of the main program (HISTORY=YES). " &
          "If 'NO', no dynamic error trace will be generated (HISTORY=NO). " &  
          "(DEFAULT => YES)";

    Improve_Calls : constant String :=
       "Part of the compiler optimizer that lets you " &
          "control the actions of the high level " &
          "optimizer to obtain a smaller and/or faster program. " &
          "If set to INLINED, allow inline insertions " &
          "of code for subprograms (CALLS=INLINED). " &
          "Calls will be inlined if subprograms are not recursive. " &
          "The compiler will also put some other subprograms inline " &
          "(for example, subprograms that are only called once). " &
          "If set to NORMAL, use the normal mode for subprogram calls " &
          "(CALLS=NORMAL). " &  
          "NOTE : This switch has to be set to INLINED for the " &
          "pragma Inline to be operative. " &  
          "(DEFAULT => NORMAL)";

    Increment : constant String :=
       "The amount by which the heap is increased. " &  
          "(DEFAULT => 4)";

    Keep_Debug : constant String :=
       "If 'YES', indicates that the compiler and the linker should " &
          "generate and save AdaProbe information (DEBUG=YES). " &  
          "If 'NO', AdaProbe information will not be generated (DEBUG=NO). " &
          "(DEFAULT => NO)";

    Main : constant String :=
       "Specifies the size for the main program stack. " &  
          "(DEFAULT => 96)";

    Memory : constant String :=
       "The number of internal buffers shared by the " &
          "compiler virtual memory, in K bytes. " &
          "Usually, this value should not be changed, " &
          "but if you have a lot of VDISK memory, " &
          "you might want to use more buffers to speed up compilation. " &
          "If the compiler reports 'STORAGE_ERROR' during compilation, " &
          "you might want to lower this number. " &  
          "(DEFAULT => 500)";

    Reduction : constant String :=
       "Part of the compiler optimizer that lets you " &
          "control the actions of the high level " &
          "optimizer to obtain a smaller and/or faster program. " &
          "The valid options for this switch " &
          "are (NONE, PARTIAL, EXTENSIVE). " &
          "[REDUCTION=NONE - No action is taken with reference " &
          "to the optimization of checks or loops]. " &
          "[REDUCTION=PARTIAL - An analysis is performed, " &
          "numerous run time checks are eliminated, " &
          "and extensive dead code removal takes place]. " &
          "[REDUCTION=EXTENSIVE - All the optimization " &
          "implied in PARTIAL is performed, " &
          "plus a more extensive optimization for loops]. " &
          "(DEFAULT => NONE)";

    Show : constant String :=
       "Used to control what goes into the compilation listing. " &
          "The valid options for this switch are " &
          "(BANNER, RECAP, ALL, NONE). " &
          "[SHOW=BANNER - Print a header atop each page of the listing]. " &
          "[SHOW=RECAP - Include an error summary " &
          "at the end of the listing]. " &
          "[SHOW=ALL - Include both page headers and an error summary]. " &
          "[SHOW=NONE - Include neither headers nor an error summary]. " &
          "(DEFAULT => ALL)";

    Size : constant String := "Used to control the initial size of the heap. " &  
                                 "(DEFAULT => 32)";

    Stack : constant String :=
       "This switch gives the user control over data allocation. " &
          "The actual value specifies the limit " &
          "for local objects into the heap. " &  
          "(DEFAULT => 1024)";

    Taskk : constant String :=
       "Specifies the sizes for the main program stack " &
          "and for the stacks of all explicit Ada tasks. " &  
          "(DEFAULT => 1)";

    Text : constant String :=
       "If 'YES', include the full source text in the " &
          "compilation listing (TEXT=YES). " &
          "If 'NO', include in the listing only source text for " &
          "lines containing errors (TEXT=NO). " &  
          "(DEFAULT => YES";

end Help_Text;

E3 Meta Data

    nblk1=9
    nid=0
    hdr6=12
        [0x00] rec0=17 rec1=00 rec2=01 rec3=004
        [0x01] rec0=12 rec1=00 rec2=02 rec3=016
        [0x02] rec0=13 rec1=00 rec2=03 rec3=07e
        [0x03] rec0=19 rec1=00 rec2=04 rec3=020
        [0x04] rec0=12 rec1=00 rec2=05 rec3=022
        [0x05] rec0=17 rec1=00 rec2=06 rec3=074
        [0x06] rec0=13 rec1=00 rec2=07 rec3=02c
        [0x07] rec0=17 rec1=00 rec2=08 rec3=014
        [0x08] rec0=0c rec1=00 rec2=09 rec3=000
    tail 0x2151cb084838d6b5d9f37 0x42a00088462065003