4a842b8d4fa6e56ad67ac1bada987419ba5d3c7b
[chise/concord.git] / cos.c
1 /* Copyright (C) 2013 MORIOKA Tomohiko
2    This file is part of the CONCORD Library.
3
4    The CONCORD Library is free software; you can redistribute it and/or
5    modify it under the terms of the GNU Lesser General Public
6    License as published by the Free Software Foundation; either
7    version 2.1 of the License, or (at your option) any later version.
8
9    The CONCORD Library is distributed in the hope that it will be useful,
10    but WITHOUT ANY WARRANTY; without even the implied warranty of
11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
12    Lesser General Public License for more details.
13
14    You should have received a copy of the GNU Lesser General Public
15    License along with the CONCORD Library; if not, write to the Free
16    Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
17    02111-1307 USA.  */
18
19 #include <stdlib.h>
20 #include "sysdep.h"
21 #include "cos-i.h"
22 #include "cos-read.h"
23 #include "cos-print.h"
24
25 const char concord_db_format_version[] = CONCORD_DB_FORMAT_VERSION;
26 const char concord_db_dir[] = CONCORD_DB_DIR;
27 const char concord_system_db_dir[] = CONCORD_SI_DB_DIR;
28
29 CONCORD_DS concord_current_env = NULL;
30
31 int (*COS_Object_retain_function_table
32      [COS_OBJECT_TYPE_MAX - COS_Object_Type_char])
33   (COS_Object)
34   = { cos_retain_string,
35       cos_retain_symbol,
36       cos_retain_cons,
37       cos_retain_container,
38       cos_retain_sexp,
39       cos_retain_binary,
40       cos_retain_ds,
41       cos_retain_genre,
42       cos_retain_feature,
43       cos_retain_index,
44       cos_retain_db_object
45 };
46
47 int (*COS_Object_release_function_table
48      [COS_OBJECT_TYPE_MAX - COS_Object_Type_char])
49   (COS_Object)
50   = { cos_release_string,
51       cos_release_symbol,
52       cos_release_cons,
53       cos_release_container,
54       cos_release_sexp,
55       cos_release_binary,
56       cos_release_ds,
57       cos_release_genre,
58       cos_release_feature,
59       cos_release_index,
60       cos_release_db_object
61 };
62
63
64 COS_object
65 cos_make_int (COS_C_Int num)
66 {
67   return (COS_object)((COS_INT)(num << 1) | 1);
68 }
69
70 COS_C_Int
71 cos_int_value (COS_object obj)
72 {
73   if (COS_OBJECT_INT_P (obj))
74     return ((COS_INT)obj) >> 1;
75   return INTPTR_MIN;
76 }
77
78 int
79 cos_int_p (COS_object obj)
80 {
81   return COS_OBJECT_INT_P (obj);
82 }
83
84
85 COS_object
86 cos_make_char (int code)
87 {
88   return (COS_object)((COS_INT)(code << 2) | 2);
89 }
90
91 int
92 cos_char_id (COS_object obj)
93 {
94   if (COS_OBJECT_CHAR_P (obj))
95     return ((COS_INT)obj) >> 2;
96   return -1;
97 }
98
99 int
100 cos_char_p (COS_object obj)
101 {
102   return COS_OBJECT_CHAR_P (obj);
103 }
104
105
106 COS_Object
107 cos_allocate_object_0 (enum COS_Object_Type type, size_t size)
108 {
109   COS_Object obj = (COS_Object)malloc (size);
110
111   if (obj == NULL)
112     return NULL;
113
114   obj->header.prefix = COS_OBJECT_PREFIX_OBJECT;
115   obj->header.type = type;
116   obj->header.reference_count = 0;
117
118   return obj;
119 }
120
121 COS_Object
122 cos_retain_object (COS_Object obj)
123 {
124   if (COS_OBJECT_P (obj))
125     {
126       obj->header.reference_count++;
127       (*COS_Object_retain_function_table
128        [((COS_Object)obj)->header.type
129         - COS_FAT_OBJECT_TYPE_MIN])(obj);
130     }
131   return obj;
132 }
133
134 int
135 cos_release_object (COS_object obj)
136 {
137   if (COS_OBJECT_P (obj))
138     {
139       ((COS_Object)obj)->header.reference_count--;
140
141       if ( ((COS_Object)obj)->header.reference_count <= 0 )
142         return (*COS_Object_release_function_table
143                 [((COS_Object)obj)->header.type
144                  - COS_FAT_OBJECT_TYPE_MIN])(obj);
145     }
146   return 0;
147 }
148
149
150 COS_String
151 cos_make_string (char* str, size_t size)
152 {
153   COS_String obj = COS_ALLOCATE_OBJECT (String);
154
155   if (obj == NULL)
156     return NULL;
157
158   obj->size = size;
159   obj->data = malloc (size + 1);
160   if (obj->data == NULL)
161     {
162       free (obj);
163       return NULL;
164     }
165
166   strncpy ((char*)obj->data, str, size);
167   obj->data[size] = '\0';
168   return obj;
169 }
170
171 COS_String
172 cos_build_string (char* str)
173 {
174 #if 0
175   COS_String obj = COS_ALLOCATE_OBJECT (string);
176
177   if (obj == NULL)
178     return NULL;
179
180   obj->size = strlen (str);
181   obj->data = malloc (obj->size + 1);
182   if (obj->data == NULL)
183     {
184       free (obj);
185       return NULL;
186     }
187
188   strncpy ((char*)obj->data, str, obj->size);
189   obj->data[obj->size] = '\0';
190   return obj;
191 #else
192   return cos_make_string (str, strlen (str));
193 #endif
194 }
195
196 int
197 cos_retain_string (COS_Object obj)
198 {
199   return 0;
200 }
201
202 int
203 cos_release_string (COS_Object obj)
204 {
205   if (obj == NULL)
206     return 0;
207
208   if ( ((COS_String)obj)->data != NULL)
209     free (((COS_String)obj)->data);
210   free (obj);
211   return 0;
212 }
213
214 int cos_string_p (COS_object obj)
215 {
216   return COS_OBJECT_STRING_P (obj);
217 }
218
219 size_t
220 cos_string_size (COS_String string)
221 {
222   return string->size;
223 }
224
225 char*
226 cos_string_data (COS_String string)
227 {
228   return (char*)string->data;
229 }
230
231
232 COS_Cons
233 cos_cons (COS_object car, COS_object cdr)
234 {
235   COS_Cons obj = COS_ALLOCATE_OBJECT (Cons);
236
237   if (obj == NULL)
238     return NULL;
239
240   obj->car = car;
241   obj->cdr = cdr;
242   cos_retain_object (car);
243   cos_retain_object (cdr);
244
245   return obj;
246 }
247
248 int
249 cos_retain_cons (COS_Object obj)
250 {
251   cos_retain_object (COS_CAR (obj));
252   cos_retain_object (COS_CDR (obj));
253   return 0;
254 }
255
256 int
257 cos_release_cons (COS_Object obj)
258 {
259   if (obj == NULL)
260     return 0;
261
262   cos_release_object (COS_CAR (obj));
263   cos_release_object (COS_CDR (obj));
264   free (obj);
265   return 0;
266 }
267
268 COS_object
269 cos_car (COS_Cons pair)
270 {
271   if (COS_OBJECT_CONS_P (pair))
272     return COS_CAR (pair);
273   else
274     return NULL;
275 }
276
277 COS_object
278 cos_cdr (COS_Cons pair)
279 {
280   if (COS_OBJECT_CONS_P (pair))
281     return COS_CDR (pair);
282   else
283     return NULL;
284 }
285
286
287 int
288 cos_retain_container (COS_Object obj)
289 {
290   return 0;
291 }
292
293 int
294 cos_release_container (COS_Object obj)
295 {
296   return 0;
297 }
298
299
300 int
301 cos_retain_sexp (COS_Object obj)
302 {
303   return 0;
304 }
305
306 int
307 cos_release_sexp (COS_Object obj)
308 {
309   return 0;
310 }
311
312
313 int
314 cos_retain_binary (COS_Object obj)
315 {
316   return 0;
317 }
318
319 int
320 cos_release_binary (COS_Object obj)
321 {
322   return 0;
323 }
324
325
326 COS_DS
327 concord_open_env (COS_object ds)
328 {
329   if (COS_OBJECT_DS_P (ds))
330     concord_current_env = (COS_DS)ds;
331   else
332     {
333       char* path;
334
335       if (COS_OBJECT_C_STRING_P (ds))
336         path = (char*)ds;
337       else if (ds == NULL)
338         path = CONCORD_SI_DB_DIR;
339       else
340         return NULL;
341
342       concord_current_env = concord_open_ds (CONCORD_Backend_Berkeley_DB,
343                                              path, 0, 0755);
344     }
345   return concord_current_env;
346 }
347
348 int
349 cos_retain_ds (COS_Object obj)
350 {
351   return 0;
352 }
353
354 int
355 cos_release_ds (COS_Object obj)
356 {
357   return concord_close_ds ((COS_DS)obj);
358 }
359
360
361 COS_Genre
362 concord_get_genre (COS_object ds, COS_object genre)
363 {
364   if (COS_OBJECT_C_STRING_P (genre))
365     return concord_ds_get_genre (ds, (char*)genre);
366   else if (COS_OBJECT_SYMBOL_P (genre))
367     return concord_ds_get_genre (ds, (char*)((COS_Symbol)genre)->name->data);
368   else if (COS_OBJECT_GENRE_P (genre))
369     return (COS_Genre)genre;
370   return NULL;
371 }
372
373 int
374 cos_retain_genre (COS_Object obj)
375 {
376   return 0;
377 }
378
379 int
380 cos_release_genre (COS_Object obj)
381 {
382   return concord_close_genre ((COS_Genre)obj);
383 }
384
385
386 COS_Feature
387 concord_get_feature (COS_object ds,
388                      COS_object genre, COS_object feature)
389 {
390   if (COS_OBJECT_FEATURE_P (feature))
391     return feature;
392   else
393     {
394       COS_Genre gobj = concord_get_genre (ds, genre);
395       char* feature_name;
396
397       if (COS_OBJECT_C_STRING_P (feature))
398         feature_name = (char*)feature;
399       else if (COS_OBJECT_STRING_P (feature))
400         feature_name = (char*)((COS_String)feature)->data;
401       else if (COS_OBJECT_SYMBOL_P (feature))
402         feature_name = (char*)((COS_Symbol)feature)->name->data;
403       else
404         return NULL;
405
406       return concord_genre_get_feature (gobj, feature_name);
407     }
408 }
409
410 int
411 cos_retain_feature (COS_Object obj)
412 {
413   return 0;
414 }
415
416 int
417 cos_release_feature (COS_Object obj)
418 {
419   return concord_close_feature ((COS_Feature)obj);
420 }
421
422
423 COS_Feature_INDEX
424 concord_get_feature_index (COS_object ds,
425                            COS_object genre, COS_object feature)
426 {
427   if (COS_OBJECT_FEATURE_INDEX_P (feature))
428     return feature;
429   else
430     {
431       COS_Feature fobj = concord_get_feature (ds, genre, feature);
432       COS_Genre gobj;
433       char* feature_name;
434
435       if (fobj == NULL)
436         return NULL;
437
438       gobj = concord_feature_get_genre (fobj);
439       feature_name = concord_feature_get_name (fobj);
440       return concord_genre_get_index (gobj, feature_name);
441     }
442 }
443
444 int
445 cos_retain_index (COS_Object obj)
446 {
447   return concord_close_index ((COS_Feature_INDEX)obj);
448 }
449
450 int
451 cos_release_index (COS_Object obj)
452 {
453   return concord_close_index ((COS_Feature_INDEX)obj);
454 }
455
456
457 int
458 cos_retain_db_object (COS_Object obj)
459 {
460   return 0;
461 }
462
463 int
464 cos_release_db_object (COS_Object obj)
465 {
466   return 0;
467 }
468
469 COS_object
470 concord_decode_object (COS_object ds, COS_object genre,
471                        COS_object feature, COS_object id)
472 {
473   COS_Feature_INDEX index = concord_get_feature_index (ds, genre, feature);
474   char* id_str;
475   char buf[256];
476   CONCORD_String_Tank obj_st;
477   COS_String obj_string;
478   int cid;
479   size_t end;
480
481   if (index == NULL)
482     return NULL;
483
484   printf ("decoding id (%lX)...", id);
485   if (COS_OBJECT_INT_P (id))
486     {
487       printf ("(id is an int)...");
488       snprintf(buf, 256, "%ld", cos_int_value (id));
489       id_str = buf;
490     }
491   else if (COS_OBJECT_CHAR_P (id))
492     {
493       printf ("(id is a char)...");
494       snprintf(buf, 256, "%ld", cos_char_id (id));
495       id_str = buf;
496     }
497   else if (COS_OBJECT_SYMBOL_P (id))
498     {
499       printf ("(id is a symbol)....");
500       id_str = cos_string_data (cos_symbol_name ((COS_Symbol)id));
501     }
502   else if (COS_OBJECT_C_STRING_P (id))
503     {
504       printf ("(id is a C-string)....");
505       id_str = (char*)id;
506     }
507   else if (COS_OBJECT_STRING_P (id))
508     {
509       printf ("(id is a string)....");
510       id_str = cos_string_data ((COS_String)id);
511     }
512   else
513     return NULL;
514   printf ("done (%s).\n", id_str);
515
516   if ( concord_index_strid_get_obj_string (index, id_str, &obj_st) )
517     return NULL;
518
519   obj_string = cos_make_string ((char*)CONCORD_String_data (&obj_st),
520                                 CONCORD_String_size (&obj_st));
521
522   cid = cos_read_char (CONCORD_String_data (&obj_st),
523                        CONCORD_String_size (&obj_st),
524                        0, &end);
525   if ( cid >= 0 )
526     {
527       printf ("obj = %s (%d, U+%04X), len = %d, end = %d\n",
528               cos_string_data (obj_string),
529               cid, cid,
530               CONCORD_String_size (&obj_st), end);
531       cos_release_object (obj_string);
532       return cos_make_char (cid);
533     }
534   else
535     printf ("obj = %s\n", cos_string_data (obj_string));
536
537   cos_release_object (obj_string);
538
539   return NULL;
540 }
541
542 COS_object
543 concord_object_get_feature_value (COS_object object, COS_object feature)
544 {
545   char id_buf[256];
546   CONCORD_Feature fobj;
547   CONCORD_String_Tank val_st;
548   COS_String val_string;
549   size_t end;
550   int val_cid;
551   COS_String val_str;
552   COS_object val_obj;
553
554   if (COS_OBJECT_CHAR_P (object))
555     {
556       cos_utf8_print_char (object, id_buf, 256);
557       printf ("Object[char:0x%lX]'s id is %s.\n", object, id_buf);
558     }
559   else
560     return NULL;
561
562   fobj = concord_get_feature (concord_current_env,
563                               "character", feature);
564   if (fobj == NULL)
565     return NULL;
566
567   if ( concord_obj_get_feature_value_string (id_buf, fobj, &val_st) )
568     return NULL;
569
570   val_string = cos_make_string ((char*)CONCORD_String_data (&val_st),
571                                 CONCORD_String_size (&val_st));
572   printf ("obj[%s]'s %s = %s\n",
573           id_buf,
574           concord_feature_get_name (fobj),
575           cos_string_data (val_string));
576
577   val_obj = cos_read_int (CONCORD_String_data (&val_st),
578                           CONCORD_String_size (&val_st),
579                           0, &end);
580   if ( val_obj != NULL )
581     return val_obj;
582
583   val_cid = cos_read_char (CONCORD_String_data (&val_st),
584                            CONCORD_String_size (&val_st),
585                            0, &end);
586   if ( val_cid >= 0 )
587     return cos_make_char (val_cid);
588
589   val_str = cos_read_string (CONCORD_String_data (&val_st),
590                              CONCORD_String_size (&val_st),
591                              0, &end);
592   if ( val_str != NULL )
593     return val_str;
594
595   return NULL;
596 }