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
|
/**************************************************************/
/* ********************************************************** */
/* * * */
/* * RANDOM ACCESS STACK * */
/* * * */
/* * $Module: RAS * */
/* * * */
/* * Copyright (C) 2005 MPI fuer Informatik * */
/* * * */
/* * This program is free software; you can redistribute * */
/* * it and/or modify it under the terms of the FreeBSD * */
/* * Licence. * */
/* * * */
/* * This program is distributed in the 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 LICENCE file * */
/* * for more details. * */
/* * * */
/* * * */
/* $Revision: 1.2 $ * */
/* $State: Exp $ * */
/* $Date: 2010-02-22 14:09:58 $ * */
/* $Author: weidenb $ * */
/* * * */
/* * Contact: * */
/* * Christoph Weidenbach * */
/* * MPI fuer Informatik * */
/* * Stuhlsatzenhausweg 85 * */
/* * 66123 Saarbruecken * */
/* * Email: spass@mpi-inf.mpg.de * */
/* * Germany * */
/* * * */
/* ********************************************************** */
/**************************************************************/
/**************************************************************/
/* Includes */
/**************************************************************/
#include "ras.h"
/**************************************************************/
/* Functions */
/**************************************************************/
RAS ras_InitWithSize(RAS ras, int size)
/****************************************************************
INPUT: A random access stack the maximal expected size of the
stack to init.
RETURNS: The initialized and potentially new stack.
CAUTION: Because it potentially frees the old stack this
function must be called inside an assignment like:
stack = ras_InitWithSize(stack, ...)
*****************************************************************/
{
#ifdef CHECK
if (size <= 0) {
misc_StartErrorReport();
misc_ErrorReport("\n In ras_InitWithSize: size not positive.");
misc_FinishErrorReport();
}
#endif
if (size > (int) ras[ras_alloc]) {
ras_Free(ras);
ras = ras_CreateWithSize(size);
}
else
ras[ras_top] = (POINTER) 0;
return ras;
}
|
