blob: a7c746571a6a0a5f52ef20ade225c057658d37e1 (
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
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
|
/* This file is part of GCC.
GCC 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 3, or (at your option) any later
version.
GCC 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 GCC; see the file COPYING3. If not see
<http://www.gnu.org/licenses/>. */
#ifdef HAVE_CONFIG_H
#include "config.h"
#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <stdbool.h>
#include <gmp.h>
#include <mpfr.h>
#include <gpython/gpython.h>
#include <gpython/objects.h>
#include <gpython/vectors.h>
#include <gpython/garbage.h>
bool gpy_args_check_fmt (gpy_object_t ** args, const char * fmt)
{
bool retval = true;
size_t idx = 0, l = strlen (fmt);
for ( ; args[idx]->T != TYPE_NULL; ++idx )
{
gpy_assert (idx < l);
char c = fmt[idx];
switch (c)
{
/* Literal Integer ... */
case 'i':
{
gpy_assert (args[idx]->T == TYPE_OBJECT_LIT);
gpy_assert (args[idx]->o.literal->type == TYPE_INTEGER);
debug ("integer check pass!\n");
}
break;
default:
error ("unhandled format option <%c>!\n", c);
break;
}
}
return retval;
}
int gpy_args_lit_parse_int (gpy_object_t * arg)
{
int retval = -1;
gpy_assert (arg->T == TYPE_OBJECT_LIT);
gpy_assert (arg->o.literal->type == TYPE_INTEGER);
retval = arg->o.literal->literal.integer;
debug ("parsed int <%i>!\n", retval);
return retval;
}
gpy_object_t * gpy_create_object_state (gpy_typedef_t * type,
const void * self)
{
gpy_object_state_t * state = (gpy_object_state_t *)
gpy_malloc (sizeof(gpy_object_state_t));
state->obj_t_ident = strdup(type->identifier);
state->ref_count = 0;
state->self = self;
state->definition = type;
gpy_object_t * retval = (gpy_object_t *)
gpy_malloc (sizeof(gpy_object_t));
retval->T = TYPE_OBJECT_STATE;
retval->o.object_state = state;
return retval;
}
|
