0024624: Lost word in license statement in source files
[occt.git] / src / AdvApp2Var / AdvApp2Var_SysBase.hxx
1 // Copyright (c) 1999-2014 OPEN CASCADE SAS
2 //
3 // This file is part of Open CASCADE Technology software library.
4 //
5 // This library is free software; you can redistribute it and/or modify it under
6 // the terms of the GNU Lesser General Public License version 2.1 as published
7 // by the Free Software Foundation, with special exception defined in the file
8 // OCCT_LGPL_EXCEPTION.txt. Consult the file LICENSE_LGPL_21.txt included in OCCT
9 // distribution for complete text of the license and disclaimer of any warranty.
10 //
11 // Alternatively, this file may be used under the terms of Open CASCADE
12 // commercial license or contractual agreement.
13
14 // AdvApp2Var_SysBase.hxx
15 #ifndef AdvApp2Var_SysBase_HeaderFile
16 #define AdvApp2Var_SysBase_HeaderFile
17
18 #include <Standard_Macro.hxx>
19 #include <AdvApp2Var_Data_f2c.hxx>
20 #if _MSC_VER
21 #include <stddef.h>
22 #else
23 #include <stdint.h>
24 #endif
25
26 class AdvApp2Var_SysBase {
27  public:
28   Standard_EXPORT AdvApp2Var_SysBase();
29   Standard_EXPORT ~AdvApp2Var_SysBase();
30   
31   //
32   Standard_EXPORT int mainial_();
33
34   Standard_EXPORT static int macinit_(int *, 
35                                       int *);
36   //
37   Standard_EXPORT int mcrdelt_(integer *iunit, 
38                                       integer *isize, 
39                                       void *t, 
40                                       intptr_t *iofset, 
41                                       integer *iercod);
42
43   Standard_EXPORT static int mcrfill_(integer *size, 
44                                       void *tin, 
45                                       void *tout);
46
47   Standard_EXPORT int mcrrqst_(integer *iunit, 
48                                       integer *isize, 
49                                       void *t, 
50                                       intptr_t *iofset, 
51                                       integer *iercod);
52   Standard_EXPORT static integer mnfndeb_();
53
54   Standard_EXPORT static int do__fio(); 
55   Standard_EXPORT static int do__lio ();
56   Standard_EXPORT int macrai4_(integer *nbelem, 
57                                       integer *maxelm, 
58                                       integer *itablo,
59                                       intptr_t *iofset,
60                                       integer *iercod);
61   Standard_EXPORT int macrar8_(integer *nbelem, 
62                                       integer *maxelm,
63                                       doublereal *xtablo, 
64                                       intptr_t *iofset, 
65                                       integer *iercod);
66   Standard_EXPORT int macrdi4_(integer *nbelem, 
67                                       integer *maxelm, 
68                                       integer *itablo, 
69                                       intptr_t *iofset, 
70                                       integer *iercod);
71
72   Standard_EXPORT int macrdr8_(integer *nbelem,
73                                       integer *maxelm, 
74                                       doublereal *xtablo, 
75                                       intptr_t *iofset, 
76                                       integer *iercod);
77   Standard_EXPORT static int maermsg_(const char *cnompg, 
78                                       integer *icoder, 
79                                       ftnlen cnompg_len);
80   Standard_EXPORT static int maitbr8_(integer *itaill, 
81                                       doublereal *xtab, 
82                                       doublereal *xval);
83   Standard_EXPORT static int maovsr8_(integer *ivalcs);
84   Standard_EXPORT static int mgenmsg_(const char *nomprg, 
85                                       ftnlen nomprg_len);
86
87   Standard_EXPORT static int mgsomsg_(const char *nomprg, 
88                                       ftnlen nomprg_len);
89   Standard_EXPORT static void miraz_(integer *taille,
90                                      void *adt);
91   Standard_EXPORT static int msifill_(integer *nbintg, 
92                                       integer *ivecin,
93                                       integer *ivecou);
94   Standard_EXPORT static int msrfill_(integer *nbreel, 
95                                       doublereal *vecent,
96                                       doublereal * vecsor);
97   Standard_EXPORT static int mswrdbg_(const char *ctexte, 
98                                       ftnlen ctexte_len);
99   Standard_EXPORT static void mvriraz_(integer *taille,
100                                        void*adt);
101   
102 private:
103   int macrchk_();
104   int mcrlist_(integer *ier) const;
105
106   /* Maximum number of allowed allocation requests.
107      Currently the maximum known number of requests is 7 - see
108      AdvApp2Var_MathBase::mmresol_(). So the current value is a safe margin and
109      a reasonable balance to not provoke stack overflow (especially in
110      multi-threaded execution). Previous number of 1000 was excessive but
111      tolerable when used for static memory.
112   */
113   static const int MAX_ALLOC_NB = 32;
114   
115   enum {
116     static_allocation = 0, /* indicates static allocation, currently not used */
117     heap_allocation   = 1  /* indicates heap allocation */
118   };
119   
120   /* Describes an individual memory allocation request.
121      See format description in the AdvApp2Var_SysBase.cxx.
122      The field order is preserved and the sizes are chosen to minimize
123      memory footprint. Fields containing address have the intptr_t type
124      for easier arithmetic and to avoid casts in the source code.
125
126      No initialization constructor should be provided to avoid wasting
127      time when allocating a field mcrgene_.
128   */
129   struct mitem {
130     unsigned char   prot;
131     unsigned char   unit; //unit of allocation: 1, 2, 4 or 8
132     integer         reqsize;
133     intptr_t        loc;
134     intptr_t        offset;
135     unsigned char   alloctype; // static_allocation or heap_allocation
136     integer         size;
137     intptr_t        addr;
138     integer         userzone; //not used
139     intptr_t        startaddr;
140     intptr_t        endaddr;
141     integer         rank;
142   };
143   
144   struct {
145     mitem           icore[MAX_ALLOC_NB];
146     integer         ncore;
147     unsigned char   lprot;
148   } mcrgene_;
149
150   /* Contains statistics on allocation requests.
151      Index 0 corresponds to static_allocation, 1 - to heap allocation.
152      nrqst - number of allocation requests;
153      ndelt - number of deallocation requests;
154      nbyte - current number of allocated bytes;
155      mbyte - maximum number of ever allocated bytes.
156   */
157   struct {
158     integer nrqst[2], ndelt[2], nbyte[2], mbyte[2];
159   } mcrstac_; 
160 };
161
162 #endif