DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ T V ┃
Length: 1295 (0x50f) Types: TextFile Names: »V«
└─⟦6c4f54b10⟧ Bits:30000747 8mm tape, Rational 1000, ACCESS 0_8_0 INTERNAL RELEASE └─ ⟦5d1d5404f⟧ »DATA« └─⟦ab9f224fa⟧ └─⟦6ac9a67ca⟧ Bits:30000548 8mm tape, Rational 1000, access 1_0_1 └─ ⟦78f173837⟧ »DATA« └─⟦687a7d38f⟧ └─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3 └─ ⟦fc9b38f02⟧ »DATA« └─⟦687a7d38f⟧ └─⟦ab9f224fa⟧ └─⟦this⟧
package Design_Implementation is procedure Complete (Include_Optional_Annotations : Boolean := False); procedure Definition (In_Place : Boolean := False; Visible : Boolean := True); procedure Enclosing (In_Place : Boolean := False); procedure Explain; procedure Format; procedure Show_Usage (In_World : String := "$$"); procedure Display_All_Targets; procedure Display_Target (For_World : String := "$$"); procedure Set_Target (To_Value : String := ">>DESIGN TARGET<<"; For_World : String := "$$"); procedure Display_All_Phases (For_World : String := "$$"); procedure Display_Phase (For_World : String := "$$"); procedure Set_Phase (To_Value : String := ">>DESIGN PHASE<<"; For_World : String := "$$"); function Current_Target_Image (For_World : String := "$$") return String; function Current_Phase_Image (For_World : String := "$$") return String; procedure Create_Model (Compiler_Model : String; Design_Facility_Model : String; New_Model_Name : String); pragma Subsystem (Design_Facility, Closed); pragma Module_Name (4, 3599); pragma Bias_Key (27); end Design_Implementation;