Subversion Repositories tendra.SVN

Rev

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

Rev 5 Rev 6
Line -... Line 1...
- 
 
 1 
#
- 
 
 2 
# Copyright (c) 2002-2005 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
- 
 
 7 
# are met:
- 
 
 8 
#
- 
 
 9 
# 1. Redistributions of source code must retain the above copyright
- 
 
 10 
#    notice, this list of conditions and the following disclaimer.
- 
 
 11 
# 2. Redistributions in binary form must reproduce the above copyright
- 
 
 12 
#    notice, this list of conditions and the following disclaimer in the
- 
 
 13 
#    documentation and/or other materials provided with the distribution.
- 
 
 14 
#
- 
 
 15 
# THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
- 
 
 16 
# ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
- 
 
 17 
# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
- 
 
 18 
# ARE DISCLAIMED.  IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
- 
 
 19 
# FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
- 
 
 20 
# DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
- 
 
 21 
# OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
- 
 
 22 
# HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
- 
 
 23 
# LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
- 
 
 24 
# OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
- 
 
 25 
# SUCH DAMAGE.
- 
 
 26 
#
1 
#   		 Crown Copyright (c) 1997
 27 
#   		 Crown Copyright (c) 1997
2 
#
28 
#
3 
#   This TenDRA(r) Computer Program is subject to Copyright
 29 
#   This TenDRA(r) Computer Program is subject to Copyright
4 
#   owned by the United Kingdom Secretary of State for Defence
 30 
#   owned by the United Kingdom Secretary of State for Defence
5 
#   acting through the Defence Evaluation and Research Agency
 31 
#   acting through the Defence Evaluation and Research Agency
Line 23... Line 49...
23 
#       (4) DERA gives no warranty or assurance as to its
 49 
#       (4) DERA gives no warranty or assurance as to its
24 
#       quality or suitability for any purpose and DERA accepts
 50 
#       quality or suitability for any purpose and DERA accepts
25 
#       no liability whatsoever in relation to any use to which
 51 
#       no liability whatsoever in relation to any use to which
26 
#       it may be put.
 52 
#       it may be put.
27 
#
 53 
#
- 
 
 54 
# $Id$
- 
 
 55 
#
- 
 
 56 
 
28 
+IFNDEF __JUST_POSIX
 57 
+IFNDEF __JUST_POSIX
29 
 
 58 
 
30 
+SUBSET "va_args" := {
 59 
+SUBSET "va_args" := {
31 
    +SUBSET "va_list" := {
 60 
    +SUBSET "va_list" := {
32 
	# This is a hack to hide va_list
 61 
	# This is a hack to hide va_list
Line 37... Line 66...
37 
	+TYPEDEF va_list ~va_list.2 ;
 66 
	+TYPEDEF va_list ~va_list.2 ;
38 
	+ENDIF
 67 
	+ENDIF
39 
    } ;
 68 
    } ;
40 
 
 69 
 
41 
    %% #pragma TenDRA ident ... allow %%
 70 
    %% #pragma TenDRA ident ... allow %%
42 
 
 71 
 
43 
    +IFNDEF ~building_libs
 72 
    +IFNDEF ~building_libs
44 
    +TYPEDEF ~va_list va_list ;
 73 
    +TYPEDEF ~va_list va_list ;
45 
    +ENDIF
 74 
    +ENDIF
46 
 
 75 
 
47 
    +TYPE __va_t | "~__va_t"  ;
 76 
    +TYPE __va_t | "~__va_t"  ;
Line 63... Line 92...
63 
} ;
 92 
} ;
64 
 
 93 
 
65 
+DEFINE va_start ( l, i )  %% ( ( void ) ( l = __va_start ( ... ) ) ) %% ;
 94 
+DEFINE va_start ( l, i )  %% ( ( void ) ( l = __va_start ( ... ) ) ) %% ;
66 
 
 95 
 
67 
+ENDIF
 96 
+ENDIF
- 
 
 97 
 
- 
 
 98 
# vim:set filetype=tspec: