16 #define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
17 #define SWIG_LUA_MODULE_GLOBAL
25 #ifndef SWIGTEMPLATEDISAMBIGUATOR
26 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
27 # define SWIGTEMPLATEDISAMBIGUATOR template
28 # elif defined(__HP_aCC)
31 # define SWIGTEMPLATEDISAMBIGUATOR template
33 # define SWIGTEMPLATEDISAMBIGUATOR
39 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
40 # define SWIGINLINE inline
48 # if defined(__GNUC__)
49 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
50 # define SWIGUNUSED __attribute__ ((__unused__))
55 # define SWIGUNUSED __attribute__ ((__unused__))
61 #ifndef SWIG_MSC_UNSUPPRESS_4505
62 # if defined(_MSC_VER)
63 # pragma warning(disable : 4505)
67 #ifndef SWIGUNUSEDPARM
69 # define SWIGUNUSEDPARM(p)
71 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
77 # define SWIGINTERN static SWIGUNUSED
81 #ifndef SWIGINTERNINLINE
82 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
87 # if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
88 # ifndef GCC_HASCLASSVISIBILITY
89 # define GCC_HASCLASSVISIBILITY
95 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
96 # if defined(STATIC_LINKED)
99 # define SWIGEXPORT __declspec(dllexport)
102 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
103 # define SWIGEXPORT __attribute__ ((visibility("default")))
112 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
113 # define SWIGSTDCALL __stdcall
120 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
121 # define _CRT_SECURE_NO_DEPRECATE
125 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
126 # define _SCL_SECURE_NO_DEPRECATE
130 #if defined(__APPLE__) && !defined(__ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES)
131 # define __ASSERT_MACROS_DEFINE_VERSIONS_WITHOUT_UNDERSCORES 0
139 #ifdef __INTEL_COMPILER
140 # pragma warning disable 592
152 #define SWIG_RUNTIME_VERSION "4"
155 #ifdef SWIG_TYPE_TABLE
156 # define SWIG_QUOTE_STRING(x) #x
157 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
158 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
160 # define SWIG_TYPE_TABLE_NAME
173 # define SWIGRUNTIME SWIGINTERN
176 #ifndef SWIGRUNTIMEINLINE
177 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
181 #ifndef SWIG_BUFFER_SIZE
182 # define SWIG_BUFFER_SIZE 1024
186 #define SWIG_POINTER_DISOWN 0x1
187 #define SWIG_CAST_NEW_MEMORY 0x2
188 #define SWIG_POINTER_NO_NULL 0x4
191 #define SWIG_POINTER_OWN 0x1
274 #define SWIG_ERROR (-1)
275 #define SWIG_IsOK(r) (r >= 0)
276 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
279 #define SWIG_CASTRANKLIMIT (1 << 8)
281 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
283 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
285 #define SWIG_BADOBJ (SWIG_ERROR)
286 #define SWIG_OLDOBJ (SWIG_OK)
287 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
288 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
290 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
291 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
292 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
293 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
294 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
295 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
298 #if defined(SWIG_CASTRANK_MODE)
299 # ifndef SWIG_TypeRank
300 # define SWIG_TypeRank unsigned long
302 # ifndef SWIG_MAXCASTRANK
303 # define SWIG_MAXCASTRANK (2)
305 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
306 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
311 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
314 # define SWIG_AddCast(r) (r)
315 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
325 typedef void *(*swig_converter_func)(
void *,
int *);
367 const char *f2,
const char *l2) {
368 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
369 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
370 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
371 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
373 return (
int)((l1 - f1) - (l2 - f2));
383 const char* te = tb + strlen(tb);
385 while (equiv != 0 && *ne) {
386 for (nb = ne; *ne; ++ne) {
387 if (*ne ==
'|')
break;
412 if (strcmp(iter->
type->
name, c) == 0) {
413 if (iter == ty->
cast)
439 if (iter->
type == from) {
440 if (iter == ty->
cast)
472 if (!ty || !ty->
dcast)
return ty;
473 while (ty && (ty->
dcast)) {
474 ty = (*ty->
dcast)(ptr);
498 if (!type)
return NULL;
499 if (type->
str != NULL) {
500 const char *last_name = type->
str;
502 for (s = type->
str; *s; s++)
503 if (*s ==
'|') last_name = s+1;
551 size_t r = iter->
size - 1;
554 size_t i = (l + r) >> 1;
555 const char *iname = iter->
types[i]->
name;
557 int compare = strcmp(
name, iname);
559 return iter->
types[i];
560 }
else if (compare < 0) {
566 }
else if (compare > 0) {
575 }
while (iter != end);
602 for (; i < iter->
size; ++i) {
604 return iter->
types[i];
607 }
while (iter != end);
619 static const char hex[17] =
"0123456789abcdef";
620 const unsigned char *u = (
unsigned char *) ptr;
621 const unsigned char *eu = u + sz;
622 for (; u != eu; ++u) {
623 unsigned char uu = *u;
624 *(c++) = hex[(uu & 0xf0) >> 4];
625 *(c++) = hex[uu & 0xf];
635 unsigned char *u = (
unsigned char *) ptr;
636 const unsigned char *eu = u + sz;
637 for (; u != eu; ++u) {
640 if ((d >=
'0') && (d <=
'9'))
641 uu = (
unsigned char)((d -
'0') << 4);
642 else if ((d >=
'a') && (d <=
'f'))
643 uu = (
unsigned char)((d - (
'a'-10)) << 4);
647 if ((d >=
'0') && (d <=
'9'))
648 uu |= (
unsigned char)(d -
'0');
649 else if ((d >=
'a') && (d <=
'f'))
650 uu |= (
unsigned char)(d - (
'a'-10));
664 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
667 if (strlen(
name) + 1 > (bsz - (r - buff)))
return 0;
675 if (strcmp(c,
"NULL") == 0) {
688 size_t lname = (
name ? strlen(
name) : 0);
689 if ((2*sz + 2 + lname) > bsz)
return 0;
693 strncpy(r,
name,lname+1);
703 if (strcmp(c,
"NULL") == 0) {
718 #define SWIG_UnknownError -1
719 #define SWIG_IOError -2
720 #define SWIG_RuntimeError -3
721 #define SWIG_IndexError -4
722 #define SWIG_TypeError -5
723 #define SWIG_DivisionByZero -6
724 #define SWIG_OverflowError -7
725 #define SWIG_SyntaxError -8
726 #define SWIG_ValueError -9
727 #define SWIG_SystemError -10
728 #define SWIG_AttributeError -11
729 #define SWIG_MemoryError -12
730 #define SWIG_NullReferenceError -13
755 #define SWIG_LUA_FLAVOR_LUA 1
756 #define SWIG_LUA_FLAVOR_ELUA 2
757 #define SWIG_LUA_FLAVOR_ELUAC 3
759 #if !defined(SWIG_LUA_TARGET)
760 # error SWIG_LUA_TARGET not defined
763 #if defined(SWIG_LUA_ELUA_EMULATE)
765 struct swig_elua_entry;
767 typedef struct swig_elua_key {
775 typedef struct swig_elua_val {
779 const struct swig_elua_entry *table;
781 lua_CFunction
function;
791 typedef struct swig_elua_entry {
796 #define LSTRKEY(x) {LUA_TSTRING, {.strkey = x} }
797 #define LNUMKEY(x) {LUA_TNUMBER, {.numkey = x} }
798 #define LNILKEY {LUA_TNIL, {.strkey = 0} }
800 #define LNUMVAL(x) {LUA_TNUMBER, {.number = x} }
801 #define LFUNCVAL(x) {LUA_TFUNCTION, {.function = x} }
802 #define LROVAL(x) {LUA_TTABLE, {.table = x} }
803 #define LNILVAL {LUA_TNIL, {.string = 0} }
804 #define LSTRVAL(x) {LUA_TSTRING, {.string = x} }
806 #define LUA_REG_TYPE swig_elua_entry
808 #define SWIG_LUA_ELUA_EMUL_METATABLE_KEY "__metatable"
810 #define lua_pushrotable(L,p)\
813 SWIG_Lua_elua_emulate_register(L,(swig_elua_entry*)(p));
815 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
816 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={0,0,(void*)(C),&D} } }
818 #define SWIG_LUA_CONSTTAB_BINARY(B,S,C,D)\
819 LSTRKEY(B), {LUA_TUSERDATA, { .userdata={1,S,(void*)(C),&D} } }
822 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
823 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
824 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
825 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
826 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
829 #ifndef SWIG_LUA_CONSTTAB_POINTER
830 #warning eLua does not support pointers as constants. By default, nil will be used as value
831 #define SWIG_LUA_CONSTTAB_POINTER(B,C,D) LSTRKEY(B), LNILVAL
834 #ifndef SWIG_LUA_CONSTTAB_BINARY
835 #warning eLua does not support pointers to member as constants. By default, nil will be used as value
836 #define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D) LSTRKEY(B), LNILVAL
839 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
840 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
841 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
842 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
843 # define SWIG_LUA_CONSTTAB_POINTER(B,C,D)\
844 SWIG_LUA_POINTER, (char *)B, 0, 0, (void *)C, &D
845 # define SWIG_LUA_CONSTTAB_BINARY(B, S, C, D)\
846 SWIG_LUA_BINARY, (char *)B, S, 0, (void *)C, &D
849 #ifndef SWIG_LUA_ELUA_EMULATE
850 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
851 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
852 # define LSTRVAL LRO_STRVAL
856 #ifndef SWIG_LUA_ELUA_EMULATE
857 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
859 #ifndef MIN_OPT_LEVEL
860 #define MIN_OPT_LEVEL 2
864 #include "lrotable.h"
879 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
880 # define lua_rawlen lua_strlen
881 #elif LUA_VERSION_NUM == 501
882 # define lua_rawlen lua_objlen
889 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
890 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
894 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
895 # define lua_absindex(L,i) ((i)>0 || (i) <= LUA_REGISTRYINDEX ? (i) : lua_gettop(L) + (i) + 1)
899 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
900 #define lua_rawsetp(L,index,ptr)\
901 lua_pushlightuserdata(L,(void*)(ptr));\
905 #define lua_rawgetp(L,index,ptr)\
906 lua_pushlightuserdata(L,(void*)(ptr));\
922 lua_pushstring (L, str);
935 lua_pushvfstring(L, fmt, argp);
945 #define SWIG_LUA_INT 1
946 #define SWIG_LUA_FLOAT 2
947 #define SWIG_LUA_STRING 3
948 #define SWIG_LUA_POINTER 4
949 #define SWIG_LUA_BINARY 5
950 #define SWIG_LUA_CHAR 6
959 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
1029 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
1030 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
1031 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
1033 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
1034 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
1037 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
1038 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
1039 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
1042 #define SWIG_contract_assert(expr, msg) \
1043 if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } else
1047 #define SWIG_fail {goto fail;}
1048 #define SWIG_fail_arg(func_name,argnum,type) \
1049 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
1050 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
1052 #define SWIG_fail_ptr(func_name,argnum,type) \
1053 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
1054 #define SWIG_check_num_args(func_name,a,b) \
1055 if (lua_gettop(L)<a || lua_gettop(L)>b) \
1056 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
1060 #define SWIG_Lua_get_table(L,n) \
1061 (lua_pushstring(L, n), lua_rawget(L,-2))
1063 #define SWIG_Lua_add_function(L,n,f) \
1064 (lua_pushstring(L, n), \
1065 lua_pushcfunction(L, f), \
1068 #define SWIG_Lua_add_boolean(L,n,b) \
1069 (lua_pushstring(L, n), \
1070 lua_pushboolean(L, b), \
1074 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
1087 lua_rawget(L,LUA_REGISTRYINDEX);
1088 if (lua_islightuserdata(L,-1))
1098 lua_pushlightuserdata(L,(
void*)module);
1099 lua_rawset(L,LUA_REGISTRYINDEX);
1112 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
1114 luaL_error(L,
"This variable is immutable");
1119 #ifdef SWIG_LUA_ELUA_EMULATE
1123 static int swig_lua_elua_emulate_unique_key;
1126 SWIGINTERN void SWIG_Lua_elua_emulate_register(lua_State *L,
const swig_elua_entry *table)
1128 int i, table_parsed, parsed_tables_array, target_table;
1129 assert(lua_istable(L,-1));
1130 target_table = lua_gettop(L);
1132 lua_rawgetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1133 if(lua_isnil(L,-1)) {
1136 lua_pushvalue(L,-1);
1137 lua_rawsetp(L,LUA_REGISTRYINDEX,(
void*)(&swig_lua_elua_emulate_unique_key));
1139 parsed_tables_array = lua_gettop(L);
1140 lua_pushvalue(L,target_table);
1143 const int SWIGUNUSED pairs_start = lua_gettop(L);
1144 for(i = 0;table[i].key.type != LUA_TNIL || table[i].value.type != LUA_TNIL;i++)
1146 const swig_elua_entry *entry = table + i;
1147 int is_metatable = 0;
1148 switch(entry->key.type) {
1150 lua_pushstring(L,entry->key.key.strkey);
1151 if(strcmp(entry->key.key.strkey, SWIG_LUA_ELUA_EMUL_METATABLE_KEY) == 0)
1155 lua_pushnumber(L,entry->key.key.numkey);
1163 switch(entry->value.type) {
1165 lua_pushstring(L,entry->value.value.string);
1168 lua_pushnumber(L,entry->value.value.number);
1171 lua_pushcfunction(L,entry->value.value.function);
1174 lua_rawgetp(L,parsed_tables_array, entry->value.value.table);
1175 table_parsed = !lua_isnil(L,-1);
1179 SWIG_Lua_elua_emulate_register(L,entry->value.value.table);
1182 assert(lua_istable(L,-1));
1183 lua_pushvalue(L,-1);
1184 lua_setmetatable(L,target_table);
1189 if(entry->value.value.userdata.member)
1191 entry->value.value.userdata.lvalue,
1192 *(entry->value.value.userdata.ptype));
1195 *(entry->value.value.userdata.ptype),0);
1203 assert(lua_gettop(L) == pairs_start + 2);
1204 lua_rawset(L,target_table);
1207 assert(lua_gettop(L) == target_table);
1210 SWIGINTERN void SWIG_Lua_elua_emulate_register_clear(lua_State *L)
1213 lua_rawsetp(L, LUA_REGISTRYINDEX, &swig_lua_elua_emulate_unique_key);
1218 SWIGINTERN int SWIG_Lua_emulate_elua_getmetatable(lua_State *L)
1222 lua_getfield(L,-1,
"lua_getmetatable");
1224 assert(!lua_isnil(L,-1));
1226 assert(lua_gettop(L) == 3);
1228 if(!lua_isnil(L,-1))
1231 assert(lua_gettop(L) == 2);
1232 if(lua_istable(L,-2)) {
1234 lua_getfield(L,-1, SWIG_LUA_ELUA_EMUL_METATABLE_KEY);
1236 assert(lua_gettop(L) == 2);
1244 SWIGINTERN void SWIG_Lua_emulate_elua_swap_getmetatable(lua_State *L)
1248 lua_pushstring(L,
"lua_getmetatable");
1249 lua_getfield(L,-2,
"getmetatable");
1250 assert(!lua_isnil(L,-1));
1252 lua_pushstring(L,
"getmetatable");
1253 lua_pushcfunction(L, SWIG_Lua_emulate_elua_getmetatable);
1271 assert(lua_istable(L,-2));
1272 lua_getmetatable(L,-2);
1273 assert(lua_istable(L,-1));
1275 assert(lua_istable(L,-1));
1280 if (lua_iscfunction(L,-1))
1289 assert(lua_istable(L,-1));
1293 if (lua_isfunction(L,-1))
1310 assert(lua_istable(L,1));
1311 lua_getmetatable(L,1);
1312 assert(lua_istable(L,-1));
1315 if (lua_istable(L,-1))
1320 if (lua_iscfunction(L,-1))
1334 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1344 assert(lua_istable(L,-1));
1351 lua_getmetatable(L,-1);
1369 assert(lua_istable(L,-1));
1373 if( classes != 0 ) {
1374 while(*classes != 0) {
1391 assert(lua_istable(L,-1));
1392 lua_checkstack(L,5);
1397 lua_pushstring(L,
".get");
1401 lua_pushstring(L,
".set");
1405 lua_pushstring(L,
".fn");
1413 lua_setmetatable(L,-2);
1421 if( sub_namespace != 0) {
1422 while(*sub_namespace != 0) {
1430 lua_pushstring(L,ns->
name);
1431 lua_pushvalue(L,-2);
1434 assert(lua_gettop(L) == begin+1);
1451 int last_arg = lua_gettop(L);
1452 int original_metatable = last_arg + 1;
1457 lua_getmetatable(L,first_arg);
1460 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1462 assert(lua_istable(L,-1));
1464 bases_table = lua_gettop(L);
1468 assert(swig_type!=0);
1471 const char **base_names= ((
swig_lua_class*)(swig_type->clientdata))->base_names;
1473 for(;base_names[bases_count];
1484 int subcall_last_arg;
1485 int subcall_first_arg = lua_gettop(L) + 1;
1488 for(j=first_arg;j<=last_arg;j++)
1490 subcall_last_arg = lua_gettop(L);
1493 for(i=0;i<bases_count;i++) {
1495 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1496 lua_rawgeti(L,bases_table,i+1);
1498 if(lua_isnil(L,-1)) {
1512 assert(base_swig_type != 0);
1518 assert(lua_isuserdata(L, subcall_first_arg));
1519 assert(lua_istable(L,-1));
1520 lua_setmetatable(L,subcall_first_arg);
1521 assert(lua_gettop(L) == subcall_last_arg);
1522 result = func(L, base_swig_type,subcall_first_arg, ret);
1528 lua_pushvalue(L,original_metatable);
1529 lua_setmetatable(L,first_arg);
1531 to_remove = subcall_last_arg - last_arg;
1532 for(j=0;j<to_remove;j++)
1533 lua_remove(L,last_arg+1);
1536 lua_pop(L, lua_gettop(L) - last_arg);
1538 if(ret) assert(lua_gettop(L) == last_arg + *ret);
1552 int bases_search_result;
1553 int substack_start = lua_gettop(L)-2;
1554 assert(first_arg == substack_start+1);
1555 lua_checkstack(L,5);
1556 assert(lua_isuserdata(L,-2));
1557 lua_getmetatable(L,-2);
1558 assert(lua_istable(L,-1));
1562 if (lua_iscfunction(L,-1))
1564 lua_pushvalue(L,substack_start+1);
1565 lua_pushvalue(L,substack_start+2);
1576 return bases_search_result;
1590 int bases_search_result;
1591 int substack_start = lua_gettop(L)-2;
1592 assert(first_arg == substack_start+1);
1593 lua_checkstack(L,5);
1594 assert(lua_isuserdata(L,-2));
1595 lua_getmetatable(L,-2);
1596 assert(lua_istable(L,-1));
1598 assert(lua_istable(L,-1));
1600 lua_pushvalue(L,substack_start+2);
1603 if (lua_iscfunction(L,-1))
1605 lua_pushvalue(L,substack_start+1);
1615 assert(lua_istable(L,-1));
1616 lua_pushvalue(L,substack_start+2);
1619 if (lua_isfunction(L,-1))
1631 return bases_search_result;
1646 assert(lua_isuserdata(L,1));
1671 int bases_search_result;
1672 int substack_start = lua_gettop(L) - 3;
1673 lua_checkstack(L,5);
1674 assert(lua_isuserdata(L,substack_start+1));
1675 lua_getmetatable(L,substack_start+1);
1676 assert(lua_istable(L,-1));
1681 if (lua_istable(L,-1))
1684 lua_pushvalue(L,substack_start+2);
1687 if (lua_iscfunction(L,-1))
1689 lua_pushvalue(L,substack_start+1);
1690 lua_pushvalue(L,substack_start+3);
1692 lua_remove(L,substack_start+4);
1702 if (lua_iscfunction(L,-1))
1704 lua_pushvalue(L,substack_start+1);
1705 lua_pushvalue(L,substack_start+2);
1706 lua_pushvalue(L,substack_start+3);
1718 assert(lua_gettop(L) == substack_start + 3);
1719 return bases_search_result;
1736 assert(lua_isuserdata(L,1));
1741 SWIG_Lua_pushferrstring(L,
"Assignment not possible. No setter/member with this name. For custom assignments implement __setitem method.");
1756 assert(lua_isuserdata(L,-1));
1776 assert(lua_isuserdata(L,1));
1779 lua_pushfstring(L,
"<userdata of type '%s' at %p>", userData->
type->
str, userData->
ptr);
1789 assert(lua_isuserdata(L,-1));
1803 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1808 result=(usr1->
ptr==usr2->
ptr);
1809 lua_pushboolean(L,result);
1837 lua_pushstring(L,
"SWIG");
1842 lua_pushstring(L,
".library");
1846 lua_pushstring(L,
"inheritable_metamethods");
1854 lua_rawset(L,LUA_REGISTRYINDEX);
1861 lua_pushstring(L,
"SWIG");
1862 lua_rawget(L,LUA_REGISTRYINDEX);
1863 if (!lua_istable(L,-1))
1868 lua_pushstring(L,
"SWIG");
1869 lua_rawget(L,LUA_REGISTRYINDEX);
1876 lua_pushstring(L,
".library");
1878 assert( !lua_isnil(L,-1) );
1879 lua_pushstring(L,
"inheritable_metamethods");
1891 lua_pushstring(L,cname);
1909 if (clss->
bases[i]==0)
1918 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1920 SWIGINTERN void SWIG_Lua_merge_tables_by_index(lua_State *L,
int target,
int source)
1924 while (lua_next(L,source) != 0) {
1927 lua_pushvalue(L,-2);
1928 lua_pushvalue(L,-2);
1929 lua_rawset(L, target);
1936 SWIGINTERN void SWIG_Lua_merge_tables(lua_State *L,
const char*
name,
int original,
int base)
1939 lua_pushstring(L,
name);
1940 lua_rawget(L,original);
1941 int original_table = lua_gettop(L);
1942 lua_pushstring(L,
name);
1944 int base_table = lua_gettop(L);
1945 SWIG_Lua_merge_tables_by_index(L, original_table, base_table);
1954 assert(lua_istable(L,-1));
1955 int original = lua_gettop(L);
1957 int base = lua_gettop(L);
1958 SWIG_Lua_merge_tables(L,
".fn", original, base );
1959 SWIG_Lua_merge_tables(L,
".set", original, base );
1960 SWIG_Lua_merge_tables(L,
".get", original, base );
1971 if (clss->
bases[i]==0)
1977 SWIG_Lua_class_squash_base(L, clss->
bases[i]);
1983 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
1987 assert(lua_istable(L,-1));
1989 assert(lua_istable(L,-1));
1995 assert(lua_istable(L,-1));
2006 assert(lua_istable(L,-1));
2008 for(i=0;clss->
bases[i];i++)
2022 size_t bases_count = 0;
2025 assert(lua_istable(L,-1));
2026 for(i=0;clss->
bases[i];i++)
2030 assert(lua_istable(L,-1));
2031 lua_rawseti(L,-2,i+1);
2042 assert(lua_istable(L,-1));
2043 for(i=0;clss->
methods[i].name;i++){
2057 #if !defined(SWIG_LUA_SQUASH_BASES)
2099 lua_pushvalue(L, metamethod_name_idx);
2113 for(i=0;clss->
bases[i];i++)
2128 int metamethod_name_idx;
2132 lua_checkstack(L,5);
2133 numargs = lua_gettop(L);
2136 lua_pushvalue(L, lua_upvalueindex(1));
2137 metamethod_name_idx = lua_gettop(L);
2139 lua_pushvalue(L, lua_upvalueindex(2));
2146 SWIG_Lua_pushferrstring(L,
"The metamethod proxy is set, but it failed to find actual metamethod. Memory corruption is most likely explanation.");
2153 lua_call(L, numargs, LUA_MULTRET);
2154 return lua_gettop(L);
2169 assert(lua_isstring(L,-1));
2171 key_index = lua_gettop(L);
2174 lua_pushvalue(L,key_index);
2175 lua_gettable(L,metatable_index);
2176 if( !lua_isnil(L,-1) ) {
2183 for(i=0;clss->
bases[i];i++)
2187 lua_pushvalue(L, key_index);
2189 if( !lua_isnil(L,-1) ) {
2190 lua_pushvalue(L, key_index);
2193 lua_pushvalue(L, key_index);
2194 lua_pushlightuserdata(L, clss);
2197 lua_rawset(L, metatable_index);
2212 int metatable_index;
2213 int metamethods_info_index;
2214 int tostring_undefined;
2215 int eq_undefined = 0;
2218 metatable_index = lua_gettop(L);
2220 assert(lua_istable(L,-1));
2221 metamethods_info_index = lua_gettop(L);
2223 while(lua_next(L, metamethods_info_index) != 0 ) {
2225 const int is_inheritable = lua_toboolean(L,-2);
2228 if(is_inheritable) {
2236 lua_pushstring(L,
"__tostring");
2237 lua_pushvalue(L,-1);
2238 lua_rawget(L,metatable_index);
2239 tostring_undefined = lua_isnil(L,-1);
2241 if( tostring_undefined ) {
2243 lua_rawset(L, metatable_index);
2249 lua_pushstring(L,
"__eq");
2250 lua_pushvalue(L,-1);
2251 lua_rawget(L,metatable_index);
2252 eq_undefined = lua_isnil(L,-1);
2254 if( eq_undefined ) {
2256 lua_rawset(L, metatable_index);
2270 lua_checkstack(L,5);
2271 assert(lua_istable(L,-1));
2276 assert(lua_istable(L,-1));
2284 lua_getmetatable(L,-1);
2285 assert(lua_istable(L,-1));
2290 assert(lua_istable(L,-1));
2295 assert( lua_gettop(L) == begin );
2307 lua_pushstring(L,clss->
fqname);
2309 if(!lua_isnil(L,-1)) {
2311 assert(lua_gettop(L)==begin);
2316 for(i=0;clss->
bases[i];i++)
2322 lua_pushstring(L,clss->
fqname);
2324 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2331 for(i=0;clss->
bases[i];i++)
2336 SWIG_Lua_merge_tables_by_index(L,new_metatable_index, base_metatable);
2343 lua_pushstring(L,
".type");
2344 lua_pushstring(L,clss->
fqname);
2347 lua_pushstring(L,
".bases");
2351 lua_pushstring(L,
".get");
2355 lua_pushstring(L,
".set");
2359 lua_pushstring(L,
".fn");
2371 assert(lua_gettop(L) == begin);
2373 #if defined(SWIG_LUA_SQUASH_BASES) && (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
2375 SWIG_Lua_class_squash_bases(L,clss);
2380 assert( lua_gettop(L) == begin );
2386 assert(lua_istable(L,-1));
2400 begin = lua_gettop(L);
2403 assert(lua_istable(L,-1));
2404 lua_getmetatable(L,-1);
2405 assert(lua_istable(L,-1));
2406 lua_pushstring(L,
".instance");
2409 assert(lua_istable(L,-1));
2410 lua_pushstring(L,
".static");
2411 lua_pushvalue(L, -4);
2412 assert(lua_istable(L,-1));
2416 assert(lua_gettop(L) == begin);
2420 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
2427 lua_pushstring(L,clss->
fqname);
2429 if(!lua_isnil(L,-1)) {
2431 assert(lua_gettop(L)==begin);
2436 for(i=0;clss->
bases[i];i++)
2438 SWIG_Lua_elua_class_register_instance(L,clss->
bases[i]);
2442 lua_pushstring(L,clss->
fqname);
2444 lua_pushrotable(L, (
void*)(clss->
metatable));
2447 assert(lua_gettop(L) == begin);
2461 if (lua_istable(L,-1))
2463 lua_setmetatable(L,-2);
2484 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
2496 if (lua_isnil(L,index))
2526 int argnum,
const char *func_name){
2529 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
2530 func_name,(type && type->
str)?type->
str:
"void*",argnum);
2543 memcpy(raw->
data,ptr,size);
2553 if (type==0 || type==raw->
type)
2555 memcpy(ptr,raw->
data,size);
2565 if (lua_isuserdata(L,tp))
2570 return "userdata (unknown type)";
2572 return lua_typename(L,lua_type(L,tp));
2586 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
2591 for (i = 0; constants[i].
type; i++) {
2592 switch(constants[i].type) {
2594 lua_pushstring(L,constants[i].
name);
2595 lua_pushinteger(L,(lua_Integer)constants[i].lvalue);
2599 lua_pushstring(L,constants[i].
name);
2600 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
2604 lua_pushstring(L,constants[i].
name);
2606 char c = (char)constants[i].lvalue;
2607 lua_pushlstring(L,&c,1);
2612 lua_pushstring(L,constants[i].
name);
2613 lua_pushstring(L,(
char *) constants[i].pvalue);
2617 lua_pushstring(L,constants[i].
name);
2622 lua_pushstring(L,constants[i].
name);
2623 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
2637 #ifndef SWIG_DOSTRING_FAIL
2638 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
2648 if (str==0 || str[0]==0)
return 0;
2650 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
2651 ok=luaL_dostring(L,str);
2653 ok=lua_dostring(L,str);
2671 #define SWIGTYPE_p_PLGraphicsIn swig_types[0]
2672 #define SWIGTYPE_p_char swig_types[1]
2673 #define SWIGTYPE_p_double swig_types[2]
2674 #define SWIGTYPE_p_f_double_double__int swig_types[3]
2675 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
2676 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
2677 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
2678 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
2679 #define SWIGTYPE_p_int swig_types[8]
2680 #define SWIGTYPE_p_p_char swig_types[9]
2681 #define SWIGTYPE_p_p_double swig_types[10]
2682 #define SWIGTYPE_p_unsigned_int swig_types[11]
2685 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
2686 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
2690 #define SWIG_name "plplotluac"
2691 #define SWIG_init luaopen_plplotluac
2692 #define SWIG_init_user luaopen_plplotluac_user
2694 #define SWIG_LUACODE luaopen_plplotluac_luacode
2699 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
2700 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
2704 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
2705 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
2707 for ( i = 0; i < size; i++ ) { \
2708 lua_rawgeti( L, index, i + 1 ); \
2709 if ( lua_isnumber( L, -1 ) ) { \
2710 array[i] = (TYPE) lua_tonumber( L, -1 ); \
2719 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
2722 if ( !lua_istable( L, index ) ) { \
2723 lua_pushstring( L, "expected a table" ); \
2726 *size = SWIG_itable_size( L, index ); \
2727 if ( *size < 1 ) { \
2728 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
2729 array[0] = (TYPE) 0; \
2732 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
2733 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
2734 lua_pushstring( L, "table must contain numbers" ); \
2735 LUA_FREE_ARRAY( array ); \
2750 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
2751 #define SWIG_FREE_ARRAY(PTR) delete[] PTR
2753 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
2754 #define SWIG_FREE_ARRAY(PTR) free(PTR)
2761 lua_rawgeti(L,index,n+1);
2762 if (lua_isnil(L,-1))
break;
2774 while (lua_next(L, index) != 0) {
2782 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
2783 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
2785 for (i = 0; i < size; i++) {\
2786 lua_rawgeti(L,index,i+1);\
2787 if (lua_isnumber(L,-1)){\
2788 array[i] = (TYPE)lua_tonumber(L,-1);\
2797 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
2799 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
2800 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
2803 array=SWIG_ALLOC_ARRAY(TYPE,size);\
2804 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
2805 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2806 SWIG_FREE_ARRAY(array);\
2811 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
2814 if (!lua_istable(L,index)) {\
2815 SWIG_Lua_pusherrstring(L,"expected a table");\
2818 *size=SWIG_itable_size(L,index);\
2820 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
2823 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
2824 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
2825 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
2826 SWIG_FREE_ARRAY(array);\
2831 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2834 for (i = 0; i < size; i++){\
2835 lua_pushnumber(L,(lua_Number)array[i]);\
2836 lua_rawseti(L,-2,i+1); \
2853 for (i = 0; i < size; i++) {
2854 lua_rawgeti(L,index,i+1);
2855 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2879 if (!lua_istable(L,index)) {
2899 for (i = 0; i < size; i++){
2901 lua_rawseti(L,-2,i+1);
2916 if ( !lua_istable( L, index ) )
2918 lua_pushstring( L,
"expected a table" );
2924 lua_pushstring( L,
"table appears to be empty" );
2928 for ( i = 0; i < *nx; i++ )
2931 lua_rawgeti( L, index, 1 );
2932 if ( !lua_istable( L, -1 ) )
2935 lua_pushstring( L,
"expected a table" );
2942 lua_pushstring( L,
"table appears to be empty" );
2948 for ( i = 0; i < *nx; i++ )
2950 lua_rawgeti( L, index, i + 1 );
2951 if ( !lua_istable( L, -1 ) )
2954 lua_pushstring( L,
"expected a table" );
2955 for ( j = 0; j < *ny; j++ )
2963 lua_pushstring( L,
"inconsistent table sizes" );
2964 for ( j = 0; j < i; j++ )
2970 for ( j = 0; j < *ny; j++ )
2972 lua_rawgeti( L, -1, j + 1 );
2973 if ( lua_isnumber( L, -1 ) )
2975 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
2980 lua_pushstring( L,
"table must contain numbers" );
2981 for ( j = 0; j < i + 1; j++ )
3002 PLFLT *xtemp, *ytemp;
3008 fprintf( stderr,
"Lua state is not set!" );
3014 lua_pushnumber(
myL, n );
3015 SWIG_write_double_num_array(
myL, x, n );
3016 SWIG_write_double_num_array(
myL, y, n );
3019 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
3020 fprintf( stderr,
"error running function `%s':%s",
3024 if ( !lua_istable(
myL, -2 ) )
3026 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
3029 if ( !lua_istable(
myL, -1 ) )
3031 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
3034 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
3035 if ( !xtemp || len != n )
3037 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3040 for ( i = 0; i < n; i++ )
3044 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
3045 if ( !ytemp || len != n )
3047 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
3050 for ( i = 0; i < n; i++ )
3085 fprintf( stderr,
"Lua state is not set!" );
3091 lua_pushnumber(
myL, x );
3092 lua_pushnumber(
myL, y );
3095 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3096 fprintf( stderr,
"error running function `%s':%s",
3100 if ( !lua_isnumber(
myL, -2 ) )
3102 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
3105 if ( !lua_isnumber(
myL, -1 ) )
3107 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
3110 *tx = lua_tonumber(
myL, -2 );
3111 *ty = lua_tonumber(
myL, -1 );
3129 fprintf( stderr,
"Lua state is not set!" );
3135 lua_pushnumber(
myL, x );
3136 lua_pushnumber(
myL, y );
3139 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
3140 fprintf( stderr,
"error running function `%s':%s",
3144 if ( !lua_isnumber(
myL, -2 ) )
3146 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
3149 if ( !lua_isnumber(
myL, -1 ) )
3151 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
3154 *tx = lua_tonumber(
myL, -2 );
3155 *ty = lua_tonumber(
myL, -1 );
3168 fprintf( stderr,
"Lua state is not set!" );
3174 lua_pushnumber(
myL, axis );
3178 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
3179 fprintf( stderr,
"error running function `%s':%s",
3183 if ( !lua_isstring(
myL, -1 ) )
3185 fprintf( stderr,
"function `%s' must return a string as result",
mylabel_funcstr );
3188 strncpy( label, lua_tostring(
myL, -1 ), length );
3197 int ret = lua_isstring(L, idx);
3199 ret = lua_isnil(L, idx);
3213 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
3219 arg2 = (int)lua_tonumber(L, 2);
3220 if (arg1) (arg1)->type = arg2;
3244 result = (int) ((arg1)->type);
3245 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3263 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
3270 arg2 = (
unsigned int)lua_tonumber(L, 2);
3271 if (arg1) (arg1)->state = arg2;
3286 unsigned int result;
3295 result = (
unsigned int) ((arg1)->state);
3296 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3314 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
3321 arg2 = (
unsigned int)lua_tonumber(L, 2);
3322 if (arg1) (arg1)->keysym = arg2;
3337 unsigned int result;
3346 result = (
unsigned int) ((arg1)->keysym);
3347 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3365 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
3372 arg2 = (
unsigned int)lua_tonumber(L, 2);
3373 if (arg1) (arg1)->button = arg2;
3388 unsigned int result;
3397 result = (
unsigned int) ((arg1)->button);
3398 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3416 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
3422 arg2 = (
PLINT)lua_tonumber(L, 2);
3423 if (arg1) (arg1)->subwindow = arg2;
3447 result = (
PLINT) ((arg1)->subwindow);
3448 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3472 arg2 = (
char *)lua_tostring(L, 2);
3475 strncpy((
char*)arg1->string, (
const char *)arg2, 16-1);
3476 arg1->string[16-1] = 0;
3478 arg1->string[0] = 0;
3504 result = (
char *)(
char *) ((arg1)->
string);
3505 lua_pushstring(L,(
const char *)result); SWIG_arg++;
3523 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
3529 arg2 = (int)lua_tonumber(L, 2);
3530 if (arg1) (arg1)->pX = arg2;
3554 result = (int) ((arg1)->pX);
3555 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3573 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
3579 arg2 = (int)lua_tonumber(L, 2);
3580 if (arg1) (arg1)->pY = arg2;
3604 result = (int) ((arg1)->pY);
3605 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3623 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
3629 arg2 = (
PLFLT)lua_tonumber(L, 2);
3630 if (arg1) (arg1)->dX = arg2;
3654 result = (
PLFLT) ((arg1)->dX);
3655 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3673 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
3679 arg2 = (
PLFLT)lua_tonumber(L, 2);
3680 if (arg1) (arg1)->dY = arg2;
3704 result = (
PLFLT) ((arg1)->dY);
3705 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3723 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
3729 arg2 = (
PLFLT)lua_tonumber(L, 2);
3730 if (arg1) (arg1)->wX = arg2;
3754 result = (
PLFLT) ((arg1)->wX);
3755 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3773 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
3779 arg2 = (
PLFLT)lua_tonumber(L, 2);
3780 if (arg1) (arg1)->wY = arg2;
3804 result = (
PLFLT) ((arg1)->wY);
3805 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
3835 free((
char *) arg1);
3838 assert(lua_istable(L,1));
3840 assert(!lua_isnil(L,-1));
3842 lua_call(L,lua_gettop(L)-1,1);
3890 static 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 };
3898 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3899 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3900 arg1 = (
PLINT)lua_tonumber(L, 1);
3901 arg2 = (
PLINT)lua_tonumber(L, 2);
3922 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3923 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3924 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3925 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3926 arg1 = (
PLFLT)lua_tonumber(L, 1);
3927 arg2 = (
PLFLT)lua_tonumber(L, 2);
3928 arg3 = (
PLFLT)lua_tonumber(L, 3);
3929 arg4 = (
PLINT)lua_tonumber(L, 4);
3948 arg1 = (
PLINT)lua_tonumber(L, 1);
3981 arg1 = (
PLFLT)lua_tonumber(L, 1);
3982 arg2 = (
PLFLT)lua_tonumber(L, 2);
3983 arg3 = (
PLFLT)lua_tonumber(L, 3);
3984 arg4 = (
PLFLT)lua_tonumber(L, 4);
3985 arg5 = (
PLFLT)lua_tonumber(L, 5);
3986 arg6 = (
PLFLT)lua_tonumber(L, 6);
3987 arg7 = (
PLFLT)lua_tonumber(L, 7);
3988 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3989 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
4005 char *arg3 = (
char *) 0 ;
4008 char *arg6 = (
char *) 0 ;
4021 arg1 = (
PLFLT)lua_tonumber(L, 1);
4022 arg2 = (
PLFLT)lua_tonumber(L, 2);
4023 arg3 = (
char *)lua_tostring(L, 3);
4024 arg4 = (
PLFLT)lua_tonumber(L, 4);
4025 arg5 = (
PLINT)lua_tonumber(L, 5);
4026 arg6 = (
char *)lua_tostring(L, 6);
4027 arg7 = (
PLFLT)lua_tonumber(L, 7);
4028 arg8 = (
PLINT)lua_tonumber(L, 8);
4029 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
4053 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4059 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4062 if ( temp3 !=
Alen )
4064 lua_pushfstring( L,
"Tables must be of same length." );
4068 arg4 = (
PLINT)lua_tonumber(L, 3);
4069 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4117 arg7 = (
PLFLT)lua_tonumber(L, 1);
4118 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4120 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4121 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4122 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4123 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4124 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4125 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4154 char *arg1 = (
char *) 0 ;
4157 char *arg4 = (
char *) 0 ;
4168 arg1 = (
char *)lua_tostring(L, 1);
4169 arg2 = (
PLFLT)lua_tonumber(L, 2);
4170 arg3 = (
PLINT)lua_tonumber(L, 3);
4171 arg4 = (
char *)lua_tostring(L, 4);
4172 arg5 = (
PLFLT)lua_tonumber(L, 5);
4173 arg6 = (
PLINT)lua_tonumber(L, 6);
4174 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
4188 char *arg1 = (
char *) 0 ;
4189 char *arg2 = (
char *) 0 ;
4192 char *arg5 = (
char *) 0 ;
4193 char *arg6 = (
char *) 0 ;
4196 char *arg9 = (
char *) 0 ;
4197 char *arg10 = (
char *) 0 ;
4214 arg1 = (
char *)lua_tostring(L, 1);
4215 arg2 = (
char *)lua_tostring(L, 2);
4216 arg3 = (
PLFLT)lua_tonumber(L, 3);
4217 arg4 = (
PLINT)lua_tonumber(L, 4);
4218 arg5 = (
char *)lua_tostring(L, 5);
4219 arg6 = (
char *)lua_tostring(L, 6);
4220 arg7 = (
PLFLT)lua_tonumber(L, 7);
4221 arg8 = (
PLINT)lua_tonumber(L, 8);
4222 arg9 = (
char *)lua_tostring(L, 9);
4223 arg10 = (
char *)lua_tostring(L, 10);
4224 arg11 = (
PLFLT)lua_tonumber(L, 11);
4225 arg12 = (
PLINT)lua_tonumber(L, 12);
4226 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);
4253 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
4254 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
4255 arg1 = (
PLFLT)lua_tonumber(L, 1);
4256 arg2 = (
PLFLT)lua_tonumber(L, 2);
4259 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4260 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4261 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4294 arg1 = (
PLINT)lua_tonumber(L, 1);
4313 arg1 = (
PLFLT)lua_tonumber(L, 1);
4341 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
4342 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
4343 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
4344 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
4345 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
4346 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
4347 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
4348 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
4349 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
4350 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
4351 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
4352 arg1 = (
PLFLT)lua_tonumber(L, 1);
4353 arg2 = (
PLFLT)lua_tonumber(L, 2);
4354 arg3 = (
PLFLT)lua_tonumber(L, 3);
4355 arg4 = (
PLINT)lua_tonumber(L, 4);
4356 arg5 = (
PLBOOL)lua_tonumber(L, 5);
4357 arg6 = (
PLINT)lua_tonumber(L, 6);
4358 arg7 = (
PLINT)lua_tonumber(L, 7);
4359 arg8 = (
PLINT)lua_tonumber(L, 8);
4360 arg9 = (
PLINT)lua_tonumber(L, 9);
4361 arg10 = (
PLINT)lua_tonumber(L, 10);
4362 arg11 = (
PLFLT)lua_tonumber(L, 11);
4363 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
4393 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
4394 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
4395 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
4396 cgrid211.
nx = cgrid211.
ny = 0;
4418 arg4 = (
PLINT)lua_tonumber(L, 2);
4419 arg5 = (
PLINT)lua_tonumber(L, 3);
4420 arg6 = (
PLINT)lua_tonumber(L, 4);
4421 arg7 = (
PLINT)lua_tonumber(L, 5);
4424 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
4429 if(lua_gettop(L)>=7){
4434 if ( lua_isstring( L, 7 ) )
4436 const char* funcstr = lua_tostring( L, 7 );
4437 if ( strcmp(
"pltr0", funcstr ) == 0 )
4441 else if ( strcmp(
"pltr1", funcstr ) == 0 )
4445 else if ( strcmp(
"pltr2", funcstr ) == 0 )
4460 if(lua_gettop(L)>=8){
4465 lua_pushstring( L,
"xg" );
4466 lua_gettable( L, 8 );
4467 if ( !lua_istable( L, -1 ) )
4470 lua_pushstring( L,
"expected a table xg" );
4473 lua_rawgeti( L, -1, 1 );
4474 if ( lua_istable( L, -1 ) )
4476 else if ( lua_isnumber( L, -1 ) )
4482 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
4486 if ( gridmode == 1 )
4488 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
4496 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
4509 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4512 lua_pushfstring( L,
"Vectors must match matrix." );
4520 lua_pushstring( L,
"yg" );
4521 lua_gettable( L, 8 );
4522 if ( !lua_istable( L, -1 ) )
4525 lua_pushstring( L,
"expected a table yg" );
4528 lua_rawgeti( L, -1, 1 );
4529 if ( gridmode == 2 )
4531 if ( !lua_istable( L, -1 ) )
4535 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
4541 if ( !lua_isnumber( L, -1 ) )
4545 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
4550 if ( gridmode == 1 )
4552 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
4560 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
4573 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
4576 lua_pushfstring( L,
"Vectors must match matrix." );
4583 if ( gridmode == 1 )
4585 else if ( gridmode == 2 )
4589 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
4596 for ( i = 0; i < ii1; i++ )
4615 for ( i = 0; i <
Xlen; i++ )
4621 for ( i = 0; i <
Xlen; i++ )
4636 for ( i = 0; i < ii1; i++ )
4655 for ( i = 0; i <
Xlen; i++ )
4661 for ( i = 0; i <
Xlen; i++ )
4690 arg1 = (
PLINT)lua_tonumber(L, 1);
4691 arg2 = (
PLINT)lua_tonumber(L, 2);
4692 arg3 = (
PLINT)lua_tonumber(L, 3);
4693 arg4 = (
PLINT)lua_tonumber(L, 4);
4694 arg5 = (
PLINT)lua_tonumber(L, 5);
4695 arg6 = (
PLFLT)lua_tonumber(L, 6);
4696 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
4698 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
4716 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
4717 arg1 = (
PLINT)lua_tonumber(L, 1);
4718 arg2 = (
PLBOOL)lua_tonumber(L, 2);
4779 arg1 = (
PLFLT)lua_tonumber(L, 1);
4780 arg2 = (
PLFLT)lua_tonumber(L, 2);
4781 arg3 = (
PLFLT)lua_tonumber(L, 3);
4782 arg4 = (
PLFLT)lua_tonumber(L, 4);
4783 arg5 = (
PLINT)lua_tonumber(L, 5);
4784 arg6 = (
PLINT)lua_tonumber(L, 6);
4785 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
4813 arg1 = (
PLFLT)lua_tonumber(L, 1);
4814 arg2 = (
PLFLT)lua_tonumber(L, 2);
4815 arg3 = (
PLFLT)lua_tonumber(L, 3);
4816 arg4 = (
PLFLT)lua_tonumber(L, 4);
4817 arg5 = (
PLINT)lua_tonumber(L, 5);
4818 arg6 = (
PLINT)lua_tonumber(L, 6);
4819 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
4859 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4865 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4868 if ( temp3 !=
Alen )
4870 lua_pushfstring( L,
"Tables must be of same length." );
4875 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4878 if ( temp4 !=
Alen )
4880 lua_pushfstring( L,
"Tables must be of same length." );
4884 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4926 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4932 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4935 if ( temp3 !=
Alen )
4937 lua_pushfstring( L,
"Tables must be of same length." );
4942 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4945 if ( temp4 !=
Alen )
4947 lua_pushfstring( L,
"Tables must be of same length." );
4951 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5007 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5013 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5016 if ( temp3 !=
Alen )
5018 lua_pushfstring( L,
"Tables must be of same length." );
5022 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
5058 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5064 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5067 if ( temp3 !=
Alen )
5069 lua_pushfstring( L,
"Tables must be of same length." );
5074 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5077 if ( temp4 !=
Alen )
5079 lua_pushfstring( L,
"Tables must be of same length." );
5083 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5122 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
5125 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5131 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5134 if ( temp3 !=
Alen )
5136 lua_pushfstring( L,
"Tables must be of same length." );
5140 arg4 = (
PLFLT)lua_tonumber(L, 3);
5141 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
5187 arg1 = (
PLINT)lua_tonumber(L, 1);
5206 arg1 = (
PLINT)lua_tonumber(L, 1);
5231 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5232 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5258 arg1 = (
PLINT)lua_tonumber(L, 1);
5261 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5262 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5263 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5292 arg1 = (
PLINT)lua_tonumber(L, 1);
5293 plgcol0a(arg1,arg2,arg3,arg4,arg5);
5295 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5296 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5297 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5298 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5324 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5325 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5326 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5355 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5356 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5357 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5358 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5378 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5391 char *arg1 = (
char *) 0 ;
5401 lua_pushstring( L, arg1 );
5432 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5433 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5434 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5435 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5455 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5484 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5485 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5486 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5487 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5513 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5514 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5515 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5535 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5548 char *arg1 = (
char *) 0 ;
5558 lua_pushstring( L, arg1 );
5586 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5587 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5588 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5608 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5641 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
5643 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5644 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5645 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5646 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5647 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5648 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5691 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
5692 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
5695 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5701 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
5704 if ( temp2 !=
Alen )
5706 lua_pushfstring( L,
"Tables must be of same length." );
5712 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
5717 lua_pushfstring( L,
"Tables must be of same length." );
5724 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
5732 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
5740 for ( i = 0; i <
Xlen; i++ )
5743 for ( i = 0; i <
Xlen; i++ )
5750 arg10 = (
PLINT)lua_tonumber(L, 6);
5751 arg11 = (
PLFLT)lua_tonumber(L, 7);
5752 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
5760 for ( i = 0; i <
Xlen; i++ )
5762 SWIG_write_double_num_array( L, arg9[i],
Ylen );
5763 lua_rawseti( L, -2, i + 1 );
5787 for ( i = 0; i <
Xlen; i++ )
5816 for ( i = 0; i <
Xlen; i++ )
5842 plgspa(arg1,arg2,arg3,arg4);
5844 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5845 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5846 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5847 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5867 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5880 char *arg1 = (
char *) 0 ;
5890 lua_pushstring( L, arg1 );
5919 plgvpd(arg1,arg2,arg3,arg4);
5921 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5922 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5923 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5924 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5951 plgvpw(arg1,arg2,arg3,arg4);
5953 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5954 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5955 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5956 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5979 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5980 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6003 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6004 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6027 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6028 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6055 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6060 arg3 = (
PLFLT)lua_tonumber(L, 2);
6061 arg4 = (
PLFLT)lua_tonumber(L, 3);
6062 arg5 = (
PLINT)lua_tonumber(L, 4);
6063 arg6 = (
PLINT)lua_tonumber(L, 5);
6064 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
6101 arg1 = (
PLFLT)lua_tonumber(L, 1);
6102 arg2 = (
PLFLT)lua_tonumber(L, 2);
6103 arg3 = (
PLFLT)lua_tonumber(L, 3);
6104 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
6106 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
6107 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
6108 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
6147 arg1 = (
PLFLT)lua_tonumber(L, 1);
6148 arg2 = (
PLFLT)lua_tonumber(L, 2);
6149 arg3 = (
PLFLT)lua_tonumber(L, 3);
6150 arg4 = (
PLFLT)lua_tonumber(L, 4);
6151 pljoin(arg1,arg2,arg3,arg4);
6165 char *arg1 = (
char *) 0 ;
6166 char *arg2 = (
char *) 0 ;
6167 char *arg3 = (
char *) 0 ;
6173 arg1 = (
char *)lua_tostring(L, 1);
6174 arg2 = (
char *)lua_tostring(L, 2);
6175 arg3 = (
char *)lua_tostring(L, 3);
6176 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
6209 char **arg20 = (
char **) 0 ;
6220 char **arg31 = (
char **) 0 ;
6277 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
6278 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
6279 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
6280 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
6281 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
6282 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
6283 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
6284 arg3 = (
PLINT)lua_tonumber(L, 1);
6285 arg4 = (
PLINT)lua_tonumber(L, 2);
6286 arg5 = (
PLFLT)lua_tonumber(L, 3);
6287 arg6 = (
PLFLT)lua_tonumber(L, 4);
6288 arg7 = (
PLFLT)lua_tonumber(L, 5);
6289 arg8 = (
PLINT)lua_tonumber(L, 6);
6290 arg9 = (
PLINT)lua_tonumber(L, 7);
6291 arg10 = (
PLINT)lua_tonumber(L, 8);
6292 arg11 = (
PLINT)lua_tonumber(L, 9);
6293 arg12 = (
PLINT)lua_tonumber(L, 10);
6295 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
6300 arg15 = (
PLFLT)lua_tonumber(L, 12);
6301 arg16 = (
PLFLT)lua_tonumber(L, 13);
6302 arg17 = (
PLFLT)lua_tonumber(L, 14);
6303 arg18 = (
PLFLT)lua_tonumber(L, 15);
6305 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
6308 if ( temp19 !=
Alen )
6310 lua_pushfstring( L,
"Tables must be of same length." );
6320 lua_pushfstring( L,
"Tables must be of same length." );
6323 arg20 = malloc(
sizeof (
char* ) *
Alen );
6324 for ( i = 1; i <=
Alen; i++ )
6326 lua_rawgeti( L, 17, i );
6327 if ( lua_isstring( L, -1 ) )
6329 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6334 lua_pushfstring( L,
"Requires a sequence of strings." );
6341 if(lua_gettop(L)>=18){
6343 if ( lua_isnil( L, 18 ) )
6349 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
6352 if ( temp21 !=
Alen )
6354 lua_pushfstring( L,
"Tables must be of same length." );
6360 if(lua_gettop(L)>=19){
6362 if ( lua_isnil( L, 19 ) )
6368 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
6371 if ( temp22 !=
Alen )
6373 lua_pushfstring( L,
"Tables must be of same length." );
6379 if(lua_gettop(L)>=20){
6381 if ( lua_isnil( L, 20 ) )
6387 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
6390 if ( temp23 !=
Alen )
6392 lua_pushfstring( L,
"Tables must be of same length." );
6398 if(lua_gettop(L)>=21){
6400 if ( lua_isnil( L, 21 ) )
6406 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
6409 if ( temp24 !=
Alen )
6411 lua_pushfstring( L,
"Tables must be of same length." );
6417 if(lua_gettop(L)>=22){
6419 if ( lua_isnil( L, 22 ) )
6425 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
6428 if ( temp25 !=
Alen )
6430 lua_pushfstring( L,
"Tables must be of same length." );
6436 if(lua_gettop(L)>=23){
6438 if ( lua_isnil( L, 23 ) )
6444 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
6447 if ( temp26 !=
Alen )
6449 lua_pushfstring( L,
"Tables must be of same length." );
6455 if(lua_gettop(L)>=24){
6457 if ( lua_isnil( L, 24 ) )
6463 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
6466 if ( temp27 !=
Alen )
6468 lua_pushfstring( L,
"Tables must be of same length." );
6474 if(lua_gettop(L)>=25){
6476 if ( lua_isnil( L, 25 ) )
6482 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
6485 if ( temp28 !=
Alen )
6487 lua_pushfstring( L,
"Tables must be of same length." );
6493 if(lua_gettop(L)>=26){
6495 if ( lua_isnil( L, 26 ) )
6501 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
6504 if ( temp29 !=
Alen )
6506 lua_pushfstring( L,
"Tables must be of same length." );
6512 if(lua_gettop(L)>=27){
6514 if ( lua_isnil( L, 27 ) )
6520 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
6523 if ( temp30 !=
Alen )
6525 lua_pushfstring( L,
"Tables must be of same length." );
6531 if(lua_gettop(L)>=28){
6538 lua_pushfstring( L,
"Tables must be of same length." );
6541 arg31 = malloc(
sizeof (
char* ) *
Alen );
6542 for ( i = 1; i <=
Alen; i++ )
6544 lua_rawgeti( L, 28, i );
6545 if ( lua_isstring( L, -1 ) )
6547 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
6552 lua_pushfstring( L,
"Requires a sequence of strings." );
6560 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);
6562 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6563 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6573 free( arg20 ); arg20 = NULL;
6609 free( arg31 ); arg31 = NULL;
6626 free( arg20 ); arg20 = NULL;
6662 free( arg31 ); arg31 = NULL;
6689 char **arg18 = (
char **) 0 ;
6691 char **arg20 = (
char **) 0 ;
6706 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
6707 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
6708 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
6709 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
6710 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
6711 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
6712 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
6713 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
6714 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
6715 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
6716 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
6717 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
6718 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
6719 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
6720 arg3 = (
PLINT)lua_tonumber(L, 1);
6721 arg4 = (
PLINT)lua_tonumber(L, 2);
6722 arg5 = (
PLFLT)lua_tonumber(L, 3);
6723 arg6 = (
PLFLT)lua_tonumber(L, 4);
6724 arg7 = (
PLFLT)lua_tonumber(L, 5);
6725 arg8 = (
PLFLT)lua_tonumber(L, 6);
6726 arg9 = (
PLINT)lua_tonumber(L, 7);
6727 arg10 = (
PLINT)lua_tonumber(L, 8);
6728 arg11 = (
PLINT)lua_tonumber(L, 9);
6729 arg12 = (
PLFLT)lua_tonumber(L, 10);
6730 arg13 = (
PLFLT)lua_tonumber(L, 11);
6731 arg14 = (
PLINT)lua_tonumber(L, 12);
6732 arg15 = (
PLFLT)lua_tonumber(L, 13);
6734 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
6745 lua_pushfstring( L,
"Tables must be of same length." );
6748 arg18 = malloc(
sizeof (
char* ) *
Alen );
6749 for ( i = 1; i <=
Alen; i++ )
6751 lua_rawgeti( L, 15, i );
6752 if ( lua_isstring( L, -1 ) )
6754 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
6759 lua_pushfstring( L,
"Requires a sequence of strings." );
6771 arg20 = malloc(
sizeof (
char* ) *
Alen );
6772 for ( i = 1; i <=
Alen; i++ )
6774 lua_rawgeti( L, 16, i );
6775 if ( lua_isstring( L, -1 ) )
6777 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
6782 lua_pushfstring( L,
"Requires a sequence of strings." );
6789 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
6792 if ( temp21 !=
Alen )
6794 lua_pushfstring( L,
"Tables must be of same length." );
6799 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
6802 if ( temp22 !=
Alen )
6804 lua_pushfstring( L,
"Tables must be of same length." );
6811 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
6814 if ( temp23 !=
Alen )
6816 lua_pushfstring( L,
"Tables must be of same length." );
6822 for ( i = 0; i <
Xlen; i++ )
6823 if ( arg23[i] >
Ylen )
6832 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
6834 lua_pushfstring( L,
"Vectors must match matrix." );
6838 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);
6840 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6841 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
6848 free( arg18 ); arg18 = NULL;
6854 free( arg20 ); arg20 = NULL;
6871 for ( i = 0; i < ii24; i++ )
6887 free( arg18 ); arg18 = NULL;
6893 free( arg20 ); arg20 = NULL;
6910 for ( i = 0; i < ii24; i++ )
6927 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
6928 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
6929 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6930 arg1 = (
PLFLT)lua_tonumber(L, 1);
6931 arg2 = (
PLFLT)lua_tonumber(L, 2);
6932 arg3 = (
PLFLT)lua_tonumber(L, 3);
6955 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6961 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6964 if ( temp3 !=
Alen )
6966 lua_pushfstring( L,
"Tables must be of same length." );
6970 plline(arg1,(
double const *)arg2,(
double const *)arg3);
7006 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7012 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7015 if ( temp3 !=
Alen )
7017 lua_pushfstring( L,
"Tables must be of same length." );
7022 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7025 if ( temp4 !=
Alen )
7027 lua_pushfstring( L,
"Tables must be of same length." );
7031 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
7067 arg1 = (
PLINT)lua_tonumber(L, 1);
7094 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7101 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7114 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7116 lua_pushfstring( L,
"Vectors must match matrix." );
7120 arg6 = (
PLINT)lua_tonumber(L, 4);
7121 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
7134 for ( i = 0; i < ii3; i++ )
7155 for ( i = 0; i < ii3; i++ )
7181 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7188 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7201 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7203 lua_pushfstring( L,
"Vectors must match matrix." );
7207 arg6 = (
PLINT)lua_tonumber(L, 4);
7210 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7215 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7228 for ( i = 0; i < ii3; i++ )
7252 for ( i = 0; i < ii3; i++ )
7274 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7287 char *arg1 = (
char *) 0 ;
7291 char *arg5 = (
char *) 0 ;
7299 arg1 = (
char *)lua_tostring(L, 1);
7300 arg2 = (
PLFLT)lua_tonumber(L, 2);
7301 arg3 = (
PLFLT)lua_tonumber(L, 3);
7302 arg4 = (
PLFLT)lua_tonumber(L, 4);
7303 arg5 = (
char *)lua_tostring(L, 5);
7304 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7318 char *arg1 = (
char *) 0 ;
7322 char *arg5 = (
char *) 0 ;
7330 arg1 = (
char *)lua_tostring(L, 1);
7331 arg2 = (
PLFLT)lua_tonumber(L, 2);
7332 arg3 = (
PLFLT)lua_tonumber(L, 3);
7333 arg4 = (
PLFLT)lua_tonumber(L, 4);
7334 arg5 = (
char *)lua_tostring(L, 5);
7335 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
7363 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7370 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7383 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7385 lua_pushfstring( L,
"Vectors must match matrix." );
7389 arg6 = (
PLINT)lua_tonumber(L, 4);
7390 arg7 = (
PLBOOL)lua_tonumber(L, 5);
7391 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
7404 for ( i = 0; i < ii3; i++ )
7425 for ( i = 0; i < ii3; i++ )
7451 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7458 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7471 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7473 lua_pushfstring( L,
"Vectors must match matrix." );
7477 arg6 = (
PLINT)lua_tonumber(L, 4);
7480 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7485 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7498 for ( i = 0; i < ii3; i++ )
7522 for ( i = 0; i < ii3; i++ )
7557 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7564 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7577 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7579 lua_pushfstring( L,
"Vectors must match matrix." );
7583 arg6 = (
PLINT)lua_tonumber(L, 4);
7586 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7591 arg9 = (
PLINT)lua_tonumber(L, 6);
7593 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7599 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7602 if ( temp12 !=
Alen )
7604 lua_pushfstring( L,
"Tables must be of same length." );
7608 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);
7621 for ( i = 0; i < ii3; i++ )
7651 for ( i = 0; i < ii3; i++ )
7686 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7693 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7706 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7708 lua_pushfstring( L,
"Vectors must match matrix." );
7712 arg6 = (
PLINT)lua_tonumber(L, 4);
7715 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7720 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
7733 for ( i = 0; i < ii3; i++ )
7757 for ( i = 0; i < ii3; i++ )
7788 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
7789 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
7792 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7799 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7812 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
7814 lua_pushfstring( L,
"Vectors must match matrix." );
7818 arg6 = (
PLINT)lua_tonumber(L, 4);
7821 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
7826 arg9 = (
PLINT)lua_tonumber(L, 6);
7828 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
7834 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
7837 if ( temp12 !=
Alen )
7839 lua_pushfstring( L,
"Tables must be of same length." );
7843 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);
7856 for ( i = 0; i < ii3; i++ )
7886 for ( i = 0; i < ii3; i++ )
7907 int *arg1 = (
int *) 0 ;
7908 char **arg2 = (
char **) 0 ;
7913 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
7914 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
7923 lua_rawgeti( L, 1, i );
7924 if ( lua_isnil( L, -1 ) )
7937 for ( i = 0; i < n; i++ )
7939 lua_rawgeti( L, 1, i );
7940 if ( lua_isstring( L, -1 ) )
7942 arg2[i] = (
char *) lua_tostring( L, -1 );
7947 lua_pushfstring( L,
"List items must be strings" );
7955 arg3 = (
PLINT)lua_tonumber(L, 2);
7957 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7983 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7989 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7992 if ( temp3 !=
Alen )
7994 lua_pushfstring( L,
"Tables must be of same length." );
7998 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
8036 arg1 = (
PLINT)lua_tonumber(L, 1);
8037 arg2 = (
PLFLT)lua_tonumber(L, 2);
8038 arg3 = (
PLFLT)lua_tonumber(L, 3);
8039 arg4 = (
PLFLT)lua_tonumber(L, 4);
8040 arg5 = (
PLFLT)lua_tonumber(L, 5);
8041 plpath(arg1,arg2,arg3,arg4,arg5);
8065 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8071 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8074 if ( temp3 !=
Alen )
8076 lua_pushfstring( L,
"Tables must be of same length." );
8080 arg4 = (
PLINT)lua_tonumber(L, 3);
8081 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
8119 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8125 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8128 if ( temp3 !=
Alen )
8130 lua_pushfstring( L,
"Tables must be of same length." );
8135 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8138 if ( temp4 !=
Alen )
8140 lua_pushfstring( L,
"Tables must be of same length." );
8144 arg5 = (
PLINT)lua_tonumber(L, 4);
8145 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
8191 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
8197 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
8200 if ( temp3 !=
Alen )
8202 lua_pushfstring( L,
"Tables must be of same length." );
8207 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8210 if ( temp4 !=
Alen )
8212 lua_pushfstring( L,
"Tables must be of same length." );
8217 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
8220 if ( temp5 <
Alen - 1 )
8222 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8226 arg6 = (
PLBOOL)lua_tonumber(L, 5);
8227 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
8271 arg1 = (
PLINT)lua_tonumber(L, 1);
8272 arg2 = (
PLINT)lua_tonumber(L, 2);
8291 arg1 = (
PLINT)lua_tonumber(L, 1);
8311 char *arg6 = (
char *) 0 ;
8320 arg1 = (
PLFLT)lua_tonumber(L, 1);
8321 arg2 = (
PLFLT)lua_tonumber(L, 2);
8322 arg3 = (
PLFLT)lua_tonumber(L, 3);
8323 arg4 = (
PLFLT)lua_tonumber(L, 4);
8324 arg5 = (
PLFLT)lua_tonumber(L, 5);
8325 arg6 = (
char *)lua_tostring(L, 6);
8326 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
8350 char *arg11 = (
char *) 0 ;
8362 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
8364 arg1 = (
PLFLT)lua_tonumber(L, 1);
8365 arg2 = (
PLFLT)lua_tonumber(L, 2);
8366 arg3 = (
PLFLT)lua_tonumber(L, 3);
8367 arg4 = (
PLFLT)lua_tonumber(L, 4);
8368 arg5 = (
PLFLT)lua_tonumber(L, 5);
8369 arg6 = (
PLFLT)lua_tonumber(L, 6);
8370 arg7 = (
PLFLT)lua_tonumber(L, 7);
8371 arg8 = (
PLFLT)lua_tonumber(L, 8);
8372 arg9 = (
PLFLT)lua_tonumber(L, 9);
8373 arg10 = (
PLFLT)lua_tonumber(L, 10);
8374 arg11 = (
char *)lua_tostring(L, 11);
8375 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
8393 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8439 arg1 = (
PLFLT)lua_tonumber(L, 1);
8440 arg2 = (
PLFLT)lua_tonumber(L, 2);
8441 arg3 = (
PLFLT)lua_tonumber(L, 3);
8442 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
8444 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
8445 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
8446 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
8465 arg1 = (
PLFLT)lua_tonumber(L, 1);
8466 arg2 = (
PLFLT)lua_tonumber(L, 2);
8491 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8497 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8500 if ( temp2 !=
Alen )
8502 lua_pushfstring( L,
"Tables must be of same length." );
8507 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8510 if ( temp3 !=
Alen )
8512 lua_pushfstring( L,
"Tables must be of same length." );
8517 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8560 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8566 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8569 if ( temp2 !=
Alen )
8571 lua_pushfstring( L,
"Tables must be of same length." );
8576 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8579 if ( temp3 !=
Alen )
8581 lua_pushfstring( L,
"Tables must be of same length." );
8587 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8592 lua_pushfstring( L,
"Tables must be of same length." );
8597 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8638 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
8639 arg1 = (
PLINT)lua_tonumber(L, 1);
8664 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8670 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8673 if ( temp2 !=
Alen )
8675 lua_pushfstring( L,
"Tables must be of same length." );
8680 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8683 if ( temp3 !=
Alen )
8685 lua_pushfstring( L,
"Tables must be of same length." );
8690 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
8733 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
8739 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
8742 if ( temp2 !=
Alen )
8744 lua_pushfstring( L,
"Tables must be of same length." );
8749 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
8752 if ( temp3 !=
Alen )
8754 lua_pushfstring( L,
"Tables must be of same length." );
8760 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
8765 lua_pushfstring( L,
"Tables must be of same length." );
8770 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
8824 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
8825 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8828 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8834 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8837 if ( temp4 !=
Alen )
8839 lua_pushfstring( L,
"Tables must be of same length." );
8844 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8847 if ( temp5 !=
Alen )
8849 lua_pushfstring( L,
"Tables must be of same length." );
8854 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8857 if ( temp6 !=
Alen )
8859 lua_pushfstring( L,
"Tables must be of same length." );
8863 if(lua_gettop(L)>=6){
8865 if ( lua_isnil( L, 6 ) )
8871 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
8874 if ( temp7 <
Alen - 1 )
8876 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8882 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
8944 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
8945 arg1 = (
PLBOOL)lua_tonumber(L, 1);
8948 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
8954 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
8957 if ( temp4 !=
Alen )
8959 lua_pushfstring( L,
"Tables must be of same length." );
8964 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
8967 if ( temp5 !=
Alen )
8969 lua_pushfstring( L,
"Tables must be of same length." );
8974 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8977 if ( temp6 !=
Alen )
8979 lua_pushfstring( L,
"Tables must be of same length." );
8984 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8987 if ( temp7 !=
Alen )
8989 lua_pushfstring( L,
"Tables must be of same length." );
8993 if(lua_gettop(L)>=7){
8995 if ( lua_isnil( L, 7 ) )
9001 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
9004 if ( temp8 <
Alen - 1 )
9006 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
9012 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
9065 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
9066 arg1 = (
PLINT)lua_tonumber(L, 1);
9085 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
9086 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
9087 arg1 = (
PLFLT)lua_tonumber(L, 1);
9088 arg2 = (
PLFLT)lua_tonumber(L, 2);
9113 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9114 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
9137 arg1 = (
PLINT)lua_tonumber(L, 1);
9138 arg2 = (
PLINT)lua_tonumber(L, 2);
9139 arg3 = (
PLINT)lua_tonumber(L, 3);
9140 arg4 = (
PLINT)lua_tonumber(L, 4);
9167 arg1 = (
PLINT)lua_tonumber(L, 1);
9168 arg2 = (
PLINT)lua_tonumber(L, 2);
9169 arg3 = (
PLINT)lua_tonumber(L, 3);
9170 arg4 = (
PLINT)lua_tonumber(L, 4);
9171 arg5 = (
PLFLT)lua_tonumber(L, 5);
9172 plscol0a(arg1,arg2,arg3,arg4,arg5);
9194 arg1 = (
PLINT)lua_tonumber(L, 1);
9195 arg2 = (
PLINT)lua_tonumber(L, 2);
9196 arg3 = (
PLINT)lua_tonumber(L, 3);
9217 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
9218 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
9219 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
9220 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
9221 arg1 = (
PLINT)lua_tonumber(L, 1);
9222 arg2 = (
PLINT)lua_tonumber(L, 2);
9223 arg3 = (
PLINT)lua_tonumber(L, 3);
9224 arg4 = (
PLFLT)lua_tonumber(L, 4);
9243 arg1 = (
PLINT)lua_tonumber(L, 1);
9261 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
9262 arg1 = (
PLINT)lua_tonumber(L, 1);
9277 char *arg1 = (
char *) 0 ;
9281 arg1 = (
char *)lua_tostring(L, 1);
9282 plsdev((
char const *)arg1);
9306 arg1 = (
PLFLT)lua_tonumber(L, 1);
9307 arg2 = (
PLFLT)lua_tonumber(L, 2);
9308 arg3 = (
PLFLT)lua_tonumber(L, 3);
9309 arg4 = (
PLFLT)lua_tonumber(L, 4);
9338 arg1 = (
PLINT)lua_tonumber(L, 1);
9339 arg2 = (
PLINT)lua_tonumber(L, 2);
9340 arg3 = (
PLINT)lua_tonumber(L, 3);
9341 arg4 = (
PLINT)lua_tonumber(L, 4);
9342 arg5 = (
PLFLT)lua_tonumber(L, 5);
9343 arg6 = (
PLFLT)lua_tonumber(L, 6);
9344 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
9362 arg1 = (
PLFLT)lua_tonumber(L, 1);
9387 arg1 = (
PLFLT)lua_tonumber(L, 1);
9388 arg2 = (
PLFLT)lua_tonumber(L, 2);
9389 arg3 = (
PLFLT)lua_tonumber(L, 3);
9390 arg4 = (
PLFLT)lua_tonumber(L, 4);
9415 arg1 = (
PLFLT)lua_tonumber(L, 1);
9416 arg2 = (
PLFLT)lua_tonumber(L, 2);
9417 arg3 = (
PLFLT)lua_tonumber(L, 3);
9418 arg4 = (
PLFLT)lua_tonumber(L, 4);
9436 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
9438 arg1 = (
unsigned int)lua_tonumber(L, 1);
9457 arg1 = (lua_tostring(L, 1))[0];
9472 char *arg1 = (
char *) 0 ;
9473 char *arg2 = (
char *) 0 ;
9479 arg1 = (
char *)lua_tostring(L, 1);
9480 arg2 = (
char *)lua_tostring(L, 2);
9481 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
9482 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
9503 arg1 = (
PLINT)lua_tonumber(L, 1);
9504 arg2 = (
PLINT)lua_tonumber(L, 2);
9505 arg3 = (
PLINT)lua_tonumber(L, 3);
9523 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
9540 char *arg1 = (
char *) 0 ;
9544 arg1 = (
char *)lua_tostring(L, 1);
9567 arg1 = (
PLINT)lua_tonumber(L, 1);
9568 arg2 = (
PLINT)lua_tonumber(L, 2);
9569 arg3 = (
PLINT)lua_tonumber(L, 3);
9606 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
9607 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
9608 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
9609 cgrid217.
nx = cgrid217.
ny = 0;
9631 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
9641 arg5 = (
PLFLT)lua_tonumber(L, 2);
9642 arg6 = (
PLFLT)lua_tonumber(L, 3);
9643 arg7 = (
PLFLT)lua_tonumber(L, 4);
9644 arg8 = (
PLFLT)lua_tonumber(L, 5);
9647 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
9650 arg10 =
Alen = temp;
9652 arg11 = (
PLFLT)lua_tonumber(L, 7);
9653 arg12 = (
PLINT)lua_tonumber(L, 8);
9654 arg13 = (
PLFLT)lua_tonumber(L, 9);
9655 arg15 = (
PLBOOL)lua_tonumber(L, 10);
9656 if(lua_gettop(L)>=11){
9661 if ( lua_isstring( L, 11 ) )
9663 const char* funcstr = lua_tostring( L, 11 );
9664 if ( strcmp(
"pltr0", funcstr ) == 0 )
9668 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9672 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9687 if(lua_gettop(L)>=12){
9692 lua_pushstring( L,
"xg" );
9693 lua_gettable( L, 12 );
9694 if ( !lua_istable( L, -1 ) )
9697 lua_pushstring( L,
"expected a table xg" );
9700 lua_rawgeti( L, -1, 1 );
9701 if ( lua_istable( L, -1 ) )
9703 else if ( lua_isnumber( L, -1 ) )
9709 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9713 if ( gridmode == 1 )
9715 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9723 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9736 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9739 lua_pushfstring( L,
"Vectors must match matrix." );
9747 lua_pushstring( L,
"yg" );
9748 lua_gettable( L, 12 );
9749 if ( !lua_istable( L, -1 ) )
9752 lua_pushstring( L,
"expected a table yg" );
9755 lua_rawgeti( L, -1, 1 );
9756 if ( gridmode == 2 )
9758 if ( !lua_istable( L, -1 ) )
9762 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9768 if ( !lua_isnumber( L, -1 ) )
9772 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9777 if ( gridmode == 1 )
9779 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9787 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9800 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9803 lua_pushfstring( L,
"Vectors must match matrix." );
9810 if ( gridmode == 1 )
9812 else if ( gridmode == 2 )
9816 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
9823 for ( i = 0; i < ii1; i++ )
9842 for ( i = 0; i <
Xlen; i++ )
9848 for ( i = 0; i <
Xlen; i++ )
9863 for ( i = 0; i < ii1; i++ )
9882 for ( i = 0; i <
Xlen; i++ )
9888 for ( i = 0; i <
Xlen; i++ )
9926 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
9927 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
9928 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
9929 cgrid221.
nx = cgrid221.
ny = 0;
9952 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
9953 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
9954 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
9955 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
9956 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
9957 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
9967 arg5 = (
PLFLT)lua_tonumber(L, 2);
9968 arg6 = (
PLFLT)lua_tonumber(L, 3);
9969 arg7 = (
PLFLT)lua_tonumber(L, 4);
9970 arg8 = (
PLFLT)lua_tonumber(L, 5);
9971 arg9 = (
PLFLT)lua_tonumber(L, 6);
9972 arg10 = (
PLFLT)lua_tonumber(L, 7);
9973 arg11 = (
PLINT)lua_tonumber(L, 8);
9974 arg12 = (
PLFLT)lua_tonumber(L, 9);
9975 arg13 = (
PLFLT)lua_tonumber(L, 10);
9976 arg14 = (
PLINT)lua_tonumber(L, 11);
9977 arg15 = (
PLFLT)lua_tonumber(L, 12);
9978 arg16 = (
PLINT)lua_tonumber(L, 13);
9979 arg17 = (
PLFLT)lua_tonumber(L, 14);
9980 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9981 if(lua_gettop(L)>=16){
9986 if ( lua_isstring( L, 16 ) )
9988 const char* funcstr = lua_tostring( L, 16 );
9989 if ( strcmp(
"pltr0", funcstr ) == 0 )
9993 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9997 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10012 if(lua_gettop(L)>=17){
10017 lua_pushstring( L,
"xg" );
10018 lua_gettable( L, 17 );
10019 if ( !lua_istable( L, -1 ) )
10022 lua_pushstring( L,
"expected a table xg" );
10025 lua_rawgeti( L, -1, 1 );
10026 if ( lua_istable( L, -1 ) )
10028 else if ( lua_isnumber( L, -1 ) )
10034 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10038 if ( gridmode == 1 )
10040 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10041 if ( !cgrid121.
xg )
10048 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10056 if ( !cgrid221.
xg )
10061 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10064 lua_pushfstring( L,
"Vectors must match matrix." );
10072 lua_pushstring( L,
"yg" );
10073 lua_gettable( L, 17 );
10074 if ( !lua_istable( L, -1 ) )
10077 lua_pushstring( L,
"expected a table yg" );
10080 lua_rawgeti( L, -1, 1 );
10081 if ( gridmode == 2 )
10083 if ( !lua_istable( L, -1 ) )
10087 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10093 if ( !lua_isnumber( L, -1 ) )
10097 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10102 if ( gridmode == 1 )
10104 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10105 if ( !cgrid121.
yg )
10112 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10120 if ( !cgrid221.
yg )
10125 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10128 lua_pushfstring( L,
"Vectors must match matrix." );
10135 if ( gridmode == 1 )
10137 else if ( gridmode == 2 )
10141 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
10148 for ( i = 0; i < ii1; i++ )
10164 for ( i = 0; i <
Xlen; i++ )
10170 for ( i = 0; i <
Xlen; i++ )
10185 for ( i = 0; i < ii1; i++ )
10201 for ( i = 0; i <
Xlen; i++ )
10207 for ( i = 0; i <
Xlen; i++ )
10230 if ( lua_isnil( L, 1 ) )
10234 else if ( lua_isstring( L, 1 ) )
10269 arg1 = (
PLFLT)lua_tonumber(L, 1);
10270 arg2 = (
PLFLT)lua_tonumber(L, 2);
10291 arg1 = (
PLFLT)lua_tonumber(L, 1);
10292 arg2 = (
PLFLT)lua_tonumber(L, 2);
10311 arg1 = (
PLINT)lua_tonumber(L, 1);
10340 arg1 = (
PLFLT)lua_tonumber(L, 1);
10341 arg2 = (
PLFLT)lua_tonumber(L, 2);
10342 arg3 = (
PLINT)lua_tonumber(L, 3);
10343 arg4 = (
PLINT)lua_tonumber(L, 4);
10344 arg5 = (
PLINT)lua_tonumber(L, 5);
10345 arg6 = (
PLINT)lua_tonumber(L, 6);
10346 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
10360 char *arg1 = (
char *) 0 ;
10364 arg1 = (
char *)lua_tostring(L, 1);
10379 char *arg1 = (
char *) 0 ;
10384 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plspal1",2,
"PLBOOL");
10385 arg1 = (
char *)lua_tostring(L, 1);
10386 arg2 = (
PLBOOL)lua_tonumber(L, 2);
10387 plspal1((
char const *)arg1,arg2);
10404 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
10405 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10424 arg1 = (
PLINT)lua_tonumber(L, 1);
10445 arg1 = (
PLINT)lua_tonumber(L, 1);
10446 arg2 = (
PLINT)lua_tonumber(L, 2);
10467 arg1 = (
PLFLT)lua_tonumber(L, 1);
10468 arg2 = (
PLFLT)lua_tonumber(L, 2);
10489 arg1 = (
PLINT)lua_tonumber(L, 1);
10490 arg2 = (
PLINT)lua_tonumber(L, 2);
10505 char *arg1 = (
char *) 0 ;
10513 arg1 = (
char *)lua_tostring(L, 1);
10514 arg2 = (
PLINT)lua_tonumber(L, 2);
10515 arg3 = (
PLINT)lua_tonumber(L, 3);
10516 plstart((
char const *)arg1,arg2,arg3);
10541 if(lua_gettop(L)>=1){
10546 if ( lua_isstring( L, 1 ) )
10548 const char* funcstr = lua_tostring( L, 1 );
10574 char *arg4 = (
char *) 0 ;
10581 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10584 arg1 =
Alen = temp;
10587 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10590 if ( temp3 !=
Alen )
10592 lua_pushfstring( L,
"Tables must be of same length." );
10596 arg4 = (
char *)lua_tostring(L, 3);
10597 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
10627 char *arg5 = (
char *) 0 ;
10635 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10638 arg1 =
Alen = temp;
10641 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10644 if ( temp3 !=
Alen )
10646 lua_pushfstring( L,
"Tables must be of same length." );
10651 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
10654 if ( temp4 !=
Alen )
10656 lua_pushfstring( L,
"Tables must be of same length." );
10660 arg5 = (
char *)lua_tostring(L, 4);
10661 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
10699 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripa",1,
"PLINT");
10700 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plstripa",2,
"PLINT");
10701 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripa",3,
"PLFLT");
10702 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripa",4,
"PLFLT");
10703 arg1 = (
PLINT)lua_tonumber(L, 1);
10704 arg2 = (
PLINT)lua_tonumber(L, 2);
10705 arg3 = (
PLFLT)lua_tonumber(L, 3);
10706 arg4 = (
PLFLT)lua_tonumber(L, 4);
10722 char *arg2 = (
char *) 0 ;
10723 char *arg3 = (
char *) 0 ;
10738 char *arg18 = (
char *) 0 ;
10739 char *arg19 = (
char *) 0 ;
10740 char *arg20 = (
char *) 0 ;
10752 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plstripc",3,
"PLFLT");
10753 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plstripc",4,
"PLFLT");
10754 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plstripc",5,
"PLFLT");
10755 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plstripc",6,
"PLFLT");
10756 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plstripc",7,
"PLFLT");
10757 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plstripc",8,
"PLFLT");
10758 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plstripc",9,
"PLFLT");
10759 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
10760 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
10761 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
10762 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
10763 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
10767 arg2 = (
char *)lua_tostring(L, 1);
10768 arg3 = (
char *)lua_tostring(L, 2);
10769 arg4 = (
PLFLT)lua_tonumber(L, 3);
10770 arg5 = (
PLFLT)lua_tonumber(L, 4);
10771 arg6 = (
PLFLT)lua_tonumber(L, 5);
10772 arg7 = (
PLFLT)lua_tonumber(L, 6);
10773 arg8 = (
PLFLT)lua_tonumber(L, 7);
10774 arg9 = (
PLFLT)lua_tonumber(L, 8);
10775 arg10 = (
PLFLT)lua_tonumber(L, 9);
10776 arg11 = (
PLBOOL)lua_tonumber(L, 10);
10777 arg12 = (
PLBOOL)lua_tonumber(L, 11);
10778 arg13 = (
PLINT)lua_tonumber(L, 12);
10779 arg14 = (
PLINT)lua_tonumber(L, 13);
10781 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
10787 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
10790 if ( temp16 !=
Alen )
10792 lua_pushfstring( L,
"Tables must be of same length." );
10796 if(lua_gettop(L)>=16){
10803 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10808 lua_pushfstring( L,
"colline and styline args must be length 4." );
10812 arg17 = malloc(
sizeof (
char* ) * 4 );
10813 for ( i = 1; i <= 4; i++ )
10815 lua_rawgeti( L, 16, i );
10816 if ( lua_isstring( L, -1 ) )
10818 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
10823 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
10831 if(lua_gettop(L)>=17){
10832 arg18 = (
char *)lua_tostring(L, 17);
10834 if(lua_gettop(L)>=18){
10835 arg19 = (
char *)lua_tostring(L, 18);
10837 if(lua_gettop(L)>=19){
10838 arg20 = (
char *)lua_tostring(L, 19);
10840 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);
10842 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
10852 free( arg17 ); arg17 = NULL;
10869 free( arg17 ); arg17 = NULL;
10882 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plstripd",1,
"PLINT");
10883 arg1 = (
PLINT)lua_tonumber(L, 1);
10905 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
10911 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
10914 if ( temp3 !=
Alen )
10916 lua_pushfstring( L,
"Tables must be of same length." );
10920 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
10952 arg2 = NULL; arg3 = 0;
10958 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
10961 if ( lua_isnil( L, 1 ) )
10968 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10974 if(lua_gettop(L)>=2){
10977 if ( lua_isnil( L, 2 ) )
10983 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
10986 if ( temp !=
Alen )
10988 lua_pushfstring( L,
"Tables must be of same length." );
10995 if(lua_gettop(L)>=3){
10996 arg4 = (
PLBOOL)lua_tonumber(L, 3);
10998 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
11028 arg1 = (
PLFLT)lua_tonumber(L, 1);
11029 arg2 = (
PLFLT)lua_tonumber(L, 2);
11030 arg3 = (
PLFLT)lua_tonumber(L, 3);
11031 arg4 = (
PLFLT)lua_tonumber(L, 4);
11032 plsvpa(arg1,arg2,arg3,arg4);
11052 arg1 = (
PLINT)lua_tonumber(L, 1);
11053 arg2 = (
PLINT)lua_tonumber(L, 2);
11074 arg1 = (
PLINT)lua_tonumber(L, 1);
11075 arg2 = (
PLINT)lua_tonumber(L, 2);
11100 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
11103 arg1 =
Alen = temp;
11106 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
11109 if ( temp3 !=
Alen )
11111 lua_pushfstring( L,
"Tables must be of same length." );
11115 arg4 = (
PLINT)lua_tonumber(L, 3);
11116 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
11148 arg1 = (
PLINT)lua_tonumber(L, 1);
11149 arg2 = (
PLINT)lua_tonumber(L, 2);
11180 char *arg1 = (
char *) 0 ;
11184 arg1 = (
char *)lua_tostring(L, 1);
11203 arg1 = (
PLFLT)lua_tonumber(L, 1);
11231 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
11232 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
11233 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
11234 cgrid27.
nx = cgrid27.
ny = 0;
11261 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
11263 lua_pushfstring( L,
"Vectors must match matrix." );
11267 arg5 = (
PLFLT)lua_tonumber(L, 3);
11268 if(lua_gettop(L)>=4){
11273 if ( lua_isstring( L, 4 ) )
11275 const char* funcstr = lua_tostring( L, 4 );
11276 if ( strcmp(
"pltr0", funcstr ) == 0 )
11280 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11284 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11299 if(lua_gettop(L)>=5){
11304 lua_pushstring( L,
"xg" );
11305 lua_gettable( L, 5 );
11306 if ( !lua_istable( L, -1 ) )
11309 lua_pushstring( L,
"expected a table xg" );
11312 lua_rawgeti( L, -1, 1 );
11313 if ( lua_istable( L, -1 ) )
11315 else if ( lua_isnumber( L, -1 ) )
11321 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11325 if ( gridmode == 1 )
11327 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11335 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11348 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11351 lua_pushfstring( L,
"Vectors must match matrix." );
11359 lua_pushstring( L,
"yg" );
11360 lua_gettable( L, 5 );
11361 if ( !lua_istable( L, -1 ) )
11364 lua_pushstring( L,
"expected a table yg" );
11367 lua_rawgeti( L, -1, 1 );
11368 if ( gridmode == 2 )
11370 if ( !lua_istable( L, -1 ) )
11374 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11380 if ( !lua_isnumber( L, -1 ) )
11384 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11389 if ( gridmode == 1 )
11391 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11399 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11412 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11415 lua_pushfstring( L,
"Vectors must match matrix." );
11422 if ( gridmode == 1 )
11424 else if ( gridmode == 2 )
11428 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
11435 for ( i = 0; i < ii1; i++ )
11445 for ( i = 0; i < ii2; i++ )
11461 for ( i = 0; i <
Xlen; i++ )
11467 for ( i = 0; i <
Xlen; i++ )
11482 for ( i = 0; i < ii1; i++ )
11492 for ( i = 0; i < ii2; i++ )
11508 for ( i = 0; i <
Xlen; i++ )
11514 for ( i = 0; i <
Xlen; i++ )
11538 arg1 = (
PLFLT)lua_tonumber(L, 1);
11539 arg2 = (
PLFLT)lua_tonumber(L, 2);
11540 arg3 = (
PLFLT)lua_tonumber(L, 3);
11541 arg4 = (
PLFLT)lua_tonumber(L, 4);
11542 arg5 = (
PLFLT)lua_tonumber(L, 5);
11543 plvpas(arg1,arg2,arg3,arg4,arg5);
11567 arg1 = (
PLFLT)lua_tonumber(L, 1);
11568 arg2 = (
PLFLT)lua_tonumber(L, 2);
11569 arg3 = (
PLFLT)lua_tonumber(L, 3);
11570 arg4 = (
PLFLT)lua_tonumber(L, 4);
11571 plvpor(arg1,arg2,arg3,arg4);
11625 arg1 = (
PLFLT)lua_tonumber(L, 1);
11626 arg2 = (
PLFLT)lua_tonumber(L, 2);
11627 arg3 = (
PLFLT)lua_tonumber(L, 3);
11628 arg4 = (
PLFLT)lua_tonumber(L, 4);
11629 arg5 = (
PLFLT)lua_tonumber(L, 5);
11630 arg6 = (
PLFLT)lua_tonumber(L, 6);
11631 arg7 = (
PLFLT)lua_tonumber(L, 7);
11632 arg8 = (
PLFLT)lua_tonumber(L, 8);
11633 arg9 = (
PLFLT)lua_tonumber(L, 9);
11634 arg10 = (
PLFLT)lua_tonumber(L, 10);
11635 arg11 = (
PLFLT)lua_tonumber(L, 11);
11636 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
11654 arg1 = (
PLFLT)lua_tonumber(L, 1);
11679 arg1 = (
PLFLT)lua_tonumber(L, 1);
11680 arg2 = (
PLFLT)lua_tonumber(L, 2);
11681 arg3 = (
PLFLT)lua_tonumber(L, 3);
11682 arg4 = (
PLFLT)lua_tonumber(L, 4);
11683 plwind(arg1,arg2,arg3,arg4);
11703 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
11704 arg1 = (
PLBOOL)lua_tonumber(L, 1);
11707 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
11721 char *arg2 = (
char *) 0 ;
11737 if ( lua_isnil( L, 1 ) )
11741 else if ( lua_isstring( L, 1 ) )
11750 arg2 = (
char *)lua_tostring(L, 2);
11751 arg3 = (
PLFLT)lua_tonumber(L, 3);
11752 arg4 = (
PLFLT)lua_tonumber(L, 4);
11753 arg5 = (
PLFLT)lua_tonumber(L, 5);
11754 arg6 = (
PLFLT)lua_tonumber(L, 6);
11755 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
11776 char *arg2 = (
char *) 0 ;
11787 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
11788 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
11789 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
11790 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
11795 if ( lua_isnil( L, 1 ) )
11799 else if ( lua_isstring( L, 1 ) )
11808 arg2 = (
char *)lua_tostring(L, 2);
11809 arg3 = (
PLFLT)lua_tonumber(L, 3);
11810 arg4 = (
PLFLT)lua_tonumber(L, 4);
11811 arg5 = (
PLFLT)lua_tonumber(L, 5);
11812 arg6 = (
PLFLT)lua_tonumber(L, 6);
11814 if ( lua_isnil( L, 7 ) )
11821 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
11827 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11854 char *arg2 = (
char *) 0 ;
11855 char *arg3 = (
char *) 0 ;
11867 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
11868 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
11869 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
11870 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
11875 if ( lua_isnil( L, 1 ) )
11879 else if ( lua_isstring( L, 1 ) )
11888 arg2 = (
char *)lua_tostring(L, 2);
11889 arg3 = (
char *)lua_tostring(L, 3);
11890 arg4 = (
PLFLT)lua_tonumber(L, 4);
11891 arg5 = (
PLFLT)lua_tonumber(L, 5);
11892 arg6 = (
PLFLT)lua_tonumber(L, 6);
11893 arg7 = (
PLFLT)lua_tonumber(L, 7);
11895 if ( lua_isnil( L, 8 ) )
11902 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
11908 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
11935 char *arg2 = (
char *) 0 ;
11939 char *arg6 = (
char *) 0 ;
11948 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
11949 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
11950 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
11952 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
11953 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
11954 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
11955 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
11956 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
11961 if ( lua_isnil( L, 1 ) )
11965 else if ( lua_isstring( L, 1 ) )
11974 arg2 = (
char *)lua_tostring(L, 2);
11975 arg3 = (
PLFLT)lua_tonumber(L, 3);
11976 arg4 = (
PLFLT)lua_tonumber(L, 4);
11977 arg5 = (
PLFLT)lua_tonumber(L, 5);
11978 arg6 = (
char *)lua_tostring(L, 6);
11979 arg7 = (
PLFLT)lua_tonumber(L, 7);
11980 arg8 = (
PLFLT)lua_tonumber(L, 8);
11981 arg9 = (
PLFLT)lua_tonumber(L, 9);
11982 arg10 = (
PLFLT)lua_tonumber(L, 10);
11983 arg11 = (
PLINT)lua_tonumber(L, 11);
11984 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
12005 char *arg2 = (
char *) 0 ;
12016 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
12017 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
12018 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
12019 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
12024 if ( lua_isnil( L, 1 ) )
12028 else if ( lua_isstring( L, 1 ) )
12037 arg2 = (
char *)lua_tostring(L, 2);
12038 arg3 = (
PLFLT)lua_tonumber(L, 3);
12039 arg4 = (
PLFLT)lua_tonumber(L, 4);
12040 arg5 = (
PLFLT)lua_tonumber(L, 5);
12041 arg6 = (
PLFLT)lua_tonumber(L, 6);
12043 if ( lua_isnil( L, 7 ) )
12050 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
12056 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
12091 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
12092 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
12093 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
12094 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
12095 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
12096 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
12101 if ( lua_isnil( L, 1 ) )
12105 else if ( lua_isstring( L, 1 ) )
12114 arg2 = (
PLFLT)lua_tonumber(L, 2);
12115 arg3 = (
PLFLT)lua_tonumber(L, 3);
12116 arg4 = (
PLFLT)lua_tonumber(L, 4);
12117 arg5 = (
PLFLT)lua_tonumber(L, 5);
12118 arg6 = (
PLFLT)lua_tonumber(L, 6);
12119 arg7 = (
PLFLT)lua_tonumber(L, 7);
12164 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
12165 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
12175 arg4 = (
PLFLT)lua_tonumber(L, 2);
12176 arg5 = (
PLFLT)lua_tonumber(L, 3);
12177 arg6 = (
PLFLT)lua_tonumber(L, 4);
12178 arg7 = (
PLFLT)lua_tonumber(L, 5);
12179 arg8 = (
PLFLT)lua_tonumber(L, 6);
12180 arg9 = (
PLFLT)lua_tonumber(L, 7);
12181 arg10 = (
PLFLT)lua_tonumber(L, 8);
12182 arg11 = (
PLFLT)lua_tonumber(L, 9);
12183 arg12 = (
PLFLT)lua_tonumber(L, 10);
12184 arg13 = (
PLFLT)lua_tonumber(L, 11);
12185 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12192 for ( i = 0; i < ii1; i++ )
12207 for ( i = 0; i < ii1; i++ )
12237 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
12238 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
12239 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
12240 cgrid213.
nx = cgrid213.
ny = 0;
12249 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
12250 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
12251 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
12252 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
12253 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
12254 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
12255 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
12256 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
12266 arg4 = (
PLFLT)lua_tonumber(L, 2);
12267 arg5 = (
PLFLT)lua_tonumber(L, 3);
12268 arg6 = (
PLFLT)lua_tonumber(L, 4);
12269 arg7 = (
PLFLT)lua_tonumber(L, 5);
12270 arg8 = (
PLFLT)lua_tonumber(L, 6);
12271 arg9 = (
PLFLT)lua_tonumber(L, 7);
12272 arg10 = (
PLFLT)lua_tonumber(L, 8);
12273 arg11 = (
PLFLT)lua_tonumber(L, 9);
12274 if(lua_gettop(L)>=10){
12279 if ( lua_isstring( L, 10 ) )
12281 const char* funcstr = lua_tostring( L, 10 );
12282 if ( strcmp(
"pltr0", funcstr ) == 0 )
12286 else if ( strcmp(
"pltr1", funcstr ) == 0 )
12290 else if ( strcmp(
"pltr2", funcstr ) == 0 )
12305 if(lua_gettop(L)>=11){
12310 lua_pushstring( L,
"xg" );
12311 lua_gettable( L, 11 );
12312 if ( !lua_istable( L, -1 ) )
12315 lua_pushstring( L,
"expected a table xg" );
12318 lua_rawgeti( L, -1, 1 );
12319 if ( lua_istable( L, -1 ) )
12321 else if ( lua_isnumber( L, -1 ) )
12327 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
12331 if ( gridmode == 1 )
12333 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
12334 if ( !cgrid113.
xg )
12341 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
12349 if ( !cgrid213.
xg )
12354 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12357 lua_pushfstring( L,
"Vectors must match matrix." );
12365 lua_pushstring( L,
"yg" );
12366 lua_gettable( L, 11 );
12367 if ( !lua_istable( L, -1 ) )
12370 lua_pushstring( L,
"expected a table yg" );
12373 lua_rawgeti( L, -1, 1 );
12374 if ( gridmode == 2 )
12376 if ( !lua_istable( L, -1 ) )
12380 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
12386 if ( !lua_isnumber( L, -1 ) )
12390 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
12395 if ( gridmode == 1 )
12397 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
12398 if ( !cgrid113.
yg )
12405 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
12413 if ( !cgrid213.
yg )
12418 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
12421 lua_pushfstring( L,
"Vectors must match matrix." );
12428 if ( gridmode == 1 )
12430 else if ( gridmode == 2 )
12434 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
12441 for ( i = 0; i < ii1; i++ )
12457 for ( i = 0; i <
Xlen; i++ )
12463 for ( i = 0; i <
Xlen; i++ )
12478 for ( i = 0; i < ii1; i++ )
12494 for ( i = 0; i <
Xlen; i++ )
12500 for ( i = 0; i <
Xlen; i++ )
12544 char *arg1 = (
char *) 0 ;
12545 char *arg2 = (
char *) 0 ;
12550 arg1 = (
char *)lua_tostring(L, 1);
12551 arg2 = (
char *)lua_tostring(L, 2);
12552 plSetUsage((
char const *)arg1,(
char const *)arg2);
12605 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
12606 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
12612 for ( i = 0; i < ii1; i++ )
12627 for ( i = 0; i < ii1; i++ )
12650 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
12663 char *arg1 = (
char *) 0 ;
12666 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
12668 arg1 = (
char *) lua_tostring( L, 1 );
12670 plwarn((
char const *)arg1);
12684 char *arg1 = (
char *) 0 ;
12687 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
12689 arg1 = (
char *) lua_tostring( L, 1 );
13204 #define SWIGRUNTIME_DEBUG
13227 if (!module_head) {
13240 }
while (iter!= module_head);
13251 if (init == 0)
return;
13254 #ifdef SWIGRUNTIME_DEBUG
13255 printf(
"SWIG_InitializeModule: size %lu\n", (
unsigned long)
swig_module.
size);
13262 #ifdef SWIGRUNTIME_DEBUG
13272 #ifdef SWIGRUNTIME_DEBUG
13273 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
13277 #ifdef SWIGRUNTIME_DEBUG
13278 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
13287 while (cast->
type) {
13291 #ifdef SWIGRUNTIME_DEBUG
13292 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
13296 #ifdef SWIGRUNTIME_DEBUG
13297 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
13302 #ifdef SWIGRUNTIME_DEBUG
13303 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
13310 #ifdef SWIGRUNTIME_DEBUG
13311 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
13313 if (!ocast) ret = 0;
13318 #ifdef SWIGRUNTIME_DEBUG
13319 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
13334 #ifdef SWIGRUNTIME_DEBUG
13335 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13340 while (cast->
type) {
13341 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
13345 printf(
"---- Total casts: %d\n",j);
13347 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
13360 static int init_run = 0;
13362 if (init_run)
return;
13373 equiv = equiv->
next;
13398 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
13404 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13406 int globalRegister = 0;
13414 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)) || defined(SWIG_LUA_ELUA_EMULATE)
13420 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13427 #ifdef SWIG_LUA_MODULE_GLOBAL
13428 globalRegister = 1;
13432 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_LUA)
13436 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
13444 #if defined(SWIG_LUA_ELUA_EMULATE)
13447 SWIG_Lua_elua_emulate_register_clear(L);
13448 if(globalRegister) {
13450 lua_pushvalue(L,-2);
13457 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
13477 " pl = plplotluac";