Subversion Repositories tendra.SVN

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

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 %ZX VERSION %ZV FROM TDF %VA.%VB */
32 
@use dg_comp_props
33 
@use !exp
34 
@loop sort
35 
@if !sort.builtin
36 
@if sort.simple
37 
@loop sort.cons
38 
@if cons.params
39 
 
40 
%SN f_%CN
41 
    PROTO_N ( (%
42 
@loop cons.param
43 
 %PN,%
44 
@end
45 
%b ) )
46 
    PROTO_T (%
47 
@loop cons.param
48 
 %PSN %PN X%
49 
@end
50 
%b)
51 
{
52 
@loop cons.param
53 
    UNUSED ( %PN ) ;
54 
@end
55 
    return ( f_dummy_%SN ) ;
56 
}
57 
@else
58 
 
59 
%SN f_%CN ;
60 
@endif
61 
@end
62 
 
63 
%SN f_dummy_%SN ;
64 
@else
65 
@if sort.option
66 
 
67 
%SN no_%SN ;
68 
 
69 
%SN yes_%SN
70 
    PROTO_N ( ( elem ) )
71 
    PROTO_T ( %SSN elem )
72 
{
73 
    UNUSED ( elem ) ;
74 
    return ( f_dummy_%SN ) ;
75 
}
76 
@else
77 
 
78 
%SN new_%SN
79 
    PROTO_N ( ( n ) )
80 
    PROTO_T ( int n )
81 
{
82 
    UNUSED ( n ) ;
83 
    return ( f_dummy_%SN ) ;
84 
}
85 
 
86 
%SN add_%SN
87 
   PROTO_N ( ( list, elem, index ) )
88 
   PROTO_T ( %SN list X %SSN elem X int index )
89 
{
90 
    UNUSED ( list ) ;
91 
    UNUSED ( elem ) ;
92 
    UNUSED ( index ) ;
93 
    return ( f_dummy_%SN ) ;
94 
}
95 
@endif
96 
@endif
97 
 
98 
void init_%SN
99 
    PROTO_Z ()
100 
{
101 
    return ;
102 
}
103 
@endif
104 
@end