WebSVN – tendra.SVN – Blame – /trunk/src/tools/pl/fnsfile.c

Rev	Author	Line No.	Line
2	7u83	1	`/*`
		2	`Crown Copyright (c) 1997`
		3
		4	`This TenDRA(r) Computer Program is subject to Copyright`
		5	`owned by the United Kingdom Secretary of State for Defence`
		6	`acting through the Defence Evaluation and Research Agency`
		7	`(DERA). It is made available to Recipients with a`
		8	`royalty-free licence for its use, reproduction, transfer`
		9	`to other parties and amendment for any purpose not excluding`
		10	`product development provided that any such use et cetera`
		11	`shall be deemed to be acceptance of the following conditions:-`
		12
		13	`(1) Its Recipients shall ensure that this Notice is`
		14	`reproduced upon any copies or amended versions of it;`
		15
		16	`(2) Any amended version of it shall be clearly marked to`
		17	`show both the nature of and the organisation responsible`
		18	`for the relevant amendment or amendments;`
		19
		20	`(3) Its onward transfer from a recipient to another`
		21	`party shall be deemed to be that party's acceptance of`
		22	`these conditions;`
		23
		24	`(4) DERA gives no warranty or assurance as to its`
		25	`quality or suitability for any purpose and DERA accepts`
		26	`no liability whatsoever in relation to any use to which`
		27	`it may be put.`
		28	`*/`
		29
		30
		31	`/* AUTOMATICALLY GENERATED BY make_tdf VERSION 2.0 FROM TDF 4.0 */`
		32
		33	`#include "config.h"`
		34	`#include "encodings.h"`
		35	`#include "enc_nos.h"`
		36	`#include "defs.h"`
		37	`#include "analyse_sort.h"`
		38	`#include "consfile.h"`
		39	`#include "lex.h"`
		40	`#include "syntax.h"`
		41
		42	`void c_add_accesses`
		43	`PROTO_Z ()`
		44	`{`
		45	`skip_term ( lex_ord ) ;`
		46	`o_add_accesses (`
		47	`read_access () ; skip_term ( lex_comma ),`
		48	`read_access () ; skip_term ( lex_crd )`
		49	`)`
		50	`return ;`
		51	`}`
		52
		53	`void c_constant`
		54	`PROTO_Z ()`
		55	`{`
		56	`o_constant ;`
		57	`return ;`
		58	`}`
		59
		60	`void c_long_jump_access`
		61	`PROTO_Z ()`
		62	`{`
		63	`o_long_jump_access ;`
		64	`return ;`
		65	`}`
		66
		67	`void c_no_other_read`
		68	`PROTO_Z ()`
		69	`{`
		70	`o_no_other_read ;`
		71	`return ;`
		72	`}`
		73
		74	`void c_no_other_write`
		75	`PROTO_Z ()`
		76	`{`
		77	`o_no_other_write ;`
		78	`return ;`
		79	`}`
		80
		81	`void c_out_par`
		82	`PROTO_Z ()`
		83	`{`
		84	`o_out_par ;`
		85	`return ;`
		86	`}`
		87
		88	`void c_preserve`
		89	`PROTO_Z ()`
		90	`{`
		91	`o_preserve ;`
		92	`return ;`
		93	`}`
		94
		95	`void c_register`
		96	`PROTO_Z ()`
		97	`{`
		98	`o_register ;`
		99	`return ;`
		100	`}`
		101
		102	`void c_standard_access`
		103	`PROTO_Z ()`
		104	`{`
		105	`o_standard_access ;`
		106	`return ;`
		107	`}`
		108
		109	`void c_used_as_volatile`
		110	`PROTO_Z ()`
		111	`{`
		112	`o_used_as_volatile ;`
		113	`return ;`
		114	`}`
		115
		116	`void c_visible`
		117	`PROTO_Z ()`
		118	`{`
		119	`o_visible ;`
		120	`return ;`
		121	`}`
		122
		123	`void c_alignment`
		124	`PROTO_Z ()`
		125	`{`
		126	`skip_term ( lex_ord ) ;`
		127	`o_alignment (`
		128	`read_shape () ; skip_term ( lex_crd )`
		129	`)`
		130	`return ;`
		131	`}`
		132
		133	`void c_alloca_alignment`
		134	`PROTO_Z ()`
		135	`{`
		136	`o_alloca_alignment ;`
		137	`return ;`
		138	`}`
		139
		140	`void c_callees_alignment`
		141	`PROTO_Z ()`
		142	`{`
		143	`skip_term ( lex_ord ) ;`
		144	`o_callees_alignment (`
		145	`read_bool () ; skip_term ( lex_crd )`
		146	`)`
		147	`return ;`
		148	`}`
		149
		150	`void c_callers_alignment`
		151	`PROTO_Z ()`
		152	`{`
		153	`skip_term ( lex_ord ) ;`
		154	`o_callers_alignment (`
		155	`read_bool () ; skip_term ( lex_crd )`
		156	`)`
		157	`return ;`
		158	`}`
		159
		160	`void c_code_alignment`
		161	`PROTO_Z ()`
		162	`{`
		163	`o_code_alignment ;`
		164	`return ;`
		165	`}`
		166
		167	`void c_locals_alignment`
		168	`PROTO_Z ()`
		169	`{`
		170	`o_locals_alignment ;`
		171	`return ;`
		172	`}`
		173
		174	`void c_parameter_alignment`
		175	`PROTO_Z ()`
		176	`{`
		177	`skip_term ( lex_ord ) ;`
		178	`o_parameter_alignment (`
		179	`read_shape () ; skip_term ( lex_crd )`
		180	`)`
		181	`return ;`
		182	`}`
		183
		184	`void c_unite_alignments`
		185	`PROTO_Z ()`
		186	`{`
		187	`skip_term ( lex_ord ) ;`
		188	`o_unite_alignments (`
		189	`read_alignment () ; skip_term ( lex_comma ),`
		190	`read_alignment () ; skip_term ( lex_crd )`
		191	`)`
		192	`return ;`
		193	`}`
		194
		195	`void c_var_param_alignment`
		196	`PROTO_Z ()`
		197	`{`
		198	`o_var_param_alignment ;`
		199	`return ;`
		200	`}`
		201
		202	`void c_bfvar_bits`
		203	`PROTO_Z ()`
		204	`{`
		205	`skip_term ( lex_ord ) ;`
		206	`o_bfvar_bits (`
		207	`read_bool () ; skip_term ( lex_comma ),`
		208	`read_nat () ; skip_term ( lex_crd )`
		209	`)`
		210	`return ;`
		211	`}`
		212
		213	`void c_false`
		214	`PROTO_Z ()`
		215	`{`
		216	`o_false ;`
		217	`return ;`
		218	`}`
		219
		220	`void c_true`
		221	`PROTO_Z ()`
		222	`{`
		223	`o_true ;`
		224	`return ;`
		225	`}`
		226
		227	`void c_nil_access`
		228	`PROTO_Z ()`
		229	`{`
		230	`o_nil_access ;`
		231	`return ;`
		232	`}`
		233
		234	`void c_overflow`
		235	`PROTO_Z ()`
		236	`{`
		237	`o_overflow ;`
		238	`return ;`
		239	`}`
		240
		241	`void c_stack_overflow`
		242	`PROTO_Z ()`
		243	`{`
		244	`o_stack_overflow ;`
		245	`return ;`
		246	`}`
		247
		248	`void c_continue`
		249	`PROTO_Z ()`
		250	`{`
		251	`o_continue ;`
		252	`return ;`
		253	`}`
		254
		255	`void c_trap`
		256	`PROTO_Z ()`
		257	`{`
		258	`skip_term ( lex_ord ) ;`
		259	`o_trap (`
		260	`read_error_code_list () ; skip_term ( lex_crd )`
		261	`)`
		262	`return ;`
		263	`}`
		264
		265	`void c_wrap`
		266	`PROTO_Z ()`
		267	`{`
		268	`o_wrap ;`
		269	`return ;`
		270	`}`
		271
		272	`void c_impossible`
		273	`PROTO_Z ()`
		274	`{`
		275	`o_impossible ;`
		276	`return ;`
		277	`}`
		278
		279	`void c_abs`
		280	`PROTO_Z ()`
		281	`{`
		282	`skip_term ( lex_ord ) ;`
		283	`o_abs (`
		284	`read_error_treatment () ; skip_term ( lex_comma ),`
		285	`read_exp () ; skip_term ( lex_crd )`
		286	`)`
		287	`return ;`
		288	`}`
		289
		290	`void c_add_to_ptr`
		291	`PROTO_Z ()`
		292	`{`
		293	`skip_term ( lex_ord ) ;`
		294	`o_add_to_ptr (`
		295	`read_exp () ; skip_term ( lex_comma ),`
		296	`read_exp () ; skip_term ( lex_crd )`
		297	`)`
		298	`return ;`
		299	`}`
		300
		301	`void c_and`
		302	`PROTO_Z ()`
		303	`{`
		304	`skip_term ( lex_ord ) ;`
		305	`o_and (`
		306	`read_exp () ; skip_term ( lex_comma ),`
		307	`read_exp () ; skip_term ( lex_crd )`
		308	`)`
		309	`return ;`
		310	`}`
		311
		312	`void c_assign`
		313	`PROTO_Z ()`
		314	`{`
		315	`skip_term ( lex_ord ) ;`
		316	`o_assign (`
		317	`read_exp () ; skip_term ( lex_comma ),`
		318	`read_exp () ; skip_term ( lex_crd )`
		319	`)`
		320	`return ;`
		321	`}`
		322
		323	`void c_assign_with_mode`
		324	`PROTO_Z ()`
		325	`{`
		326	`skip_term ( lex_ord ) ;`
		327	`o_assign_with_mode (`
		328	`read_transfer_mode () ; skip_term ( lex_comma ),`
		329	`read_exp () ; skip_term ( lex_comma ),`
		330	`read_exp () ; skip_term ( lex_crd )`
		331	`)`
		332	`return ;`
		333	`}`
		334
		335	`void c_bitfield_assign`
		336	`PROTO_Z ()`
		337	`{`
		338	`skip_term ( lex_ord ) ;`
		339	`o_bitfield_assign (`
		340	`read_exp () ; skip_term ( lex_comma ),`
		341	`read_exp () ; skip_term ( lex_comma ),`
		342	`read_exp () ; skip_term ( lex_crd )`
		343	`)`
		344	`return ;`
		345	`}`
		346
		347	`void c_bitfield_assign_with_mode`
		348	`PROTO_Z ()`
		349	`{`
		350	`skip_term ( lex_ord ) ;`
		351	`o_bitfield_assign_with_mode (`
		352	`read_transfer_mode () ; skip_term ( lex_comma ),`
		353	`read_exp () ; skip_term ( lex_comma ),`
		354	`read_exp () ; skip_term ( lex_comma ),`
		355	`read_exp () ; skip_term ( lex_crd )`
		356	`)`
		357	`return ;`
		358	`}`
		359
		360	`void c_bitfield_contents`
		361	`PROTO_Z ()`
		362	`{`
		363	`skip_term ( lex_ord ) ;`
		364	`o_bitfield_contents (`
		365	`read_bitfield_variety () ; skip_term ( lex_comma ),`
		366	`read_exp () ; skip_term ( lex_comma ),`
		367	`read_exp () ; skip_term ( lex_crd )`
		368	`)`
		369	`return ;`
		370	`}`
		371
		372	`void c_bitfield_contents_with_mode`
		373	`PROTO_Z ()`
		374	`{`
		375	`skip_term ( lex_ord ) ;`
		376	`o_bitfield_contents_with_mode (`
		377	`read_transfer_mode () ; skip_term ( lex_comma ),`
		378	`read_bitfield_variety () ; skip_term ( lex_comma ),`
		379	`read_exp () ; skip_term ( lex_comma ),`
		380	`read_exp () ; skip_term ( lex_crd )`
		381	`)`
		382	`return ;`
		383	`}`
		384
		385	`void c_change_bitfield_to_int`
		386	`PROTO_Z ()`
		387	`{`
		388	`skip_term ( lex_ord ) ;`
		389	`o_change_bitfield_to_int (`
		390	`read_variety () ; skip_term ( lex_comma ),`
		391	`read_exp () ; skip_term ( lex_crd )`
		392	`)`
		393	`return ;`
		394	`}`
		395
		396	`void c_change_floating_variety`
		397	`PROTO_Z ()`
		398	`{`
		399	`skip_term ( lex_ord ) ;`
		400	`o_change_floating_variety (`
		401	`read_error_treatment () ; skip_term ( lex_comma ),`
		402	`read_floating_variety () ; skip_term ( lex_comma ),`
		403	`read_exp () ; skip_term ( lex_crd )`
		404	`)`
		405	`return ;`
		406	`}`
		407
		408	`void c_change_variety`
		409	`PROTO_Z ()`
		410	`{`
		411	`skip_term ( lex_ord ) ;`
		412	`o_change_variety (`
		413	`read_error_treatment () ; skip_term ( lex_comma ),`
		414	`read_variety () ; skip_term ( lex_comma ),`
		415	`read_exp () ; skip_term ( lex_crd )`
		416	`)`
		417	`return ;`
		418	`}`
		419
		420	`void c_change_int_to_bitfield`
		421	`PROTO_Z ()`
		422	`{`
		423	`skip_term ( lex_ord ) ;`
		424	`o_change_int_to_bitfield (`
		425	`read_bitfield_variety () ; skip_term ( lex_comma ),`
		426	`read_exp () ; skip_term ( lex_crd )`
		427	`)`
		428	`return ;`
		429	`}`
		430
		431	`void c_complex_conjugate`
		432	`PROTO_Z ()`
		433	`{`
		434	`skip_term ( lex_ord ) ;`
		435	`o_complex_conjugate (`
		436	`read_exp () ; skip_term ( lex_crd )`
		437	`)`
		438	`return ;`
		439	`}`
		440
		441	`void c_component`
		442	`PROTO_Z ()`
		443	`{`
		444	`skip_term ( lex_ord ) ;`
		445	`o_component (`
		446	`read_shape () ; skip_term ( lex_comma ),`
		447	`read_exp () ; skip_term ( lex_comma ),`
		448	`read_exp () ; skip_term ( lex_crd )`
		449	`)`
		450	`return ;`
		451	`}`
		452
		453	`void c_concat_nof`
		454	`PROTO_Z ()`
		455	`{`
		456	`skip_term ( lex_ord ) ;`
		457	`o_concat_nof (`
		458	`read_exp () ; skip_term ( lex_comma ),`
		459	`read_exp () ; skip_term ( lex_crd )`
		460	`)`
		461	`return ;`
		462	`}`
		463
		464	`void c_conditional`
		465	`PROTO_Z ()`
		466	`{`
		467	`skip_term ( lex_ord ) ;`
		468	`o_conditional (`
		469	`read_label () ; skip_term ( lex_comma ),`
		470	`read_exp () ; skip_term ( lex_comma ),`
		471	`read_exp () ; skip_term ( lex_crd )`
		472	`)`
		473	`return ;`
		474	`}`
		475
		476	`void c_contents`
		477	`PROTO_Z ()`
		478	`{`
		479	`skip_term ( lex_ord ) ;`
		480	`o_contents (`
		481	`read_shape () ; skip_term ( lex_comma ),`
		482	`read_exp () ; skip_term ( lex_crd )`
		483	`)`
		484	`return ;`
		485	`}`
		486
		487	`void c_contents_with_mode`
		488	`PROTO_Z ()`
		489	`{`
		490	`skip_term ( lex_ord ) ;`
		491	`o_contents_with_mode (`
		492	`read_transfer_mode () ; skip_term ( lex_comma ),`
		493	`read_shape () ; skip_term ( lex_comma ),`
		494	`read_exp () ; skip_term ( lex_crd )`
		495	`)`
		496	`return ;`
		497	`}`
		498
		499	`void c_current_env`
		500	`PROTO_Z ()`
		501	`{`
		502	`o_current_env ;`
		503	`return ;`
		504	`}`
		505
		506	`void c_div0`
		507	`PROTO_Z ()`
		508	`{`
		509	`skip_term ( lex_ord ) ;`
		510	`o_div0 (`
		511	`read_error_treatment () ; skip_term ( lex_comma ),`
		512	`read_error_treatment () ; skip_term ( lex_comma ),`
		513	`read_exp () ; skip_term ( lex_comma ),`
		514	`read_exp () ; skip_term ( lex_crd )`
		515	`)`
		516	`return ;`
		517	`}`
		518
		519	`void c_div1`
		520	`PROTO_Z ()`
		521	`{`
		522	`skip_term ( lex_ord ) ;`
		523	`o_div1 (`
		524	`read_error_treatment () ; skip_term ( lex_comma ),`
		525	`read_error_treatment () ; skip_term ( lex_comma ),`
		526	`read_exp () ; skip_term ( lex_comma ),`
		527	`read_exp () ; skip_term ( lex_crd )`
		528	`)`
		529	`return ;`
		530	`}`
		531
		532	`void c_div2`
		533	`PROTO_Z ()`
		534	`{`
		535	`skip_term ( lex_ord ) ;`
		536	`o_div2 (`
		537	`read_error_treatment () ; skip_term ( lex_comma ),`
		538	`read_error_treatment () ; skip_term ( lex_comma ),`
		539	`read_exp () ; skip_term ( lex_comma ),`
		540	`read_exp () ; skip_term ( lex_crd )`
		541	`)`
		542	`return ;`
		543	`}`
		544
		545	`void c_env_offset`
		546	`PROTO_Z ()`
		547	`{`
		548	`skip_term ( lex_ord ) ;`
		549	`o_env_offset (`
		550	`read_alignment () ; skip_term ( lex_comma ),`
		551	`read_alignment () ; skip_term ( lex_comma ),`
		552	`read_tag () ; skip_term ( lex_crd )`
		553	`)`
		554	`return ;`
		555	`}`
		556
		557	`void c_env_size`
		558	`PROTO_Z ()`
		559	`{`
		560	`skip_term ( lex_ord ) ;`
		561	`o_env_size (`
		562	`read_tag () ; skip_term ( lex_crd )`
		563	`)`
		564	`return ;`
		565	`}`
		566
		567	`void c_fail_installer`
		568	`PROTO_Z ()`
		569	`{`
		570	`skip_term ( lex_ord ) ;`
		571	`o_fail_installer (`
		572	`read_string () ; skip_term ( lex_crd )`
		573	`)`
		574	`return ;`
		575	`}`
		576
		577	`void c_float_int`
		578	`PROTO_Z ()`
		579	`{`
		580	`skip_term ( lex_ord ) ;`
		581	`o_float_int (`
		582	`read_error_treatment () ; skip_term ( lex_comma ),`
		583	`read_floating_variety () ; skip_term ( lex_comma ),`
		584	`read_exp () ; skip_term ( lex_crd )`
		585	`)`
		586	`return ;`
		587	`}`
		588
		589	`void c_floating_abs`
		590	`PROTO_Z ()`
		591	`{`
		592	`skip_term ( lex_ord ) ;`
		593	`o_floating_abs (`
		594	`read_error_treatment () ; skip_term ( lex_comma ),`
		595	`read_exp () ; skip_term ( lex_crd )`
		596	`)`
		597	`return ;`
		598	`}`
		599
		600	`void c_floating_div`
		601	`PROTO_Z ()`
		602	`{`
		603	`skip_term ( lex_ord ) ;`
		604	`o_floating_div (`
		605	`read_error_treatment () ; skip_term ( lex_comma ),`
		606	`read_exp () ; skip_term ( lex_comma ),`
		607	`read_exp () ; skip_term ( lex_crd )`
		608	`)`
		609	`return ;`
		610	`}`
		611
		612	`void c_floating_minus`
		613	`PROTO_Z ()`
		614	`{`
		615	`skip_term ( lex_ord ) ;`
		616	`o_floating_minus (`
		617	`read_error_treatment () ; skip_term ( lex_comma ),`
		618	`read_exp () ; skip_term ( lex_comma ),`
		619	`read_exp () ; skip_term ( lex_crd )`
		620	`)`
		621	`return ;`
		622	`}`
		623
		624	`void c_floating_maximum`
		625	`PROTO_Z ()`
		626	`{`
		627	`skip_term ( lex_ord ) ;`
		628	`o_floating_maximum (`
		629	`read_error_treatment () ; skip_term ( lex_comma ),`
		630	`read_exp () ; skip_term ( lex_comma ),`
		631	`read_exp () ; skip_term ( lex_crd )`
		632	`)`
		633	`return ;`
		634	`}`
		635
		636	`void c_floating_minimum`
		637	`PROTO_Z ()`
		638	`{`
		639	`skip_term ( lex_ord ) ;`
		640	`o_floating_minimum (`
		641	`read_error_treatment () ; skip_term ( lex_comma ),`
		642	`read_exp () ; skip_term ( lex_comma ),`
		643	`read_exp () ; skip_term ( lex_crd )`
		644	`)`
		645	`return ;`
		646	`}`
		647
		648	`void c_floating_mult`
		649	`PROTO_Z ()`
		650	`{`
		651	`skip_term ( lex_ord ) ;`
		652	`o_floating_mult (`
		653	`read_error_treatment () ; skip_term ( lex_comma ),`
		654	`read_exp_list () ; skip_term ( lex_crd )`
		655	`)`
		656	`return ;`
		657	`}`
		658
		659	`void c_floating_negate`
		660	`PROTO_Z ()`
		661	`{`
		662	`skip_term ( lex_ord ) ;`
		663	`o_floating_negate (`
		664	`read_error_treatment () ; skip_term ( lex_comma ),`
		665	`read_exp () ; skip_term ( lex_crd )`
		666	`)`
		667	`return ;`
		668	`}`
		669
		670	`void c_floating_plus`
		671	`PROTO_Z ()`
		672	`{`
		673	`skip_term ( lex_ord ) ;`
		674	`o_floating_plus (`
		675	`read_error_treatment () ; skip_term ( lex_comma ),`
		676	`read_exp_list () ; skip_term ( lex_crd )`
		677	`)`
		678	`return ;`
		679	`}`
		680
		681	`void c_floating_power`
		682	`PROTO_Z ()`
		683	`{`
		684	`skip_term ( lex_ord ) ;`
		685	`o_floating_power (`
		686	`read_error_treatment () ; skip_term ( lex_comma ),`
		687	`read_exp () ; skip_term ( lex_comma ),`
		688	`read_exp () ; skip_term ( lex_crd )`
		689	`)`
		690	`return ;`
		691	`}`
		692
		693	`void c_floating_test`
		694	`PROTO_Z ()`
		695	`{`
		696	`skip_term ( lex_ord ) ;`
		697	`o_floating_test (`
		698	`read_nat_option () ; skip_term ( lex_comma ),`
		699	`read_error_treatment () ; skip_term ( lex_comma ),`
		700	`read_ntest () ; skip_term ( lex_comma ),`
		701	`read_label () ; skip_term ( lex_comma ),`
		702	`read_exp () ; skip_term ( lex_comma ),`
		703	`read_exp () ; skip_term ( lex_crd )`
		704	`)`
		705	`return ;`
		706	`}`
		707
		708	`void c_goto`
		709	`PROTO_Z ()`
		710	`{`
		711	`skip_term ( lex_ord ) ;`
		712	`o_goto (`
		713	`read_label () ; skip_term ( lex_crd )`
		714	`)`
		715	`return ;`
		716	`}`
		717
		718	`void c_goto_local_lv`
		719	`PROTO_Z ()`
		720	`{`
		721	`skip_term ( lex_ord ) ;`
		722	`o_goto_local_lv (`
		723	`read_exp () ; skip_term ( lex_crd )`
		724	`)`
		725	`return ;`
		726	`}`
		727
		728	`void c_ignorable`
		729	`PROTO_Z ()`
		730	`{`
		731	`skip_term ( lex_ord ) ;`
		732	`o_ignorable (`
		733	`read_exp () ; skip_term ( lex_crd )`
		734	`)`
		735	`return ;`
		736	`}`
		737
		738	`void c_imaginary_part`
		739	`PROTO_Z ()`
		740	`{`
		741	`skip_term ( lex_ord ) ;`
		742	`o_imaginary_part (`
		743	`read_exp () ; skip_term ( lex_crd )`
		744	`)`
		745	`return ;`
		746	`}`
		747
		748	`void c_initial_value`
		749	`PROTO_Z ()`
		750	`{`
		751	`skip_term ( lex_ord ) ;`
		752	`o_initial_value (`
		753	`read_exp () ; skip_term ( lex_crd )`
		754	`)`
		755	`return ;`
		756	`}`
		757
		758	`void c_integer_test`
		759	`PROTO_Z ()`
		760	`{`
		761	`skip_term ( lex_ord ) ;`
		762	`o_integer_test (`
		763	`read_nat_option () ; skip_term ( lex_comma ),`
		764	`read_ntest () ; skip_term ( lex_comma ),`
		765	`read_label () ; skip_term ( lex_comma ),`
		766	`read_exp () ; skip_term ( lex_comma ),`
		767	`read_exp () ; skip_term ( lex_crd )`
		768	`)`
		769	`return ;`
		770	`}`
		771
		772	`void c_last_local`
		773	`PROTO_Z ()`
		774	`{`
		775	`skip_term ( lex_ord ) ;`
		776	`o_last_local (`
		777	`read_exp () ; skip_term ( lex_crd )`
		778	`)`
		779	`return ;`
		780	`}`
		781
		782	`void c_local_alloc`
		783	`PROTO_Z ()`
		784	`{`
		785	`skip_term ( lex_ord ) ;`
		786	`o_local_alloc (`
		787	`read_exp () ; skip_term ( lex_crd )`
		788	`)`
		789	`return ;`
		790	`}`
		791
		792	`void c_local_alloc_check`
		793	`PROTO_Z ()`
		794	`{`
		795	`skip_term ( lex_ord ) ;`
		796	`o_local_alloc_check (`
		797	`read_exp () ; skip_term ( lex_crd )`
		798	`)`
		799	`return ;`
		800	`}`
		801
		802	`void c_local_free`
		803	`PROTO_Z ()`
		804	`{`
		805	`skip_term ( lex_ord ) ;`
		806	`o_local_free (`
		807	`read_exp () ; skip_term ( lex_comma ),`
		808	`read_exp () ; skip_term ( lex_crd )`
		809	`)`
		810	`return ;`
		811	`}`
		812
		813	`void c_local_free_all`
		814	`PROTO_Z ()`
		815	`{`
		816	`o_local_free_all ;`
		817	`return ;`
		818	`}`
		819
		820	`void c_long_jump`
		821	`PROTO_Z ()`
		822	`{`
		823	`skip_term ( lex_ord ) ;`
		824	`o_long_jump (`
		825	`read_exp () ; skip_term ( lex_comma ),`
		826	`read_exp () ; skip_term ( lex_crd )`
		827	`)`
		828	`return ;`
		829	`}`
		830
		831	`void c_make_complex`
		832	`PROTO_Z ()`
		833	`{`
		834	`skip_term ( lex_ord ) ;`
		835	`o_make_complex (`
		836	`read_floating_variety () ; skip_term ( lex_comma ),`
		837	`read_exp () ; skip_term ( lex_comma ),`
		838	`read_exp () ; skip_term ( lex_crd )`
		839	`)`
		840	`return ;`
		841	`}`
		842
		843	`void c_make_compound`
		844	`PROTO_Z ()`
		845	`{`
		846	`skip_term ( lex_ord ) ;`
		847	`o_make_compound (`
		848	`read_exp () ; skip_term ( lex_comma ),`
		849	`read_exp_list () ; skip_term ( lex_crd )`
		850	`)`
		851	`return ;`
		852	`}`
		853
		854	`void c_make_local_lv`
		855	`PROTO_Z ()`
		856	`{`
		857	`skip_term ( lex_ord ) ;`
		858	`o_make_local_lv (`
		859	`read_label () ; skip_term ( lex_crd )`
		860	`)`
		861	`return ;`
		862	`}`
		863
		864	`void c_make_nof`
		865	`PROTO_Z ()`
		866	`{`
		867	`skip_term ( lex_ord ) ;`
		868	`o_make_nof (`
		869	`read_exp_list () ; skip_term ( lex_crd )`
		870	`)`
		871	`return ;`
		872	`}`
		873
		874	`void c_make_nof_int`
		875	`PROTO_Z ()`
		876	`{`
		877	`skip_term ( lex_ord ) ;`
		878	`o_make_nof_int (`
		879	`read_variety () ; skip_term ( lex_comma ),`
		880	`read_string () ; skip_term ( lex_crd )`
		881	`)`
		882	`return ;`
		883	`}`
		884
		885	`void c_make_null_local_lv`
		886	`PROTO_Z ()`
		887	`{`
		888	`o_make_null_local_lv ;`
		889	`return ;`
		890	`}`
		891
		892	`void c_make_null_proc`
		893	`PROTO_Z ()`
		894	`{`
		895	`o_make_null_proc ;`
		896	`return ;`
		897	`}`
		898
		899	`void c_make_null_ptr`
		900	`PROTO_Z ()`
		901	`{`
		902	`skip_term ( lex_ord ) ;`
		903	`o_make_null_ptr (`
		904	`read_alignment () ; skip_term ( lex_crd )`
		905	`)`
		906	`return ;`
		907	`}`
		908
		909	`void c_make_stack_limit`
		910	`PROTO_Z ()`
		911	`{`
		912	`skip_term ( lex_ord ) ;`
		913	`o_make_stack_limit (`
		914	`read_exp () ; skip_term ( lex_comma ),`
		915	`read_exp () ; skip_term ( lex_comma ),`
		916	`read_exp () ; skip_term ( lex_crd )`
		917	`)`
		918	`return ;`
		919	`}`
		920
		921	`void c_make_top`
		922	`PROTO_Z ()`
		923	`{`
		924	`o_make_top ;`
		925	`return ;`
		926	`}`
		927
		928	`void c_make_value`
		929	`PROTO_Z ()`
		930	`{`
		931	`skip_term ( lex_ord ) ;`
		932	`o_make_value (`
		933	`read_shape () ; skip_term ( lex_crd )`
		934	`)`
		935	`return ;`
		936	`}`
		937
		938	`void c_maximum`
		939	`PROTO_Z ()`
		940	`{`
		941	`skip_term ( lex_ord ) ;`
		942	`o_maximum (`
		943	`read_exp () ; skip_term ( lex_comma ),`
		944	`read_exp () ; skip_term ( lex_crd )`
		945	`)`
		946	`return ;`
		947	`}`
		948
		949	`void c_minimum`
		950	`PROTO_Z ()`
		951	`{`
		952	`skip_term ( lex_ord ) ;`
		953	`o_minimum (`
		954	`read_exp () ; skip_term ( lex_comma ),`
		955	`read_exp () ; skip_term ( lex_crd )`
		956	`)`
		957	`return ;`
		958	`}`
		959
		960	`void c_minus`
		961	`PROTO_Z ()`
		962	`{`
		963	`skip_term ( lex_ord ) ;`
		964	`o_minus (`
		965	`read_error_treatment () ; skip_term ( lex_comma ),`
		966	`read_exp () ; skip_term ( lex_comma ),`
		967	`read_exp () ; skip_term ( lex_crd )`
		968	`)`
		969	`return ;`
		970	`}`
		971
		972	`void c_move_some`
		973	`PROTO_Z ()`
		974	`{`
		975	`skip_term ( lex_ord ) ;`
		976	`o_move_some (`
		977	`read_transfer_mode () ; skip_term ( lex_comma ),`
		978	`read_exp () ; skip_term ( lex_comma ),`
		979	`read_exp () ; skip_term ( lex_comma ),`
		980	`read_exp () ; skip_term ( lex_crd )`
		981	`)`
		982	`return ;`
		983	`}`
		984
		985	`void c_mult`
		986	`PROTO_Z ()`
		987	`{`
		988	`skip_term ( lex_ord ) ;`
		989	`o_mult (`
		990	`read_error_treatment () ; skip_term ( lex_comma ),`
		991	`read_exp () ; skip_term ( lex_comma ),`
		992	`read_exp () ; skip_term ( lex_crd )`
		993	`)`
		994	`return ;`
		995	`}`
		996
		997	`void c_n_copies`
		998	`PROTO_Z ()`
		999	`{`
		1000	`skip_term ( lex_ord ) ;`
		1001	`o_n_copies (`
		1002	`read_nat () ; skip_term ( lex_comma ),`
		1003	`read_exp () ; skip_term ( lex_crd )`
		1004	`)`
		1005	`return ;`
		1006	`}`
		1007
		1008	`void c_negate`
		1009	`PROTO_Z ()`
		1010	`{`
		1011	`skip_term ( lex_ord ) ;`
		1012	`o_negate (`
		1013	`read_error_treatment () ; skip_term ( lex_comma ),`
		1014	`read_exp () ; skip_term ( lex_crd )`
		1015	`)`
		1016	`return ;`
		1017	`}`
		1018
		1019	`void c_not`
		1020	`PROTO_Z ()`
		1021	`{`
		1022	`skip_term ( lex_ord ) ;`
		1023	`o_not (`
		1024	`read_exp () ; skip_term ( lex_crd )`
		1025	`)`
		1026	`return ;`
		1027	`}`
		1028
		1029	`void c_offset_add`
		1030	`PROTO_Z ()`
		1031	`{`
		1032	`skip_term ( lex_ord ) ;`
		1033	`o_offset_add (`
		1034	`read_exp () ; skip_term ( lex_comma ),`
		1035	`read_exp () ; skip_term ( lex_crd )`
		1036	`)`
		1037	`return ;`
		1038	`}`
		1039
		1040	`void c_offset_div`
		1041	`PROTO_Z ()`
		1042	`{`
		1043	`skip_term ( lex_ord ) ;`
		1044	`o_offset_div (`
		1045	`read_variety () ; skip_term ( lex_comma ),`
		1046	`read_exp () ; skip_term ( lex_comma ),`
		1047	`read_exp () ; skip_term ( lex_crd )`
		1048	`)`
		1049	`return ;`
		1050	`}`
		1051
		1052	`void c_offset_div_by_int`
		1053	`PROTO_Z ()`
		1054	`{`
		1055	`skip_term ( lex_ord ) ;`
		1056	`o_offset_div_by_int (`
		1057	`read_exp () ; skip_term ( lex_comma ),`
		1058	`read_exp () ; skip_term ( lex_crd )`
		1059	`)`
		1060	`return ;`
		1061	`}`
		1062
		1063	`void c_offset_max`
		1064	`PROTO_Z ()`
		1065	`{`
		1066	`skip_term ( lex_ord ) ;`
		1067	`o_offset_max (`
		1068	`read_exp () ; skip_term ( lex_comma ),`
		1069	`read_exp () ; skip_term ( lex_crd )`
		1070	`)`
		1071	`return ;`
		1072	`}`
		1073
		1074	`void c_offset_mult`
		1075	`PROTO_Z ()`
		1076	`{`
		1077	`skip_term ( lex_ord ) ;`
		1078	`o_offset_mult (`
		1079	`read_exp () ; skip_term ( lex_comma ),`
		1080	`read_exp () ; skip_term ( lex_crd )`
		1081	`)`
		1082	`return ;`
		1083	`}`
		1084
		1085	`void c_offset_negate`
		1086	`PROTO_Z ()`
		1087	`{`
		1088	`skip_term ( lex_ord ) ;`
		1089	`o_offset_negate (`
		1090	`read_exp () ; skip_term ( lex_crd )`
		1091	`)`
		1092	`return ;`
		1093	`}`
		1094
		1095	`void c_offset_pad`
		1096	`PROTO_Z ()`
		1097	`{`
		1098	`skip_term ( lex_ord ) ;`
		1099	`o_offset_pad (`
		1100	`read_alignment () ; skip_term ( lex_comma ),`
		1101	`read_exp () ; skip_term ( lex_crd )`
		1102	`)`
		1103	`return ;`
		1104	`}`
		1105
		1106	`void c_offset_subtract`
		1107	`PROTO_Z ()`
		1108	`{`
		1109	`skip_term ( lex_ord ) ;`
		1110	`o_offset_subtract (`
		1111	`read_exp () ; skip_term ( lex_comma ),`
		1112	`read_exp () ; skip_term ( lex_crd )`
		1113	`)`
		1114	`return ;`
		1115	`}`
		1116
		1117	`void c_offset_test`
		1118	`PROTO_Z ()`
		1119	`{`
		1120	`skip_term ( lex_ord ) ;`
		1121	`o_offset_test (`
		1122	`read_nat_option () ; skip_term ( lex_comma ),`
		1123	`read_ntest () ; skip_term ( lex_comma ),`
		1124	`read_label () ; skip_term ( lex_comma ),`
		1125	`read_exp () ; skip_term ( lex_comma ),`
		1126	`read_exp () ; skip_term ( lex_crd )`
		1127	`)`
		1128	`return ;`
		1129	`}`
		1130
		1131	`void c_offset_zero`
		1132	`PROTO_Z ()`
		1133	`{`
		1134	`skip_term ( lex_ord ) ;`
		1135	`o_offset_zero (`
		1136	`read_alignment () ; skip_term ( lex_crd )`
		1137	`)`
		1138	`return ;`
		1139	`}`
		1140
		1141	`void c_or`
		1142	`PROTO_Z ()`
		1143	`{`
		1144	`skip_term ( lex_ord ) ;`
		1145	`o_or (`
		1146	`read_exp () ; skip_term ( lex_comma ),`
		1147	`read_exp () ; skip_term ( lex_crd )`
		1148	`)`
		1149	`return ;`
		1150	`}`
		1151
		1152	`void c_plus`
		1153	`PROTO_Z ()`
		1154	`{`
		1155	`skip_term ( lex_ord ) ;`
		1156	`o_plus (`
		1157	`read_error_treatment () ; skip_term ( lex_comma ),`
		1158	`read_exp () ; skip_term ( lex_comma ),`
		1159	`read_exp () ; skip_term ( lex_crd )`
		1160	`)`
		1161	`return ;`
		1162	`}`
		1163
		1164	`void c_pointer_test`
		1165	`PROTO_Z ()`
		1166	`{`
		1167	`skip_term ( lex_ord ) ;`
		1168	`o_pointer_test (`
		1169	`read_nat_option () ; skip_term ( lex_comma ),`
		1170	`read_ntest () ; skip_term ( lex_comma ),`
		1171	`read_label () ; skip_term ( lex_comma ),`
		1172	`read_exp () ; skip_term ( lex_comma ),`
		1173	`read_exp () ; skip_term ( lex_crd )`
		1174	`)`
		1175	`return ;`
		1176	`}`
		1177
		1178	`void c_power`
		1179	`PROTO_Z ()`
		1180	`{`
		1181	`skip_term ( lex_ord ) ;`
		1182	`o_power (`
		1183	`read_error_treatment () ; skip_term ( lex_comma ),`
		1184	`read_exp () ; skip_term ( lex_comma ),`
		1185	`read_exp () ; skip_term ( lex_crd )`
		1186	`)`
		1187	`return ;`
		1188	`}`
		1189
		1190	`void c_proc_test`
		1191	`PROTO_Z ()`
		1192	`{`
		1193	`skip_term ( lex_ord ) ;`
		1194	`o_proc_test (`
		1195	`read_nat_option () ; skip_term ( lex_comma ),`
		1196	`read_ntest () ; skip_term ( lex_comma ),`
		1197	`read_label () ; skip_term ( lex_comma ),`
		1198	`read_exp () ; skip_term ( lex_comma ),`
		1199	`read_exp () ; skip_term ( lex_crd )`
		1200	`)`
		1201	`return ;`
		1202	`}`
		1203
		1204	`void c_profile`
		1205	`PROTO_Z ()`
		1206	`{`
		1207	`skip_term ( lex_ord ) ;`
		1208	`o_profile (`
		1209	`read_nat () ; skip_term ( lex_crd )`
		1210	`)`
		1211	`return ;`
		1212	`}`
		1213
		1214	`void c_real_part`
		1215	`PROTO_Z ()`
		1216	`{`
		1217	`skip_term ( lex_ord ) ;`
		1218	`o_real_part (`
		1219	`read_exp () ; skip_term ( lex_crd )`
		1220	`)`
		1221	`return ;`
		1222	`}`
		1223
		1224	`void c_rem0`
		1225	`PROTO_Z ()`
		1226	`{`
		1227	`skip_term ( lex_ord ) ;`
		1228	`o_rem0 (`
		1229	`read_error_treatment () ; skip_term ( lex_comma ),`
		1230	`read_error_treatment () ; skip_term ( lex_comma ),`
		1231	`read_exp () ; skip_term ( lex_comma ),`
		1232	`read_exp () ; skip_term ( lex_crd )`
		1233	`)`
		1234	`return ;`
		1235	`}`
		1236
		1237	`void c_rem1`
		1238	`PROTO_Z ()`
		1239	`{`
		1240	`skip_term ( lex_ord ) ;`
		1241	`o_rem1 (`
		1242	`read_error_treatment () ; skip_term ( lex_comma ),`
		1243	`read_error_treatment () ; skip_term ( lex_comma ),`
		1244	`read_exp () ; skip_term ( lex_comma ),`
		1245	`read_exp () ; skip_term ( lex_crd )`
		1246	`)`
		1247	`return ;`
		1248	`}`
		1249
		1250	`void c_rem2`
		1251	`PROTO_Z ()`
		1252	`{`
		1253	`skip_term ( lex_ord ) ;`
		1254	`o_rem2 (`
		1255	`read_error_treatment () ; skip_term ( lex_comma ),`
		1256	`read_error_treatment () ; skip_term ( lex_comma ),`
		1257	`read_exp () ; skip_term ( lex_comma ),`
		1258	`read_exp () ; skip_term ( lex_crd )`
		1259	`)`
		1260	`return ;`
		1261	`}`
		1262
		1263	`void c_repeat`
		1264	`PROTO_Z ()`
		1265	`{`
		1266	`skip_term ( lex_ord ) ;`
		1267	`o_repeat (`
		1268	`read_label () ; skip_term ( lex_comma ),`
		1269	`read_exp () ; skip_term ( lex_comma ),`
		1270	`read_exp () ; skip_term ( lex_crd )`
		1271	`)`
		1272	`return ;`
		1273	`}`
		1274
		1275	`void c_return`
		1276	`PROTO_Z ()`
		1277	`{`
		1278	`skip_term ( lex_ord ) ;`
		1279	`o_return (`
		1280	`read_exp () ; skip_term ( lex_crd )`
		1281	`)`
		1282	`return ;`
		1283	`}`
		1284
		1285	`void c_return_to_label`
		1286	`PROTO_Z ()`
		1287	`{`
		1288	`skip_term ( lex_ord ) ;`
		1289	`o_return_to_label (`
		1290	`read_exp () ; skip_term ( lex_crd )`
		1291	`)`
		1292	`return ;`
		1293	`}`
		1294
		1295	`void c_round_with_mode`
		1296	`PROTO_Z ()`
		1297	`{`
		1298	`skip_term ( lex_ord ) ;`
		1299	`o_round_with_mode (`
		1300	`read_error_treatment () ; skip_term ( lex_comma ),`
		1301	`read_rounding_mode () ; skip_term ( lex_comma ),`
		1302	`read_variety () ; skip_term ( lex_comma ),`
		1303	`read_exp () ; skip_term ( lex_crd )`
		1304	`)`
		1305	`return ;`
		1306	`}`
		1307
		1308	`void c_rotate_left`
		1309	`PROTO_Z ()`
		1310	`{`
		1311	`skip_term ( lex_ord ) ;`
		1312	`o_rotate_left (`
		1313	`read_exp () ; skip_term ( lex_comma ),`
		1314	`read_exp () ; skip_term ( lex_crd )`
		1315	`)`
		1316	`return ;`
		1317	`}`
		1318
		1319	`void c_rotate_right`
		1320	`PROTO_Z ()`
		1321	`{`
		1322	`skip_term ( lex_ord ) ;`
		1323	`o_rotate_right (`
		1324	`read_exp () ; skip_term ( lex_comma ),`
		1325	`read_exp () ; skip_term ( lex_crd )`
		1326	`)`
		1327	`return ;`
		1328	`}`
		1329
		1330	`void c_set_stack_limit`
		1331	`PROTO_Z ()`
		1332	`{`
		1333	`skip_term ( lex_ord ) ;`
		1334	`o_set_stack_limit (`
		1335	`read_exp () ; skip_term ( lex_crd )`
		1336	`)`
		1337	`return ;`
		1338	`}`
		1339
		1340	`void c_shape_offset`
		1341	`PROTO_Z ()`
		1342	`{`
		1343	`skip_term ( lex_ord ) ;`
		1344	`o_shape_offset (`
		1345	`read_shape () ; skip_term ( lex_crd )`
		1346	`)`
		1347	`return ;`
		1348	`}`
		1349
		1350	`void c_shift_left`
		1351	`PROTO_Z ()`
		1352	`{`
		1353	`skip_term ( lex_ord ) ;`
		1354	`o_shift_left (`
		1355	`read_error_treatment () ; skip_term ( lex_comma ),`
		1356	`read_exp () ; skip_term ( lex_comma ),`
		1357	`read_exp () ; skip_term ( lex_crd )`
		1358	`)`
		1359	`return ;`
		1360	`}`
		1361
		1362	`void c_shift_right`
		1363	`PROTO_Z ()`
		1364	`{`
		1365	`skip_term ( lex_ord ) ;`
		1366	`o_shift_right (`
		1367	`read_exp () ; skip_term ( lex_comma ),`
		1368	`read_exp () ; skip_term ( lex_crd )`
		1369	`)`
		1370	`return ;`
		1371	`}`
		1372
		1373	`void c_subtract_ptrs`
		1374	`PROTO_Z ()`
		1375	`{`
		1376	`skip_term ( lex_ord ) ;`
		1377	`o_subtract_ptrs (`
		1378	`read_exp () ; skip_term ( lex_comma ),`
		1379	`read_exp () ; skip_term ( lex_crd )`
		1380	`)`
		1381	`return ;`
		1382	`}`
		1383
		1384	`void c_untidy_return`
		1385	`PROTO_Z ()`
		1386	`{`
		1387	`skip_term ( lex_ord ) ;`
		1388	`o_untidy_return (`
		1389	`read_exp () ; skip_term ( lex_crd )`
		1390	`)`
		1391	`return ;`
		1392	`}`
		1393
		1394	`void c_xor`
		1395	`PROTO_Z ()`
		1396	`{`
		1397	`skip_term ( lex_ord ) ;`
		1398	`o_xor (`
		1399	`read_exp () ; skip_term ( lex_comma ),`
		1400	`read_exp () ; skip_term ( lex_crd )`
		1401	`)`
		1402	`return ;`
		1403	`}`
		1404
		1405	`void c_flvar_parms`
		1406	`PROTO_Z ()`
		1407	`{`
		1408	`skip_term ( lex_ord ) ;`
		1409	`o_flvar_parms (`
		1410	`read_nat () ; skip_term ( lex_comma ),`
		1411	`read_nat () ; skip_term ( lex_comma ),`
		1412	`read_nat () ; skip_term ( lex_comma ),`
		1413	`read_nat () ; skip_term ( lex_crd )`
		1414	`)`
		1415	`return ;`
		1416	`}`
		1417
		1418	`void c_complex_parms`
		1419	`PROTO_Z ()`
		1420	`{`
		1421	`skip_term ( lex_ord ) ;`
		1422	`o_complex_parms (`
		1423	`read_nat () ; skip_term ( lex_comma ),`
		1424	`read_nat () ; skip_term ( lex_comma ),`
		1425	`read_nat () ; skip_term ( lex_comma ),`
		1426	`read_nat () ; skip_term ( lex_crd )`
		1427	`)`
		1428	`return ;`
		1429	`}`
		1430
		1431	`void c_float_of_complex`
		1432	`PROTO_Z ()`
		1433	`{`
		1434	`skip_term ( lex_ord ) ;`
		1435	`o_float_of_complex (`
		1436	`read_shape () ; skip_term ( lex_crd )`
		1437	`)`
		1438	`return ;`
		1439	`}`
		1440
		1441	`void c_complex_of_float`
		1442	`PROTO_Z ()`
		1443	`{`
		1444	`skip_term ( lex_ord ) ;`
		1445	`o_complex_of_float (`
		1446	`read_shape () ; skip_term ( lex_crd )`
		1447	`)`
		1448	`return ;`
		1449	`}`
		1450
		1451	`void c_computed_nat`
		1452	`PROTO_Z ()`
		1453	`{`
		1454	`skip_term ( lex_ord ) ;`
		1455	`o_computed_nat (`
		1456	`read_exp () ; skip_term ( lex_crd )`
		1457	`)`
		1458	`return ;`
		1459	`}`
		1460
		1461	`void c_error_val`
		1462	`PROTO_Z ()`
		1463	`{`
		1464	`skip_term ( lex_ord ) ;`
		1465	`o_error_val (`
		1466	`read_error_code () ; skip_term ( lex_crd )`
		1467	`)`
		1468	`return ;`
		1469	`}`
		1470
		1471	`void c_equal`
		1472	`PROTO_Z ()`
		1473	`{`
		1474	`o_equal ;`
		1475	`return ;`
		1476	`}`
		1477
		1478	`void c_greater_than`
		1479	`PROTO_Z ()`
		1480	`{`
		1481	`o_greater_than ;`
		1482	`return ;`
		1483	`}`
		1484
		1485	`void c_greater_than_or_equal`
		1486	`PROTO_Z ()`
		1487	`{`
		1488	`o_greater_than_or_equal ;`
		1489	`return ;`
		1490	`}`
		1491
		1492	`void c_less_than`
		1493	`PROTO_Z ()`
		1494	`{`
		1495	`o_less_than ;`
		1496	`return ;`
		1497	`}`
		1498
		1499	`void c_less_than_or_equal`
		1500	`PROTO_Z ()`
		1501	`{`
		1502	`o_less_than_or_equal ;`
		1503	`return ;`
		1504	`}`
		1505
		1506	`void c_not_equal`
		1507	`PROTO_Z ()`
		1508	`{`
		1509	`o_not_equal ;`
		1510	`return ;`
		1511	`}`
		1512
		1513	`void c_not_greater_than`
		1514	`PROTO_Z ()`
		1515	`{`
		1516	`o_not_greater_than ;`
		1517	`return ;`
		1518	`}`
		1519
		1520	`void c_not_greater_than_or_equal`
		1521	`PROTO_Z ()`
		1522	`{`
		1523	`o_not_greater_than_or_equal ;`
		1524	`return ;`
		1525	`}`
		1526
		1527	`void c_not_less_than`
		1528	`PROTO_Z ()`
		1529	`{`
		1530	`o_not_less_than ;`
		1531	`return ;`
		1532	`}`
		1533
		1534	`void c_not_less_than_or_equal`
		1535	`PROTO_Z ()`
		1536	`{`
		1537	`o_not_less_than_or_equal ;`
		1538	`return ;`
		1539	`}`
		1540
		1541	`void c_less_than_or_greater_than`
		1542	`PROTO_Z ()`
		1543	`{`
		1544	`o_less_than_or_greater_than ;`
		1545	`return ;`
		1546	`}`
		1547
		1548	`void c_not_less_than_and_not_greater_than`
		1549	`PROTO_Z ()`
		1550	`{`
		1551	`o_not_less_than_and_not_greater_than ;`
		1552	`return ;`
		1553	`}`
		1554
		1555	`void c_comparable`
		1556	`PROTO_Z ()`
		1557	`{`
		1558	`o_comparable ;`
		1559	`return ;`
		1560	`}`
		1561
		1562	`void c_not_comparable`
		1563	`PROTO_Z ()`
		1564	`{`
		1565	`o_not_comparable ;`
		1566	`return ;`
		1567	`}`
		1568
		1569	`void c_round_as_state`
		1570	`PROTO_Z ()`
		1571	`{`
		1572	`o_round_as_state ;`
		1573	`return ;`
		1574	`}`
		1575
		1576	`void c_to_nearest`
		1577	`PROTO_Z ()`
		1578	`{`
		1579	`o_to_nearest ;`
		1580	`return ;`
		1581	`}`
		1582
		1583	`void c_toward_larger`
		1584	`PROTO_Z ()`
		1585	`{`
		1586	`o_toward_larger ;`
		1587	`return ;`
		1588	`}`
		1589
		1590	`void c_toward_smaller`
		1591	`PROTO_Z ()`
		1592	`{`
		1593	`o_toward_smaller ;`
		1594	`return ;`
		1595	`}`
		1596
		1597	`void c_toward_zero`
		1598	`PROTO_Z ()`
		1599	`{`
		1600	`o_toward_zero ;`
		1601	`return ;`
		1602	`}`
		1603
		1604	`void c_bitfield`
		1605	`PROTO_Z ()`
		1606	`{`
		1607	`skip_term ( lex_ord ) ;`
		1608	`o_bitfield (`
		1609	`read_bitfield_variety () ; skip_term ( lex_crd )`
		1610	`)`
		1611	`return ;`
		1612	`}`
		1613
		1614	`void c_bottom`
		1615	`PROTO_Z ()`
		1616	`{`
		1617	`o_bottom ;`
		1618	`return ;`
		1619	`}`
		1620
		1621	`void c_compound`
		1622	`PROTO_Z ()`
		1623	`{`
		1624	`skip_term ( lex_ord ) ;`
		1625	`o_compound (`
		1626	`read_exp () ; skip_term ( lex_crd )`
		1627	`)`
		1628	`return ;`
		1629	`}`
		1630
		1631	`void c_floating`
		1632	`PROTO_Z ()`
		1633	`{`
		1634	`skip_term ( lex_ord ) ;`
		1635	`o_floating (`
		1636	`read_floating_variety () ; skip_term ( lex_crd )`
		1637	`)`
		1638	`return ;`
		1639	`}`
		1640
		1641	`void c_integer`
		1642	`PROTO_Z ()`
		1643	`{`
		1644	`skip_term ( lex_ord ) ;`
		1645	`o_integer (`
		1646	`read_variety () ; skip_term ( lex_crd )`
		1647	`)`
		1648	`return ;`
		1649	`}`
		1650
		1651	`void c_nof`
		1652	`PROTO_Z ()`
		1653	`{`
		1654	`skip_term ( lex_ord ) ;`
		1655	`o_nof (`
		1656	`read_nat () ; skip_term ( lex_comma ),`
		1657	`read_shape () ; skip_term ( lex_crd )`
		1658	`)`
		1659	`return ;`
		1660	`}`
		1661
		1662	`void c_offset`
		1663	`PROTO_Z ()`
		1664	`{`
		1665	`skip_term ( lex_ord ) ;`
		1666	`o_offset (`
		1667	`read_alignment () ; skip_term ( lex_comma ),`
		1668	`read_alignment () ; skip_term ( lex_crd )`
		1669	`)`
		1670	`return ;`
		1671	`}`
		1672
		1673	`void c_pointer`
		1674	`PROTO_Z ()`
		1675	`{`
		1676	`skip_term ( lex_ord ) ;`
		1677	`o_pointer (`
		1678	`read_alignment () ; skip_term ( lex_crd )`
		1679	`)`
		1680	`return ;`
		1681	`}`
		1682
		1683	`void c_proc`
		1684	`PROTO_Z ()`
		1685	`{`
		1686	`o_proc ;`
		1687	`return ;`
		1688	`}`
		1689
		1690	`void c_top`
		1691	`PROTO_Z ()`
		1692	`{`
		1693	`o_top ;`
		1694	`return ;`
		1695	`}`
		1696
		1697	`void c_computed_signed_nat`
		1698	`PROTO_Z ()`
		1699	`{`
		1700	`skip_term ( lex_ord ) ;`
		1701	`o_computed_signed_nat (`
		1702	`read_exp () ; skip_term ( lex_crd )`
		1703	`)`
		1704	`return ;`
		1705	`}`
		1706
		1707	`void c_make_signed_nat`
		1708	`PROTO_Z ()`
		1709	`{`
		1710	`skip_term ( lex_ord ) ;`
		1711	`o_make_signed_nat (`
		1712	`read_tdfbool () ; skip_term ( lex_comma ),`
		1713	`read_tdfint () ; skip_term ( lex_crd )`
		1714	`)`
		1715	`return ;`
		1716	`}`
		1717
		1718	`void c_snat_from_nat`
		1719	`PROTO_Z ()`
		1720	`{`
		1721	`skip_term ( lex_ord ) ;`
		1722	`o_snat_from_nat (`
		1723	`read_bool () ; skip_term ( lex_comma ),`
		1724	`read_nat () ; skip_term ( lex_crd )`
		1725	`)`
		1726	`return ;`
		1727	`}`
		1728
		1729	`void c_add_modes`
		1730	`PROTO_Z ()`
		1731	`{`
		1732	`skip_term ( lex_ord ) ;`
		1733	`o_add_modes (`
		1734	`read_transfer_mode () ; skip_term ( lex_comma ),`
		1735	`read_transfer_mode () ; skip_term ( lex_crd )`
		1736	`)`
		1737	`return ;`
		1738	`}`
		1739
		1740	`void c_overlap`
		1741	`PROTO_Z ()`
		1742	`{`
		1743	`o_overlap ;`
		1744	`return ;`
		1745	`}`
		1746
		1747	`void c_standard_transfer_mode`
		1748	`PROTO_Z ()`
		1749	`{`
		1750	`o_standard_transfer_mode ;`
		1751	`return ;`
		1752	`}`
		1753
		1754	`void c_trap_on_nil`
		1755	`PROTO_Z ()`
		1756	`{`
		1757	`o_trap_on_nil ;`
		1758	`return ;`
		1759	`}`
		1760
		1761	`void c_volatile`
		1762	`PROTO_Z ()`
		1763	`{`
		1764	`o_volatile ;`
		1765	`return ;`
		1766	`}`
		1767
		1768	`void c_complete`
		1769	`PROTO_Z ()`
		1770	`{`
		1771	`o_complete ;`
		1772	`return ;`
		1773	`}`
		1774
		1775	`void c_var_limits`
		1776	`PROTO_Z ()`
		1777	`{`
		1778	`skip_term ( lex_ord ) ;`
		1779	`o_var_limits (`
		1780	`read_signed_nat () ; skip_term ( lex_comma ),`
		1781	`read_signed_nat () ; skip_term ( lex_crd )`
		1782	`)`
		1783	`return ;`
		1784	`}`
		1785
		1786	`void c_var_width`
		1787	`PROTO_Z ()`
		1788	`{`
		1789	`skip_term ( lex_ord ) ;`
		1790	`o_var_width (`
		1791	`read_bool () ; skip_term ( lex_comma ),`
		1792	`read_nat () ; skip_term ( lex_crd )`
		1793	`)`
		1794	`return ;`
		1795	`}`

Subversion Repositories tendra.SVN

(root)/trunk/src/tools/pl/fnsfile.c @ 2 – Rev