Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "date" on null in /usr/local/www/websvn.planix.org/blame.php on line 247

Warning: Attempt to read property "msg" on null in /usr/local/www/websvn.planix.org/blame.php on line 247
WebSVN – tendra.SVN – Blame – /branches/algol60/src/producers/common/construct/initialise.h – Rev 7

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
/*
7 7u83 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
 */
31
/*
2 7u83 32
    		 Crown Copyright (c) 1997
7 7u83 33
 
2 7u83 34
    This TenDRA(r) Computer Program is subject to Copyright
35
    owned by the United Kingdom Secretary of State for Defence
36
    acting through the Defence Evaluation and Research Agency
37
    (DERA).  It is made available to Recipients with a
38
    royalty-free licence for its use, reproduction, transfer
39
    to other parties and amendment for any purpose not excluding
40
    product development provided that any such use et cetera
41
    shall be deemed to be acceptance of the following conditions:-
7 7u83 42
 
2 7u83 43
        (1) Its Recipients shall ensure that this Notice is
44
        reproduced upon any copies or amended versions of it;
7 7u83 45
 
2 7u83 46
        (2) Any amended version of it shall be clearly marked to
47
        show both the nature of and the organisation responsible
48
        for the relevant amendment or amendments;
7 7u83 49
 
2 7u83 50
        (3) Its onward transfer from a recipient to another
51
        party shall be deemed to be that party's acceptance of
52
        these conditions;
7 7u83 53
 
2 7u83 54
        (4) DERA gives no warranty or assurance as to its
55
        quality or suitability for any purpose and DERA accepts
56
        no liability whatsoever in relation to any use to which
57
        it may be put.
58
*/
59
 
60
 
61
#ifndef INITIALISE_INCLUDED
62
#define INITIALISE_INCLUDED
63
 
64
 
65
/*
66
    INITIALISATION ROUTINES
67
 
68
    The routines in this module are concerned with the initialisation of
69
    variables.
70
*/
71
 
7 7u83 72
extern EXP init_empty(TYPE, CV_SPEC, int, ERROR *);
73
extern EXP init_assign(TYPE, CV_SPEC, EXP, ERROR *);
74
extern EXP init_constr(TYPE, LIST(EXP), ERROR *);
75
extern EXP init_direct(TYPE, EXP, ERROR *);
76
extern EXP init_ref_lvalue(TYPE, EXP, ERROR *);
77
extern EXP init_array(TYPE, CV_SPEC, EXP, int, ERROR *);
78
extern EXP init_aggregate(TYPE, EXP, IDENTIFIER, ERROR *);
79
extern EXP init_general(TYPE, EXP, IDENTIFIER, int);
80
extern EXP dynamic_init(IDENTIFIER, string, EXP);
81
extern EXP destroy_general(TYPE, IDENTIFIER);
82
extern ERROR init_error(ERROR, int);
83
extern void init_initialise(void);
84
extern BUFFER field_buff;
2 7u83 85
 
7 7u83 86
extern MEMBER next_data_member(MEMBER, int);
87
extern EXP make_ref_init(TYPE, EXP);
88
extern EXP make_null_exp(TYPE);
89
extern EXP make_unit_exp(TYPE);
90
extern int is_null_exp(EXP);
91
extern EXP check_init(EXP);
92
extern unsigned long member_no;
2 7u83 93
 
7 7u83 94
extern EXP make_temporary(TYPE, EXP, EXP, int, ERROR *);
95
extern EXP remove_temporary(EXP, EXP);
96
extern IDENTIFIER made_temporary;
97
extern int keep_temporary;
2 7u83 98
 
7 7u83 99
extern int init_object(IDENTIFIER, EXP);
100
extern int init_member(IDENTIFIER, EXP);
101
extern void init_param(IDENTIFIER, EXP);
102
extern void allow_initialiser(IDENTIFIER);
103
extern int init_ref_force;
2 7u83 104
 
105
 
106
#endif