
  PROCEDURE [INLINE] clp$find_day_and_month_names
    (    language: ost$natural_language;
     VAR day_and_month_names_entry: ^clt$day_and_month_names);

    VAR
      search_language: ost$natural_language;


    IF language = 'ENGLISH' THEN
      search_language := 'US_ENGLISH';
    ELSE
      search_language := language;
    IFEND;

    day_and_month_names_entry := clv$day_and_month_names_list;
    WHILE day_and_month_names_entry <> NIL DO
      IF day_and_month_names_entry^.language = search_language THEN
{Language is already in list of known languages.}
        RETURN;
      IFEND;
      day_and_month_names_entry := day_and_month_names_entry^.next_entry;
    WHILEND;

  PROCEND clp$find_day_and_month_names;

?? PUSH (LISTEXT := ON) ??
*copyc ost$natural_language
*copyc clt$day_and_month_names
*copyc clv$day_and_month_names_list
?? POP ??
