Context Navigation

aisc_server.pa

Visit:

Last change on this file was 11060, checked in by westram, 10 years ago
reintegrates 'ptsfix' into 'trunk': adds: log:branches/ptsdump@8966:9000 log:branches/ptsfix@8965:9012,9014:9017,9019:9023,9025:9046,9048:9089,9091:9114,9116:9132,9134:9139,9141:9145,9147:9151,9153:9158,9160:9379,9381:11059 log:branches/ptsstartup@9160:9235,9237:9278,9280:9336,9339:9361,9363:9446 log:branches/ptsundef@9061:9358
Property svn:eol-style set to `native` Property svn:keywords set to `Author Date Id Revision`
File size: 36.4 KB

Line
1	# set to 1 to trace object creation/destruction
2	CREATE $(TRACE) = 0
3
4	GOTO main
5
6
7	FUNCTION return_ifnot conds
8	IF $(conds) ~ &
9	P if (!($(conds:# && =))) return $(INIT\|0);
10	ENDIF
11	RETURN
12
13	FUNCTION index_or_return index,return
14	IF $(index) !~ #
15	P int index = aisc_talking_get_index(0, $(index));
16	SET $(return) return $(return);
17	P if (aisc_server_error) $(return: ;=;);
18	ENDIF
19	RETURN
20
21	FUNCTION define_callback a,type,func
22	CONST $(a) # releative key
23	CONST $(type) # function type (get, set etc.)
24	CONST $(func) # function name
25
26	CREATE $(num) = $(+ $(a)+$(KEYC))
27	CREATE $(cb) $(type)_list[$(num)]
28	# $(cb) contains name of callback variable
29
30	IF $($(cb))
31	IF $($(cb)) ~ 0
32	ELSE
33	ERROR Number $(KEYC) for '$(func)' already in use by '$($(cb))'
34	ENDIF
35	ELSE
36	ERROR Invalid number $(KEYC) for '$(func)'. Increase MAX_KEY to $(num) in $(argv[2])
37	ENDIF
38	SET $($(cb)) = $(func)
39	RETURN
40
41	FUNCTION accessors struct,a,c
42	# struct = struct/member name
43	# a = relative key (int)
44	# c = conditions
45
46	CONST $(struct)
47	CONST $(a)
48	CONST $(c)
49
50	CREATE $(su) $(setup)
51	CREATE $(ac) $(access)
52	CREATE $(in) $(index)
53
54	CONST $(su)
55	CONST $(ac)
56	CONST $(in)
57
58	CREATE $(type)
59	CREATE $(member)
60	CREATE $(conds)
61	CREATE $(fun)
62
63	FOR $({/KEY)
64	SET $(member) $(struct)$(KEY)
65	SET $(conds) $(c)
66	SET $(setup) $(su)
67
68	IF $(TYPE) = dllh
69	SET $(fun) get_$(member)PRED
70	CALL define_callback $(a),get,$(fun)
71	IF $(extern_$(fun))
72	ELSE
73	P static $(maintype) $(fun)(const $(maintype) THIS) {
74	INDENT +1
75	CALL return_ifnot $(conds)
76	#P return ($(maintype) *)$(ac)previous;
77	P return $(ac)previous;
78	INDENT -1
79	P }
80	ENDIF
81
82	SET $(fun) get_$(member)NEXT
83	CALL define_callback $(+ $(a)+1),get,$(fun)
84	IF $(extern_$(fun))
85	ELSE
86	P static $(maintype) $(fun)(const $(maintype) THIS) {
87	INDENT +1
88	CALL return_ifnot $(conds)
89	#P return ($(maintype) *)$(ac)next;
90	P return $(ac)next;
91	INDENT -1
92	P }
93	ENDIF
94
95	PUSH
96	CREATE $(subadd) $(+ 2+$(+ $(a)+$(KEYC)))
97	SET $(access) $(ac)$(IDENT).
98	MOVETO $(/AISC/DATA/STRUCT.dll_header)
99	GOSUB accessors $(member),$(subadd),$(conds)
100	POP
101	CONTINUE
102	ENDIF
103
104	SET $(index) $(in)
105	SET $(access) $(ac)$(IDENT)
106
107	IF $(REF) ~ *
108	SET $(conds) $(conds) && $(access)
109	SET $(index) $(SIZE:THIS->=$(ac))
110	IF $(REF) ~ o,d,l,r
111	SET $(type) $(TYPE) *
112	ELSE
113	SET $(type) $(TYPE)
114	ENDIF
115	SET $(setup) $(setup)if (!$(access)) $(access) = ($(type)*)calloc(sizeof($(type)),$(index));$n
116	SET $(access) $(access)[index]
117	ELSEIF $(REF) ~ v
118	SET $(index) $(SIZE:THIS->=$(ac))
119	SET $(access) $(access)[index]
120	ENDIF
121
122	IF $(REF) ~ s
123	IF $(REF) ~ o,l,r
124	SET $(conds) $(conds) && $(access)
125	SET $(setup) $(setup)if (!$(access)) $(access) = create_$(TYPE)();$n
126	SET $(access) $(access)->
127	ELSEIF $(REF) ~ i
128	SET $(access) $(access).
129	ENDIF
130
131	PUSH
132	CREATE $(subadd) = $(+ $(a)+$(KEYC))
133	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
134	CALL accessors $(member),$(subadd),$(conds)
135	POP
136	CONTINUE
137	ENDIF
138
139	IF $(REF) ~ o,d
140	IF $(ACC) !~ c
141	ELSE
142	# CREATE FUNCTIONS
143	SET $(fun) create_$(member)
144	CALL define_callback $(a),create,$(fun)
145	IF $(extern_$(fun))
146	ELSE
147	P static $(TYPE) $(fun)($(maintype) THIS) {
148	INDENT +1
149	CALL return_ifnot $(conds)
150	CALL index_or_return $(index),0
151	P $(TYPE) *obj = create_$(TYPE)();
152	P if (obj) {
153	INDENT +1
154	P aisc_make_sets((long *)obj);
155	P if (aisc_server_error) {
156	INDENT +1
157	P destroy_$(TYPE)(obj);
158	P obj = NULL;
159	INDENT -1
160	P }
161	P else {
162	INDENT +1
163	IF $(REF) ~ d
164	P aisc_server_error = aisc_link((dllpublic_ext)&($(ac)p$(IDENT)), (dllheader_ext)obj);
165	ELSE
166	P if ($(access)) destroy_$(TYPE)($(access));
167	P $(access) = obj;
168	ENDIF
169	INDENT -1
170	P }
171	INDENT -1
172	P }
173	P return obj;
174	INDENT -1
175	P }
176	ENDIF
177
178	# COPY FUNCTIONS
179	SET $(fun) copy_$(member)
180	CALL define_callback $(a),copy,$(fun)
181	IF $(extern_$(fun))
182	ELSE
183	P static $(TYPE) $(fun)($(maintype) THIS) {
184	INDENT +1
185	CALL return_ifnot $(conds)
186	CALL index_or_return $(index),0
187	P trf_begin();
188	P $(TYPE) *obj = copy_$(TYPE)($(access));
189	P trf_commit(0);
190	P if (obj) {
191	INDENT +1
192	P aisc_make_sets((long *)obj);
193	P if (aisc_server_error) {
194	INDENT +1
195	P destroy_$(TYPE)(obj);
196	P obj = NULL;
197	INDENT -1
198	P }
199	P else {
200	INDENT +1
201	IF $(REF) ~ d
202	P aisc_server_error = aisc_link((dllpublic_ext)&($(ac)p$(IDENT)), (dllheader_ext)obj);
203	ELSE
204	P if ($(access)) destroy_$(TYPE)($(access));
205	P $(access) = obj;
206	ENDIF
207	INDENT -1
208	P }
209	INDENT -1
210	P }
211	P return obj;
212	INDENT -1
213	P }
214	ENDIF
215	ENDIF
216	# FIND FUNCTIONS
217	IF $(ACC) !~ f
218	ELSEIF $(REF) ~ d
219	SET $(fun) find_$(member)
220	CALL define_callback $(a),find,$(fun)
221	IF $(extern_$(fun))
222	ELSE
223	P static $(TYPE) $(fun)(const $(maintype) THIS, const char *key) {
224	INDENT +1
225	CALL return_ifnot $(conds)
226	P $(TYPE) obj = ($(TYPE))aisc_read_hash((aisc_hash_node**)$(ac)p$(IDENT).hash, key);
227	P return obj;
228	INDENT -1
229	P }
230	ENDIF
231	ENDIF
232	# CNT FUNCTION
233	IF $(REF) ~ d
234	SET $(fun) get_$(member)_CNT
235	CALL define_callback $(+ $(a)+1),get,$(fun)
236	IF $(extern_$(fun))
237	ELSE
238	P static int $(fun)(const $(maintype) *THIS) {
239	INDENT +1
240	CALL return_ifnot $(conds)
241	P return $(ac)p$(IDENT).cnt;
242	INDENT -1
243	P }
244	ENDIF
245	ENDIF
246	ELSE
247	# not $(REF) ~ o,d
248
249	# SET FUNCTIONS
250	IF $(ACC) !~ w
251	ELSEIF $(REF) ~ $(v)
252	CALL define_callback $(a),set,$(IDENT)
253	IF $(extern_$(IDENT))
254	ELSE
255	OUT import # Generate Prototypes for import
256	P extern int $1$(IDENT)($(maintype), $(TYPE:bytestring=bytestring ));
257	OUT save
258	ENDIF
259	ELSE
260	SET $(fun) set_$(member)
261	CALL define_callback $(a),set,$(fun)
262	IF $(extern_$(fun))
263	ELSE
264	IF $(REF) ~ o,l,r
265	P static void $(fun)($(maintype) THIS, const $(TYPE) x) {
266	ELSEIF $(REF) ~ t,e
267	P static void $(fun)($(maintype) THIS, $(TYPE:bytestring=const bytestring ) x) {
268	ELSE
269	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
270	ENDIF
271	INDENT +1
272	CALL index_or_return $(index),
273	P $(setup)$\
274	IF $(TYPE) = aisc_string
275	P freeset($(access), x);
276	ELSEIF $(TYPE) = bytestring
277	P if (x) {
278	P $1freeset($(access).data, x->data);
279	P $1$(access).size = x->size;
280	P }
281	P else {
282	P $1freenull($(access).data);
283	P $1$(access).size = 0;
284	P }
285	ELSE
286	IF $(REF) ~ o
287	P if ($(access)) destroy_$(TYPE)($(access));
288	ENDIF
289	P $(access) = x;
290	ENDIF
291	INDENT -1
292	P }
293	ENDIF
294	ENDIF
295	ENDIF
296
297	# GET FUNCTIONS
298	IF $(ACC) !~ r
299	ELSEIF $(REF) ~ $(v)
300	IF $(extern_$(IDENT))
301	CALL define_callback $(a),get,$(IDENT)
302	ELSE
303	IF $(IDENT) = aisc_get_keystring
304	# special cast for aisc_get_keystring
305	CALL define_callback $(a),get,(const char()(int*))$(IDENT)
306	ELSE
307	# explicit cast to overloaded function type before casting to void
308	CALL define_callback $(a),get,($(TYPE:bytestring=bytestring )()(const $(maintype)*))$(IDENT)
309	ENDIF
310	OUT import # Generate Prototypes for import
311	P extern $(TYPE:bytestring=bytestring ) $(IDENT)(const $(maintype));
312	OUT save
313	ENDIF
314	ELSE
315	CALL define_callback $(a),get,get_$(member)
316	IF $(extern_get_$(member))
317	ELSE
318	P static $\
319	IF $(REF) ~ o,l,r,d
320	P const $(TYPE) *get_$(member)$\
321	ELSEIF $(REF) ~ e,t
322	P $(TYPE:bytestring=const bytestring *:aisc_string=aisc_cstring) get_$(member)$\
323	ELSE
324	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
325	ENDIF
326	P (const $(maintype) *THIS) {
327	INDENT +1
328	CALL return_ifnot $(conds)
329	CALL index_or_return $(index),0
330	IF $(TYPE) = bytestring
331	P return &($(access));
332	ELSE
333	P return $(access);
334	ENDIF
335	INDENT -1
336	P }
337	ENDIF
338	ENDIF
339	ENDFOR
340	RETURN
341
342	FUNCTION accessor_table fun
343	P void *aisc_talking_functions_$(fun)_$(STRUCT)[] = {
344	INDENT +1
345	CREATE $(i)
346	CREATE $(cb)
347	CREATE $(zeros)
348	FOR $(i) = 0 TO $(MAX_KEY)
349	SET $(cb) = $($(fun)_list[$(i)])
350	IF $(cb) = 0
351	# collect multiple '0' to print them in one line
352	SET $(zeros) = $(zeros) 0,
353	ELSE
354	IF $(zeros) !=
355	P $(zeros)
356	SET $(zeros)
357	ENDIF
358
359	IF $(cb) ~ /*
360	SET $(cb) = $(cb:/=,/: ,/=,/:,/=, /)
361	ELSEIF $(cb) ~ //
362	SET $(cb) = $(cb://=,//: ,//=,//:,//=, //)
363	ELSE
364	SET $(cb) = $(cb),
365	ENDIF
366
367	P (void *)$(cb)
368	ENDIF
369	ENDFOR
370	IF $(zeros) !=
371	P $(zeros) 0
372	ELSE
373	P 0
374	ENDIF
375	INDENT -1
376	P };
377	RETURN
378
379	FUNCTION accessor_tables
380	CALL accessor_table get
381	CALL accessor_table set
382	CALL accessor_table create
383	CALL accessor_table find
384	CALL accessor_table copy
385	--
386	RETURN
387
388	FUNCTION build_accessors
389	# init callback tables
390	CREATE $(i) = 0
391	FOR $(i) = 0 TO $(MAX_KEY)
392	CREATE $(set_list[$(i)]) 0
393	CREATE $(get_list[$(i)]) 0
394	CREATE $(create_list[$(i)]) 0
395	CREATE $(find_list[$(i)]) 0
396	CREATE $(copy_list[$(i)]) 0
397	ENDFOR
398
399	#CREATE $(conds)
400	CREATE $(access)
401	CREATE $(maintype)
402	CREATE $(setup)
403	CREATE $(index) #
404
405	CREATE $(joined)
406
407	FOR $(STRUCT)
408	IF $(SKEY)
409	P // $(STRUCT) accessors
410	--
411
412	IF $(JOINED)
413	ELSE
414	FOR $(i) = 0 TO $(MAX_KEY)
415	SET $(set_list[$(i)]) 0
416	SET $(get_list[$(i)]) 0
417	SET $(create_list[$(i)]) 0
418	SET $(find_list[$(i)]) 0
419	SET $(copy_list[$(i)]) 0
420	ENDFOR
421	ENDIF
422	#SET $(conds) = #
423	SET $(access) THIS->
424	SET $(maintype) $(STRUCT)
425	# 'setup' can not be transformed to parameter, cause it is
426	# assigned sth containing ,; etc. so we need to use a global here :-(
427	SET $(setup)
428	SET $(index) #
429	GOSUB accessors $(SKEY)_,0,#
430	--
431
432	IF $(JOIN_NEXT)
433	SET $(joined) = $(joined) $(STRUCT)
434	ELSE
435	P // $(joined) $(STRUCT) callback tables
436	SET $(joined) =
437	GOSUB accessor_tables
438	ENDIF
439	ENDIF
440	ENDFOR
441	RETURN
442
443	# --------------------------------------------------------------------------------
444
445	FUNCTION init_structure,self,deref
446	CREATE $(member)
447	CREATE $(isloop)
448
449	FOR $({/TYPE)
450	SET $(member) $(self)$(deref)$(IDENT)
451	SET $(isloop) 0
452	IF $(REF) ~ $(v)
453	ELSE
454	IF $(REF) ~ v
455	SET $(isloop) 1
456	PMSTART
457	PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref)); index++) {
458	INDENT +1
459	SET $(member) $(member)[index]
460	ENDIF
461	IF $(TYPE) = dllh
462	P $(member).key $\|= KEY_$(OBJECT_KEY)_$(SKEY\|COMMON);
463	PUSH
464	MOVETO $(/AISC/DATA/STRUCT.dll_header)
465	GOSUB init_structure,$(member),.
466	POP
467	ELSEIF $(REF) ~ o
468	# just a NULL pointer - no init necessary
469	ELSEIF $(REF) ~ d
470	PUSH
471	SET $(member) = $(self)$(deref)p$(IDENT)
472	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
473	P $(member).parent $\|= (dllheader_ext *)$(self);
474	P $(member).key $\|= KEY_$(OBJECT_KEY)_$(SKEY\|SKEY_missing);
475	POP
476	ELSEIF $(REF) ~ s
477	IF $(REF) ~ i
478	PUSH
479	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
480	GOSUB init_structure,$(member),.
481	POP
482	ENDIF
483	ELSEIF $(REF) ~ t,e,l
484	IF $(IDENT) = key
485	IF $(SKEY) !~ COMMON
486	P $(member) $\|= KEY_$(OBJECT_KEY)_$(SKEY\|COMMON);
487	ENDIF
488	ELSEIF $(INIT)
489	IF $(TYPE) = aisc_string
490	P $(member) $\|= strdup($(INIT:THIS=$(self)));
491	ELSE
492	P $(member) $\|= $(INIT:THIS=$(self));
493	ENDIF
494	ENDIF
495	ELSE
496	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
497	ENDIF
498	IF $(isloop) = 1
499	INDENT -1
500	PM }
501	PMEND
502	ENDIF
503	ENDIF
504	ENDFOR
505	RETURN
506
507	FUNCTION build_init
508	P // ------------
509	P // constructors
510	--
511	P inline void alloc_err(const char *objectname) {
512	P $1aisc_server_errorf("Could not allocate '%s'", objectname);
513	P }
514	--
515
516	FOR $(STRUCT)
517	IF $(extern_create_$(STRUCT))
518	ELSE
519	P $(STRUCT) *create_$(STRUCT)()$\
520	P {
521	INDENT +1
522	P $(STRUCT) o = ($(STRUCT))calloc(sizeof(*o), 1);
523	P if (!o) alloc_err("$(STRUCT)");
524	PMSTART
525	PM else {
526	INDENT +1
527	GOSUB init_structure o,->
528	INDENT -1
529	PM }
530	PMEND
531	GOSUB trace "created $(STRUCT)"
532	P return o;
533	INDENT -1
534	P }
535	ENDIF
536	--
537	ENDFOR
538	RETURN
539
540	FUNCTION delete_structure,self,deref
541	CREATE $(member)
542	CREATE $(isloop)
543	CREATE $(isinif)
544	CREATE $(start)
545
546	FOR $({/TYPE)
547	SET $(member) $(self)$(deref)$(IDENT)
548	SET $(isloop) 0
549	SET $(isinif) 0
550
551	IF $(DESTROY)
552	P $(DESTROY:THIS=obj);
553	ELSEIF $(REF) ~ $(v)
554	# virtual function
555	ELSE
556	IF $(REF) ~ *,v
557	PMSTART
558	IF $(REF) ~ *
559	SET $(isinif) 1
560	PM if ($(member)) {
561	INDENT +1
562	ENDIF
563	SET $(isloop) 1
564	PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref)); index++) {
565	INDENT +1
566	SET $(member) $(member)[index]
567	ENDIF
568	IF $(TYPE) = dllh
569	PUSH
570	MOVETO $(/AISC/DATA/STRUCT.dll_header)
571	GOSUB delete_structure,$(member),.
572	POP
573	ELSEIF $(REF) ~ s
574	IF $(REF) ~ o,d,i
575	PUSH
576	IF $(REF) ~ i
577	CREATE $(subderef) .
578	ELSE
579	P if ($(member)) {
580	INDENT +1
581	CREATE $(subderef) ->
582	ENDIF
583	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
584	GOSUB delete_structure,$(member),$(subderef)
585	POP
586	IF $(REF) !~ i
587	P free($(member));
588	INDENT -1
589	P }
590	ENDIF
591	ENDIF
592	ELSEIF $(REF) ~ d,o
593	IF $(REF) ~ d
594	P while $\
595	ELSE
596	P if $\
597	ENDIF
598	P ($(member)) {
599	INDENT +1
600	P destroy_$(TYPE)($(member));
601	P if (aisc_server_error) return;
602	INDENT -1
603	P }
604	ELSEIF $(REF) ~ t,e
605	IF $(TYPE) = aisc_string
606	P free($(member));
607	ELSEIF $(TYPE) = bytestring
608	P free($(member).data);
609	ENDIF
610	ELSEIF $(REF) ~ l
611	ELSE
612	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
613	ENDIF
614
615	IF $(isloop) = 1
616	INDENT -1
617	PM }
618	IF $(isinif) = 1
619	INDENT -1
620	PM }
621	ENDIF
622	PMEND
623	ENDIF
624	ENDIF
625	ENDFOR
626	RETURN
627
628	FUNCTION build_delete
629	P // -----------
630	P // destructors
631	--
632
633	FOR $(STRUCT)
634	IF $(extern_destroy_$(STRUCT))
635	ELSE
636	PUSH
637	CREATE $(islinked) = 0
638	CREATE $(ident)
639
640	PUSH
641	MOVETO $({/.)
642	IF $(TYPE) = dllh
643	SET $(islinked) = 1
644	SET $(ident) = $(IDENT)
645	ENDIF
646	POP
647
648	# pass pointers to not-linked objects by reference and set them to NULL below
649	# linked object-pointers are set to NULL by aisc_unlink
650	P void destroy_$(STRUCT)($(STRUCT)$\
651	IF $(islinked) = 1
652	P *obj$\
653	ELSE
654	P *& obj$\
655	ENDIF
656	P ) {
657	INDENT +1
658	IF $(islinked) = 1
659	P if (obj->$(ident).parent) {
660	INDENT +1
661	P aisc_unlink((dllheader_ext*)obj);
662	P if (aisc_server_error) return;
663	INDENT -1
664	P }
665	ENDIF
666	GOSUB delete_structure,obj,->
667	IF $(islinked) = 1
668	P free(obj);
669	ELSE
670	P freenull(obj);
671	ENDIF
672	GOSUB trace "destroyed $(STRUCT)"
673	INDENT -1
674	P }
675	--
676	POP
677	ENDIF
678	ENDFOR
679	RETURN
680
681	FUNCTION move_structure
682	CREATE $(isloop)
683	CREATE $(my_key)
684	CREATE $(index)
685	CREATE $(access)
686
687	FOR $({/TYPE)
688	SET $(index)
689	SET $(access) $(IDENT)
690	SET $(isloop) 0
691	IF $(REF) ~ $(v)
692	ELSEIF $(IDENT) = key
693	ELSE
694	IF $(REF) ~ *,v
695	IF $(SIZE)
696	SET $(index) $(SIZE:THIS->=sobj->)
697	ELSE
698	ERROR Missing SIZE in STRUCT $(STRUCT) ident $(IDENT)
699	ENDIF
700	IF $(REF) ~ *
701	P if (dobj->$(access))$\
702	ENDIF
703
704	SET $(isloop) 1
705	PMSTART
706	PM for (int index = 0; index < $(index); index++) {
707	INDENT +1
708	SET $(access) $(access)[index]
709	ENDIF
710	IF $(TYPE) = dllh
711	P move_dll_header(&(sobj->$(access)), &(dobj->$(access)));
712	ELSEIF $(REF) ~ l,r
713	P dobj->$(access) $\|= sobj->$(access); $\
714	P $\|trf_link((long)sobj->$(access), (long*)&dobj->$(access));
715	ELSEIF $(REF) ~ o
716	P dobj->$(access) $\|= copy_$(TYPE)(sobj->$(access));
717	ELSEIF $(REF) ~ d
718	P for ($(TYPE) *cobj = sobj->$(access); cobj; cobj = cobj->next) {
719	INDENT +1
720	P $(TYPE) *d2obj = copy_$(TYPE)(cobj);
721	P if (!d2obj) return 1;
722	P aisc_server_error = aisc_link((dllpublic_ext)&(dobj->p$(access)), (dllheader_ext)d2obj);
723	P if (aisc_server_error) return 1;
724	INDENT -1
725	P }
726	ELSEIF $(REF) ~ s
727	IF $(REF) ~ i
728	P if (move_$(TYPE)(&(sobj->$(access)), &(dobj->$(access)))) return 1;
729	ENDIF
730	ELSEIF $(REF) ~ t,e
731	IF $(TYPE) = aisc_string
732	P dobj->$(access) $\|= nulldup(sobj->$(access));
733	ELSEIF $(TYPE) = bytestring
734	P if (sobj->$(access).data) {
735	INDENT +1
736	P dobj->$(access).data = (char *)malloc(sobj->$(access).size);
737	P memcpy(dobj->$(access).data, sobj->$(access).data, sobj->$(access).size);
738	P dobj->$(access).size = sobj->$(access).size;
739	INDENT -1
740	P }
741	ELSE
742	P dobj->$(access) $\|= sobj->$(access);
743	ENDIF
744	ELSE
745	PP UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
746	ENDIF
747	IF $(isloop) = 1
748	INDENT -1
749	PM }
750	PMEND
751	ENDIF
752	ENDIF
753	ENDFOR
754	RETURN
755
756	FUNCTION build_move
757	P // ------------
758	P // move objects
759	--
760	FOR $(STRUCT)
761	IF $(extern_move_$(STRUCT))
762	ELSE
763	P static int move_$(STRUCT)(const $(STRUCT) sobj, $(STRUCT) dobj) {
764	INDENT +1
765	GOSUB move_structure
766	P return 0;
767	INDENT -1
768	P }
769	--
770	ENDIF
771	ENDFOR
772	RETURN
773
774	FUNCTION build_copy
775	P // ------------
776	P // copy objects
777	--
778	FOR $(STRUCT)
779	IF $(extern_copy_$(STRUCT))
780	ELSE
781	P $(STRUCT) copy_$(STRUCT)(const $(STRUCT) sobj) {
782	INDENT +1
783	P $(STRUCT) *dobj = NULL;
784	P if (sobj) {
785	INDENT +1
786	P dobj = create_$(STRUCT)();
787	P if (!dobj) alloc_err("$(STRUCT)");
788	P else {
789	INDENT +1
790	P trf_create((long)sobj, (long)dobj);
791	P if (move_$(STRUCT)(sobj, dobj)) {
792	INDENT +1
793	P destroy_$(STRUCT)(dobj);
794	P dobj = NULL;
795	INDENT -1
796	P }
797	INDENT -1
798	P }
799	INDENT -1
800	P }
801	GOSUB trace "copied $(STRUCT)"
802	P return dobj;
803	INDENT -1
804	P }
805	--
806	ENDIF
807	ENDFOR
808	RETURN
809
810	FUNCTION save_structure self,deref,prekey,fp
811	CREATE $(member)
812	CREATE $(isloop)
813	CREATE $(isinif)
814	CREATE $(saved_elems) = 0
815
816	FOR $({/TYPE)
817	SET $(member) $(self)$(deref)$(IDENT)
818	SET $(isloop) 0
819	SET $(isinif) 0
820
821	IF $(REF) ~ $(v)
822	# virtual function
823	ELSEIF $(SAVE)
824	SET $(saved_elems) = $(+ $(saved_elems)+1)
825	IF $(REF) ~ *,v
826	PMSTART
827	IF $(REF) ~ *
828	SET $(isinif) 1
829	PM if ($(access)) {
830	INDENT +1
831	ENDIF
832	SET $(isloop) 1
833	PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref); index++) {
834	INDENT +1
835	SET $(member) $(member)[index]
836	ENDIF
837	IF $(TYPE) = dllh
838	PUSH
839	CREATE $(pk) $(prekey)$(KEY)
840	MOVETO $(/AISC/DATA/STRUCT.dll_header)
841	GOSUB save_structure,$(member),.,$(pk),$(fp)
842	POP
843	ELSEIF $(REF) ~ s
844	IF $(REF) ~ o,d,i
845	ERROR previously unused - check generated code!
846	PUSH
847	IF $(REF) ~ i
848	CREATE $(subderef) .
849	ELSE
850	PMSTART
851	PM if ($(member)) {
852	INDENT +1
853	CREATE $(subderef) ->
854	ENDIF
855	CREATE $(pk) $(prekey)$(KEY\|NOKEYDEFINED)
856	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
857	GOSUB save_structure,$(member),$(subderef),$(pk),$(fp)
858	POP
859	IF $(REF) !~ i
860	INDENT -1
861	PM }
862	PMEND
863	ENDIF
864	ENDIF
865	ELSEIF $(REF) ~ d
866	IF $(saveable_$(TYPE)) = 0
867	ERROR Can't save $(TYPE) (has no saveable members)
868	ENDIF
869	P for ($(TYPE) *s = $(member); s; s = s->next) {
870	INDENT +1
871	P fputs("$(prekey)$(KEY\|NOKEYDEFINED){ ", $(fp));
872	P save_$(TYPE)(s, $(fp));
873	P fputs("}\n", $(fp));
874	INDENT -1
875	P }
876	ELSEIF $(REF) ~ o
877	ERROR previously unused - check generated code!
878	IF $(saveable_$(TYPE)) = 0
879	ERROR Can't save $(TYPE) (has no saveable members)
880	ENDIF
881	P fputs("$(prekey)$(KEY) {\n", $(fp));
882	P save_$TYPE($(member), $(fp));
883	P fputs("}\n", $(fp));
884	ELSEIF $(REF) ~ t,e
885	IF $(TYPE) = aisc_string
886	P if ($(member)) $\|save_string("$(prekey)$(KEY\|NOKEYDEFINED)", $(member), $(fp));
887	ELSEIF $(TYPE) = int,long,char
888	P fprintf($(fp), "$(prekey)$(KEY\|NOKEYDEFINED) %i\n", $(member));
889	ELSEIF $(TYPE) = float,double
890	P fprintf($(fp), "$(prekey)$(KEY\|NOKEYDEFINED) %f\n", $(member));
891	ELSE
892	ERROR CANNOT SAVE TYPE '$(TYPE)'
893	ENDIF
894	ELSEIF $(REF) ~ l
895	P fprintf($(fp), "$(prekey)$(KEY\|NOKEYDEFINED) %i", $(member));
896	ELSE
897	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
898	ENDIF
899	IF $(isloop) = 1
900	INDENT -1
901	PM }
902	IF $(isinif) = 1
903	INDENT -1
904	PM }
905	ENDIF
906	PMEND
907	ENDIF
908	ENDIF
909	ENDFOR
910	IF $(saved_elems) = 0
911	ERROR It makes no sense to save $(STRUCT), since it has no saveable data elements
912	ENDIF
913	RETURN
914
915	FUNCTION load_structure self,deref,prekey,fp
916	CREATE $(member)
917	CREATE $(isloop)
918	CREATE $(isinif)
919
920	FOR $({/TYPE)
921	SET $(member) $(self)$(deref)$(IDENT)
922	SET $(isloop) 0
923	SET $(isinif) 0
924
925	IF $(REF) ~ $(v)
926	# virtual function
927	ELSEIF $(SAVE)
928	IF $(REF) ~ *,v
929	PMSTART
930	IF $(REF) ~ *
931	SET $(isinif) 1
932	PM if ($(member)) {
933	INDENT +1
934	ENDIF
935	SET $(isloop) 1
936	PM for (int index = 0; index < $(SIZE:THIS->=$(self)$(deref); index++) {
937	INDENT +1
938	SET $(member) $(member)[index]
939	ENDIF
940	IF $(TYPE) = dllh
941	PUSH
942	CREATE $(pk) $(prekey)$(KEY)
943	MOVETO $(/AISC/DATA/STRUCT.dll_header)
944	GOSUB load_structure,$(member),.,$(pk),$(fp)
945	POP
946	ELSEIF $(REF) ~ s
947	IF $(REF) ~ o,d,i
948	ERROR previously unused - check generated code!
949	PUSH
950	IF $(REF) ~ i
951	CREATE $(subderef) .
952	ELSE
953	PMSTART
954	PM if ($(member)) {
955	INDENT +1
956	CREATE $(subderef) ->
957	ENDIF
958	CREATE $(pk) $(prekey)$(KEY\|NOKEYDEFINED)
959	MOVETO $(/AISC/DATA/STRUCT.$(TYPE))
960	GOSUB load_structure,$(member),$(subderef),$(pk),$(fp)
961	POP
962	IF $(REF) !~ i
963	INDENT -1
964	PM }
965	PMEND
966	ENDIF
967	ENDIF
968	ELSEIF $(REF) ~ d
969	P if (strcmp("$(prekey)$(KEY\|NOKEYDEFINED){", token)==0) {
970	INDENT +1
971	P $(TYPE) *cobj = create_$(TYPE)();
972	P if (cobj) {
973	INDENT +1
974	P if (load_$(TYPE)(cobj, $(fp))==0) {
975	INDENT +1
976	P aisc_link((dllpublic_ext)&($(self)$(deref)p$(IDENT)), (dllheader_ext)cobj);
977	P continue;
978	INDENT -1
979	P }
980	P destroy_$(TYPE)(cobj);
981	INDENT -1
982	P }
983	P return 1;
984	INDENT -1
985	P }
986	ELSEIF $(REF) ~ o
987	ERROR code generated here is broken (does save instead of load)
988	P fprintf($(fp),"$(prekey)$(KEY) {\n");
989	P { int error = save_$TYPE($(member),$(fp));
990	P if (error) return error; }
991	P fprintf($(fp),"}\n");
992	ELSEIF $(REF) ~ t,e
993	P if (strcmp("$(prekey)$(KEY\|NOKEYDEFINED)", token)==0) {
994	INDENT +1
995	P if (aisc_server_load_token($(fp), token, $(TOKENSIZE))) return 1;
996	IF $(TYPE) = aisc_string
997	P $(member) = strdup(token);
998	ELSEIF $(TYPE) = int,long,char
999	P $(member) = atoi(token);
1000	ELSEIF $(TYPE) = float,double
1001	P $(member) = atof(token);
1002	ELSE
1003	ERROR Loading type '$(TYPE)' not implemented (yet)
1004	ENDIF
1005	P continue;
1006	INDENT -1
1007	P }
1008	ELSEIF $(REF) ~ l
1009	ERROR loading links not implemented (yet)
1010	ELSE
1011	ERROR UNKNOWN REF '$(REF\|)' in $(STRUCT).$(TYPE)
1012	ENDIF
1013	IF $(isloop) = 1
1014	INDENT -1
1015	PM }
1016	IF $(isinif) = 1
1017	INDENT -1
1018	PM }
1019	ENDIF
1020	PMEND
1021	ENDIF
1022	ENDIF
1023	ENDFOR
1024	RETURN
1025
1026	FUNCTION build_saveload
1027	CREATE $(TOKENSIZE) 1024
1028
1029	P // -------------
1030	P // save and load
1031	--
1032	P inline void warn_unknown_token(const char token, const char objectname) {
1033	P $1fprintf(stderr, "Unknown token '%s' while loading '%s' (ignored)\n", token, objectname);
1034	P }
1035	--
1036	P inline void save_string(const char key, const char value, FILE *out) {
1037	INDENT +1
1038	P fputs(key, out);
1039	P fputc(' ', out);
1040	P aisc_server_save_token(out, value, $(TOKENSIZE));
1041	INDENT -1
1042	P }
1043	--
1044
1045	FOR $(STRUCT)
1046	CREATE $(saveable_$(STRUCT)) = 0
1047	FOR $({/TYPE)
1048	IF $(SAVE)
1049	SET $(saveable_$(STRUCT)) = 1
1050	ENDIF
1051	ENDFOR
1052	#WARNING saveable_$(STRUCT) = $(saveable_$(STRUCT))
1053	ENDFOR
1054
1055	FOR $(STRUCT)
1056	IF $(saveable_$(STRUCT)) = 1
1057	IF $(extern_save_$(STRUCT))
1058	ELSE
1059	P void save_$(STRUCT)(const $(STRUCT) o, FILE out) {
1060	INDENT +1
1061	GOSUB save_structure,o,->,,out
1062	INDENT -1
1063	P }
1064	--
1065	ENDIF
1066	ENDIF
1067	ENDFOR
1068	FOR $(STRUCT)
1069	IF $(saveable_$(STRUCT)) = 1
1070	IF $(extern_load_$(STRUCT))
1071	ELSE
1072	P int load_$(STRUCT)($(STRUCT) o, FILE in) {
1073	INDENT +1
1074	P char token[$(TOKENSIZE)+1];
1075	P while (aisc_server_load_token(in, token, $(TOKENSIZE))==0) {
1076	INDENT +1
1077	P if (*token == '}') break;
1078	GOSUB load_structure,o,->,,in
1079	P warn_unknown_token(token, "$(STRUCT)");
1080	INDENT -1
1081	P }
1082	P return 0;
1083	INDENT -1
1084	P }
1085	--
1086	ENDIF
1087	ENDIF
1088	ENDFOR
1089	RETURN
1090
1091	FUNCTION trace msg
1092	IF $(TRACE) = 1
1093	P fputs("AISC_SERVER_TRACE " $(msg) "\n", stderr); fflush(stderr);
1094	ENDIF
1095	RETURN
1096
1097	FUNCTION file_header
1098	P // -----------------------------------------------------------------
1099	P // Created automagically from ../$(argv[2])
1100	P // and ../$(argv[4])
1101	P // using aisc-script '../AISC/aisc_server.pa'
1102	P // DO NOT EDIT THIS FILE!!!
1103	P // -----------------------------------------------------------------
1104	--
1105	RETURN
1106
1107	# --------------------------------------------------------------------------------
1108
1109	LABEL main
1110	IF $(argc) < 7
1111	ERROR Wrong number of parameters[$(argc)]. Usage: aisc aisc_server.pa xxx.aisc outfile externfile.aisc import_proto globals.aisc
1112	ENDIF
1113
1114	DATA AISC { $(#FILE $(argv[2])) }, EXTERN { $(#FILE $(argv[4])) }, GLOBALS { $(#FILE $(argv[6])) };
1115	DUMPDATA DUMP/aisc_server.pa__$(argv[2]).dump
1116
1117	OPEN save $(argv[3])
1118	OPEN import $(argv[5])
1119
1120	# set extern functions
1121	MOVETO $(EXTERN/.)
1122	FOR $(FUNCTION)
1123	CREATE $(extern_$(FUNCTION))
1124	NEXT
1125	ERROR no extern Functions found
1126	ENDFOR
1127
1128	# set globals passed from Makefile
1129	MOVETO $(/GLOBALS/.)
1130	CREATE $(create_save_code) = $(AISC_SAVE)
1131
1132	OUT import
1133	CALL file_header
1134
1135	OUT save
1136	CALL file_header
1137	P $(#FILE C/aisc_server.h)
1138
1139	MOVETO $(/AISC/DATA/.)
1140
1141	CREATE $(v) = %
1142
1143	CALL build_init
1144	CALL build_delete
1145	CALL build_move
1146	CALL build_copy
1147	CALL build_accessors
1148
1149	IF $(create_save_code) = YES
1150	CALL build_saveload
1151	ENDIF
1152
1153
1154	CLOSE save
1155	CLOSE import
1156	EXIT
1157

Note: See TracBrowser for help on using the repository browser.

Download in other formats:

Original Format