aboutsummaryrefslogtreecommitdiff
path: root/docs/doxygen/nel/PIC_System_c-source.html
blob: a2acf7be32c5a0c92a86f0bb4ba3509858a0046d (plain)
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>&nbsp;<A CLASS=uplinks HREF=http://www.nevrax.org><b>Home</B></FONT></A>&nbsp;&nbsp;&nbsp;</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>&nbsp;<A CLASS=uplinks HREF=http://www.nevrax.com><b>nevrax.com</B></FONT></A>&nbsp;&nbsp;&nbsp;</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>
&nbsp;

<!-- 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>&nbsp;</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> &nbsp; <a class="qindex" href="namespaces.html">Namespace List</a> &nbsp; <a class="qindex" href="hierarchy.html">Class Hierarchy</a> &nbsp; <a class="qindex" href="classes.html">Alphabetical List</a> &nbsp; <a class="qindex" href="annotated.html">Compound List</a> &nbsp; <a class="qindex" href="files.html">File List</a> &nbsp; <a class="qindex" href="namespacemembers.html">Namespace Members</a> &nbsp; <a class="qindex" href="functions.html">Compound Members</a> &nbsp; <a class="qindex" href="globals.html">File Members</a> &nbsp; <a class="qindex" href="pages.html">Related Pages</a> &nbsp; <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> &nbsp; </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 &lt;stdio.h&gt;</font>
00002 <font class="preprocessor">#include &lt;stdlib.h&gt;</font>
00003 <font class="preprocessor">#include &lt;malloc.h&gt;</font>
00004 <font class="preprocessor">#include &lt;string.h&gt;</font>
00005 <font class="preprocessor">#include &lt;stdarg.h&gt;</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))&gt;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>&nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; &nbsp; </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>