usr/src/lib/libcurses/screen/tifget.ed

   1 H
   2 !rm -f tifget.c
   3 0a
   4 #pragma ident   "%Z%%M% %I%     %E% SMI"
   5
   6 /*
   7  * Routines to retrieve a value based on the short terminfo name.
   8  * This file is created from tifget.ed. DO NOT EDIT ME!
   9  */
  10
  11 #include        <sys/types.h>
  12 #include        "curses_inc.h"
  13
  14 /* generated by sort on caps */
  15 static  short   booloffsets[] =
  16                 {
  17 .
  18 !sed -e '1,/^--- begin bool/d' -e '/^--- end bool/,$d' -e '/^#/d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $1, i++}' | sort > ./tmp/tifget.tmp
  19 .r !cat ./tmp/tifget.tmp
  20 .a
  21                 };
  22
  23 /* generated by sort on caps */
  24 static  short   numoffsets[] =
  25                 {
  26 .
  27 !sed -e '1,/^--- begin num/d' -e '/^--- end num/,$d' -e '/^#/d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $1, i++}' | sort > ./tmp/tifget.tmp
  28 .r !cat ./tmp/tifget.tmp
  29 .a
  30                 };
  31
  32 /* generated by sort on caps */
  33 static  short   stroffsets[] =
  34                 {
  35 .
  36 !sed -e '1,/^--- begin str/d' -e '/^--- end str/,$d' -e '/^#/d' < caps | awk '{printf "\t/* \%s */\t\%d,\n", $1, i++}' | sort > ./tmp/tifget.tmp
  37 .r !cat ./tmp/tifget.tmp
  38 !rm ./tmp/tifget.tmp
  39 .a
  40                 };
  41
  42 /*
  43  *  Return the value of the long-named boolean capability tistr.
  44  *  Return -1 if the name is not a boolean capability.
  45  */
  46
  47 int
  48 tifgetflag(char *tistr)
  49 {
  50         int     offset;
  51         char    *bool_array = (char *) cur_bools;
  52
  53         return (((offset = _tcsearch(tistr, booloffsets, boolfnames,
  54             _NUMELEMENTS(booloffsets), 0)) == -1) ? -1 : bool_array[offset]);
  55 }
  56
  57 /*
  58  *  Return the value of the long-named numeric capability tistr.
  59  *  Return -2 if the name is not a numeric capability.
  60  */
  61
  62 int
  63 tifgetnum(char *tistr)
  64 {
  65         int     offset;
  66         short   *num_array = (short *) cur_nums;
  67
  68         return (((offset = _tcsearch(tistr, numoffsets, numfnames,
  69             _NUMELEMENTS(numoffsets), 0)) == -1) ? -2 : num_array[offset]);
  70 }
  71
  72 /*
  73  *  Return the value of the long-named string capability tistr.
  74  *  Return (char *) -1 if the name is not a string capability.
  75  */
  76
  77 char    *
  78 tifgetstr(char *tistr)
  79 {
  80         int     offset;
  81         char    **str_array = (char **) cur_strs;
  82
  83         return (((offset = _tcsearch(tistr, stroffsets, strfnames,
  84             _NUMELEMENTS(stroffsets), 0)) == -1) ? (char *) -1 :
  85             str_array[offset]);
  86 }
  87 .
  88 0r copyright.h
  89 1,.g/#pragma ident/d
  90 w tifget.c
  91 q