?? NEWTITLE := 'nfp$find_delimitd_string_length', EJECT ??

  PROCEDURE [INLINE] nfp$find_delimitd_string_length
    (    input_string: string ( * <= nfc$max_param_size);
     VAR length: integer;
     VAR status: ost$status);

{}

    TYPE
      set_of_char = set of char;

    VAR
      object_of_scan: set_of_char,
      scan_object_found: boolean,
      scan_index: ost$string_size;

{}
{}
    object_of_scan := $set_of_char [' '];
    #SCAN (object_of_scan, input_string, scan_index, scan_object_found);
    IF scan_object_found THEN
      status.normal := TRUE;
      length := scan_index - 1;
    ELSE
      osp$set_status_abnormal (nfc$status_id, nfe$bts_internal_error,
            'nfp$find_delimitd_string_length', status);
    IFEND;
{}
  PROCEND nfp$find_delimitd_string_length;
?? OLDTITLE ??
