MadButterfly: tools/mb_c_source.m4 annotate

annotate tools/mb_c_source.m4 @ 213:a0a3196b1a05

Refactory pointer computation into a macro. - It is hard to read a complicate pointer calculation. A macro can make it more easy to be read.

author	Thinker K.F. Li <thinker@branda.to>
date	Fri, 12 Dec 2008 09:35:27 +0800
parents	5f144bab5de1
children	104d83378582

rev	line source
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	1 changequote(`[', `]')dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	2 include([foreach.m4])dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	3 divert([-1])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	4
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	5 define([UNQUOTE], [$*])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	6
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	7 define([QUOTE], [[[$*]]])
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	8
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	9 define([COUNT],[ifelse([$*],[],0,[$#])])
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	10
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	11 define([IMPORT],[define([$1],[$2$1(]$[]@[)])])
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	12
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	13 define([D_COLOR_STOP],[
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	14 {$6,$2,$3,$4,$5}])
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	15
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	16 define([D_ADD_LINEAR_PAINT],[dnl
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	17 ifelse(COUNT($6),0,,[dnl
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	18 static const int n_$1_stops = COUNT($6);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	19 static const grad_stop_t $1_stops[[]] = {UNQUOTE($6)};
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	20 ])dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	21 ])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	22
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	23 define([D_ADD_RADIAL_PAINT],[dnl
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	24 ifelse(COUNT($5),0,,[dnl
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	25 static const int n_$1_stops = COUNT($5);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	26 static const grad_stop_t $1_stops[[]] = {UNQUOTE($5)};
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	27 ])dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	28 ])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	29
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	30 define([DECLARE_VARS], [divert([-1])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	31 define([DIMPORT],[IMPORT(]QUOTE($[]1)[,[D_])])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	32 DIMPORT([ADD_LINEAR_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	33 DIMPORT([ADD_RADIAL_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	34 DIMPORT([COLOR_STOP])
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	35 define([REF_STOPS_RADIAL])
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	36 define([REF_STOPS_LINEAR])
73 9ab15ebc9061 Observer for mouse events Thinker K.F. Li <thinker@branda.to> parents: 69 diff changeset	37 define([ADD_PATH])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	38 define([ADD_RECT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	39 define([ADD_COORD])
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	40 define([ADD_TEXT],)
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	41 define([FILL_SHAPE])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	42 define([STROKE_SHAPE])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	43 define([FILL_SHAPE_WITH_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	44 define([STROKE_SHAPE_WITH_PAINT])
80 e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	45 define([STROKE_WIDTH])
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	46 define([GROUP_HIDE],)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	47 define([RECT_HIDE],)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	48 define([PATH_HIDE],)
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	49 define([COORD_TRANSLATE],)
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	50 define([COORD_MATRIX],)
100 1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	51 define([SHAPE_TRANSLATE],)
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	52 define([SHAPE_MATRIX],)
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	53 define([ADD_SYMBOL],)
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	54 divert[]])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	55
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	56 define([S_ADD_LINEAR_PAINT],[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	57 obj->$1 = rdman_paint_linear_new(rdman, $2, $3, $4, $5);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	58 ifelse(COUNT($6),0,,[dnl
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	59 stops = (grad_stop_t )malloc(sizeof(grad_stop_t) n_$1_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	60 memcpy(stops, $1_stops, sizeof(grad_stop_t) * n_$1_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	61 paint_linear_stops(obj->$1, n_$1_stops, stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	62 ])dnl
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	63 ])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	64
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	65 define([S_ADD_RADIAL_PAINT],[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	66 obj->$1 = rdman_paint_radial_new(rdman, $2, $3, $4);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	67 ifelse(COUNT($5),0,,[
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	68 stops = (grad_stop_t )malloc(sizeof(grad_stop_t) n_$1_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	69 memcpy(stops, $1_stops, sizeof(grad_stop_t) * n_$1_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	70 paint_radial_stops(obj->$1, n_$1_stops, stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	71 ])dnl
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	72 ])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	73
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	74 define([S_COLOR_STOP],[])
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	75
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	76 define([S_REF_STOPS_RADIAL],[dnl
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	77 [ stops = (grad_stop_t )malloc(sizeof(grad_stop_t) n_$2_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	78 memcpy(stops, $2_stops, sizeof(grad_stop_t) * n_$2_stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	79 paint_radial_stops(obj->$1, n_$2_stops, stops);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	80 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	81
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	82 define([S_REF_STOPS_LINEAR],[dnl
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	83 [ stops = (grad_stop_t )malloc(sizeof(grad_stop_t) n_$2_stops);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	84 memcpy(stops, $2_stops, sizeof(grad_stop_t) * n_$2_stops);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	85 paint_linear_stops(obj->$1, n_$2_stops, stops);
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	86 ]])
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	87
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	88 define([S_ADD_RECT],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	89 obj->$1 = rdman_shape_rect_new(rdman, $2, $3, $4, $5, $6, $7);
197 bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	90
80 e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	91 rdman_add_shape(rdman, obj->$1, obj->$8);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	92 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	93
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	94 define([S_ADD_PATH],[[
197 bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	95 {
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	96 char _cmds[] = "$3";
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	97 float _args[] = {$4};
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	98 int _fix_args[] = {$6};
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	99 obj->$1 = rdman_shape_path_new_from_binary(rdman, _cmds,_args,$5,_fix_args,$7);
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	100 rdman_add_shape(rdman, obj->$1, obj->$2);
bcad1ccdf45c Translate the path string into binary array to save the parsing in the runtime. It can reduce the size as well. wycc@wycc-desktop parents: 186 diff changeset	101 }
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	102 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	103
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	104 define([S_ADD_COORD],[[
66 309f1eefbec0 create new coords from redraw_man Thinker K.F. Li <thinker@branda.to> parents: 64 diff changeset	105 obj->$1 = rdman_coord_new(rdman, obj->$2);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	106 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	107
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	108 define([S_ADD_TEXT],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	109 obj->$1 = rdman_shape_text_new(rdman, "$2", $3, $4, $5,
b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	110 cairo_get_font_face(rdman->cr));
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	111 rdman_add_shape(rdman, obj->$1, obj->$6);
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	112 ]])
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	113
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	114 define([S_FILL_SHAPE_WITH_PAINT],[dnl
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	115 [ rdman_paint_fill(rdman, obj->$2, obj->$1);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	116 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	117
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	118 define([S_STROKE_SHAPE_WITH_PAINT],[dnl
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	119 [ rdman_paint_stroke(rdman, obj->$2, obj->$1);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	120 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	121
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	122 define([S_FILL_SHAPE],[dnl
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	123 [ obj->$1_fill = rdman_paint_color_new(rdman, $2, $3, $4, $5);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	124 rdman_paint_fill(rdman, obj->$1_fill, obj->$1);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	125 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	126
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	127 define([S_STROKE_SHAPE],[dnl
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	128 [ obj->$1_stroke = rdman_paint_color_new(rdman, $2, $3, $4, $5);
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	129 rdman_paint_stroke(rdman, obj->$1_stroke, obj->$1);
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	130 ]])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	131
80 e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	132 define([S_STROKE_WIDTH],[dnl
e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	133 [ obj->$1->stroke_width = $2;
e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	134 ]])
e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	135
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	136 define([S_GROUP_HIDE],[dnl
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	137 [ coord_hide(obj->$1);
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	138 ]])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	139
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	140 define([S_RECT_HIDE],[dnl
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	141 [ sh_hide(obj->$1);
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	142 ]])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	143
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	144 define([S_PATH_HIDE],[dnl
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	145 [ sh_hide(obj->$1);
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	146 ]])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	147
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	148 define([S_COORD_TRANSLATE],[dnl
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	149 [ memset(obj->$1->matrix, 0, sizeof(obj->$1->matrix));
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	150 obj->$1->matrix[0] = 1;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	151 obj->$1->matrix[2] = $2;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	152 obj->$1->matrix[4] = 1;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	153 obj->$1->matrix[5] = $3;
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	154 rdman_coord_changed(rdman, obj->$1);
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	155 ]])
42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	156
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	157 define([S_COORD_MATRIX],[dnl
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	158 [ obj->$1->matrix[0] = $2;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	159 obj->$1->matrix[3] = $3;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	160 obj->$1->matrix[1] = $4;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	161 obj->$1->matrix[4] = $5;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	162 obj->$1->matrix[2] = $6;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	163 obj->$1->matrix[5] = $7;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	164 rdman_coord_changed(rdman, obj->$1);
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	165 ]])
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	166
100 1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	167 define([S_SHAPE_TRANSLATE],[dnl
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	168 [ memset(obj->$1->matrix, 0, sizeof(obj->$1->matrix));
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	169 obj->$1->matrix[0] = 1;
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	170 obj->$1->matrix[2] = $2;
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	171 obj->$1->matrix[4] = 1;
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	172 obj->$1->matrix[5] = $3;
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	173 rdman_coord_changed(rdman, obj->$1);
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	174 ]])
1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	175
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	176 define([S_SHAPE_MATRIX],[dnl
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	177 [ obj->$1->matrix[0] = $2;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	178 obj->$1->matrix[3] = $3;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	179 obj->$1->matrix[1] = $4;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	180 obj->$1->matrix[4] = $5;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	181 obj->$1->matrix[2] = $6;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	182 obj->$1->matrix[5] = $7;
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	183 rdman_coord_changed(rdman, obj->$1);
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	184 ]])
9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	185
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	186 define([SETUP_VARS],[divert([-1])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	187 define([SIMPORT],[IMPORT(]QUOTE($[]1)[,[S_])])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	188 SIMPORT([ADD_LINEAR_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	189 SIMPORT([ADD_RADIAL_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	190 SIMPORT([COLOR_STOP])
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	191 SIMPORT([REF_STOPS_RADIAL])
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	192 SIMPORT([REF_STOPS_LINEAR])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	193 SIMPORT([ADD_PATH],)
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	194 SIMPORT([ADD_RECT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	195 SIMPORT([ADD_COORD])
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	196 SIMPORT([ADD_TEXT])
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	197 SIMPORT([FILL_SHAPE])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	198 SIMPORT([STROKE_SHAPE])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	199 SIMPORT([FILL_SHAPE_WITH_PAINT])
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	200 SIMPORT([STROKE_SHAPE_WITH_PAINT])
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	201 SIMPORT([STROKE_WIDTH])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	202 SIMPORT([GROUP_HIDE])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	203 SIMPORT([RECT_HIDE])
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	204 SIMPORT([PATH_HIDE])
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	205 SIMPORT([COORD_TRANSLATE])
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	206 SIMPORT([COORD_MATRIX])
100 1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	207 SIMPORT([SHAPE_TRANSLATE])
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	208 SIMPORT([SHAPE_MATRIX])
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	209 define([ADD_SYMBOL],)
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	210 divert[]])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	211
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	212 define([F_ADD_LINEAR_PAINT],[[
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	213 stops = paint_linear_stops(obj->$1, 0, NULL);
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	214 free(stops);
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	215 rdman_paint_free(rdman, obj->$1);
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	216 ]])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	217
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	218 define([F_ADD_RADIAL_PAINT],[[
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	219 stops = paint_radial_stops(obj->$1, 0, NULL);
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	220 free(stops);
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	221 rdman_paint_free(rdman, obj->$1);
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	222 ]])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	223
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	224 define([F_ADD_PATH],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	225 rdman_shape_free(rdman, obj->$1);
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	226 ]])
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	227
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	228 define([F_ADD_RECT],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	229 rdman_shape_free(rdman, obj->$1);
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	230 ]])
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	231
ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	232 define([F_ADD_TEXT],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	233 rdman_shape_free(rdman, obj->$1);
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	234 ]])
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	235
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	236 define([F_FILL_SHAPE],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	237 rdman_paint_free(rdman, obj->$1_fill);
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	238 ]])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	239
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	240 define([F_STROKE_SHAPE],[[
159 b90abd31a281 Postponse free of coords, shapes, and paints when the rdman is dirty. Thinker K.F. Li <thinker@branda.to> parents: 154 diff changeset	241 rdman_paint_free(rdman, obj->$1_stroke);
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	242 ]])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	243
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	244 define([CLEAR_VARS],[divert([-1])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	245 define([FIMPORT],[IMPORT(]QUOTE($[]1)[,[F_])])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	246 FIMPORT([ADD_LINEAR_PAINT])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	247 FIMPORT([ADD_RADIAL_PAINT])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	248 define([COLOR_STOP])
78 3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	249 define([REF_STOPS_RADIAL])
3645e29e4986 Add runtime for Xlib. Thinker K.F. Li <thinker@branda.to> parents: 73 diff changeset	250 define([REF_STOPS_LINEAR])
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	251 FIMPORT([ADD_PATH],)
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	252 FIMPORT([ADD_RECT])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	253 define([ADD_COORD])
83 ea758bb3bbe2 example Thinker K.F. Li <thinker@branda.to> parents: 81 diff changeset	254 FIMPORT([ADD_TEXT])
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	255 FIMPORT([FILL_SHAPE])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	256 FIMPORT([STROKE_SHAPE])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	257 define([FILL_SHAPE_WITH_PAINT])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	258 define([STROKE_SHAPE_WITH_PAINT])
80 e548221c04eb svg2code.py support stroke Thinker K.F. Li <thinker@branda.to> parents: 78 diff changeset	259 define([STROKE_WIDTH])
81 13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	260 define([GROUP_HIDE],)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	261 define([RECT_HIDE],)
13fdf205047b Hide shapes and groups Thinker K.F. Li <thinker@branda.to> parents: 80 diff changeset	262 define([PATH_HIDE],)
84 42698de1f653 Support translate() function for transform attribute of 'g' tag. Thinker K.F. Li <thinker@branda.to> parents: 83 diff changeset	263 define([COORD_TRANSLATE],)
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	264 define([COORD_MATRIX],)
100 1a1dda98730c Fix the bug of order of cross & inner product of vectors Thinker K.F. Li <thinker@branda.to> parents: 85 diff changeset	265 define([SHAPE_TRANSLATE],)
85 9b4a02bcaeb1 matrix() function in transform attribute of group and shapes Thinker K.F. Li <thinker@branda.to> parents: 84 diff changeset	266 define([SHAPE_MATRIX],)
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	267 define([ADD_SYMBOL],)
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	268 divert[]])
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	269
154 6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	270 define([REVERSE_VARS],[divert([-1])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	271 define([__REV_VAR],[])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	272 define([PUSH_REV], [
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	273 pushdef([__REV_VAR])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	274 define([__REV_VAR], ]QUOTE(QUOTE($[]1))[)])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	275 define([POP_ALL_REV], [dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	276 ifelse(__REV_VAR, [], ,[UNQUOTE(__REV_VAR)[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	277 popdef([__REV_VAR])[]POP_ALL_REV[]])])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	278 define([RIMPORT], [
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	279 define(]QUOTE($[]1)[,
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	280 [PUSH_REV(]]QUOTE(QUOTE($[]1))[[(]QUOTE($[]@)[))])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	281 ])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	282 RIMPORT([ADD_LINEAR_PAINT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	283 RIMPORT([ADD_RADIAL_PAINT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	284 RIMPORT([COLOR_STOP])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	285 RIMPORT([REF_STOPS_RADIAL])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	286 RIMPORT([REF_STOPS_LINEAR])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	287 RIMPORT([ADD_PATH])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	288 RIMPORT([ADD_RECT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	289 RIMPORT([ADD_COORD])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	290 RIMPORT([ADD_TEXT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	291 RIMPORT([FILL_SHAPE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	292 RIMPORT([STROKE_SHAPE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	293 RIMPORT([FILL_SHAPE_WITH_PAINT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	294 RIMPORT([STROKE_SHAPE_WITH_PAINT])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	295 RIMPORT([STROKE_WIDTH])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	296 RIMPORT([GROUP_HIDE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	297 RIMPORT([RECT_HIDE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	298 RIMPORT([PATH_HIDE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	299 RIMPORT([COORD_TRANSLATE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	300 RIMPORT([COORD_MATRIX])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	301 RIMPORT([SHAPE_TRANSLATE])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	302 RIMPORT([SHAPE_MATRIX])
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	303 define([ADD_SYMBOL],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	304 divert[]dnl
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	305 ])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	306
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	307 define([Y_ADD_SYMBOL],[[{"$1", MB_SPRITE_OFFSET($1)},]])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	308
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	309 define([DECLARE_SYMS], [divert([-1])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	310 define([YIMPORT],[IMPORT(]QUOTE($[]1)[,[Y_])])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	311 define([ADD_LINEAR_PAINT])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	312 define([ADD_RADIAL_PAINT])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	313 define([COLOR_STOP])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	314 define([REF_STOPS_RADIAL])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	315 define([REF_STOPS_LINEAR])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	316 define([ADD_PATH])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	317 define([ADD_RECT])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	318 define([ADD_COORD])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	319 define([ADD_TEXT],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	320 define([FILL_SHAPE])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	321 define([STROKE_SHAPE])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	322 define([FILL_SHAPE_WITH_PAINT])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	323 define([STROKE_SHAPE_WITH_PAINT])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	324 define([STROKE_WIDTH])
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	325 define([GROUP_HIDE],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	326 define([RECT_HIDE],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	327 define([PATH_HIDE],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	328 define([COORD_TRANSLATE],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	329 define([COORD_MATRIX],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	330 define([SHAPE_TRANSLATE],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	331 define([SHAPE_MATRIX],)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	332 YIMPORT([ADD_SYMBOL])
154 6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	333 divert[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	334 ])
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	335
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	336 define([MADBUTTERFLY],[dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	337 [#include <stdio.h>
69 a6150b4e0667 Fix bug of newing linear & radial paints Thinker K.F. Li <thinker@branda.to> parents: 68 diff changeset	338 #include <stdlib.h>
a6150b4e0667 Fix bug of newing linear & radial paints Thinker K.F. Li <thinker@branda.to> parents: 68 diff changeset	339 #include <string.h>
186 530bb7728546 Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'. Thinker K.F. Li <thinker@branda.to> parents: 159 diff changeset	340 #include <mb_types.h>
530bb7728546 Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'. Thinker K.F. Li <thinker@branda.to> parents: 159 diff changeset	341 #include <mb_redraw_man.h>
530bb7728546 Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'. Thinker K.F. Li <thinker@branda.to> parents: 159 diff changeset	342 #include <mb_shapes.h>
530bb7728546 Move header files to $(top_srcdir)/include/ and prefixed with 'mb_'. Thinker K.F. Li <thinker@branda.to> parents: 159 diff changeset	343 #include <mb_paint.h>
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	344 #include "$1.h"
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	345
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	346 #ifdef MB_SPRITE_OFFSET
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	347 #undef MB_SPRITE_OFFSET
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	348 #endif
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	349 #define MB_SPRITE_OFFSET(x) ((int)&((($1_t *)0)->x))
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	350
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	351 static
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	352 mb_sprite_lsym_entry_t $1_symbols[] = {]DECLARE_SYMS
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	353 $2[
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	354 };
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	355
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	356 #ifndef MB_LSYM_GET_OBJ_WITH_NAME
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	357 #define MB_LSYM_GET_OBJ_WITH_NAME
213 a0a3196b1a05 Refactory pointer computation into a macro. Thinker K.F. Li <thinker@branda.to> parents: 212 diff changeset	358
a0a3196b1a05 Refactory pointer computation into a macro. Thinker K.F. Li <thinker@branda.to> parents: 212 diff changeset	359 #define MB_SPRITE_OFF_2_PTR(x, off) (((void *)(x)) + (off))
a0a3196b1a05 Refactory pointer computation into a macro. Thinker K.F. Li <thinker@branda.to> parents: 212 diff changeset	360
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	361 static
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	362 mb_obj_t mb_lsym_get_obj_with_name(mb_sprite_lsym_t lsym, const char *sym) {
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	363 int i;
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	364
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	365 for(i = 0; i < lsym->num_entries; i++) {
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	366 if(strcmp(lsym->entries[i].sym, sym) != 0)
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	367 continue;
213 a0a3196b1a05 Refactory pointer computation into a macro. Thinker K.F. Li <thinker@branda.to> parents: 212 diff changeset	368 return (mb_obj_t *)MB_SPRITE_OFF_2_PTR(lsym,
a0a3196b1a05 Refactory pointer computation into a macro. Thinker K.F. Li <thinker@branda.to> parents: 212 diff changeset	369 lsym->entries[i].offset);
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	370 }
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	371 return NULL;
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	372 }
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	373 #endif /* MB_LSYM_GET_OBJ_WITH_NAME */
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	374
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	375 void $1_free($1_t *);
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	376
130 3a4d6179e6a9 change mb_c_source.m4 and mb_c_header.m4 to specify parent for SVG object Thinker K.F. Li <thinker@branda.to> parents: 113 diff changeset	377 $1_t $1_new(redraw_man_t rdman, coord_t *parent_coord) {
64 c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	378 $1_t *obj;
c668c5c3ceae M4 macro for C binding. Thinker K.F. Li <thinker@branda.to> parents: 63 diff changeset	379 grad_stop_t *stops = NULL;]DECLARE_VARS
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	380 $2[]dnl
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	381 [
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	382 obj = ($1_t *)malloc(sizeof($1_t));
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	383 if(obj == NULL) return NULL;
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	384
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	385 obj->lsym.sprite.free = (void (*)(mb_sprite_t))$1_free;
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	386 obj->lsym.sprite.get_obj_with_name =
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	387 (mb_obj_t ()(mb_sprite_t , const char ))mb_lsym_get_obj_with_name;
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	388 obj->lsym.num_entries =
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	389 sizeof($1_symbols) / sizeof(mb_sprite_lsym_entry_t);
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	390 obj->lsym.entries = $1_symbols;
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	391
154 6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	392 obj->rdman = rdman;
210 3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	393 ]SETUP_VARS[
3fadd2f2742e M4 macros to generate code for dynamic loading. Thinker K.F. Li <thinker@branda.to> parents: 197 diff changeset	394 obj->root_coord = rdman_coord_new(rdman, parent_coord);]
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	395 $2
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	396 [ return obj;
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	397 }
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	398
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	399 void $1_free($1_t *obj) {
68 018546012798 - Thinker K.F. Li <thinker@branda.to> parents: 67 diff changeset	400 grad_stop_t *stops = NULL;
154 6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	401 redraw_man_t *rdman;
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	402
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	403 rdman = obj->rdman;
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	404 ]REVERSE_VARS[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	405 divert([-1])dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	406 $2[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	407 divert[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	408 CLEAR_VARS[]dnl
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	409 POP_ALL_REV[
6ce68c1f7405 Tank can fire bullet. Thinker K.F. Li <thinker@branda.to> parents: 130 diff changeset	410 rdman_coord_subtree_free(rdman, obj->root_coord);
67 3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	411 free(obj);
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	412 }
3f2872a1a2fe clear objects in _free() for generated code Thinker K.F. Li <thinker@branda.to>* parents: 66 diff changeset	413 ]dnl
63 f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	414 ])
f4b792afa74e m4 translator Thinker K.F. Li <thinker@branda.to> parents: diff changeset	415 divert[]dnl

Mercurial > MadButterfly

annotate tools/mb_c_source.m4 @ 213:a0a3196b1a05