DataMuseum.dk

top - download

    Length: 1150 (0x47e)
    Types: TextFile
    Notes: R1k Text-file segment

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

TextFile

with Text_io;\r
\r
package body Boxes is\r
\r
	function Equal(B1 : in Box; B2 : in Box) return Boolean is\r
	begin\r
		if (B1.Type = B2.Type) and (Bounded_String.Image(B1.Id) = Bounded_String.Image(B2.Id)) and Values.Equal(B1,B2) and B1.Acc = B2.Acc then\r
			return True;\r
		else\r
			return False;\r
	end Equal;\r
\r
	procedure Dispose(B : in out Box) is\r
	begin	\r
		B.Type := Undef;\r
		Bounded_String.Free(B.Id);\r
		Values.Dispose(B.Val);\r
		B.Acc := null;\r
	end Dispose;\r
\r
	procedure Reset(B : in out Box) is\r
	begin\r
		B.Type := Undef;\r
		Bounded_String.Free(B.Id);\r
		Values.Undefine(B.Val);\r
		B.Acc := null;\r
	end Reset;\r
\r
	procedure Copy(To_Box : int out Box; The_Box : in Box) is\r
	begin\r
		To_Box.Type := The_Box.Type;\r
		Bounded_String.Copy(To_Box,The_Box)\r
		Values.Copy(To_Box,The_Box);\r
		To_Box.Acc := The_Box.Acc;\r
	end Copy;\r
\r
	procedure Image(B : in Box) is\r
	begin\r
		put_line("--------------------------------------------");\r
		put_line("Type	:",Kind_Of_Enum'Image(B.Type));\r
		put_line("Id	:",Bounded_String.Image(B.Id));\r
		put_line("Val	:",Values'Image(B.Val));\r
		put_line("Acc	:",pIt_List'Image(B.Acc));\r
	end Image;\r
		\r
end Boxes;