architecture lrdc_arch() is
   UI : array [integer] of user_interface is 
        (1..Num_Clients, User_Module_1(), User_Module_2(), User_Module_1(),
	default is User_Module_2());
   CO : array [integer] of concepts_of_operation_interface is
        (1..Num_Clients, default is New(concepts_of_operation_interface));
   AI : ail_interface is ail_arch();
   RM : Res_Mang_Iface;
connect
-- The following service connections had to be changed to event
-- connections due to a problem Raptor has with basic connections.
--   UI.UIL to CO.UIL;
--   CO.COL to AI.COL;
    for i:integer in 1..Num_Clients generate
    
    UI[i].UIL.start_java() ||> CO[i].UIL.start_java();
    UI[i].UIL.start_browser() ||> CO[i].UIL.start_browser();
    UI[i].UIL.pose_discussion_topic() ||>
       CO[i].UIL.pose_discussion_topic(); 
    UI[i].UIL.join_discussion_session_1() ||>
       CO[i].UIL.join_discussion_session_1(); 
    (?D in Diagram_ID) UI[i].UIL.join_discussion_session_2(?D) ||>
       CO[i].UIL.join_discussion_session_2(?D); 
    UI[i].UIL.browse_information() ||> 
       CO[i].UIL.browse_information(); 
    UI[i].UIL.make_notes() ||>
       CO[i].UIL.make_notes(); 
    UI[i].UIL.CD.FD.post_formal_statement_from_scratch() ||>
       CO[i].UIL.CD.FD.post_formal_statement_from_scratch(); 
    UI[i].UIL.CD.FD.PSROI.record_pointer_to_online_info() ||>
       CO[i].UIL.CD.FD.PSROI.record_pointer_to_online_info(); 
    UI[i].UIL.CD.FD.PSROI.post_info_as_formal_statement() ||>
       CO[i].UIL.CD.FD.PSROI.post_info_as_formal_statement(); 
    UI[i].UIL.CD.FD.relate_formal_statement_to_discussion() ||>
       CO[i].UIL.CD.FD.relate_formal_statement_to_discussion(); 
    UI[i].UIL.CD.FD.revise_formal_statement() ||>
       CO[i].UIL.CD.FD.revise_formal_statement(); 
    UI[i].UIL.CD.FD.retract_formal_statement() ||>
       CO[i].UIL.CD.FD.retract_formal_statement(); 
    UI[i].UIL.CD.FD.retract_formal_relationship() ||>
       CO[i].UIL.CD.FD.retract_formal_relationship(); 
    UI[i].UIL.CD.H.reposition_statement_object() ||>
       CO[i].UIL.CD.H.reposition_statement_object(); 
    UI[i].UIL.CD.informal_discussion() ||>
       CO[i].UIL.CD.informal_discussion(); 
    UI[i].UIL.AAFD.unspecified_request_for_help() ||> 
       CO[i].UIL.AAFD.unspecified_request_for_help(); 
    UI[i].UIL.AAFD.focus_on_particular_elements() ||>
       CO[i].UIL.AAFD.focus_on_particular_elements(); 
    UI[i].UIL.AAFD.focus_on_particular_questions() ||>
       CO[i].UIL.AAFD.focus_on_particular_questions(); 
    UI[i].UIL.summarize_discussion() ||>
       CO[i].UIL.summarize_discussion();
--
    CO[i].COL.IDA.start_belvedere() ||>
       AI.COL.IDA.start_belvedere(i);
    CO[i].COL.IDA.new_inquiry_diagram() ||>
       AI.COL.IDA.new_inquiry_diagram(i); 
    CO[i].COL.IDA.list_inquiry_diagram() ||>
       AI.COL.IDA.list_inquiry_diagram(i); 
    (?D in Diagram_ID) CO[i].COL.IDA.open_inquiry_diagram(?D) ||>
       AI.COL.IDA.open_inquiry_diagram(?D, i);
    CO[i].COL.IDA.add_node() ||>
       AI.COL.IDA.add_node(i);
    CO[i].COL.IDA.add_edge() ||>
       AI.COL.IDA.add_edge(i);
    CO[i].COL.IDA.update_node() ||>
       AI.COL.IDA.update_node(i);
    CO[i].COL.IDA.move_node() ||>
       AI.COL.IDA.move_node(i);
    CO[i].COL.IDA.delete_node() ||>
       AI.COL.IDA.delete_node(i);
    CO[i].COL.IDA.delete_edge() ||>
       AI.COL.IDA.delete_edge(i);
    CO[i].COL.IDA.exit_diagram() ||>
       AI.COL.IDA.exit_diagram(i);
    CO[i].COL.I_S.start_netscape() ||>
       AI.COL.I_S.start_netscape(i);
    CO[i].COL.I_S.get_URL() ||>
       AI.COL.I_S.get_URL(i);
    CO[i].COL.AS.request_advice() ||>
       AI.COL.AS.request_advice(i);
--
    CO[i].COL.IDA.reference_this() ||>
       AI.COL.IDA.reference_this(i);
--
    CO[i].PB_OUT.WebStartup ||> UI[i].PB.WebStartup;
    CO[i].PB_OUT.JavaStartup ||> UI[i].PB.JavaStartup;
    (?R in Response_Type)CO[i].PB_OUT.Response(?R) ||> UI[i].PB.Response(?R);
    CO[i].PB_OUT.HTMLPage() ||> UI[i].PB.HTMLPage();
    CO[i].PB_OUT.Advice() ||> UI[i].PB.Advice();

    end generate;
--
    (?i in integer)AI.PB.HTMLPage(?i) ||> CO[?i].PB_IN.HTMLPage;
    (?i in integer)AI.PB.Advice(?i) ||> CO[?i].PB_IN.Advice;
    (?R in Response_Type, ?i in integer) AI.PB.Response(?R,?i) ||> 
       CO[?i].PB_IN.Response(?R);
    (?i in integer)AI.PB.WebStartup(?i) ||> CO[?i].PB_IN.WebStartup;
    (?i in integer)AI.PB.JavaStartup(?i) ||> CO[?i].PB_IN.JavaStartup;
--
    (?A in Action_Type, ?T in Integer) AI.Latency(?A, ?T) to 
	RM.Latency(?A, ?T);

end;