DataMuseum.dk

top - download

    Length: 2660 (0xa64)
    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« 
        └─⟦1b73b4810⟧ 
            └─⟦this⟧ 

TextFile

package order_array is

procedure make(a_place : in string;basic_order : in order.object);
procedure show;
procedure init;
procedure next;
function value return an_order;
function  done return boolean;
end;

with text_io,order,group_identifier_array;
package body order_array is

max_element : constant positive 32;
position : positive;

the_array : array(1..max_element) of order.objetc;

procedure make(basic_order : in order.object) is

begin
the_array(1):=basic_order;

the_array(2):=basic_order;
order.put_first_complement(the_array(2),complement_array.group(basic_order(2));
the_array(3):=basic_order;
order.put_second_complement(the_array(3),complement_array.group(basic_order(3);
the_array(4):=basic_order;
order.put_third_complement(the_array(4),complement_array.group(basic_order(4);
the_array(5):=basic_order;
order.put_fourth_complement(the_array(5),complement_array.group(basic_order(5);

the_array(6):=the_array(2);
order.put_second_complement(the_array(6),complement_array.group(basic_order(3));
the_array(7):=the_array(2);
order.put_third_complement(the_array(7),complement_array.group(basic_order(4));
the_array(8):=the_array(2);
order.put_fourth_complement(the_array(8),complement_array.group(basic_order(5));

the_array(9):=the_array(3);
order.put_third_complement(the_array(9),complement_array.group(basic_order(4));
the_array(10):=the_array(3);
order.put_fourth_complement(the_array(10),complement_array.group(basic_order(5));

the_array(11):=the_array(4);
order.put_fourth_complement(the_array(11),complement_array.group(basic_order(5));


the_array(12):=the_array(6);
order.put_third_complement(the_array(12),complement_array.group(basic_order(4));
the_array(13):=the_array(6);
order.put_fourth_complement(the_array(13),complement_array.group(basic_order(5));

the_array(14):=the_array(9);
order.put_fourth_complement(the_array(14),complement_array.group(basic_order(5));

the_array(15):=the_array(11);
order.put_fourth_complement(the_array(15),complement_array.group(basic_order(1));

the_array(16):=the_array(15);
order.put_fourth_complement(the_array(16),complement_array.group(basic_order(3));

for i in 1..max_element/2 loop
  order.put_place(the_array(i),"global");
  the_array(i+max_element):=the_array(i);
end loop;

end;

procedure show is

begin
	text_io.put_line("Order Array :");
        for i in 1..max_element loop
	order.show(the_array(i));
        end loop;
end;

procedure init is

begin
     position:=1
end;

procedure next is

begin
position:=position+1;
end;

function value return an_order is

begin
  return the_array(position);
end;

function done return boolean is

begin
  return position=max_element;
end;

end