|
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: 26624 (0x6800)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Profile_Parser, seg_0263b9, seg_026d16
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦5a81ac88f⟧ »Space Info Vol 1«
└─⟦this⟧
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Profile_Parser_Defs;
with Text_Io;
package body Profile_Parser is
function Boolean_Image (Value : in Boolean) return String is
begin
return Boolean'Image (Value);
end Boolean_Image;
function Boolean_Value (Image : in String) return Boolean is
begin
return Boolean'Value (Image);
exception
when Numeric_Error =>
raise Numeric_Error;
when Constraint_Error =>
raise Constraint_Error;
when others =>
Text_Io.Put_Line
("Exception OTHERS in Profile_Parser.Boolean_value");
end Boolean_Value;
function Literal_Image (Value : in String) return String is
begin
return Value;
end Literal_Image;
function Literal_Value (Image : in String) return String is
begin
return Image;
end Literal_Value;
function Integer_Image (Value : in Integer) return String is
begin
return Integer'Image (Value);
end Integer_Image;
function Integer_Value (Image : in String) return Integer is
begin
return Integer'Value (Image);
exception
when Numeric_Error =>
raise Numeric_Error;
when Constraint_Error =>
raise Constraint_Error;
when others =>
Text_Io.Put_Line
("Exception OTHERS in Profile_Parser.Integer_value");
end Integer_Value;
end Profile_Parser;
nblk1=19
nid=2
hdr6=4
[0x00] rec0=29 rec1=00 rec2=01 rec3=006
[0x01] rec0=12 rec1=00 rec2=07 rec3=000
[0x02] rec0=13 rec1=00 rec2=13 rec3=070
[0x03] rec0=17 rec1=00 rec2=10 rec3=04e
[0x04] rec0=16 rec1=00 rec2=02 rec3=000
[0x05] rec0=1a rec1=00 rec2=12 rec3=01e
[0x06] rec0=1b rec1=00 rec2=0c rec3=036
[0x07] rec0=1a rec1=00 rec2=0b rec3=012
[0x08] rec0=29 rec1=00 rec2=18 rec3=01a
[0x09] rec0=12 rec1=00 rec2=09 rec3=050
[0x0a] rec0=15 rec1=00 rec2=15 rec3=042
[0x0b] rec0=1f rec1=00 rec2=07 rec3=004
[0x0c] rec0=17 rec1=00 rec2=10 rec3=08a
[0x0d] rec0=14 rec1=00 rec2=13 rec3=090
[0x0e] rec0=18 rec1=00 rec2=02 rec3=036
[0x0f] rec0=14 rec1=00 rec2=0f rec3=056
[0x10] rec0=1d rec1=00 rec2=11 rec3=020
[0x11] rec0=17 rec1=00 rec2=14 rec3=000
[0x12] rec0=0e rec1=00 rec2=02 rec3=03a
[0x13] rec0=17 rec1=00 rec2=0f rec3=03e
[0x14] rec0=01 rec1=00 rec2=11 rec3=03e
[0x15] rec0=1e rec1=00 rec2=14 rec3=008
[0x16] rec0=0c rec1=00 rec2=19 rec3=000
[0x17] rec0=0c rec1=00 rec2=19 rec3=000
[0x18] rec0=00 rec1=00 rec2=00 rec3=000
tail 0x215202ccc83aa4665661b 0x42a00088462063c03
Free Block Chain:
0x2: 0000 00 10 03 92 80 0a 67 69 6e 6e 69 6e 67 5f 4f 66 ┆ ginning_Of┆
0x10: 0000 00 13 03 fc 80 0d 49 6e 5f 54 68 65 5f 46 69 6c ┆ In_The_Fil┆
0x13: 0000 00 14 03 fc 80 28 20 20 20 20 20 28 53 20 28 31 ┆ ( (S (1┆
0x14: 0000 00 0f 00 ba 00 04 20 20 20 20 04 00 00 00 00 37 ┆ 7┆
0xf: 0000 00 11 03 6c 80 31 54 65 78 74 5f 49 6f 2e 50 75 ┆ l 1Text_Io.Pu┆
0x11: 0000 00 15 03 fc 80 0e 6e 67 20 28 31 20 2e 2e 20 32 ┆ ng (1 .. 2┆
0x15: 0000 00 09 02 75 80 30 20 20 20 20 20 20 20 20 20 20 ┆ u 0 ┆
0x9: 0000 00 18 02 ba 80 4a 20 20 20 20 20 20 20 20 20 20 ┆ J ┆
0x18: 0000 00 0b 03 fc 00 25 20 20 20 20 20 20 20 20 72 65 ┆ % re┆
0xb: 0000 00 0c 03 fc 80 06 65 61 6e 20 69 73 06 00 09 20 ┆ ean is ┆
0xc: 0000 00 12 03 fc 80 16 75 72 6e 20 46 72 6f 6d 20 28 ┆ urn From (┆
0x12: 0000 00 04 03 fc 80 1d 6f 6d 6d 65 6e 74 5f 50 61 74 ┆ omment_Pat┆
0x4: 0000 00 06 03 fc 80 38 69 6f 6e 20 4f 70 65 6e 20 28 ┆ 8ion Open (┆
0x6: 0000 00 0e 03 fc 80 16 20 20 3a 20 54 65 78 74 5f 49 ┆ : Text_I┆
0xe: 0000 00 0a 03 fc 80 38 20 20 20 46 69 6c 65 5f 4e 61 ┆ 8 File_Na┆
0xa: 0000 00 19 03 fc 80 03 6c 65 3b 03 00 41 20 20 20 20 ┆ le; A ┆
0x19: 0000 00 17 03 fc 80 16 20 20 3a 20 54 65 78 74 5f 49 ┆ : Text_I┆
0x17: 0000 00 0d 03 fc 80 16 66 61 75 6c 74 5f 50 72 6f 66 ┆ fault_Prof┆
0xd: 0000 00 05 03 fc 80 25 65 20 20 20 20 20 20 20 20 20 ┆ %e ┆
0x5: 0000 00 03 03 fc 80 19 62 74 79 70 65 20 4c 69 6e 65 ┆ btype Line┆
0x3: 0000 00 16 00 25 80 16 20 20 3a 20 54 65 78 74 5f 49 ┆ % : Text_I┆
0x16: 0000 00 08 01 10 80 19 6c 65 61 6e 5f 56 61 6c 75 65 ┆ lean_Value┆
0x8: 0000 00 00 00 0d 80 0a 20 20 20 20 20 20 20 20 72 65 ┆ re┆