--/ivy/binding/ropesets/ropesetstest.mesa -- to test RopeSets -- Last edited by: Binding, August 8, 1984 9:43:46 am PDT DIRECTORY Commander USING [CommandProc, Register], Rope USING [ ROPE], RopeSets ; RopeSetsTest: CEDAR PROGRAM IMPORTS Commander, RopeSets = BEGIN OPEN RopeSets, Rope; DoIt: Commander.CommandProc = BEGIN rs, rs2: RopeSet; bool: BOOLEAN; min, max: Rope.ROPE; rover: REF RopeSetEl; bool _ IsSetEmpty[ rs]; rs _ DeleteValueFromSet[ " none", rs]; rs _ InsertValueIntoSet[ "AAA", rs]; rs _ InsertValueIntoSet[ "BBB", rs]; rs _ InsertValueIntoSet[ "CCC", rs]; rs _ InsertValueIntoSet[ "XXX", rs]; rs _ InsertValueIntoSet[ "YYY", rs]; rs _ InsertValueIntoSet[ "GGG", rs]; rs _ InsertValueIntoSet[ "DDD", rs]; rs _ InsertValueIntoSet[ "GGG", rs]; rs _ InsertValueIntoSet[ "ZZZ", rs]; rs _ DeleteValueFromSet[ "ZZZ", rs]; rs _ DeleteValueFromSet[ "AAA", rs]; rs _ DeleteValueFromSet[ "AAA", rs]; rs _ DeleteValueFromSet[ "GGG", rs]; rs _ DeleteValueFromSet[ "ZZZ", rs]; bool _ IsValueInSet[ "AAA", rs]; bool _ IsValueInSet[ "BBB", rs]; bool _ IsValueInSet[ "ZZZ", rs]; [ min, max] _ MinMaxValues[ rs]; rover _ MoveRover[ rs.Head, Right, 3, FALSE]; rover _ MoveRover[ rover, Right, 100, FALSE]; rover _ MoveRover[ rover, Left, 100, FALSE]; rs2 _ InsertValueIntoSet[ "CCC", rs2]; rs2 _ InsertValueIntoSet[ "HHH", rs2]; rs2 _ InsertValueIntoSet[ "JJJ", rs2]; rs2 _ InsertValueIntoSet[ "ZZZ", rs2]; rs _ Union[ rs, rs2]; rs _ Union[ rs, [NIL, NIL]]; rs _ Difference[ rs, rs2]; rs _ Union[ rs, rs]; rs _ Union[ rs, rs2]; rs _ Intersection[ rs, rs2]; rs _ Intersection[ rs, rs]; END; -- DoIt Commander.Register["TestRopeSets", DoIt, "TestRopeSets: Randomly testing some of the routines..{cr})"]; END. ĘߘJ˜)J˜J˜9˜ Jšœ Īkœ˜(J˜J˜ J˜—J˜˜J˜J˜—J˜˜˜#J˜J˜J˜J˜J˜J˜J˜&J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜$J˜ J˜ J˜ J˜ J˜-J˜-J˜,J˜&J˜&J˜&J˜&J˜J˜J˜J˜J˜J˜J˜J˜ J˜J˜——˜J˜g˜J˜———…—´™