10#define SWIG_VERSION 0x040200
12#define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
13#define SWIG_LUA_MODULE_GLOBAL
21#ifndef SWIGTEMPLATEDISAMBIGUATOR
22# if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
23# define SWIGTEMPLATEDISAMBIGUATOR template
24# elif defined(__HP_aCC)
27# define SWIGTEMPLATEDISAMBIGUATOR template
29# define SWIGTEMPLATEDISAMBIGUATOR
35# if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
36# define SWIGINLINE inline
45# if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
46# define SWIGUNUSED __attribute__ ((__unused__))
51# define SWIGUNUSED __attribute__ ((__unused__))
57#ifndef SWIG_MSC_UNSUPPRESS_4505
59# pragma warning(disable : 4505)
65# define SWIGUNUSEDPARM(p)
67# define SWIGUNUSEDPARM(p) p SWIGUNUSED
73# define SWIGINTERN static SWIGUNUSED
77#ifndef SWIGINTERNINLINE
78# define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
83# if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
84# ifndef GCC_HASCLASSVISIBILITY
85# define GCC_HASCLASSVISIBILITY
91# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
92# if defined(STATIC_LINKED)
95# define SWIGEXPORT __declspec(dllexport)
98# if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
99# define SWIGEXPORT __attribute__ ((visibility("default")))
108# if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
109# define SWIGSTDCALL __stdcall
116#if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
117# define _CRT_SECURE_NO_DEPRECATE
121#if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
122# define _SCL_SECURE_NO_DEPRECATE
126#if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
127# define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
135#ifdef __INTEL_COMPILER
136# pragma warning disable 592
139#if __cplusplus >=201103L
140# define SWIG_NULLPTR nullptr
142# define SWIG_NULLPTR NULL
154#if ((defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L) || \
155 (defined __cplusplus && __cplusplus >= 201103L) || \
156 defined SWIG_HAVE_SNPRINTF) && \
157 !defined SWIG_NO_SNPRINTF
158# define SWIG_snprintf(O,S,F,A) snprintf(O,S,F,A)
159# define SWIG_snprintf2(O,S,F,A,B) snprintf(O,S,F,A,B)
165# define SWIG_snprintf(O,S,F,A) sprintf(O,F,A)
166# define SWIG_snprintf2(O,S,F,A,B) sprintf(O,F,A,B)
178#define SWIG_RUNTIME_VERSION "4"
181#ifdef SWIG_TYPE_TABLE
182# define SWIG_QUOTE_STRING(x) #x
183# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
184# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
186# define SWIG_TYPE_TABLE_NAME
199# define SWIGRUNTIME SWIGINTERN
202#ifndef SWIGRUNTIMEINLINE
203# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
207#ifndef SWIG_BUFFER_SIZE
208# define SWIG_BUFFER_SIZE 1024
212#define SWIG_POINTER_DISOWN 0x1
213#define SWIG_CAST_NEW_MEMORY 0x2
214#define SWIG_POINTER_NO_NULL 0x4
215#define SWIG_POINTER_CLEAR 0x8
216#define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
219#define SWIG_POINTER_OWN 0x1
303#define SWIG_ERROR (-1)
307#define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
309#define SWIG_IsOK(r) (r >= 0)
310#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
313#define SWIG_CASTRANKLIMIT (1 << 8)
315#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
317#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
319#define SWIG_BADOBJ (SWIG_ERROR)
320#define SWIG_OLDOBJ (SWIG_OK)
321#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
322#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
324#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
325#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
326#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
327#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
328#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
329#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
332#if defined(SWIG_CASTRANK_MODE)
333# ifndef SWIG_TypeRank
334# define SWIG_TypeRank unsigned long
336# ifndef SWIG_MAXCASTRANK
337# define SWIG_MAXCASTRANK (2)
339# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
340# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
345 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
348# define SWIG_AddCast(r) (r)
349# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
359typedef void *(*swig_converter_func)(
void *,
int *);
401 const char *f2,
const char *l2) {
402 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
403 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
404 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
405 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
407 return (
int)((l1 - f1) - (l2 - f2));
417 const char* te = tb + strlen(tb);
419 while (equiv != 0 && *ne) {
420 for (nb = ne; *ne; ++ne) {
421 if (*ne ==
'|')
break;
446 if (strcmp(iter->type->name, c) == 0) {
447 if (iter == ty->
cast)
450 iter->prev->next = iter->next;
452 iter->next->prev = iter->prev;
453 iter->next = ty->
cast;
455 if (ty->
cast) ty->
cast->prev = iter;
473 if (iter->type == from) {
474 if (iter == ty->
cast)
477 iter->prev->next = iter->next;
479 iter->next->prev = iter->prev;
480 iter->next = ty->
cast;
482 if (ty->
cast) ty->
cast->prev = iter;
506 if (!ty || !ty->
dcast)
return ty;
507 while (ty && (ty->
dcast)) {
508 ty = (*ty->
dcast)(ptr);
532 if (!type)
return NULL;
533 if (type->str != NULL) {
534 const char *last_name = type->str;
536 for (s = type->str; *s; s++)
537 if (*s ==
'|') last_name = s+1;
556 if (!tc->clientdata) {
585 size_t r = iter->
size - 1;
588 size_t i = (l + r) >> 1;
589 const char *iname = iter->types[i]->name;
591 int compare = strcmp(
name, iname);
593 return iter->types[i];
594 }
else if (compare < 0) {
600 }
else if (compare > 0) {
609 }
while (iter != end);
636 for (; i < iter->size; ++i) {
638 return iter->
types[i];
641 }
while (iter != end);
653 static const char hex[17] =
"0123456789abcdef";
654 const unsigned char *u = (
unsigned char *) ptr;
655 const unsigned char *eu = u + sz;
656 for (; u != eu; ++u) {
657 unsigned char uu = *u;
658 *(c++) = hex[(uu & 0xf0) >> 4];
659 *(c++) = hex[uu & 0xf];
669 unsigned char *u = (
unsigned char *) ptr;
670 const unsigned char *eu = u + sz;
671 for (; u != eu; ++u) {
674 if ((d >=
'0') && (d <=
'9'))
675 uu = (
unsigned char)((d -
'0') << 4);
676 else if ((d >=
'a') && (d <=
'f'))
677 uu = (
unsigned char)((d - (
'a'-10)) << 4);
681 if ((d >=
'0') && (d <=
'9'))
682 uu |= (
unsigned char)(d -
'0');
683 else if ((d >=
'a') && (d <=
'f'))
684 uu |= (
unsigned char)(d - (
'a'-10));
698 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
701 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
709 if (strcmp(c,
"NULL") == 0) {
722 size_t lname = (
name ? strlen(
name) : 0);
723 if ((2*sz + 2 + lname) > bsz)
return 0;
727 strncpy(r,
name,lname+1);
737 if (strcmp(c,
"NULL") == 0) {
752#define SWIG_UnknownError -1
753#define SWIG_IOError -2
754#define SWIG_RuntimeError -3
755#define SWIG_IndexError -4
756#define SWIG_TypeError -5
757#define SWIG_DivisionByZero -6
758#define SWIG_OverflowError -7
759#define SWIG_SyntaxError -8
760#define SWIG_ValueError -9
761#define SWIG_SystemError -10
762#define SWIG_AttributeError -11
763#define SWIG_MemoryError -12
764#define SWIG_NullReferenceError -13
788#define SWIG_LUA_FLAVOR_LUA 1
789#define SWIG_LUA_FLAVOR_ELUA 2
790#define SWIG_LUA_FLAVOR_ELUAC 3
792#if !defined(SWIG_LUA_TARGET)
793# error SWIG_LUA_TARGET not defined
796#if defined(SWIG_LUA_ELUA_EMULATE)
798struct swig_elua_entry;
800typedef struct swig_elua_key {
808typedef struct swig_elua_val {
812 const struct swig_elua_entry *table;
824typedef struct swig_elua_entry {
829#define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
830#define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
831#define LNILKEY {LUA_TNIL, {.strkey = 0} }
833#define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
834#define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
835#define LROVAL(x) {LUA_TTABLE, {.table = x} }
836#define LNILVAL {LUA_TNIL, {.string = 0} }
837#define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
839#define LUA_REG_TYPE swig_elua_entry
841#define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
843#define lua_pushrotable(L,p)\
846 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
848#define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
849 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
851#define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
852 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
855#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
856# define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
857# define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
858# define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
859# define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
862#ifndef SWIG_LUA_CONSTTAB_POINTER
863#warning eLua does not support pointers as constants. By default, nil will be used as value
864#define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
867#ifndef SWIG_LUA_CONSTTAB_BINARY
868#warning eLua does not support pointers to member as constants. By default, nil will be used as value
869#define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
872# define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
873# define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
874# define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
875# define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
876# define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
877 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
878# define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
879 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
882#ifndef SWIG_LUA_ELUA_EMULATE
883#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
884# define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
885# define LSTRVAL LRO_STRVAL
889#ifndef SWIG_LUA_ELUA_EMULATE
890#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
893#define MIN_OPT_LEVEL 2
912#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
913# define lua_rawlen lua_strlen
914#elif LUA_VERSION_NUM == 501
915# define lua_rawlen lua_objlen
922#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
926 const char *result = lua_tostring(L, idx);
927 if (len) *len = lua_strlen(L, idx);
936#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
937# define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
941#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
942# define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
946#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
947#define lua_rawsetp(L,index,ptr)\
948 lua_pushlightuserdata(L,(void*)(ptr));\
952#define lua_rawgetp(L,index,ptr)\
953 lua_pushlightuserdata(L,(void*)(ptr));\
969 lua_pushstring (L, str);
982 lua_pushvfstring(L, fmt, argp);
992#define SWIG_LUA_INT 1
993#define SWIG_LUA_FLOAT 2
994#define SWIG_LUA_STRING 3
995#define SWIG_LUA_POINTER 4
996#define SWIG_LUA_BINARY 5
997#define SWIG_LUA_CHAR 6
1006#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1076#define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1077#define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1078#define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1080#define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1081#define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1084#define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1085#define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1086#define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1089#define SWIG_contract_assert(expr, msg) \
1090 do { if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } } while (0)
1094#define SWIG_fail {goto fail;}
1095#define SWIG_fail_arg(func_name,argnum,type) \
1096 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1097 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1099#define SWIG_fail_ptr(func_name,argnum,type) \
1100 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1101#define SWIG_check_num_args(func_name,a,b) \
1102 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1103 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1107#define SWIG_Lua_get_table(L,n) \
1108 (lua_pushstring(L, n), lua_rawget(L,-2))
1110#define SWIG_Lua_add_function(L,n,f) \
1111 (lua_pushstring(L, n), \
1112 lua_pushcfunction(L, f), \
1115#define SWIG_Lua_add_boolean(L,n,b) \
1116 (lua_pushstring(L, n), \
1117 lua_pushboolean(L, b), \
1121#define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1134 lua_rawget(L,LUA_REGISTRYINDEX);
1135 if (lua_islightuserdata(L,-1))
1145 lua_pushlightuserdata(L,(
void*)module);
1146 lua_rawset(L,LUA_REGISTRYINDEX);
1159#ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1161 luaL_error(L,
"This variable is immutable");
1166#ifdef SWIG_LUA_ELUA_EMULATE
1170static int swig_lua_elua_emulate_unique_key;
1173SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1175 int i, table_parsed, parsed_tables_array, target_table;
1176 assert(lua_istable(L,-1));
1177 target_table = lua_gettop(L);
1179 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1180 if(lua_isnil(L,-1)) {
1183 lua_pushvalue(L,-1);
1184 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1186 parsed_tables_array = lua_gettop(L);
1187 lua_pushvalue(L,target_table);
1190 const int SWIGUNUSED pairs_start = lua_gettop(L);
1191 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1193 const swig_elua_entry *entry = table + i;
1194 int is_metatable = 0;
1195 switch(entry->key.type) {
1197 lua_pushstring(L,entry->key.key.strkey);
1198 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1202 lua_pushnumber(L,entry->key.key.numkey);
1210 switch(entry->value.type) {
1212 lua_pushstring(L,entry->value.value.string);
1215 lua_pushnumber(L,entry->value.value.number);
1218 lua_pushcfunction(L,entry->value.value.function);
1221 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1222 table_parsed = !lua_isnil(L,-1);
1226 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1229 assert(lua_istable(L,-1));
1230 lua_pushvalue(L,-1);
1231 lua_setmetatable(L,target_table);
1236 if(entry->value.value.userdata.member)
1238 entry->value.value.userdata.lvalue,
1239 *(entry->value.value.userdata.ptype));
1242 *(entry->value.value.userdata.ptype),0);
1250 assert(lua_gettop(L) == pairs_start + 2);
1251 lua_rawset(L,target_table);
1254 assert(lua_gettop(L) == target_table);
1257SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1260 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1265SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1269 lua_getfield(L,-1,
"lua_getmetatable");
1271 assert(!lua_isnil(L,-1));
1273 assert(lua_gettop(L) == 3);
1275 if(!lua_isnil(L,-1))
1278 assert(lua_gettop(L) == 2);
1279 if(lua_istable(L,-2)) {
1281 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1283 assert(lua_gettop(L) == 2);
1291SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1295 lua_pushstring(L,
"lua_getmetatable");
1296 lua_getfield(L,-2,
"getmetatable");
1297 assert(!lua_isnil(L,-1));
1299 lua_pushstring(L,
"getmetatable");
1300 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1318 assert(lua_istable(L,-2));
1319 lua_getmetatable(L,-2);
1320 assert(lua_istable(L,-1));
1322 assert(lua_istable(L,-1));
1327 if (lua_iscfunction(L,-1))
1336 assert(lua_istable(L,-1));
1340 if (lua_isfunction(L,-1))
1357 assert(lua_istable(L,1));
1358 lua_getmetatable(L,1);
1359 assert(lua_istable(L,-1));
1362 if (lua_istable(L,-1))
1367 if (lua_iscfunction(L,-1))
1381#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1391 assert(lua_istable(L,-1));
1395 for(i=0;ns->ns_methods[i].name;i++){
1398 lua_getmetatable(L,-1);
1401 for(i=0;ns->ns_attributes[i].name;i++){
1402 SWIG_Lua_add_variable(L,ns->ns_attributes[i].name,ns->ns_attributes[i].getmethod,ns->ns_attributes[i].setmethod);
1416 assert(lua_istable(L,-1));
1418 classes = ns->ns_classes;
1420 if( classes != 0 ) {
1421 while(*classes != 0) {
1438 assert(lua_istable(L,-1));
1439 lua_checkstack(L,5);
1444 lua_pushstring(L,
".get");
1448 lua_pushstring(L,
".set");
1452 lua_pushstring(L,
".fn");
1460 lua_setmetatable(L,-2);
1467 sub_namespace = ns->ns_namespaces;
1468 if( sub_namespace != 0) {
1469 while(*sub_namespace != 0) {
1477 lua_pushstring(L,ns->name);
1478 lua_pushvalue(L,-2);
1481 assert(lua_gettop(L) == begin+1);
1498 int last_arg = lua_gettop(L);
1499 int original_metatable = last_arg + 1;
1504 lua_getmetatable(L,first_arg);
1507#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1509 assert(lua_istable(L,-1));
1511 bases_table = lua_gettop(L);
1515 assert(swig_type!=0);
1518 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1520 for(;base_names[bases_count];
1531 int subcall_last_arg;
1532 int subcall_first_arg = lua_gettop(L) + 1;
1535 for(j=first_arg;j<=last_arg;j++)
1537 subcall_last_arg = lua_gettop(L);
1540 for(i=0;i<bases_count;i++) {
1542#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1543 lua_rawgeti(L,bases_table,i+1);
1545 if(lua_isnil(L,-1)) {
1559 assert(base_swig_type != 0);
1565 assert(lua_isuserdata(L, subcall_first_arg));
1566 assert(lua_istable(L,-1));
1567 lua_setmetatable(L,subcall_first_arg);
1568 assert(lua_gettop(L) == subcall_last_arg);
1569 result = func(L, base_swig_type,subcall_first_arg, ret);
1575 lua_pushvalue(L,original_metatable);
1576 lua_setmetatable(L,first_arg);
1578 to_remove = subcall_last_arg - last_arg;
1579 for(j=0;j<to_remove;j++)
1580 lua_remove(L,last_arg+1);
1583 lua_pop(L, lua_gettop(L) - last_arg);
1585 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1599 int bases_search_result;
1600 int substack_start = lua_gettop(L)-2;
1601 assert(first_arg == substack_start+1);
1602 lua_checkstack(L,5);
1603 assert(lua_isuserdata(L,-2));
1604 lua_getmetatable(L,-2);
1605 assert(lua_istable(L,-1));
1609 if (lua_iscfunction(L,-1))
1611 lua_pushvalue(L,substack_start+1);
1612 lua_pushvalue(L,substack_start+2);
1623 return bases_search_result;
1637 int bases_search_result;
1638 int substack_start = lua_gettop(L)-2;
1639 assert(first_arg == substack_start+1);
1640 lua_checkstack(L,5);
1641 assert(lua_isuserdata(L,-2));
1642 lua_getmetatable(L,-2);
1643 assert(lua_istable(L,-1));
1645 assert(lua_istable(L,-1));
1647 lua_pushvalue(L,substack_start+2);
1650 if (lua_iscfunction(L,-1))
1652 lua_pushvalue(L,substack_start+1);
1662 assert(lua_istable(L,-1));
1663 lua_pushvalue(L,substack_start+2);
1666 if (lua_isfunction(L,-1))
1678 return bases_search_result;
1693 assert(lua_isuserdata(L,1));
1718 int bases_search_result;
1719 int substack_start = lua_gettop(L) - 3;
1720 lua_checkstack(L,5);
1721 assert(lua_isuserdata(L,substack_start+1));
1722 lua_getmetatable(L,substack_start+1);
1723 assert(lua_istable(L,-1));
1728 if (lua_istable(L,-1))
1731 lua_pushvalue(L,substack_start+2);
1734 if (lua_iscfunction(L,-1))
1736 lua_pushvalue(L,substack_start+1);
1737 lua_pushvalue(L,substack_start+3);
1739 lua_remove(L,substack_start+4);
1749 if (lua_iscfunction(L,-1))
1751 lua_pushvalue(L,substack_start+1);
1752 lua_pushvalue(L,substack_start+2);
1753 lua_pushvalue(L,substack_start+3);
1765 assert(lua_gettop(L) == substack_start + 3);
1766 return bases_search_result;
1783 assert(lua_isuserdata(L,1));
1788 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1803 assert(lua_isuserdata(L,-1));
1809 if (clss && clss->destructor)
1811 clss->destructor(usr->ptr);
1823 assert(lua_isuserdata(L,1));
1826 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->type->str, userData->ptr);
1836 assert(lua_isuserdata(L,-1));
1850 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1855 result=(usr1->ptr==usr2->ptr);
1856 lua_pushboolean(L,result);
1884 lua_pushstring(L,
"SWIG");
1889 lua_pushstring(L,
".library");
1893 lua_pushstring(L,
"inheritable_metamethods");
1901 lua_rawset(L,LUA_REGISTRYINDEX);
1908 lua_pushstring(L,
"SWIG");
1909 lua_rawget(L,LUA_REGISTRYINDEX);
1910 if (!lua_istable(L,-1))
1915 lua_pushstring(L,
"SWIG");
1916 lua_rawget(L,LUA_REGISTRYINDEX);
1923 lua_pushstring(L,
".library");
1925 assert( !lua_isnil(L,-1) );
1926 lua_pushstring(L,
"inheritable_metamethods");
1938 lua_pushstring(L,cname);
1954 for(i=0;clss->base_names[i];i++)
1956 if (clss->bases[i]==0)
1965#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1967SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1971 while (lua_next(L,source) != 0) {
1974 lua_pushvalue(L,-2);
1975 lua_pushvalue(L,-2);
1976 lua_rawset(L, target);
1983SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1986 lua_pushstring(L,
name);
1987 lua_rawget(L,original);
1988 int original_table = lua_gettop(L);
1989 lua_pushstring(L,
name);
1991 int base_table = lua_gettop(L);
1992 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
2001 assert(lua_istable(L,-1));
2002 int original = lua_gettop(L);
2004 int base = lua_gettop(L);
2005 SWIG_Lua_merge_tables(L,
".fn", original, base );
2006 SWIG_Lua_merge_tables(L,
".set", original, base );
2007 SWIG_Lua_merge_tables(L,
".get", original, base );
2016 for(i=0;clss->base_names[i];i++)
2018 if (clss->bases[i]==0)
2024 SWIG_Lua_class_squash_base(L, clss->bases[i]);
2030#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2034 assert(lua_istable(L,-1));
2036 assert(lua_istable(L,-1));
2042 assert(lua_istable(L,-1));
2053 assert(lua_istable(L,-1));
2055 for(i=0;clss->bases[i];i++)
2069 size_t bases_count = 0;
2072 assert(lua_istable(L,-1));
2073 for(i=0;clss->bases[i];i++)
2077 assert(lua_istable(L,-1));
2078 lua_rawseti(L,-2,i+1);
2084 for(i=0;clss->attributes[i].name;i++){
2085 SWIG_Lua_add_variable(L,clss->attributes[i].name,clss->attributes[i].getmethod,clss->attributes[i].setmethod);
2089 assert(lua_istable(L,-1));
2090 for(i=0;clss->methods[i].name;i++){
2098 if(clss->metatable) {
2099 for(i=0;clss->metatable[i].name;i++) {
2104#if !defined(SWIG_LUA_SQUASH_BASES)
2146 lua_pushvalue(L, metamethod_name_idx);
2160 for(i=0;clss->bases[i];i++)
2175 int metamethod_name_idx;
2179 lua_checkstack(L,5);
2180 numargs = lua_gettop(L);
2183 lua_pushvalue(L, lua_upvalueindex(1));
2184 metamethod_name_idx = lua_gettop(L);
2186 lua_pushvalue(L, lua_upvalueindex(2));
2193 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2200 lua_call(L, numargs, LUA_MULTRET);
2201 return lua_gettop(L);
2216 assert(lua_isstring(L,-1));
2218 key_index = lua_gettop(L);
2221 lua_pushvalue(L,key_index);
2222 lua_gettable(L,metatable_index);
2223 if( !lua_isnil(L,-1) ) {
2230 for(i=0;clss->bases[i];i++)
2234 lua_pushvalue(L, key_index);
2236 if( !lua_isnil(L,-1) ) {
2237 lua_pushvalue(L, key_index);
2240 lua_pushvalue(L, key_index);
2241 lua_pushlightuserdata(L, clss);
2244 lua_rawset(L, metatable_index);
2259 int metatable_index;
2260 int metamethods_info_index;
2261 int tostring_undefined;
2262 int eq_undefined = 0;
2265 metatable_index = lua_gettop(L);
2267 assert(lua_istable(L,-1));
2268 metamethods_info_index = lua_gettop(L);
2270 while(lua_next(L, metamethods_info_index) != 0 ) {
2272 const int is_inheritable = lua_toboolean(L,-2);
2275 if(is_inheritable) {
2283 lua_pushstring(L,
"__tostring");
2284 lua_pushvalue(L,-1);
2285 lua_rawget(L,metatable_index);
2286 tostring_undefined = lua_isnil(L,-1);
2288 if( tostring_undefined ) {
2290 lua_rawset(L, metatable_index);
2296 lua_pushstring(L,
"__eq");
2297 lua_pushvalue(L,-1);
2298 lua_rawget(L,metatable_index);
2299 eq_undefined = lua_isnil(L,-1);
2301 if( eq_undefined ) {
2303 lua_rawset(L, metatable_index);
2317 lua_checkstack(L,5);
2318 assert(lua_istable(L,-1));
2319 assert(strcmp(clss->name, clss->cls_static->name) == 0);
2323 assert(lua_istable(L,-1));
2329 if (clss->constructor)
2331 lua_getmetatable(L,-1);
2332 assert(lua_istable(L,-1));
2337 assert(lua_istable(L,-1));
2342 assert( lua_gettop(L) == begin );
2354 lua_pushstring(L,clss->fqname);
2356 if(!lua_isnil(L,-1)) {
2358 assert(lua_gettop(L)==begin);
2363 for(i=0;clss->bases[i];i++)
2369 lua_pushstring(L,clss->fqname);
2371#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2378 for(i=0;clss->bases[i];i++)
2383 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2390 lua_pushstring(L,
".type");
2391 lua_pushstring(L,clss->fqname);
2394 lua_pushstring(L,
".bases");
2398 lua_pushstring(L,
".get");
2402 lua_pushstring(L,
".set");
2406 lua_pushstring(L,
".fn");
2418 assert(lua_gettop(L) == begin);
2420#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2422 SWIG_Lua_class_squash_bases(L,clss);
2427 assert( lua_gettop(L) == begin );
2433 assert(lua_istable(L,-1));
2447 begin = lua_gettop(L);
2448 lua_pushstring(L,clss->cls_static->name);
2450 assert(lua_istable(L,-1));
2451 lua_getmetatable(L,-1);
2452 assert(lua_istable(L,-1));
2453 lua_pushstring(L,
".instance");
2456 assert(lua_istable(L,-1));
2457 lua_pushstring(L,
".static");
2458 lua_pushvalue(L, -4);
2459 assert(lua_istable(L,-1));
2463 assert(lua_gettop(L) == begin);
2467#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2474 lua_pushstring(L,clss->fqname);
2476 if(!lua_isnil(L,-1)) {
2478 assert(lua_gettop(L)==begin);
2483 for(i=0;clss->bases[i];i++)
2485 SWIG_Lua_elua_class_register_instance(L,clss->bases[i]);
2489 lua_pushstring(L,clss->fqname);
2490 assert(clss->metatable);
2491 lua_pushrotable(L, (
void*)(clss->metatable));
2494 assert(lua_gettop(L) == begin);
2505 if (type->clientdata)
2508 if (lua_istable(L,-1))
2510 lua_setmetatable(L,-2);
2531#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2544 if (lua_isnil(L,index))
2549 if (lua_islightuserdata(L,index))
2551 *ptr=lua_touserdata(L,index);
2590 int argnum,
const char *func_name){
2593 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2594 func_name,(type && type->str)?type->str:
"void*",argnum);
2607 memcpy(raw->data,ptr,size);
2617 if (type==0 || type==raw->type)
2619 memcpy(ptr,raw->data,size);
2629 if (lua_isuserdata(L,tp))
2632 if (usr && usr->type && usr->type->str)
2634 return "userdata (unknown type)";
2636 return lua_typename(L,lua_type(L,tp));
2650#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2655 for (i = 0; constants[i].type; i++) {
2656 switch(constants[i].type) {
2658 lua_pushstring(L,constants[i].
name);
2659 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2663 lua_pushstring(L,constants[i].
name);
2664 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2668 lua_pushstring(L,constants[i].
name);
2670 char c = (char)constants[i].lvalue;
2671 lua_pushlstring(L,&c,1);
2676 lua_pushstring(L,constants[i].
name);
2677 lua_pushstring(L,(
char *) constants[i].pvalue);
2681 lua_pushstring(L,constants[i].
name);
2686 lua_pushstring(L,constants[i].
name);
2687 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2701#ifndef SWIG_DOSTRING_FAIL
2702#define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2712 if (str==0 || str[0]==0)
return 0;
2714#if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2715 ok=luaL_dostring(L,str);
2717 ok=lua_dostring(L,str);
2735#define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2736#define SWIGTYPE_p_char swig_types[1]
2737#define SWIGTYPE_p_double swig_types[2]
2738#define SWIGTYPE_p_f_double_double__int swig_types[3]
2739#define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2740#define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2741#define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2742#define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2743#define SWIGTYPE_p_int swig_types[8]
2744#define SWIGTYPE_p_p_char swig_types[9]
2745#define SWIGTYPE_p_p_double swig_types[10]
2746#define SWIGTYPE_p_unsigned_int swig_types[11]
2749#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2750#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2754#define SWIG_name "plplotluac"
2755#define SWIG_init luaopen_plplotluac
2756#define SWIG_init_user luaopen_plplotluac_user
2758#define SWIG_LUACODE luaopen_plplotluac_luacode
2763#define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2764#define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2768#define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2769 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2771 for ( i = 0; i < size; i++ ) { \
2772 lua_rawgeti( L, index, i + 1 ); \
2773 if ( lua_isnumber( L, -1 ) ) { \
2774 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2783 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2786 if ( !lua_istable( L, index ) ) { \
2787 lua_pushstring( L, "expected a table" ); \
2790 *size = SWIG_itable_size( L, index ); \
2791 if ( *size < 1 ) { \
2792 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2793 array[0] = (TYPE) 0; \
2796 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2797 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2798 lua_pushstring( L, "table must contain numbers" ); \
2799 LUA_FREE_ARRAY( array ); \
2814#define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2815#define SWIG_FREE_ARRAY(PTR) delete[] PTR
2817#define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2818#define SWIG_FREE_ARRAY(PTR) free(PTR)
2825 lua_rawgeti(L,index,n+1);
2826 if (lua_isnil(L,-1))
break;
2838 while (lua_next(L, index) != 0) {
2846#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2847 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2849 for (i = 0; i < size; i++) {\
2850 lua_rawgeti(L,index,i+1);\
2851 if (lua_isnumber(L,-1)){\
2852 array[i] = (TYPE)lua_tonumber(L,-1);\
2861 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2863 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2864 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2867 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2868 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2869 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2870 SWIG_FREE_ARRAY(array);\
2875 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2878 if (!lua_istable(L,index)) {\
2879 SWIG_Lua_pusherrstring(L,"expected a table");\
2882 *size=SWIG_itable_size(L,index);\
2884 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2887 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2888 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2889 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2890 SWIG_FREE_ARRAY(array);\
2895 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2898 for (i = 0; i < size; i++){\
2899 lua_pushnumber(L,(lua_Number)array[i]);\
2900 lua_rawseti(L,-2,i+1); \
2917 for (i = 0; i < size; i++) {
2918 lua_rawgeti(L,index,i+1);
2919 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2943 if (!lua_istable(L,index)) {
2963 for (i = 0; i < size; i++){
2965 lua_rawseti(L,-2,i+1);
2980 if ( !lua_istable( L, index ) )
2982 lua_pushstring( L,
"expected a table" );
2988 lua_pushstring( L,
"table appears to be empty" );
2992 for ( i = 0; i < *nx; i++ )
2995 lua_rawgeti( L, index, 1 );
2996 if ( !lua_istable( L, -1 ) )
2999 lua_pushstring( L,
"expected a table" );
3006 lua_pushstring( L,
"table appears to be empty" );
3012 for ( i = 0; i < *nx; i++ )
3014 lua_rawgeti( L, index, i + 1 );
3015 if ( !lua_istable( L, -1 ) )
3018 lua_pushstring( L,
"expected a table" );
3019 for ( j = 0; j < *ny; j++ )
3027 lua_pushstring( L,
"inconsistent table sizes" );
3028 for ( j = 0; j < i; j++ )
3034 for ( j = 0; j < *ny; j++ )
3036 lua_rawgeti( L, -1, j + 1 );
3037 if ( lua_isnumber( L, -1 ) )
3039 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
3044 lua_pushstring( L,
"table must contain numbers" );
3045 for ( j = 0; j < i + 1; j++ )
3066 PLFLT *xtemp, *ytemp;
3072 fprintf( stderr,
"Lua state is not set!" );
3078 lua_pushnumber(
myL, n );
3079 SWIG_write_double_num_array(
myL, x, n );
3080 SWIG_write_double_num_array(
myL, y, n );
3083 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3084 fprintf( stderr,
"error running function `%s':%s",
3088 if ( !lua_istable(
myL, -2 ) )
3090 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3093 if ( !lua_istable(
myL, -1 ) )
3095 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3098 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3099 if ( !xtemp || len != n )
3101 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3104 for ( i = 0; i < n; i++ )
3108 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3109 if ( !ytemp || len != n )
3111 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3114 for ( i = 0; i < n; i++ )
3149 fprintf( stderr,
"Lua state is not set!" );
3155 lua_pushnumber(
myL, x );
3156 lua_pushnumber(
myL, y );
3159 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3160 fprintf( stderr,
"error running function `%s':%s",
3164 if ( !lua_isnumber(
myL, -2 ) )
3166 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3169 if ( !lua_isnumber(
myL, -1 ) )
3171 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3174 *tx = lua_tonumber(
myL, -2 );
3175 *ty = lua_tonumber(
myL, -1 );
3193 fprintf( stderr,
"Lua state is not set!" );
3199 lua_pushnumber(
myL, x );
3200 lua_pushnumber(
myL, y );
3203 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3204 fprintf( stderr,
"error running function `%s':%s",
3208 if ( !lua_isnumber(
myL, -2 ) )
3210 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3213 if ( !lua_isnumber(
myL, -1 ) )
3215 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3218 *tx = lua_tonumber(
myL, -2 );
3219 *ty = lua_tonumber(
myL, -1 );
3232 fprintf( stderr,
"Lua state is not set!" );
3238 lua_pushnumber(
myL, axis );
3242 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3243 fprintf( stderr,
"error running function `%s':%s",
3247 if ( !lua_isstring(
myL, -1 ) )
3249 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3252 strncpy( label, lua_tostring(
myL, -1 ), length );
3264 int ret = lua_isstring(L, idx);
3266 ret = lua_isnil(L, idx);
3280 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3286 arg2 = (int)lua_tonumber(L, 2);
3287 if (arg1) (arg1)->type = arg2;
3309 result = (int) ((arg1)->type);
3310 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3326 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3333 arg2 = (
unsigned int)lua_tonumber(L, 2);
3334 if (arg1) (arg1)->state = arg2;
3347 unsigned int result;
3356 result = (
unsigned int) ((arg1)->state);
3357 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3373 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3380 arg2 = (
unsigned int)lua_tonumber(L, 2);
3381 if (arg1) (arg1)->keysym = arg2;
3394 unsigned int result;
3403 result = (
unsigned int) ((arg1)->keysym);
3404 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3420 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3427 arg2 = (
unsigned int)lua_tonumber(L, 2);
3428 if (arg1) (arg1)->button = arg2;
3441 unsigned int result;
3450 result = (
unsigned int) ((arg1)->button);
3451 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3467 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3473 arg2 = (
PLINT)lua_tonumber(L, 2);
3474 if (arg1) (arg1)->subwindow = arg2;
3496 result = (
PLINT) ((arg1)->subwindow);
3497 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3509 char *arg2 = (
char *) (
char *)0 ;
3519 arg2 = (
char *)lua_tostring(L, 2);
3522 strncpy((
char*)arg1->string, (
const char *)arg2, 16-1);
3523 arg1->string[16-1] = 0;
3525 arg1->string[0] = 0;
3549 result = (
char *)(
char *) ((arg1)->
string);
3550 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3566 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3572 arg2 = (int)lua_tonumber(L, 2);
3573 if (arg1) (arg1)->pX = arg2;
3595 result = (int) ((arg1)->pX);
3596 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3612 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3618 arg2 = (int)lua_tonumber(L, 2);
3619 if (arg1) (arg1)->pY = arg2;
3641 result = (int) ((arg1)->pY);
3642 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3658 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3664 arg2 = (
PLFLT)lua_tonumber(L, 2);
3665 if (arg1) (arg1)->dX = arg2;
3687 result = (
PLFLT) ((arg1)->dX);
3688 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3704 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3710 arg2 = (
PLFLT)lua_tonumber(L, 2);
3711 if (arg1) (arg1)->dY = arg2;
3733 result = (
PLFLT) ((arg1)->dY);
3734 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3750 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3756 arg2 = (
PLFLT)lua_tonumber(L, 2);
3757 if (arg1) (arg1)->wX = arg2;
3779 result = (
PLFLT) ((arg1)->wX);
3780 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3796 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3802 arg2 = (
PLFLT)lua_tonumber(L, 2);
3803 if (arg1) (arg1)->wY = arg2;
3825 result = (
PLFLT) ((arg1)->wY);
3826 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3855 assert(lua_istable(L,1));
3857 assert(!lua_isnil(L,-1));
3859 lua_call(L,lua_gettop(L)-1,1);
3907static swig_lua_class _wrap_class_PLGraphicsIn = {
"PLGraphicsIn",
"PLGraphicsIn", &
SWIGTYPE_p_PLGraphicsIn,
_proxy__wrap_new_PLGraphicsIn,
swig_delete_PLGraphicsIn,
swig_PLGraphicsIn_methods,
swig_PLGraphicsIn_attributes, &
swig_PLGraphicsIn_Sf_SwigStatic,
swig_PLGraphicsIn_meta,
swig_PLGraphicsIn_bases,
swig_PLGraphicsIn_base_names };
3915 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3916 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3917 arg1 = (
PLINT)lua_tonumber(L, 1);
3918 arg2 = (
PLINT)lua_tonumber(L, 2);
3937 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3938 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3939 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3940 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3941 arg1 = (
PLFLT)lua_tonumber(L, 1);
3942 arg2 = (
PLFLT)lua_tonumber(L, 2);
3943 arg3 = (
PLFLT)lua_tonumber(L, 3);
3944 arg4 = (
PLINT)lua_tonumber(L, 4);
3961 arg1 = (
PLINT)lua_tonumber(L, 1);
3992 arg1 = (
PLFLT)lua_tonumber(L, 1);
3993 arg2 = (
PLFLT)lua_tonumber(L, 2);
3994 arg3 = (
PLFLT)lua_tonumber(L, 3);
3995 arg4 = (
PLFLT)lua_tonumber(L, 4);
3996 arg5 = (
PLFLT)lua_tonumber(L, 5);
3997 arg6 = (
PLFLT)lua_tonumber(L, 6);
3998 arg7 = (
PLFLT)lua_tonumber(L, 7);
3999 arg8 = (
PLBOOL)lua_tonumber(L, 8);
4000 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4014 char *arg3 = (
char *) 0 ;
4017 char *arg6 = (
char *) 0 ;
4030 arg1 = (
PLFLT)lua_tonumber(L, 1);
4031 arg2 = (
PLFLT)lua_tonumber(L, 2);
4032 arg3 = (
char *)lua_tostring(L, 3);
4033 arg4 = (
PLFLT)lua_tonumber(L, 4);
4034 arg5 = (
PLINT)lua_tonumber(L, 5);
4035 arg6 = (
char *)lua_tostring(L, 6);
4036 arg7 = (
PLFLT)lua_tonumber(L, 7);
4037 arg8 = (
PLINT)lua_tonumber(L, 8);
4038 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4060 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4066 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4069 if ( temp3 !=
Alen )
4071 lua_pushfstring( L,
"Tables must be of same length." );
4075 arg4 = (
PLINT)lua_tonumber(L, 3);
4076 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4122 arg7 = (
PLFLT)lua_tonumber(L, 1);
4123 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4125 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4126 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4127 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4128 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4129 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4130 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4155 char *arg1 = (
char *) 0 ;
4158 char *arg4 = (
char *) 0 ;
4169 arg1 = (
char *)lua_tostring(L, 1);
4170 arg2 = (
PLFLT)lua_tonumber(L, 2);
4171 arg3 = (
PLINT)lua_tonumber(L, 3);
4172 arg4 = (
char *)lua_tostring(L, 4);
4173 arg5 = (
PLFLT)lua_tonumber(L, 5);
4174 arg6 = (
PLINT)lua_tonumber(L, 6);
4175 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4187 char *arg1 = (
char *) 0 ;
4188 char *arg2 = (
char *) 0 ;
4191 char *arg5 = (
char *) 0 ;
4192 char *arg6 = (
char *) 0 ;
4195 char *arg9 = (
char *) 0 ;
4196 char *arg10 = (
char *) 0 ;
4213 arg1 = (
char *)lua_tostring(L, 1);
4214 arg2 = (
char *)lua_tostring(L, 2);
4215 arg3 = (
PLFLT)lua_tonumber(L, 3);
4216 arg4 = (
PLINT)lua_tonumber(L, 4);
4217 arg5 = (
char *)lua_tostring(L, 5);
4218 arg6 = (
char *)lua_tostring(L, 6);
4219 arg7 = (
PLFLT)lua_tonumber(L, 7);
4220 arg8 = (
PLINT)lua_tonumber(L, 8);
4221 arg9 = (
char *)lua_tostring(L, 9);
4222 arg10 = (
char *)lua_tostring(L, 10);
4223 arg11 = (
PLFLT)lua_tonumber(L, 11);
4224 arg12 = (
PLINT)lua_tonumber(L, 12);
4225 plbox3((
char const *)arg1,(
char const *)arg2,arg3,arg4,(
char const *)arg5,(
char const *)arg6,arg7,arg8,(
char const *)arg9,(
char const *)arg10,arg11,arg12);
4250 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4251 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4252 arg1 = (
PLFLT)lua_tonumber(L, 1);
4253 arg2 = (
PLFLT)lua_tonumber(L, 2);
4256 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4257 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4258 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4287 arg1 = (
PLINT)lua_tonumber(L, 1);
4304 arg1 = (
PLFLT)lua_tonumber(L, 1);
4330 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4331 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4332 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4333 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4334 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4335 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4336 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4337 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4338 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4339 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4340 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4341 arg1 = (
PLFLT)lua_tonumber(L, 1);
4342 arg2 = (
PLFLT)lua_tonumber(L, 2);
4343 arg3 = (
PLFLT)lua_tonumber(L, 3);
4344 arg4 = (
PLINT)lua_tonumber(L, 4);
4345 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4346 arg6 = (
PLINT)lua_tonumber(L, 6);
4347 arg7 = (
PLINT)lua_tonumber(L, 7);
4348 arg8 = (
PLINT)lua_tonumber(L, 8);
4349 arg9 = (
PLINT)lua_tonumber(L, 9);
4350 arg10 = (
PLINT)lua_tonumber(L, 10);
4351 arg11 = (
PLFLT)lua_tonumber(L, 11);
4352 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4380 cgrid111.
xg = cgrid111.yg = cgrid111.zg = NULL;
4381 cgrid111.nx = cgrid111.ny = cgrid111.nz = 0;
4382 cgrid211.xg = cgrid211.yg = cgrid211.zg = NULL;
4383 cgrid211.nx = cgrid211.ny = 0;
4405 arg4 = (
PLINT)lua_tonumber(L, 2);
4406 arg5 = (
PLINT)lua_tonumber(L, 3);
4407 arg6 = (
PLINT)lua_tonumber(L, 4);
4408 arg7 = (
PLINT)lua_tonumber(L, 5);
4411 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4416 if(lua_gettop(L)>=7){
4421 if ( lua_isstring( L, 7 ) )
4423 const char* funcstr = lua_tostring( L, 7 );
4424 if ( strcmp(
"pltr0", funcstr ) == 0 )
4428 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4432 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4447 if(lua_gettop(L)>=8){
4452 lua_pushstring( L,
"xg" );
4453 lua_gettable( L, 8 );
4454 if ( !lua_istable( L, -1 ) )
4457 lua_pushstring( L,
"expected a table xg" );
4460 lua_rawgeti( L, -1, 1 );
4461 if ( lua_istable( L, -1 ) )
4463 else if ( lua_isnumber( L, -1 ) )
4469 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4473 if ( gridmode == 1 )
4475 cgrid111.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4483 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4496 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4499 lua_pushfstring( L,
"Vectors must match matrix." );
4507 lua_pushstring( L,
"yg" );
4508 lua_gettable( L, 8 );
4509 if ( !lua_istable( L, -1 ) )
4512 lua_pushstring( L,
"expected a table yg" );
4515 lua_rawgeti( L, -1, 1 );
4516 if ( gridmode == 2 )
4518 if ( !lua_istable( L, -1 ) )
4522 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4528 if ( !lua_isnumber( L, -1 ) )
4532 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4537 if ( gridmode == 1 )
4539 cgrid111.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4547 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4560 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4563 lua_pushfstring( L,
"Vectors must match matrix." );
4570 if ( gridmode == 1 )
4572 else if ( gridmode == 2 )
4576 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4583 for ( i = 0; i < ii1; i++ )
4602 for ( i = 0; i <
Xlen; i++ )
4608 for ( i = 0; i <
Xlen; i++ )
4621 for ( i = 0; i < ii1; i++ )
4640 for ( i = 0; i <
Xlen; i++ )
4646 for ( i = 0; i <
Xlen; i++ )
4675 arg1 = (
PLINT)lua_tonumber(L, 1);
4676 arg2 = (
PLINT)lua_tonumber(L, 2);
4677 arg3 = (
PLINT)lua_tonumber(L, 3);
4678 arg4 = (
PLINT)lua_tonumber(L, 4);
4679 arg5 = (
PLINT)lua_tonumber(L, 5);
4680 arg6 = (
PLFLT)lua_tonumber(L, 6);
4681 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4683 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4699 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4700 arg1 = (
PLINT)lua_tonumber(L, 1);
4701 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4756 arg1 = (
PLFLT)lua_tonumber(L, 1);
4757 arg2 = (
PLFLT)lua_tonumber(L, 2);
4758 arg3 = (
PLFLT)lua_tonumber(L, 3);
4759 arg4 = (
PLFLT)lua_tonumber(L, 4);
4760 arg5 = (
PLINT)lua_tonumber(L, 5);
4761 arg6 = (
PLINT)lua_tonumber(L, 6);
4762 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4788 arg1 = (
PLFLT)lua_tonumber(L, 1);
4789 arg2 = (
PLFLT)lua_tonumber(L, 2);
4790 arg3 = (
PLFLT)lua_tonumber(L, 3);
4791 arg4 = (
PLFLT)lua_tonumber(L, 4);
4792 arg5 = (
PLINT)lua_tonumber(L, 5);
4793 arg6 = (
PLINT)lua_tonumber(L, 6);
4794 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4830 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4836 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4839 if ( temp3 !=
Alen )
4841 lua_pushfstring( L,
"Tables must be of same length." );
4846 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4849 if ( temp4 !=
Alen )
4851 lua_pushfstring( L,
"Tables must be of same length." );
4855 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4895 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4901 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4904 if ( temp3 !=
Alen )
4906 lua_pushfstring( L,
"Tables must be of same length." );
4911 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4914 if ( temp4 !=
Alen )
4916 lua_pushfstring( L,
"Tables must be of same length." );
4920 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4972 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4978 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4981 if ( temp3 !=
Alen )
4983 lua_pushfstring( L,
"Tables must be of same length." );
4987 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5021 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5027 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5030 if ( temp3 !=
Alen )
5032 lua_pushfstring( L,
"Tables must be of same length." );
5037 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5040 if ( temp4 !=
Alen )
5042 lua_pushfstring( L,
"Tables must be of same length." );
5046 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5083 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5086 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5092 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5095 if ( temp3 !=
Alen )
5097 lua_pushfstring( L,
"Tables must be of same length." );
5101 arg4 = (
PLFLT)lua_tonumber(L, 3);
5102 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5144 arg1 = (
PLINT)lua_tonumber(L, 1);
5161 arg1 = (
PLINT)lua_tonumber(L, 1);
5184 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5185 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5209 arg1 = (
PLINT)lua_tonumber(L, 1);
5212 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5213 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5214 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5241 arg1 = (
PLINT)lua_tonumber(L, 1);
5242 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5244 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5245 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5246 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5247 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5271 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5272 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5273 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5300 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5301 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5302 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5303 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5321 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5332 char *arg1 = (
char *) 0 ;
5342 lua_pushstring( L, arg1 );
5371 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5372 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5373 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5374 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5392 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5419 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5420 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5421 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5422 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5446 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5447 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5448 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5466 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5477 char *arg1 = (
char *) 0 ;
5487 lua_pushstring( L, arg1 );
5513 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5514 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5515 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5533 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5564 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5566 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5567 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5568 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5569 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5570 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5571 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5610 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5611 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5614 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5620 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5623 if ( temp2 !=
Alen )
5625 lua_pushfstring( L,
"Tables must be of same length." );
5631 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5636 lua_pushfstring( L,
"Tables must be of same length." );
5643 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5651 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5659 for ( i = 0; i <
Xlen; i++ )
5662 for ( i = 0; i <
Xlen; i++ )
5669 arg10 = (
PLINT)lua_tonumber(L, 6);
5670 arg11 = (
PLFLT)lua_tonumber(L, 7);
5671 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5679 for ( i = 0; i <
Xlen; i++ )
5681 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5682 lua_rawseti( L, -2, i + 1 );
5706 for ( i = 0; i <
Xlen; i++ )
5733 for ( i = 0; i <
Xlen; i++ )
5759 plgspa(arg1,arg2,arg3,arg4);
5761 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5762 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5763 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5764 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5782 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5793 char *arg1 = (
char *) 0 ;
5803 lua_pushstring( L, arg1 );
5830 plgvpd(arg1,arg2,arg3,arg4);
5832 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5833 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5834 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5835 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5860 plgvpw(arg1,arg2,arg3,arg4);
5862 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5863 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5864 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5865 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5886 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5887 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5908 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5909 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5930 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5931 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5956 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5961 arg3 = (
PLFLT)lua_tonumber(L, 2);
5962 arg4 = (
PLFLT)lua_tonumber(L, 3);
5963 arg5 = (
PLINT)lua_tonumber(L, 4);
5964 arg6 = (
PLINT)lua_tonumber(L, 5);
5965 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6000 arg1 = (
PLFLT)lua_tonumber(L, 1);
6001 arg2 = (
PLFLT)lua_tonumber(L, 2);
6002 arg3 = (
PLFLT)lua_tonumber(L, 3);
6003 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6005 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6006 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6007 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6042 arg1 = (
PLFLT)lua_tonumber(L, 1);
6043 arg2 = (
PLFLT)lua_tonumber(L, 2);
6044 arg3 = (
PLFLT)lua_tonumber(L, 3);
6045 arg4 = (
PLFLT)lua_tonumber(L, 4);
6046 pljoin(arg1,arg2,arg3,arg4);
6058 char *arg1 = (
char *) 0 ;
6059 char *arg2 = (
char *) 0 ;
6060 char *arg3 = (
char *) 0 ;
6066 arg1 = (
char *)lua_tostring(L, 1);
6067 arg2 = (
char *)lua_tostring(L, 2);
6068 arg3 = (
char *)lua_tostring(L, 3);
6069 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6100 char **arg20 = (
char **) 0 ;
6111 char **arg31 = (
char **) 0 ;
6168 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6169 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6170 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6171 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6172 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6173 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6174 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6175 arg3 = (
PLINT)lua_tonumber(L, 1);
6176 arg4 = (
PLINT)lua_tonumber(L, 2);
6177 arg5 = (
PLFLT)lua_tonumber(L, 3);
6178 arg6 = (
PLFLT)lua_tonumber(L, 4);
6179 arg7 = (
PLFLT)lua_tonumber(L, 5);
6180 arg8 = (
PLINT)lua_tonumber(L, 6);
6181 arg9 = (
PLINT)lua_tonumber(L, 7);
6182 arg10 = (
PLINT)lua_tonumber(L, 8);
6183 arg11 = (
PLINT)lua_tonumber(L, 9);
6184 arg12 = (
PLINT)lua_tonumber(L, 10);
6186 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6191 arg15 = (
PLFLT)lua_tonumber(L, 12);
6192 arg16 = (
PLFLT)lua_tonumber(L, 13);
6193 arg17 = (
PLFLT)lua_tonumber(L, 14);
6194 arg18 = (
PLFLT)lua_tonumber(L, 15);
6196 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6199 if ( temp19 !=
Alen )
6201 lua_pushfstring( L,
"Tables must be of same length." );
6211 lua_pushfstring( L,
"Tables must be of same length." );
6214 arg20 = malloc(
sizeof (
char* ) *
Alen );
6215 for ( i = 1; i <=
Alen; i++ )
6217 lua_rawgeti( L, 17, i );
6218 if ( lua_isstring( L, -1 ) )
6220 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6225 lua_pushfstring( L,
"Requires a sequence of strings." );
6232 if(lua_gettop(L)>=18){
6234 if ( lua_isnil( L, 18 ) )
6240 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6243 if ( temp21 !=
Alen )
6245 lua_pushfstring( L,
"Tables must be of same length." );
6251 if(lua_gettop(L)>=19){
6253 if ( lua_isnil( L, 19 ) )
6259 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6262 if ( temp22 !=
Alen )
6264 lua_pushfstring( L,
"Tables must be of same length." );
6270 if(lua_gettop(L)>=20){
6272 if ( lua_isnil( L, 20 ) )
6278 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6281 if ( temp23 !=
Alen )
6283 lua_pushfstring( L,
"Tables must be of same length." );
6289 if(lua_gettop(L)>=21){
6291 if ( lua_isnil( L, 21 ) )
6297 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6300 if ( temp24 !=
Alen )
6302 lua_pushfstring( L,
"Tables must be of same length." );
6308 if(lua_gettop(L)>=22){
6310 if ( lua_isnil( L, 22 ) )
6316 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6319 if ( temp25 !=
Alen )
6321 lua_pushfstring( L,
"Tables must be of same length." );
6327 if(lua_gettop(L)>=23){
6329 if ( lua_isnil( L, 23 ) )
6335 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6338 if ( temp26 !=
Alen )
6340 lua_pushfstring( L,
"Tables must be of same length." );
6346 if(lua_gettop(L)>=24){
6348 if ( lua_isnil( L, 24 ) )
6354 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6357 if ( temp27 !=
Alen )
6359 lua_pushfstring( L,
"Tables must be of same length." );
6365 if(lua_gettop(L)>=25){
6367 if ( lua_isnil( L, 25 ) )
6373 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6376 if ( temp28 !=
Alen )
6378 lua_pushfstring( L,
"Tables must be of same length." );
6384 if(lua_gettop(L)>=26){
6386 if ( lua_isnil( L, 26 ) )
6392 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6395 if ( temp29 !=
Alen )
6397 lua_pushfstring( L,
"Tables must be of same length." );
6403 if(lua_gettop(L)>=27){
6405 if ( lua_isnil( L, 27 ) )
6411 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6414 if ( temp30 !=
Alen )
6416 lua_pushfstring( L,
"Tables must be of same length." );
6422 if(lua_gettop(L)>=28){
6429 lua_pushfstring( L,
"Tables must be of same length." );
6432 arg31 = malloc(
sizeof (
char* ) *
Alen );
6433 for ( i = 1; i <=
Alen; i++ )
6435 lua_rawgeti( L, 28, i );
6436 if ( lua_isstring( L, -1 ) )
6438 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6443 lua_pushfstring( L,
"Requires a sequence of strings." );
6451 pllegend(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,(
int const *)arg14,arg15,arg16,arg17,arg18,(
int const *)arg19,(
char const **)arg20,(
int const *)arg21,(
int const *)arg22,(
double const *)arg23,(
double const *)arg24,(
int const *)arg25,(
int const *)arg26,(
double const *)arg27,(
int const *)arg28,(
double const *)arg29,(
int const *)arg30,(
char const **)arg31);
6453 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6454 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6464 free( arg20 ); arg20 = NULL;
6500 free( arg31 ); arg31 = NULL;
6515 free( arg20 ); arg20 = NULL;
6551 free( arg31 ); arg31 = NULL;
6578 char **arg18 = (
char **) 0 ;
6580 char **arg20 = (
char **) 0 ;
6595 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6596 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6597 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6598 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6599 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6600 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6601 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6602 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6603 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6604 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6605 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6606 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6607 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6608 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6609 arg3 = (
PLINT)lua_tonumber(L, 1);
6610 arg4 = (
PLINT)lua_tonumber(L, 2);
6611 arg5 = (
PLFLT)lua_tonumber(L, 3);
6612 arg6 = (
PLFLT)lua_tonumber(L, 4);
6613 arg7 = (
PLFLT)lua_tonumber(L, 5);
6614 arg8 = (
PLFLT)lua_tonumber(L, 6);
6615 arg9 = (
PLINT)lua_tonumber(L, 7);
6616 arg10 = (
PLINT)lua_tonumber(L, 8);
6617 arg11 = (
PLINT)lua_tonumber(L, 9);
6618 arg12 = (
PLFLT)lua_tonumber(L, 10);
6619 arg13 = (
PLFLT)lua_tonumber(L, 11);
6620 arg14 = (
PLINT)lua_tonumber(L, 12);
6621 arg15 = (
PLFLT)lua_tonumber(L, 13);
6623 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6634 lua_pushfstring( L,
"Tables must be of same length." );
6637 arg18 = malloc(
sizeof (
char* ) *
Alen );
6638 for ( i = 1; i <=
Alen; i++ )
6640 lua_rawgeti( L, 15, i );
6641 if ( lua_isstring( L, -1 ) )
6643 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6648 lua_pushfstring( L,
"Requires a sequence of strings." );
6660 arg20 = malloc(
sizeof (
char* ) *
Alen );
6661 for ( i = 1; i <=
Alen; i++ )
6663 lua_rawgeti( L, 16, i );
6664 if ( lua_isstring( L, -1 ) )
6666 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6671 lua_pushfstring( L,
"Requires a sequence of strings." );
6678 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6681 if ( temp21 !=
Alen )
6683 lua_pushfstring( L,
"Tables must be of same length." );
6688 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6691 if ( temp22 !=
Alen )
6693 lua_pushfstring( L,
"Tables must be of same length." );
6700 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6703 if ( temp23 !=
Alen )
6705 lua_pushfstring( L,
"Tables must be of same length." );
6711 for ( i = 0; i <
Xlen; i++ )
6712 if ( arg23[i] >
Ylen )
6721 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6723 lua_pushfstring( L,
"Vectors must match matrix." );
6727 plcolorbar(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,(
int const *)arg17,(
char const **)arg18,arg19,(
char const **)arg20,(
double const *)arg21,(
int const *)arg22,(
int const *)arg23,(
double const **)arg24);
6729 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6730 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6737 free( arg18 ); arg18 = NULL;
6743 free( arg20 ); arg20 = NULL;
6760 for ( i = 0; i < ii24; i++ )
6774 free( arg18 ); arg18 = NULL;
6780 free( arg20 ); arg20 = NULL;
6797 for ( i = 0; i < ii24; i++ )
6814 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6815 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6816 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6817 arg1 = (
PLFLT)lua_tonumber(L, 1);
6818 arg2 = (
PLFLT)lua_tonumber(L, 2);
6819 arg3 = (
PLFLT)lua_tonumber(L, 3);
6840 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6846 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6849 if ( temp3 !=
Alen )
6851 lua_pushfstring( L,
"Tables must be of same length." );
6855 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6889 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6895 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6898 if ( temp3 !=
Alen )
6900 lua_pushfstring( L,
"Tables must be of same length." );
6905 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6908 if ( temp4 !=
Alen )
6910 lua_pushfstring( L,
"Tables must be of same length." );
6914 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6948 arg1 = (
PLINT)lua_tonumber(L, 1);
6973 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6980 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6993 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6995 lua_pushfstring( L,
"Vectors must match matrix." );
6999 arg6 = (
PLINT)lua_tonumber(L, 4);
7000 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7013 for ( i = 0; i < ii3; i++ )
7032 for ( i = 0; i < ii3; i++ )
7058 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7065 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7078 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7080 lua_pushfstring( L,
"Vectors must match matrix." );
7084 arg6 = (
PLINT)lua_tonumber(L, 4);
7087 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7092 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7105 for ( i = 0; i < ii3; i++ )
7127 for ( i = 0; i < ii3; i++ )
7149 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7160 char *arg1 = (
char *) 0 ;
7164 char *arg5 = (
char *) 0 ;
7172 arg1 = (
char *)lua_tostring(L, 1);
7173 arg2 = (
PLFLT)lua_tonumber(L, 2);
7174 arg3 = (
PLFLT)lua_tonumber(L, 3);
7175 arg4 = (
PLFLT)lua_tonumber(L, 4);
7176 arg5 = (
char *)lua_tostring(L, 5);
7177 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7189 char *arg1 = (
char *) 0 ;
7193 char *arg5 = (
char *) 0 ;
7201 arg1 = (
char *)lua_tostring(L, 1);
7202 arg2 = (
PLFLT)lua_tonumber(L, 2);
7203 arg3 = (
PLFLT)lua_tonumber(L, 3);
7204 arg4 = (
PLFLT)lua_tonumber(L, 4);
7205 arg5 = (
char *)lua_tostring(L, 5);
7206 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7232 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7239 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7252 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7254 lua_pushfstring( L,
"Vectors must match matrix." );
7258 arg6 = (
PLINT)lua_tonumber(L, 4);
7259 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7260 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7273 for ( i = 0; i < ii3; i++ )
7292 for ( i = 0; i < ii3; i++ )
7318 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7325 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7338 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7340 lua_pushfstring( L,
"Vectors must match matrix." );
7344 arg6 = (
PLINT)lua_tonumber(L, 4);
7347 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7352 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7365 for ( i = 0; i < ii3; i++ )
7387 for ( i = 0; i < ii3; i++ )
7422 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7429 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7442 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7444 lua_pushfstring( L,
"Vectors must match matrix." );
7448 arg6 = (
PLINT)lua_tonumber(L, 4);
7451 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7456 arg9 = (
PLINT)lua_tonumber(L, 6);
7458 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7464 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7467 if ( temp12 !=
Alen )
7469 lua_pushfstring( L,
"Tables must be of same length." );
7473 plot3dcl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
7486 for ( i = 0; i < ii3; i++ )
7514 for ( i = 0; i < ii3; i++ )
7549 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7556 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7569 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7571 lua_pushfstring( L,
"Vectors must match matrix." );
7575 arg6 = (
PLINT)lua_tonumber(L, 4);
7578 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7583 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7596 for ( i = 0; i < ii3; i++ )
7618 for ( i = 0; i < ii3; i++ )
7649 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7650 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7653 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7660 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7673 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7675 lua_pushfstring( L,
"Vectors must match matrix." );
7679 arg6 = (
PLINT)lua_tonumber(L, 4);
7682 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7687 arg9 = (
PLINT)lua_tonumber(L, 6);
7689 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7695 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7698 if ( temp12 !=
Alen )
7700 lua_pushfstring( L,
"Tables must be of same length." );
7704 plsurf3dl((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,(
int const *)arg11,(
int const *)arg12);
7717 for ( i = 0; i < ii3; i++ )
7745 for ( i = 0; i < ii3; i++ )
7766 int *arg1 = (
int *) 0 ;
7767 char **arg2 = (
char **) 0 ;
7772 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7773 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7782 lua_rawgeti( L, 1, i );
7783 if ( lua_isnil( L, -1 ) )
7796 for ( i = 0; i < n; i++ )
7798 lua_rawgeti( L, 1, i );
7799 if ( lua_isstring( L, -1 ) )
7801 arg2[i] = (
char *) lua_tostring( L, -1 );
7806 lua_pushfstring( L,
"List items must be strings" );
7814 arg3 = (
PLINT)lua_tonumber(L, 2);
7816 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7840 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7846 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7849 if ( temp3 !=
Alen )
7851 lua_pushfstring( L,
"Tables must be of same length." );
7855 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7891 arg1 = (
PLINT)lua_tonumber(L, 1);
7892 arg2 = (
PLFLT)lua_tonumber(L, 2);
7893 arg3 = (
PLFLT)lua_tonumber(L, 3);
7894 arg4 = (
PLFLT)lua_tonumber(L, 4);
7895 arg5 = (
PLFLT)lua_tonumber(L, 5);
7896 plpath(arg1,arg2,arg3,arg4,arg5);
7918 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7924 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7927 if ( temp3 !=
Alen )
7929 lua_pushfstring( L,
"Tables must be of same length." );
7933 arg4 = (
PLINT)lua_tonumber(L, 3);
7934 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7970 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7976 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7979 if ( temp3 !=
Alen )
7981 lua_pushfstring( L,
"Tables must be of same length." );
7986 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7989 if ( temp4 !=
Alen )
7991 lua_pushfstring( L,
"Tables must be of same length." );
7995 arg5 = (
PLINT)lua_tonumber(L, 4);
7996 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8040 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8046 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8049 if ( temp3 !=
Alen )
8051 lua_pushfstring( L,
"Tables must be of same length." );
8056 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8059 if ( temp4 !=
Alen )
8061 lua_pushfstring( L,
"Tables must be of same length." );
8066 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8069 if ( temp5 <
Alen - 1 )
8071 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8075 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8076 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8118 arg1 = (
PLINT)lua_tonumber(L, 1);
8119 arg2 = (
PLINT)lua_tonumber(L, 2);
8136 arg1 = (
PLINT)lua_tonumber(L, 1);
8154 char *arg6 = (
char *) 0 ;
8163 arg1 = (
PLFLT)lua_tonumber(L, 1);
8164 arg2 = (
PLFLT)lua_tonumber(L, 2);
8165 arg3 = (
PLFLT)lua_tonumber(L, 3);
8166 arg4 = (
PLFLT)lua_tonumber(L, 4);
8167 arg5 = (
PLFLT)lua_tonumber(L, 5);
8168 arg6 = (
char *)lua_tostring(L, 6);
8169 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8191 char *arg11 = (
char *) 0 ;
8203 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8205 arg1 = (
PLFLT)lua_tonumber(L, 1);
8206 arg2 = (
PLFLT)lua_tonumber(L, 2);
8207 arg3 = (
PLFLT)lua_tonumber(L, 3);
8208 arg4 = (
PLFLT)lua_tonumber(L, 4);
8209 arg5 = (
PLFLT)lua_tonumber(L, 5);
8210 arg6 = (
PLFLT)lua_tonumber(L, 6);
8211 arg7 = (
PLFLT)lua_tonumber(L, 7);
8212 arg8 = (
PLFLT)lua_tonumber(L, 8);
8213 arg9 = (
PLFLT)lua_tonumber(L, 9);
8214 arg10 = (
PLFLT)lua_tonumber(L, 10);
8215 arg11 = (
char *)lua_tostring(L, 11);
8216 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8232 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8274 arg1 = (
PLFLT)lua_tonumber(L, 1);
8275 arg2 = (
PLFLT)lua_tonumber(L, 2);
8276 arg3 = (
PLFLT)lua_tonumber(L, 3);
8277 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8279 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8280 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8281 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8298 arg1 = (
PLFLT)lua_tonumber(L, 1);
8299 arg2 = (
PLFLT)lua_tonumber(L, 2);
8322 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8328 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8331 if ( temp2 !=
Alen )
8333 lua_pushfstring( L,
"Tables must be of same length." );
8338 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8341 if ( temp3 !=
Alen )
8343 lua_pushfstring( L,
"Tables must be of same length." );
8348 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8389 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8395 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8398 if ( temp2 !=
Alen )
8400 lua_pushfstring( L,
"Tables must be of same length." );
8405 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8408 if ( temp3 !=
Alen )
8410 lua_pushfstring( L,
"Tables must be of same length." );
8416 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8421 lua_pushfstring( L,
"Tables must be of same length." );
8426 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8465 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8466 arg1 = (
PLINT)lua_tonumber(L, 1);
8489 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8495 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8498 if ( temp2 !=
Alen )
8500 lua_pushfstring( L,
"Tables must be of same length." );
8505 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8508 if ( temp3 !=
Alen )
8510 lua_pushfstring( L,
"Tables must be of same length." );
8515 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8556 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8562 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8565 if ( temp2 !=
Alen )
8567 lua_pushfstring( L,
"Tables must be of same length." );
8572 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8575 if ( temp3 !=
Alen )
8577 lua_pushfstring( L,
"Tables must be of same length." );
8583 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8588 lua_pushfstring( L,
"Tables must be of same length." );
8593 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8645 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8646 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8649 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8655 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8658 if ( temp4 !=
Alen )
8660 lua_pushfstring( L,
"Tables must be of same length." );
8665 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8668 if ( temp5 !=
Alen )
8670 lua_pushfstring( L,
"Tables must be of same length." );
8675 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8678 if ( temp6 !=
Alen )
8680 lua_pushfstring( L,
"Tables must be of same length." );
8684 if(lua_gettop(L)>=6){
8686 if ( lua_isnil( L, 6 ) )
8692 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8695 if ( temp7 <
Alen - 1 )
8697 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8703 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8763 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8764 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8767 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8773 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8776 if ( temp4 !=
Alen )
8778 lua_pushfstring( L,
"Tables must be of same length." );
8783 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8786 if ( temp5 !=
Alen )
8788 lua_pushfstring( L,
"Tables must be of same length." );
8793 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8796 if ( temp6 !=
Alen )
8798 lua_pushfstring( L,
"Tables must be of same length." );
8803 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8806 if ( temp7 !=
Alen )
8808 lua_pushfstring( L,
"Tables must be of same length." );
8812 if(lua_gettop(L)>=7){
8814 if ( lua_isnil( L, 7 ) )
8820 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8823 if ( temp8 <
Alen - 1 )
8825 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8831 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8882 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
8883 arg1 = (
PLINT)lua_tonumber(L, 1);
8900 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8901 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8902 arg1 = (
PLFLT)lua_tonumber(L, 1);
8903 arg2 = (
PLFLT)lua_tonumber(L, 2);
8926 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8927 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8948 arg1 = (
PLINT)lua_tonumber(L, 1);
8949 arg2 = (
PLINT)lua_tonumber(L, 2);
8950 arg3 = (
PLINT)lua_tonumber(L, 3);
8951 arg4 = (
PLINT)lua_tonumber(L, 4);
8976 arg1 = (
PLINT)lua_tonumber(L, 1);
8977 arg2 = (
PLINT)lua_tonumber(L, 2);
8978 arg3 = (
PLINT)lua_tonumber(L, 3);
8979 arg4 = (
PLINT)lua_tonumber(L, 4);
8980 arg5 = (
PLFLT)lua_tonumber(L, 5);
8981 plscol0a(arg1,arg2,arg3,arg4,arg5);
9001 arg1 = (
PLINT)lua_tonumber(L, 1);
9002 arg2 = (
PLINT)lua_tonumber(L, 2);
9003 arg3 = (
PLINT)lua_tonumber(L, 3);
9022 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9023 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9024 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9025 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9026 arg1 = (
PLINT)lua_tonumber(L, 1);
9027 arg2 = (
PLINT)lua_tonumber(L, 2);
9028 arg3 = (
PLINT)lua_tonumber(L, 3);
9029 arg4 = (
PLFLT)lua_tonumber(L, 4);
9046 arg1 = (
PLINT)lua_tonumber(L, 1);
9062 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9063 arg1 = (
PLINT)lua_tonumber(L, 1);
9076 char *arg1 = (
char *) 0 ;
9080 arg1 = (
char *)lua_tostring(L, 1);
9081 plsdev((
char const *)arg1);
9103 arg1 = (
PLFLT)lua_tonumber(L, 1);
9104 arg2 = (
PLFLT)lua_tonumber(L, 2);
9105 arg3 = (
PLFLT)lua_tonumber(L, 3);
9106 arg4 = (
PLFLT)lua_tonumber(L, 4);
9133 arg1 = (
PLINT)lua_tonumber(L, 1);
9134 arg2 = (
PLINT)lua_tonumber(L, 2);
9135 arg3 = (
PLINT)lua_tonumber(L, 3);
9136 arg4 = (
PLINT)lua_tonumber(L, 4);
9137 arg5 = (
PLFLT)lua_tonumber(L, 5);
9138 arg6 = (
PLFLT)lua_tonumber(L, 6);
9139 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9155 arg1 = (
PLFLT)lua_tonumber(L, 1);
9178 arg1 = (
PLFLT)lua_tonumber(L, 1);
9179 arg2 = (
PLFLT)lua_tonumber(L, 2);
9180 arg3 = (
PLFLT)lua_tonumber(L, 3);
9181 arg4 = (
PLFLT)lua_tonumber(L, 4);
9204 arg1 = (
PLFLT)lua_tonumber(L, 1);
9205 arg2 = (
PLFLT)lua_tonumber(L, 2);
9206 arg3 = (
PLFLT)lua_tonumber(L, 3);
9207 arg4 = (
PLFLT)lua_tonumber(L, 4);
9223 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9225 arg1 = (
unsigned int)lua_tonumber(L, 1);
9242 arg1 = (lua_tostring(L, 1))[0];
9255 char *arg1 = (
char *) 0 ;
9256 char *arg2 = (
char *) 0 ;
9262 arg1 = (
char *)lua_tostring(L, 1);
9263 arg2 = (
char *)lua_tostring(L, 2);
9264 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9265 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9284 arg1 = (
PLINT)lua_tonumber(L, 1);
9285 arg2 = (
PLINT)lua_tonumber(L, 2);
9286 arg3 = (
PLINT)lua_tonumber(L, 3);
9302 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9317 char *arg1 = (
char *) 0 ;
9321 arg1 = (
char *)lua_tostring(L, 1);
9342 arg1 = (
PLINT)lua_tonumber(L, 1);
9343 arg2 = (
PLINT)lua_tonumber(L, 2);
9344 arg3 = (
PLINT)lua_tonumber(L, 3);
9379 cgrid117.
xg = cgrid117.yg = cgrid117.zg = NULL;
9380 cgrid117.nx = cgrid117.ny = cgrid117.nz = 0;
9381 cgrid217.xg = cgrid217.yg = cgrid217.zg = NULL;
9382 cgrid217.nx = cgrid217.ny = 0;
9404 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9414 arg5 = (
PLFLT)lua_tonumber(L, 2);
9415 arg6 = (
PLFLT)lua_tonumber(L, 3);
9416 arg7 = (
PLFLT)lua_tonumber(L, 4);
9417 arg8 = (
PLFLT)lua_tonumber(L, 5);
9420 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9423 arg10 =
Alen = temp;
9425 arg11 = (
PLFLT)lua_tonumber(L, 7);
9426 arg12 = (
PLINT)lua_tonumber(L, 8);
9427 arg13 = (
PLFLT)lua_tonumber(L, 9);
9428 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9429 if(lua_gettop(L)>=11){
9434 if ( lua_isstring( L, 11 ) )
9436 const char* funcstr = lua_tostring( L, 11 );
9437 if ( strcmp(
"pltr0", funcstr ) == 0 )
9441 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9445 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9460 if(lua_gettop(L)>=12){
9465 lua_pushstring( L,
"xg" );
9466 lua_gettable( L, 12 );
9467 if ( !lua_istable( L, -1 ) )
9470 lua_pushstring( L,
"expected a table xg" );
9473 lua_rawgeti( L, -1, 1 );
9474 if ( lua_istable( L, -1 ) )
9476 else if ( lua_isnumber( L, -1 ) )
9482 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9486 if ( gridmode == 1 )
9488 cgrid117.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9496 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9509 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9512 lua_pushfstring( L,
"Vectors must match matrix." );
9520 lua_pushstring( L,
"yg" );
9521 lua_gettable( L, 12 );
9522 if ( !lua_istable( L, -1 ) )
9525 lua_pushstring( L,
"expected a table yg" );
9528 lua_rawgeti( L, -1, 1 );
9529 if ( gridmode == 2 )
9531 if ( !lua_istable( L, -1 ) )
9535 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9541 if ( !lua_isnumber( L, -1 ) )
9545 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9550 if ( gridmode == 1 )
9552 cgrid117.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9560 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9573 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9576 lua_pushfstring( L,
"Vectors must match matrix." );
9583 if ( gridmode == 1 )
9585 else if ( gridmode == 2 )
9589 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9596 for ( i = 0; i < ii1; i++ )
9615 for ( i = 0; i <
Xlen; i++ )
9621 for ( i = 0; i <
Xlen; i++ )
9634 for ( i = 0; i < ii1; i++ )
9653 for ( i = 0; i <
Xlen; i++ )
9659 for ( i = 0; i <
Xlen; i++ )
9697 cgrid121.
xg = cgrid121.yg = cgrid121.zg = NULL;
9698 cgrid121.nx = cgrid121.ny = cgrid121.nz = 0;
9699 cgrid221.xg = cgrid221.yg = cgrid221.zg = NULL;
9700 cgrid221.nx = cgrid221.ny = 0;
9723 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9724 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9725 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9726 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9727 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9728 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9738 arg5 = (
PLFLT)lua_tonumber(L, 2);
9739 arg6 = (
PLFLT)lua_tonumber(L, 3);
9740 arg7 = (
PLFLT)lua_tonumber(L, 4);
9741 arg8 = (
PLFLT)lua_tonumber(L, 5);
9742 arg9 = (
PLFLT)lua_tonumber(L, 6);
9743 arg10 = (
PLFLT)lua_tonumber(L, 7);
9744 arg11 = (
PLINT)lua_tonumber(L, 8);
9745 arg12 = (
PLFLT)lua_tonumber(L, 9);
9746 arg13 = (
PLFLT)lua_tonumber(L, 10);
9747 arg14 = (
PLINT)lua_tonumber(L, 11);
9748 arg15 = (
PLFLT)lua_tonumber(L, 12);
9749 arg16 = (
PLINT)lua_tonumber(L, 13);
9750 arg17 = (
PLFLT)lua_tonumber(L, 14);
9751 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9752 if(lua_gettop(L)>=16){
9757 if ( lua_isstring( L, 16 ) )
9759 const char* funcstr = lua_tostring( L, 16 );
9760 if ( strcmp(
"pltr0", funcstr ) == 0 )
9764 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9768 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9783 if(lua_gettop(L)>=17){
9788 lua_pushstring( L,
"xg" );
9789 lua_gettable( L, 17 );
9790 if ( !lua_istable( L, -1 ) )
9793 lua_pushstring( L,
"expected a table xg" );
9796 lua_rawgeti( L, -1, 1 );
9797 if ( lua_istable( L, -1 ) )
9799 else if ( lua_isnumber( L, -1 ) )
9805 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9809 if ( gridmode == 1 )
9811 cgrid121.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9819 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9832 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9835 lua_pushfstring( L,
"Vectors must match matrix." );
9843 lua_pushstring( L,
"yg" );
9844 lua_gettable( L, 17 );
9845 if ( !lua_istable( L, -1 ) )
9848 lua_pushstring( L,
"expected a table yg" );
9851 lua_rawgeti( L, -1, 1 );
9852 if ( gridmode == 2 )
9854 if ( !lua_istable( L, -1 ) )
9858 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9864 if ( !lua_isnumber( L, -1 ) )
9868 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9873 if ( gridmode == 1 )
9875 cgrid121.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9883 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9896 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9899 lua_pushfstring( L,
"Vectors must match matrix." );
9906 if ( gridmode == 1 )
9908 else if ( gridmode == 2 )
9912 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9919 for ( i = 0; i < ii1; i++ )
9935 for ( i = 0; i <
Xlen; i++ )
9941 for ( i = 0; i <
Xlen; i++ )
9954 for ( i = 0; i < ii1; i++ )
9970 for ( i = 0; i <
Xlen; i++ )
9976 for ( i = 0; i <
Xlen; i++ )
9999 if ( lua_isnil( L, 1 ) )
10003 else if ( lua_isstring( L, 1 ) )
10036 arg1 = (
PLFLT)lua_tonumber(L, 1);
10037 arg2 = (
PLFLT)lua_tonumber(L, 2);
10056 arg1 = (
PLFLT)lua_tonumber(L, 1);
10057 arg2 = (
PLFLT)lua_tonumber(L, 2);
10074 arg1 = (
PLINT)lua_tonumber(L, 1);
10101 arg1 = (
PLFLT)lua_tonumber(L, 1);
10102 arg2 = (
PLFLT)lua_tonumber(L, 2);
10103 arg3 = (
PLINT)lua_tonumber(L, 3);
10104 arg4 = (
PLINT)lua_tonumber(L, 4);
10105 arg5 = (
PLINT)lua_tonumber(L, 5);
10106 arg6 = (
PLINT)lua_tonumber(L, 6);
10107 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10119 char *arg1 = (
char *) 0 ;
10123 arg1 = (
char *)lua_tostring(L, 1);
10136 char *arg1 = (
char *) 0 ;
10141 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10142 arg1 = (
char *)lua_tostring(L, 1);
10143 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10144 plspal1((
char const *)arg1,arg2);
10159 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10160 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10177 arg1 = (
PLINT)lua_tonumber(L, 1);
10196 arg1 = (
PLINT)lua_tonumber(L, 1);
10197 arg2 = (
PLINT)lua_tonumber(L, 2);
10216 arg1 = (
PLFLT)lua_tonumber(L, 1);
10217 arg2 = (
PLFLT)lua_tonumber(L, 2);
10236 arg1 = (
PLINT)lua_tonumber(L, 1);
10237 arg2 = (
PLINT)lua_tonumber(L, 2);
10250 char *arg1 = (
char *) 0 ;
10258 arg1 = (
char *)lua_tostring(L, 1);
10259 arg2 = (
PLINT)lua_tonumber(L, 2);
10260 arg3 = (
PLINT)lua_tonumber(L, 3);
10261 plstart((
char const *)arg1,arg2,arg3);
10284 if(lua_gettop(L)>=1){
10289 if ( lua_isstring( L, 1 ) )
10291 const char* funcstr = lua_tostring( L, 1 );
10315 char *arg4 = (
char *) 0 ;
10322 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10325 arg1 =
Alen = temp;
10328 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10331 if ( temp3 !=
Alen )
10333 lua_pushfstring( L,
"Tables must be of same length." );
10337 arg4 = (
char *)lua_tostring(L, 3);
10338 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10366 char *arg5 = (
char *) 0 ;
10374 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10377 arg1 =
Alen = temp;
10380 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10383 if ( temp3 !=
Alen )
10385 lua_pushfstring( L,
"Tables must be of same length." );
10390 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10393 if ( temp4 !=
Alen )
10395 lua_pushfstring( L,
"Tables must be of same length." );
10399 arg5 = (
char *)lua_tostring(L, 4);
10400 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10436 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10437 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10438 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10439 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10440 arg1 = (
PLINT)lua_tonumber(L, 1);
10441 arg2 = (
PLINT)lua_tonumber(L, 2);
10442 arg3 = (
PLFLT)lua_tonumber(L, 3);
10443 arg4 = (
PLFLT)lua_tonumber(L, 4);
10457 char *arg2 = (
char *) 0 ;
10458 char *arg3 = (
char *) 0 ;
10472 char **arg17 = (
char **) (
char **)0 ;
10473 char *arg18 = (
char *) 0 ;
10474 char *arg19 = (
char *) 0 ;
10475 char *arg20 = (
char *) 0 ;
10487 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10488 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10489 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10490 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10491 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10492 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10493 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10494 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10495 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10496 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10497 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10498 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10502 arg2 = (
char *)lua_tostring(L, 1);
10503 arg3 = (
char *)lua_tostring(L, 2);
10504 arg4 = (
PLFLT)lua_tonumber(L, 3);
10505 arg5 = (
PLFLT)lua_tonumber(L, 4);
10506 arg6 = (
PLFLT)lua_tonumber(L, 5);
10507 arg7 = (
PLFLT)lua_tonumber(L, 6);
10508 arg8 = (
PLFLT)lua_tonumber(L, 7);
10509 arg9 = (
PLFLT)lua_tonumber(L, 8);
10510 arg10 = (
PLFLT)lua_tonumber(L, 9);
10511 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10512 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10513 arg13 = (
PLINT)lua_tonumber(L, 12);
10514 arg14 = (
PLINT)lua_tonumber(L, 13);
10516 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10522 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10525 if ( temp16 !=
Alen )
10527 lua_pushfstring( L,
"Tables must be of same length." );
10531 if(lua_gettop(L)>=16){
10538 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10543 lua_pushfstring( L,
"colline and styline args must be length 4." );
10547 arg17 = malloc(
sizeof (
char* ) * 4 );
10548 for ( i = 1; i <= 4; i++ )
10550 lua_rawgeti( L, 16, i );
10551 if ( lua_isstring( L, -1 ) )
10553 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10558 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10566 if(lua_gettop(L)>=17){
10567 arg18 = (
char *)lua_tostring(L, 17);
10569 if(lua_gettop(L)>=18){
10570 arg19 = (
char *)lua_tostring(L, 18);
10572 if(lua_gettop(L)>=19){
10573 arg20 = (
char *)lua_tostring(L, 19);
10575 plstripc(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,(
int const *)arg15,(
int const *)arg16,(
char const *(*))arg17,(
char const *)arg18,(
char const *)arg19,(
char const *)arg20);
10577 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10587 free( arg17 ); arg17 = NULL;
10602 free( arg17 ); arg17 = NULL;
10615 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10616 arg1 = (
PLINT)lua_tonumber(L, 1);
10636 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10642 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10645 if ( temp3 !=
Alen )
10647 lua_pushfstring( L,
"Tables must be of same length." );
10651 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10681 arg2 = NULL; arg3 = 0;
10687 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10690 if ( lua_isnil( L, 1 ) )
10697 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10703 if(lua_gettop(L)>=2){
10706 if ( lua_isnil( L, 2 ) )
10712 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10715 if ( temp !=
Alen )
10717 lua_pushfstring( L,
"Tables must be of same length." );
10724 if(lua_gettop(L)>=3){
10725 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10727 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
10755 arg1 = (
PLFLT)lua_tonumber(L, 1);
10756 arg2 = (
PLFLT)lua_tonumber(L, 2);
10757 arg3 = (
PLFLT)lua_tonumber(L, 3);
10758 arg4 = (
PLFLT)lua_tonumber(L, 4);
10759 plsvpa(arg1,arg2,arg3,arg4);
10777 arg1 = (
PLINT)lua_tonumber(L, 1);
10778 arg2 = (
PLINT)lua_tonumber(L, 2);
10797 arg1 = (
PLINT)lua_tonumber(L, 1);
10798 arg2 = (
PLINT)lua_tonumber(L, 2);
10821 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10824 arg1 =
Alen = temp;
10827 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10830 if ( temp3 !=
Alen )
10832 lua_pushfstring( L,
"Tables must be of same length." );
10836 arg4 = (
PLINT)lua_tonumber(L, 3);
10837 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10867 arg1 = (
PLINT)lua_tonumber(L, 1);
10868 arg2 = (
PLINT)lua_tonumber(L, 2);
10895 char *arg1 = (
char *) 0 ;
10899 arg1 = (
char *)lua_tostring(L, 1);
10916 arg1 = (
PLFLT)lua_tonumber(L, 1);
10942 cgrid17.
xg = cgrid17.yg = cgrid17.zg = NULL;
10943 cgrid17.nx = cgrid17.ny = cgrid17.nz = 0;
10944 cgrid27.xg = cgrid27.yg = cgrid27.zg = NULL;
10945 cgrid27.nx = cgrid27.ny = 0;
10972 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10974 lua_pushfstring( L,
"Vectors must match matrix." );
10978 arg5 = (
PLFLT)lua_tonumber(L, 3);
10979 if(lua_gettop(L)>=4){
10984 if ( lua_isstring( L, 4 ) )
10986 const char* funcstr = lua_tostring( L, 4 );
10987 if ( strcmp(
"pltr0", funcstr ) == 0 )
10991 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10995 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11010 if(lua_gettop(L)>=5){
11015 lua_pushstring( L,
"xg" );
11016 lua_gettable( L, 5 );
11017 if ( !lua_istable( L, -1 ) )
11020 lua_pushstring( L,
"expected a table xg" );
11023 lua_rawgeti( L, -1, 1 );
11024 if ( lua_istable( L, -1 ) )
11026 else if ( lua_isnumber( L, -1 ) )
11032 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11036 if ( gridmode == 1 )
11038 cgrid17.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11046 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11059 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11062 lua_pushfstring( L,
"Vectors must match matrix." );
11070 lua_pushstring( L,
"yg" );
11071 lua_gettable( L, 5 );
11072 if ( !lua_istable( L, -1 ) )
11075 lua_pushstring( L,
"expected a table yg" );
11078 lua_rawgeti( L, -1, 1 );
11079 if ( gridmode == 2 )
11081 if ( !lua_istable( L, -1 ) )
11085 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11091 if ( !lua_isnumber( L, -1 ) )
11095 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11100 if ( gridmode == 1 )
11102 cgrid17.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11110 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11123 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11126 lua_pushfstring( L,
"Vectors must match matrix." );
11133 if ( gridmode == 1 )
11135 else if ( gridmode == 2 )
11139 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11146 for ( i = 0; i < ii1; i++ )
11156 for ( i = 0; i < ii2; i++ )
11172 for ( i = 0; i <
Xlen; i++ )
11178 for ( i = 0; i <
Xlen; i++ )
11191 for ( i = 0; i < ii1; i++ )
11201 for ( i = 0; i < ii2; i++ )
11217 for ( i = 0; i <
Xlen; i++ )
11223 for ( i = 0; i <
Xlen; i++ )
11247 arg1 = (
PLFLT)lua_tonumber(L, 1);
11248 arg2 = (
PLFLT)lua_tonumber(L, 2);
11249 arg3 = (
PLFLT)lua_tonumber(L, 3);
11250 arg4 = (
PLFLT)lua_tonumber(L, 4);
11251 arg5 = (
PLFLT)lua_tonumber(L, 5);
11252 plvpas(arg1,arg2,arg3,arg4,arg5);
11274 arg1 = (
PLFLT)lua_tonumber(L, 1);
11275 arg2 = (
PLFLT)lua_tonumber(L, 2);
11276 arg3 = (
PLFLT)lua_tonumber(L, 3);
11277 arg4 = (
PLFLT)lua_tonumber(L, 4);
11278 plvpor(arg1,arg2,arg3,arg4);
11328 arg1 = (
PLFLT)lua_tonumber(L, 1);
11329 arg2 = (
PLFLT)lua_tonumber(L, 2);
11330 arg3 = (
PLFLT)lua_tonumber(L, 3);
11331 arg4 = (
PLFLT)lua_tonumber(L, 4);
11332 arg5 = (
PLFLT)lua_tonumber(L, 5);
11333 arg6 = (
PLFLT)lua_tonumber(L, 6);
11334 arg7 = (
PLFLT)lua_tonumber(L, 7);
11335 arg8 = (
PLFLT)lua_tonumber(L, 8);
11336 arg9 = (
PLFLT)lua_tonumber(L, 9);
11337 arg10 = (
PLFLT)lua_tonumber(L, 10);
11338 arg11 = (
PLFLT)lua_tonumber(L, 11);
11339 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11355 arg1 = (
PLFLT)lua_tonumber(L, 1);
11378 arg1 = (
PLFLT)lua_tonumber(L, 1);
11379 arg2 = (
PLFLT)lua_tonumber(L, 2);
11380 arg3 = (
PLFLT)lua_tonumber(L, 3);
11381 arg4 = (
PLFLT)lua_tonumber(L, 4);
11382 plwind(arg1,arg2,arg3,arg4);
11400 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11401 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11404 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11416 char *arg2 = (
char *) 0 ;
11432 if ( lua_isnil( L, 1 ) )
11436 else if ( lua_isstring( L, 1 ) )
11445 arg2 = (
char *)lua_tostring(L, 2);
11446 arg3 = (
PLFLT)lua_tonumber(L, 3);
11447 arg4 = (
PLFLT)lua_tonumber(L, 4);
11448 arg5 = (
PLFLT)lua_tonumber(L, 5);
11449 arg6 = (
PLFLT)lua_tonumber(L, 6);
11450 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11469 char *arg2 = (
char *) 0 ;
11480 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11481 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11482 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11483 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11488 if ( lua_isnil( L, 1 ) )
11492 else if ( lua_isstring( L, 1 ) )
11501 arg2 = (
char *)lua_tostring(L, 2);
11502 arg3 = (
PLFLT)lua_tonumber(L, 3);
11503 arg4 = (
PLFLT)lua_tonumber(L, 4);
11504 arg5 = (
PLFLT)lua_tonumber(L, 5);
11505 arg6 = (
PLFLT)lua_tonumber(L, 6);
11507 if ( lua_isnil( L, 7 ) )
11514 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11520 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11545 char *arg2 = (
char *) 0 ;
11546 char *arg3 = (
char *) 0 ;
11558 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11559 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11560 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11561 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11566 if ( lua_isnil( L, 1 ) )
11570 else if ( lua_isstring( L, 1 ) )
11579 arg2 = (
char *)lua_tostring(L, 2);
11580 arg3 = (
char *)lua_tostring(L, 3);
11581 arg4 = (
PLFLT)lua_tonumber(L, 4);
11582 arg5 = (
PLFLT)lua_tonumber(L, 5);
11583 arg6 = (
PLFLT)lua_tonumber(L, 6);
11584 arg7 = (
PLFLT)lua_tonumber(L, 7);
11586 if ( lua_isnil( L, 8 ) )
11593 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11599 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11624 char *arg2 = (
char *) 0 ;
11628 char *arg6 = (
char *) 0 ;
11637 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11638 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11639 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11641 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11642 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11643 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11644 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11645 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11650 if ( lua_isnil( L, 1 ) )
11654 else if ( lua_isstring( L, 1 ) )
11663 arg2 = (
char *)lua_tostring(L, 2);
11664 arg3 = (
PLFLT)lua_tonumber(L, 3);
11665 arg4 = (
PLFLT)lua_tonumber(L, 4);
11666 arg5 = (
PLFLT)lua_tonumber(L, 5);
11667 arg6 = (
char *)lua_tostring(L, 6);
11668 arg7 = (
PLFLT)lua_tonumber(L, 7);
11669 arg8 = (
PLFLT)lua_tonumber(L, 8);
11670 arg9 = (
PLFLT)lua_tonumber(L, 9);
11671 arg10 = (
PLFLT)lua_tonumber(L, 10);
11672 arg11 = (
PLINT)lua_tonumber(L, 11);
11673 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
11692 char *arg2 = (
char *) 0 ;
11703 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
11704 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
11705 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
11706 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
11711 if ( lua_isnil( L, 1 ) )
11715 else if ( lua_isstring( L, 1 ) )
11724 arg2 = (
char *)lua_tostring(L, 2);
11725 arg3 = (
PLFLT)lua_tonumber(L, 3);
11726 arg4 = (
PLFLT)lua_tonumber(L, 4);
11727 arg5 = (
PLFLT)lua_tonumber(L, 5);
11728 arg6 = (
PLFLT)lua_tonumber(L, 6);
11730 if ( lua_isnil( L, 7 ) )
11737 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11743 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11776 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
11777 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
11778 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
11779 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
11780 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
11781 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
11786 if ( lua_isnil( L, 1 ) )
11790 else if ( lua_isstring( L, 1 ) )
11799 arg2 = (
PLFLT)lua_tonumber(L, 2);
11800 arg3 = (
PLFLT)lua_tonumber(L, 3);
11801 arg4 = (
PLFLT)lua_tonumber(L, 4);
11802 arg5 = (
PLFLT)lua_tonumber(L, 5);
11803 arg6 = (
PLFLT)lua_tonumber(L, 6);
11804 arg7 = (
PLFLT)lua_tonumber(L, 7);
11847 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
11848 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
11858 arg4 = (
PLFLT)lua_tonumber(L, 2);
11859 arg5 = (
PLFLT)lua_tonumber(L, 3);
11860 arg6 = (
PLFLT)lua_tonumber(L, 4);
11861 arg7 = (
PLFLT)lua_tonumber(L, 5);
11862 arg8 = (
PLFLT)lua_tonumber(L, 6);
11863 arg9 = (
PLFLT)lua_tonumber(L, 7);
11864 arg10 = (
PLFLT)lua_tonumber(L, 8);
11865 arg11 = (
PLFLT)lua_tonumber(L, 9);
11866 arg12 = (
PLFLT)lua_tonumber(L, 10);
11867 arg13 = (
PLFLT)lua_tonumber(L, 11);
11868 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11875 for ( i = 0; i < ii1; i++ )
11888 for ( i = 0; i < ii1; i++ )
11918 cgrid113.
xg = cgrid113.yg = cgrid113.zg = NULL;
11919 cgrid113.nx = cgrid113.ny = cgrid113.nz = 0;
11920 cgrid213.xg = cgrid213.yg = cgrid213.zg = NULL;
11921 cgrid213.nx = cgrid213.ny = 0;
11930 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
11931 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
11932 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
11933 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
11934 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
11935 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
11936 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
11937 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
11947 arg4 = (
PLFLT)lua_tonumber(L, 2);
11948 arg5 = (
PLFLT)lua_tonumber(L, 3);
11949 arg6 = (
PLFLT)lua_tonumber(L, 4);
11950 arg7 = (
PLFLT)lua_tonumber(L, 5);
11951 arg8 = (
PLFLT)lua_tonumber(L, 6);
11952 arg9 = (
PLFLT)lua_tonumber(L, 7);
11953 arg10 = (
PLFLT)lua_tonumber(L, 8);
11954 arg11 = (
PLFLT)lua_tonumber(L, 9);
11955 if(lua_gettop(L)>=10){
11960 if ( lua_isstring( L, 10 ) )
11962 const char* funcstr = lua_tostring( L, 10 );
11963 if ( strcmp(
"pltr0", funcstr ) == 0 )
11967 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11971 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11986 if(lua_gettop(L)>=11){
11991 lua_pushstring( L,
"xg" );
11992 lua_gettable( L, 11 );
11993 if ( !lua_istable( L, -1 ) )
11996 lua_pushstring( L,
"expected a table xg" );
11999 lua_rawgeti( L, -1, 1 );
12000 if ( lua_istable( L, -1 ) )
12002 else if ( lua_isnumber( L, -1 ) )
12008 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12012 if ( gridmode == 1 )
12014 cgrid113.xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12015 if ( !cgrid113.xg )
12022 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12030 if ( !cgrid213.xg )
12035 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12038 lua_pushfstring( L,
"Vectors must match matrix." );
12046 lua_pushstring( L,
"yg" );
12047 lua_gettable( L, 11 );
12048 if ( !lua_istable( L, -1 ) )
12051 lua_pushstring( L,
"expected a table yg" );
12054 lua_rawgeti( L, -1, 1 );
12055 if ( gridmode == 2 )
12057 if ( !lua_istable( L, -1 ) )
12061 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12067 if ( !lua_isnumber( L, -1 ) )
12071 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12076 if ( gridmode == 1 )
12078 cgrid113.yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12079 if ( !cgrid113.yg )
12086 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12094 if ( !cgrid213.yg )
12099 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12102 lua_pushfstring( L,
"Vectors must match matrix." );
12109 if ( gridmode == 1 )
12111 else if ( gridmode == 2 )
12115 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12122 for ( i = 0; i < ii1; i++ )
12138 for ( i = 0; i <
Xlen; i++ )
12144 for ( i = 0; i <
Xlen; i++ )
12157 for ( i = 0; i < ii1; i++ )
12173 for ( i = 0; i <
Xlen; i++ )
12179 for ( i = 0; i <
Xlen; i++ )
12219 char *arg1 = (
char *) 0 ;
12220 char *arg2 = (
char *) 0 ;
12225 arg1 = (
char *)lua_tostring(L, 1);
12226 arg2 = (
char *)lua_tostring(L, 2);
12227 plSetUsage((
char const *)arg1,(
char const *)arg2);
12276 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12277 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12283 for ( i = 0; i < ii1; i++ )
12296 for ( i = 0; i < ii1; i++ )
12319 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12330 char *arg1 = (
char *) 0 ;
12333 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12335 arg1 = (
char *) lua_tostring( L, 1 );
12337 plwarn((
char const *)arg1);
12349 char *arg1 = (
char *) 0 ;
12352 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12354 arg1 = (
char *) lua_tostring( L, 1 );
12867#define SWIGRUNTIME_DEBUG
12870#ifndef SWIG_INIT_CLIENT_DATA_TYPE
12871#define SWIG_INIT_CLIENT_DATA_TYPE void *
12893 if (!module_head) {
12906 }
while (iter!= module_head);
12917 if (init == 0)
return;
12920#ifdef SWIGRUNTIME_DEBUG
12921 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.size);
12928#ifdef SWIGRUNTIME_DEBUG
12929 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
12938#ifdef SWIGRUNTIME_DEBUG
12939 printf(
"SWIG_InitializeModule: found type %s\n", type->name);
12942 type->clientdata =
swig_module.type_initial[i]->clientdata;
12943#ifdef SWIGRUNTIME_DEBUG
12944 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12953 while (cast->
type) {
12957#ifdef SWIGRUNTIME_DEBUG
12958 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
12962#ifdef SWIGRUNTIME_DEBUG
12963 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->name);
12968#ifdef SWIGRUNTIME_DEBUG
12969 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->name);
12976#ifdef SWIGRUNTIME_DEBUG
12977 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->name);
12979 if (!ocast) ret = 0;
12984#ifdef SWIGRUNTIME_DEBUG
12985 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
12988 type->cast->prev = cast;
12989 cast->
next = type->cast;
13000#ifdef SWIGRUNTIME_DEBUG
13001 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13005 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
13006 while (cast->
type) {
13007 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13011 printf(
"---- Total casts: %d\n",j);
13013 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13026 static int init_run = 0;
13028 if (init_run)
return;
13035 if (!equiv->converter) {
13036 if (equiv->type && !equiv->type->clientdata)
13039 equiv = equiv->next;
13064#if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13070#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13072 int globalRegister = 0;
13080#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13086#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13093#ifdef SWIG_LUA_MODULE_GLOBAL
13094 globalRegister = 1;
13098#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13102#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13110#if defined(SWIG_LUA_ELUA_EMULATE)
13113 SWIG_Lua_elua_emulate_register_clear(L);
13114 if(globalRegister) {
13116 lua_pushvalue(L,-2);
13123#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13143 " pl = plplotluac";
alias void function(PLINT, PLFLT *, PLFLT *) fill_func
void plSetUsage(PLCHAR_VECTOR program_string, PLCHAR_VECTOR usage_string)
void pltr2(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
void pltr1(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer pltr_data)
void pltr0(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, PLPointer PL_UNUSED(pltr_data))
void plwarn(PLCHAR_VECTOR errormsg)
static PLFLT value(double n1, double n2, double hue)
void plabort(PLCHAR_VECTOR errormsg)
void plMinMax2dGrid(PLFLT_MATRIX f, PLINT nx, PLINT ny, PLFLT *fnmax, PLFLT *fnmin)
PLINT plGetCursor(PLGraphicsIn *plg)
#define pl_setcontlabelformat
#define pl_setcontlabelparam
void *(* swig_converter_func)(void *, int *)
struct swig_type_info *(* swig_dycast_func)(void **)
SWIGRUNTIME int SWIG_Lua_class_equal(lua_State *L)
SWIGRUNTIME void SWIG_InitializeModule(SWIG_INIT_CLIENT_DATA_TYPE clientdata)
static int _wrap_ptex(lua_State *L)
static int _wrap_PLGraphicsIn_wX_get(lua_State *L)
static int _wrap_surf3dl(lua_State *L)
static int _wrap_scmap1(lua_State *L)
PLFLT ** read_double_Matrix(lua_State *L, int index, int *nx, int *ny)
static int _wrap_clear(lua_State *L)
SWIGRUNTIME void * SWIG_Lua_MustGetPtr(lua_State *L, int index, swig_type_info *type, int flags, int argnum, const char *func_name)
static int _wrap_szax(lua_State *L)
#define SWIG_DOSTRING_FAIL(S)
static int _wrap_wind(lua_State *L)
static swig_cast_info * swig_cast_initial[]
static int _wrap_PLGraphicsIn_button_get(lua_State *L)
void mylabel(PLINT axis, PLFLT value, char *label, PLINT length, PLPointer data)
static int _wrap_configtime(lua_State *L)
static int _wrap_sori(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPtr(lua_State *L, int index, void **ptr, swig_type_info *type, int flags)
static int _wrap_mesh(lua_State *L)
static int _wrap_gyax(lua_State *L)
static int _wrap_box(lua_State *L)
#define SWIG_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_spage(lua_State *L)
static int _wrap_mkstrm(lua_State *L)
SWIGRUNTIME void SWIG_Lua_SetModule(lua_State *L, swig_module_info *module)
static int _wrap_PLGraphicsIn_keysym_get(lua_State *L)
SWIGINTERN int SWIG_Lua_do_resolve_metamethod(lua_State *L, const swig_lua_class *clss, int metamethod_name_idx, int skip_check)
static swig_type_info _swigt__p_f_double_double_p_double_p_double_p_void__void
static int _wrap_PLGraphicsIn_subwindow_get(lua_State *L)
static int _wrap_rgbhls(lua_State *L)
static int _wrap_scmap1_range(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pusherrstring(lua_State *L, const char *str)
static int _wrap_plend(lua_State *L)
SWIGINTERN int SWIG_Lua_class_do_get(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
SWIGRUNTIME int SWIG_Lua_resolve_metamethod(lua_State *L)
static int _wrap_hlsrgb(lua_State *L)
SWIGINTERN void SWIG_Lua_add_namespace_classes(lua_State *L, swig_lua_namespace *ns)
struct swig_lua_class swig_lua_class
#define SWIG_CheckState(r)
static int _wrap_meridians(lua_State *L)
#define SWIG_fail_ptr(func_name, argnum, type)
static swig_cast_info _swigc__p_f_double_double__int[]
#define SWIG_NewMemberObj(L, ptr, sz, type)
static int _wrap_env0(lua_State *L)
static swig_cast_info _swigc__p_int[]
SWIGINTERN void SWIG_Lua_add_class_user_metamethods(lua_State *L, swig_lua_class *clss)
static int _wrap_gcolbga(lua_State *L)
struct swig_lua_namespace swig_lua_namespace
SWIGRUNTIME int SWIG_TypeEquiv(const char *nb, const char *tb)
static int _wrap_gvpd(lua_State *L)
void myct(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
SWIGINTERN void SWIG_Lua_class_register_static(lua_State *L, swig_lua_class *clss)
SWIGRUNTIME const char * SWIG_Lua_typename(lua_State *L, int tp)
static int _wrap_ssym(lua_State *L)
static swig_cast_info _swigc__p_double[]
static swig_lua_method swig_PLGraphicsIn_meta[]
#define SWIGTYPE_p_PLGraphicsIn
static int _wrap_plGetCursor(lua_State *L)
static int _wrap_gxax(lua_State *L)
struct swig_cast_info swig_cast_info
void(* label_func)(PLINT, PLFLT, char *, PLINT, PLPointer)
static int _wrap_PLGraphicsIn_pY_set(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_Sf_SwigStatic_attributes[]
SWIGRUNTIME int SWIG_TypeNameComp(const char *f1, const char *l1, const char *f2, const char *l2)
static int _wrap_seed(lua_State *L)
static int _wrap_sdiplt(lua_State *L)
static int _wrap_psty(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_attributes[]
static int _wrap_cont(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPacked(lua_State *L, int index, void *ptr, size_t size, swig_type_info *type)
static int _wrap_scmap0a(lua_State *L)
static int _wrap_gradient(lua_State *L)
SWIGINTERN void SWIG_write_ptr_array(lua_State *L, void **array, int size, swig_type_info *type, int own)
static int _wrap_setcontlabelparam(lua_State *L)
SWIGINTERN int SWIG_Lua_iterate_bases(lua_State *L, swig_type_info *SWIGUNUSED swig_type, int first_arg, swig_lua_base_iterator_func func, int *const ret)
void(* mapform_func)(PLINT, PLFLT *, PLFLT *)
void mypltr(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
static int _wrap_width(lua_State *L)
static int _wrap_hist(lua_State *L)
static int _wrap_text(lua_State *L)
#define SWIG_ConvertPtr(L, idx, ptr, type, flags)
static int _wrap_gspa(lua_State *L)
SWIGINTERN int SWIG_Lua_dostring(lua_State *L, const char *str)
static int _wrap_vpor(lua_State *L)
void(* pltr_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static int _wrap_colorbar(lua_State *L)
static int _wrap_flush(lua_State *L)
static int _wrap_sym(lua_State *L)
static swig_cast_info _swigc__p_f_double_double_p_double_p_double_p_void__void[]
static int _wrap_PLGraphicsIn_state_get(lua_State *L)
static int _wrap_xormod(lua_State *L)
#define SWIG_fail_arg(func_name, argnum, type)
static int _wrap_spause(lua_State *L)
#define SWIG_Lua_get_table(L, n)
static int _wrap_sdidev(lua_State *L)
static int _wrap_scmap1n(lua_State *L)
static int _wrap_setcontlabelformat(lua_State *L)
static int _wrap_gcmap1_range(lua_State *L)
#define SWIG_RUNTIME_VERSION
static int _wrap_sdimap(lua_State *L)
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
SWIGINTERN int SWIG_Lua_class_do_get_item(lua_State *L, swig_type_info *type, int SWIGUNUSED first_arg, int *ret)
static int _wrap_ssub(lua_State *L)
static int _wrap_new_PLGraphicsIn(lua_State *L)
static int _wrap_scmap1a(lua_State *L)
#define SWIG_Lua_add_function(L, n, f)
static int _wrap_abort(lua_State *L)
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
static int _wrap_glevel(lua_State *L)
static int _wrap_PLGraphicsIn_dX_get(lua_State *L)
static int _wrap_pat(lua_State *L)
static char mylabel_funcstr[255]
static int _wrap_gchr(lua_State *L)
SWIGINTERN int SWIG_Lua_add_class_user_metamethod(lua_State *L, swig_lua_class *clss, const int metatable_index)
static int _wrap_PLGraphicsIn_pY_get(lua_State *L)
static int _wrap_sfci(lua_State *L)
static int _wrap_shade(lua_State *L)
SWIGINTERN void SWIG_Lua_populate_inheritable_metamethods(lua_State *L)
static swig_type_info * swig_types[13]
static int _wrap_gpage(lua_State *L)
static int _wrap_plResetOpts(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_double_p_double__void[]
static int _wrap_lightsource(lua_State *L)
static int _wrap_sfont(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
static int _wrap_calc_world(lua_State *L)
static int _wrap_plot3dcl(lua_State *L)
static int _wrap_gvpw(lua_State *L)
static int _wrap_plOptUsage(lua_State *L)
static swig_module_info swig_module
static int _wrap_image(lua_State *L)
static const char * swig_PLGraphicsIn_base_names[]
static int _wrap_PLGraphicsIn_state_set(lua_State *L)
static swig_lua_class * swig_PLGraphicsIn_bases[]
static int _wrap_parseopts(lua_State *L)
static int _wrap_MinMax2dGrid(lua_State *L)
static swig_type_info _swigt__p_double
static int _wrap_gdiori(lua_State *L)
#define SWIG_SetModule(clientdata, pointer)
static int _wrap_famadv(lua_State *L)
#define SWIG_INIT_CLIENT_DATA_TYPE
static int _wrap_scolbga(lua_State *L)
static int _wrap_font(lua_State *L)
static int _wrap_gzax(lua_State *L)
static char mypltr_funcstr[255]
static int _wrap_scmap1la(lua_State *L)
static int _wrap_slabelfunc(lua_State *L)
#define SWIG_POINTER_RELEASE
static swig_lua_class * swig_SwigModule_classes[]
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
SWIGINTERN int SWIG_itable_size(lua_State *L, int index)
SWIGRUNTIME swig_module_info * SWIG_Lua_GetModule(lua_State *L)
static int _wrap_env(lua_State *L)
static int _wrap_PLGraphicsIn_string_get(lua_State *L)
static swig_type_info _swigt__p_p_char
#define lua_rawsetp(L, index, ptr)
static int _wrap_timefmt(lua_State *L)
static int _wrap_plend1(lua_State *L)
static int _wrap_box3(lua_State *L)
static int _wrap_map(lua_State *L)
SWIGRUNTIME void SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata)
static int _wrap_gfam(lua_State *L)
static swig_type_info _swigt__p_p_double
#define SWIG_POINTER_CLEAR
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
static int _wrap_stripc(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
static int _wrap_scmap0n(lua_State *L)
static int _wrap_errx(lua_State *L)
static int _wrap_sstrm(lua_State *L)
void mapform(PLINT n, PLFLT *x, PLFLT *y)
static int _wrap_gstrm(lua_State *L)
SWIGINTERN void SWIG_Lua_get_inheritable_metamethods(lua_State *L)
static int _wrap_init(lua_State *L)
static int _wrap_sfam(lua_State *L)
static int _wrap_replot(lua_State *L)
SWIGINTERN void SWIG_Lua_add_variable(lua_State *L, const char *name, lua_CFunction getFn, lua_CFunction setFn)
static swig_lua_namespace * swig_SwigModule_namespaces[]
#define SWIG_check_num_args(func_name, a, b)
static swig_lua_class * swig_PLGraphicsIn_Sf_SwigStatic_classes[]
static int _wrap_svect(lua_State *L)
#define SWIG_LUA_CONSTTAB_INT(B, C)
static int _wrap_poin(lua_State *L)
static int _wrap_mapfill(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_get(lua_State *L)
static int _wrap_scol0a(lua_State *L)
static int _wrap_PLGraphicsIn_string_set(lua_State *L)
static int _wrap_star(lua_State *L)
static int _wrap_fontld(lua_State *L)
static int _wrap_line(lua_State *L)
SWIGINTERN int SWIG_Lua_class_get(lua_State *L)
SWIGRUNTIME int SWIG_Lua_type(lua_State *L)
SWIGINTERN void SWIG_Lua_namespace_register(lua_State *L, swig_lua_namespace *ns, int reg)
#define SWIG_LUA_CONSTTAB_FLOAT(B, C)
PLFLT(* f2eval_func)(PLINT, PLINT, PLPointer)
static int _wrap_plClearOpts(lua_State *L)
static int _wrap_legend(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_registry(lua_State *L)
static swig_cast_info _swigc__p_char[]
SWIGINTERN void SWIG_Lua_add_class_static_details(lua_State *L, swig_lua_class *clss)
static int _wrap_poin3(lua_State *L)
static int _wrap_plot3d(lua_State *L)
static swig_type_info _swigt__p_f_int_p_q_const__double_p_q_const__double__void
PLINT(* defined_func)(PLFLT, PLFLT)
static int _wrap_vasp(lua_State *L)
#define SWIG_NewPointerObj(L, ptr, type, owner)
static int _wrap_imagefr(lua_State *L)
static swig_cast_info _swigc__p_p_double[]
static int _wrap_gver(lua_State *L)
SWIGINTERN void SWIG_Lua_AddMetatable(lua_State *L, swig_type_info *type)
static int _wrap_scolbg(lua_State *L)
#define SWIG_FREE_ARRAY(PTR)
static int _wrap_PLGraphicsIn_keysym_set(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
static int _wrap_w3d(lua_State *L)
static swig_lua_const_info swig_SwigModule_constants[]
static int _wrap_PLGraphicsIn_dY_get(lua_State *L)
static char mapform_funcstr[255]
static int _wrap_stransform(lua_State *L)
SWIGINTERN void SWIG_Lua_class_register(lua_State *L, swig_lua_class *clss)
SWIGRUNTIME void SWIG_Lua_NewPointerObj(lua_State *L, void *ptr, swig_type_info *type, int own)
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
static int _wrap_scolor(lua_State *L)
static int _wrap_line3(lua_State *L)
SWIGINTERN int SWIG_Lua_set_immutable(lua_State *L)
static swig_lua_const_info swig_PLGraphicsIn_Sf_SwigStatic_constants[]
void(* ct_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
#define SWIG_POINTER_NO_NULL
static const char * lua_tolstring(lua_State *L, int idx, size_t *len)
static int _wrap_gdidev(lua_State *L)
static int _wrap_axes(lua_State *L)
static int _wrap_PLGraphicsIn_type_get(lua_State *L)
#define lua_absindex(L, i)
static int _wrap_warn(lua_State *L)
SWIGINTERN int SWIG_Lua_add_namespace_details(lua_State *L, swig_lua_namespace *ns)
static int _wrap_randd(lua_State *L)
#define SWIG_NullReferenceError
static int _wrap_arc(lua_State *L)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
static int _wrap_stripa(lua_State *L)
static int _wrap_PLGraphicsIn_type_set(lua_State *L)
static int _wrap_join(lua_State *L)
static void swig_delete_PLGraphicsIn(void *obj)
static int _wrap_cpstrm(lua_State *L)
static int _wrap_gdiplt(lua_State *L)
#define SWIG_POINTER_DISOWN
SWIGINTERN int SWIG_Lua_namespace_set(lua_State *L)
SWIGINTERN void ** SWIG_get_ptr_array_var(lua_State *L, int index, int *size, swig_type_info *type)
struct swig_type_info swig_type_info
static char myct_funcstr[255]
static int _wrap_gcompression(lua_State *L)
static int _wrap_string(lua_State *L)
SWIGINTERN int SWIG_Lua_class_disown(lua_State *L)
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
static swig_type_info _swigt__p_PLGraphicsIn
SWIGINTERN void SWIG_Lua_class_register_instance(lua_State *L, swig_lua_class *clss)
static int _wrap_path(lua_State *L)
static swig_type_info _swigt__p_f_double_double__int
static int _wrap_PLGraphicsIn_subwindow_set(lua_State *L)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
static int _wrap_smaj(lua_State *L)
static int _wrap_gfci(lua_State *L)
static int _wrap_start(lua_State *L)
static int _wrap_meshc(lua_State *L)
static int _wrap_plot3dc(lua_State *L)
static int _wrap_PLGraphicsIn_wY_get(lua_State *L)
static int _wrap_ctime(lua_State *L)
SWIGINTERN int SWIG_read_ptr_array(lua_State *L, int index, void **array, int size, swig_type_info *type)
SWIGINTERN int SWIG_Lua_class_do_set(lua_State *L, swig_type_info *type, int first_arg, int *ret)
static int _wrap_lsty(lua_State *L)
static int _wrap_gfnam(lua_State *L)
static int _wrap_bin(lua_State *L)
static int _wrap_mapline(lua_State *L)
static int _wrap_gcol0(lua_State *L)
static int _wrap_PLGraphicsIn_dX_set(lua_State *L)
SWIGINTERN int SWIG_Lua_class_set(lua_State *L)
SWIGINTERN int SWIG_lua_isnilstring(lua_State *L, int idx)
#define SWIG_GetModule(clientdata)
SWIGRUNTIME void SWIG_Lua_NewPackedObj(lua_State *L, void *ptr, size_t size, swig_type_info *type)
static int _wrap_PLGraphicsIn_wX_set(lua_State *L)
static int _wrap_bop(lua_State *L)
SWIGINTERN int SWIG_Lua_class_destruct(lua_State *L)
static swig_cast_info _swigc__p_unsigned_int[]
static int _wrap_ptex3(lua_State *L)
static swig_type_info _swigt__p_int
static swig_lua_method swig_SwigModule_methods[]
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(const swig_type_info *from, swig_type_info *ty)
static int _wrap_eop(lua_State *L)
SWIGRUNTIME void SWIG_PropagateClientData(void)
static swig_cast_info _swigc__p_f_int_double_p_char_int_p_void__void[]
static int _wrap_plSetUsage(lua_State *L)
#define lua_pushglobaltable(L)
static int _wrap_poly3(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_Sf_SwigStatic_methods[]
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
#define LUA_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_prec(lua_State *L)
static int _wrap_sdev(lua_State *L)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
#define SWIG_isptrtype(L, I)
static int _wrap_PLGraphicsIn_pX_set(lua_State *L)
#define SWIG_ERROR_RELEASE_NOT_OWNED
#define LUA_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
static int _wrap_string3(lua_State *L)
static int _wrap_spal1(lua_State *L)
#define SWIG_TYPE_TABLE_NAME
static int _wrap_surf3d(lua_State *L)
static swig_type_info _swigt__p_unsigned_int
static swig_lua_namespace swig_PLGraphicsIn_Sf_SwigStatic
SWIGINTERN void SWIG_Lua_init_base_class(lua_State *L, swig_lua_class *clss)
static int _wrap_spal0(lua_State *L)
static int _wrap_griddata(lua_State *L)
static swig_type_info _swigt__p_f_int_p_double_p_double__void
static int _wrap_adv(lua_State *L)
static int _wrap_gra(lua_State *L)
#define SWIG_contract_assert(expr, msg)
int(* swig_lua_base_iterator_func)(lua_State *, swig_type_info *, int, int *ret)
static int _wrap_smin(lua_State *L)
struct swig_module_info swig_module_info
SWIGINTERN void SWIG_Lua_create_class_registry(lua_State *L)
static int _wrap_gcol0a(lua_State *L)
static int _wrap_vect(lua_State *L)
static swig_lua_namespace swig_SwigModule
#define LUA_FREE_ARRAY(PTR)
static int _wrap_lab(lua_State *L)
static swig_type_info _swigt__p_f_int_double_p_char_int_p_void__void
static int _wrap_setopt(lua_State *L)
static int _wrap_shades(lua_State *L)
static int _wrap_PLGraphicsIn_button_set(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pushferrstring(lua_State *L, const char *fmt,...)
static swig_type_info * swig_type_initial[]
static int _wrap_mapstring(lua_State *L)
static int _wrap_col1(lua_State *L)
static int _wrap_btime(lua_State *L)
SWIGINTERN int SWIG_table_size(lua_State *L, int index)
static int _wrap_mtex3(lua_State *L)
static int _wrap_sdiplz(lua_State *L)
static int _wrap_styl(lua_State *L)
static int _wrap_vsta(lua_State *L)
static swig_cast_info _swigc__p_PLGraphicsIn[]
static int _wrap_sfnam(lua_State *L)
static int _wrap_fill(lua_State *L)
static int _wrap_mtex(lua_State *L)
static int _wrap_scmap1l(lua_State *L)
static swig_cast_info _swigc__p_p_char[]
static int _wrap_erry(lua_State *L)
static swig_lua_attribute swig_SwigModule_attributes[]
static int _wrap_PLGraphicsIn_pX_get(lua_State *L)
static swig_type_info _swigt__p_char
static int _wrap_col0(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_methods[]
static int _wrap_gfont(lua_State *L)
SWIGINTERN int SWIG_Lua_class_tostring(lua_State *L)
void(* fill_func)(PLINT, const PLFLT *, const PLFLT *)
static int _wrap_svpa(lua_State *L)
static int _wrap_scmap0(lua_State *L)
static int _wrap_vpas(lua_State *L)
static int _wrap_schr(lua_State *L)
static int _wrap_sxax(lua_State *L)
static int _wrap_stripd(lua_State *L)
static int _wrap_syax(lua_State *L)
static int _wrap_gcolbg(lua_State *L)
static swig_lua_class _wrap_class_PLGraphicsIn
static int _wrap_scompression(lua_State *L)
static int _wrap_maptex(lua_State *L)
static int _wrap_PLGraphicsIn_dY_set(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_q_const__double_p_q_const__double__void[]
static int _wrap_scol0(lua_State *L)
SWIGINTERN void SWIG_Lua_InstallConstants(lua_State *L, swig_lua_const_info constants[])
static int _wrap_sesc(lua_State *L)
SWIGINTERN void ** SWIG_get_ptr_array_fixed(lua_State *L, int index, int size, swig_type_info *type)
static int _wrap_sdiori(lua_State *L)
static int _proxy__wrap_new_PLGraphicsIn(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_metatable(lua_State *L, const char *cname)
static int _wrap_PLGraphicsIn_wY_set(lua_State *L)
SWIGINTERN void SWIG_Lua_add_class_instance_details(lua_State *L, swig_lua_class *clss)
static int _wrap_gdev(lua_State *L)
#define SWIG_Lua_add_boolean(L, n, b)
static int _wrap_fill3(lua_State *L)
#define lua_rawgetp(L, index, ptr)
#define SWIGRUNTIMEINLINE
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
struct swig_cast_info * prev
struct swig_cast_info * next
swig_converter_func converter
void(* destructor)(void *)
swig_lua_attribute * attributes
swig_lua_namespace * cls_static
struct swig_lua_class ** bases
swig_lua_method * metatable
lua_CFunction constructor
swig_lua_method * methods
swig_lua_method * ns_methods
swig_lua_attribute * ns_attributes
struct swig_lua_class ** ns_classes
swig_lua_const_info * ns_constants
struct swig_lua_namespace ** ns_namespaces
swig_cast_info ** cast_initial
swig_type_info ** type_initial
struct swig_module_info * next
struct swig_cast_info * cast