CoreFW  Check-in [8eceaeb4a4]

Overview
Comment:Add int boxing.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA3-256: 8eceaeb4a43b50504fe5b407f03353d1d6d77f2f986464b96398c828a2debd44
User & Date: js on 2012-04-22 14:17:10
Other Links: manifest | tags
Context
2012-04-22
14:19
Nicer tests. check-in: 3e28d1e360 user: js tags: trunk
14:17
Add int boxing. check-in: 8eceaeb4a4 user: js tags: trunk
14:10
Add cfw_class. check-in: 106a4491c3 user: js tags: trunk
Changes
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified src/Makefile from [5cb56e5531] to [1d8d518421]. 

1
2
3
4
5
6

7
8
9
10
11
12
13

1
2
3
4
5
6
7
8
9
10
11
12
13
14







+








SHARED_LIB = ${LIB_PREFIX}corefw${LIB_SUFFIX}
LIB_MAJOR = 0
LIB_MINOR = 0

SRCS = array.c		\
       class.c		\
       int.c		\
       map.c		\
       object.c		\
       range.c		\
       refpool.c	\
       string.c

INCLUDES = ${SRCS:.c=.h}	\
︙

Added src/int.c version [e4cdadbc89].

Added src/int.h version [3b84417ad6].

Modified tests/tests.c from [4dca54f056] to [4f675be50b].

︙
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

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








+













+
-
-
-
+
+
+
+
+
+
+
+








 */

#include <stdio.h>

#include "object.h"
#include "refpool.h"
#include "string.h"
#include "int.h"
#include "array.h"
#include "map.h"

static void
print_map(CFWMap *map)
{
	cfw_map_iter_t iter;

	cfw_map_iter(map, &iter);

	fputs("{\n", stdout);

	while (iter.key != NULL) {
		if (cfw_is(iter.obj, cfw_string)) {
		printf("\t%s = %s\n",
		    cfw_string_c(iter.key),
		    cfw_string_c(iter.obj));
			printf("\t%s = %s\n",
			    cfw_string_c(iter.key),
			    cfw_string_c(iter.obj));
		} else if (cfw_is(iter.obj, cfw_int)) {
			printf("\t%s = %jd\n",
			    cfw_string_c(iter.key),
			    cfw_int_value(iter.obj));
		}

		cfw_map_iter_next(&iter);
	}

	fputs("}\n", stdout);
}
︙
86
87
88
89
90
91
92
93



94
95
96
97
98
99
100

93
94
95
96
97
98
99

100
101
102
103
104
105
106
107
108
109








-
+
+
+









	p = cfw_new(cfw_refpool);

	m = cfw_new_p(cfw_map,
	    cfw_new_p(cfw_string, "Hallo"),
	    cfw_new_p(cfw_string, "Welt!"),
	    cfw_new_p(cfw_string, "Test"),
	    cfw_new_p(cfw_string, "success!"), NULL);
	    cfw_new_p(cfw_string, "success!"),
	    cfw_new_p(cfw_string, "int"),
	    cfw_new_p(cfw_int, INTMAX_C(1234)), NULL);

	print_map(m);

	cfw_map_set(m,
	    cfw_new_p(cfw_string, "Hallo"),
	    cfw_new_p(cfw_string, "Test"));
︙