ncurses/base/lib_slkset.c

   1 /****************************************************************************
   2  * Copyright (c) 1998-2004,2005 Free Software Foundation, Inc.              *
   3  *                                                                          *
   4  * Permission is hereby granted, free of charge, to any person obtaining a  *
   5  * copy of this software and associated documentation files (the            *
   6  * "Software"), to deal in the Software without restriction, including      *
   7  * without limitation the rights to use, copy, modify, merge, publish,      *
   8  * distribute, distribute with modifications, sublicense, and/or sell       *
   9  * copies of the Software, and to permit persons to whom the Software is    *
  10  * furnished to do so, subject to the following conditions:                 *
  11  *                                                                          *
  12  * The above copyright notice and this permission notice shall be included  *
  13  * in all copies or substantial portions of the Software.                   *
  14  *                                                                          *
  15  * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS  *
  16  * OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF               *
  17  * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.   *
  18  * IN NO EVENT SHALL THE ABOVE COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM,   *
  19  * DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR    *
  20  * OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR    *
  21  * THE USE OR OTHER DEALINGS IN THE SOFTWARE.                               *
  22  *                                                                          *
  23  * Except as contained in this notice, the name(s) of the above copyright   *
  24  * holders shall not be used in advertising or otherwise to promote the     *
  25  * sale, use or other dealings in this Software without prior written       *
  26  * authorization.                                                           *
  27  ****************************************************************************/
  28
  29 /****************************************************************************
  30  *  Author: Juergen Pfeifer                                                 *
  31  *     and: Thomas E. Dickey                                                *
  32  ****************************************************************************/
  33
  34 /*
  35  *      lib_slkset.c
  36  *      Set soft label text.
  37  */
  38 #include <curses.priv.h>
  39 #include <ctype.h>
  40
  41 #if USE_WIDEC_SUPPORT
  42 #include <wctype.h>
  43 #endif
  44
  45 MODULE_ID("$Id: lib_slkset.c,v 1.15 2005/04/16 17:47:34 tom Exp $")
  46
  47 NCURSES_EXPORT(int)
  48 slk_set(int i, const char *astr, int format)
  49 {
  50     SLK *slk = SP->_slk;
  51     int offset;
  52     int numchrs;
  53     int numcols;
  54     int limit;
  55     const char *str = astr;
  56     const char *p;
  57
  58     T((T_CALLED("slk_set(%d, \"%s\", %d)"), i, str, format));
  59
  60     if (slk == NULL || i < 1 || i > slk->labcnt || format < 0 || format > 2)
  61         returnCode(ERR);
  62     if (str == NULL)
  63         str = "";
  64     --i;                        /* Adjust numbering of labels */
  65
  66     limit = MAX_SKEY_LEN(SP->slk_format);
  67     while (isspace(UChar(*str)))
  68         str++;                  /* skip over leading spaces  */
  69     p = str;
  70
  71 #if USE_WIDEC_SUPPORT
  72     numcols = 0;
  73     while (*p != 0) {
  74         mbstate_t state;
  75         wchar_t wc;
  76         size_t need;
  77
  78         init_mb(state);
  79         need = mbrtowc(0, p, strlen(p), &state);
  80         if (need == (size_t) -1)
  81             break;
  82         mbrtowc(&wc, p, need, &state);
  83         if (!iswprint((wint_t) wc))
  84             break;
  85         if (wcwidth(wc) + numcols > limit)
  86             break;
  87         numcols += wcwidth(wc);
  88         p += need;
  89     }
  90     numchrs = (p - str);
  91 #else
  92     while (isprint(UChar(*p)))
  93         p++;                    /* The first non-print stops */
  94
  95     numcols = (p - str);
  96     if (numcols > limit)
  97         numcols = limit;
  98     numchrs = numcols;
  99 #endif
 100
 101     FreeIfNeeded(slk->ent[i].ent_text);
 102     if ((slk->ent[i].ent_text = strdup(str)) == 0)
 103         returnCode(ERR);
 104     slk->ent[i].ent_text[numchrs] = '\0';
 105
 106     if ((slk->ent[i].form_text = (char *) _nc_doalloc(slk->ent[i].form_text,
 107                                                       (unsigned) (limit +
 108                                                                   numchrs + 1))
 109         ) == 0)
 110         returnCode(ERR);
 111
 112     switch (format) {
 113     default:
 114     case 0:                     /* left-justified */
 115         offset = 0;
 116         break;
 117     case 1:                     /* centered */
 118         offset = (limit - numcols) / 2;
 119         break;
 120     case 2:                     /* right-justified */
 121         offset = limit - numcols;
 122         break;
 123     }
 124     if (offset <= 0)
 125         offset = 0;
 126     else
 127         memset(slk->ent[i].form_text, ' ', (unsigned) offset);
 128
 129     memcpy(slk->ent[i].form_text + offset,
 130            slk->ent[i].ent_text,
 131            (unsigned) numchrs);
 132
 133     if (offset < limit) {
 134         memset(slk->ent[i].form_text + offset + numchrs,
 135                ' ',
 136                (unsigned) (limit - (offset + numcols)));
 137     }
 138
 139     slk->ent[i].form_text[numchrs - numcols + limit] = 0;
 140     slk->ent[i].dirty = TRUE;
 141     returnCode(OK);
 142 }