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
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
<!doctype html public "-//W3C//DTD HTML 4.0 Transitional//EN" "http://www.w3.org/TR/REC-html40/loose.dtd">
<HTML>
<HEAD>
<TITLE>nevrax.org : docs</TITLE>
<LINK REL=stylesheet TYPE="text/css" HREF="http://www.nevrax.org/inc/css/nevrax.css">
<link href="doxygen.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY MARGINHEIGHT="0" MARGINWIDTH="0">
<!-- uplinks -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0>
<TR>
<TD WIDTH=16><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD WIDTH=140 BGCOLOR=#dddddd><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="140" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD WIDTH=16><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD><IMG width=6 height=14 SRC="http://www.nevrax.org/inc/img/reddots.gif" ALT="#" VSPACE=2 HSPACE=2 BORDER=0 ></TD><TD VALIGN=middle> <A CLASS=uplinks HREF=http://www.nevrax.org><b>Home</B></FONT></A> </TD>
<TD><IMG width=6 height=14 SRC="http://www.nevrax.org/inc/img/reddots.gif" ALT="#" VSPACE=2 HSPACE=2 BORDER=0 ></TD><TD VALIGN=middle> <A CLASS=uplinks HREF=http://www.nevrax.com><b>nevrax.com</B></FONT></A> </TD>
</TR>
</TABLE>
<!-- banner Nevrax -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 WIDTH=100%>
<TR><TD BGCOLOR="#000000" BACKGROUND="http://www.nevrax.org/inc/img/black_banner.jpg"><A HREF="http://www.nevrax.org"><IMG SRC="http://www.nevrax.org/inc/img/nevrax.gif" WIDTH="170" HEIGHT="45" BORDER=0 ALT="Nevrax" ></A></TD></TR>
</TABLE>
<!-- main table -->
<TABLE CELLSPACING=0 CELLPADDING=0 BORDER=0 height=100%>
<TR>
<TD WIDTH=16><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="16" HEIGHT="10" BORDER=0 ALT=""></TD>
<TD WIDTH=140 BGCOLOR=#dddddd VALIGN=TOP ALIGN=middle><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="140" HEIGHT="10" BORDER=0 ALT="">
<!------ Begin Box ------>
<TABLE BORDER=0 CELLSPACING=0 CELLPADDING=0 BGCOLOR=black><TR><TD><TABLE border=0 cellspacing=2 cellpadding=0 width=120><tr><TD ALIGN=middle bgcolor=black>
<FONT COLOR=white FACE="sans-serif"><B>Nevrax.org</B></FONT></TD></TR><tr><td colspan=2 bgcolor=#FFFFFF>
<TABLE cellspacing=0 cellpadding=1 border=0>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/news/" TITLE="Rubrique news"><img width=13 height=15 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-news.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/news/" TITLE="News">News</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/mail/" TITLE="Rubrique mail"><img width=15 height=11 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-mail.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/mail/" TITLE="Mailing list archive">Mailing-list</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/docs/" TITLE="Rubrique docs"><img width=14 height=16 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-docs.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/docs/" TITLE="Documentation">Documentation</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/cvs/" TITLE="Rubrique cvs"><img width=13 height=17 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-cvs.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/cvs/" TITLE="CVS Web">CVS</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/bugs/" TITLE="Rubrique bugs"><img width=20 height=16 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-bugs.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/bugs/" TITLE="Bugtracking">Bugs</a></td></tr>
<tr><td ALIGN=middle><a class='linkbox' href="http://www.nevrax.org/GPL.php3" TITLE="Rubrique license"><img width=18 height=12 hspace=5 border=0 src=http://www.nevrax.org/inc/img/picto-gpl.gif ALT=#></A></td><td><a class='linkbox' href="http://www.nevrax.org/GPL.php3" TITLE="License">License</a></td></tr>
</TABLE>
</TD></TR></TABLE></TD></TR></TABLE>
<!------ End Box ------>
</TD>
<TD WIDTH=15><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="16" HEIGHT="16" BORDER=0 ALT=""></TD>
<TD ALIGN=left valign=top><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="140" HEIGHT="10" BORDER=0 ALT="">
<!-- title -->
<TABLE background="http://www.nevrax.org/inc/img/redline.gif" CELLSPACING=0 CELLPADDING=0 BORDER=0 width=100%><tr><td>
<A HREF="http://www.nevrax.org/docs/"><img src="http://www.nevrax.org/inc/img/t_docs.gif" ALT="Docs" HEIGHT=20 BORDER=0></A>
</td><td><IMG SRC="http://www.nevrax.org/inc/img/pixel.gif" WIDTH="1" HEIGHT="1" BORDER=0 ALT="">
</td></tr></table>
<!-- block -->
<TABLE bgcolor="#dddddd" CELLSPACING=0 CELLPADDING=0 BORDER=0 width=100%><tr><td width=1% valign=middle><img width=6 height=14 hspace=2 vspace=2 src="http://www.nevrax.org/inc/img/reddots.gif"></TD>
<TD><B>Documentation</B></TD>
<TD ALIGN=RIGHT> </td>
</tr></table>
<!-- Generated by Doxygen 1.2.2 on Thu May 31 22:01:21 2001 -->
<center>
<a class="qindex" href="index.html">Main Page</a> <a class="qindex" href="namespaces.html">Namespace List</a> <a class="qindex" href="hierarchy.html">Class Hierarchy</a> <a class="qindex" href="classes.html">Alphabetical List</a> <a class="qindex" href="annotated.html">Compound List</a> <a class="qindex" href="files.html">File List</a> <a class="qindex" href="namespacemembers.html">Namespace Members</a> <a class="qindex" href="functions.html">Compound Members</a> <a class="qindex" href="globals.html">File Members</a> <a class="qindex" href="pages.html">Related Pages</a> <a class="qindexRef" doxygen="_cgi:http://www.nevrax.org/cgi-bin/nel-search.cgi" href="http://www.nevrax.org/cgi-bin/nel-search.cgi">Search</a> </center>
<hr><h1>PIC_System.c</h1><a href="PIC_System_c.html">Go to the documentation of this file.</a><div class="fragment"><pre>00001 <font class="preprocessor">#include <stdio.h></font>
00002 <font class="preprocessor">#include <stdlib.h></font>
00003 <font class="preprocessor">#include <malloc.h></font>
00004 <font class="preprocessor">#include <string.h></font>
00005 <font class="preprocessor">#include <stdarg.h></font>
00006
<a name="l00007"></a><a class="code" href="PIC_System_c.html#a0">00007</a> <font class="preprocessor">#define PIC_ERRSIZE 256
</font>00008 <font class="preprocessor"></font>
<a name="l00009"></a><a class="code" href="PIC_System_c.html#a1">00009</a> <font class="keyword">static</font> <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> PIC_Sys_MEM_Allocated;
<a name="l00010"></a><a class="code" href="PIC_System_c.html#a2">00010</a> <font class="keyword">static</font> <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> PIC_Sys_MEM_NbAllocs;
00011
00012 <font class="comment">// ----------------------------------------------------------------------------------------------------------------------------------</font>
00013
<a name="l00014"></a><a class="code" href="PIC_System_c.html#a3">00014</a> <font class="keywordtype">void</font> *<a class="code" href="pic_private_h.html#a3">Pic_malloc</a>(<font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> size)<font class="keyword">
</font>00015 <font class="keyword"></font>{
00016 <font class="keywordtype">void</font> *mem;
00017 mem=malloc(size);
00018 <font class="keywordflow">if</font> (mem)
00019 {
00020 PIC_Sys_MEM_Allocated+=size;
00021 PIC_Sys_MEM_NbAllocs++;
00022 }
00023 <font class="keywordflow">return</font>(mem);
00024 }
00025 <font class="comment">// -----</font>
<a name="l00026"></a><a class="code" href="PIC_System_c.html#a4">00026</a> <font class="keywordtype">void</font> *<a class="code" href="pic_private_h.html#a4">Pic_calloc</a>(<font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> count, <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> size)<font class="keyword">
</font>00027 <font class="keyword"></font>{
00028 <font class="keywordtype">void</font> *mem;
00029 mem=calloc(count,size);
00030 <font class="keywordflow">if</font> (mem)
00031 {
00032 PIC_Sys_MEM_Allocated+=(size*count);
00033 PIC_Sys_MEM_NbAllocs++;
00034 }
00035 <font class="keywordflow">return</font>(mem);
00036 }
00037 <font class="comment">// -----</font>
<a name="l00038"></a><a class="code" href="PIC_System_c.html#a5">00038</a> <font class="keywordtype">void</font> <a class="code" href="pic_private_h.html#a5">Pic_free</a>(<font class="keywordtype">void</font> *memblock)<font class="keyword">
</font>00039 <font class="keyword"></font>{
00040 <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> size;
00041 size=_msize(memblock);
00042 PIC_Sys_MEM_Allocated-=size;
00043 PIC_Sys_MEM_NbAllocs--;
00044 free(memblock);
00045 }
00046 <font class="comment">// -----</font>
<a name="l00047"></a><a class="code" href="PIC_System_c.html#a6">00047</a> <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> <a class="code" href="pic_private_h.html#a6">Pic__msize</a>(<font class="keywordtype">void</font> *memblock)<font class="keyword">
</font>00048 <font class="keyword"></font>{
00049 <font class="keywordflow">return</font>(_msize(memblock));
00050 }
00051 <font class="comment">// -----</font>
<a name="l00052"></a><a class="code" href="PIC_System_c.html#a11">00052</a> <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> <a class="code" href="pic_h.html#a11">PIC_GetMemNbAllocs</a>(<font class="keywordtype">void</font>)<font class="keyword">
</font>00053 <font class="keyword"></font>{
00054 <font class="keywordflow">return</font>(PIC_Sys_MEM_NbAllocs);
00055 }
00056 <font class="comment">// -----</font>
<a name="l00057"></a><a class="code" href="PIC_System_c.html#a12">00057</a> <font class="keywordtype">unsigned</font> <font class="keywordtype">long</font> <a class="code" href="pic_h.html#a12">PIC_GetMemAllocated</a>(<font class="keywordtype">void</font>)<font class="keyword">
</font>00058 <font class="keyword"></font>{
00059 <font class="keywordflow">return</font>(PIC_Sys_MEM_Allocated);
00060 }
00061
00062 <font class="comment">// ----------------------------------------------------------------------------------------------------------------------------------</font>
00063
<a name="l00064"></a><a class="code" href="PIC_System_c.html#a3">00064</a> <font class="keyword">static</font> <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> PIC_ErrorFlag;
<a name="l00065"></a><a class="code" href="PIC_System_c.html#a4">00065</a> <font class="keyword">static</font> <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> PIC_ErrorString[PIC_ERRSIZE];
<a name="l00066"></a><a class="code" href="PIC_System_c.html#a5">00066</a> <font class="keyword">static</font> <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> PIC_Sys_FnctActive=0;
<a name="l00067"></a><a class="code" href="PIC_System_c.html#a6">00067</a> <font class="keyword">static</font> void (*PIC_Sys_Fnct)(<font class="keywordtype">void</font>);
00068
<a name="l00069"></a><a class="code" href="PIC_System_c.html#a7">00069</a> <font class="keywordtype">void</font> <a class="code" href="pic_private_h.html#a7">Pic_SetError</a>(<font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> *msg, ...)<font class="keyword">
</font>00070 <font class="keyword"></font>{
00071 <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> curerr[PIC_ERRSIZE],olderr[PIC_ERRSIZE];
00072 va_list args;
00073
00074 va_start(args,msg);
00075 vsprintf(curerr,msg,args);
00076 va_end(args);
00077 <font class="keywordflow">if</font> ( (strlen(curerr)+strlen(PIC_ErrorString))>PIC_ERRSIZE ) <font class="keywordflow">return</font>;
00078
00079 <font class="keywordflow">if</font> (PIC_ErrorFlag)
00080 {
00081 strcpy(olderr,PIC_ErrorString);
00082 sprintf(PIC_ErrorString,<font class="stringliteral">"--- [PIC#%03d] :\n%s"</font>,PIC_ErrorFlag,curerr);
00083 strcat(PIC_ErrorString,<font class="stringliteral">"\n"</font>);
00084 strcat(PIC_ErrorString,olderr);
00085 }
00086 <font class="keywordflow">else</font>
00087 {
00088 sprintf(PIC_ErrorString,<font class="stringliteral">"--- [PIC#%03d] :\n%s"</font>,PIC_ErrorFlag,curerr);
00089 }
00090 PIC_ErrorFlag++;
00091 <font class="keywordflow">if</font> (PIC_Sys_FnctActive) <a class="code" href="PIC_System_c.html#a6">PIC_Sys_Fnct</a>();
00092 <font class="keywordflow">return</font>;
00093 }
00094 <font class="comment">// -----</font>
<a name="l00095"></a><a class="code" href="PIC_System_c.html#a13">00095</a> <font class="keywordtype">char</font>* <a class="code" href="pic_h.html#a13">PIC_GetError</a>(<font class="keywordtype">void</font>)<font class="keyword">
</font>00096 <font class="keyword"></font>{
00097 <font class="keywordflow">return</font>(PIC_ErrorString);
00098 }
00099 <font class="comment">// -----</font>
<a name="l00100"></a><a class="code" href="PIC_System_c.html#a14">00100</a> <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> <a class="code" href="pic_h.html#a14">PIC_Error</a>(<font class="keywordtype">void</font>)<font class="keyword">
</font>00101 <font class="keyword"></font>{
00102 <font class="keywordflow">return</font>(PIC_ErrorFlag);
00103 }
00104 <font class="comment">// -----</font>
<a name="l00105"></a><a class="code" href="PIC_System_c.html#a15">00105</a> <font class="keywordtype">void</font> <a class="code" href="pic_h.html#a15">PIC_ResetError</a>(<font class="keywordtype">void</font>)<font class="keyword">
</font>00106 <font class="keyword"></font>{
00107 strcpy(PIC_ErrorString,<font class="stringliteral">""</font>);
00108 PIC_ErrorFlag=0;
00109 }
00110 <font class="comment">// -----</font>
<a name="l00111"></a><a class="code" href="PIC_System_c.html#a16">00111</a> <font class="keywordtype">unsigned</font> <font class="keywordtype">char</font> <a class="code" href="pic_h.html#a16">PIC_OnErrorCall</a>( <font class="keywordtype">void</font> pFnct(<font class="keywordtype">void</font>) )
00112 {
00113 <font class="keywordflow">if</font> (pFnct)
00114 {
00115 PIC_Sys_Fnct=pFnct;
00116 PIC_Sys_FnctActive=1;
00117 }
00118 <font class="keywordflow">else</font>
00119 {
00120 PIC_Sys_FnctActive=0;
00121 }
00122 <font class="keywordflow">return</font>(1);
00123 }
00124
00125 <font class="comment">// ----------------------------------------------------------------------------------------------------------------------------------</font>
00126
</div></pre>
<!-- footer -->
<BR><FONT Size=+5> </FONT>
</TD>
<TD WIDTH=15><IMG SRC=http://www.nevrax.org/inc/img/pixel.gif WIDTH=15 HEIGHT=15 BORDER=0 ALT=""></TD>
</TR>
</TABLE>
</BODY>
</HTML>
|
