/usr/include/scilab/ScilabObjects.hxx is in scilab-include 5.5.0-2.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | /*
* Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
* Copyright (C) 2012 - Scilab Enterprises - Calixte DENIZET
*
* This file must be used under the terms of the CeCILL.
* This source file is licensed as described in the file COPYING, which
* you should have received as part of this distribution. The terms
* are also available at
* http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
*
*/
#ifndef __SCILABOBJECTS_HXX__
#define __SCILABOBJECTS_HXX__
#include <string.h>
#include "ExternalObjects.h"
#include "ScilabAbstractEnvironment.hxx"
#include "ScilabEnvironments.hxx"
#include "OptionsHelper.hxx"
#include "dynlib_external_objects_scilab.h"
namespace org_modules_external_objects
{
class EXTERNAL_OBJECTS_SCILAB_IMPEXP ScilabObjects
{
static bool isInit;
static const char * _EOBJ[];
static const char * _ECLASS[];
static const char * _EVOID[];
static const char * _INVOKE_;
public:
static void initialization(ScilabAbstractEnvironment & env, void * pvApiCtx);
static int createNamedEnvironmentObject(int type, const char * name, int id, const int envId, void * pvApiCtx);
static void createEnvironmentObjectAtPos(int type, int pos, int id, const int envId, void * pvApiCtx);
static void copyInvocationMacroToStack(int pos, ScilabAbstractEnvironment & env, void * pvApiCtx);
static void removeTemporaryVars(const int envId, int * tmpvar);
static void removeVar(int * addr, void * pvApiCtx);
static bool unwrap(int idObj, int pos, const int envId, void * pvApiCtx);
static int getMListType(int * mlist, void * pvApiCtx);
static bool isValidExternal(int * mlist, void * pvApiCtx);
static bool isExternalObj(int * mlist, void * pvApiCtx);
static bool isExternalClass(int * mlist, void * pvApiCtx);
static bool isExternalVoid(int * mlist, void * pvApiCtx);
static bool isExternalObjOrClass(int * mlist, void * pvApiCtx);
static char * getSingleString(int pos, void * pvApiCtx);
static int isPositiveIntegerAtAddress(int * addr, void * pvApiCtx);
static int getEnvironmentId(int * addr, void * pvApiCtx);
static int getExternalId(int * addr, void * pvApiCtx);
static int getArgumentId(int * addr, int * tmpvars, const bool isRef, const bool isClass, const int envId, void * pvApiCtx);
template <typename T>
inline static int wrap(const int row, const int col, T * data, const ScilabAbstractEnvironmentWrapper & wrapper, const bool isRef)
{
if (row == 0 || col == 0)
{
// Empty matrix is plugged on null object
return 0;
}
else if (row == 1 && col == 1)
{
return wrapper.wrap(data, isRef);
}
else if (row == 1)
{
return wrapper.wrap(data, col, isRef);
}
return wrapper.wrap(data, row, col, isRef);
}
inline static int wrapBool(const int row, const int col, int * data, const ScilabAbstractEnvironmentWrapper & wrapper, const bool isRef)
{
if (row == 0 || col == 0)
{
// Empty matrix is plugged on null object
return 0;
}
else if (row == 1 && col == 1)
{
return wrapper.wrapBool(data, isRef);
}
else if (row == 1)
{
return wrapper.wrapBool(data, col, isRef);
}
return wrapper.wrapBool(data, row, col, isRef);
}
inline static int wrapFloat(const int row, const int col, double * data, const ScilabAbstractEnvironmentWrapper & wrapper, const bool isRef)
{
if (row == 0 || col == 0)
{
// Empty matrix is plugged on null object
return 0;
}
else if (row == 1 && col == 1)
{
return wrapper.wrapFloat(data, isRef);
}
else if (row == 1)
{
return wrapper.wrapFloat(data, col, isRef);
}
return wrapper.wrapFloat(data, row, col, isRef);
}
inline static int wrap(const int row, const int col, double * real, double * imag, const ScilabAbstractEnvironmentWrapper & wrapper, const bool isRef)
{
if (row == 0 || col == 0)
{
// Empty matrix is plugged on null object
return 0;
}
else if (row == 1 && col == 1)
{
return wrapper.wrap(real, imag, isRef);
}
else if (row == 1)
{
return wrapper.wrap(real, imag, col, isRef);
}
return wrapper.wrap(real, imag, row, col, isRef);
}
};
}
#endif // __SCILABOBJECTS_HXX__
|