rxvt-unicode/src/misc.C

/*----------------------------------------------------------------------*
 * File:        misc.C
 *----------------------------------------------------------------------*
 *
 * All portions of code are copyright by their respective author/s.
 * Copyright (c) 1996      mj olesen <olesen@me.QueensU.CA> Queen's Univ at Kingston
 * Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de>
 * Copyright (c) 1998-2000 Geoff Wing <gcw@pobox.com>
 * Copyright (c) 2003-2006 Marc Lehmann <pcg@goof.com>
 *
 * This program is free software; you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation; either version 2 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program; if not, write to the Free Software
 * Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
 *----------------------------------------------------------------------*/

#include "../config.h"          /* NECESSARY */
#include "rxvt.h"               /* NECESSARY */

char *
rxvt_wcstombs (const wchar_t *str, int len)
{
  if (len < 0) len = wcslen (str);

  mbstate mbs;
  char *r = (char *)rxvt_malloc (len * MB_CUR_MAX + 1);

  char *dst = r;
  while (len--)
    {
      ssize_t l = wcrtomb (dst, *str++, mbs);

      if (l < 0)
        *dst++ = '?';
      else
        dst += l;
    }

  *dst++ = 0;

  return (char *)rxvt_realloc (r, dst - r);
}

wchar_t *
rxvt_mbstowcs (const char *str, int len)
{
  if (len < 0) len = strlen (str);

  wchar_t *r = (wchar_t *)rxvt_malloc ((len + 1) * sizeof (wchar_t));

  if ((ssize_t)mbstowcs (r, str, len + 1) < 0)
    *r = 0;

  return r;
}

char *
rxvt_wcstoutf8 (const wchar_t *str, int len)
{
  if (len < 0) len = wcslen (str);

  char *r = (char *)rxvt_malloc (len * 4 + 1);
  char *p = r;

  while (len--)
    {
      unicode_t w = *str++ & UNICODE_MASK;

      if      (w < 0x000080)
        *p++ = w;
      else if (w < 0x000800)
        *p++ = 0xc0 | ( w >>  6),
        *p++ = 0x80 | ( w        & 0x3f);
      else if (w < 0x010000)
        *p++ = 0xe0 | ( w >> 12       ),
        *p++ = 0x80 | ((w >>  6) & 0x3f),
        *p++ = 0x80 | ( w        & 0x3f);
      else if (w < 0x110000)
        *p++ = 0xf0 | ( w >> 18),
        *p++ = 0x80 | ((w >> 12) & 0x3f),
        *p++ = 0x80 | ((w >>  6) & 0x3f),
        *p++ = 0x80 | ( w        & 0x3f);
      else
        *p++ = '?';
    }

  *p++ = 0;

  return (char *)rxvt_realloc (r, p - r);
}

wchar_t *
rxvt_utf8towcs (const char *str, int len)
{
  if (len < 0) len = strlen (str);

  wchar_t *r = (wchar_t *)rxvt_malloc ((len + 1) * sizeof (wchar_t)),
          *p = r;

  unsigned char *s = (unsigned char *)str,
                *e = s + len;

  for (;;)
    {
      len = e - s;

      if (len == 0)
        break;
      else if (s[0] < 0x80)
        *p++ = *s++;
      else if (len >= 2
               && s[0] >= 0xc2 && s[0] <= 0xdf 
               && (s[1] & 0xc0) == 0x80)
        {
          *p++ = ((s[0] & 0x1f) << 6)
               |  (s[1] & 0x3f);
          s += 2;
        }
      else if (len >= 3
               && (   (s[0] == 0xe0                 && s[1] >= 0xa0 && s[1] <= 0xbf)
                   || (s[0] >= 0xe1 && s[0] <= 0xec && s[1] >= 0x80 && s[1] <= 0xbf)
                   || (s[0] == 0xed                 && s[1] >= 0x80 && s[1] <= 0x9f)
                   || (s[0] >= 0xee && s[0] <= 0xef && s[1] >= 0x80 && s[1] <= 0xbf)
                  )
               && (s[2] & 0xc0) == 0x80)
        {
          *p++ = ((s[0] & 0x0f) << 12)
               | ((s[1] & 0x3f) <<  6)
               |  (s[2] & 0x3f);
          s += 3;
        }
      else if (len >= 4
               && (   (s[0] == 0xf0                 && s[1] >= 0x90 && s[1] <= 0xbf)
                   || (s[0] >= 0xf1 && s[0] <= 0xf3 && s[1] >= 0x80 && s[1] <= 0xbf)
                   || (s[0] == 0xf4                 && s[1] >= 0x80 && s[1] <= 0x8f)
                  )
               && (s[2] & 0xc0) == 0x80
               && (s[3] & 0xc0) == 0x80)
        {
          *p++ = ((s[0] & 0x07) << 18) 
               | ((s[1] & 0x3f) << 12) 
               | ((s[2] & 0x3f) <<  6) 
               |  (s[3] & 0x3f);
          s += 4;
        }
      else
        {
          *p++ = 0xfffd;
          s++;
        }
    }

  *p = 0;

  return r;
}

