Subversion Repositories tendra.SVN

Rev

Rev 2 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2 Rev 7
Line -... Line 1...
- 
 
 1 
/*
- 
 
 2 
 * Copyright (c) 2002-2006 The TenDRA Project <http://www.tendra.org/>.
- 
 
 3 
 * All rights reserved.
- 
 
 4 
 *
- 
 
 5 
 * Redistribution and use in source and binary forms, with or without
- 
 
 6 
 * modification, are permitted provided that the following conditions are met:
- 
 
 7 
 *
- 
 
 8 
 * 1. Redistributions of source code must retain the above copyright notice,
- 
 
 9 
 *    this list of conditions and the following disclaimer.
- 
 
 10 
 * 2. Redistributions in binary form must reproduce the above copyright notice,
- 
 
 11 
 *    this list of conditions and the following disclaimer in the documentation
- 
 
 12 
 *    and/or other materials provided with the distribution.
- 
 
 13 
 * 3. Neither the name of The TenDRA Project nor the names of its contributors
- 
 
 14 
 *    may be used to endorse or promote products derived from this software
- 
 
 15 
 *    without specific, prior written permission.
- 
 
 16 
 *
- 
 
 17 
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS ``AS
- 
 
 18 
 * IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO,
- 
 
 19 
 * THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
- 
 
 20 
 * PURPOSE ARE DISCLAIMED.  IN NO EVENT SHALL THE COPYRIGHT HOLDERS OR
- 
 
 21 
 * CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
- 
 
 22 
 * EXEMPLARY OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
- 
 
 23 
 * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
- 
 
 24 
 * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
- 
 
 25 
 * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
- 
 
 26 
 * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
- 
 
 27 
 * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
- 
 
 28 
 *
- 
 
 29 
 * $Id$
- 
 
 30 
 */
1 
/*
 31 
/*
2 
    		 Crown Copyright (c) 1997
 32 
    		 Crown Copyright (c) 1997
3
33
4 
    This TenDRA(r) Computer Program is subject to Copyright
 34 
    This TenDRA(r) Computer Program is subject to Copyright
5 
    owned by the United Kingdom Secretary of State for Defence
 35 
    owned by the United Kingdom Secretary of State for Defence
Line 57... Line 87...
57 
@endif
 87 
@endif
58 
@end
 88 
@end
59 
@loop sort
 89 
@loop sort
60 
@if sort.basic
 90 
@if sort.basic
61 
 
 91 
 
62 
#define ENS_%SN( A, B )	%48tENC_BITS ( A, %SB, B )
 92 
#define ENS_%SN(A, B)	%48tENC_BITS(A, %SB, B)
63 
@if sort.extends
 93 
@if sort.extends
64 
#define ENX_%SN( A, B )	%48tENC_EXTN ( A, %SB, B )
 94 
#define ENX_%SN(A, B)	%48tENC_EXTN(A, %SB, B)
65 
@endif
 95 
@endif
66 
@loop sort.cons
 96 
@loop sort.cons
67 
@if cons.edge
 97 
@if cons.edge
68 
@if cons.extends
 98 
@if cons.extends
69 
#define ENC_%27CN( A, B )%48t{ ENX_%SN ( A, %CE ) ; ENC_INT ( A, B ) ; }
 99 
#define ENC_%27CN(A, B)%48t{ ENX_%SN(A, %CE); ENC_INT(A, B); }
70 
@else
 100 
@else
71 
#define ENC_%27CN( A, B )%48t{ ENS_%SN ( A, %CE ) ; ENC_INT ( A, B ) ; }
 101 
#define ENC_%27CN(A, B)%48t{ ENS_%SN(A, %CE); ENC_INT(A, B); }
72 
@endif
 102 
@endif
73 
@else
 103 
@else
74 
@if cons.extends
 104 
@if cons.extends
75 
#define ENC_%27CN( A )	%48tENX_%SN ( A, %CE )
 105 
#define ENC_%27CN(A)	%48tENX_%SN(A, %CE)
76 
@else
 106 
@else
77 
#define ENC_%27CN( A )	%48tENS_%SN ( A, %CE )
 107 
#define ENC_%27CN(A)	%48tENS_%SN(A, %CE)
78 
@endif
 108 
@endif
79 
@endif
 109 
@endif
80 
@end
 110 
@end
81 
@endif
 111 
@endif
82 
@end
 112 
@end