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 - metrics - download

⟦13b70b4f8⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Rpc_Conventions, package body Rpc_Io, seg_020bd1

Derivation

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

with Unbounded_String;
with String_Utilities;
with Rpc_Names;
with Interface_Analysis;
with Standard_Ada_Io;
with Declarations;
with Ada_Program;
with Type_Information;
with Lrm_Renames;
use Lrm_Renames;
package body Rpc_Io is

    package Unbounded is new Unbounded_String (128);
    package Ada_Io renames Standard_Ada_Io;

    package Rpc_Conventions is
        function Is_Constrained (Type_Decl : Ada.Element) return Boolean;

        function Is_Predefined (Type_Decl : Ada.Element) return Boolean;

        function Is_Duration (Type_Decl : Ada.Element) return Boolean;
        type Interchange_Kind is (Put, Get);

        function Return_Name (Type_Decl : Ada.Declaration) return String;

        function Formal_Name (Iter : Analysis.Parameter_Iterator) return String;
        function Type_Name   (Iter : Analysis.Parameter_Iterator) return String;
        function Mode        (Iter : Analysis.Parameter_Iterator) return String;

        function Predefined_Interchange_Conversion
                    (Type_Decl : Ada.Element) return String;

        function Make_Interchange_Call (Data_Name : String;
                                        Data_Conversion : String;
                                        Stream_Name : String := "Stream";
                                        Root_Name : String;
                                        Data_Type : Ada.Element;
                                        Kind : Interchange_Kind) return String;
    end Rpc_Conventions;

    package Subprograms is
       new Ada_Io.Subprograms
              (Id_Iterator        => Analysis.Id_Iterator,
               Parameter_Iterator => Analysis.Parameter_Iterator,
               Done               => Analysis.Done,
               Next               => Analysis.Next,
               Formal_Names       => Analysis.Names,
               Formal_Name        => Rpc_Conventions.Formal_Name,
               Type_Name          => Rpc_Conventions.Type_Name,
               Mode               => Rpc_Conventions.Mode,
               Initial_Value      => Analysis.Initial_Expression,
               Ids_Done           => Analysis.Done,
               Name               => Analysis.Name,
               Ids_Next           => Analysis.Next,
               Ids_Initial_Value  => Analysis.Name);

    package body Rpc_Conventions is separate;

    procedure Build_Defs_Package (From_Db         : Analysis.Database;
                                  Named_With_Root : String;
                                  In_File         : Io.File_Type) is separate;

    procedure Build_Server_Package_Spec (From_Db : Analysis.Database;
                                         Named_With_Root : String;
                                         In_File : Io.File_Type) is separate;

    procedure Build_Server_Package_Body (From_Db : Analysis.Database;
                                         Named_With_Root : String;
                                         In_File : Io.File_Type) is separate;

    procedure Build_Local_Package_Body (From_Db : Analysis.Database;
                                        Named_With_Root : String;
                                        In_File : Io.File_Type) is separate;

    procedure Build_Interchange_Package_Spec
                 (From_Db         : Analysis.Database;
                  Named_With_Root : String;
                  In_File         : Io.File_Type) is separate;

    procedure Build_Interchange_Package_Body
                 (From_Db         : Analysis.Database;
                  Named_With_Root : String;
                  In_File         : Io.File_Type) is separate;

end Rpc_Io;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1f rec1=00 rec2=01 rec3=01c
        [0x01] rec0=00 rec1=00 rec2=05 rec3=012
        [0x02] rec0=13 rec1=00 rec2=02 rec3=06a
        [0x03] rec0=14 rec1=00 rec2=03 rec3=028
        [0x04] rec0=11 rec1=00 rec2=04 rec3=000
    tail 0x2171d3070838d456072a2 0x42a00088462061e03