2-42 PL-/icSprache, die Spezifikation, v1.0 Abbildet September 2002 2 gesetztes pod_status_ptr des allocpod_status_information; Anrufpodstat(pod_status_ptr); ermöglichen Sie ORB-Statusangaben*/ wenn check_errors('podstat ') ^ = completion_status_yes dann zurückgehen; benennen Sie das Orbargs(orb_arg_string, length(orb_arg_string), orb_name, length(orb_name)); * AnrufORB_init,/ wenn check_errors('orbargs ') ^ = completion_status_yes dann zurückgehen; Anrufpodreg(addr(client_interface)); wenn check_errors('podreg ') ^ = completion_status_yes dann zurückgehen; /* der Messwert von wird ausgelassen und speichert IOR in client_ior*/ ... Anrufstròbj(client_ior, client_obj; verursachen Sie einen Gegenstandhinweis. */ wenn check_errors('stròbj ') ^ = completion_status_yes dann zurückgehen; /* Beispiele des Hervorrufens des Klientengegenstandes folgen */ /* stellen Sie den Inhalt eines Attributes ein, das my_client_attributegenannt wird */ operation=get_client_my_client_attribute; client_my_client_attribute_attr.result='Send in den Daten '; Anrufpodexec(client_obj, Betrieb, addr(client_my_client_attribute_attr), addr(dummy_user_exc_block)); wenn check_errors('podexec ') ^ = completion_status_yes dann zurückgehen; /* stellen Sie den Inhalt eines Betriebes ein, der my_client_opgenannt wird */ operation=my_client_op; client_my_client_args.invalue=46; Anrufpodexec(client_obj, Betrieb, addr(client_my_client_args), addr(dummy_user_exc_block)); wenn check_errors('podexec ') ^ = completion_status_yes dann zurückgehen; gesetzter Zeilensprunglist('Returnwert vom my_client_op = ', client_my_client_args.result); ENDENCKlient; 2,16,2 BedienercImplementierung Es gibt drei Teile zur Bedienerimplementierung: 1. Initialisierung des Bedieners - jede Schnittstelle registrierend, soll der Bediener sich stützen. 2. Abfertigung - der Eingang, der benannt wird, um die Schnittstellen anzufassen, registrierte oben. 3. Die Betriebsimplementierung - wie jeder Betrieb eingeführt wird.