char *
rxvt_r_basename (const char *str) NOTHROW
{
  char *base = strrchr (str, '/');

  return (char *) (base ? base + 1 : str);
}

/*
 * Print an error message
 */
void
rxvt_vlog (const char *fmt, va_list arg_ptr) NOTHROW
{
  char msg[1024];

  vsnprintf (msg, sizeof msg, fmt, arg_ptr);

  if (GET_R && GET_R->log_hook)
    (*GET_R->log_hook) (msg);
  else
    write (STDOUT_FILENO, msg, strlen (msg));
}

void
rxvt_log (const char *fmt,...) NOTHROW
{
  va_list arg_ptr;

  va_start (arg_ptr, fmt);
  rxvt_vlog (fmt, arg_ptr);
  va_end (arg_ptr);
}

/*
 * Print an error message
 */
void
rxvt_warn (const char *fmt,...) NOTHROW
{
  va_list arg_ptr;

  rxvt_log ("%s: ", RESNAME);

  va_start (arg_ptr, fmt);
  rxvt_vlog (fmt, arg_ptr);
  va_end (arg_ptr);
}

void
rxvt_fatal (const char *fmt,...) THROW ((class rxvt_failure_exception))
{
  va_list arg_ptr;

  rxvt_log ("%s: ", RESNAME);

  va_start (arg_ptr, fmt);
  rxvt_vlog (fmt, arg_ptr);
  va_end (arg_ptr);

  rxvt_exit_failure ();
}

void
rxvt_exit_failure () THROW ((class rxvt_failure_exception))
{
  static class rxvt_failure_exception rxvt_failure_exception;
  throw (rxvt_failure_exception);
}

/*
 * check that the first characters of S1 match S2
 *
 * No Match
 *      return: 0
 * Match
 *      return: strlen (S2)
 */
int
rxvt_Str_match (const char *s1, const char *s2) NOTHROW
{
  int n = strlen (s2);

  return ((strncmp (s1, s2, n) == 0) ? n : 0);
}

/*
 * remove leading/trailing space and strip-off leading/trailing quotes.
 * in place.
 */
char           *
rxvt_Str_trim (char *str) NOTHROW
{
  char *r, *s;

  if (!str || !*str)            /* shortcut */
    return str;

  /* skip leading spaces */
  for (s = str; *s && isspace (*s); s++) ;

  /* goto end of string */
  r = s + strlen (s) - 1;

  /* dump return and other trailing whitespace */
  while (r > s && isspace (*r))
    r--;

#if 0
  /* skip matching leading/trailing quotes */
  if (*s == '"' && *r == '"' && n > 1)
    {
      s++;
      n -= 2;
    }
#endif

  memmove (str, s, r + 1 - s);
  str[r + 1 - s] = 0;

  return str;
}

/*
 * in-place interpretation of string:
 *
 *      backslash-escaped:      "\a\b\E\e\n\r\t", "\octal"
 *      Ctrl chars:     ^@ .. ^_, ^?
 *
 *      Emacs-style:    "M-" prefix
 *
 * Also,
 *      "M-x" prefixed strings, append "\r" if needed
 *      "\E]" prefixed strings (XTerm escape sequence) append ST if needed
 *
 * returns the converted string length
 */
int
rxvt_Str_escaped (char *str) NOTHROW
{
  char            ch, *s, *d;
  int             i, num, append = 0;

  if (!str || !*str)
    return 0;

  d = s = str;

  if (*s == 'M' && s[1] == '-')
    {
      /* Emacs convenience, replace leading `M-..' with `\E..' */
      *d++ = C0_ESC;
      s += 2;
      if (toupper (*s) == 'X')
        /* append carriage-return for `M-xcommand' */
        for (*d++ = 'x', append = '\r', s++; isspace (*s); s++) ;
    }
  for (; (ch = *s++);)
    {
      if (ch == '\\')
        {
          ch = *s++;
          if (ch >= '0' && ch <= '7')
            {   /* octal */
              num = ch - '0';
              for (i = 0; i < 2; i++, s++)
                {
                  ch = *s;
                  if (ch < '0' || ch > '7')
                    break;
                  num = num * 8 + ch - '0';
                }
              ch = (char)num;
            }
          else if (ch == 'a')
            ch = C0_BEL;        /* bell */
          else if (ch == 'b')
            ch = C0_BS; /* backspace */
          else if (ch == 'E' || ch == 'e')
            ch = C0_ESC;        /* escape */
          else if (ch == 'n')
            ch = '\n';  /* newline */
          else if (ch == 'r')
            ch = '\r';  /* carriage-return */
          else if (ch == 't')
            ch = C0_HT; /* tab */
        }
      else if (ch == '^')
        {
          ch = *s++;
          ch = toupper (ch);
          ch = (ch == '?' ? 127 : (ch - '@'));
        }
      *d++ = ch;
    }

  /* ESC] is an XTerm escape sequence, must be terminated */
  if (*str == '\0' && str[1] == C0_ESC && str[2] == ']')
    append = CHAR_ST;

  /* add trailing character as required */
  if (append && d[-1] != append)
    *d++ = append;
  *d = '\0';

  return (d - str);
}

/*
 * Split a comma-separated string into an array, stripping leading and
 * trailing spaces from each entry.  Empty strings are properly returned
 * Caller should free each entry and array when done
 */
char          **
rxvt_splitcommastring (const char *cs) NOTHROW
{
  int             l, n, p;
  const char     *s, *t;
  char          **ret;

  if ((s = cs) == NULL)
    s = "";

  for (n = 1, t = s; *t; t++)
    if (*t == ',')
      n++;

  ret = (char **)malloc ((n + 1) * sizeof (char *));
  ret[n] = NULL;

  for (l = 0, t = s; l < n; l++)
    {
      for ( ; *t && *t != ','; t++) ;
      p = t - s;
      ret[l] = (char *)malloc (p + 1);
      strncpy (ret[l], s, p);
      ret[l][p] = '\0';
      rxvt_Str_trim (ret[l]);
      s = ++t;
    }

  return ret;
}

void
rxvt_freecommastring (char **cs) NOTHROW
{
  for (int i = 0; cs[i]; ++i)
    free (cs[i]);

  free (cs);
}


