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 9... Line 35...
9
#   product development provided that any such use et cetera
35
#   product development provided that any such use et cetera
10
#   shall be deemed to be acceptance of the following conditions:-
36
#   shall be deemed to be acceptance of the following conditions:-
11
#   
37
#   
12
#       (1) Its Recipients shall ensure that this Notice is
38
#       (1) Its Recipients shall ensure that this Notice is
13
#       reproduced upon any copies or amended versions of it;
39
#       reproduced upon any copies or amended versions of it;
14
#   
40
#   
15
#       (2) Any amended version of it shall be clearly marked to
41
#       (2) Any amended version of it shall be clearly marked to
16
#       show both the nature of and the organisation responsible
42
#       show both the nature of and the organisation responsible
17
#       for the relevant amendment or amendments;
43
#       for the relevant amendment or amendments;
18
#   
44
#   
19
#       (3) Its onward transfer from a recipient to another
45
#       (3) Its onward transfer from a recipient to another
20
#       party shall be deemed to be that party's acceptance of
46
#       party shall be deemed to be that party's acceptance of
21
#       these conditions;
47
#       these conditions;
22
#   
48
#   
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
+IMPLEMENT "ansi", "stdlib.h", "bottom" ;
57
+IMPLEMENT "ansi", "stdlib.h", "bottom" ;
29
 
58
 
30
+NAT ~jmp_buf_size ;
59
+NAT ~jmp_buf_size ;
31
+TYPE ~jmp_buf_elt ;
60
+TYPE ~jmp_buf_elt ;
32
+TYPEDEF ~jmp_buf_elt jmp_buf [ ~jmp_buf_size ] ;
61
+TYPEDEF ~jmp_buf_elt jmp_buf [ ~jmp_buf_size ] ;
33
 
62
 
34
+FUNC ~bottom longjmp ( jmp_buf, int ) ;
63
+FUNC ~bottom longjmp ( jmp_buf, int ) ;
35
+FUNC int setjmp ( jmp_buf ) ;
64
+FUNC int setjmp ( jmp_buf ) ;
-
 
65
 
-
 
66
# vim:set filetype=tspec: