1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
|
/*
* Motif Tools Library, Version 3.1
* $Id$
*
* Written by David Flanagan.
* Copyright (c) 1992-2001 by David Flanagan.
* All Rights Reserved. See the file COPYRIGHT for details.
* This is open source software. See the file LICENSE for details.
* There is no warranty for this software. See NO_WARRANTY for details.
*
* $Log$
* Revision 1.1.1.1 2001/07/18 11:06:03 root
* Initial checkin.
*
* Revision 1.2 2001/06/12 16:25:28 andre
* *** empty log message ***
*
*
*/
#include <ctype.h>
#include <Xmt/Xmt.h>
#include <Xmt/ConvertersP.h>
#define skipblanks(s) while (isspace(*s)) s++
/*
* Convert a string to a NULL-terminated array of strings.
* Individual strings must be surrounded by double quotes, and
* may be optionally comma-separated. Newlines and whitespace
* outside of double quotes are ignored.
*/
/* ARGSUSED */
#if NeedFunctionPrototypes
Boolean XmtConvertStringToStringList(Display *dpy,
XrmValue *args, Cardinal *num_args,
XrmValue *from, XrmValue *to,
XtPointer *converter_data)
#else
Boolean XmtConvertStringToStringList(dpy, args, num_args,
from, to, converter_data)
Display *dpy;
XrmValue *args;
Cardinal *num_args;
XrmValue *from;
XrmValue *to;
XtPointer *converter_data;
#endif
{
char *s = (char *)from->addr;
char *mark;
int num_items = 0;
int max_items = 6;
String *items = (String *) XtMalloc(max_items * sizeof(String));
skipblanks(s);
for(;;) {
if (*s == '\0') break;
if (*s != '"') {
XtDisplayStringConversionWarning(dpy, (char *)from->addr,
XmtRStringList);
XmtWarningMsg("XmtConvertStringToStringList", "expected",
"open quote expected.");
XtFree((char *)items);
return False;
}
mark = ++s;
while (*s && *s != '"') s++;
if (*s == '\0') {
XtDisplayStringConversionWarning(dpy, (char *)from->addr,
XmtRStringList);
XmtWarningMsg("XmtConvertStringToStringList", "expected",
"close quote expected.");
XtFree((char *)items);
return False;
}
if (num_items == max_items) {
max_items *= 2;
items = (String *) XtRealloc((char *)items,
max_items * sizeof(String));
}
items[num_items] = (String) XtMalloc((s - mark) + 1);
strncpy(items[num_items], mark, (s-mark));
items[num_items][s-mark] = '\0';
num_items++;
s++;
skipblanks(s);
if (*s == ',') {
s++;
skipblanks(s);
}
}
/* NULL-terminate the array */
items = (String *) XtRealloc((char *)items, (num_items+1)*sizeof(String));
items[num_items] = NULL;
/* do the right thing: see ConvertersP.h */
done(String *, items);
}
/* ARGSUSED */
#if NeedFunctionPrototypes
static void XmtDestroyStringList(XtAppContext app, XrmValue *to,
XtPointer converter_data,
XrmValue *args, Cardinal *num_args)
#else
static void XmtDestroyStringList(app, to, converter_data, args, num_args)
XtAppContext app;
XrmValue *to;
XtPointer converter_data;
XrmValue *args;
Cardinal *num_args;
#endif
{
String *items = *(String **) to->addr;
int i;
for(i=0; items[i] != NULL; i++)
XtFree(items[i]);
XtFree((char *)items);
}
#if NeedFunctionPrototypes
void XmtRegisterStringListConverter(void)
#else
void XmtRegisterStringListConverter()
#endif
{
static Boolean registered = False;
if (!registered) {
registered = True;
XtSetTypeConverter(XtRString, XmtRStringList,
XmtConvertStringToStringList, NULL, 0,
XtCacheAll | XtCacheRefCount,
XmtDestroyStringList);
}
}
|
