usr.bin/tn3270/api/astosc.c

   1 /*      $NetBSD: astosc.c,v 1.7 2003/08/07 11:16:25 agc Exp $   */
   2
   3 /*-
   4  * Copyright (c) 1988 The Regents of the University of California.
   5  * All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #ifndef HOST_TOOL
  33 #include <sys/cdefs.h>
  34 #if defined(__RCSID) && !defined(lint)
  35 #if 0
  36 static char sccsid[] = "@(#)astosc.c    4.2 (Berkeley) 4/26/91";
  37 #else
  38 __RCSID("$NetBSD: astosc.c,v 1.7 2003/08/07 11:16:25 agc Exp $");
  39 #endif
  40 #endif /* not lint */
  41 #endif
  42
  43 #include <ctype.h>
  44
  45 #include "../general/general.h"
  46
  47 #include "../ctlr/function.h"
  48
  49 #include "astosc.h"
  50
  51 struct astosc astosc[256] = {
  52 #include "astosc.out"
  53 };
  54
  55 /* compare two strings, ignoring case */
  56
  57 static int ustrcmp(char *, char *);
  58
  59 static int
  60 ustrcmp(string1, string2)
  61 char *string1;
  62 char *string2;
  63 {
  64     int c1, c2;
  65
  66     while ((c1 = (unsigned char) *string1++) != 0) {
  67         if (isupper(c1)) {
  68             c1 = tolower(c1);
  69         }
  70         if (isupper(c2 = (unsigned char) *string2++)) {
  71             c2 = tolower(c2);
  72         }
  73         if (c1 < c2) {
  74             return(-1);
  75         } else if (c1 > c2) {
  76             return(1);
  77         }
  78     }
  79     if (*string2) {
  80         return(-1);
  81     } else {
  82         return(0);
  83     }
  84 }
  85
  86
  87 /*
  88  * This routine takes a string and returns an integer.  It may return
  89  * -1 if there is no other integer which corresponds to the
  90  * string.  -1 implies an error.
  91  */
  92
  93 int
  94 ascii_to_index(string)
  95 char *string;
  96 {
  97     struct astosc *this;
  98
  99     for (this = astosc; this <= &astosc[highestof(astosc)]; this++) {
 100         if ((this->name != 0) && (ustrcmp(this->name, string) == 0)) {
 101             return this-astosc;
 102         }
 103     }
 104     return -1;
 105 }