|
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: 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⟧
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