Revision:	1.42
Committed:	Mon Aug 27 20:00:26 2007 UTC (16 years, 9 months ago) by ayin
Content type:	text/plain
Branch:	MAIN
Changes since 1.41:	+0 -10 lines
Log Message:	Remove unused function.
#	Content
1	/----------------------------------------------------------------------
2	* File: misc.C
3	----------------------------------------------------------------------
4	*
5	* All portions of code are copyright by their respective author/s.
6	* Copyright (c) 1996 mj olesen <olesen@me.QueensU.CA> Queen's Univ at Kingston
7	* Copyright (c) 1997,1998 Oezguer Kesim <kesim@math.fu-berlin.de>
8	* Copyright (c) 1998-2000 Geoff Wing <gcw@pobox.com>
9	* Copyright (c) 2003-2006 Marc Lehmann <pcg@goof.com>
10	*
11	* This program is free software; you can redistribute it and/or modify
12	* it under the terms of the GNU General Public License as published by
13	* the Free Software Foundation; either version 2 of the License, or
14	* (at your option) any later version.
15	*
16	* This program is distributed in the hope that it will be useful,
17	* but WITHOUT ANY WARRANTY; without even the implied warranty of
18	* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
19	* GNU General Public License for more details.
20	*
21	* You should have received a copy of the GNU General Public License
22	* along with this program; if not, write to the Free Software
23	* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
24	----------------------------------------------------------------------/
25
26	#include "../config.h" /* NECESSARY */
27	#include "rxvt.h" /* NECESSARY */
28
29	char *
30	rxvt_wcstombs (const wchar_t *str, int len)
31	{
32	if (len < 0) len = wcslen (str);
33
34	mbstate mbs;
35	char r = (char )rxvt_malloc (len * MB_CUR_MAX + 1);
36
37	char *dst = r;
38	while (len--)
39	{
40	ssize_t l = wcrtomb (dst, *str++, mbs);
41
42	if (l < 0)
43	*dst++ = '?';
44	else
45	dst += l;
46	}
47
48	*dst++ = 0;
49
50	return (char *)rxvt_realloc (r, dst - r);
51	}
52
53	wchar_t *
54	rxvt_mbstowcs (const char *str, int len)
55	{
56	if (len < 0) len = strlen (str);
57
58	wchar_t r = (wchar_t )rxvt_malloc ((len + 1) * sizeof (wchar_t));
59
60	if ((ssize_t)mbstowcs (r, str, len + 1) < 0)
61	*r = 0;
62
63	return r;
64	}
65
66	char *
67	rxvt_wcstoutf8 (const wchar_t *str, int len)
68	{
69	if (len < 0) len = wcslen (str);
70
71	char r = (char )rxvt_malloc (len * 4 + 1);
72	char *p = r;
73
74	while (len--)
75	{
76	unicode_t w = *str++ & UNICODE_MASK;
77
78	if (w < 0x000080)
79	*p++ = w;
80	else if (w < 0x000800)
81	*p++ = 0xc0 \| ( w >> 6),
82	*p++ = 0x80 \| ( w & 0x3f);
83	else if (w < 0x010000)
84	*p++ = 0xe0 \| ( w >> 12 ),
85	*p++ = 0x80 \| ((w >> 6) & 0x3f),
86	*p++ = 0x80 \| ( w & 0x3f);
87	else if (w < 0x110000)
88	*p++ = 0xf0 \| ( w >> 18),
89	*p++ = 0x80 \| ((w >> 12) & 0x3f),
90	*p++ = 0x80 \| ((w >> 6) & 0x3f),
91	*p++ = 0x80 \| ( w & 0x3f);
92	else
93	*p++ = '?';
94	}
95
96	*p++ = 0;
97
98	return (char *)rxvt_realloc (r, p - r);
99	}
100
101	wchar_t *
102	rxvt_utf8towcs (const char *str, int len)
103	{
104	if (len < 0) len = strlen (str);
105
106	wchar_t r = (wchar_t )rxvt_malloc ((len + 1) * sizeof (wchar_t)),
107	*p = r;
108
109	unsigned char s = (unsigned char )str,
110	*e = s + len;
111
112	for (;;)
113	{
114	len = e - s;
115
116	if (len == 0)
117	break;
118	else if (s[0] < 0x80)
119	p++ = s++;
120	else if (len >= 2
121	&& s[0] >= 0xc2 && s[0] <= 0xdf
122	&& (s[1] & 0xc0) == 0x80)
123	{
124	*p++ = ((s[0] & 0x1f) << 6)
125	\| (s[1] & 0x3f);
126	s += 2;
127	}
128	else if (len >= 3
129	&& ( (s[0] == 0xe0 && s[1] >= 0xa0 && s[1] <= 0xbf)
130	\|\| (s[0] >= 0xe1 && s[0] <= 0xec && s[1] >= 0x80 && s[1] <= 0xbf)
131	\|\| (s[0] == 0xed && s[1] >= 0x80 && s[1] <= 0x9f)
132	\|\| (s[0] >= 0xee && s[0] <= 0xef && s[1] >= 0x80 && s[1] <= 0xbf)
133	)
134	&& (s[2] & 0xc0) == 0x80)
135	{
136	*p++ = ((s[0] & 0x0f) << 12)
137	\| ((s[1] & 0x3f) << 6)
138	\| (s[2] & 0x3f);
139	s += 3;
140	}
141	else if (len >= 4
142	&& ( (s[0] == 0xf0 && s[1] >= 0x90 && s[1] <= 0xbf)
143	\|\| (s[0] >= 0xf1 && s[0] <= 0xf3 && s[1] >= 0x80 && s[1] <= 0xbf)
144	\|\| (s[0] == 0xf4 && s[1] >= 0x80 && s[1] <= 0x8f)
145	)
146	&& (s[2] & 0xc0) == 0x80
147	&& (s[3] & 0xc0) == 0x80)
148	{
149	*p++ = ((s[0] & 0x07) << 18)
150	\| ((s[1] & 0x3f) << 12)
151	\| ((s[2] & 0x3f) << 6)
152	\| (s[3] & 0x3f);
153	s += 4;
154	}
155	else
156	{
157	*p++ = 0xfffd;
158	s++;
159	}
160	}
161
162	*p = 0;
163
164	return r;
165	}
166
167	char *
168	rxvt_r_basename (const char *str) NOTHROW
169	{
170	char *base = strrchr (str, '/');
171
172	return (char *) (base ? base + 1 : str);
173	}
174
175	/*
176	* Print an error message
177	*/
178	void
179	rxvt_vlog (const char *fmt, va_list arg_ptr) NOTHROW
180	{
181	char msg[1024];
182
183	vsnprintf (msg, sizeof msg, fmt, arg_ptr);
184
185	if (GET_R && GET_R->log_hook)
186	(*GET_R->log_hook) (msg);
187	else
188	write (STDOUT_FILENO, msg, strlen (msg));
189	}
190
191	void
192	rxvt_log (const char *fmt,...) NOTHROW
193	{
194	va_list arg_ptr;
195
196	va_start (arg_ptr, fmt);
197	rxvt_vlog (fmt, arg_ptr);
198	va_end (arg_ptr);
199	}
200
201	/*
202	* Print an error message
203	*/
204	void
205	rxvt_warn (const char *fmt,...) NOTHROW
206	{
207	va_list arg_ptr;
208
209	rxvt_log ("%s: ", RESNAME);
210
211	va_start (arg_ptr, fmt);
212	rxvt_vlog (fmt, arg_ptr);
213	va_end (arg_ptr);
214	}
215
216	void
217	rxvt_fatal (const char *fmt,...) THROW ((class rxvt_failure_exception))
218	{
219	va_list arg_ptr;
220
221	rxvt_log ("%s: ", RESNAME);
222
223	va_start (arg_ptr, fmt);
224	rxvt_vlog (fmt, arg_ptr);
225	va_end (arg_ptr);
226
227	rxvt_exit_failure ();
228	}
229
230	void
231	rxvt_exit_failure () THROW ((class rxvt_failure_exception))
232	{
233	static class rxvt_failure_exception rxvt_failure_exception;
234	throw (rxvt_failure_exception);
235	}
236
237	/*
238	* check that the first characters of S1 match S2
239	*
240	* No Match
241	* return: 0
242	* Match
243	* return: strlen (S2)
244	*/
245	int
246	rxvt_Str_match (const char s1, const char s2) NOTHROW
247	{
248	int n = strlen (s2);
249
250	return ((strncmp (s1, s2, n) == 0) ? n : 0);
251	}
252
253	/*
254	* remove leading/trailing space and strip-off leading/trailing quotes.
255	* in place.
256	*/
257	char *
258	rxvt_Str_trim (char *str) NOTHROW
259	{
260	char r, s;
261
262	if (!str \|\| !str) / shortcut */
263	return str;
264
265	/* skip leading spaces */
266	for (s = str; s && isspace (s); s++) ;
267
268	/* goto end of string */
269	r = s + strlen (s) - 1;
270
271	/* dump return and other trailing whitespace */
272	while (r > s && isspace (*r))
273	r--;
274
275	#if 0
276	/* skip matching leading/trailing quotes */
277	if (s == '"' && r == '"' && n > 1)
278	{
279	s++;
280	n -= 2;
281	}
282	#endif
283
284	memmove (str, s, r + 1 - s);
285	str[r + 1 - s] = 0;
286
287	return str;
288	}
289
290	/*
291	* in-place interpretation of string:
292	*
293	* backslash-escaped: "\a\b\E\e\n\r\t", "\octal"
294	* Ctrl chars: ^@ .. ^_, ^?
295	*
296	* Emacs-style: "M-" prefix
297	*
298	* Also,
299	* "M-x" prefixed strings, append "\r" if needed
300	* "\E]" prefixed strings (XTerm escape sequence) append ST if needed
301	*
302	* returns the converted string length
303	*/
304	int
305	rxvt_Str_escaped (char *str) NOTHROW
306	{
307	char ch, s, d;
308	int i, num, append = 0;
309
310	if (!str \|\| !*str)
311	return 0;
312
313	d = s = str;
314
315	if (*s == 'M' && s[1] == '-')
316	{
317	/* Emacs convenience, replace leading `M-..' with `\E..' */
318	*d++ = C0_ESC;
319	s += 2;
320	if (toupper (*s) == 'X')
321	/* append carriage-return for `M-xcommand' */
322	for (d++ = 'x', append = '\r', s++; isspace (s); s++) ;
323	}
324	for (; (ch = *s++);)
325	{
326	if (ch == '\\')
327	{
328	ch = *s++;
329	if (ch >= '0' && ch <= '7')
330	{ /* octal */
331	num = ch - '0';
332	for (i = 0; i < 2; i++, s++)
333	{
334	ch = *s;
335	if (ch < '0' \|\| ch > '7')
336	break;
337	num = num * 8 + ch - '0';
338	}
339	ch = (char)num;
340	}
341	else if (ch == 'a')
342	ch = C0_BEL; /* bell */
343	else if (ch == 'b')
344	ch = C0_BS; /* backspace */
345	else if (ch == 'E' \|\| ch == 'e')
346	ch = C0_ESC; /* escape */
347	else if (ch == 'n')
348	ch = '\n'; /* newline */
349	else if (ch == 'r')
350	ch = '\r'; /* carriage-return */
351	else if (ch == 't')
352	ch = C0_HT; /* tab */
353	}
354	else if (ch == '^')
355	{
356	ch = *s++;
357	ch = toupper (ch);
358	ch = (ch == '?' ? 127 : (ch - '@'));
359	}
360	*d++ = ch;
361	}
362
363	/* ESC] is an XTerm escape sequence, must be terminated */
364	if (*str == '\0' && str[1] == C0_ESC && str[2] == ']')
365	append = CHAR_ST;
366
367	/* add trailing character as required */
368	if (append && d[-1] != append)
369	*d++ = append;
370	*d = '\0';
371
372	return (d - str);
373	}
374
375	/*
376	* Split a comma-separated string into an array, stripping leading and
377	* trailing spaces from each entry. Empty strings are properly returned
378	* Caller should free each entry and array when done
379	*/
380	char **
381	rxvt_splitcommastring (const char *cs) NOTHROW
382	{
383	int l, n, p;
384	const char s, t;
385	char **ret;
386
387	if ((s = cs) == NULL)
388	s = "";
389
390	for (n = 1, t = s; *t; t++)
391	if (*t == ',')
392	n++;
393
394	ret = (char *)malloc ((n + 1) sizeof (char *));
395	ret[n] = NULL;
396
397	for (l = 0, t = s; l < n; l++)
398	{
399	for ( ; t && t != ','; t++) ;
400	p = t - s;
401	ret[l] = (char *)malloc (p + 1);
402	strncpy (ret[l], s, p);
403	ret[l][p] = '\0';
404	rxvt_Str_trim (ret[l]);
405	s = ++t;
406	}
407
408	return ret;
409	}
410
411	void
412	rxvt_freecommastring (char **cs) NOTHROW
413	{
414	for (int i = 0; cs[i]; ++i)
415	free (cs[i]);
416
417	free (cs);
418	}
419
420
421