*copyc OSD$DEFAULT_PRAGMATS
?? NEWTITLE := 'NOS/VE : Interactive Facility' ??
?? NEWTITLE := '  [XDCL] iip$report_unhandled_message' ??
MODULE iim$report_unhandled_message;


{ Global External Procedure Declarations
*copyc IFV$MODULE_FOR_C180
?? SET (LIST := OFF) ??
*copyc PMP$LOG
?? SET (LIST := ON) ??


{ Global Constants and Types
?? SET (LIST := OFF) ??
*copyc OST$STATUS
*copyc MLD$MEMORY_LINK_DECLARATIONS
?? SET (LIST := ON) ??

?? TITLE := 'PROCEDURE [XDCL] iip$report_unhandled_message', EJECT ??

  PROCEDURE [XDCL] iip$report_unhandled_message (msg: ^cell;
    arbinfo: mlt$arbitrary_info;
    sender_name: mlt$application_name;
    msg_length: mlt$message_length);

    CONST
      legend_1 = 'Unhandled message:',
      legend_2 = 'From:                     ',
      legend_3 = 'Arb:      ; Len:     ';

    VAR
      line: string (60),
      i: integer,
      status: ost$status;

{ Log the kind of error report to follow

    pmp$log (legend_1, status);

{ Log who sent the message

    line (1, 26) := legend_2;
    STRINGREP (line (6, 21), i, sender_name);
    pmp$log (line (1, 26), status);

{ Log: arbitrary info, message length

    line (1, 21) := legend_3;
    STRINGREP (line (5, 6), i, arbinfo);
    STRINGREP (line (17, 5), i, msg_length);
    pmp$log (line (1, 21), status);

  PROCEND iip$report_unhandled_message;
MODEND
