1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
|
/*
* SELECT List Routines
* by Vicente Rico-Ramirez
* 1/97
* Version: $Revision: 1.10 $
* Version control file: $RCSfile: select.h,v $
* Date last modified: $Date: 1997/07/29 15:52:55 $
* Last modified by: $Author: rv2a $
*
* This file is part of the Ascend Language Interpreter.
*
* Copyright (C) 1997 Carnegie Mellon University
*
* The Ascend Language Interpreter is free software; you can redistribute
* it and/or modify it under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or (at your option) any later version.
*
* The Ascend Language Interpreter is distributed in hope that it will be
* useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*/
/** @file
* SELECT List Routines.
*/
#ifndef ASC_SELECT_H
#define ASC_SELECT_H
#include "stattypes.h"
/** @addtogroup compiler_stmt Compiler Statements
@{
*/
extern struct SelectList *CreateSelect(struct Set *set, struct StatementList *sl);
/**<
* Create a Select node. This will examine the set data structure which
* must contain only constant expressions (TRUE or FALSE), symbol values or
* integer values.
* If set = NULL, this indicates an OTHERWISE case.
*/
extern struct SelectList *ReverseSelectCases(struct SelectList *sel);
/**<
* Reverse this list.
*/
extern struct SelectList
*LinkSelectCases(struct SelectList *sel1, struct SelectList *sel2);
/**<
* Link two case lists and return the joined list. This works best when
* sel1 is a one element list.
*/
#ifdef NDEBUG
#define NextSelectCase(sel) ((sel)->next)
#else
#define NextSelectCase(sel) NextSelectCaseF(sel)
#endif
/**<
* Return the next case.
* @param sel struct SelectList*, the SelectList to query.
* @return Returns the next case as a struct SelectList*.
* @see NextSelectCaseF()
*/
extern struct SelectList *NextSelectCaseF(struct SelectList *cs);
/**<
* Implementation function for NextSelectCase(). Do not call this
* function directly - use NextSelectCase() instead.
*/
#ifdef NDEBUG
#define SelectSetList(sel) ((sel)->values)
#else
#define SelectSetList(sel) SelectSetListF(sel)
#endif
/**<
* This will return the set list part of a SelectList structure. When
* the set is NULL, this indicates an OTHERWISE case.
* @param sel struct SelectList*, the SelectList to query..
* @return Returns the set list as a struct Set*.
* @see SelectSetListF()
*/
extern struct Set *SelectSetListF(struct SelectList *sel);
/**<
* Implementation function for SelectSetList(). Do not call this
* function directly - use SelectSetList() instead.
*/
#ifdef NDEBUG
#define SelectStatementList(sel) ((sel)->slist)
#else
#define SelectStatementList(sel) SelectStatementListF(sel)
#endif
/**<
* Return the statement list.
* @param sel struct SelectList*, the SelectList to query..
* @return Returns the statement list as a struct StatementList*.
* @see SelectStatementListF()
*/
extern struct StatementList *SelectStatementListF(struct SelectList *sel);
/**<
* Implementation function for SelectStatementList(). Do not call this
* function directly - use SelectStatementList() instead.
*/
extern void DestroySelectList(struct SelectList *sel);
/**<
* Destroy a whole list.
*/
extern void DestroySelectNode(struct SelectList *sel);
/**<
* Destroy just this node.
*/
extern struct SelectList *CopySelectNode(struct SelectList *sel);
/**<
* Copy a case. The next attribute is initialized to NULL.
*/
extern struct SelectList *CopySelectList(struct SelectList *sel);
/**<
* Copy the whole list content. not a reference count change.
*/
/* @} */
#endif /* ASC_SELECT_H */
|