Sindbad~EG File Manager

/* M. Beeson, for MathXpert.
2.17.98 extracted from symsout.c
5.3.13 changed names of exported functions
5.18.24 added "nr"
5.19.24 used strcasecmp unconditionally
      added "OK"  as a two-letter word. 
*/

#include <string.h>
#include <strings.h> // Required for strcasecmp
#include "english1.h"
/*_______________________________________________________________________*/
int German_two_letter_word(char *buffer)
/* return 0 if buffer contains a two-letter word that
occurs in MathXpert's menus or status line text.
Return 1 otherwise.  Buffer is presumed to contain
two characters at least.
*/
{ switch(buffer[0])
    { case 'a':
      case 'A':
         if(!strcasecmp(buffer,"ab") ||
            !strcasecmp(buffer,"am") ||
            !strcasecmp(buffer,"an")
                )
            return 0;
         return 1;
     case 'd':
      case 'D':
         if(!strcasecmp(buffer,"da") ||
            !strcasecmp(buffer,"de") ||
            !strcasecmp(buffer,"du"))
            return 0;  /* occurs in 'de Moivre' */
         return 1;
      case 'e':
      case 'E':
         if(!strcasecmp(buffer,"ei") ||
            !strcasecmp(buffer,"er") ||
            !strcasecmp(buffer,"es"))
            return 0;
         return 1;
      case 'i':
      case 'I':
         if(!strcasecmp(buffer,"im") ||
            !strcasecmp(buffer,"in"))
            return 0;
         return 1;
      case 'j':
      case 'J':
         if(!strcasecmp(buffer,"ja") ||
            !strcasecmp(buffer,"je"))
            return 0;
         return 1;
      case 'l':
         if(!strcasecmp(buffer,"ln"))
            return 0;
         return 1;
      case 'n':
      case 'N':
         if(!strcasecmp(buffer, "nr"))  // abbreviation of Nummer
            return 0;
         return 1;
      case 'o':
      case 'O':
         if(!strcasecmp(buffer, "ob"))
            return 0;
         if(!strcasecmp(buffer, "ok"))
            return 0;
         return 1;
      case 's':
      case 'S':
         if(!strcasecmp(buffer,"so"))
            return 0;
         return 1;
      case 'u':
      case 'U':
         if(!strcasecmp(buffer,"um"))
            return 0;
         return 1;
      case 'w':
      case 'W':
         if(!strcasecmp(buffer,"wo"))
            return 0;
         return 1;
      case 'z':
      case 'Z':
         if(!strcasecmp(buffer,"zu"))
            return 0;
         return 1;
      default:
         return 1;
    }
}