?? RIGHT := 110 ??
MODULE ocm$misc_utility_routines;



{ PURPOSE:                             }
{   This module contains miscellaneous }
{   utility routines used by other OCM }
{   modules.                           }

?? PUSH (LISTEXT := ON) ??
*copyc oct$name_list
*copyc pmt$program_name
?? POP ??
?? NEWTITLE := '  OCP$SORT_NAME_LIST', EJECT ??

  PROCEDURE [XDCL] ocp$sort_name_list (VAR name_list: oct$name_list);


    VAR
      cur: ^oct$name_list,
      nxt: ^oct$name_list,
      temp: pmt$program_name;


    cur := name_list.link;

    WHILE cur <> NIL DO
      nxt := cur^.link;

      WHILE nxt <> NIL DO
        IF cur^.name > nxt^.name THEN
          temp := cur^.name;
          cur^.name := nxt^.name;
          nxt^.name := temp;
        IFEND;

        nxt := nxt^.link;
      WHILEND;

      cur := cur^.link;
    WHILEND;


  PROCEND ocp$sort_name_list;
?? OLDTITLE ??
MODEND ocp$misc_utility_routines.
