gwenhywfar  5.10.1
tm2c_object.c
Go to the documentation of this file.
1 /***************************************************************************
2  begin : Thu Jul 02 2009
3  copyright : (C) 2018 by Martin Preuss
4  email : martin@libchipcard.de
5 
6  ***************************************************************************
7  * Please see toplevel file COPYING for license details *
8  ***************************************************************************/
9 
10 #ifdef HAVE_CONFIG_H
11 # include <config.h>
12 #endif
13 
14 
15 #include "tm2c_object.h"
16 #include "tm2c_misc.h"
17 
18 #include <gwenhywfar/debug.h>
19 
20 #include <ctype.h>
21 
22 
23 
24 int TM2C_BuildCreateColumnList(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
25 {
26  GWEN_BUFFER *tbuf;
27  const char *s;
28  TYPEMAKER2_MEMBER_LIST *tml;
29  /* uint32_t flags; */
30  TYPEMAKER2_TYPEMANAGER *tym;
31 
32  tym=Typemaker2_Builder_GetTypeManager(tb);
33  tbuf=GWEN_Buffer_new(0, 256, 0, 1);
34 
35  /* flags=Typemaker2_Type_GetFlags(ty); */
36 
37  /* prototype */
38  s=Typemaker2_TypeManager_GetApiDeclaration(tym);
39  if (s) {
40  GWEN_Buffer_AppendString(tbuf, s);
41  GWEN_Buffer_AppendString(tbuf, " ");
42  }
43  GWEN_Buffer_AppendString(tbuf, "AQDB_COLUMN_LIST *");
44  s=Typemaker2_Type_GetPrefix(ty);
45  GWEN_Buffer_AppendString(tbuf, s);
46  GWEN_Buffer_AppendString(tbuf, "_CreateColumnList();\n");
47  Typemaker2_Builder_AddPublicDeclaration(tb, GWEN_Buffer_GetStart(tbuf));
48  GWEN_Buffer_Reset(tbuf);
49 
50  /* implementation */
51  GWEN_Buffer_AppendString(tbuf, "AQDB_COLUMN_LIST *");
52  s=Typemaker2_Type_GetPrefix(ty);
53  GWEN_Buffer_AppendString(tbuf, s);
54  GWEN_Buffer_AppendString(tbuf, "_CreateColumnList() {\n");
55 
56  if (Typemaker2_Type_GetNonVolatileMemberCount(ty)==0) {
57  GWEN_Buffer_AppendString(tbuf, " return NULL;\n");
58  }
59  else {
60  GWEN_Buffer_AppendString(tbuf, " AQDB_COLUMN_LIST *p_cl;\n");
61  GWEN_Buffer_AppendString(tbuf, " AQDB_COLUMN *p_c;\n");
62  GWEN_Buffer_AppendString(tbuf, "\n");
63 
64  GWEN_Buffer_AppendString(tbuf, " p_cl=AQDB_Column_List_new();\n");
65  GWEN_Buffer_AppendString(tbuf, "\n");
66 
67  tml=Typemaker2_Type_GetMembers(ty);
68  if (tml) {
69  TYPEMAKER2_MEMBER *tm;
70 
71  tm=Typemaker2_Member_List_First(tml);
72  while (tm) {
73  TYPEMAKER2_TYPE *mty;
74 
75  mty=Typemaker2_Member_GetTypePtr(tm);
76  assert(mty);
77 
78  if (!(Typemaker2_Member_GetFlags(tm) & TYPEMAKER2_FLAGS_VOLATILE)) {
79  char numbuf[32];
80  int l;
81 
82  GWEN_Buffer_AppendString(tbuf, " /* member \"");
83  s=Typemaker2_Member_GetName(tm);
84  GWEN_Buffer_AppendString(tbuf, s);
85  GWEN_Buffer_AppendString(tbuf, "\" */\n");
86 
87  GWEN_Buffer_AppendString(tbuf, " p_c=AQDB_Column_new(");
88  s=Typemaker2_Type_GetAqDbType(mty);
89  if (s && *s) {
90  GWEN_Buffer_AppendString(tbuf, s);
91  }
92  else {
93  DBG_ERROR(GWEN_LOGDOMAIN, "Type has no AQDB type element");
94  GWEN_Buffer_free(tbuf);
95  return GWEN_ERROR_BAD_DATA;
96  }
97 
98  GWEN_Buffer_AppendString(tbuf, ", \"");
99  s=Typemaker2_Member_GetName(tm);
100  GWEN_Buffer_AppendString(tbuf, s);
101  GWEN_Buffer_AppendString(tbuf, "\", ");
102 
103  l=Typemaker2_Member_GetMaxLen(tm);
104  if (l==0) {
105  DBG_ERROR(GWEN_LOGDOMAIN, "Member [%s] has no maxlen attribute",
106  Typemaker2_Member_GetName(tm));
107  GWEN_Buffer_free(tbuf);
108  return GWEN_ERROR_BAD_DATA;
109  }
110  snprintf(numbuf, sizeof(numbuf)-1, "%d", l);
111  numbuf[sizeof(numbuf)-1]=0;
112  GWEN_Buffer_AppendString(tbuf, numbuf);
113  GWEN_Buffer_AppendString(tbuf, ");\n");
114  GWEN_Buffer_AppendString(tbuf, " AQDB_Column_List_Add(p_c, p_cl);\n");
115  }
116  else {
117  GWEN_Buffer_AppendString(tbuf, " /* member \"");
118  s=Typemaker2_Member_GetName(tm);
119  GWEN_Buffer_AppendString(tbuf, s);
120  GWEN_Buffer_AppendString(tbuf, "\" is volatile, not adding to column list */\n");
121  }
122  GWEN_Buffer_AppendString(tbuf, "\n");
123 
124  tm=Typemaker2_Member_List_Next(tm);
125  }
126  }
127  GWEN_Buffer_AppendString(tbuf, " return p_cl;\n");
128  }
129 
130  GWEN_Buffer_AppendString(tbuf, "}\n");
131 
132  Typemaker2_Builder_AddCode(tb, GWEN_Buffer_GetStart(tbuf));
133  GWEN_Buffer_free(tbuf);
134 
135  return 0;
136 }
137 
138 
139 
140 int TM2C_BuildCreateTable(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
141 {
142  GWEN_BUFFER *tbuf;
143  const char *s;
144  /* uint32_t flags; */
145  TYPEMAKER2_TYPEMANAGER *tym;
146 
147  tym=Typemaker2_Builder_GetTypeManager(tb);
148  tbuf=GWEN_Buffer_new(0, 256, 0, 1);
149 
150  /* flags=Typemaker2_Type_GetFlags(ty); */
151 
152  /* prototype */
153  s=Typemaker2_TypeManager_GetApiDeclaration(tym);
154  if (s) {
155  GWEN_Buffer_AppendString(tbuf, s);
156  GWEN_Buffer_AppendString(tbuf, " ");
157  }
158  GWEN_Buffer_AppendString(tbuf, "int ");
159  s=Typemaker2_Type_GetPrefix(ty);
160  GWEN_Buffer_AppendString(tbuf, s);
161  GWEN_Buffer_AppendString(tbuf, "_CreateTable(AQDB_DB *p_db, const char *p_name, uint32_t p_flags);");
162  Typemaker2_Builder_AddPublicDeclaration(tb, GWEN_Buffer_GetStart(tbuf));
163  GWEN_Buffer_Reset(tbuf);
164 
165  /* implementation */
166  GWEN_Buffer_AppendString(tbuf, "int ");
167  s=Typemaker2_Type_GetPrefix(ty);
168  GWEN_Buffer_AppendString(tbuf, s);
169  GWEN_Buffer_AppendString(tbuf, "_CreateTable(AQDB_DB *p_db, const char *p_name, uint32_t p_flags) {\n");
170 
171  GWEN_Buffer_AppendString(tbuf, " AQDB_COLUMN_LIST *p_cl;\n");
172  GWEN_Buffer_AppendString(tbuf, " int p_rv;\n");
173  GWEN_Buffer_AppendString(tbuf, "\n");
174 
175  GWEN_Buffer_AppendString(tbuf, " p_cl=");
176  s=Typemaker2_Type_GetPrefix(ty);
177  GWEN_Buffer_AppendString(tbuf, s);
178  GWEN_Buffer_AppendString(tbuf, "_CreateColumnList();\n");
179 
180  GWEN_Buffer_AppendString(tbuf, " p_rv=AQDB_DB_CreateTable(p_db, p_name, p_flags, p_cl);\n");
181  GWEN_Buffer_AppendString(tbuf, " AQDB_Column_List_free(p_cl);\n");
182  GWEN_Buffer_AppendString(tbuf, " if (p_rv<0) {\n");
183  GWEN_Buffer_AppendString(tbuf, " DBG_INFO(GWEN_LOGDOMAIN, \"here (%d)\", p_rv);\n");
184  GWEN_Buffer_AppendString(tbuf, " return p_rv;\n");
185  GWEN_Buffer_AppendString(tbuf, " }\n");
186 
187  GWEN_Buffer_AppendString(tbuf, " return 0;\n");
188  GWEN_Buffer_AppendString(tbuf, "}\n");
189 
190  Typemaker2_Builder_AddCode(tb, GWEN_Buffer_GetStart(tbuf));
191  GWEN_Buffer_free(tbuf);
192 
193  return 0;
194 }
195 
196 
197 
198 int TM2C_BuildCreateObject(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
199 {
200  GWEN_BUFFER *tbuf;
201  const char *s;
202  /* uint32_t flags; */
203  TYPEMAKER2_TYPEMANAGER *tym;
204 
205  tym=Typemaker2_Builder_GetTypeManager(tb);
206  tbuf=GWEN_Buffer_new(0, 256, 0, 1);
207 
208  /* flags=Typemaker2_Type_GetFlags(ty); */
209 
210  /* prototype */
211  s=Typemaker2_TypeManager_GetApiDeclaration(tym);
212  if (s) {
213  GWEN_Buffer_AppendString(tbuf, s);
214  GWEN_Buffer_AppendString(tbuf, " ");
215  }
216  GWEN_Buffer_AppendString(tbuf, "int ");
217  s=Typemaker2_Type_GetPrefix(ty);
218  GWEN_Buffer_AppendString(tbuf, s);
219  GWEN_Buffer_AppendString(tbuf, "_CreateObject(AQDB_DB *p_db, AQDB_ID p_tableId, AQDB_ID p_id, AQDB_OBJECT **pp_o);\n");
220  Typemaker2_Builder_AddPublicDeclaration(tb, GWEN_Buffer_GetStart(tbuf));
221  GWEN_Buffer_Reset(tbuf);
222 
223  /* implementation */
224  GWEN_Buffer_AppendString(tbuf, "int ");
225  s=Typemaker2_Type_GetPrefix(ty);
226  GWEN_Buffer_AppendString(tbuf, s);
227  GWEN_Buffer_AppendString(tbuf, "_CreateObject(AQDB_DB *p_db, AQDB_ID p_tableId, AQDB_ID p_id, AQDB_OBJECT **pp_o) {\n");
228 
229  GWEN_Buffer_AppendString(tbuf, " AQDB_OBJECT *p_o;\n");
230  GWEN_Buffer_AppendString(tbuf, "\n");
231 
232  GWEN_Buffer_AppendString(tbuf, " p_o=AQDB_Object_new(p_tableId, p_id, ");
233  s=Typemaker2_Type_GetFieldCountId(ty);
234  if (s && *s) {
235  }
236  GWEN_Buffer_AppendString(tbuf, s);
237  GWEN_Buffer_AppendString(tbuf, ");\n");
238  GWEN_Buffer_AppendString(tbuf, " *pp_o=p_o;\n");
239  GWEN_Buffer_AppendString(tbuf, " return 0;\n");
240  GWEN_Buffer_AppendString(tbuf, "}\n");
241 
242  Typemaker2_Builder_AddCode(tb, GWEN_Buffer_GetStart(tbuf));
243  GWEN_Buffer_free(tbuf);
244 
245  return 0;
246 }
247 
248 
249 
Typemaker2_Builder_GetTypeManager
TYPEMAKER2_TYPEMANAGER * Typemaker2_Builder_GetTypeManager(const TYPEMAKER2_BUILDER *tb)
Definition: tm_builder.c:133
TM2C_BuildCreateColumnList
int TM2C_BuildCreateColumnList(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
Definition: tm2c_object.c:24
Typemaker2_Member_GetTypePtr
TYPEMAKER2_TYPE * Typemaker2_Member_GetTypePtr(const TYPEMAKER2_MEMBER *tm)
Definition: tm_member.c:467
GWEN_Buffer_GetStart
char * GWEN_Buffer_GetStart(const GWEN_BUFFER *bf)
Definition: buffer.c:235
Typemaker2_Member_GetFlags
uint32_t Typemaker2_Member_GetFlags(const TYPEMAKER2_MEMBER *tm)
Definition: tm_member.c:237
Typemaker2_Type_GetAqDbType
const char * Typemaker2_Type_GetAqDbType(const TYPEMAKER2_TYPE *ty)
Definition: tm_type.c:195
GWEN_LOGDOMAIN
#define GWEN_LOGDOMAIN
Definition: logger.h:35
GWEN_Buffer_new
GWEN_BUFFER * GWEN_Buffer_new(char *buffer, uint32_t size, uint32_t used, int take)
Definition: buffer.c:42
Typemaker2_Member_GetMaxLen
int Typemaker2_Member_GetMaxLen(const TYPEMAKER2_MEMBER *tm)
Definition: tm_member.c:369
GWEN_Buffer_Reset
void GWEN_Buffer_Reset(GWEN_BUFFER *bf)
Definition: buffer.c:650
GWEN_ERROR_BAD_DATA
#define GWEN_ERROR_BAD_DATA
Definition: error.h:121
TM2C_BuildCreateTable
int TM2C_BuildCreateTable(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
Definition: tm2c_object.c:140
tm2c_object.h
TM2C_BuildCreateObject
int TM2C_BuildCreateObject(TYPEMAKER2_BUILDER *tb, TYPEMAKER2_TYPE *ty)
Definition: tm2c_object.c:198
Typemaker2_Type_GetNonVolatileMemberCount
int Typemaker2_Type_GetNonVolatileMemberCount(const TYPEMAKER2_TYPE *ty)
Definition: tm_type.c:731
TYPEMAKER2_BUILDER
struct TYPEMAKER2_BUILDER TYPEMAKER2_BUILDER
Definition: tm_builder.h:26
Typemaker2_Type_GetMembers
TYPEMAKER2_MEMBER_LIST * Typemaker2_Type_GetMembers(const TYPEMAKER2_TYPE *ty)
Definition: tm_type.c:641
GWEN_Buffer_free
void GWEN_Buffer_free(GWEN_BUFFER *bf)
Definition: buffer.c:89
GWEN_BUFFER
struct GWEN_BUFFER GWEN_BUFFER
A dynamically resizeable text buffer.
Definition: buffer.h:38
Typemaker2_Builder_AddCode
void Typemaker2_Builder_AddCode(TYPEMAKER2_BUILDER *tb, const char *s)
Definition: tm_builder.c:204
DBG_ERROR
#define DBG_ERROR(dbg_logger, format, args...)
Definition: debug.h:97
TYPEMAKER2_TYPE
struct TYPEMAKER2_TYPE TYPEMAKER2_TYPE
Definition: tm_type.h:21
Typemaker2_Builder_AddPublicDeclaration
void Typemaker2_Builder_AddPublicDeclaration(TYPEMAKER2_BUILDER *tb, const char *s)
Definition: tm_builder.c:172
TYPEMAKER2_TYPEMANAGER
struct TYPEMAKER2_TYPEMANAGER TYPEMAKER2_TYPEMANAGER
Definition: tm_typemanager.h:19
tm2c_misc.h
Typemaker2_Type_GetPrefix
const char * Typemaker2_Type_GetPrefix(const TYPEMAKER2_TYPE *ty)
Definition: tm_type.c:565
Typemaker2_TypeManager_GetApiDeclaration
const char * Typemaker2_TypeManager_GetApiDeclaration(const TYPEMAKER2_TYPEMANAGER *tym)
Definition: tm_typemanager.c:82
TYPEMAKER2_MEMBER
struct TYPEMAKER2_MEMBER TYPEMAKER2_MEMBER
Definition: tm_member.h:21
Typemaker2_Member_GetName
const char * Typemaker2_Member_GetName(const TYPEMAKER2_MEMBER *tm)
Definition: tm_member.c:83
TYPEMAKER2_FLAGS_VOLATILE
#define TYPEMAKER2_FLAGS_VOLATILE
Definition: tm_type.h:32
Typemaker2_Type_GetFieldCountId
const char * Typemaker2_Type_GetFieldCountId(const TYPEMAKER2_TYPE *ty)
Definition: tm_type.c:749
GWEN_Buffer_AppendString
int GWEN_Buffer_AppendString(GWEN_BUFFER *bf, const char *buffer)
Definition: buffer.c:989
Generated by   doxygen 1.8.14