
  PROCEDURE [INLINE] nlp$cl_get_connection_processor
    (    application_layer: nlt$cl_application_layer;
         layer: nlt$cl_layer_name;
     VAR connection_processor: nlt$cl_event_processor);

?? PUSH (LISTEXT := ON) ??
?? RIGHT := 110 ??
*copy nlh$cl_get_connection_processor

    IF nlv$cl_connection_layer_templat [application_layer].path [layer] THEN
      connection_processor := nlv$cl_connection_layer_templat [application_layer].connection [layer].
            event_processor;
    ELSE
      connection_processor.layer := layer;
      CASE layer OF
      = nlc$xns_session_layer =
        connection_processor.se := nac$nil;
      = nlc$channel_connection_layer =
        connection_processor.cc := nac$nil;
      = nlc$osi_transport_access_agent =
        connection_processor.ta := nac$nil;
      = nlc$tcp_access_agent =
        connection_processor.tcpaa := nac$nil;
      ELSE
        ;
      CASEND;
    IFEND;

  PROCEND nlp$cl_get_connection_processor;

*copyc nlv$cl_connection_layer_templat
?? POP ??
