WebSVN – tendra.SVN – Blame – /trunk/src/installers/common/reader/temp_fns.new

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.1 */`
		32
		33	`bool_option no_bool_option ;`
		34
		35	`bool_option yes_bool_option`
		36	`PROTO_N ( ( elem ) )`
		37	`PROTO_T ( bool elem )`
		38	`{`
		39	`UNUSED ( elem ) ;`
		40	`return ( f_dummy_bool_option ) ;`
		41	`}`
		42
		43	`void init_bool_option`
		44	`PROTO_Z ()`
		45	`{`
		46	`return ;`
		47	`}`
		48
		49	`dg_accessibility f_dg_local_accessibility ;`
		50
		51	`dg_accessibility f_dg_private_accessibility ;`
		52
		53	`dg_accessibility f_dg_protected_accessibility ;`
		54
		55	`dg_accessibility f_dg_public_accessibility ;`
		56
		57	`dg_accessibility f_dummy_dg_accessibility ;`
		58
		59	`void init_dg_accessibility`
		60	`PROTO_Z ()`
		61	`{`
		62	`return ;`
		63	`}`
		64
		65	`dg_accessibility_option no_dg_accessibility_option ;`
		66
		67	`dg_accessibility_option yes_dg_accessibility_option`
		68	`PROTO_N ( ( elem ) )`
		69	`PROTO_T ( dg_accessibility elem )`
		70	`{`
		71	`UNUSED ( elem ) ;`
		72	`return ( f_dummy_dg_accessibility_option ) ;`
		73	`}`
		74
		75	`void init_dg_accessibility_option`
		76	`PROTO_Z ()`
		77	`{`
		78	`return ;`
		79	`}`
		80
		81	`dg_append f_dg_name_append`
		82	`PROTO_N ( ( tg, name ) )`
		83	`PROTO_T ( dg_tag tg X dg_name name )`
		84	`{`
		85	`UNUSED ( tg ) ;`
		86	`UNUSED ( name ) ;`
		87	`return ( f_dummy_dg_append ) ;`
		88	`}`
		89
		90	`dg_append f_dummy_dg_append ;`
		91
		92	`void init_dg_append`
		93	`PROTO_Z ()`
		94	`{`
		95	`return ;`
		96	`}`
		97
		98	`dg_append_list new_dg_append_list`
		99	`PROTO_N ( ( n ) )`
		100	`PROTO_T ( int n )`
		101	`{`
		102	`UNUSED ( n ) ;`
		103	`return ( f_dummy_dg_append_list ) ;`
		104	`}`
		105
		106	`dg_append_list add_dg_append_list`
		107	`PROTO_N ( ( list, elem, index ) )`
		108	`PROTO_T ( dg_append_list list X dg_append elem X int index )`
		109	`{`
		110	`UNUSED ( list ) ;`
		111	`UNUSED ( elem ) ;`
		112	`UNUSED ( index ) ;`
		113	`return ( f_dummy_dg_append_list ) ;`
		114	`}`
		115
		116	`void init_dg_append_list`
		117	`PROTO_Z ()`
		118	`{`
		119	`return ;`
		120	`}`
		121
		122	`dg_bound f_dg_dynamic_bound`
		123	`PROTO_N ( ( bound, sh ) )`
		124	`PROTO_T ( dg_tag bound X shape sh )`
		125	`{`
		126	`UNUSED ( bound ) ;`
		127	`UNUSED ( sh ) ;`
		128	`return ( f_dummy_dg_bound ) ;`
		129	`}`
		130
		131	`dg_bound f_dg_static_bound`
		132	`PROTO_N ( ( bound ) )`
		133	`PROTO_T ( exp bound )`
		134	`{`
		135	`UNUSED ( bound ) ;`
		136	`return ( f_dummy_dg_bound ) ;`
		137	`}`
		138
		139	`dg_bound f_dg_unknown_bound`
		140	`PROTO_N ( ( sh ) )`
		141	`PROTO_T ( shape sh )`
		142	`{`
		143	`UNUSED ( sh ) ;`
		144	`return ( f_dummy_dg_bound ) ;`
		145	`}`
		146
		147	`dg_bound f_dummy_dg_bound ;`
		148
		149	`void init_dg_bound`
		150	`PROTO_Z ()`
		151	`{`
		152	`return ;`
		153	`}`
		154
		155	`dg_class_base f_make_dg_class_base`
		156	`PROTO_N ( ( base, whence, location, accessibility, virtuality ) )`
		157	`PROTO_T ( dg_tag base X dg_sourcepos_option whence X token_option location X dg_accessibility_option accessibility X dg_virtuality_option virtuality )`
		158	`{`
		159	`UNUSED ( base ) ;`
		160	`UNUSED ( whence ) ;`
		161	`UNUSED ( location ) ;`
		162	`UNUSED ( accessibility ) ;`
		163	`UNUSED ( virtuality ) ;`
		164	`return ( f_dummy_dg_class_base ) ;`
		165	`}`
		166
		167	`dg_class_base f_dummy_dg_class_base ;`
		168
		169	`void init_dg_class_base`
		170	`PROTO_Z ()`
		171	`{`
		172	`return ;`
		173	`}`
		174
		175	`dg_class_base_list new_dg_class_base_list`
		176	`PROTO_N ( ( n ) )`
		177	`PROTO_T ( int n )`
		178	`{`
		179	`UNUSED ( n ) ;`
		180	`return ( f_dummy_dg_class_base_list ) ;`
		181	`}`
		182
		183	`dg_class_base_list add_dg_class_base_list`
		184	`PROTO_N ( ( list, elem, index ) )`
		185	`PROTO_T ( dg_class_base_list list X dg_class_base elem X int index )`
		186	`{`
		187	`UNUSED ( list ) ;`
		188	`UNUSED ( elem ) ;`
		189	`UNUSED ( index ) ;`
		190	`return ( f_dummy_dg_class_base_list ) ;`
		191	`}`
		192
		193	`void init_dg_class_base_list`
		194	`PROTO_Z ()`
		195	`{`
		196	`return ;`
		197	`}`
		198
		199	`dg_classmem f_dg_tag_classmem`
		200	`PROTO_N ( ( tg, mem ) )`
		201	`PROTO_T ( dg_tag tg X dg_classmem mem )`
		202	`{`
		203	`UNUSED ( tg ) ;`
		204	`UNUSED ( mem ) ;`
		205	`return ( f_dummy_dg_classmem ) ;`
		206	`}`
		207
		208	`dg_classmem f_dg_field_classmem`
		209	`PROTO_N ( ( idname, src_pos, offset, field_type, accessibility, discr, deflt ) )`
		210	`PROTO_T ( dg_idname idname X dg_sourcepos src_pos X exp offset X dg_type field_type X dg_accessibility_option accessibility X bool_option discr X dg_default_option deflt )`
		211	`{`
		212	`UNUSED ( idname ) ;`
		213	`UNUSED ( src_pos ) ;`
		214	`UNUSED ( offset ) ;`
		215	`UNUSED ( field_type ) ;`
		216	`UNUSED ( accessibility ) ;`
		217	`UNUSED ( discr ) ;`
		218	`UNUSED ( deflt ) ;`
		219	`return ( f_dummy_dg_classmem ) ;`
		220	`}`
		221
		222	`dg_classmem f_dg_function_classmem`
		223	`PROTO_N ( ( fn, vtable_slot ) )`
		224	`PROTO_T ( dg_name fn X exp_option vtable_slot )`
		225	`{`
		226	`UNUSED ( fn ) ;`
		227	`UNUSED ( vtable_slot ) ;`
		228	`return ( f_dummy_dg_classmem ) ;`
		229	`}`
		230
		231	`dg_classmem f_dg_indirect_classmem`
		232	`PROTO_N ( ( idname, src_pos, location, cmem_type ) )`
		233	`PROTO_T ( dg_idname idname X dg_sourcepos src_pos X token location X dg_type cmem_type )`
		234	`{`
		235	`UNUSED ( idname ) ;`
		236	`UNUSED ( src_pos ) ;`
		237	`UNUSED ( location ) ;`
		238	`UNUSED ( cmem_type ) ;`
		239	`return ( f_dummy_dg_classmem ) ;`
		240	`}`
		241
		242	`dg_classmem f_dg_name_classmem`
		243	`PROTO_N ( ( name ) )`
		244	`PROTO_T ( dg_name name )`
		245	`{`
		246	`UNUSED ( name ) ;`
		247	`return ( f_dummy_dg_classmem ) ;`
		248	`}`
		249
		250	`dg_classmem f_dummy_dg_classmem ;`
		251
		252	`void init_dg_classmem`
		253	`PROTO_Z ()`
		254	`{`
		255	`return ;`
		256	`}`
		257
		258	`dg_classmem_list new_dg_classmem_list`
		259	`PROTO_N ( ( n ) )`
		260	`PROTO_T ( int n )`
		261	`{`
		262	`UNUSED ( n ) ;`
		263	`return ( f_dummy_dg_classmem_list ) ;`
		264	`}`
		265
		266	`dg_classmem_list add_dg_classmem_list`
		267	`PROTO_N ( ( list, elem, index ) )`
		268	`PROTO_T ( dg_classmem_list list X dg_classmem elem X int index )`
		269	`{`
		270	`UNUSED ( list ) ;`
		271	`UNUSED ( elem ) ;`
		272	`UNUSED ( index ) ;`
		273	`return ( f_dummy_dg_classmem_list ) ;`
		274	`}`
		275
		276	`void init_dg_classmem_list`
		277	`PROTO_Z ()`
		278	`{`
		279	`return ;`
		280	`}`
		281
		282	`dg_comp_props f_make_dg_compunit`
		283	`PROTO_N ( ( no_labels, comp_unit, l ) )`
		284	`PROTO_T ( tdfint no_labels X dg_compilation comp_unit X dg_append_list l )`
		285	`{`
		286	`UNUSED ( no_labels ) ;`
		287	`UNUSED ( comp_unit ) ;`
		288	`UNUSED ( l ) ;`
		289	`return ( f_dummy_dg_comp_props ) ;`
		290	`}`
		291
		292	`dg_comp_props f_dummy_dg_comp_props ;`
		293
		294	`void init_dg_comp_props`
		295	`PROTO_Z ()`
		296	`{`
		297	`return ;`
		298	`}`
		299
		300	`dg_compilation f_dg_tag_compilation`
		301	`PROTO_N ( ( tg, comp ) )`
		302	`PROTO_T ( dg_tag tg X dg_compilation comp )`
		303	`{`
		304	`UNUSED ( tg ) ;`
		305	`UNUSED ( comp ) ;`
		306	`return ( f_dummy_dg_compilation ) ;`
		307	`}`
		308
		309	`dg_compilation f_make_dg_compilation`
		310	`PROTO_N ( ( primary_file, comp_unit_deps, macros, comp_dir, date, language, id_case, producer, options, dnames ) )`
		311	`PROTO_T ( dg_filename primary_file X string_list comp_unit_deps X dg_macro_list macros X dg_filename comp_dir X nat date X nat language X nat id_case X string producer X string_list options X dg_namelist dnames )`
		312	`{`
		313	`UNUSED ( primary_file ) ;`
		314	`UNUSED ( comp_unit_deps ) ;`
		315	`UNUSED ( macros ) ;`
		316	`UNUSED ( comp_dir ) ;`
		317	`UNUSED ( date ) ;`
		318	`UNUSED ( language ) ;`
		319	`UNUSED ( id_case ) ;`
		320	`UNUSED ( producer ) ;`
		321	`UNUSED ( options ) ;`
		322	`UNUSED ( dnames ) ;`
		323	`return ( f_dummy_dg_compilation ) ;`
		324	`}`
		325
		326	`dg_compilation f_dummy_dg_compilation ;`
		327
		328	`void init_dg_compilation`
		329	`PROTO_Z ()`
		330	`{`
		331	`return ;`
		332	`}`
		333
		334	`dg_constraint f_dg_type_constraint`
		335	`PROTO_N ( ( ref_member, type ) )`
		336	`PROTO_T ( dg_tag_option ref_member X dg_type type )`
		337	`{`
		338	`UNUSED ( ref_member ) ;`
		339	`UNUSED ( type ) ;`
		340	`return ( f_dummy_dg_constraint ) ;`
		341	`}`
		342
		343	`dg_constraint f_dg_value_constraint`
		344	`PROTO_N ( ( ref_member, value ) )`
		345	`PROTO_T ( dg_tag_option ref_member X exp value )`
		346	`{`
		347	`UNUSED ( ref_member ) ;`
		348	`UNUSED ( value ) ;`
		349	`return ( f_dummy_dg_constraint ) ;`
		350	`}`
		351
		352	`dg_constraint f_dummy_dg_constraint ;`
		353
		354	`void init_dg_constraint`
		355	`PROTO_Z ()`
		356	`{`
		357	`return ;`
		358	`}`
		359
		360	`dg_constraint_list new_dg_constraint_list`
		361	`PROTO_N ( ( n ) )`
		362	`PROTO_T ( int n )`
		363	`{`
		364	`UNUSED ( n ) ;`
		365	`return ( f_dummy_dg_constraint_list ) ;`
		366	`}`
		367
		368	`dg_constraint_list add_dg_constraint_list`
		369	`PROTO_N ( ( list, elem, index ) )`
		370	`PROTO_T ( dg_constraint_list list X dg_constraint elem X int index )`
		371	`{`
		372	`UNUSED ( list ) ;`
		373	`UNUSED ( elem ) ;`
		374	`UNUSED ( index ) ;`
		375	`return ( f_dummy_dg_constraint_list ) ;`
		376	`}`
		377
		378	`void init_dg_constraint_list`
		379	`PROTO_Z ()`
		380	`{`
		381	`return ;`
		382	`}`
		383
		384	`dg_constraint_list_option no_dg_constraint_list_option ;`
		385
		386	`dg_constraint_list_option yes_dg_constraint_list_option`
		387	`PROTO_N ( ( elem ) )`
		388	`PROTO_T ( dg_constraint_list elem )`
		389	`{`
		390	`UNUSED ( elem ) ;`
		391	`return ( f_dummy_dg_constraint_list_option ) ;`
		392	`}`
		393
		394	`void init_dg_constraint_list_option`
		395	`PROTO_Z ()`
		396	`{`
		397	`return ;`
		398	`}`
		399
		400	`dg_default f_make_dg_default`
		401	`PROTO_N ( ( value, src_span ) )`
		402	`PROTO_T ( exp_option value X dg_sourcepos_option src_span )`
		403	`{`
		404	`UNUSED ( value ) ;`
		405	`UNUSED ( src_span ) ;`
		406	`return ( f_dummy_dg_default ) ;`
		407	`}`
		408
		409	`dg_default f_dummy_dg_default ;`
		410
		411	`void init_dg_default`
		412	`PROTO_Z ()`
		413	`{`
		414	`return ;`
		415	`}`
		416
		417	`dg_default_option no_dg_default_option ;`
		418
		419	`dg_default_option yes_dg_default_option`
		420	`PROTO_N ( ( elem ) )`
		421	`PROTO_T ( dg_default elem )`
		422	`{`
		423	`UNUSED ( elem ) ;`
		424	`return ( f_dummy_dg_default_option ) ;`
		425	`}`
		426
		427	`void init_dg_default_option`
		428	`PROTO_Z ()`
		429	`{`
		430	`return ;`
		431	`}`
		432
		433	`dg_dim f_dg_dim_apply_token`
		434	`PROTO_N ( ( token_value, token_args ) )`
		435	`PROTO_T ( token token_value X bitstream token_args )`
		436	`{`
		437	`UNUSED ( token_value ) ;`
		438	`UNUSED ( token_args ) ;`
		439	`return ( f_dummy_dg_dim ) ;`
		440	`}`
		441
		442	`dg_dim f_dg_tag_dim`
		443	`PROTO_N ( ( tg, d ) )`
		444	`PROTO_T ( dg_tag tg X dg_dim d )`
		445	`{`
		446	`UNUSED ( tg ) ;`
		447	`UNUSED ( d ) ;`
		448	`return ( f_dummy_dg_dim ) ;`
		449	`}`
		450
		451	`dg_dim f_dg_bounds_dim`
		452	`PROTO_N ( ( low, high, index_type ) )`
		453	`PROTO_T ( dg_bound low X dg_bound high X dg_type index_type )`
		454	`{`
		455	`UNUSED ( low ) ;`
		456	`UNUSED ( high ) ;`
		457	`UNUSED ( index_type ) ;`
		458	`return ( f_dummy_dg_dim ) ;`
		459	`}`
		460
		461	`dg_dim f_dg_count_dim`
		462	`PROTO_N ( ( low, count, index_type ) )`
		463	`PROTO_T ( dg_bound low X dg_bound count X dg_type index_type )`
		464	`{`
		465	`UNUSED ( low ) ;`
		466	`UNUSED ( count ) ;`
		467	`UNUSED ( index_type ) ;`
		468	`return ( f_dummy_dg_dim ) ;`
		469	`}`
		470
		471	`dg_dim f_dg_type_dim`
		472	`PROTO_N ( ( type, n ) )`
		473	`PROTO_T ( dg_type type X nat_option n )`
		474	`{`
		475	`UNUSED ( type ) ;`
		476	`UNUSED ( n ) ;`
		477	`return ( f_dummy_dg_dim ) ;`
		478	`}`
		479
		480	`dg_dim f_dg_unspecified_dim ;`
		481
		482	`dg_dim f_dummy_dg_dim ;`
		483
		484	`void init_dg_dim`
		485	`PROTO_Z ()`
		486	`{`
		487	`return ;`
		488	`}`
		489
		490	`dg_dim_list new_dg_dim_list`
		491	`PROTO_N ( ( n ) )`
		492	`PROTO_T ( int n )`
		493	`{`
		494	`UNUSED ( n ) ;`
		495	`return ( f_dummy_dg_dim_list ) ;`
		496	`}`
		497
		498	`dg_dim_list add_dg_dim_list`
		499	`PROTO_N ( ( list, elem, index ) )`
		500	`PROTO_T ( dg_dim_list list X dg_dim elem X int index )`
		501	`{`
		502	`UNUSED ( list ) ;`
		503	`UNUSED ( elem ) ;`
		504	`UNUSED ( index ) ;`
		505	`return ( f_dummy_dg_dim_list ) ;`
		506	`}`
		507
		508	`void init_dg_dim_list`
		509	`PROTO_Z ()`
		510	`{`
		511	`return ;`
		512	`}`
		513
		514	`dg_dim_option no_dg_dim_option ;`
		515
		516	`dg_dim_option yes_dg_dim_option`
		517	`PROTO_N ( ( elem ) )`
		518	`PROTO_T ( dg_dim elem )`
		519	`{`
		520	`UNUSED ( elem ) ;`
		521	`return ( f_dummy_dg_dim_option ) ;`
		522	`}`
		523
		524	`void init_dg_dim_option`
		525	`PROTO_Z ()`
		526	`{`
		527	`return ;`
		528	`}`
		529
		530	`dg_discrim f_make_dg_discrim`
		531	`PROTO_N ( ( lower, upper ) )`
		532	`PROTO_T ( exp lower X exp upper )`
		533	`{`
		534	`UNUSED ( lower ) ;`
		535	`UNUSED ( upper ) ;`
		536	`return ( f_dummy_dg_discrim ) ;`
		537	`}`
		538
		539	`dg_discrim f_dummy_dg_discrim ;`
		540
		541	`void init_dg_discrim`
		542	`PROTO_Z ()`
		543	`{`
		544	`return ;`
		545	`}`
		546
		547	`dg_discrim_list new_dg_discrim_list`
		548	`PROTO_N ( ( n ) )`
		549	`PROTO_T ( int n )`
		550	`{`
		551	`UNUSED ( n ) ;`
		552	`return ( f_dummy_dg_discrim_list ) ;`
		553	`}`
		554
		555	`dg_discrim_list add_dg_discrim_list`
		556	`PROTO_N ( ( list, elem, index ) )`
		557	`PROTO_T ( dg_discrim_list list X dg_discrim elem X int index )`
		558	`{`
		559	`UNUSED ( list ) ;`
		560	`UNUSED ( elem ) ;`
		561	`UNUSED ( index ) ;`
		562	`return ( f_dummy_dg_discrim_list ) ;`
		563	`}`
		564
		565	`void init_dg_discrim_list`
		566	`PROTO_Z ()`
		567	`{`
		568	`return ;`
		569	`}`
		570
		571	`dg_enum f_dg_tag_enum`
		572	`PROTO_N ( ( tg, e ) )`
		573	`PROTO_T ( dg_tag tg X dg_enum e )`
		574	`{`
		575	`UNUSED ( tg ) ;`
		576	`UNUSED ( e ) ;`
		577	`return ( f_dummy_dg_enum ) ;`
		578	`}`
		579
		580	`dg_enum f_make_dg_enum`
		581	`PROTO_N ( ( value, idname, src_pos ) )`
		582	`PROTO_T ( exp value X dg_idname idname X dg_sourcepos src_pos )`
		583	`{`
		584	`UNUSED ( value ) ;`
		585	`UNUSED ( idname ) ;`
		586	`UNUSED ( src_pos ) ;`
		587	`return ( f_dummy_dg_enum ) ;`
		588	`}`
		589
		590	`dg_enum f_dg_char_enum`
		591	`PROTO_N ( ( value, idchar, src_pos ) )`
		592	`PROTO_T ( exp value X nat idchar X dg_sourcepos src_pos )`
		593	`{`
		594	`UNUSED ( value ) ;`
		595	`UNUSED ( idchar ) ;`
		596	`UNUSED ( src_pos ) ;`
		597	`return ( f_dummy_dg_enum ) ;`
		598	`}`
		599
		600	`dg_enum f_dummy_dg_enum ;`
		601
		602	`void init_dg_enum`
		603	`PROTO_Z ()`
		604	`{`
		605	`return ;`
		606	`}`
		607
		608	`dg_enum_list new_dg_enum_list`
		609	`PROTO_N ( ( n ) )`
		610	`PROTO_T ( int n )`
		611	`{`
		612	`UNUSED ( n ) ;`
		613	`return ( f_dummy_dg_enum_list ) ;`
		614	`}`
		615
		616	`dg_enum_list add_dg_enum_list`
		617	`PROTO_N ( ( list, elem, index ) )`
		618	`PROTO_T ( dg_enum_list list X dg_enum elem X int index )`
		619	`{`
		620	`UNUSED ( list ) ;`
		621	`UNUSED ( elem ) ;`
		622	`UNUSED ( index ) ;`
		623	`return ( f_dummy_dg_enum_list ) ;`
		624	`}`
		625
		626	`void init_dg_enum_list`
		627	`PROTO_Z ()`
		628	`{`
		629	`return ;`
		630	`}`
		631
		632	`dg_filename f_dg_filename_apply_token`
		633	`PROTO_N ( ( token_value, token_args ) )`
		634	`PROTO_T ( token token_value X bitstream token_args )`
		635	`{`
		636	`UNUSED ( token_value ) ;`
		637	`UNUSED ( token_args ) ;`
		638	`return ( f_dummy_dg_filename ) ;`
		639	`}`
		640
		641	`dg_filename f_make_dg_filename`
		642	`PROTO_N ( ( date, machine, path, file ) )`
		643	`PROTO_T ( nat date X string machine X string path X string file )`
		644	`{`
		645	`UNUSED ( date ) ;`
		646	`UNUSED ( machine ) ;`
		647	`UNUSED ( path ) ;`
		648	`UNUSED ( file ) ;`
		649	`return ( f_dummy_dg_filename ) ;`
		650	`}`
		651
		652	`dg_filename f_dummy_dg_filename ;`
		653
		654	`void init_dg_filename`
		655	`PROTO_Z ()`
		656	`{`
		657	`return ;`
		658	`}`
		659
		660	`dg_filename_option no_dg_filename_option ;`
		661
		662	`dg_filename_option yes_dg_filename_option`
		663	`PROTO_N ( ( elem ) )`
		664	`PROTO_T ( dg_filename elem )`
		665	`{`
		666	`UNUSED ( elem ) ;`
		667	`return ( f_dummy_dg_filename_option ) ;`
		668	`}`
		669
		670	`void init_dg_filename_option`
		671	`PROTO_Z ()`
		672	`{`
		673	`return ;`
		674	`}`
		675
		676	`dg_idname f_dg_idname_apply_token`
		677	`PROTO_N ( ( token_value, token_args ) )`
		678	`PROTO_T ( token token_value X bitstream token_args )`
		679	`{`
		680	`UNUSED ( token_value ) ;`
		681	`UNUSED ( token_args ) ;`
		682	`return ( f_dummy_dg_idname ) ;`
		683	`}`
		684
		685	`dg_idname f_dg_anonymous_idname`
		686	`PROTO_N ( ( descr ) )`
		687	`PROTO_T ( string_option descr )`
		688	`{`
		689	`UNUSED ( descr ) ;`
		690	`return ( f_dummy_dg_idname ) ;`
		691	`}`
		692
		693	`dg_idname f_dg_artificial_idname`
		694	`PROTO_N ( ( aname ) )`
		695	`PROTO_T ( string_option aname )`
		696	`{`
		697	`UNUSED ( aname ) ;`
		698	`return ( f_dummy_dg_idname ) ;`
		699	`}`
		700
		701	`dg_idname f_dg_external_idname`
		702	`PROTO_N ( ( src_name ) )`
		703	`PROTO_T ( string src_name )`
		704	`{`
		705	`UNUSED ( src_name ) ;`
		706	`return ( f_dummy_dg_idname ) ;`
		707	`}`
		708
		709	`dg_idname f_dg_instance_idname`
		710	`PROTO_N ( ( idname, spec, whence, aparams ) )`
		711	`PROTO_T ( dg_idname_option idname X dg_idname spec X dg_sourcepos whence X dg_name_list aparams )`
		712	`{`
		713	`UNUSED ( idname ) ;`
		714	`UNUSED ( spec ) ;`
		715	`UNUSED ( whence ) ;`
		716	`UNUSED ( aparams ) ;`
		717	`return ( f_dummy_dg_idname ) ;`
		718	`}`
		719
		720	`dg_idname f_dg_sourcestring_idname`
		721	`PROTO_N ( ( src_name ) )`
		722	`PROTO_T ( string src_name )`
		723	`{`
		724	`UNUSED ( src_name ) ;`
		725	`return ( f_dummy_dg_idname ) ;`
		726	`}`
		727
		728	`dg_idname f_dummy_dg_idname ;`
		729
		730	`void init_dg_idname`
		731	`PROTO_Z ()`
		732	`{`
		733	`return ;`
		734	`}`
		735
		736	`dg_idname_list new_dg_idname_list`
		737	`PROTO_N ( ( n ) )`
		738	`PROTO_T ( int n )`
		739	`{`
		740	`UNUSED ( n ) ;`
		741	`return ( f_dummy_dg_idname_list ) ;`
		742	`}`
		743
		744	`dg_idname_list add_dg_idname_list`
		745	`PROTO_N ( ( list, elem, index ) )`
		746	`PROTO_T ( dg_idname_list list X dg_idname elem X int index )`
		747	`{`
		748	`UNUSED ( list ) ;`
		749	`UNUSED ( elem ) ;`
		750	`UNUSED ( index ) ;`
		751	`return ( f_dummy_dg_idname_list ) ;`
		752	`}`
		753
		754	`void init_dg_idname_list`
		755	`PROTO_Z ()`
		756	`{`
		757	`return ;`
		758	`}`
		759
		760	`dg_idname_option no_dg_idname_option ;`
		761
		762	`dg_idname_option yes_dg_idname_option`
		763	`PROTO_N ( ( elem ) )`
		764	`PROTO_T ( dg_idname elem )`
		765	`{`
		766	`UNUSED ( elem ) ;`
		767	`return ( f_dummy_dg_idname_option ) ;`
		768	`}`
		769
		770	`void init_dg_idname_option`
		771	`PROTO_Z ()`
		772	`{`
		773	`return ;`
		774	`}`
		775
		776	`dg_macro f_dg_function_macro`
		777	`PROTO_N ( ( src_pos, idname, param, def ) )`
		778	`PROTO_T ( dg_sourcepos src_pos X dg_idname idname X dg_idname_list param X string def )`
		779	`{`
		780	`UNUSED ( src_pos ) ;`
		781	`UNUSED ( idname ) ;`
		782	`UNUSED ( param ) ;`
		783	`UNUSED ( def ) ;`
		784	`return ( f_dummy_dg_macro ) ;`
		785	`}`
		786
		787	`dg_macro f_dg_include_macro`
		788	`PROTO_N ( ( src_pos, file, macros ) )`
		789	`PROTO_T ( dg_sourcepos src_pos X dg_filename file X dg_macro_list macros )`
		790	`{`
		791	`UNUSED ( src_pos ) ;`
		792	`UNUSED ( file ) ;`
		793	`UNUSED ( macros ) ;`
		794	`return ( f_dummy_dg_macro ) ;`
		795	`}`
		796
		797	`dg_macro f_dg_object_macro`
		798	`PROTO_N ( ( src_pos, idname, def ) )`
		799	`PROTO_T ( dg_sourcepos src_pos X dg_idname idname X string def )`
		800	`{`
		801	`UNUSED ( src_pos ) ;`
		802	`UNUSED ( idname ) ;`
		803	`UNUSED ( def ) ;`
		804	`return ( f_dummy_dg_macro ) ;`
		805	`}`
		806
		807	`dg_macro f_dg_undef_macro`
		808	`PROTO_N ( ( src_pos, idname ) )`
		809	`PROTO_T ( dg_sourcepos src_pos X dg_idname idname )`
		810	`{`
		811	`UNUSED ( src_pos ) ;`
		812	`UNUSED ( idname ) ;`
		813	`return ( f_dummy_dg_macro ) ;`
		814	`}`
		815
		816	`dg_macro f_dummy_dg_macro ;`
		817
		818	`void init_dg_macro`
		819	`PROTO_Z ()`
		820	`{`
		821	`return ;`
		822	`}`
		823
		824	`dg_macro_list new_dg_macro_list`
		825	`PROTO_N ( ( n ) )`
		826	`PROTO_T ( int n )`
		827	`{`
		828	`UNUSED ( n ) ;`
		829	`return ( f_dummy_dg_macro_list ) ;`
		830	`}`
		831
		832	`dg_macro_list add_dg_macro_list`
		833	`PROTO_N ( ( list, elem, index ) )`
		834	`PROTO_T ( dg_macro_list list X dg_macro elem X int index )`
		835	`{`
		836	`UNUSED ( list ) ;`
		837	`UNUSED ( elem ) ;`
		838	`UNUSED ( index ) ;`
		839	`return ( f_dummy_dg_macro_list ) ;`
		840	`}`
		841
		842	`void init_dg_macro_list`
		843	`PROTO_Z ()`
		844	`{`
		845	`return ;`
		846	`}`
		847
		848	`dg_name f_dg_name_apply_token`
		849	`PROTO_N ( ( token_value, token_args ) )`
		850	`PROTO_T ( token token_value X bitstream token_args )`
		851	`{`
		852	`UNUSED ( token_value ) ;`
		853	`UNUSED ( token_args ) ;`
		854	`return ( f_dummy_dg_name ) ;`
		855	`}`
		856
		857	`dg_name f_dg_tag_name`
		858	`PROTO_N ( ( tg, name ) )`
		859	`PROTO_T ( dg_tag tg X dg_name name )`
		860	`{`
		861	`UNUSED ( tg ) ;`
		862	`UNUSED ( name ) ;`
		863	`return ( f_dummy_dg_name ) ;`
		864	`}`
		865
		866	`dg_name f_dg_constant_name`
		867	`PROTO_N ( ( name ) )`
		868	`PROTO_T ( dg_name name )`
		869	`{`
		870	`UNUSED ( name ) ;`
		871	`return ( f_dummy_dg_name ) ;`
		872	`}`
		873
		874	`dg_name f_dg_entry_family_name`
		875	`PROTO_N ( ( proc, family ) )`
		876	`PROTO_T ( dg_name proc X dg_dim family )`
		877	`{`
		878	`UNUSED ( proc ) ;`
		879	`UNUSED ( family ) ;`
		880	`return ( f_dummy_dg_name ) ;`
		881	`}`
		882
		883	`dg_name f_dg_entry_name`
		884	`PROTO_N ( ( idname, whence, type, accessibility, family ) )`
		885	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_type type X dg_accessibility_option accessibility X dg_dim_option family )`
		886	`{`
		887	`UNUSED ( idname ) ;`
		888	`UNUSED ( whence ) ;`
		889	`UNUSED ( type ) ;`
		890	`UNUSED ( accessibility ) ;`
		891	`UNUSED ( family ) ;`
		892	`return ( f_dummy_dg_name ) ;`
		893	`}`
		894
		895	`dg_name f_dg_inlined_name`
		896	`PROTO_N ( ( name, origin ) )`
		897	`PROTO_T ( dg_name name X dg_tag origin )`
		898	`{`
		899	`UNUSED ( name ) ;`
		900	`UNUSED ( origin ) ;`
		901	`return ( f_dummy_dg_name ) ;`
		902	`}`
		903
		904	`dg_name f_dg_is_spec_name`
		905	`PROTO_N ( ( name, is_separate ) )`
		906	`PROTO_T ( dg_name name X bool_option is_separate )`
		907	`{`
		908	`UNUSED ( name ) ;`
		909	`UNUSED ( is_separate ) ;`
		910	`return ( f_dummy_dg_name ) ;`
		911	`}`
		912
		913	`dg_name f_dg_module_name`
		914	`PROTO_N ( ( idname, whence, memlist, init, elaboration ) )`
		915	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_namelist memlist X exp_option init X dg_tag_option elaboration )`
		916	`{`
		917	`UNUSED ( idname ) ;`
		918	`UNUSED ( whence ) ;`
		919	`UNUSED ( memlist ) ;`
		920	`UNUSED ( init ) ;`
		921	`UNUSED ( elaboration ) ;`
		922	`return ( f_dummy_dg_name ) ;`
		923	`}`
		924
		925	`dg_name f_dg_namespace_name`
		926	`PROTO_N ( ( idname, whence, members ) )`
		927	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_namelist members )`
		928	`{`
		929	`UNUSED ( idname ) ;`
		930	`UNUSED ( whence ) ;`
		931	`UNUSED ( members ) ;`
		932	`return ( f_dummy_dg_name ) ;`
		933	`}`
		934
		935	`dg_name f_dg_object_name`
		936	`PROTO_N ( ( idname, whence, type, obtain_value, accessibility ) )`
		937	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_type type X exp_option obtain_value X dg_accessibility_option accessibility )`
		938	`{`
		939	`UNUSED ( idname ) ;`
		940	`UNUSED ( whence ) ;`
		941	`UNUSED ( type ) ;`
		942	`UNUSED ( obtain_value ) ;`
		943	`UNUSED ( accessibility ) ;`
		944	`return ( f_dummy_dg_name ) ;`
		945	`}`
		946
		947	`dg_name f_dg_proc_name`
		948	`PROTO_N ( ( idname, whence, type, obtain_value, accessibility, virtuality, inl, exceptions, elaboration ) )`
		949	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_type type X exp_option obtain_value X dg_accessibility_option accessibility X dg_virtuality_option virtuality X bool inl X dg_type_list_option exceptions X dg_tag_option elaboration )`
		950	`{`
		951	`UNUSED ( idname ) ;`
		952	`UNUSED ( whence ) ;`
		953	`UNUSED ( type ) ;`
		954	`UNUSED ( obtain_value ) ;`
		955	`UNUSED ( accessibility ) ;`
		956	`UNUSED ( virtuality ) ;`
		957	`UNUSED ( inl ) ;`
		958	`UNUSED ( exceptions ) ;`
		959	`UNUSED ( elaboration ) ;`
		960	`return ( f_dummy_dg_name ) ;`
		961	`}`
		962
		963	`dg_name f_dg_program_name`
		964	`PROTO_N ( ( idname, whence, obtain_value ) )`
		965	`PROTO_T ( dg_idname idname X dg_sourcepos whence X exp obtain_value )`
		966	`{`
		967	`UNUSED ( idname ) ;`
		968	`UNUSED ( whence ) ;`
		969	`UNUSED ( obtain_value ) ;`
		970	`return ( f_dummy_dg_name ) ;`
		971	`}`
		972
		973	`dg_name f_dg_rep_clause_name`
		974	`PROTO_N ( ( item, location ) )`
		975	`PROTO_T ( dg_name item X exp location )`
		976	`{`
		977	`UNUSED ( item ) ;`
		978	`UNUSED ( location ) ;`
		979	`return ( f_dummy_dg_name ) ;`
		980	`}`
		981
		982	`dg_name f_dg_spec_ref_name`
		983	`PROTO_N ( ( specification, name ) )`
		984	`PROTO_T ( dg_tag specification X dg_name name )`
		985	`{`
		986	`UNUSED ( specification ) ;`
		987	`UNUSED ( name ) ;`
		988	`return ( f_dummy_dg_name ) ;`
		989	`}`
		990
		991	`dg_name f_dg_subunit_name`
		992	`PROTO_N ( ( parent, name, subunit_kind, accessibility ) )`
		993	`PROTO_T ( dg_tag parent X dg_name name X nat subunit_kind X dg_accessibility_option accessibility )`
		994	`{`
		995	`UNUSED ( parent ) ;`
		996	`UNUSED ( name ) ;`
		997	`UNUSED ( subunit_kind ) ;`
		998	`UNUSED ( accessibility ) ;`
		999	`return ( f_dummy_dg_name ) ;`
		1000	`}`
		1001
		1002	`dg_name f_dg_type_name`
		1003	`PROTO_N ( ( idname, whence, accessibility, type, new_type, ada_derived, constraints ) )`
		1004	`PROTO_T ( dg_idname_option idname X dg_sourcepos whence X dg_accessibility_option accessibility X dg_type_option type X bool new_type X bool_option ada_derived X dg_constraint_list_option constraints )`
		1005	`{`
		1006	`UNUSED ( idname ) ;`
		1007	`UNUSED ( whence ) ;`
		1008	`UNUSED ( accessibility ) ;`
		1009	`UNUSED ( type ) ;`
		1010	`UNUSED ( new_type ) ;`
		1011	`UNUSED ( ada_derived ) ;`
		1012	`UNUSED ( constraints ) ;`
		1013	`return ( f_dummy_dg_name ) ;`
		1014	`}`
		1015
		1016	`dg_name f_dg_visibility_name`
		1017	`PROTO_N ( ( dname, import_kind, idname, src_pos, accessibility, type ) )`
		1018	`PROTO_T ( dg_tag dname X nat import_kind X dg_idname_option idname X dg_sourcepos_option src_pos X dg_accessibility_option accessibility X dg_type_option type )`
		1019	`{`
		1020	`UNUSED ( dname ) ;`
		1021	`UNUSED ( import_kind ) ;`
		1022	`UNUSED ( idname ) ;`
		1023	`UNUSED ( src_pos ) ;`
		1024	`UNUSED ( accessibility ) ;`
		1025	`UNUSED ( type ) ;`
		1026	`return ( f_dummy_dg_name ) ;`
		1027	`}`
		1028
		1029	`dg_name f_dummy_dg_name ;`
		1030
		1031	`void init_dg_name`
		1032	`PROTO_Z ()`
		1033	`{`
		1034	`return ;`
		1035	`}`
		1036
		1037	`dg_name_list new_dg_name_list`
		1038	`PROTO_N ( ( n ) )`
		1039	`PROTO_T ( int n )`
		1040	`{`
		1041	`UNUSED ( n ) ;`
		1042	`return ( f_dummy_dg_name_list ) ;`
		1043	`}`
		1044
		1045	`dg_name_list add_dg_name_list`
		1046	`PROTO_N ( ( list, elem, index ) )`
		1047	`PROTO_T ( dg_name_list list X dg_name elem X int index )`
		1048	`{`
		1049	`UNUSED ( list ) ;`
		1050	`UNUSED ( elem ) ;`
		1051	`UNUSED ( index ) ;`
		1052	`return ( f_dummy_dg_name_list ) ;`
		1053	`}`
		1054
		1055	`void init_dg_name_list`
		1056	`PROTO_Z ()`
		1057	`{`
		1058	`return ;`
		1059	`}`
		1060
		1061	`dg_namelist f_dg_tag_namelist`
		1062	`PROTO_N ( ( tg, nl ) )`
		1063	`PROTO_T ( dg_tag tg X dg_namelist nl )`
		1064	`{`
		1065	`UNUSED ( tg ) ;`
		1066	`UNUSED ( nl ) ;`
		1067	`return ( f_dummy_dg_namelist ) ;`
		1068	`}`
		1069
		1070	`dg_namelist f_make_dg_namelist`
		1071	`PROTO_N ( ( items ) )`
		1072	`PROTO_T ( dg_name_list items )`
		1073	`{`
		1074	`UNUSED ( items ) ;`
		1075	`return ( f_dummy_dg_namelist ) ;`
		1076	`}`
		1077
		1078	`dg_namelist f_dummy_dg_namelist ;`
		1079
		1080	`void init_dg_namelist`
		1081	`PROTO_Z ()`
		1082	`{`
		1083	`return ;`
		1084	`}`
		1085
		1086	`dg_param f_dg_object_param`
		1087	`PROTO_N ( ( idname, src_pos, mode, param_type, deflt ) )`
		1088	`PROTO_T ( dg_idname_option idname X dg_sourcepos_option src_pos X dg_param_mode_option mode X dg_type param_type X dg_default_option deflt )`
		1089	`{`
		1090	`UNUSED ( idname ) ;`
		1091	`UNUSED ( src_pos ) ;`
		1092	`UNUSED ( mode ) ;`
		1093	`UNUSED ( param_type ) ;`
		1094	`UNUSED ( deflt ) ;`
		1095	`return ( f_dummy_dg_param ) ;`
		1096	`}`
		1097
		1098	`dg_param f_dg_type_param`
		1099	`PROTO_N ( ( idname, src_pos, fparams ) )`
		1100	`PROTO_T ( dg_idname_option idname X dg_sourcepos_option src_pos X dg_param_list fparams )`
		1101	`{`
		1102	`UNUSED ( idname ) ;`
		1103	`UNUSED ( src_pos ) ;`
		1104	`UNUSED ( fparams ) ;`
		1105	`return ( f_dummy_dg_param ) ;`
		1106	`}`
		1107
		1108	`dg_param f_dummy_dg_param ;`
		1109
		1110	`void init_dg_param`
		1111	`PROTO_Z ()`
		1112	`{`
		1113	`return ;`
		1114	`}`
		1115
		1116	`dg_param_list new_dg_param_list`
		1117	`PROTO_N ( ( n ) )`
		1118	`PROTO_T ( int n )`
		1119	`{`
		1120	`UNUSED ( n ) ;`
		1121	`return ( f_dummy_dg_param_list ) ;`
		1122	`}`
		1123
		1124	`dg_param_list add_dg_param_list`
		1125	`PROTO_N ( ( list, elem, index ) )`
		1126	`PROTO_T ( dg_param_list list X dg_param elem X int index )`
		1127	`{`
		1128	`UNUSED ( list ) ;`
		1129	`UNUSED ( elem ) ;`
		1130	`UNUSED ( index ) ;`
		1131	`return ( f_dummy_dg_param_list ) ;`
		1132	`}`
		1133
		1134	`void init_dg_param_list`
		1135	`PROTO_Z ()`
		1136	`{`
		1137	`return ;`
		1138	`}`
		1139
		1140	`dg_param_mode f_dg_in_mode ;`
		1141
		1142	`dg_param_mode f_dg_inout_mode ;`
		1143
		1144	`dg_param_mode f_dg_out_mode ;`
		1145
		1146	`dg_param_mode f_dummy_dg_param_mode ;`
		1147
		1148	`void init_dg_param_mode`
		1149	`PROTO_Z ()`
		1150	`{`
		1151	`return ;`
		1152	`}`
		1153
		1154	`dg_param_mode_option no_dg_param_mode_option ;`
		1155
		1156	`dg_param_mode_option yes_dg_param_mode_option`
		1157	`PROTO_N ( ( elem ) )`
		1158	`PROTO_T ( dg_param_mode elem )`
		1159	`{`
		1160	`UNUSED ( elem ) ;`
		1161	`return ( f_dummy_dg_param_mode_option ) ;`
		1162	`}`
		1163
		1164	`void init_dg_param_mode_option`
		1165	`PROTO_Z ()`
		1166	`{`
		1167	`return ;`
		1168	`}`
		1169
		1170	`dg_qualifier f_dg_aliased_qualifier ;`
		1171
		1172	`dg_qualifier f_dg_class_wide_qualifier ;`
		1173
		1174	`dg_qualifier f_dg_const_qualifier ;`
		1175
		1176	`dg_qualifier f_dg_limited_qualifier ;`
		1177
		1178	`dg_qualifier f_dg_volatile_qualifier ;`
		1179
		1180	`dg_qualifier f_dummy_dg_qualifier ;`
		1181
		1182	`void init_dg_qualifier`
		1183	`PROTO_Z ()`
		1184	`{`
		1185	`return ;`
		1186	`}`
		1187
		1188	`dg_sourcepos f_dg_file_sourcepos`
		1189	`PROTO_N ( ( file ) )`
		1190	`PROTO_T ( dg_filename file )`
		1191	`{`
		1192	`UNUSED ( file ) ;`
		1193	`return ( f_dummy_dg_sourcepos ) ;`
		1194	`}`
		1195
		1196	`dg_sourcepos f_dg_global_sourcepos ;`
		1197
		1198	`dg_sourcepos f_dg_mark_sourcepos`
		1199	`PROTO_N ( ( file, line, column ) )`
		1200	`PROTO_T ( dg_filename file X nat line X nat column )`
		1201	`{`
		1202	`UNUSED ( file ) ;`
		1203	`UNUSED ( line ) ;`
		1204	`UNUSED ( column ) ;`
		1205	`return ( f_dummy_dg_sourcepos ) ;`
		1206	`}`
		1207
		1208	`dg_sourcepos f_dg_null_sourcepos ;`
		1209
		1210	`dg_sourcepos f_dg_span_sourcepos`
		1211	`PROTO_N ( ( from_file, from_line, from_column, to_file, to_line, to_column ) )`
		1212	`PROTO_T ( dg_filename from_file X nat from_line X nat from_column X dg_filename_option to_file X nat to_line X nat to_column )`
		1213	`{`
		1214	`UNUSED ( from_file ) ;`
		1215	`UNUSED ( from_line ) ;`
		1216	`UNUSED ( from_column ) ;`
		1217	`UNUSED ( to_file ) ;`
		1218	`UNUSED ( to_line ) ;`
		1219	`UNUSED ( to_column ) ;`
		1220	`return ( f_dummy_dg_sourcepos ) ;`
		1221	`}`
		1222
		1223	`dg_sourcepos f_dummy_dg_sourcepos ;`
		1224
		1225	`void init_dg_sourcepos`
		1226	`PROTO_Z ()`
		1227	`{`
		1228	`return ;`
		1229	`}`
		1230
		1231	`dg_sourcepos_option no_dg_sourcepos_option ;`
		1232
		1233	`dg_sourcepos_option yes_dg_sourcepos_option`
		1234	`PROTO_N ( ( elem ) )`
		1235	`PROTO_T ( dg_sourcepos elem )`
		1236	`{`
		1237	`UNUSED ( elem ) ;`
		1238	`return ( f_dummy_dg_sourcepos_option ) ;`
		1239	`}`
		1240
		1241	`void init_dg_sourcepos_option`
		1242	`PROTO_Z ()`
		1243	`{`
		1244	`return ;`
		1245	`}`
		1246
		1247	`dg_tag f_make_dg_tag`
		1248	`PROTO_N ( ( num ) )`
		1249	`PROTO_T ( tdfint num )`
		1250	`{`
		1251	`UNUSED ( num ) ;`
		1252	`return ( f_dummy_dg_tag ) ;`
		1253	`}`
		1254
		1255	`dg_tag f_dummy_dg_tag ;`
		1256
		1257	`void init_dg_tag`
		1258	`PROTO_Z ()`
		1259	`{`
		1260	`return ;`
		1261	`}`
		1262
		1263	`dg_tag_list new_dg_tag_list`
		1264	`PROTO_N ( ( n ) )`
		1265	`PROTO_T ( int n )`
		1266	`{`
		1267	`UNUSED ( n ) ;`
		1268	`return ( f_dummy_dg_tag_list ) ;`
		1269	`}`
		1270
		1271	`dg_tag_list add_dg_tag_list`
		1272	`PROTO_N ( ( list, elem, index ) )`
		1273	`PROTO_T ( dg_tag_list list X dg_tag elem X int index )`
		1274	`{`
		1275	`UNUSED ( list ) ;`
		1276	`UNUSED ( elem ) ;`
		1277	`UNUSED ( index ) ;`
		1278	`return ( f_dummy_dg_tag_list ) ;`
		1279	`}`
		1280
		1281	`void init_dg_tag_list`
		1282	`PROTO_Z ()`
		1283	`{`
		1284	`return ;`
		1285	`}`
		1286
		1287	`dg_tag_option no_dg_tag_option ;`
		1288
		1289	`dg_tag_option yes_dg_tag_option`
		1290	`PROTO_N ( ( elem ) )`
		1291	`PROTO_T ( dg_tag elem )`
		1292	`{`
		1293	`UNUSED ( elem ) ;`
		1294	`return ( f_dummy_dg_tag_option ) ;`
		1295	`}`
		1296
		1297	`void init_dg_tag_option`
		1298	`PROTO_Z ()`
		1299	`{`
		1300	`return ;`
		1301	`}`
		1302
		1303	`dg_type f_dg_type_apply_token`
		1304	`PROTO_N ( ( token_value, token_args ) )`
		1305	`PROTO_T ( token token_value X bitstream token_args )`
		1306	`{`
		1307	`UNUSED ( token_value ) ;`
		1308	`UNUSED ( token_args ) ;`
		1309	`return ( f_dummy_dg_type ) ;`
		1310	`}`
		1311
		1312	`dg_type f_dg_tag_type`
		1313	`PROTO_N ( ( tg, type ) )`
		1314	`PROTO_T ( dg_tag tg X dg_type type )`
		1315	`{`
		1316	`UNUSED ( tg ) ;`
		1317	`UNUSED ( type ) ;`
		1318	`return ( f_dummy_dg_type ) ;`
		1319	`}`
		1320
		1321	`dg_type f_dg_address_type`
		1322	`PROTO_N ( ( idname, sh ) )`
		1323	`PROTO_T ( dg_idname idname X shape sh )`
		1324	`{`
		1325	`UNUSED ( idname ) ;`
		1326	`UNUSED ( sh ) ;`
		1327	`return ( f_dummy_dg_type ) ;`
		1328	`}`
		1329
		1330	`dg_type f_dg_array_type`
		1331	`PROTO_N ( ( element_type, stride, row_major, dimensions ) )`
		1332	`PROTO_T ( dg_type element_type X exp stride X bool_option row_major X dg_dim_list dimensions )`
		1333	`{`
		1334	`UNUSED ( element_type ) ;`
		1335	`UNUSED ( stride ) ;`
		1336	`UNUSED ( row_major ) ;`
		1337	`UNUSED ( dimensions ) ;`
		1338	`return ( f_dummy_dg_type ) ;`
		1339	`}`
		1340
		1341	`dg_type f_dg_bitfield_type`
		1342	`PROTO_N ( ( type, bv, sh ) )`
		1343	`PROTO_T ( dg_type type X bitfield_variety bv X shape sh )`
		1344	`{`
		1345	`UNUSED ( type ) ;`
		1346	`UNUSED ( bv ) ;`
		1347	`UNUSED ( sh ) ;`
		1348	`return ( f_dummy_dg_type ) ;`
		1349	`}`
		1350
		1351	`dg_type f_dg_boolean_type`
		1352	`PROTO_N ( ( idname, var ) )`
		1353	`PROTO_T ( dg_idname idname X variety var )`
		1354	`{`
		1355	`UNUSED ( idname ) ;`
		1356	`UNUSED ( var ) ;`
		1357	`return ( f_dummy_dg_type ) ;`
		1358	`}`
		1359
		1360	`dg_type f_dg_char_type`
		1361	`PROTO_N ( ( idname, var ) )`
		1362	`PROTO_T ( dg_idname idname X variety var )`
		1363	`{`
		1364	`UNUSED ( idname ) ;`
		1365	`UNUSED ( var ) ;`
		1366	`return ( f_dummy_dg_type ) ;`
		1367	`}`
		1368
		1369	`dg_type f_dg_class_type`
		1370	`PROTO_N ( ( inheritance, members, varpart, friends, sh, vtable_static, vtable_dynamic, tagname, src_pos, is_union, rtti_static, rtti_dynamic, new_type, ada_derived ) )`
		1371	`PROTO_T ( dg_class_base_list inheritance X dg_classmem_list members X dg_varpart_option varpart X dg_tag_list friends X shape_option sh X dg_tag_option vtable_static X dg_tag_option vtable_dynamic X dg_idname_option tagname X dg_sourcepos_option src_pos X bool is_union X dg_tag_option rtti_static X dg_tag_option rtti_dynamic X bool new_type X bool_option ada_derived )`
		1372	`{`
		1373	`UNUSED ( inheritance ) ;`
		1374	`UNUSED ( members ) ;`
		1375	`UNUSED ( varpart ) ;`
		1376	`UNUSED ( friends ) ;`
		1377	`UNUSED ( sh ) ;`
		1378	`UNUSED ( vtable_static ) ;`
		1379	`UNUSED ( vtable_dynamic ) ;`
		1380	`UNUSED ( tagname ) ;`
		1381	`UNUSED ( src_pos ) ;`
		1382	`UNUSED ( is_union ) ;`
		1383	`UNUSED ( rtti_static ) ;`
		1384	`UNUSED ( rtti_dynamic ) ;`
		1385	`UNUSED ( new_type ) ;`
		1386	`UNUSED ( ada_derived ) ;`
		1387	`return ( f_dummy_dg_type ) ;`
		1388	`}`
		1389
		1390	`dg_type f_dg_complex_float_type`
		1391	`PROTO_N ( ( idname, var ) )`
		1392	`PROTO_T ( dg_idname idname X floating_variety var )`
		1393	`{`
		1394	`UNUSED ( idname ) ;`
		1395	`UNUSED ( var ) ;`
		1396	`return ( f_dummy_dg_type ) ;`
		1397	`}`
		1398
		1399	`dg_type f_dg_enum_type`
		1400	`PROTO_N ( ( values, tagname, src_pos, sh, new_type ) )`
		1401	`PROTO_T ( dg_enum_list values X dg_idname_option tagname X dg_sourcepos_option src_pos X shape sh X bool new_type )`
		1402	`{`
		1403	`UNUSED ( values ) ;`
		1404	`UNUSED ( tagname ) ;`
		1405	`UNUSED ( src_pos ) ;`
		1406	`UNUSED ( sh ) ;`
		1407	`UNUSED ( new_type ) ;`
		1408	`return ( f_dummy_dg_type ) ;`
		1409	`}`
		1410
		1411	`dg_type f_dg_file_type`
		1412	`PROTO_N ( ( elem_type, sh ) )`
		1413	`PROTO_T ( dg_type elem_type X shape sh )`
		1414	`{`
		1415	`UNUSED ( elem_type ) ;`
		1416	`UNUSED ( sh ) ;`
		1417	`return ( f_dummy_dg_type ) ;`
		1418	`}`
		1419
		1420	`dg_type f_dg_fixed_point_type`
		1421	`PROTO_N ( ( rep_type, small, delta, digits ) )`
		1422	`PROTO_T ( dg_type rep_type X exp small X exp_option delta X exp_option digits )`
		1423	`{`
		1424	`UNUSED ( rep_type ) ;`
		1425	`UNUSED ( small ) ;`
		1426	`UNUSED ( delta ) ;`
		1427	`UNUSED ( digits ) ;`
		1428	`return ( f_dummy_dg_type ) ;`
		1429	`}`
		1430
		1431	`dg_type f_dg_float_type`
		1432	`PROTO_N ( ( idname, var ) )`
		1433	`PROTO_T ( dg_idname idname X floating_variety var )`
		1434	`{`
		1435	`UNUSED ( idname ) ;`
		1436	`UNUSED ( var ) ;`
		1437	`return ( f_dummy_dg_type ) ;`
		1438	`}`
		1439
		1440	`dg_type f_dg_floating_digits_type`
		1441	`PROTO_N ( ( rep_type, digits ) )`
		1442	`PROTO_T ( dg_type rep_type X exp digits )`
		1443	`{`
		1444	`UNUSED ( rep_type ) ;`
		1445	`UNUSED ( digits ) ;`
		1446	`return ( f_dummy_dg_type ) ;`
		1447	`}`
		1448
		1449	`dg_type f_dg_inlined_type`
		1450	`PROTO_N ( ( type, origin ) )`
		1451	`PROTO_T ( dg_type type X dg_tag origin )`
		1452	`{`
		1453	`UNUSED ( type ) ;`
		1454	`UNUSED ( origin ) ;`
		1455	`return ( f_dummy_dg_type ) ;`
		1456	`}`
		1457
		1458	`dg_type f_dg_integer_type`
		1459	`PROTO_N ( ( idname, var ) )`
		1460	`PROTO_T ( dg_idname idname X variety var )`
		1461	`{`
		1462	`UNUSED ( idname ) ;`
		1463	`UNUSED ( var ) ;`
		1464	`return ( f_dummy_dg_type ) ;`
		1465	`}`
		1466
		1467	`dg_type f_dg_is_spec_type`
		1468	`PROTO_N ( ( type ) )`
		1469	`PROTO_T ( dg_type type )`
		1470	`{`
		1471	`UNUSED ( type ) ;`
		1472	`return ( f_dummy_dg_type ) ;`
		1473	`}`
		1474
		1475	`dg_type f_dg_modular_type`
		1476	`PROTO_N ( ( rep_type, size ) )`
		1477	`PROTO_T ( dg_type rep_type X exp size )`
		1478	`{`
		1479	`UNUSED ( rep_type ) ;`
		1480	`UNUSED ( size ) ;`
		1481	`return ( f_dummy_dg_type ) ;`
		1482	`}`
		1483
		1484	`dg_type f_dg_named_type`
		1485	`PROTO_N ( ( dname ) )`
		1486	`PROTO_T ( dg_tag dname )`
		1487	`{`
		1488	`UNUSED ( dname ) ;`
		1489	`return ( f_dummy_dg_type ) ;`
		1490	`}`
		1491
		1492	`dg_type f_dg_packed_type`
		1493	`PROTO_N ( ( type, sh ) )`
		1494	`PROTO_T ( dg_type type X shape sh )`
		1495	`{`
		1496	`UNUSED ( type ) ;`
		1497	`UNUSED ( sh ) ;`
		1498	`return ( f_dummy_dg_type ) ;`
		1499	`}`
		1500
		1501	`dg_type f_dg_pointer_type`
		1502	`PROTO_N ( ( type, heap_only ) )`
		1503	`PROTO_T ( dg_type type X bool_option heap_only )`
		1504	`{`
		1505	`UNUSED ( type ) ;`
		1506	`UNUSED ( heap_only ) ;`
		1507	`return ( f_dummy_dg_type ) ;`
		1508	`}`
		1509
		1510	`dg_type f_dg_proc_type`
		1511	`PROTO_N ( ( params, result_type, prototype, call_convention, language, prcprops ) )`
		1512	`PROTO_T ( dg_param_list params X dg_type result_type X bool_option prototype X nat_option call_convention X nat_option language X procprops_option prcprops )`
		1513	`{`
		1514	`UNUSED ( params ) ;`
		1515	`UNUSED ( result_type ) ;`
		1516	`UNUSED ( prototype ) ;`
		1517	`UNUSED ( call_convention ) ;`
		1518	`UNUSED ( language ) ;`
		1519	`UNUSED ( prcprops ) ;`
		1520	`return ( f_dummy_dg_type ) ;`
		1521	`}`
		1522
		1523	`dg_type f_dg_ptr_memdata_type`
		1524	`PROTO_N ( ( cls, memtype, sh, pdm_type ) )`
		1525	`PROTO_T ( dg_tag cls X dg_type memtype X shape sh X dg_tag_option pdm_type )`
		1526	`{`
		1527	`UNUSED ( cls ) ;`
		1528	`UNUSED ( memtype ) ;`
		1529	`UNUSED ( sh ) ;`
		1530	`UNUSED ( pdm_type ) ;`
		1531	`return ( f_dummy_dg_type ) ;`
		1532	`}`
		1533
		1534	`dg_type f_dg_ptr_memfn_type`
		1535	`PROTO_N ( ( cls, memtype, sh, pfn_type ) )`
		1536	`PROTO_T ( dg_tag cls X dg_type memtype X shape sh X dg_tag_option pfn_type )`
		1537	`{`
		1538	`UNUSED ( cls ) ;`
		1539	`UNUSED ( memtype ) ;`
		1540	`UNUSED ( sh ) ;`
		1541	`UNUSED ( pfn_type ) ;`
		1542	`return ( f_dummy_dg_type ) ;`
		1543	`}`
		1544
		1545	`dg_type f_dg_qualified_type`
		1546	`PROTO_N ( ( qualifier, type ) )`
		1547	`PROTO_T ( dg_qualifier qualifier X dg_type type )`
		1548	`{`
		1549	`UNUSED ( qualifier ) ;`
		1550	`UNUSED ( type ) ;`
		1551	`return ( f_dummy_dg_type ) ;`
		1552	`}`
		1553
		1554	`dg_type f_dg_reference_type`
		1555	`PROTO_N ( ( type ) )`
		1556	`PROTO_T ( dg_type type )`
		1557	`{`
		1558	`UNUSED ( type ) ;`
		1559	`return ( f_dummy_dg_type ) ;`
		1560	`}`
		1561
		1562	`dg_type f_dg_set_type`
		1563	`PROTO_N ( ( element_type, sh ) )`
		1564	`PROTO_T ( dg_type element_type X shape sh )`
		1565	`{`
		1566	`UNUSED ( element_type ) ;`
		1567	`UNUSED ( sh ) ;`
		1568	`return ( f_dummy_dg_type ) ;`
		1569	`}`
		1570
		1571	`dg_type f_dg_spec_ref_type`
		1572	`PROTO_N ( ( specification, type ) )`
		1573	`PROTO_T ( dg_tag specification X dg_type type )`
		1574	`{`
		1575	`UNUSED ( specification ) ;`
		1576	`UNUSED ( type ) ;`
		1577	`return ( f_dummy_dg_type ) ;`
		1578	`}`
		1579
		1580	`dg_type f_dg_string_type`
		1581	`PROTO_N ( ( character_type, lower_bound, length ) )`
		1582	`PROTO_T ( dg_tag character_type X exp lower_bound X exp length )`
		1583	`{`
		1584	`UNUSED ( character_type ) ;`
		1585	`UNUSED ( lower_bound ) ;`
		1586	`UNUSED ( length ) ;`
		1587	`return ( f_dummy_dg_type ) ;`
		1588	`}`
		1589
		1590	`dg_type f_dg_struct_type`
		1591	`PROTO_N ( ( fields, sh, tagname, src_pos, varpart, is_union, new_type ) )`
		1592	`PROTO_T ( dg_classmem_list fields X shape_option sh X dg_idname_option tagname X dg_sourcepos_option src_pos X dg_varpart_option varpart X bool is_union X bool new_type )`
		1593	`{`
		1594	`UNUSED ( fields ) ;`
		1595	`UNUSED ( sh ) ;`
		1596	`UNUSED ( tagname ) ;`
		1597	`UNUSED ( src_pos ) ;`
		1598	`UNUSED ( varpart ) ;`
		1599	`UNUSED ( is_union ) ;`
		1600	`UNUSED ( new_type ) ;`
		1601	`return ( f_dummy_dg_type ) ;`
		1602	`}`
		1603
		1604	`dg_type f_dg_subrange_type`
		1605	`PROTO_N ( ( rep_type, low, high ) )`
		1606	`PROTO_T ( dg_type rep_type X dg_bound low X dg_bound high )`
		1607	`{`
		1608	`UNUSED ( rep_type ) ;`
		1609	`UNUSED ( low ) ;`
		1610	`UNUSED ( high ) ;`
		1611	`return ( f_dummy_dg_type ) ;`
		1612	`}`
		1613
		1614	`dg_type f_dg_synchronous_type`
		1615	`PROTO_N ( ( idname, whence, entries, socb, members, varpart, sh, new_type, elaboration ) )`
		1616	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_name_list entries X dg_tag socb X dg_classmem_list members X dg_varpart_option varpart X shape_option sh X bool new_type X dg_tag_option elaboration )`
		1617	`{`
		1618	`UNUSED ( idname ) ;`
		1619	`UNUSED ( whence ) ;`
		1620	`UNUSED ( entries ) ;`
		1621	`UNUSED ( socb ) ;`
		1622	`UNUSED ( members ) ;`
		1623	`UNUSED ( varpart ) ;`
		1624	`UNUSED ( sh ) ;`
		1625	`UNUSED ( new_type ) ;`
		1626	`UNUSED ( elaboration ) ;`
		1627	`return ( f_dummy_dg_type ) ;`
		1628	`}`
		1629
		1630	`dg_type f_dg_task_type`
		1631	`PROTO_N ( ( idname, whence, entries, task_id, tcb, members, varpart, sh, new_type, elaboration ) )`
		1632	`PROTO_T ( dg_idname idname X dg_sourcepos whence X dg_name_list entries X dg_tag task_id X dg_tag tcb X dg_classmem_list members X dg_varpart_option varpart X shape_option sh X bool new_type X dg_tag_option elaboration )`
		1633	`{`
		1634	`UNUSED ( idname ) ;`
		1635	`UNUSED ( whence ) ;`
		1636	`UNUSED ( entries ) ;`
		1637	`UNUSED ( task_id ) ;`
		1638	`UNUSED ( tcb ) ;`
		1639	`UNUSED ( members ) ;`
		1640	`UNUSED ( varpart ) ;`
		1641	`UNUSED ( sh ) ;`
		1642	`UNUSED ( new_type ) ;`
		1643	`UNUSED ( elaboration ) ;`
		1644	`return ( f_dummy_dg_type ) ;`
		1645	`}`
		1646
		1647	`dg_type f_dg_unknown_type`
		1648	`PROTO_N ( ( sh ) )`
		1649	`PROTO_T ( shape sh )`
		1650	`{`
		1651	`UNUSED ( sh ) ;`
		1652	`return ( f_dummy_dg_type ) ;`
		1653	`}`
		1654
		1655	`dg_type f_dg_void_type ;`
		1656
		1657	`dg_type f_dummy_dg_type ;`
		1658
		1659	`void init_dg_type`
		1660	`PROTO_Z ()`
		1661	`{`
		1662	`return ;`
		1663	`}`
		1664
		1665	`dg_type_list new_dg_type_list`
		1666	`PROTO_N ( ( n ) )`
		1667	`PROTO_T ( int n )`
		1668	`{`
		1669	`UNUSED ( n ) ;`
		1670	`return ( f_dummy_dg_type_list ) ;`
		1671	`}`
		1672
		1673	`dg_type_list add_dg_type_list`
		1674	`PROTO_N ( ( list, elem, index ) )`
		1675	`PROTO_T ( dg_type_list list X dg_type elem X int index )`
		1676	`{`
		1677	`UNUSED ( list ) ;`
		1678	`UNUSED ( elem ) ;`
		1679	`UNUSED ( index ) ;`
		1680	`return ( f_dummy_dg_type_list ) ;`
		1681	`}`
		1682
		1683	`void init_dg_type_list`
		1684	`PROTO_Z ()`
		1685	`{`
		1686	`return ;`
		1687	`}`
		1688
		1689	`dg_type_list_option no_dg_type_list_option ;`
		1690
		1691	`dg_type_list_option yes_dg_type_list_option`
		1692	`PROTO_N ( ( elem ) )`
		1693	`PROTO_T ( dg_type_list elem )`
		1694	`{`
		1695	`UNUSED ( elem ) ;`
		1696	`return ( f_dummy_dg_type_list_option ) ;`
		1697	`}`
		1698
		1699	`void init_dg_type_list_option`
		1700	`PROTO_Z ()`
		1701	`{`
		1702	`return ;`
		1703	`}`
		1704
		1705	`dg_type_option no_dg_type_option ;`
		1706
		1707	`dg_type_option yes_dg_type_option`
		1708	`PROTO_N ( ( elem ) )`
		1709	`PROTO_T ( dg_type elem )`
		1710	`{`
		1711	`UNUSED ( elem ) ;`
		1712	`return ( f_dummy_dg_type_option ) ;`
		1713	`}`
		1714
		1715	`void init_dg_type_option`
		1716	`PROTO_Z ()`
		1717	`{`
		1718	`return ;`
		1719	`}`
		1720
		1721	`dg_variant f_make_dg_variant`
		1722	`PROTO_N ( ( discr, fields ) )`
		1723	`PROTO_T ( dg_discrim_list discr X dg_classmem_list fields )`
		1724	`{`
		1725	`UNUSED ( discr ) ;`
		1726	`UNUSED ( fields ) ;`
		1727	`return ( f_dummy_dg_variant ) ;`
		1728	`}`
		1729
		1730	`dg_variant f_dummy_dg_variant ;`
		1731
		1732	`void init_dg_variant`
		1733	`PROTO_Z ()`
		1734	`{`
		1735	`return ;`
		1736	`}`
		1737
		1738	`dg_variant_list new_dg_variant_list`
		1739	`PROTO_N ( ( n ) )`
		1740	`PROTO_T ( int n )`
		1741	`{`
		1742	`UNUSED ( n ) ;`
		1743	`return ( f_dummy_dg_variant_list ) ;`
		1744	`}`
		1745
		1746	`dg_variant_list add_dg_variant_list`
		1747	`PROTO_N ( ( list, elem, index ) )`
		1748	`PROTO_T ( dg_variant_list list X dg_variant elem X int index )`
		1749	`{`
		1750	`UNUSED ( list ) ;`
		1751	`UNUSED ( elem ) ;`
		1752	`UNUSED ( index ) ;`
		1753	`return ( f_dummy_dg_variant_list ) ;`
		1754	`}`
		1755
		1756	`void init_dg_variant_list`
		1757	`PROTO_Z ()`
		1758	`{`
		1759	`return ;`
		1760	`}`
		1761
		1762	`dg_varpart f_dg_discrim_varpart`
		1763	`PROTO_N ( ( discrim, variants ) )`
		1764	`PROTO_T ( dg_classmem discrim X dg_variant_list variants )`
		1765	`{`
		1766	`UNUSED ( discrim ) ;`
		1767	`UNUSED ( variants ) ;`
		1768	`return ( f_dummy_dg_varpart ) ;`
		1769	`}`
		1770
		1771	`dg_varpart f_dg_sibl_discrim_varpart`
		1772	`PROTO_N ( ( discrim, variants ) )`
		1773	`PROTO_T ( dg_tag discrim X dg_variant_list variants )`
		1774	`{`
		1775	`UNUSED ( discrim ) ;`
		1776	`UNUSED ( variants ) ;`
		1777	`return ( f_dummy_dg_varpart ) ;`
		1778	`}`
		1779
		1780	`dg_varpart f_dg_undiscrim_varpart`
		1781	`PROTO_N ( ( tag_type, variants ) )`
		1782	`PROTO_T ( dg_type tag_type X dg_variant_list variants )`
		1783	`{`
		1784	`UNUSED ( tag_type ) ;`
		1785	`UNUSED ( variants ) ;`
		1786	`return ( f_dummy_dg_varpart ) ;`
		1787	`}`
		1788
		1789	`dg_varpart f_dummy_dg_varpart ;`
		1790
		1791	`void init_dg_varpart`
		1792	`PROTO_Z ()`
		1793	`{`
		1794	`return ;`
		1795	`}`
		1796
		1797	`dg_varpart_option no_dg_varpart_option ;`
		1798
		1799	`dg_varpart_option yes_dg_varpart_option`
		1800	`PROTO_N ( ( elem ) )`
		1801	`PROTO_T ( dg_varpart elem )`
		1802	`{`
		1803	`UNUSED ( elem ) ;`
		1804	`return ( f_dummy_dg_varpart_option ) ;`
		1805	`}`
		1806
		1807	`void init_dg_varpart_option`
		1808	`PROTO_Z ()`
		1809	`{`
		1810	`return ;`
		1811	`}`
		1812
		1813	`dg_virtuality f_dg_abstract_virtuality ;`
		1814
		1815	`dg_virtuality f_dg_virtual_virtuality ;`
		1816
		1817	`dg_virtuality f_dummy_dg_virtuality ;`
		1818
		1819	`void init_dg_virtuality`
		1820	`PROTO_Z ()`
		1821	`{`
		1822	`return ;`
		1823	`}`
		1824
		1825	`dg_virtuality_option no_dg_virtuality_option ;`
		1826
		1827	`dg_virtuality_option yes_dg_virtuality_option`
		1828	`PROTO_N ( ( elem ) )`
		1829	`PROTO_T ( dg_virtuality elem )`
		1830	`{`
		1831	`UNUSED ( elem ) ;`
		1832	`return ( f_dummy_dg_virtuality_option ) ;`
		1833	`}`
		1834
		1835	`void init_dg_virtuality_option`
		1836	`PROTO_Z ()`
		1837	`{`
		1838	`return ;`
		1839	`}`
		1840
		1841	`shape_option no_shape_option ;`
		1842
		1843	`shape_option yes_shape_option`
		1844	`PROTO_N ( ( elem ) )`
		1845	`PROTO_T ( shape elem )`
		1846	`{`
		1847	`UNUSED ( elem ) ;`
		1848	`return ( f_dummy_shape_option ) ;`
		1849	`}`
		1850
		1851	`void init_shape_option`
		1852	`PROTO_Z ()`
		1853	`{`
		1854	`return ;`
		1855	`}`
		1856
		1857	`string_list new_string_list`
		1858	`PROTO_N ( ( n ) )`
		1859	`PROTO_T ( int n )`
		1860	`{`
		1861	`UNUSED ( n ) ;`
		1862	`return ( f_dummy_string_list ) ;`
		1863	`}`
		1864
		1865	`string_list add_string_list`
		1866	`PROTO_N ( ( list, elem, index ) )`
		1867	`PROTO_T ( string_list list X string elem X int index )`
		1868	`{`
		1869	`UNUSED ( list ) ;`
		1870	`UNUSED ( elem ) ;`
		1871	`UNUSED ( index ) ;`
		1872	`return ( f_dummy_string_list ) ;`
		1873	`}`
		1874
		1875	`void init_string_list`
		1876	`PROTO_Z ()`
		1877	`{`
		1878	`return ;`
		1879	`}`
		1880
		1881	`string_option no_string_option ;`
		1882
		1883	`string_option yes_string_option`
		1884	`PROTO_N ( ( elem ) )`
		1885	`PROTO_T ( string elem )`
		1886	`{`
		1887	`UNUSED ( elem ) ;`
		1888	`return ( f_dummy_string_option ) ;`
		1889	`}`
		1890
		1891	`void init_string_option`
		1892	`PROTO_Z ()`
		1893	`{`
		1894	`return ;`
		1895	`}`
		1896
		1897	`token_option no_token_option ;`
		1898
		1899	`token_option yes_token_option`
		1900	`PROTO_N ( ( elem ) )`
		1901	`PROTO_T ( token elem )`
		1902	`{`
		1903	`UNUSED ( elem ) ;`
		1904	`return ( f_dummy_token_option ) ;`
		1905	`}`
		1906
		1907	`void init_token_option`
		1908	`PROTO_Z ()`
		1909	`{`
		1910	`return ;`
		1911	`}`

Subversion Repositories tendra.SVN

(root)/trunk/src/installers/common/reader/temp_fns.new – Rev 2