blob: c19797844d348bdbca2c47dd1c0c86a903d7b45f (
plain)
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
|
/* $Id: sttype-string.c,v 1.1 2001/02/01 20:21:18 gram Exp $ */
#include "syntax-tree.h"
static gpointer
string_new(gpointer string)
{
return (gpointer) g_strdup((char*) string);
}
static void
string_free(gpointer value)
{
g_free(value);
}
void
sttype_register_string(void)
{
static sttype_t string_type = {
STTYPE_STRING,
"STRING",
string_new,
string_free,
};
sttype_register(&string_type);
}
|