10#define SWIG_VERSION 0x040300
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 defined(__cplusplus) && __cplusplus >=201103L
140# define SWIG_NULLPTR nullptr
142# define SWIG_NULLPTR NULL
158#if ((defined __STDC_VERSION__ && __STDC_VERSION__ >= 199901L) || \
159 (defined __cplusplus && __cplusplus >= 201103L) || \
160 defined SWIG_HAVE_SNPRINTF) && \
161 !defined SWIG_NO_SNPRINTF
162# define SWIG_snprintf(O,S,F,A) snprintf(O,S,F,A)
163# define SWIG_snprintf2(O,S,F,A,B) snprintf(O,S,F,A,B)
169# define SWIG_snprintf(O,S,F,A) sprintf(O,F,A)
170# define SWIG_snprintf2(O,S,F,A,B) sprintf(O,F,A,B)
182#define SWIG_RUNTIME_VERSION "4"
185#ifdef SWIG_TYPE_TABLE
186# define SWIG_QUOTE_STRING(x) #x
187# define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
188# define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
190# define SWIG_TYPE_TABLE_NAME
203# define SWIGRUNTIME SWIGINTERN
206#ifndef SWIGRUNTIMEINLINE
207# define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
211#ifndef SWIG_BUFFER_SIZE
212# define SWIG_BUFFER_SIZE 1024
216#define SWIG_POINTER_DISOWN 0x1
217#define SWIG_CAST_NEW_MEMORY 0x2
218#define SWIG_POINTER_NO_NULL 0x4
219#define SWIG_POINTER_CLEAR 0x8
220#define SWIG_POINTER_RELEASE (SWIG_POINTER_CLEAR | SWIG_POINTER_DISOWN)
223#define SWIG_POINTER_OWN 0x1
307#define SWIG_ERROR (-1)
311#define SWIG_ERROR_RELEASE_NOT_OWNED (-200)
313#define SWIG_IsOK(r) (r >= 0)
314#define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
317#define SWIG_CASTRANKLIMIT (1 << 8)
319#define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
321#define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
323#define SWIG_BADOBJ (SWIG_ERROR)
324#define SWIG_OLDOBJ (SWIG_OK)
325#define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
326#define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
328#define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
329#define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
330#define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
331#define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
332#define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
333#define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
336#if defined(SWIG_CASTRANK_MODE)
337# ifndef SWIG_TypeRank
338# define SWIG_TypeRank unsigned long
340# ifndef SWIG_MAXCASTRANK
341# define SWIG_MAXCASTRANK (2)
343# define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
344# define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
349 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
352# define SWIG_AddCast(r) (r)
353# define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
363typedef void *(*swig_converter_func)(
void *,
int *);
405 const char *f2,
const char *l2) {
406 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
407 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
408 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
409 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
411 return (
int)((l1 - f1) - (l2 - f2));
421 const char* te = tb + strlen(tb);
423 while (equiv != 0 && *ne) {
424 for (nb = ne; *ne; ++ne) {
425 if (*ne ==
'|')
break;
450 if (strcmp(iter->
type->
name, c) == 0) {
451 if (iter == ty->
cast)
477 if (iter->
type == from) {
478 if (iter == ty->
cast)
510 if (!ty || !ty->
dcast)
return ty;
511 while (ty && (ty->
dcast)) {
512 ty = (*ty->
dcast)(ptr);
536 if (!type)
return NULL;
537 if (type->str != NULL) {
538 const char *last_name = type->str;
540 for (s = type->str; *s; s++)
541 if (*s ==
'|') last_name = s+1;
589 size_t r = iter->
size - 1;
592 size_t i = (l + r) >> 1;
593 const char *iname = iter->
types[i]->
name;
595 int compare = strcmp(
name, iname);
597 return iter->
types[i];
598 }
else if (compare < 0) {
604 }
else if (compare > 0) {
613 }
while (iter != end);
640 for (; i < iter->
size; ++i) {
642 return iter->
types[i];
645 }
while (iter != end);
657 static const char hex[17] =
"0123456789abcdef";
658 const unsigned char *u = (
unsigned char *) ptr;
659 const unsigned char *eu = u + sz;
660 for (; u != eu; ++u) {
661 unsigned char uu = *u;
662 *(c++) = hex[(uu & 0xf0) >> 4];
663 *(c++) = hex[uu & 0xf];
673 unsigned char *u = (
unsigned char *) ptr;
674 const unsigned char *eu = u + sz;
675 for (; u != eu; ++u) {
678 if ((d >=
'0') && (d <=
'9'))
679 uu = (
unsigned char)((d -
'0') << 4);
680 else if ((d >=
'a') && (d <=
'f'))
681 uu = (
unsigned char)((d - (
'a'-10)) << 4);
685 if ((d >=
'0') && (d <=
'9'))
686 uu |= (
unsigned char)(d -
'0');
687 else if ((d >=
'a') && (d <=
'f'))
688 uu |= (
unsigned char)(d - (
'a'-10));
702 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
705 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
713 if (strcmp(c,
"NULL") == 0) {
726 size_t lname = (
name ? strlen(
name) : 0);
727 if ((2*sz + 2 + lname) > bsz)
return 0;
731 strncpy(r,
name,lname+1);
741 if (strcmp(c,
"NULL") == 0) {
756#define SWIG_UnknownError -1
757#define SWIG_IOError -2
758#define SWIG_RuntimeError -3
759#define SWIG_IndexError -4
760#define SWIG_TypeError -5
761#define SWIG_DivisionByZero -6
762#define SWIG_OverflowError -7
763#define SWIG_SyntaxError -8
764#define SWIG_ValueError -9
765#define SWIG_SystemError -10
766#define SWIG_AttributeError -11
767#define SWIG_MemoryError -12
768#define SWIG_NullReferenceError -13
792#define SWIG_LUA_FLAVOR_LUA 1
793#define SWIG_LUA_FLAVOR_ELUA 2
794#define SWIG_LUA_FLAVOR_ELUAC 3
796#if !defined(SWIG_LUA_TARGET)
797# error SWIG_LUA_TARGET not defined
800#if defined(SWIG_LUA_ELUA_EMULATE)
802struct swig_elua_entry;
804typedef struct swig_elua_key {
812typedef struct swig_elua_val {
816 const struct swig_elua_entry *table;
828typedef struct swig_elua_entry {
833#define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
834#define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
835#define LNILKEY {LUA_TNIL, {.strkey = 0} }
837#define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
838#define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
839#define LROVAL(x) {LUA_TTABLE, {.table = x} }
840#define LNILVAL {LUA_TNIL, {.string = 0} }
841#define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
843#define LUA_REG_TYPE swig_elua_entry
845#define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
847#define lua_pushrotable(L,p)\
850 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
852#define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
853 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
855#define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
856 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
859#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
860# define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
861# define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
862# define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
863# define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
866#ifndef SWIG_LUA_CONSTTAB_POINTER
867#warning eLua does not support pointers as constants. By default, nil will be used as value
868#define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
871#ifndef SWIG_LUA_CONSTTAB_BINARY
872#warning eLua does not support pointers to member as constants. By default, nil will be used as value
873#define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
876# define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
877# define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
878# define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
879# define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
880# define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
881 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
882# define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
883 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
886#ifndef SWIG_LUA_ELUA_EMULATE
887#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
888# define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
889# define LSTRVAL LRO_STRVAL
893#ifndef SWIG_LUA_ELUA_EMULATE
894#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
897#define MIN_OPT_LEVEL 2
916#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
917# define lua_rawlen lua_strlen
918#elif LUA_VERSION_NUM == 501
919# define lua_rawlen lua_objlen
926#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
930 const char *result = lua_tostring(L, idx);
931 if (len) *len = lua_strlen(L, idx);
940#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
941# define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
945#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
946# define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
950#if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
951#define lua_rawsetp(L,index,ptr)\
952 lua_pushlightuserdata(L,(void*)(ptr));\
956#define lua_rawgetp(L,index,ptr)\
957 lua_pushlightuserdata(L,(void*)(ptr));\
973 lua_pushstring (L, str);
986 lua_pushvfstring(L, fmt, argp);
996#define SWIG_LUA_INT 1
997#define SWIG_LUA_FLOAT 2
998#define SWIG_LUA_STRING 3
999#define SWIG_LUA_POINTER 4
1000#define SWIG_LUA_BINARY 5
1001#define SWIG_LUA_CHAR 6
1010#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1080#define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1081#define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1082#define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1084#define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1085#define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1088#define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1089#define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1090#define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1093#define SWIG_contract_assert(expr, msg) \
1094 do { if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } } while (0)
1098#define SWIG_fail {goto fail;}
1099#define SWIG_fail_arg(func_name,argnum,type) \
1100 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1101 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1103#define SWIG_fail_ptr(func_name,argnum,type) \
1104 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1105#define SWIG_check_num_args(func_name,a,b) \
1106 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1107 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1111#define SWIG_Lua_get_table(L,n) \
1112 (lua_pushstring(L, n), lua_rawget(L,-2))
1114#define SWIG_Lua_add_function(L,n,f) \
1115 (lua_pushstring(L, n), \
1116 lua_pushcfunction(L, f), \
1119#define SWIG_Lua_add_boolean(L,n,b) \
1120 (lua_pushstring(L, n), \
1121 lua_pushboolean(L, b), \
1125#define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1138 lua_rawget(L,LUA_REGISTRYINDEX);
1139 if (lua_islightuserdata(L,-1))
1149 lua_pushlightuserdata(L,(
void*)module);
1150 lua_rawset(L,LUA_REGISTRYINDEX);
1163#ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1165 luaL_error(L,
"This variable is immutable");
1170#ifdef SWIG_LUA_ELUA_EMULATE
1174static int swig_lua_elua_emulate_unique_key;
1177SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1179 int i, table_parsed, parsed_tables_array, target_table;
1180 assert(lua_istable(L,-1));
1181 target_table = lua_gettop(L);
1183 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1184 if(lua_isnil(L,-1)) {
1187 lua_pushvalue(L,-1);
1188 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1190 parsed_tables_array = lua_gettop(L);
1191 lua_pushvalue(L,target_table);
1194 const int SWIGUNUSED pairs_start = lua_gettop(L);
1195 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1197 const swig_elua_entry *entry = table + i;
1198 int is_metatable = 0;
1199 switch(entry->key.type) {
1201 lua_pushstring(L,entry->key.key.strkey);
1202 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1206 lua_pushnumber(L,entry->key.key.numkey);
1214 switch(entry->value.type) {
1216 lua_pushstring(L,entry->value.value.string);
1219 lua_pushnumber(L,entry->value.value.number);
1222 lua_pushcfunction(L,entry->value.value.function);
1225 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1226 table_parsed = !lua_isnil(L,-1);
1230 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1233 assert(lua_istable(L,-1));
1234 lua_pushvalue(L,-1);
1235 lua_setmetatable(L,target_table);
1240 if(entry->value.value.userdata.member)
1242 entry->value.value.userdata.lvalue,
1243 *(entry->value.value.userdata.ptype));
1246 *(entry->value.value.userdata.ptype),0);
1254 assert(lua_gettop(L) == pairs_start + 2);
1255 lua_rawset(L,target_table);
1258 assert(lua_gettop(L) == target_table);
1261SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1264 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1269SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1273 lua_getfield(L,-1,
"lua_getmetatable");
1275 assert(!lua_isnil(L,-1));
1277 assert(lua_gettop(L) == 3);
1279 if(!lua_isnil(L,-1))
1282 assert(lua_gettop(L) == 2);
1283 if(lua_istable(L,-2)) {
1285 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1287 assert(lua_gettop(L) == 2);
1295SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1299 lua_pushstring(L,
"lua_getmetatable");
1300 lua_getfield(L,-2,
"getmetatable");
1301 assert(!lua_isnil(L,-1));
1303 lua_pushstring(L,
"getmetatable");
1304 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1322 assert(lua_istable(L,-2));
1323 lua_getmetatable(L,-2);
1324 assert(lua_istable(L,-1));
1326 assert(lua_istable(L,-1));
1331 if (lua_iscfunction(L,-1))
1340 assert(lua_istable(L,-1));
1344 if (lua_isfunction(L,-1))
1361 assert(lua_istable(L,1));
1362 lua_getmetatable(L,1);
1363 assert(lua_istable(L,-1));
1366 if (lua_istable(L,-1))
1371 if (lua_iscfunction(L,-1))
1385#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1395 assert(lua_istable(L,-1));
1402 lua_getmetatable(L,-1);
1420 assert(lua_istable(L,-1));
1424 if( classes != 0 ) {
1425 while(*classes != 0) {
1442 assert(lua_istable(L,-1));
1443 lua_checkstack(L,5);
1448 lua_pushstring(L,
".get");
1452 lua_pushstring(L,
".set");
1456 lua_pushstring(L,
".fn");
1464 lua_setmetatable(L,-2);
1472 if( sub_namespace != 0) {
1473 while(*sub_namespace != 0) {
1481 lua_pushstring(L,ns->
name);
1482 lua_pushvalue(L,-2);
1485 assert(lua_gettop(L) == begin+1);
1502 int last_arg = lua_gettop(L);
1503 int original_metatable = last_arg + 1;
1508 lua_getmetatable(L,first_arg);
1511#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1513 assert(lua_istable(L,-1));
1515 bases_table = lua_gettop(L);
1519 assert(swig_type!=0);
1524 for(;base_names[bases_count];
1535 int subcall_last_arg;
1536 int subcall_first_arg = lua_gettop(L) + 1;
1539 for(j=first_arg;j<=last_arg;j++)
1541 subcall_last_arg = lua_gettop(L);
1544 for(i=0;i<bases_count;i++) {
1546#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1547 lua_rawgeti(L,bases_table,i+1);
1549 if(lua_isnil(L,-1)) {
1563 assert(base_swig_type != 0);
1569 assert(lua_isuserdata(L, subcall_first_arg));
1570 assert(lua_istable(L,-1));
1571 lua_setmetatable(L,subcall_first_arg);
1572 assert(lua_gettop(L) == subcall_last_arg);
1573 result = func(L, base_swig_type,subcall_first_arg, ret);
1579 lua_pushvalue(L,original_metatable);
1580 lua_setmetatable(L,first_arg);
1582 to_remove = subcall_last_arg - last_arg;
1583 for(j=0;j<to_remove;j++)
1584 lua_remove(L,last_arg+1);
1587 lua_pop(L, lua_gettop(L) - last_arg);
1589 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1603 int bases_search_result;
1604 int substack_start = lua_gettop(L)-2;
1605 assert(first_arg == substack_start+1);
1607 lua_checkstack(L,5);
1608 assert(lua_isuserdata(L,-2));
1609 lua_getmetatable(L,-2);
1610 assert(lua_istable(L,-1));
1614 if (lua_iscfunction(L,-1))
1616 lua_pushvalue(L,substack_start+1);
1617 lua_pushvalue(L,substack_start+2);
1628 return bases_search_result;
1642 int bases_search_result;
1643 int substack_start = lua_gettop(L)-2;
1644 assert(first_arg == substack_start+1);
1646 lua_checkstack(L,5);
1647 assert(lua_isuserdata(L,-2));
1648 lua_getmetatable(L,-2);
1649 assert(lua_istable(L,-1));
1651 assert(lua_istable(L,-1));
1653 lua_pushvalue(L,substack_start+2);
1656 if (lua_iscfunction(L,-1))
1658 lua_pushvalue(L,substack_start+1);
1668 assert(lua_istable(L,-1));
1669 lua_pushvalue(L,substack_start+2);
1672 if (lua_isfunction(L,-1))
1684 return bases_search_result;
1699 assert(lua_isuserdata(L,1));
1724 int bases_search_result;
1725 int substack_start = lua_gettop(L) - 3;
1726 lua_checkstack(L,5);
1727 assert(lua_isuserdata(L,substack_start+1));
1728 lua_getmetatable(L,substack_start+1);
1729 assert(lua_istable(L,-1));
1734 if (lua_istable(L,-1))
1737 lua_pushvalue(L,substack_start+2);
1740 if (lua_iscfunction(L,-1))
1742 lua_pushvalue(L,substack_start+1);
1743 lua_pushvalue(L,substack_start+3);
1745 lua_remove(L,substack_start+4);
1755 if (lua_iscfunction(L,-1))
1757 lua_pushvalue(L,substack_start+1);
1758 lua_pushvalue(L,substack_start+2);
1759 lua_pushvalue(L,substack_start+3);
1771 assert(lua_gettop(L) == substack_start + 3);
1772 return bases_search_result;
1789 assert(lua_isuserdata(L,1));
1794 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1809 assert(lua_isuserdata(L,-1));
1829 assert(lua_isuserdata(L,1));
1832 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->
type->
str, userData->
ptr);
1842 assert(lua_isuserdata(L,-1));
1856 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1861 result=(usr1->
ptr==usr2->
ptr);
1862 lua_pushboolean(L,result);
1890 lua_pushstring(L,
"SWIG");
1895 lua_pushstring(L,
".library");
1899 lua_pushstring(L,
"inheritable_metamethods");
1907 lua_rawset(L,LUA_REGISTRYINDEX);
1914 lua_pushstring(L,
"SWIG");
1915 lua_rawget(L,LUA_REGISTRYINDEX);
1916 if (!lua_istable(L,-1))
1921 lua_pushstring(L,
"SWIG");
1922 lua_rawget(L,LUA_REGISTRYINDEX);
1929 lua_pushstring(L,
".library");
1931 assert( !lua_isnil(L,-1) );
1932 lua_pushstring(L,
"inheritable_metamethods");
1944 lua_pushstring(L,cname);
1962 if (clss->
bases[i]==0)
1971#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1973SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1977 while (lua_next(L,source) != 0) {
1980 lua_pushvalue(L,-2);
1981 lua_pushvalue(L,-2);
1982 lua_rawset(L, target);
1989SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1992 lua_pushstring(L,
name);
1993 lua_rawget(L,original);
1994 int original_table = lua_gettop(L);
1995 lua_pushstring(L,
name);
1997 int base_table = lua_gettop(L);
1998 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
2007 assert(lua_istable(L,-1));
2008 int original = lua_gettop(L);
2010 int base = lua_gettop(L);
2011 SWIG_Lua_merge_tables(L,
".fn", original, base );
2012 SWIG_Lua_merge_tables(L,
".set", original, base );
2013 SWIG_Lua_merge_tables(L,
".get", original, base );
2024 if (clss->
bases[i]==0)
2030 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
2036#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2040 assert(lua_istable(L,-1));
2042 assert(lua_istable(L,-1));
2048 assert(lua_istable(L,-1));
2059 assert(lua_istable(L,-1));
2061 for(i=0;clss->
bases[i];i++)
2075 size_t bases_count = 0;
2078 assert(lua_istable(L,-1));
2079 for(i=0;clss->
bases[i];i++)
2083 assert(lua_istable(L,-1));
2084 lua_rawseti(L,-2,i+1);
2095 assert(lua_istable(L,-1));
2096 for(i=0;clss->
methods[i].name;i++){
2110#if !defined(SWIG_LUA_SQUASH_BASES)
2152 lua_pushvalue(L, metamethod_name_idx);
2166 for(i=0;clss->
bases[i];i++)
2181 int metamethod_name_idx;
2185 lua_checkstack(L,5);
2186 numargs = lua_gettop(L);
2189 lua_pushvalue(L, lua_upvalueindex(1));
2190 metamethod_name_idx = lua_gettop(L);
2192 lua_pushvalue(L, lua_upvalueindex(2));
2199 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2206 lua_call(L, numargs, LUA_MULTRET);
2207 return lua_gettop(L);
2222 assert(lua_isstring(L,-1));
2224 key_index = lua_gettop(L);
2227 lua_pushvalue(L,key_index);
2228 lua_gettable(L,metatable_index);
2229 if( !lua_isnil(L,-1) ) {
2236 for(i=0;clss->
bases[i];i++)
2240 lua_pushvalue(L, key_index);
2242 if( !lua_isnil(L,-1) ) {
2243 lua_pushvalue(L, key_index);
2246 lua_pushvalue(L, key_index);
2247 lua_pushlightuserdata(L, clss);
2250 lua_rawset(L, metatable_index);
2265 int metatable_index;
2266 int metamethods_info_index;
2267 int tostring_undefined;
2268 int eq_undefined = 0;
2271 metatable_index = lua_gettop(L);
2273 assert(lua_istable(L,-1));
2274 metamethods_info_index = lua_gettop(L);
2276 while(lua_next(L, metamethods_info_index) != 0 ) {
2278 const int is_inheritable = lua_toboolean(L,-2);
2281 if(is_inheritable) {
2289 lua_pushstring(L,
"__tostring");
2290 lua_pushvalue(L,-1);
2291 lua_rawget(L,metatable_index);
2292 tostring_undefined = lua_isnil(L,-1);
2294 if( tostring_undefined ) {
2296 lua_rawset(L, metatable_index);
2302 lua_pushstring(L,
"__eq");
2303 lua_pushvalue(L,-1);
2304 lua_rawget(L,metatable_index);
2305 eq_undefined = lua_isnil(L,-1);
2307 if( eq_undefined ) {
2309 lua_rawset(L, metatable_index);
2323 lua_checkstack(L,5);
2324 assert(lua_istable(L,-1));
2329 assert(lua_istable(L,-1));
2337 lua_getmetatable(L,-1);
2338 assert(lua_istable(L,-1));
2343 assert(lua_istable(L,-1));
2348 assert( lua_gettop(L) == begin );
2360 lua_pushstring(L,clss->
fqname);
2362 if(!lua_isnil(L,-1)) {
2364 assert(lua_gettop(L)==begin);
2369 for(i=0;clss->
bases[i];i++)
2375 lua_pushstring(L,clss->
fqname);
2377#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2384 for(i=0;clss->
bases[i];i++)
2389 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2396 lua_pushstring(L,
".type");
2397 lua_pushstring(L,clss->
fqname);
2400 lua_pushstring(L,
".bases");
2404 lua_pushstring(L,
".get");
2408 lua_pushstring(L,
".set");
2412 lua_pushstring(L,
".fn");
2424 assert(lua_gettop(L) == begin);
2426#if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2428 SWIG_Lua_class_squash_bases(L,clss);
2433 assert( lua_gettop(L) == begin );
2439 assert(lua_istable(L,-1));
2453 begin = lua_gettop(L);
2456 assert(lua_istable(L,-1));
2457 lua_getmetatable(L,-1);
2458 assert(lua_istable(L,-1));
2459 lua_pushstring(L,
".instance");
2462 assert(lua_istable(L,-1));
2463 lua_pushstring(L,
".static");
2464 lua_pushvalue(L, -4);
2465 assert(lua_istable(L,-1));
2469 assert(lua_gettop(L) == begin);
2473#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2480 lua_pushstring(L,clss->
fqname);
2482 if(!lua_isnil(L,-1)) {
2484 assert(lua_gettop(L)==begin);
2489 for(i=0;clss->
bases[i];i++)
2491 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2495 lua_pushstring(L,clss->
fqname);
2497 lua_pushrotable(L, (
void*)(clss->
metatable));
2500 assert(lua_gettop(L) == begin);
2511 if (type->clientdata)
2514 if (lua_istable(L,-1))
2516 lua_setmetatable(L,-2);
2537#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2550 if (lua_isnil(L,index))
2555 if (lua_islightuserdata(L,index))
2557 *ptr=lua_touserdata(L,index);
2596 int argnum,
const char *func_name){
2599 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2600 func_name,(type && type->str)?type->str:
"void*",argnum);
2613 memcpy(raw->
data,ptr,size);
2623 if (type==0 || type==raw->
type)
2625 memcpy(ptr,raw->
data,size);
2635 if (lua_isuserdata(L,tp))
2640 return "userdata (unknown type)";
2642 return lua_typename(L,lua_type(L,tp));
2656#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2661 for (i = 0; constants[i].
type; i++) {
2662 switch(constants[i].type) {
2664 lua_pushstring(L,constants[i].
name);
2665 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2669 lua_pushstring(L,constants[i].
name);
2670 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2674 lua_pushstring(L,constants[i].
name);
2676 char c = (char)constants[i].lvalue;
2677 lua_pushlstring(L,&c,1);
2682 lua_pushstring(L,constants[i].
name);
2683 lua_pushstring(L,(
char *) constants[i].pvalue);
2687 lua_pushstring(L,constants[i].
name);
2692 lua_pushstring(L,constants[i].
name);
2693 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2707#ifndef SWIG_DOSTRING_FAIL
2708#define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2718 if (str==0 || str[0]==0)
return 0;
2720#if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2721 ok=luaL_dostring(L,str);
2723 ok=lua_dostring(L,str);
2741#define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2742#define SWIGTYPE_p_char swig_types[1]
2743#define SWIGTYPE_p_double swig_types[2]
2744#define SWIGTYPE_p_f_double_double__int swig_types[3]
2745#define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2746#define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2747#define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2748#define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2749#define SWIGTYPE_p_int swig_types[8]
2750#define SWIGTYPE_p_p_char swig_types[9]
2751#define SWIGTYPE_p_p_double swig_types[10]
2752#define SWIGTYPE_p_unsigned_int swig_types[11]
2755#define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2756#define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2760#define SWIG_name "plplotluac"
2761#define SWIG_init luaopen_plplotluac
2762#define SWIG_init_user luaopen_plplotluac_user
2764#define SWIG_LUACODE luaopen_plplotluac_luacode
2769#define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2770#define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2774#define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2775 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2777 for ( i = 0; i < size; i++ ) { \
2778 lua_rawgeti( L, index, i + 1 ); \
2779 if ( lua_isnumber( L, -1 ) ) { \
2780 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2789 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2792 if ( !lua_istable( L, index ) ) { \
2793 lua_pushstring( L, "expected a table" ); \
2796 *size = SWIG_itable_size( L, index ); \
2797 if ( *size < 1 ) { \
2798 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2799 array[0] = (TYPE) 0; \
2802 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2803 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2804 lua_pushstring( L, "table must contain numbers" ); \
2805 LUA_FREE_ARRAY( array ); \
2820#define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2821#define SWIG_FREE_ARRAY(PTR) delete[] PTR
2823#define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2824#define SWIG_FREE_ARRAY(PTR) free(PTR)
2831 lua_rawgeti(L,index,n+1);
2832 if (lua_isnil(L,-1))
break;
2844 while (lua_next(L, index) != 0) {
2852#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2853 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2855 for (i = 0; i < size; i++) {\
2856 lua_rawgeti(L,index,i+1);\
2857 if (lua_isnumber(L,-1)){\
2858 array[i] = (TYPE)lua_tonumber(L,-1);\
2867 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2869 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2870 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2873 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2874 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2875 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2876 SWIG_FREE_ARRAY(array);\
2881 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2884 if (!lua_istable(L,index)) {\
2885 SWIG_Lua_pusherrstring(L,"expected a table");\
2888 *size=SWIG_itable_size(L,index);\
2890 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2893 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2894 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2895 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2896 SWIG_FREE_ARRAY(array);\
2901 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2904 for (i = 0; i < size; i++){\
2905 lua_pushnumber(L,(lua_Number)array[i]);\
2906 lua_rawseti(L,-2,i+1); \
2923 for (i = 0; i < size; i++) {
2924 lua_rawgeti(L,index,i+1);
2925 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2949 if (!lua_istable(L,index)) {
2969 for (i = 0; i < size; i++){
2971 lua_rawseti(L,-2,i+1);
2986 if ( !lua_istable( L, index ) )
2988 lua_pushstring( L,
"expected a table" );
2994 lua_pushstring( L,
"table appears to be empty" );
2998 for ( i = 0; i < *nx; i++ )
3001 lua_rawgeti( L, index, 1 );
3002 if ( !lua_istable( L, -1 ) )
3005 lua_pushstring( L,
"expected a table" );
3012 lua_pushstring( L,
"table appears to be empty" );
3018 for ( i = 0; i < *nx; i++ )
3020 lua_rawgeti( L, index, i + 1 );
3021 if ( !lua_istable( L, -1 ) )
3024 lua_pushstring( L,
"expected a table" );
3025 for ( j = 0; j < *ny; j++ )
3033 lua_pushstring( L,
"inconsistent table sizes" );
3034 for ( j = 0; j < i; j++ )
3040 for ( j = 0; j < *ny; j++ )
3042 lua_rawgeti( L, -1, j + 1 );
3043 if ( lua_isnumber( L, -1 ) )
3045 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
3050 lua_pushstring( L,
"table must contain numbers" );
3051 for ( j = 0; j < i + 1; j++ )
3072 PLFLT *xtemp, *ytemp;
3078 fprintf( stderr,
"Lua state is not set!" );
3084 lua_pushnumber(
myL, n );
3085 SWIG_write_double_num_array(
myL, x, n );
3086 SWIG_write_double_num_array(
myL, y, n );
3089 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3090 fprintf( stderr,
"error running function `%s':%s",
3094 if ( !lua_istable(
myL, -2 ) )
3096 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3099 if ( !lua_istable(
myL, -1 ) )
3101 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3104 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3105 if ( !xtemp || len != n )
3107 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3110 for ( i = 0; i < n; i++ )
3114 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3115 if ( !ytemp || len != n )
3117 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3120 for ( i = 0; i < n; i++ )
3155 fprintf( stderr,
"Lua state is not set!" );
3161 lua_pushnumber(
myL, x );
3162 lua_pushnumber(
myL, y );
3165 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3166 fprintf( stderr,
"error running function `%s':%s",
3170 if ( !lua_isnumber(
myL, -2 ) )
3172 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3175 if ( !lua_isnumber(
myL, -1 ) )
3177 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3180 *tx = lua_tonumber(
myL, -2 );
3181 *ty = lua_tonumber(
myL, -1 );
3199 fprintf( stderr,
"Lua state is not set!" );
3205 lua_pushnumber(
myL, x );
3206 lua_pushnumber(
myL, y );
3209 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3210 fprintf( stderr,
"error running function `%s':%s",
3214 if ( !lua_isnumber(
myL, -2 ) )
3216 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3219 if ( !lua_isnumber(
myL, -1 ) )
3221 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3224 *tx = lua_tonumber(
myL, -2 );
3225 *ty = lua_tonumber(
myL, -1 );
3238 fprintf( stderr,
"Lua state is not set!" );
3244 lua_pushnumber(
myL, axis );
3248 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3249 fprintf( stderr,
"error running function `%s':%s",
3253 if ( !lua_isstring(
myL, -1 ) )
3255 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3258 strncpy( label, lua_tostring(
myL, -1 ), length );
3270 int ret = lua_isstring(L, idx);
3272 ret = lua_isnil(L, idx);
3286 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3292 arg2 = (int)lua_tonumber(L, 2);
3293 if (arg1) (arg1)->type = arg2;
3315 result = (int) ((arg1)->type);
3316 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3332 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3339 arg2 = (
unsigned int)lua_tonumber(L, 2);
3340 if (arg1) (arg1)->state = arg2;
3353 unsigned int result;
3362 result = (
unsigned int) ((arg1)->state);
3363 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3379 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3386 arg2 = (
unsigned int)lua_tonumber(L, 2);
3387 if (arg1) (arg1)->keysym = arg2;
3400 unsigned int result;
3409 result = (
unsigned int) ((arg1)->keysym);
3410 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3426 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3433 arg2 = (
unsigned int)lua_tonumber(L, 2);
3434 if (arg1) (arg1)->button = arg2;
3447 unsigned int result;
3456 result = (
unsigned int) ((arg1)->button);
3457 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3473 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3479 arg2 = (
PLINT)lua_tonumber(L, 2);
3480 if (arg1) (arg1)->subwindow = arg2;
3502 result = (
PLINT) ((arg1)->subwindow);
3503 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3515 char *arg2 = (
char *) (
char *)0 ;
3525 arg2 = (
char *)lua_tostring(L, 2);
3528 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
3555 result = (
char *)(
char *) ((arg1)->string);
3556 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3572 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3578 arg2 = (int)lua_tonumber(L, 2);
3579 if (arg1) (arg1)->pX = arg2;
3601 result = (int) ((arg1)->pX);
3602 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3618 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3624 arg2 = (int)lua_tonumber(L, 2);
3625 if (arg1) (arg1)->pY = arg2;
3647 result = (int) ((arg1)->pY);
3648 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3664 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3670 arg2 = (
PLFLT)lua_tonumber(L, 2);
3671 if (arg1) (arg1)->dX = arg2;
3693 result = (
PLFLT) ((arg1)->dX);
3694 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3710 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3716 arg2 = (
PLFLT)lua_tonumber(L, 2);
3717 if (arg1) (arg1)->dY = arg2;
3739 result = (
PLFLT) ((arg1)->dY);
3740 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3756 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3762 arg2 = (
PLFLT)lua_tonumber(L, 2);
3763 if (arg1) (arg1)->wX = arg2;
3785 result = (
PLFLT) ((arg1)->wX);
3786 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3802 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3808 arg2 = (
PLFLT)lua_tonumber(L, 2);
3809 if (arg1) (arg1)->wY = arg2;
3831 result = (
PLFLT) ((arg1)->wY);
3832 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3861 assert(lua_istable(L,1));
3863 assert(!lua_isnil(L,-1));
3865 lua_call(L,lua_gettop(L)-1,1);
3913static 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 };
3921 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3922 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3923 arg1 = (
PLINT)lua_tonumber(L, 1);
3924 arg2 = (
PLINT)lua_tonumber(L, 2);
3943 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3944 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3945 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3946 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3947 arg1 = (
PLFLT)lua_tonumber(L, 1);
3948 arg2 = (
PLFLT)lua_tonumber(L, 2);
3949 arg3 = (
PLFLT)lua_tonumber(L, 3);
3950 arg4 = (
PLINT)lua_tonumber(L, 4);
3967 arg1 = (
PLINT)lua_tonumber(L, 1);
3998 arg1 = (
PLFLT)lua_tonumber(L, 1);
3999 arg2 = (
PLFLT)lua_tonumber(L, 2);
4000 arg3 = (
PLFLT)lua_tonumber(L, 3);
4001 arg4 = (
PLFLT)lua_tonumber(L, 4);
4002 arg5 = (
PLFLT)lua_tonumber(L, 5);
4003 arg6 = (
PLFLT)lua_tonumber(L, 6);
4004 arg7 = (
PLFLT)lua_tonumber(L, 7);
4005 arg8 = (
PLBOOL)lua_tonumber(L, 8);
4006 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4020 char *arg3 = (
char *) 0 ;
4023 char *arg6 = (
char *) 0 ;
4036 arg1 = (
PLFLT)lua_tonumber(L, 1);
4037 arg2 = (
PLFLT)lua_tonumber(L, 2);
4038 arg3 = (
char *)lua_tostring(L, 3);
4039 arg4 = (
PLFLT)lua_tonumber(L, 4);
4040 arg5 = (
PLINT)lua_tonumber(L, 5);
4041 arg6 = (
char *)lua_tostring(L, 6);
4042 arg7 = (
PLFLT)lua_tonumber(L, 7);
4043 arg8 = (
PLINT)lua_tonumber(L, 8);
4044 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4066 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4072 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4075 if ( temp3 !=
Alen )
4077 lua_pushfstring( L,
"Tables must be of same length." );
4081 arg4 = (
PLINT)lua_tonumber(L, 3);
4082 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4128 arg7 = (
PLFLT)lua_tonumber(L, 1);
4129 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4131 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4132 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4133 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4134 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4135 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4136 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4161 char *arg1 = (
char *) 0 ;
4164 char *arg4 = (
char *) 0 ;
4175 arg1 = (
char *)lua_tostring(L, 1);
4176 arg2 = (
PLFLT)lua_tonumber(L, 2);
4177 arg3 = (
PLINT)lua_tonumber(L, 3);
4178 arg4 = (
char *)lua_tostring(L, 4);
4179 arg5 = (
PLFLT)lua_tonumber(L, 5);
4180 arg6 = (
PLINT)lua_tonumber(L, 6);
4181 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4193 char *arg1 = (
char *) 0 ;
4194 char *arg2 = (
char *) 0 ;
4197 char *arg5 = (
char *) 0 ;
4198 char *arg6 = (
char *) 0 ;
4201 char *arg9 = (
char *) 0 ;
4202 char *arg10 = (
char *) 0 ;
4219 arg1 = (
char *)lua_tostring(L, 1);
4220 arg2 = (
char *)lua_tostring(L, 2);
4221 arg3 = (
PLFLT)lua_tonumber(L, 3);
4222 arg4 = (
PLINT)lua_tonumber(L, 4);
4223 arg5 = (
char *)lua_tostring(L, 5);
4224 arg6 = (
char *)lua_tostring(L, 6);
4225 arg7 = (
PLFLT)lua_tonumber(L, 7);
4226 arg8 = (
PLINT)lua_tonumber(L, 8);
4227 arg9 = (
char *)lua_tostring(L, 9);
4228 arg10 = (
char *)lua_tostring(L, 10);
4229 arg11 = (
PLFLT)lua_tonumber(L, 11);
4230 arg12 = (
PLINT)lua_tonumber(L, 12);
4231 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);
4256 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4257 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4258 arg1 = (
PLFLT)lua_tonumber(L, 1);
4259 arg2 = (
PLFLT)lua_tonumber(L, 2);
4262 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4263 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4264 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4293 arg1 = (
PLINT)lua_tonumber(L, 1);
4310 arg1 = (
PLFLT)lua_tonumber(L, 1);
4336 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4337 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4338 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4339 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4340 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4341 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4342 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4343 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4344 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4345 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4346 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4347 arg1 = (
PLFLT)lua_tonumber(L, 1);
4348 arg2 = (
PLFLT)lua_tonumber(L, 2);
4349 arg3 = (
PLFLT)lua_tonumber(L, 3);
4350 arg4 = (
PLINT)lua_tonumber(L, 4);
4351 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4352 arg6 = (
PLINT)lua_tonumber(L, 6);
4353 arg7 = (
PLINT)lua_tonumber(L, 7);
4354 arg8 = (
PLINT)lua_tonumber(L, 8);
4355 arg9 = (
PLINT)lua_tonumber(L, 9);
4356 arg10 = (
PLINT)lua_tonumber(L, 10);
4357 arg11 = (
PLFLT)lua_tonumber(L, 11);
4358 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4386 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4387 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4388 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4389 cgrid211.
nx = cgrid211.
ny = 0;
4411 arg4 = (
PLINT)lua_tonumber(L, 2);
4412 arg5 = (
PLINT)lua_tonumber(L, 3);
4413 arg6 = (
PLINT)lua_tonumber(L, 4);
4414 arg7 = (
PLINT)lua_tonumber(L, 5);
4417 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4422 if(lua_gettop(L)>=7){
4427 if ( lua_isstring( L, 7 ) )
4429 const char* funcstr = lua_tostring( L, 7 );
4430 if ( strcmp(
"pltr0", funcstr ) == 0 )
4434 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4438 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4453 if(lua_gettop(L)>=8){
4458 lua_pushstring( L,
"xg" );
4459 lua_gettable( L, 8 );
4460 if ( !lua_istable( L, -1 ) )
4463 lua_pushstring( L,
"expected a table xg" );
4466 lua_rawgeti( L, -1, 1 );
4467 if ( lua_istable( L, -1 ) )
4469 else if ( lua_isnumber( L, -1 ) )
4475 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4479 if ( gridmode == 1 )
4481 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4489 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4502 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4505 lua_pushfstring( L,
"Vectors must match matrix." );
4513 lua_pushstring( L,
"yg" );
4514 lua_gettable( L, 8 );
4515 if ( !lua_istable( L, -1 ) )
4518 lua_pushstring( L,
"expected a table yg" );
4521 lua_rawgeti( L, -1, 1 );
4522 if ( gridmode == 2 )
4524 if ( !lua_istable( L, -1 ) )
4528 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4534 if ( !lua_isnumber( L, -1 ) )
4538 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4543 if ( gridmode == 1 )
4545 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4553 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4566 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4569 lua_pushfstring( L,
"Vectors must match matrix." );
4576 if ( gridmode == 1 )
4578 else if ( gridmode == 2 )
4582 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4589 for ( i = 0; i < ii1; i++ )
4608 for ( i = 0; i <
Xlen; i++ )
4614 for ( i = 0; i <
Xlen; i++ )
4627 for ( i = 0; i < ii1; i++ )
4646 for ( i = 0; i <
Xlen; i++ )
4652 for ( i = 0; i <
Xlen; i++ )
4681 arg1 = (
PLINT)lua_tonumber(L, 1);
4682 arg2 = (
PLINT)lua_tonumber(L, 2);
4683 arg3 = (
PLINT)lua_tonumber(L, 3);
4684 arg4 = (
PLINT)lua_tonumber(L, 4);
4685 arg5 = (
PLINT)lua_tonumber(L, 5);
4686 arg6 = (
PLFLT)lua_tonumber(L, 6);
4687 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4689 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4705 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4706 arg1 = (
PLINT)lua_tonumber(L, 1);
4707 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4762 arg1 = (
PLFLT)lua_tonumber(L, 1);
4763 arg2 = (
PLFLT)lua_tonumber(L, 2);
4764 arg3 = (
PLFLT)lua_tonumber(L, 3);
4765 arg4 = (
PLFLT)lua_tonumber(L, 4);
4766 arg5 = (
PLINT)lua_tonumber(L, 5);
4767 arg6 = (
PLINT)lua_tonumber(L, 6);
4768 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4794 arg1 = (
PLFLT)lua_tonumber(L, 1);
4795 arg2 = (
PLFLT)lua_tonumber(L, 2);
4796 arg3 = (
PLFLT)lua_tonumber(L, 3);
4797 arg4 = (
PLFLT)lua_tonumber(L, 4);
4798 arg5 = (
PLINT)lua_tonumber(L, 5);
4799 arg6 = (
PLINT)lua_tonumber(L, 6);
4800 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4836 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4842 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4845 if ( temp3 !=
Alen )
4847 lua_pushfstring( L,
"Tables must be of same length." );
4852 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4855 if ( temp4 !=
Alen )
4857 lua_pushfstring( L,
"Tables must be of same length." );
4861 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4901 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4907 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4910 if ( temp3 !=
Alen )
4912 lua_pushfstring( L,
"Tables must be of same length." );
4917 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4920 if ( temp4 !=
Alen )
4922 lua_pushfstring( L,
"Tables must be of same length." );
4926 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4978 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4984 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4987 if ( temp3 !=
Alen )
4989 lua_pushfstring( L,
"Tables must be of same length." );
4993 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5027 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5033 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5036 if ( temp3 !=
Alen )
5038 lua_pushfstring( L,
"Tables must be of same length." );
5043 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5046 if ( temp4 !=
Alen )
5048 lua_pushfstring( L,
"Tables must be of same length." );
5052 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5089 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5092 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5098 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5101 if ( temp3 !=
Alen )
5103 lua_pushfstring( L,
"Tables must be of same length." );
5107 arg4 = (
PLFLT)lua_tonumber(L, 3);
5108 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5150 arg1 = (
PLINT)lua_tonumber(L, 1);
5167 arg1 = (
PLINT)lua_tonumber(L, 1);
5190 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5191 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5215 arg1 = (
PLINT)lua_tonumber(L, 1);
5218 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5219 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5220 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5247 arg1 = (
PLINT)lua_tonumber(L, 1);
5248 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5250 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5251 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5252 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5253 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5277 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5278 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5279 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5306 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5307 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5308 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5309 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5327 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5338 char *arg1 = (
char *) 0 ;
5348 lua_pushstring( L, arg1 );
5377 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5378 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5379 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5380 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5398 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5425 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5426 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5427 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5428 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5452 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5453 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5454 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5472 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5483 char *arg1 = (
char *) 0 ;
5493 lua_pushstring( L, arg1 );
5519 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5520 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5521 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5539 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5570 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5572 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5573 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5574 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5575 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5576 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5577 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5616 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5617 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5620 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5626 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5629 if ( temp2 !=
Alen )
5631 lua_pushfstring( L,
"Tables must be of same length." );
5637 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5642 lua_pushfstring( L,
"Tables must be of same length." );
5649 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5657 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5665 for ( i = 0; i <
Xlen; i++ )
5668 for ( i = 0; i <
Xlen; i++ )
5675 arg10 = (
PLINT)lua_tonumber(L, 6);
5676 arg11 = (
PLFLT)lua_tonumber(L, 7);
5677 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5685 for ( i = 0; i <
Xlen; i++ )
5687 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5688 lua_rawseti( L, -2, i + 1 );
5712 for ( i = 0; i <
Xlen; i++ )
5739 for ( i = 0; i <
Xlen; i++ )
5765 plgspa(arg1,arg2,arg3,arg4);
5767 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5768 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5769 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5770 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5788 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5799 char *arg1 = (
char *) 0 ;
5809 lua_pushstring( L, arg1 );
5836 plgvpd(arg1,arg2,arg3,arg4);
5838 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5839 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5840 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5841 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5866 plgvpw(arg1,arg2,arg3,arg4);
5868 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5869 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5870 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5871 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5892 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5893 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5914 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5915 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5936 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5937 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5962 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5967 arg3 = (
PLFLT)lua_tonumber(L, 2);
5968 arg4 = (
PLFLT)lua_tonumber(L, 3);
5969 arg5 = (
PLINT)lua_tonumber(L, 4);
5970 arg6 = (
PLINT)lua_tonumber(L, 5);
5971 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6006 arg1 = (
PLFLT)lua_tonumber(L, 1);
6007 arg2 = (
PLFLT)lua_tonumber(L, 2);
6008 arg3 = (
PLFLT)lua_tonumber(L, 3);
6009 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6011 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6012 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6013 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6048 arg1 = (
PLFLT)lua_tonumber(L, 1);
6049 arg2 = (
PLFLT)lua_tonumber(L, 2);
6050 arg3 = (
PLFLT)lua_tonumber(L, 3);
6051 arg4 = (
PLFLT)lua_tonumber(L, 4);
6052 pljoin(arg1,arg2,arg3,arg4);
6064 char *arg1 = (
char *) 0 ;
6065 char *arg2 = (
char *) 0 ;
6066 char *arg3 = (
char *) 0 ;
6072 arg1 = (
char *)lua_tostring(L, 1);
6073 arg2 = (
char *)lua_tostring(L, 2);
6074 arg3 = (
char *)lua_tostring(L, 3);
6075 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6106 char **arg20 = (
char **) 0 ;
6117 char **arg31 = (
char **) 0 ;
6174 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6175 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6176 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6177 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6178 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6179 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6180 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6181 arg3 = (
PLINT)lua_tonumber(L, 1);
6182 arg4 = (
PLINT)lua_tonumber(L, 2);
6183 arg5 = (
PLFLT)lua_tonumber(L, 3);
6184 arg6 = (
PLFLT)lua_tonumber(L, 4);
6185 arg7 = (
PLFLT)lua_tonumber(L, 5);
6186 arg8 = (
PLINT)lua_tonumber(L, 6);
6187 arg9 = (
PLINT)lua_tonumber(L, 7);
6188 arg10 = (
PLINT)lua_tonumber(L, 8);
6189 arg11 = (
PLINT)lua_tonumber(L, 9);
6190 arg12 = (
PLINT)lua_tonumber(L, 10);
6192 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6197 arg15 = (
PLFLT)lua_tonumber(L, 12);
6198 arg16 = (
PLFLT)lua_tonumber(L, 13);
6199 arg17 = (
PLFLT)lua_tonumber(L, 14);
6200 arg18 = (
PLFLT)lua_tonumber(L, 15);
6202 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6205 if ( temp19 !=
Alen )
6207 lua_pushfstring( L,
"Tables must be of same length." );
6217 lua_pushfstring( L,
"Tables must be of same length." );
6220 arg20 = malloc(
sizeof (
char* ) *
Alen );
6221 for ( i = 1; i <=
Alen; i++ )
6223 lua_rawgeti( L, 17, i );
6224 if ( lua_isstring( L, -1 ) )
6226 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6231 lua_pushfstring( L,
"Requires a sequence of strings." );
6238 if(lua_gettop(L)>=18){
6240 if ( lua_isnil( L, 18 ) )
6246 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6249 if ( temp21 !=
Alen )
6251 lua_pushfstring( L,
"Tables must be of same length." );
6257 if(lua_gettop(L)>=19){
6259 if ( lua_isnil( L, 19 ) )
6265 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6268 if ( temp22 !=
Alen )
6270 lua_pushfstring( L,
"Tables must be of same length." );
6276 if(lua_gettop(L)>=20){
6278 if ( lua_isnil( L, 20 ) )
6284 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6287 if ( temp23 !=
Alen )
6289 lua_pushfstring( L,
"Tables must be of same length." );
6295 if(lua_gettop(L)>=21){
6297 if ( lua_isnil( L, 21 ) )
6303 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6306 if ( temp24 !=
Alen )
6308 lua_pushfstring( L,
"Tables must be of same length." );
6314 if(lua_gettop(L)>=22){
6316 if ( lua_isnil( L, 22 ) )
6322 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6325 if ( temp25 !=
Alen )
6327 lua_pushfstring( L,
"Tables must be of same length." );
6333 if(lua_gettop(L)>=23){
6335 if ( lua_isnil( L, 23 ) )
6341 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6344 if ( temp26 !=
Alen )
6346 lua_pushfstring( L,
"Tables must be of same length." );
6352 if(lua_gettop(L)>=24){
6354 if ( lua_isnil( L, 24 ) )
6360 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6363 if ( temp27 !=
Alen )
6365 lua_pushfstring( L,
"Tables must be of same length." );
6371 if(lua_gettop(L)>=25){
6373 if ( lua_isnil( L, 25 ) )
6379 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6382 if ( temp28 !=
Alen )
6384 lua_pushfstring( L,
"Tables must be of same length." );
6390 if(lua_gettop(L)>=26){
6392 if ( lua_isnil( L, 26 ) )
6398 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6401 if ( temp29 !=
Alen )
6403 lua_pushfstring( L,
"Tables must be of same length." );
6409 if(lua_gettop(L)>=27){
6411 if ( lua_isnil( L, 27 ) )
6417 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6420 if ( temp30 !=
Alen )
6422 lua_pushfstring( L,
"Tables must be of same length." );
6428 if(lua_gettop(L)>=28){
6435 lua_pushfstring( L,
"Tables must be of same length." );
6438 arg31 = malloc(
sizeof (
char* ) *
Alen );
6439 for ( i = 1; i <=
Alen; i++ )
6441 lua_rawgeti( L, 28, i );
6442 if ( lua_isstring( L, -1 ) )
6444 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6449 lua_pushfstring( L,
"Requires a sequence of strings." );
6457 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);
6459 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6460 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6470 free( arg20 ); arg20 = NULL;
6506 free( arg31 ); arg31 = NULL;
6521 free( arg20 ); arg20 = NULL;
6557 free( arg31 ); arg31 = NULL;
6584 char **arg18 = (
char **) 0 ;
6586 char **arg20 = (
char **) 0 ;
6601 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6602 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6603 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6604 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6605 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6606 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6607 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6608 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6609 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6610 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6611 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6612 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6613 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6614 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6615 arg3 = (
PLINT)lua_tonumber(L, 1);
6616 arg4 = (
PLINT)lua_tonumber(L, 2);
6617 arg5 = (
PLFLT)lua_tonumber(L, 3);
6618 arg6 = (
PLFLT)lua_tonumber(L, 4);
6619 arg7 = (
PLFLT)lua_tonumber(L, 5);
6620 arg8 = (
PLFLT)lua_tonumber(L, 6);
6621 arg9 = (
PLINT)lua_tonumber(L, 7);
6622 arg10 = (
PLINT)lua_tonumber(L, 8);
6623 arg11 = (
PLINT)lua_tonumber(L, 9);
6624 arg12 = (
PLFLT)lua_tonumber(L, 10);
6625 arg13 = (
PLFLT)lua_tonumber(L, 11);
6626 arg14 = (
PLINT)lua_tonumber(L, 12);
6627 arg15 = (
PLFLT)lua_tonumber(L, 13);
6629 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6640 lua_pushfstring( L,
"Tables must be of same length." );
6643 arg18 = malloc(
sizeof (
char* ) *
Alen );
6644 for ( i = 1; i <=
Alen; i++ )
6646 lua_rawgeti( L, 15, i );
6647 if ( lua_isstring( L, -1 ) )
6649 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6654 lua_pushfstring( L,
"Requires a sequence of strings." );
6666 arg20 = malloc(
sizeof (
char* ) *
Alen );
6667 for ( i = 1; i <=
Alen; i++ )
6669 lua_rawgeti( L, 16, i );
6670 if ( lua_isstring( L, -1 ) )
6672 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6677 lua_pushfstring( L,
"Requires a sequence of strings." );
6684 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6687 if ( temp21 !=
Alen )
6689 lua_pushfstring( L,
"Tables must be of same length." );
6694 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6697 if ( temp22 !=
Alen )
6699 lua_pushfstring( L,
"Tables must be of same length." );
6706 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6709 if ( temp23 !=
Alen )
6711 lua_pushfstring( L,
"Tables must be of same length." );
6717 for ( i = 0; i <
Xlen; i++ )
6718 if ( arg23[i] >
Ylen )
6727 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6729 lua_pushfstring( L,
"Vectors must match matrix." );
6733 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);
6735 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6736 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6743 free( arg18 ); arg18 = NULL;
6749 free( arg20 ); arg20 = NULL;
6766 for ( i = 0; i < ii24; i++ )
6780 free( arg18 ); arg18 = NULL;
6786 free( arg20 ); arg20 = NULL;
6803 for ( i = 0; i < ii24; i++ )
6820 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6821 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6822 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6823 arg1 = (
PLFLT)lua_tonumber(L, 1);
6824 arg2 = (
PLFLT)lua_tonumber(L, 2);
6825 arg3 = (
PLFLT)lua_tonumber(L, 3);
6846 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6852 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6855 if ( temp3 !=
Alen )
6857 lua_pushfstring( L,
"Tables must be of same length." );
6861 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6895 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6901 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6904 if ( temp3 !=
Alen )
6906 lua_pushfstring( L,
"Tables must be of same length." );
6911 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6914 if ( temp4 !=
Alen )
6916 lua_pushfstring( L,
"Tables must be of same length." );
6920 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6954 arg1 = (
PLINT)lua_tonumber(L, 1);
6979 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6986 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6999 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7001 lua_pushfstring( L,
"Vectors must match matrix." );
7005 arg6 = (
PLINT)lua_tonumber(L, 4);
7006 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7019 for ( i = 0; i < ii3; i++ )
7038 for ( i = 0; i < ii3; i++ )
7064 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7071 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7084 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7086 lua_pushfstring( L,
"Vectors must match matrix." );
7090 arg6 = (
PLINT)lua_tonumber(L, 4);
7093 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7098 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7111 for ( i = 0; i < ii3; i++ )
7133 for ( i = 0; i < ii3; i++ )
7155 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7166 char *arg1 = (
char *) 0 ;
7170 char *arg5 = (
char *) 0 ;
7178 arg1 = (
char *)lua_tostring(L, 1);
7179 arg2 = (
PLFLT)lua_tonumber(L, 2);
7180 arg3 = (
PLFLT)lua_tonumber(L, 3);
7181 arg4 = (
PLFLT)lua_tonumber(L, 4);
7182 arg5 = (
char *)lua_tostring(L, 5);
7183 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7195 char *arg1 = (
char *) 0 ;
7199 char *arg5 = (
char *) 0 ;
7207 arg1 = (
char *)lua_tostring(L, 1);
7208 arg2 = (
PLFLT)lua_tonumber(L, 2);
7209 arg3 = (
PLFLT)lua_tonumber(L, 3);
7210 arg4 = (
PLFLT)lua_tonumber(L, 4);
7211 arg5 = (
char *)lua_tostring(L, 5);
7212 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7238 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7245 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7258 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7260 lua_pushfstring( L,
"Vectors must match matrix." );
7264 arg6 = (
PLINT)lua_tonumber(L, 4);
7265 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7266 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7279 for ( i = 0; i < ii3; i++ )
7298 for ( i = 0; i < ii3; i++ )
7324 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7331 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7344 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7346 lua_pushfstring( L,
"Vectors must match matrix." );
7350 arg6 = (
PLINT)lua_tonumber(L, 4);
7353 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7358 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7371 for ( i = 0; i < ii3; i++ )
7393 for ( i = 0; i < ii3; i++ )
7428 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7435 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7448 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7450 lua_pushfstring( L,
"Vectors must match matrix." );
7454 arg6 = (
PLINT)lua_tonumber(L, 4);
7457 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7462 arg9 = (
PLINT)lua_tonumber(L, 6);
7464 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7470 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7473 if ( temp12 !=
Alen )
7475 lua_pushfstring( L,
"Tables must be of same length." );
7479 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);
7492 for ( i = 0; i < ii3; i++ )
7520 for ( i = 0; i < ii3; i++ )
7555 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7562 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7575 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7577 lua_pushfstring( L,
"Vectors must match matrix." );
7581 arg6 = (
PLINT)lua_tonumber(L, 4);
7584 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7589 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7602 for ( i = 0; i < ii3; i++ )
7624 for ( i = 0; i < ii3; i++ )
7655 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7656 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7659 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7666 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7679 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7681 lua_pushfstring( L,
"Vectors must match matrix." );
7685 arg6 = (
PLINT)lua_tonumber(L, 4);
7688 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7693 arg9 = (
PLINT)lua_tonumber(L, 6);
7695 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7701 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7704 if ( temp12 !=
Alen )
7706 lua_pushfstring( L,
"Tables must be of same length." );
7710 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);
7723 for ( i = 0; i < ii3; i++ )
7751 for ( i = 0; i < ii3; i++ )
7772 int *arg1 = (
int *) 0 ;
7773 char **arg2 = (
char **) 0 ;
7778 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7779 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7788 lua_rawgeti( L, 1, i );
7789 if ( lua_isnil( L, -1 ) )
7802 for ( i = 0; i < n; i++ )
7804 lua_rawgeti( L, 1, i );
7805 if ( lua_isstring( L, -1 ) )
7807 arg2[i] = (
char *) lua_tostring( L, -1 );
7812 lua_pushfstring( L,
"List items must be strings" );
7820 arg3 = (
PLINT)lua_tonumber(L, 2);
7822 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7846 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7852 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7855 if ( temp3 !=
Alen )
7857 lua_pushfstring( L,
"Tables must be of same length." );
7861 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7897 arg1 = (
PLINT)lua_tonumber(L, 1);
7898 arg2 = (
PLFLT)lua_tonumber(L, 2);
7899 arg3 = (
PLFLT)lua_tonumber(L, 3);
7900 arg4 = (
PLFLT)lua_tonumber(L, 4);
7901 arg5 = (
PLFLT)lua_tonumber(L, 5);
7902 plpath(arg1,arg2,arg3,arg4,arg5);
7924 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7930 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7933 if ( temp3 !=
Alen )
7935 lua_pushfstring( L,
"Tables must be of same length." );
7939 arg4 = (
PLINT)lua_tonumber(L, 3);
7940 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7976 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7982 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7985 if ( temp3 !=
Alen )
7987 lua_pushfstring( L,
"Tables must be of same length." );
7992 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7995 if ( temp4 !=
Alen )
7997 lua_pushfstring( L,
"Tables must be of same length." );
8001 arg5 = (
PLINT)lua_tonumber(L, 4);
8002 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8046 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8052 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8055 if ( temp3 !=
Alen )
8057 lua_pushfstring( L,
"Tables must be of same length." );
8062 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8065 if ( temp4 !=
Alen )
8067 lua_pushfstring( L,
"Tables must be of same length." );
8072 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8075 if ( temp5 <
Alen - 1 )
8077 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8081 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8082 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8124 arg1 = (
PLINT)lua_tonumber(L, 1);
8125 arg2 = (
PLINT)lua_tonumber(L, 2);
8142 arg1 = (
PLINT)lua_tonumber(L, 1);
8160 char *arg6 = (
char *) 0 ;
8169 arg1 = (
PLFLT)lua_tonumber(L, 1);
8170 arg2 = (
PLFLT)lua_tonumber(L, 2);
8171 arg3 = (
PLFLT)lua_tonumber(L, 3);
8172 arg4 = (
PLFLT)lua_tonumber(L, 4);
8173 arg5 = (
PLFLT)lua_tonumber(L, 5);
8174 arg6 = (
char *)lua_tostring(L, 6);
8175 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8197 char *arg11 = (
char *) 0 ;
8209 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8211 arg1 = (
PLFLT)lua_tonumber(L, 1);
8212 arg2 = (
PLFLT)lua_tonumber(L, 2);
8213 arg3 = (
PLFLT)lua_tonumber(L, 3);
8214 arg4 = (
PLFLT)lua_tonumber(L, 4);
8215 arg5 = (
PLFLT)lua_tonumber(L, 5);
8216 arg6 = (
PLFLT)lua_tonumber(L, 6);
8217 arg7 = (
PLFLT)lua_tonumber(L, 7);
8218 arg8 = (
PLFLT)lua_tonumber(L, 8);
8219 arg9 = (
PLFLT)lua_tonumber(L, 9);
8220 arg10 = (
PLFLT)lua_tonumber(L, 10);
8221 arg11 = (
char *)lua_tostring(L, 11);
8222 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8238 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8280 arg1 = (
PLFLT)lua_tonumber(L, 1);
8281 arg2 = (
PLFLT)lua_tonumber(L, 2);
8282 arg3 = (
PLFLT)lua_tonumber(L, 3);
8283 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8285 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8286 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8287 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8304 arg1 = (
PLFLT)lua_tonumber(L, 1);
8305 arg2 = (
PLFLT)lua_tonumber(L, 2);
8328 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8334 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8337 if ( temp2 !=
Alen )
8339 lua_pushfstring( L,
"Tables must be of same length." );
8344 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8347 if ( temp3 !=
Alen )
8349 lua_pushfstring( L,
"Tables must be of same length." );
8354 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8395 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8401 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8404 if ( temp2 !=
Alen )
8406 lua_pushfstring( L,
"Tables must be of same length." );
8411 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8414 if ( temp3 !=
Alen )
8416 lua_pushfstring( L,
"Tables must be of same length." );
8422 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8427 lua_pushfstring( L,
"Tables must be of same length." );
8432 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8471 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8472 arg1 = (
PLINT)lua_tonumber(L, 1);
8495 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8501 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8504 if ( temp2 !=
Alen )
8506 lua_pushfstring( L,
"Tables must be of same length." );
8511 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8514 if ( temp3 !=
Alen )
8516 lua_pushfstring( L,
"Tables must be of same length." );
8521 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8562 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8568 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8571 if ( temp2 !=
Alen )
8573 lua_pushfstring( L,
"Tables must be of same length." );
8578 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8581 if ( temp3 !=
Alen )
8583 lua_pushfstring( L,
"Tables must be of same length." );
8589 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8594 lua_pushfstring( L,
"Tables must be of same length." );
8599 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8651 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8652 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8655 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8661 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8664 if ( temp4 !=
Alen )
8666 lua_pushfstring( L,
"Tables must be of same length." );
8671 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8674 if ( temp5 !=
Alen )
8676 lua_pushfstring( L,
"Tables must be of same length." );
8681 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8684 if ( temp6 !=
Alen )
8686 lua_pushfstring( L,
"Tables must be of same length." );
8690 if(lua_gettop(L)>=6){
8692 if ( lua_isnil( L, 6 ) )
8698 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8701 if ( temp7 <
Alen - 1 )
8703 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8709 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8769 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8770 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8773 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8779 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8782 if ( temp4 !=
Alen )
8784 lua_pushfstring( L,
"Tables must be of same length." );
8789 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8792 if ( temp5 !=
Alen )
8794 lua_pushfstring( L,
"Tables must be of same length." );
8799 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8802 if ( temp6 !=
Alen )
8804 lua_pushfstring( L,
"Tables must be of same length." );
8809 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8812 if ( temp7 !=
Alen )
8814 lua_pushfstring( L,
"Tables must be of same length." );
8818 if(lua_gettop(L)>=7){
8820 if ( lua_isnil( L, 7 ) )
8826 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8829 if ( temp8 <
Alen - 1 )
8831 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8837 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8888 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
8889 arg1 = (
PLINT)lua_tonumber(L, 1);
8906 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8907 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8908 arg1 = (
PLFLT)lua_tonumber(L, 1);
8909 arg2 = (
PLFLT)lua_tonumber(L, 2);
8932 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8933 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8954 arg1 = (
PLINT)lua_tonumber(L, 1);
8955 arg2 = (
PLINT)lua_tonumber(L, 2);
8956 arg3 = (
PLINT)lua_tonumber(L, 3);
8957 arg4 = (
PLINT)lua_tonumber(L, 4);
8982 arg1 = (
PLINT)lua_tonumber(L, 1);
8983 arg2 = (
PLINT)lua_tonumber(L, 2);
8984 arg3 = (
PLINT)lua_tonumber(L, 3);
8985 arg4 = (
PLINT)lua_tonumber(L, 4);
8986 arg5 = (
PLFLT)lua_tonumber(L, 5);
8987 plscol0a(arg1,arg2,arg3,arg4,arg5);
9007 arg1 = (
PLINT)lua_tonumber(L, 1);
9008 arg2 = (
PLINT)lua_tonumber(L, 2);
9009 arg3 = (
PLINT)lua_tonumber(L, 3);
9028 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9029 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9030 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9031 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9032 arg1 = (
PLINT)lua_tonumber(L, 1);
9033 arg2 = (
PLINT)lua_tonumber(L, 2);
9034 arg3 = (
PLINT)lua_tonumber(L, 3);
9035 arg4 = (
PLFLT)lua_tonumber(L, 4);
9052 arg1 = (
PLINT)lua_tonumber(L, 1);
9068 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9069 arg1 = (
PLINT)lua_tonumber(L, 1);
9082 char *arg1 = (
char *) 0 ;
9086 arg1 = (
char *)lua_tostring(L, 1);
9087 plsdev((
char const *)arg1);
9109 arg1 = (
PLFLT)lua_tonumber(L, 1);
9110 arg2 = (
PLFLT)lua_tonumber(L, 2);
9111 arg3 = (
PLFLT)lua_tonumber(L, 3);
9112 arg4 = (
PLFLT)lua_tonumber(L, 4);
9139 arg1 = (
PLINT)lua_tonumber(L, 1);
9140 arg2 = (
PLINT)lua_tonumber(L, 2);
9141 arg3 = (
PLINT)lua_tonumber(L, 3);
9142 arg4 = (
PLINT)lua_tonumber(L, 4);
9143 arg5 = (
PLFLT)lua_tonumber(L, 5);
9144 arg6 = (
PLFLT)lua_tonumber(L, 6);
9145 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9161 arg1 = (
PLFLT)lua_tonumber(L, 1);
9184 arg1 = (
PLFLT)lua_tonumber(L, 1);
9185 arg2 = (
PLFLT)lua_tonumber(L, 2);
9186 arg3 = (
PLFLT)lua_tonumber(L, 3);
9187 arg4 = (
PLFLT)lua_tonumber(L, 4);
9210 arg1 = (
PLFLT)lua_tonumber(L, 1);
9211 arg2 = (
PLFLT)lua_tonumber(L, 2);
9212 arg3 = (
PLFLT)lua_tonumber(L, 3);
9213 arg4 = (
PLFLT)lua_tonumber(L, 4);
9229 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9231 arg1 = (
unsigned int)lua_tonumber(L, 1);
9248 arg1 = (lua_tostring(L, 1))[0];
9261 char *arg1 = (
char *) 0 ;
9262 char *arg2 = (
char *) 0 ;
9268 arg1 = (
char *)lua_tostring(L, 1);
9269 arg2 = (
char *)lua_tostring(L, 2);
9270 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9271 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9290 arg1 = (
PLINT)lua_tonumber(L, 1);
9291 arg2 = (
PLINT)lua_tonumber(L, 2);
9292 arg3 = (
PLINT)lua_tonumber(L, 3);
9308 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9323 char *arg1 = (
char *) 0 ;
9327 arg1 = (
char *)lua_tostring(L, 1);
9348 arg1 = (
PLINT)lua_tonumber(L, 1);
9349 arg2 = (
PLINT)lua_tonumber(L, 2);
9350 arg3 = (
PLINT)lua_tonumber(L, 3);
9385 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9386 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9387 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9388 cgrid217.
nx = cgrid217.
ny = 0;
9410 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9420 arg5 = (
PLFLT)lua_tonumber(L, 2);
9421 arg6 = (
PLFLT)lua_tonumber(L, 3);
9422 arg7 = (
PLFLT)lua_tonumber(L, 4);
9423 arg8 = (
PLFLT)lua_tonumber(L, 5);
9426 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9429 arg10 =
Alen = temp;
9431 arg11 = (
PLFLT)lua_tonumber(L, 7);
9432 arg12 = (
PLINT)lua_tonumber(L, 8);
9433 arg13 = (
PLFLT)lua_tonumber(L, 9);
9434 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9435 if(lua_gettop(L)>=11){
9440 if ( lua_isstring( L, 11 ) )
9442 const char* funcstr = lua_tostring( L, 11 );
9443 if ( strcmp(
"pltr0", funcstr ) == 0 )
9447 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9451 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9466 if(lua_gettop(L)>=12){
9471 lua_pushstring( L,
"xg" );
9472 lua_gettable( L, 12 );
9473 if ( !lua_istable( L, -1 ) )
9476 lua_pushstring( L,
"expected a table xg" );
9479 lua_rawgeti( L, -1, 1 );
9480 if ( lua_istable( L, -1 ) )
9482 else if ( lua_isnumber( L, -1 ) )
9488 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9492 if ( gridmode == 1 )
9494 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9502 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9515 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9518 lua_pushfstring( L,
"Vectors must match matrix." );
9526 lua_pushstring( L,
"yg" );
9527 lua_gettable( L, 12 );
9528 if ( !lua_istable( L, -1 ) )
9531 lua_pushstring( L,
"expected a table yg" );
9534 lua_rawgeti( L, -1, 1 );
9535 if ( gridmode == 2 )
9537 if ( !lua_istable( L, -1 ) )
9541 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9547 if ( !lua_isnumber( L, -1 ) )
9551 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9556 if ( gridmode == 1 )
9558 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9566 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9579 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9582 lua_pushfstring( L,
"Vectors must match matrix." );
9589 if ( gridmode == 1 )
9591 else if ( gridmode == 2 )
9595 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9602 for ( i = 0; i < ii1; i++ )
9621 for ( i = 0; i <
Xlen; i++ )
9627 for ( i = 0; i <
Xlen; i++ )
9640 for ( i = 0; i < ii1; i++ )
9659 for ( i = 0; i <
Xlen; i++ )
9665 for ( i = 0; i <
Xlen; i++ )
9703 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9704 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9705 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9706 cgrid221.
nx = cgrid221.
ny = 0;
9729 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9730 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9731 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9732 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9733 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9734 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9744 arg5 = (
PLFLT)lua_tonumber(L, 2);
9745 arg6 = (
PLFLT)lua_tonumber(L, 3);
9746 arg7 = (
PLFLT)lua_tonumber(L, 4);
9747 arg8 = (
PLFLT)lua_tonumber(L, 5);
9748 arg9 = (
PLFLT)lua_tonumber(L, 6);
9749 arg10 = (
PLFLT)lua_tonumber(L, 7);
9750 arg11 = (
PLINT)lua_tonumber(L, 8);
9751 arg12 = (
PLFLT)lua_tonumber(L, 9);
9752 arg13 = (
PLFLT)lua_tonumber(L, 10);
9753 arg14 = (
PLINT)lua_tonumber(L, 11);
9754 arg15 = (
PLFLT)lua_tonumber(L, 12);
9755 arg16 = (
PLINT)lua_tonumber(L, 13);
9756 arg17 = (
PLFLT)lua_tonumber(L, 14);
9757 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9758 if(lua_gettop(L)>=16){
9763 if ( lua_isstring( L, 16 ) )
9765 const char* funcstr = lua_tostring( L, 16 );
9766 if ( strcmp(
"pltr0", funcstr ) == 0 )
9770 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9774 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9789 if(lua_gettop(L)>=17){
9794 lua_pushstring( L,
"xg" );
9795 lua_gettable( L, 17 );
9796 if ( !lua_istable( L, -1 ) )
9799 lua_pushstring( L,
"expected a table xg" );
9802 lua_rawgeti( L, -1, 1 );
9803 if ( lua_istable( L, -1 ) )
9805 else if ( lua_isnumber( L, -1 ) )
9811 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9815 if ( gridmode == 1 )
9817 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9825 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9838 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9841 lua_pushfstring( L,
"Vectors must match matrix." );
9849 lua_pushstring( L,
"yg" );
9850 lua_gettable( L, 17 );
9851 if ( !lua_istable( L, -1 ) )
9854 lua_pushstring( L,
"expected a table yg" );
9857 lua_rawgeti( L, -1, 1 );
9858 if ( gridmode == 2 )
9860 if ( !lua_istable( L, -1 ) )
9864 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9870 if ( !lua_isnumber( L, -1 ) )
9874 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9879 if ( gridmode == 1 )
9881 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9889 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9902 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9905 lua_pushfstring( L,
"Vectors must match matrix." );
9912 if ( gridmode == 1 )
9914 else if ( gridmode == 2 )
9918 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9925 for ( i = 0; i < ii1; i++ )
9941 for ( i = 0; i <
Xlen; i++ )
9947 for ( i = 0; i <
Xlen; i++ )
9960 for ( i = 0; i < ii1; i++ )
9976 for ( i = 0; i <
Xlen; i++ )
9982 for ( i = 0; i <
Xlen; i++ )
10005 if ( lua_isnil( L, 1 ) )
10009 else if ( lua_isstring( L, 1 ) )
10042 arg1 = (
PLFLT)lua_tonumber(L, 1);
10043 arg2 = (
PLFLT)lua_tonumber(L, 2);
10062 arg1 = (
PLFLT)lua_tonumber(L, 1);
10063 arg2 = (
PLFLT)lua_tonumber(L, 2);
10080 arg1 = (
PLINT)lua_tonumber(L, 1);
10107 arg1 = (
PLFLT)lua_tonumber(L, 1);
10108 arg2 = (
PLFLT)lua_tonumber(L, 2);
10109 arg3 = (
PLINT)lua_tonumber(L, 3);
10110 arg4 = (
PLINT)lua_tonumber(L, 4);
10111 arg5 = (
PLINT)lua_tonumber(L, 5);
10112 arg6 = (
PLINT)lua_tonumber(L, 6);
10113 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10125 char *arg1 = (
char *) 0 ;
10129 arg1 = (
char *)lua_tostring(L, 1);
10142 char *arg1 = (
char *) 0 ;
10147 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10148 arg1 = (
char *)lua_tostring(L, 1);
10149 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10150 plspal1((
char const *)arg1,arg2);
10165 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10166 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10183 arg1 = (
PLINT)lua_tonumber(L, 1);
10202 arg1 = (
PLINT)lua_tonumber(L, 1);
10203 arg2 = (
PLINT)lua_tonumber(L, 2);
10222 arg1 = (
PLFLT)lua_tonumber(L, 1);
10223 arg2 = (
PLFLT)lua_tonumber(L, 2);
10242 arg1 = (
PLINT)lua_tonumber(L, 1);
10243 arg2 = (
PLINT)lua_tonumber(L, 2);
10256 char *arg1 = (
char *) 0 ;
10264 arg1 = (
char *)lua_tostring(L, 1);
10265 arg2 = (
PLINT)lua_tonumber(L, 2);
10266 arg3 = (
PLINT)lua_tonumber(L, 3);
10267 plstart((
char const *)arg1,arg2,arg3);
10290 if(lua_gettop(L)>=1){
10295 if ( lua_isstring( L, 1 ) )
10297 const char* funcstr = lua_tostring( L, 1 );
10321 char *arg4 = (
char *) 0 ;
10328 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10331 arg1 =
Alen = temp;
10334 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10337 if ( temp3 !=
Alen )
10339 lua_pushfstring( L,
"Tables must be of same length." );
10343 arg4 = (
char *)lua_tostring(L, 3);
10344 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10372 char *arg5 = (
char *) 0 ;
10380 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10383 arg1 =
Alen = temp;
10386 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10389 if ( temp3 !=
Alen )
10391 lua_pushfstring( L,
"Tables must be of same length." );
10396 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10399 if ( temp4 !=
Alen )
10401 lua_pushfstring( L,
"Tables must be of same length." );
10405 arg5 = (
char *)lua_tostring(L, 4);
10406 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10442 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10443 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10444 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10445 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10446 arg1 = (
PLINT)lua_tonumber(L, 1);
10447 arg2 = (
PLINT)lua_tonumber(L, 2);
10448 arg3 = (
PLFLT)lua_tonumber(L, 3);
10449 arg4 = (
PLFLT)lua_tonumber(L, 4);
10463 char *arg2 = (
char *) 0 ;
10464 char *arg3 = (
char *) 0 ;
10478 char **arg17 = (
char **) (
char **)0 ;
10479 char *arg18 = (
char *) 0 ;
10480 char *arg19 = (
char *) 0 ;
10481 char *arg20 = (
char *) 0 ;
10493 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10494 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10495 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10496 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10497 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10498 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10499 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10500 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10501 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10502 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10503 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10504 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10508 arg2 = (
char *)lua_tostring(L, 1);
10509 arg3 = (
char *)lua_tostring(L, 2);
10510 arg4 = (
PLFLT)lua_tonumber(L, 3);
10511 arg5 = (
PLFLT)lua_tonumber(L, 4);
10512 arg6 = (
PLFLT)lua_tonumber(L, 5);
10513 arg7 = (
PLFLT)lua_tonumber(L, 6);
10514 arg8 = (
PLFLT)lua_tonumber(L, 7);
10515 arg9 = (
PLFLT)lua_tonumber(L, 8);
10516 arg10 = (
PLFLT)lua_tonumber(L, 9);
10517 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10518 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10519 arg13 = (
PLINT)lua_tonumber(L, 12);
10520 arg14 = (
PLINT)lua_tonumber(L, 13);
10522 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10528 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10531 if ( temp16 !=
Alen )
10533 lua_pushfstring( L,
"Tables must be of same length." );
10537 if(lua_gettop(L)>=16){
10544 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10549 lua_pushfstring( L,
"colline and styline args must be length 4." );
10553 arg17 = malloc(
sizeof (
char* ) * 4 );
10554 for ( i = 1; i <= 4; i++ )
10556 lua_rawgeti( L, 16, i );
10557 if ( lua_isstring( L, -1 ) )
10559 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10564 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10572 if(lua_gettop(L)>=17){
10573 arg18 = (
char *)lua_tostring(L, 17);
10575 if(lua_gettop(L)>=18){
10576 arg19 = (
char *)lua_tostring(L, 18);
10578 if(lua_gettop(L)>=19){
10579 arg20 = (
char *)lua_tostring(L, 19);
10581 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);
10583 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10593 free( arg17 ); arg17 = NULL;
10608 free( arg17 ); arg17 = NULL;
10621 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10622 arg1 = (
PLINT)lua_tonumber(L, 1);
10642 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10648 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10651 if ( temp3 !=
Alen )
10653 lua_pushfstring( L,
"Tables must be of same length." );
10657 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10687 arg2 = NULL; arg3 = 0;
10693 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10696 if ( lua_isnil( L, 1 ) )
10703 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10709 if(lua_gettop(L)>=2){
10712 if ( lua_isnil( L, 2 ) )
10718 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10721 if ( temp !=
Alen )
10723 lua_pushfstring( L,
"Tables must be of same length." );
10730 if(lua_gettop(L)>=3){
10731 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10733 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
10761 arg1 = (
PLFLT)lua_tonumber(L, 1);
10762 arg2 = (
PLFLT)lua_tonumber(L, 2);
10763 arg3 = (
PLFLT)lua_tonumber(L, 3);
10764 arg4 = (
PLFLT)lua_tonumber(L, 4);
10765 plsvpa(arg1,arg2,arg3,arg4);
10783 arg1 = (
PLINT)lua_tonumber(L, 1);
10784 arg2 = (
PLINT)lua_tonumber(L, 2);
10803 arg1 = (
PLINT)lua_tonumber(L, 1);
10804 arg2 = (
PLINT)lua_tonumber(L, 2);
10827 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10830 arg1 =
Alen = temp;
10833 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10836 if ( temp3 !=
Alen )
10838 lua_pushfstring( L,
"Tables must be of same length." );
10842 arg4 = (
PLINT)lua_tonumber(L, 3);
10843 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10873 arg1 = (
PLINT)lua_tonumber(L, 1);
10874 arg2 = (
PLINT)lua_tonumber(L, 2);
10901 char *arg1 = (
char *) 0 ;
10905 arg1 = (
char *)lua_tostring(L, 1);
10922 arg1 = (
PLFLT)lua_tonumber(L, 1);
10948 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
10949 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
10950 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
10951 cgrid27.
nx = cgrid27.
ny = 0;
10978 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10980 lua_pushfstring( L,
"Vectors must match matrix." );
10984 arg5 = (
PLFLT)lua_tonumber(L, 3);
10985 if(lua_gettop(L)>=4){
10990 if ( lua_isstring( L, 4 ) )
10992 const char* funcstr = lua_tostring( L, 4 );
10993 if ( strcmp(
"pltr0", funcstr ) == 0 )
10997 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11001 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11016 if(lua_gettop(L)>=5){
11021 lua_pushstring( L,
"xg" );
11022 lua_gettable( L, 5 );
11023 if ( !lua_istable( L, -1 ) )
11026 lua_pushstring( L,
"expected a table xg" );
11029 lua_rawgeti( L, -1, 1 );
11030 if ( lua_istable( L, -1 ) )
11032 else if ( lua_isnumber( L, -1 ) )
11038 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11042 if ( gridmode == 1 )
11044 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11052 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11065 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11068 lua_pushfstring( L,
"Vectors must match matrix." );
11076 lua_pushstring( L,
"yg" );
11077 lua_gettable( L, 5 );
11078 if ( !lua_istable( L, -1 ) )
11081 lua_pushstring( L,
"expected a table yg" );
11084 lua_rawgeti( L, -1, 1 );
11085 if ( gridmode == 2 )
11087 if ( !lua_istable( L, -1 ) )
11091 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11097 if ( !lua_isnumber( L, -1 ) )
11101 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11106 if ( gridmode == 1 )
11108 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11116 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11129 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11132 lua_pushfstring( L,
"Vectors must match matrix." );
11139 if ( gridmode == 1 )
11141 else if ( gridmode == 2 )
11145 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11152 for ( i = 0; i < ii1; i++ )
11162 for ( i = 0; i < ii2; i++ )
11178 for ( i = 0; i <
Xlen; i++ )
11184 for ( i = 0; i <
Xlen; i++ )
11197 for ( i = 0; i < ii1; i++ )
11207 for ( i = 0; i < ii2; i++ )
11223 for ( i = 0; i <
Xlen; i++ )
11229 for ( i = 0; i <
Xlen; i++ )
11253 arg1 = (
PLFLT)lua_tonumber(L, 1);
11254 arg2 = (
PLFLT)lua_tonumber(L, 2);
11255 arg3 = (
PLFLT)lua_tonumber(L, 3);
11256 arg4 = (
PLFLT)lua_tonumber(L, 4);
11257 arg5 = (
PLFLT)lua_tonumber(L, 5);
11258 plvpas(arg1,arg2,arg3,arg4,arg5);
11280 arg1 = (
PLFLT)lua_tonumber(L, 1);
11281 arg2 = (
PLFLT)lua_tonumber(L, 2);
11282 arg3 = (
PLFLT)lua_tonumber(L, 3);
11283 arg4 = (
PLFLT)lua_tonumber(L, 4);
11284 plvpor(arg1,arg2,arg3,arg4);
11334 arg1 = (
PLFLT)lua_tonumber(L, 1);
11335 arg2 = (
PLFLT)lua_tonumber(L, 2);
11336 arg3 = (
PLFLT)lua_tonumber(L, 3);
11337 arg4 = (
PLFLT)lua_tonumber(L, 4);
11338 arg5 = (
PLFLT)lua_tonumber(L, 5);
11339 arg6 = (
PLFLT)lua_tonumber(L, 6);
11340 arg7 = (
PLFLT)lua_tonumber(L, 7);
11341 arg8 = (
PLFLT)lua_tonumber(L, 8);
11342 arg9 = (
PLFLT)lua_tonumber(L, 9);
11343 arg10 = (
PLFLT)lua_tonumber(L, 10);
11344 arg11 = (
PLFLT)lua_tonumber(L, 11);
11345 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11361 arg1 = (
PLFLT)lua_tonumber(L, 1);
11384 arg1 = (
PLFLT)lua_tonumber(L, 1);
11385 arg2 = (
PLFLT)lua_tonumber(L, 2);
11386 arg3 = (
PLFLT)lua_tonumber(L, 3);
11387 arg4 = (
PLFLT)lua_tonumber(L, 4);
11388 plwind(arg1,arg2,arg3,arg4);
11406 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11407 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11410 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11422 char *arg2 = (
char *) 0 ;
11438 if ( lua_isnil( L, 1 ) )
11442 else if ( lua_isstring( L, 1 ) )
11451 arg2 = (
char *)lua_tostring(L, 2);
11452 arg3 = (
PLFLT)lua_tonumber(L, 3);
11453 arg4 = (
PLFLT)lua_tonumber(L, 4);
11454 arg5 = (
PLFLT)lua_tonumber(L, 5);
11455 arg6 = (
PLFLT)lua_tonumber(L, 6);
11456 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11475 char *arg2 = (
char *) 0 ;
11486 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11487 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11488 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11489 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11494 if ( lua_isnil( L, 1 ) )
11498 else if ( lua_isstring( L, 1 ) )
11507 arg2 = (
char *)lua_tostring(L, 2);
11508 arg3 = (
PLFLT)lua_tonumber(L, 3);
11509 arg4 = (
PLFLT)lua_tonumber(L, 4);
11510 arg5 = (
PLFLT)lua_tonumber(L, 5);
11511 arg6 = (
PLFLT)lua_tonumber(L, 6);
11513 if ( lua_isnil( L, 7 ) )
11520 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11526 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11551 char *arg2 = (
char *) 0 ;
11552 char *arg3 = (
char *) 0 ;
11564 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11565 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11566 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11567 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11572 if ( lua_isnil( L, 1 ) )
11576 else if ( lua_isstring( L, 1 ) )
11585 arg2 = (
char *)lua_tostring(L, 2);
11586 arg3 = (
char *)lua_tostring(L, 3);
11587 arg4 = (
PLFLT)lua_tonumber(L, 4);
11588 arg5 = (
PLFLT)lua_tonumber(L, 5);
11589 arg6 = (
PLFLT)lua_tonumber(L, 6);
11590 arg7 = (
PLFLT)lua_tonumber(L, 7);
11592 if ( lua_isnil( L, 8 ) )
11599 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11605 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11630 char *arg2 = (
char *) 0 ;
11634 char *arg6 = (
char *) 0 ;
11643 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11644 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11645 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11647 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11648 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11649 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11650 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11651 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11656 if ( lua_isnil( L, 1 ) )
11660 else if ( lua_isstring( L, 1 ) )
11669 arg2 = (
char *)lua_tostring(L, 2);
11670 arg3 = (
PLFLT)lua_tonumber(L, 3);
11671 arg4 = (
PLFLT)lua_tonumber(L, 4);
11672 arg5 = (
PLFLT)lua_tonumber(L, 5);
11673 arg6 = (
char *)lua_tostring(L, 6);
11674 arg7 = (
PLFLT)lua_tonumber(L, 7);
11675 arg8 = (
PLFLT)lua_tonumber(L, 8);
11676 arg9 = (
PLFLT)lua_tonumber(L, 9);
11677 arg10 = (
PLFLT)lua_tonumber(L, 10);
11678 arg11 = (
PLINT)lua_tonumber(L, 11);
11679 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
11698 char *arg2 = (
char *) 0 ;
11709 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
11710 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
11711 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
11712 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
11717 if ( lua_isnil( L, 1 ) )
11721 else if ( lua_isstring( L, 1 ) )
11730 arg2 = (
char *)lua_tostring(L, 2);
11731 arg3 = (
PLFLT)lua_tonumber(L, 3);
11732 arg4 = (
PLFLT)lua_tonumber(L, 4);
11733 arg5 = (
PLFLT)lua_tonumber(L, 5);
11734 arg6 = (
PLFLT)lua_tonumber(L, 6);
11736 if ( lua_isnil( L, 7 ) )
11743 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11749 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11782 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
11783 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
11784 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
11785 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
11786 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
11787 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
11792 if ( lua_isnil( L, 1 ) )
11796 else if ( lua_isstring( L, 1 ) )
11805 arg2 = (
PLFLT)lua_tonumber(L, 2);
11806 arg3 = (
PLFLT)lua_tonumber(L, 3);
11807 arg4 = (
PLFLT)lua_tonumber(L, 4);
11808 arg5 = (
PLFLT)lua_tonumber(L, 5);
11809 arg6 = (
PLFLT)lua_tonumber(L, 6);
11810 arg7 = (
PLFLT)lua_tonumber(L, 7);
11853 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
11854 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
11864 arg4 = (
PLFLT)lua_tonumber(L, 2);
11865 arg5 = (
PLFLT)lua_tonumber(L, 3);
11866 arg6 = (
PLFLT)lua_tonumber(L, 4);
11867 arg7 = (
PLFLT)lua_tonumber(L, 5);
11868 arg8 = (
PLFLT)lua_tonumber(L, 6);
11869 arg9 = (
PLFLT)lua_tonumber(L, 7);
11870 arg10 = (
PLFLT)lua_tonumber(L, 8);
11871 arg11 = (
PLFLT)lua_tonumber(L, 9);
11872 arg12 = (
PLFLT)lua_tonumber(L, 10);
11873 arg13 = (
PLFLT)lua_tonumber(L, 11);
11874 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11881 for ( i = 0; i < ii1; i++ )
11894 for ( i = 0; i < ii1; i++ )
11924 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
11925 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
11926 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
11927 cgrid213.
nx = cgrid213.
ny = 0;
11936 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
11937 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
11938 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
11939 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
11940 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
11941 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
11942 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
11943 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
11953 arg4 = (
PLFLT)lua_tonumber(L, 2);
11954 arg5 = (
PLFLT)lua_tonumber(L, 3);
11955 arg6 = (
PLFLT)lua_tonumber(L, 4);
11956 arg7 = (
PLFLT)lua_tonumber(L, 5);
11957 arg8 = (
PLFLT)lua_tonumber(L, 6);
11958 arg9 = (
PLFLT)lua_tonumber(L, 7);
11959 arg10 = (
PLFLT)lua_tonumber(L, 8);
11960 arg11 = (
PLFLT)lua_tonumber(L, 9);
11961 if(lua_gettop(L)>=10){
11966 if ( lua_isstring( L, 10 ) )
11968 const char* funcstr = lua_tostring( L, 10 );
11969 if ( strcmp(
"pltr0", funcstr ) == 0 )
11973 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11977 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11992 if(lua_gettop(L)>=11){
11997 lua_pushstring( L,
"xg" );
11998 lua_gettable( L, 11 );
11999 if ( !lua_istable( L, -1 ) )
12002 lua_pushstring( L,
"expected a table xg" );
12005 lua_rawgeti( L, -1, 1 );
12006 if ( lua_istable( L, -1 ) )
12008 else if ( lua_isnumber( L, -1 ) )
12014 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12018 if ( gridmode == 1 )
12020 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12021 if ( !cgrid113.
xg )
12028 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12036 if ( !cgrid213.
xg )
12041 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12044 lua_pushfstring( L,
"Vectors must match matrix." );
12052 lua_pushstring( L,
"yg" );
12053 lua_gettable( L, 11 );
12054 if ( !lua_istable( L, -1 ) )
12057 lua_pushstring( L,
"expected a table yg" );
12060 lua_rawgeti( L, -1, 1 );
12061 if ( gridmode == 2 )
12063 if ( !lua_istable( L, -1 ) )
12067 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12073 if ( !lua_isnumber( L, -1 ) )
12077 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12082 if ( gridmode == 1 )
12084 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12085 if ( !cgrid113.
yg )
12092 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12100 if ( !cgrid213.
yg )
12105 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12108 lua_pushfstring( L,
"Vectors must match matrix." );
12115 if ( gridmode == 1 )
12117 else if ( gridmode == 2 )
12121 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12128 for ( i = 0; i < ii1; i++ )
12144 for ( i = 0; i <
Xlen; i++ )
12150 for ( i = 0; i <
Xlen; i++ )
12163 for ( i = 0; i < ii1; i++ )
12179 for ( i = 0; i <
Xlen; i++ )
12185 for ( i = 0; i <
Xlen; i++ )
12225 char *arg1 = (
char *) 0 ;
12226 char *arg2 = (
char *) 0 ;
12231 arg1 = (
char *)lua_tostring(L, 1);
12232 arg2 = (
char *)lua_tostring(L, 2);
12233 plSetUsage((
char const *)arg1,(
char const *)arg2);
12282 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12283 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12289 for ( i = 0; i < ii1; i++ )
12302 for ( i = 0; i < ii1; i++ )
12325 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12336 char *arg1 = (
char *) 0 ;
12339 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12341 arg1 = (
char *) lua_tostring( L, 1 );
12343 plwarn((
char const *)arg1);
12355 char *arg1 = (
char *) 0 ;
12358 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12360 arg1 = (
char *) lua_tostring( L, 1 );
12873#define SWIGRUNTIME_DEBUG
12876#ifndef SWIG_INIT_CLIENT_DATA_TYPE
12877#define SWIG_INIT_CLIENT_DATA_TYPE void *
12899 if (!module_head) {
12912 }
while (iter!= module_head);
12923 if (init == 0)
return;
12926#ifdef SWIGRUNTIME_DEBUG
12927 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.size);
12934#ifdef SWIGRUNTIME_DEBUG
12935 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
12944#ifdef SWIGRUNTIME_DEBUG
12945 printf(
"SWIG_InitializeModule: found type %s\n", type->name);
12948 type->clientdata =
swig_module.type_initial[i]->clientdata;
12949#ifdef SWIGRUNTIME_DEBUG
12950 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->name);
12959 while (cast->
type) {
12963#ifdef SWIGRUNTIME_DEBUG
12964 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
12968#ifdef SWIGRUNTIME_DEBUG
12969 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
12974#ifdef SWIGRUNTIME_DEBUG
12975 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
12982#ifdef SWIGRUNTIME_DEBUG
12983 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
12985 if (!ocast) ret = 0;
12990#ifdef SWIGRUNTIME_DEBUG
12991 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
12994 type->cast->prev = cast;
12995 cast->
next = type->cast;
13006#ifdef SWIGRUNTIME_DEBUG
13007 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13011 printf(
"SWIG_InitializeModule: type %lu %s\n", (
unsigned long)i,
swig_module.type_initial[i]->name);
13012 while (cast->
type) {
13013 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13017 printf(
"---- Total casts: %d\n",j);
13019 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13032 static int init_run = 0;
13034 if (init_run)
return;
13045 equiv = equiv->
next;
13070#if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13076#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13078 int globalRegister = 0;
13086#if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13092#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13099#ifdef SWIG_LUA_MODULE_GLOBAL
13100 globalRegister = 1;
13104#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13108#if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13116#if defined(SWIG_LUA_ELUA_EMULATE)
13119 SWIG_Lua_elua_emulate_register_clear(L);
13120 if(globalRegister) {
13122 lua_pushvalue(L,-2);
13129#if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13149 " 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)
#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)
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)
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)
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
void mapform(PLINT n, PLFLT *x, PLFLT *y)