12 #define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
13 #define SWIG_LUA_MODULE_GLOBAL
21 #ifndef SWIGTEMPLATEDISAMBIGUATOR
22 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
23 # define SWIGTEMPLATEDISAMBIGUATOR template
24 # elif defined(__HP_aCC)
27 # define SWIGTEMPLATEDISAMBIGUATOR template
29 # define SWIGTEMPLATEDISAMBIGUATOR
35 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
36 # define SWIGINLINE inline
44 # if defined(__GNUC__)
45 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
46 # define SWIGUNUSED __attribute__ ((__unused__))
51 # define SWIGUNUSED __attribute__ ((__unused__))
57 #ifndef SWIG_MSC_UNSUPPRESS_4505
58 # if defined(_MSC_VER)
59 # pragma warning(disable : 4505)
63 #ifndef SWIGUNUSEDPARM
65 # define SWIGUNUSEDPARM(p)
67 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
73 # define SWIGINTERN static SWIGUNUSED
77 #ifndef SWIGINTERNINLINE
78 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
83 # ifndef GCC_HASCLASSVISIBILITY
84 # define GCC_HASCLASSVISIBILITY
89 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
90 # if defined(STATIC_LINKED)
93 # define SWIGEXPORT __declspec(dllexport)
96 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
97 # define SWIGEXPORT __attribute__ ((visibility("default")))
106 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
107 # define SWIGSTDCALL __stdcall
114 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
115 # define _CRT_SECURE_NO_DEPRECATE
119 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
120 # define _SCL_SECURE_NO_DEPRECATE
133 #define SWIG_RUNTIME_VERSION "4"
136 #ifdef SWIG_TYPE_TABLE
137 # define SWIG_QUOTE_STRING(x) #x
138 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
139 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
141 # define SWIG_TYPE_TABLE_NAME
154 # define SWIGRUNTIME SWIGINTERN
157 #ifndef SWIGRUNTIMEINLINE
158 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
162 #ifndef SWIG_BUFFER_SIZE
163 # define SWIG_BUFFER_SIZE 1024
167 #define SWIG_POINTER_DISOWN 0x1
168 #define SWIG_CAST_NEW_MEMORY 0x2
171 #define SWIG_POINTER_OWN 0x1
254 #define SWIG_ERROR (-1)
255 #define SWIG_IsOK(r) (r >= 0)
256 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
259 #define SWIG_CASTRANKLIMIT (1 << 8)
261 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
263 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
265 #define SWIG_BADOBJ (SWIG_ERROR)
266 #define SWIG_OLDOBJ (SWIG_OK)
267 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
268 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
270 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
271 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
272 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
273 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
274 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
275 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
278 #if defined(SWIG_CASTRANK_MODE)
279 # ifndef SWIG_TypeRank
280 # define SWIG_TypeRank unsigned long
282 # ifndef SWIG_MAXCASTRANK
283 # define SWIG_MAXCASTRANK (2)
285 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
286 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
291 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
294 # define SWIG_AddCast(r) (r)
295 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
305 typedef void *(*swig_converter_func)(
void *,
int *);
347 const char *f2,
const char *l2) {
348 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
349 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
350 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
351 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
353 return (
int)((l1 - f1) - (l2 - f2));
363 const char* te = tb + strlen(tb);
365 while (equiv != 0 && *ne) {
366 for (nb = ne; *ne; ++ne) {
367 if (*ne ==
'|')
break;
392 if (strcmp(iter->
type->
name, c) == 0) {
393 if (iter == ty->
cast)
419 if (iter->
type == from) {
420 if (iter == ty->
cast)
452 if (!ty || !ty->
dcast)
return ty;
453 while (ty && (ty->
dcast)) {
454 ty = (*ty->
dcast)(ptr);
478 if (!type)
return NULL;
479 if (type->
str != NULL) {
480 const char *last_name = type->
str;
482 for (s = type->
str; *s; s++)
483 if (*s ==
'|') last_name = s+1;
530 register size_t l = 0;
531 register size_t r = iter->
size - 1;
534 register size_t i = (l + r) >> 1;
535 const char *iname = iter->
types[i]->
name;
537 register int compare = strcmp(name, iname);
539 return iter->
types[i];
540 }
else if (compare < 0) {
546 }
else if (compare > 0) {
555 }
while (iter != end);
581 register size_t i = 0;
582 for (; i < iter->
size; ++i) {
584 return iter->
types[i];
587 }
while (iter != end);
599 static const char hex[17] =
"0123456789abcdef";
600 register const unsigned char *u = (
unsigned char *) ptr;
601 register const unsigned char *eu = u + sz;
602 for (; u != eu; ++u) {
603 register unsigned char uu = *u;
604 *(c++) = hex[(uu & 0xf0) >> 4];
605 *(c++) = hex[uu & 0xf];
615 register unsigned char *u = (
unsigned char *) ptr;
616 register const unsigned char *eu = u + sz;
617 for (; u != eu; ++u) {
618 register char d = *(c++);
619 register unsigned char uu;
620 if ((d >=
'0') && (d <=
'9'))
621 uu = ((d -
'0') << 4);
622 else if ((d >=
'a') && (d <=
'f'))
623 uu = ((d - (
'a'-10)) << 4);
627 if ((d >=
'0') && (d <=
'9'))
629 else if ((d >=
'a') && (d <=
'f'))
630 uu |= (d - (
'a'-10));
644 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
647 if (strlen(name) + 1 > (bsz - (r - buff)))
return 0;
655 if (strcmp(c,
"NULL") == 0) {
668 size_t lname = (name ? strlen(name) : 0);
669 if ((2*sz + 2 + lname) > bsz)
return 0;
673 strncpy(r,name,lname+1);
683 if (strcmp(c,
"NULL") == 0) {
718 #define SWIG_LUA_FLAVOR_LUA 1
719 #define SWIG_LUA_FLAVOR_ELUA 2
720 #define SWIG_LUA_FLAVOR_ELUAC 3
722 #if !defined(SWIG_LUA_TARGET)
723 # error SWIG_LUA_TARGET not defined
726 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
727 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
728 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
729 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
730 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
732 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
733 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
734 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
735 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
738 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
739 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
740 # define LSTRVAL LRO_STRVAL
755 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
756 # define lua_rawlen lua_strlen
757 #elif LUA_VERSION_NUM == 501
758 # define lua_rawlen lua_objlen
765 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
766 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
774 #define SWIG_LUA_INT 1
775 #define SWIG_LUA_FLOAT 2
776 #define SWIG_LUA_STRING 3
777 #define SWIG_LUA_POINTER 4
778 #define SWIG_LUA_BINARY 5
779 #define SWIG_LUA_CHAR 6
840 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
841 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
842 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
844 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
845 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
848 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
849 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
850 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
853 #define SWIG_contract_assert(expr, msg) \
854 if (!(expr)) { lua_pushstring(L, (char *) msg); goto fail; } else
857 #define SWIG_fail {goto fail;}
858 #define SWIG_fail_arg(func_name,argnum,type) \
859 {lua_pushfstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
860 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
862 #define SWIG_fail_ptr(func_name,argnum,type) \
863 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
864 #define SWIG_check_num_args(func_name,a,b) \
865 if (lua_gettop(L)<a || lua_gettop(L)>b) \
866 {lua_pushfstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
870 #define SWIG_Lua_get_table(L,n) \
871 (lua_pushstring(L, n), lua_rawget(L,-2))
873 #define SWIG_Lua_add_function(L,n,f) \
874 (lua_pushstring(L, n), \
875 lua_pushcfunction(L, f), \
879 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
892 lua_rawget(L,LUA_REGISTRYINDEX);
893 if (lua_islightuserdata(L,-1))
903 lua_pushlightuserdata(L,(
void*)module);
904 lua_rawset(L,LUA_REGISTRYINDEX);
917 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
919 lua_pushstring(L,
"This variable is immutable");
936 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
937 assert(lua_isrotable(L,1));
939 assert(lua_istable(L,1));
941 lua_getmetatable(L,1);
942 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
943 assert(lua_isrotable(L,-1));
945 assert(lua_istable(L,-1));
949 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
950 if (lua_isrotable(L,-1))
952 if (lua_istable(L,-1))
959 if (lua_iscfunction(L,-1))
980 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
981 assert(lua_isrotable(L,1));
983 assert(lua_istable(L,1));
985 lua_getmetatable(L,1);
986 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
987 assert(lua_isrotable(L,-1));
989 assert(lua_istable(L,-1));
993 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
994 if (lua_isrotable(L,-1))
996 if (lua_istable(L,-1))
1003 if (lua_iscfunction(L,-1))
1009 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA)
1021 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1025 assert(lua_istable(L,-1));
1026 lua_pushstring(L,name);
1032 lua_pushstring(L,
".get");
1035 lua_pushstring(L,
".set");
1038 lua_setmetatable(L,-2);
1039 #ifdef SWIG_LUA_MODULE_GLOBAL
1060 assert(lua_istable(L,-1));
1061 lua_getmetatable(L,-1);
1062 assert(lua_istable(L,-1));
1064 assert(lua_istable(L,-1));
1070 assert(lua_istable(L,-1));
1095 assert(lua_isuserdata(L,-2));
1096 lua_getmetatable(L,-2);
1097 assert(lua_istable(L,-1));
1099 assert(lua_istable(L,-1));
1104 if (lua_iscfunction(L,-1))
1114 assert(lua_istable(L,-1));
1118 if (lua_isfunction(L,-1))
1127 if (lua_iscfunction(L,-1))
1150 assert(lua_isuserdata(L,1));
1151 lua_getmetatable(L,1);
1152 assert(lua_istable(L,-1));
1155 if (lua_istable(L,-1))
1160 if (lua_iscfunction(L,-1))
1173 if (lua_iscfunction(L,-1))
1192 assert(lua_isuserdata(L,-1));
1211 assert(lua_isuserdata(L,1));
1212 unsigned long userData = (
unsigned long)lua_touserdata(L,1);
1213 lua_getmetatable(L,1);
1214 assert(lua_istable(L,-1));
1216 lua_getfield(L, -1,
".type");
1217 const char* className = lua_tostring(L, -1);
1220 sprintf(output,
"<%s userdata: %lX>", className, userData);
1222 lua_pushstring(L, (
const char*)output);
1232 assert(lua_isuserdata(L,-1));
1243 lua_pushstring(L,
"SWIG");
1244 lua_rawget(L,LUA_REGISTRYINDEX);
1245 if (!lua_istable(L,-1))
1248 lua_pushstring(L,
"SWIG");
1250 lua_rawset(L,LUA_REGISTRYINDEX);
1252 lua_pushstring(L,
"SWIG");
1253 lua_rawget(L,LUA_REGISTRYINDEX);
1261 lua_pushstring(L,cname);
1269 assert(lua_istable(L,-1));
1271 assert(lua_istable(L,-1));
1277 assert(lua_istable(L,-1));
1288 for(i=0;clss->
bases[i];i++)
1298 assert(lua_istable(L,-1));
1327 if (clss->
bases[i]==0)
1347 lua_pushstring(L,clss->
name);
1350 lua_pushstring(L,
".type");
1351 lua_pushstring(L,clss->
name);
1354 lua_pushstring(L,
".get");
1358 lua_pushstring(L,
".set");
1362 lua_pushstring(L,
".fn");
1392 if (lua_istable(L,-1))
1394 lua_setmetatable(L,-2);
1415 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
1426 if (lua_isnil(L,index)){*ptr=0;
return SWIG_OK;}
1452 int argnum,
const char* func_name){
1455 lua_pushfstring(L,
"Error in %s, expected a %s at argument number %d\n",
1456 func_name,(type && type->
str)?type->
str:
"void*",argnum);
1470 memcpy(raw->
data,ptr,size);
1480 if (type==0 || type==raw->
type)
1482 memcpy(ptr,raw->
data,size);
1492 if (lua_isuserdata(L,tp))
1497 return "userdata (unknown type)";
1499 return lua_typename(L,lua_type(L,tp));
1516 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1521 result=(usr1->
ptr==usr2->
ptr);
1522 lua_pushboolean(L,result);
1530 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1535 for (i = 0; constants[i].
type; i++) {
1536 switch(constants[i].type) {
1538 lua_pushstring(L,constants[i].
name);
1539 lua_pushnumber(L,(lua_Number)constants[i].lvalue);
1543 lua_pushstring(L,constants[i].name);
1544 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
1548 lua_pushstring(L,constants[i].name);
1549 lua_pushfstring(L,
"%c",(
char)constants[i].lvalue);
1553 lua_pushstring(L,constants[i].name);
1554 lua_pushstring(L,(
char *) constants[i].pvalue);
1558 lua_pushstring(L,constants[i].name);
1563 lua_pushstring(L,constants[i].name);
1564 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
1578 #ifndef SWIG_DOSTRING_FAIL
1579 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
1589 if (str==0 || str[0]==0)
return 0;
1591 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
1592 ok=luaL_dostring(L,str);
1594 ok=lua_dostring(L,str);
1612 #define SWIGTYPE_p_PLGraphicsIn swig_types[0]
1613 #define SWIGTYPE_p_char swig_types[1]
1614 #define SWIGTYPE_p_double swig_types[2]
1615 #define SWIGTYPE_p_f_double_double__int swig_types[3]
1616 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
1617 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
1618 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
1619 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
1620 #define SWIGTYPE_p_int swig_types[8]
1621 #define SWIGTYPE_p_p_char swig_types[9]
1622 #define SWIGTYPE_p_p_double swig_types[10]
1623 #define SWIGTYPE_p_unsigned_int swig_types[11]
1626 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1627 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1631 #define SWIG_name "plplotluac"
1632 #define SWIG_init luaopen_plplotluac
1633 #define SWIG_init_user luaopen_plplotluac_user
1635 #define SWIG_LUACODE luaopen_plplotluac_luacode
1640 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
1641 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
1645 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
1646 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
1648 for ( i = 0; i < size; i++ ) { \
1649 lua_rawgeti( L, index, i + 1 ); \
1650 if ( lua_isnumber( L, -1 ) ) { \
1651 array[i] = (TYPE) lua_tonumber( L, -1 ); \
1660 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
1663 if ( !lua_istable( L, index ) ) { \
1664 lua_pushstring( L, "expected a table" ); \
1667 *size = SWIG_itable_size( L, index ); \
1668 if ( *size < 1 ) { \
1669 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
1670 array[0] = (TYPE) 0; \
1673 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
1674 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
1675 lua_pushstring( L, "table must contain numbers" ); \
1676 LUA_FREE_ARRAY( array ); \
1691 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
1692 #define SWIG_FREE_ARRAY(PTR) delete[] PTR
1694 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
1695 #define SWIG_FREE_ARRAY(PTR) free(PTR)
1702 lua_rawgeti(L,index,n+1);
1703 if (lua_isnil(L,-1))
break;
1715 while (lua_next(L, index) != 0) {
1723 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
1724 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
1726 for (i = 0; i < size; i++) {\
1727 lua_rawgeti(L,index,i+1);\
1728 if (lua_isnumber(L,-1)){\
1729 array[i] = (TYPE)lua_tonumber(L,-1);\
1738 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
1740 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
1741 lua_pushfstring(L,"expected a table of size %d",size);\
1744 array=SWIG_ALLOC_ARRAY(TYPE,size);\
1745 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
1746 lua_pushstring(L,"table must contain numbers");\
1747 SWIG_FREE_ARRAY(array);\
1752 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
1755 if (!lua_istable(L,index)) {\
1756 lua_pushstring(L,"expected a table");\
1759 *size=SWIG_itable_size(L,index);\
1761 lua_pushstring(L,"table appears to be empty");\
1764 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
1765 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
1766 lua_pushstring(L,"table must contain numbers");\
1767 SWIG_FREE_ARRAY(array);\
1772 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
1775 for (i = 0; i < size; i++){\
1776 lua_pushnumber(L,(lua_Number)array[i]);\
1777 lua_rawseti(L,-2,i+1); \
1794 for (i = 0; i < size; i++) {
1795 lua_rawgeti(L,index,i+1);
1796 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
1807 lua_pushfstring(L,
"expected a table of size %d",size);
1812 lua_pushfstring(L,
"table must contain pointers of type %s",type->
name);
1820 if (!lua_istable(L,index)) {
1821 lua_pushstring(L,
"expected a table");
1826 lua_pushstring(L,
"table appears to be empty");
1831 lua_pushfstring(L,
"table must contain pointers of type %s",type->
name);
1840 for (i = 0; i < size; i++){
1842 lua_rawseti(L,-2,i+1);
1855 if ( !lua_istable( L, index ) )
1857 lua_pushstring( L,
"expected a table" );
1863 lua_pushstring( L,
"table appears to be empty" );
1867 for ( i = 0; i < *
nx; i++ )
1870 lua_rawgeti( L, index, 1 );
1871 if ( !lua_istable( L, -1 ) )
1874 lua_pushstring( L,
"expected a table" );
1881 lua_pushstring( L,
"table appears to be empty" );
1887 for ( i = 0; i < *
nx; i++ )
1889 lua_rawgeti( L, index, i + 1 );
1890 if ( !lua_istable( L, -1 ) )
1893 lua_pushstring( L,
"expected a table" );
1894 for ( j = 0; j < *
ny; j++ )
1902 lua_pushstring( L,
"inconsistent table sizes" );
1903 for ( j = 0; j < i; j++ )
1909 for ( j = 0; j < *
ny; j++ )
1911 lua_rawgeti( L, -1, j + 1 );
1912 if ( lua_isnumber( L, -1 ) )
1914 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
1919 lua_pushstring( L,
"table must contain numbers" );
1920 for ( j = 0; j < i + 1; j++ )
1939 PLFLT *xtemp, *ytemp;
1945 fprintf( stderr,
"Lua state is not set!" );
1951 lua_pushnumber(
myL, n );
1952 SWIG_write_double_num_array(
myL, x, n );
1953 SWIG_write_double_num_array(
myL, y, n );
1956 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
1957 fprintf( stderr,
"error running function `%s':%s",
1961 if ( !lua_istable(
myL, -2 ) )
1963 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
1966 if ( !lua_istable(
myL, -1 ) )
1968 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
1971 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
1972 if ( !xtemp || len != n )
1974 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
1977 for ( i = 0; i < n; i++ )
1981 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
1982 if ( !ytemp || len != n )
1984 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
1987 for ( i = 0; i < n; i++ )
2017 fprintf( stderr,
"Lua state is not set!" );
2023 lua_pushnumber(
myL, x );
2024 lua_pushnumber(
myL, y );
2027 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2028 fprintf( stderr,
"error running function `%s':%s",
2032 if ( !lua_isnumber(
myL, -2 ) )
2034 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
2037 if ( !lua_isnumber(
myL, -1 ) )
2039 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
2042 *tx = lua_tonumber(
myL, -2 );
2043 *ty = lua_tonumber(
myL, -1 );
2061 fprintf( stderr,
"Lua state is not set!" );
2067 lua_pushnumber(
myL, x );
2068 lua_pushnumber(
myL, y );
2071 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2072 fprintf( stderr,
"error running function `%s':%s",
2076 if ( !lua_isnumber(
myL, -2 ) )
2078 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
2081 if ( !lua_isnumber(
myL, -1 ) )
2083 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
2086 *tx = lua_tonumber(
myL, -2 );
2087 *ty = lua_tonumber(
myL, -1 );
2097 PLFLT *xtemp, *ytemp;
2103 fprintf( stderr,
"Lua state is not set!" );
2109 lua_pushnumber(
myL, axis );
2110 lua_pushnumber(
myL, value );
2113 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
2114 fprintf( stderr,
"error running function `%s':%s",
2118 if ( !lua_isstring(
myL, -1 ) )
2120 fprintf( stderr,
"function `%s' must return a string as result",
label_funcstr );
2123 strncpy( label, lua_tostring(
myL, -1 ), length );
2132 int ret = lua_isstring(L, idx);
2134 ret = lua_isnil(L, idx);
2148 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
2154 arg2 = (int)lua_tonumber(L, 2);
2155 if (arg1) (arg1)->type = arg2;
2179 result = (int) ((arg1)->type);
2180 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2198 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
2205 arg2 = (
unsigned int)lua_tonumber(L, 2);
2206 if (arg1) (arg1)->state = arg2;
2221 unsigned int result;
2230 result = (
unsigned int) ((arg1)->state);
2231 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2249 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
2256 arg2 = (
unsigned int)lua_tonumber(L, 2);
2257 if (arg1) (arg1)->keysym = arg2;
2272 unsigned int result;
2281 result = (
unsigned int) ((arg1)->keysym);
2282 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2300 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
2307 arg2 = (
unsigned int)lua_tonumber(L, 2);
2308 if (arg1) (arg1)->button = arg2;
2323 unsigned int result;
2332 result = (
unsigned int) ((arg1)->button);
2333 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2351 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
2357 arg2 = (
PLINT)lua_tonumber(L, 2);
2358 if (arg1) (arg1)->subwindow = arg2;
2382 result = (
PLINT) ((arg1)->subwindow);
2383 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2407 arg2 = (
char *)lua_tostring(L, 2);
2410 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
2439 result = (
char *)(
char *) ((arg1)->
string);
2440 lua_pushstring(L,(
const char *)result); SWIG_arg++;
2458 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
2464 arg2 = (int)lua_tonumber(L, 2);
2465 if (arg1) (arg1)->pX = arg2;
2489 result = (int) ((arg1)->pX);
2490 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2508 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
2514 arg2 = (int)lua_tonumber(L, 2);
2515 if (arg1) (arg1)->pY = arg2;
2539 result = (int) ((arg1)->pY);
2540 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2558 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
2564 arg2 = (
PLFLT)lua_tonumber(L, 2);
2565 if (arg1) (arg1)->dX = arg2;
2589 result = (
PLFLT) ((arg1)->dX);
2590 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2608 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
2614 arg2 = (
PLFLT)lua_tonumber(L, 2);
2615 if (arg1) (arg1)->dY = arg2;
2639 result = (
PLFLT) ((arg1)->dY);
2640 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2658 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
2664 arg2 = (
PLFLT)lua_tonumber(L, 2);
2665 if (arg1) (arg1)->wX = arg2;
2689 result = (
PLFLT) ((arg1)->wX);
2690 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2708 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
2714 arg2 = (
PLFLT)lua_tonumber(L, 2);
2715 if (arg1) (arg1)->wY = arg2;
2739 result = (
PLFLT) ((arg1)->wY);
2740 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2770 free((
char *) arg1);
2800 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
2801 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
2802 arg1 = (
PLINT)lua_tonumber(L, 1);
2803 arg2 = (
PLINT)lua_tonumber(L, 2);
2824 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
2825 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
2826 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
2827 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
2828 arg1 = (
PLFLT)lua_tonumber(L, 1);
2829 arg2 = (
PLFLT)lua_tonumber(L, 2);
2830 arg3 = (
PLFLT)lua_tonumber(L, 3);
2831 arg4 = (
PLINT)lua_tonumber(L, 4);
2850 arg1 = (
PLINT)lua_tonumber(L, 1);
2883 arg1 = (
PLFLT)lua_tonumber(L, 1);
2884 arg2 = (
PLFLT)lua_tonumber(L, 2);
2885 arg3 = (
PLFLT)lua_tonumber(L, 3);
2886 arg4 = (
PLFLT)lua_tonumber(L, 4);
2887 arg5 = (
PLFLT)lua_tonumber(L, 5);
2888 arg6 = (
PLFLT)lua_tonumber(L, 6);
2889 arg7 = (
PLFLT)lua_tonumber(L, 7);
2890 arg8 = (
PLBOOL)lua_tonumber(L, 8);
2891 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
2907 char *arg3 = (
char *) 0 ;
2910 char *arg6 = (
char *) 0 ;
2923 arg1 = (
PLFLT)lua_tonumber(L, 1);
2924 arg2 = (
PLFLT)lua_tonumber(L, 2);
2925 arg3 = (
char *)lua_tostring(L, 3);
2926 arg4 = (
PLFLT)lua_tonumber(L, 4);
2927 arg5 = (
PLINT)lua_tonumber(L, 5);
2928 arg6 = (
char *)lua_tostring(L, 6);
2929 arg7 = (
PLFLT)lua_tonumber(L, 7);
2930 arg8 = (
PLINT)lua_tonumber(L, 8);
2931 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
2955 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
2961 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
2964 if ( temp3 !=
Alen )
2966 lua_pushfstring( L,
"Tables must be of same length." );
2970 arg4 = (
PLINT)lua_tonumber(L, 3);
2971 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
3019 arg7 = (
PLFLT)lua_tonumber(L, 1);
3020 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3022 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
3023 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
3024 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3025 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3026 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3027 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
3056 char *arg1 = (
char *) 0 ;
3059 char *arg4 = (
char *) 0 ;
3070 arg1 = (
char *)lua_tostring(L, 1);
3071 arg2 = (
PLFLT)lua_tonumber(L, 2);
3072 arg3 = (
PLINT)lua_tonumber(L, 3);
3073 arg4 = (
char *)lua_tostring(L, 4);
3074 arg5 = (
PLFLT)lua_tonumber(L, 5);
3075 arg6 = (
PLINT)lua_tonumber(L, 6);
3076 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
3090 char *arg1 = (
char *) 0 ;
3091 char *arg2 = (
char *) 0 ;
3094 char *arg5 = (
char *) 0 ;
3095 char *arg6 = (
char *) 0 ;
3098 char *arg9 = (
char *) 0 ;
3099 char *arg10 = (
char *) 0 ;
3116 arg1 = (
char *)lua_tostring(L, 1);
3117 arg2 = (
char *)lua_tostring(L, 2);
3118 arg3 = (
PLFLT)lua_tonumber(L, 3);
3119 arg4 = (
PLINT)lua_tonumber(L, 4);
3120 arg5 = (
char *)lua_tostring(L, 5);
3121 arg6 = (
char *)lua_tostring(L, 6);
3122 arg7 = (
PLFLT)lua_tonumber(L, 7);
3123 arg8 = (
PLINT)lua_tonumber(L, 8);
3124 arg9 = (
char *)lua_tostring(L, 9);
3125 arg10 = (
char *)lua_tostring(L, 10);
3126 arg11 = (
PLFLT)lua_tonumber(L, 11);
3127 arg12 = (
PLINT)lua_tonumber(L, 12);
3128 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);
3155 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
3156 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
3157 arg1 = (
PLFLT)lua_tonumber(L, 1);
3158 arg2 = (
PLFLT)lua_tonumber(L, 2);
3161 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3162 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3163 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3196 arg1 = (
PLINT)lua_tonumber(L, 1);
3215 arg1 = (
PLFLT)lua_tonumber(L, 1);
3243 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
3244 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
3245 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
3246 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
3247 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
3248 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
3249 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
3250 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
3251 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
3252 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
3253 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
3254 arg1 = (
PLFLT)lua_tonumber(L, 1);
3255 arg2 = (
PLFLT)lua_tonumber(L, 2);
3256 arg3 = (
PLFLT)lua_tonumber(L, 3);
3257 arg4 = (
PLINT)lua_tonumber(L, 4);
3258 arg5 = (
PLBOOL)lua_tonumber(L, 5);
3259 arg6 = (
PLINT)lua_tonumber(L, 6);
3260 arg7 = (
PLINT)lua_tonumber(L, 7);
3261 arg8 = (
PLINT)lua_tonumber(L, 8);
3262 arg9 = (
PLINT)lua_tonumber(L, 9);
3263 arg10 = (
PLINT)lua_tonumber(L, 10);
3264 arg11 = (
PLFLT)lua_tonumber(L, 11);
3265 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
3295 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
3296 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
3297 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
3298 cgrid211.
nx = cgrid211.
ny = 0;
3320 arg4 = (
PLINT)lua_tonumber(L, 2);
3321 arg5 = (
PLINT)lua_tonumber(L, 3);
3322 arg6 = (
PLINT)lua_tonumber(L, 4);
3323 arg7 = (
PLINT)lua_tonumber(L, 5);
3326 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
3331 if(lua_gettop(L)>=7){
3336 if ( lua_isstring( L, 7 ) )
3338 const char* funcstr = lua_tostring( L, 7 );
3339 if ( strcmp(
"pltr0", funcstr ) == 0 )
3343 else if ( strcmp(
"pltr1", funcstr ) == 0 )
3347 else if ( strcmp(
"pltr2", funcstr ) == 0 )
3362 if(lua_gettop(L)>=8){
3367 lua_pushstring( L,
"xg" );
3368 lua_gettable( L, 8 );
3369 if ( !lua_istable( L, -1 ) )
3372 lua_pushstring( L,
"expected a table xg" );
3375 lua_rawgeti( L, -1, 1 );
3376 if ( lua_istable( L, -1 ) )
3378 else if ( lua_isnumber( L, -1 ) )
3384 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
3388 if ( gridmode == 1 )
3390 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
3398 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
3411 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3414 lua_pushfstring( L,
"Vectors must match matrix." );
3422 lua_pushstring( L,
"yg" );
3423 lua_gettable( L, 8 );
3424 if ( !lua_istable( L, -1 ) )
3427 lua_pushstring( L,
"expected a table yg" );
3430 lua_rawgeti( L, -1, 1 );
3431 if ( gridmode == 2 )
3433 if ( !lua_istable( L, -1 ) )
3437 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
3443 if ( !lua_isnumber( L, -1 ) )
3447 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
3452 if ( gridmode == 1 )
3454 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
3462 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
3475 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3478 lua_pushfstring( L,
"Vectors must match matrix." );
3485 if ( gridmode == 1 )
3487 else if ( gridmode == 2 )
3491 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
3498 for ( i = 0; i < ii1; i++ )
3517 for ( i = 0; i <
Xlen; i++ )
3523 for ( i = 0; i <
Xlen; i++ )
3538 for ( i = 0; i < ii1; i++ )
3557 for ( i = 0; i <
Xlen; i++ )
3563 for ( i = 0; i <
Xlen; i++ )
3592 arg1 = (
PLINT)lua_tonumber(L, 1);
3593 arg2 = (
PLINT)lua_tonumber(L, 2);
3594 arg3 = (
PLINT)lua_tonumber(L, 3);
3595 arg4 = (
PLINT)lua_tonumber(L, 4);
3596 arg5 = (
PLINT)lua_tonumber(L, 5);
3597 arg6 = (
PLFLT)lua_tonumber(L, 6);
3598 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3600 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
3618 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
3619 arg1 = (
PLINT)lua_tonumber(L, 1);
3620 arg2 = (
PLBOOL)lua_tonumber(L, 2);
3681 arg1 = (
PLFLT)lua_tonumber(L, 1);
3682 arg2 = (
PLFLT)lua_tonumber(L, 2);
3683 arg3 = (
PLFLT)lua_tonumber(L, 3);
3684 arg4 = (
PLFLT)lua_tonumber(L, 4);
3685 arg5 = (
PLINT)lua_tonumber(L, 5);
3686 arg6 = (
PLINT)lua_tonumber(L, 6);
3687 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
3715 arg1 = (
PLFLT)lua_tonumber(L, 1);
3716 arg2 = (
PLFLT)lua_tonumber(L, 2);
3717 arg3 = (
PLFLT)lua_tonumber(L, 3);
3718 arg4 = (
PLFLT)lua_tonumber(L, 4);
3719 arg5 = (
PLINT)lua_tonumber(L, 5);
3720 arg6 = (
PLINT)lua_tonumber(L, 6);
3721 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
3761 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3767 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3770 if ( temp3 !=
Alen )
3772 lua_pushfstring( L,
"Tables must be of same length." );
3777 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3780 if ( temp4 !=
Alen )
3782 lua_pushfstring( L,
"Tables must be of same length." );
3786 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3828 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3834 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3837 if ( temp3 !=
Alen )
3839 lua_pushfstring( L,
"Tables must be of same length." );
3844 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3847 if ( temp4 !=
Alen )
3849 lua_pushfstring( L,
"Tables must be of same length." );
3853 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3909 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3915 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3918 if ( temp3 !=
Alen )
3920 lua_pushfstring( L,
"Tables must be of same length." );
3924 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
3960 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3966 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3969 if ( temp3 !=
Alen )
3971 lua_pushfstring( L,
"Tables must be of same length." );
3976 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3979 if ( temp4 !=
Alen )
3981 lua_pushfstring( L,
"Tables must be of same length." );
3985 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4024 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
4027 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4033 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4036 if ( temp3 !=
Alen )
4038 lua_pushfstring( L,
"Tables must be of same length." );
4042 arg4 = (
PLFLT)lua_tonumber(L, 3);
4043 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4089 arg1 = (
PLINT)lua_tonumber(L, 1);
4108 arg1 = (
PLINT)lua_tonumber(L, 1);
4133 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4134 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4160 arg1 = (
PLINT)lua_tonumber(L, 1);
4163 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4164 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4165 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4194 arg1 = (
PLINT)lua_tonumber(L, 1);
4195 plgcol0a(arg1,arg2,arg3,arg4,arg5);
4197 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4198 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4199 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4200 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4226 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4227 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4228 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4257 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4258 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4259 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4260 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4280 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4293 char *arg1 = (
char *) 0 ;
4303 lua_pushstring( L, arg1 );
4334 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4335 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4336 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4337 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4357 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4386 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4387 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4388 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4389 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4415 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4416 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4417 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4437 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4450 char *arg1 = (
char *) 0 ;
4460 lua_pushstring( L, arg1 );
4488 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4489 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4490 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4510 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4543 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
4545 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4546 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4547 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4548 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4549 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4550 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4593 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
4594 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
4597 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4603 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
4606 if ( temp2 !=
Alen )
4608 lua_pushfstring( L,
"Tables must be of same length." );
4614 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
4619 lua_pushfstring( L,
"Tables must be of same length." );
4626 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
4634 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
4642 for ( i = 0; i <
Xlen; i++ )
4645 for ( i = 0; i <
Xlen; i++ )
4652 arg10 = (
PLINT)lua_tonumber(L, 6);
4653 arg11 = (
PLFLT)lua_tonumber(L, 7);
4654 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
4662 for ( i = 0; i <
Xlen; i++ )
4664 SWIG_write_double_num_array( L, arg9[i],
Ylen );
4665 lua_rawseti( L, -2, i + 1 );
4689 for ( i = 0; i <
Xlen; i++ )
4718 for ( i = 0; i <
Xlen; i++ )
4744 plgspa(arg1,arg2,arg3,arg4);
4746 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4747 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4748 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4749 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4769 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4782 char *arg1 = (
char *) 0 ;
4792 lua_pushstring( L, arg1 );
4821 plgvpd(arg1,arg2,arg3,arg4);
4823 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4824 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4825 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4826 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4853 plgvpw(arg1,arg2,arg3,arg4);
4855 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4856 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4857 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4858 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4881 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4882 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4905 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4906 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4929 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4930 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4957 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4962 arg3 = (
PLFLT)lua_tonumber(L, 2);
4963 arg4 = (
PLFLT)lua_tonumber(L, 3);
4964 arg5 = (
PLINT)lua_tonumber(L, 4);
4965 arg6 = (
PLINT)lua_tonumber(L, 5);
4966 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5003 arg1 = (
PLFLT)lua_tonumber(L, 1);
5004 arg2 = (
PLFLT)lua_tonumber(L, 2);
5005 arg3 = (
PLFLT)lua_tonumber(L, 3);
5006 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5008 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5009 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5010 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5049 arg1 = (
PLFLT)lua_tonumber(L, 1);
5050 arg2 = (
PLFLT)lua_tonumber(L, 2);
5051 arg3 = (
PLFLT)lua_tonumber(L, 3);
5052 arg4 = (
PLFLT)lua_tonumber(L, 4);
5053 pljoin(arg1,arg2,arg3,arg4);
5067 char *arg1 = (
char *) 0 ;
5068 char *arg2 = (
char *) 0 ;
5069 char *arg3 = (
char *) 0 ;
5075 arg1 = (
char *)lua_tostring(L, 1);
5076 arg2 = (
char *)lua_tostring(L, 2);
5077 arg3 = (
char *)lua_tostring(L, 3);
5078 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
5111 char **arg20 = (
char **) 0 ;
5122 char **arg31 = (
char **) 0 ;
5179 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
5180 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
5181 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
5182 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
5183 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
5184 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
5185 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
5186 arg3 = (
PLINT)lua_tonumber(L, 1);
5187 arg4 = (
PLINT)lua_tonumber(L, 2);
5188 arg5 = (
PLFLT)lua_tonumber(L, 3);
5189 arg6 = (
PLFLT)lua_tonumber(L, 4);
5190 arg7 = (
PLFLT)lua_tonumber(L, 5);
5191 arg8 = (
PLINT)lua_tonumber(L, 6);
5192 arg9 = (
PLINT)lua_tonumber(L, 7);
5193 arg10 = (
PLINT)lua_tonumber(L, 8);
5194 arg11 = (
PLINT)lua_tonumber(L, 9);
5195 arg12 = (
PLINT)lua_tonumber(L, 10);
5197 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
5202 arg15 = (
PLFLT)lua_tonumber(L, 12);
5203 arg16 = (
PLFLT)lua_tonumber(L, 13);
5204 arg17 = (
PLFLT)lua_tonumber(L, 14);
5205 arg18 = (
PLFLT)lua_tonumber(L, 15);
5207 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
5210 if ( temp19 !=
Alen )
5212 lua_pushfstring( L,
"Tables must be of same length." );
5222 lua_pushfstring( L,
"Tables must be of same length." );
5225 arg20 = malloc(
sizeof (
char* ) *
Alen );
5226 for ( i = 1; i <=
Alen; i++ )
5228 lua_rawgeti( L, 17, i );
5229 if ( lua_isstring( L, -1 ) )
5231 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5236 lua_pushfstring( L,
"Requires a sequence of strings." );
5243 if(lua_gettop(L)>=18){
5245 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
5248 if ( temp21 !=
Alen )
5250 lua_pushfstring( L,
"Tables must be of same length." );
5255 if(lua_gettop(L)>=19){
5257 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
5260 if ( temp22 !=
Alen )
5262 lua_pushfstring( L,
"Tables must be of same length." );
5267 if(lua_gettop(L)>=20){
5269 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
5272 if ( temp23 !=
Alen )
5274 lua_pushfstring( L,
"Tables must be of same length." );
5279 if(lua_gettop(L)>=21){
5281 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
5284 if ( temp24 !=
Alen )
5286 lua_pushfstring( L,
"Tables must be of same length." );
5291 if(lua_gettop(L)>=22){
5293 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
5296 if ( temp25 !=
Alen )
5298 lua_pushfstring( L,
"Tables must be of same length." );
5303 if(lua_gettop(L)>=23){
5305 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
5308 if ( temp26 !=
Alen )
5310 lua_pushfstring( L,
"Tables must be of same length." );
5315 if(lua_gettop(L)>=24){
5317 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
5320 if ( temp27 !=
Alen )
5322 lua_pushfstring( L,
"Tables must be of same length." );
5327 if(lua_gettop(L)>=25){
5329 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
5332 if ( temp28 !=
Alen )
5334 lua_pushfstring( L,
"Tables must be of same length." );
5339 if(lua_gettop(L)>=26){
5341 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
5344 if ( temp29 !=
Alen )
5346 lua_pushfstring( L,
"Tables must be of same length." );
5351 if(lua_gettop(L)>=27){
5353 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
5356 if ( temp30 !=
Alen )
5358 lua_pushfstring( L,
"Tables must be of same length." );
5363 if(lua_gettop(L)>=28){
5370 lua_pushfstring( L,
"Tables must be of same length." );
5373 arg31 = malloc(
sizeof (
char* ) *
Alen );
5374 for ( i = 1; i <=
Alen; i++ )
5376 lua_rawgeti( L, 28, i );
5377 if ( lua_isstring( L, -1 ) )
5379 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
5384 lua_pushfstring( L,
"Requires a sequence of strings." );
5392 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);
5394 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5395 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5405 free( arg20 ); arg20 = NULL;
5441 free( arg31 ); arg31 = NULL;
5458 free( arg20 ); arg20 = NULL;
5494 free( arg31 ); arg31 = NULL;
5521 char **arg18 = (
char **) 0 ;
5523 char **arg20 = (
char **) 0 ;
5538 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
5539 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
5540 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
5541 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
5542 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
5543 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
5544 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
5545 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
5546 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
5547 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
5548 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
5549 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
5550 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
5551 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
5552 arg3 = (
PLINT)lua_tonumber(L, 1);
5553 arg4 = (
PLINT)lua_tonumber(L, 2);
5554 arg5 = (
PLFLT)lua_tonumber(L, 3);
5555 arg6 = (
PLFLT)lua_tonumber(L, 4);
5556 arg7 = (
PLFLT)lua_tonumber(L, 5);
5557 arg8 = (
PLFLT)lua_tonumber(L, 6);
5558 arg9 = (
PLINT)lua_tonumber(L, 7);
5559 arg10 = (
PLINT)lua_tonumber(L, 8);
5560 arg11 = (
PLINT)lua_tonumber(L, 9);
5561 arg12 = (
PLFLT)lua_tonumber(L, 10);
5562 arg13 = (
PLFLT)lua_tonumber(L, 11);
5563 arg14 = (
PLINT)lua_tonumber(L, 12);
5564 arg15 = (
PLFLT)lua_tonumber(L, 13);
5566 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
5577 lua_pushfstring( L,
"Tables must be of same length." );
5580 arg18 = malloc(
sizeof (
char* ) *
Alen );
5581 for ( i = 1; i <=
Alen; i++ )
5583 lua_rawgeti( L, 15, i );
5584 if ( lua_isstring( L, -1 ) )
5586 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
5591 lua_pushfstring( L,
"Requires a sequence of strings." );
5603 arg20 = malloc(
sizeof (
char* ) *
Alen );
5604 for ( i = 1; i <=
Alen; i++ )
5606 lua_rawgeti( L, 16, i );
5607 if ( lua_isstring( L, -1 ) )
5609 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5614 lua_pushfstring( L,
"Requires a sequence of strings." );
5621 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
5624 if ( temp21 !=
Alen )
5626 lua_pushfstring( L,
"Tables must be of same length." );
5631 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
5634 if ( temp22 !=
Alen )
5636 lua_pushfstring( L,
"Tables must be of same length." );
5643 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
5646 if ( temp23 !=
Alen )
5648 lua_pushfstring( L,
"Tables must be of same length." );
5654 for ( i = 0; i <
Xlen; i++ )
5655 if ( arg23[i] >
Ylen )
5664 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
5666 lua_pushfstring( L,
"Vectors must match matrix." );
5670 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);
5672 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5673 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5680 free( arg18 ); arg18 = NULL;
5686 free( arg20 ); arg20 = NULL;
5703 for ( i = 0; i < ii24; i++ )
5719 free( arg18 ); arg18 = NULL;
5725 free( arg20 ); arg20 = NULL;
5742 for ( i = 0; i < ii24; i++ )
5759 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
5760 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
5761 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
5762 arg1 = (
PLFLT)lua_tonumber(L, 1);
5763 arg2 = (
PLFLT)lua_tonumber(L, 2);
5764 arg3 = (
PLFLT)lua_tonumber(L, 3);
5787 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5793 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5796 if ( temp3 !=
Alen )
5798 lua_pushfstring( L,
"Tables must be of same length." );
5802 plline(arg1,(
double const *)arg2,(
double const *)arg3);
5838 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5844 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5847 if ( temp3 !=
Alen )
5849 lua_pushfstring( L,
"Tables must be of same length." );
5854 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5857 if ( temp4 !=
Alen )
5859 lua_pushfstring( L,
"Tables must be of same length." );
5863 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5899 arg1 = (
PLINT)lua_tonumber(L, 1);
5926 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5933 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
5946 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
5948 lua_pushfstring( L,
"Vectors must match matrix." );
5952 arg6 = (
PLINT)lua_tonumber(L, 4);
5953 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
5966 for ( i = 0; i < ii3; i++ )
5987 for ( i = 0; i < ii3; i++ )
6013 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6020 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6033 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6035 lua_pushfstring( L,
"Vectors must match matrix." );
6039 arg6 = (
PLINT)lua_tonumber(L, 4);
6042 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6047 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6060 for ( i = 0; i < ii3; i++ )
6084 for ( i = 0; i < ii3; i++ )
6106 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6119 char *arg1 = (
char *) 0 ;
6123 char *arg5 = (
char *) 0 ;
6131 arg1 = (
char *)lua_tostring(L, 1);
6132 arg2 = (
PLFLT)lua_tonumber(L, 2);
6133 arg3 = (
PLFLT)lua_tonumber(L, 3);
6134 arg4 = (
PLFLT)lua_tonumber(L, 4);
6135 arg5 = (
char *)lua_tostring(L, 5);
6136 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6150 char *arg1 = (
char *) 0 ;
6154 char *arg5 = (
char *) 0 ;
6162 arg1 = (
char *)lua_tostring(L, 1);
6163 arg2 = (
PLFLT)lua_tonumber(L, 2);
6164 arg3 = (
PLFLT)lua_tonumber(L, 3);
6165 arg4 = (
PLFLT)lua_tonumber(L, 4);
6166 arg5 = (
char *)lua_tostring(L, 5);
6167 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6195 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6202 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6215 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6217 lua_pushfstring( L,
"Vectors must match matrix." );
6221 arg6 = (
PLINT)lua_tonumber(L, 4);
6222 arg7 = (
PLBOOL)lua_tonumber(L, 5);
6223 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
6236 for ( i = 0; i < ii3; i++ )
6257 for ( i = 0; i < ii3; i++ )
6283 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6290 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6303 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6305 lua_pushfstring( L,
"Vectors must match matrix." );
6309 arg6 = (
PLINT)lua_tonumber(L, 4);
6312 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6317 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6330 for ( i = 0; i < ii3; i++ )
6354 for ( i = 0; i < ii3; i++ )
6389 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6396 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6409 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6411 lua_pushfstring( L,
"Vectors must match matrix." );
6415 arg6 = (
PLINT)lua_tonumber(L, 4);
6418 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6423 arg9 = (
PLINT)lua_tonumber(L, 6);
6425 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6431 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6434 if ( temp12 !=
Alen )
6436 lua_pushfstring( L,
"Tables must be of same length." );
6440 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);
6453 for ( i = 0; i < ii3; i++ )
6483 for ( i = 0; i < ii3; i++ )
6518 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6525 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6538 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6540 lua_pushfstring( L,
"Vectors must match matrix." );
6544 arg6 = (
PLINT)lua_tonumber(L, 4);
6547 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6552 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6565 for ( i = 0; i < ii3; i++ )
6589 for ( i = 0; i < ii3; i++ )
6620 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
6621 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
6624 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6631 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6644 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6646 lua_pushfstring( L,
"Vectors must match matrix." );
6650 arg6 = (
PLINT)lua_tonumber(L, 4);
6653 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6658 arg9 = (
PLINT)lua_tonumber(L, 6);
6660 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6666 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6669 if ( temp12 !=
Alen )
6671 lua_pushfstring( L,
"Tables must be of same length." );
6675 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);
6688 for ( i = 0; i < ii3; i++ )
6718 for ( i = 0; i < ii3; i++ )
6739 int *arg1 = (
int *) 0 ;
6740 char **arg2 = (
char **) 0 ;
6745 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
6746 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
6755 lua_rawgeti( L, 1, i );
6756 if ( lua_isnil( L, -1 ) )
6769 for ( i = 0; i < n; i++ )
6771 lua_rawgeti( L, 1, i );
6772 if ( lua_isstring( L, -1 ) )
6774 arg2[i] = (
char *) lua_tostring( L, -1 );
6779 lua_pushfstring( L,
"List items must be strings" );
6787 arg3 = (
PLINT)lua_tonumber(L, 2);
6789 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
6815 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
6821 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
6824 if ( temp3 !=
Alen )
6826 lua_pushfstring( L,
"Tables must be of same length." );
6830 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
6866 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6872 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6875 if ( temp3 !=
Alen )
6877 lua_pushfstring( L,
"Tables must be of same length." );
6881 arg4 = (
PLINT)lua_tonumber(L, 3);
6882 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
6920 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6926 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6929 if ( temp3 !=
Alen )
6931 lua_pushfstring( L,
"Tables must be of same length." );
6936 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6939 if ( temp4 !=
Alen )
6941 lua_pushfstring( L,
"Tables must be of same length." );
6945 arg5 = (
PLINT)lua_tonumber(L, 4);
6946 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
6992 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6998 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7001 if ( temp3 !=
Alen )
7003 lua_pushfstring( L,
"Tables must be of same length." );
7008 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7011 if ( temp4 !=
Alen )
7013 lua_pushfstring( L,
"Tables must be of same length." );
7018 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
7021 if ( temp5 <
Alen - 1 )
7023 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7027 arg6 = (
PLBOOL)lua_tonumber(L, 5);
7028 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
7072 arg1 = (
PLINT)lua_tonumber(L, 1);
7073 arg2 = (
PLINT)lua_tonumber(L, 2);
7092 arg1 = (
PLINT)lua_tonumber(L, 1);
7112 char *arg6 = (
char *) 0 ;
7121 arg1 = (
PLFLT)lua_tonumber(L, 1);
7122 arg2 = (
PLFLT)lua_tonumber(L, 2);
7123 arg3 = (
PLFLT)lua_tonumber(L, 3);
7124 arg4 = (
PLFLT)lua_tonumber(L, 4);
7125 arg5 = (
PLFLT)lua_tonumber(L, 5);
7126 arg6 = (
char *)lua_tostring(L, 6);
7127 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
7151 char *arg11 = (
char *) 0 ;
7163 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
7165 arg1 = (
PLFLT)lua_tonumber(L, 1);
7166 arg2 = (
PLFLT)lua_tonumber(L, 2);
7167 arg3 = (
PLFLT)lua_tonumber(L, 3);
7168 arg4 = (
PLFLT)lua_tonumber(L, 4);
7169 arg5 = (
PLFLT)lua_tonumber(L, 5);
7170 arg6 = (
PLFLT)lua_tonumber(L, 6);
7171 arg7 = (
PLFLT)lua_tonumber(L, 7);
7172 arg8 = (
PLFLT)lua_tonumber(L, 8);
7173 arg9 = (
PLFLT)lua_tonumber(L, 9);
7174 arg10 = (
PLFLT)lua_tonumber(L, 10);
7175 arg11 = (
char *)lua_tostring(L, 11);
7176 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
7194 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7240 arg1 = (
PLFLT)lua_tonumber(L, 1);
7241 arg2 = (
PLFLT)lua_tonumber(L, 2);
7242 arg3 = (
PLFLT)lua_tonumber(L, 3);
7243 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
7245 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
7246 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
7247 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
7266 arg1 = (
PLFLT)lua_tonumber(L, 1);
7267 arg2 = (
PLFLT)lua_tonumber(L, 2);
7292 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7298 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7301 if ( temp2 !=
Alen )
7303 lua_pushfstring( L,
"Tables must be of same length." );
7308 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7311 if ( temp3 !=
Alen )
7313 lua_pushfstring( L,
"Tables must be of same length." );
7318 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7361 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7367 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7370 if ( temp2 !=
Alen )
7372 lua_pushfstring( L,
"Tables must be of same length." );
7377 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7380 if ( temp3 !=
Alen )
7382 lua_pushfstring( L,
"Tables must be of same length." );
7388 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7393 lua_pushfstring( L,
"Tables must be of same length." );
7398 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7439 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
7440 arg1 = (
PLINT)lua_tonumber(L, 1);
7465 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7471 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7474 if ( temp2 !=
Alen )
7476 lua_pushfstring( L,
"Tables must be of same length." );
7481 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7484 if ( temp3 !=
Alen )
7486 lua_pushfstring( L,
"Tables must be of same length." );
7491 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7534 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7540 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7543 if ( temp2 !=
Alen )
7545 lua_pushfstring( L,
"Tables must be of same length." );
7550 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7553 if ( temp3 !=
Alen )
7555 lua_pushfstring( L,
"Tables must be of same length." );
7561 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7566 lua_pushfstring( L,
"Tables must be of same length." );
7571 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7625 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
7626 arg1 = (
PLBOOL)lua_tonumber(L, 1);
7629 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7635 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7638 if ( temp4 !=
Alen )
7640 lua_pushfstring( L,
"Tables must be of same length." );
7645 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
7648 if ( temp5 !=
Alen )
7650 lua_pushfstring( L,
"Tables must be of same length." );
7655 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
7658 if ( temp6 !=
Alen )
7660 lua_pushfstring( L,
"Tables must be of same length." );
7664 if(lua_gettop(L)>=6){
7666 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
7669 if ( temp7 <
Alen - 1 )
7671 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7676 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
7738 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
7739 arg1 = (
PLBOOL)lua_tonumber(L, 1);
7742 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7748 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7751 if ( temp4 !=
Alen )
7753 lua_pushfstring( L,
"Tables must be of same length." );
7758 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
7761 if ( temp5 !=
Alen )
7763 lua_pushfstring( L,
"Tables must be of same length." );
7768 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
7771 if ( temp6 !=
Alen )
7773 lua_pushfstring( L,
"Tables must be of same length." );
7778 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
7781 if ( temp7 !=
Alen )
7783 lua_pushfstring( L,
"Tables must be of same length." );
7787 if(lua_gettop(L)>=7){
7789 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
7792 if ( temp8 <
Alen - 1 )
7794 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7799 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
7852 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
7853 arg1 = (
PLINT)lua_tonumber(L, 1);
7872 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
7873 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
7874 arg1 = (
PLFLT)lua_tonumber(L, 1);
7875 arg2 = (
PLFLT)lua_tonumber(L, 2);
7900 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
7901 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
7924 arg1 = (
PLINT)lua_tonumber(L, 1);
7925 arg2 = (
PLINT)lua_tonumber(L, 2);
7926 arg3 = (
PLINT)lua_tonumber(L, 3);
7927 arg4 = (
PLINT)lua_tonumber(L, 4);
7954 arg1 = (
PLINT)lua_tonumber(L, 1);
7955 arg2 = (
PLINT)lua_tonumber(L, 2);
7956 arg3 = (
PLINT)lua_tonumber(L, 3);
7957 arg4 = (
PLINT)lua_tonumber(L, 4);
7958 arg5 = (
PLFLT)lua_tonumber(L, 5);
7959 plscol0a(arg1,arg2,arg3,arg4,arg5);
7981 arg1 = (
PLINT)lua_tonumber(L, 1);
7982 arg2 = (
PLINT)lua_tonumber(L, 2);
7983 arg3 = (
PLINT)lua_tonumber(L, 3);
8004 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
8005 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
8006 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
8007 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
8008 arg1 = (
PLINT)lua_tonumber(L, 1);
8009 arg2 = (
PLINT)lua_tonumber(L, 2);
8010 arg3 = (
PLINT)lua_tonumber(L, 3);
8011 arg4 = (
PLFLT)lua_tonumber(L, 4);
8030 arg1 = (
PLINT)lua_tonumber(L, 1);
8048 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
8049 arg1 = (
PLINT)lua_tonumber(L, 1);
8064 char *arg1 = (
char *) 0 ;
8068 arg1 = (
char *)lua_tostring(L, 1);
8069 plsdev((
char const *)arg1);
8093 arg1 = (
PLFLT)lua_tonumber(L, 1);
8094 arg2 = (
PLFLT)lua_tonumber(L, 2);
8095 arg3 = (
PLFLT)lua_tonumber(L, 3);
8096 arg4 = (
PLFLT)lua_tonumber(L, 4);
8125 arg1 = (
PLINT)lua_tonumber(L, 1);
8126 arg2 = (
PLINT)lua_tonumber(L, 2);
8127 arg3 = (
PLINT)lua_tonumber(L, 3);
8128 arg4 = (
PLINT)lua_tonumber(L, 4);
8129 arg5 = (
PLFLT)lua_tonumber(L, 5);
8130 arg6 = (
PLFLT)lua_tonumber(L, 6);
8131 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
8149 arg1 = (
PLFLT)lua_tonumber(L, 1);
8174 arg1 = (
PLFLT)lua_tonumber(L, 1);
8175 arg2 = (
PLFLT)lua_tonumber(L, 2);
8176 arg3 = (
PLFLT)lua_tonumber(L, 3);
8177 arg4 = (
PLFLT)lua_tonumber(L, 4);
8202 arg1 = (
PLFLT)lua_tonumber(L, 1);
8203 arg2 = (
PLFLT)lua_tonumber(L, 2);
8204 arg3 = (
PLFLT)lua_tonumber(L, 3);
8205 arg4 = (
PLFLT)lua_tonumber(L, 4);
8223 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
8225 arg1 = (
unsigned int)lua_tonumber(L, 1);
8244 arg1 = (lua_tostring(L, 1))[0];
8259 char *arg1 = (
char *) 0 ;
8260 char *arg2 = (
char *) 0 ;
8266 arg1 = (
char *)lua_tostring(L, 1);
8267 arg2 = (
char *)lua_tostring(L, 2);
8268 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
8269 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8290 arg1 = (
PLINT)lua_tonumber(L, 1);
8291 arg2 = (
PLINT)lua_tonumber(L, 2);
8292 arg3 = (
PLINT)lua_tonumber(L, 3);
8310 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
8327 char *arg1 = (
char *) 0 ;
8331 arg1 = (
char *)lua_tostring(L, 1);
8354 arg1 = (
PLINT)lua_tonumber(L, 1);
8355 arg2 = (
PLINT)lua_tonumber(L, 2);
8356 arg3 = (
PLINT)lua_tonumber(L, 3);
8393 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
8394 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
8395 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
8396 cgrid217.
nx = cgrid217.
ny = 0;
8418 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
8428 arg5 = (
PLFLT)lua_tonumber(L, 2);
8429 arg6 = (
PLFLT)lua_tonumber(L, 3);
8430 arg7 = (
PLFLT)lua_tonumber(L, 4);
8431 arg8 = (
PLFLT)lua_tonumber(L, 5);
8434 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
8437 arg10 =
Alen = temp;
8439 arg11 = (
PLFLT)lua_tonumber(L, 7);
8440 arg12 = (
PLINT)lua_tonumber(L, 8);
8441 arg13 = (
PLFLT)lua_tonumber(L, 9);
8442 arg15 = (
PLBOOL)lua_tonumber(L, 10);
8443 if(lua_gettop(L)>=11){
8448 if ( lua_isstring( L, 11 ) )
8450 const char* funcstr = lua_tostring( L, 11 );
8451 if ( strcmp(
"pltr0", funcstr ) == 0 )
8455 else if ( strcmp(
"pltr1", funcstr ) == 0 )
8459 else if ( strcmp(
"pltr2", funcstr ) == 0 )
8474 if(lua_gettop(L)>=12){
8479 lua_pushstring( L,
"xg" );
8480 lua_gettable( L, 12 );
8481 if ( !lua_istable( L, -1 ) )
8484 lua_pushstring( L,
"expected a table xg" );
8487 lua_rawgeti( L, -1, 1 );
8488 if ( lua_istable( L, -1 ) )
8490 else if ( lua_isnumber( L, -1 ) )
8496 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
8500 if ( gridmode == 1 )
8502 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
8510 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
8523 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8526 lua_pushfstring( L,
"Vectors must match matrix." );
8534 lua_pushstring( L,
"yg" );
8535 lua_gettable( L, 12 );
8536 if ( !lua_istable( L, -1 ) )
8539 lua_pushstring( L,
"expected a table yg" );
8542 lua_rawgeti( L, -1, 1 );
8543 if ( gridmode == 2 )
8545 if ( !lua_istable( L, -1 ) )
8549 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
8555 if ( !lua_isnumber( L, -1 ) )
8559 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
8564 if ( gridmode == 1 )
8566 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
8574 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
8587 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8590 lua_pushfstring( L,
"Vectors must match matrix." );
8597 if ( gridmode == 1 )
8599 else if ( gridmode == 2 )
8603 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
8610 for ( i = 0; i < ii1; i++ )
8629 for ( i = 0; i <
Xlen; i++ )
8635 for ( i = 0; i <
Xlen; i++ )
8650 for ( i = 0; i < ii1; i++ )
8669 for ( i = 0; i <
Xlen; i++ )
8675 for ( i = 0; i <
Xlen; i++ )
8713 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
8714 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
8715 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
8716 cgrid221.
nx = cgrid221.
ny = 0;
8739 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
8740 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
8741 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
8742 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
8743 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
8744 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
8754 arg5 = (
PLFLT)lua_tonumber(L, 2);
8755 arg6 = (
PLFLT)lua_tonumber(L, 3);
8756 arg7 = (
PLFLT)lua_tonumber(L, 4);
8757 arg8 = (
PLFLT)lua_tonumber(L, 5);
8758 arg9 = (
PLFLT)lua_tonumber(L, 6);
8759 arg10 = (
PLFLT)lua_tonumber(L, 7);
8760 arg11 = (
PLINT)lua_tonumber(L, 8);
8761 arg12 = (
PLFLT)lua_tonumber(L, 9);
8762 arg13 = (
PLFLT)lua_tonumber(L, 10);
8763 arg14 = (
PLINT)lua_tonumber(L, 11);
8764 arg15 = (
PLFLT)lua_tonumber(L, 12);
8765 arg16 = (
PLINT)lua_tonumber(L, 13);
8766 arg17 = (
PLFLT)lua_tonumber(L, 14);
8767 arg19 = (
PLBOOL)lua_tonumber(L, 15);
8768 if(lua_gettop(L)>=16){
8773 if ( lua_isstring( L, 16 ) )
8775 const char* funcstr = lua_tostring( L, 16 );
8776 if ( strcmp(
"pltr0", funcstr ) == 0 )
8780 else if ( strcmp(
"pltr1", funcstr ) == 0 )
8784 else if ( strcmp(
"pltr2", funcstr ) == 0 )
8799 if(lua_gettop(L)>=17){
8804 lua_pushstring( L,
"xg" );
8805 lua_gettable( L, 17 );
8806 if ( !lua_istable( L, -1 ) )
8809 lua_pushstring( L,
"expected a table xg" );
8812 lua_rawgeti( L, -1, 1 );
8813 if ( lua_istable( L, -1 ) )
8815 else if ( lua_isnumber( L, -1 ) )
8821 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
8825 if ( gridmode == 1 )
8827 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
8835 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
8848 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8851 lua_pushfstring( L,
"Vectors must match matrix." );
8859 lua_pushstring( L,
"yg" );
8860 lua_gettable( L, 17 );
8861 if ( !lua_istable( L, -1 ) )
8864 lua_pushstring( L,
"expected a table yg" );
8867 lua_rawgeti( L, -1, 1 );
8868 if ( gridmode == 2 )
8870 if ( !lua_istable( L, -1 ) )
8874 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
8880 if ( !lua_isnumber( L, -1 ) )
8884 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
8889 if ( gridmode == 1 )
8891 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
8899 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
8912 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8915 lua_pushfstring( L,
"Vectors must match matrix." );
8922 if ( gridmode == 1 )
8924 else if ( gridmode == 2 )
8928 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
8935 for ( i = 0; i < ii1; i++ )
8951 for ( i = 0; i <
Xlen; i++ )
8957 for ( i = 0; i <
Xlen; i++ )
8972 for ( i = 0; i < ii1; i++ )
8988 for ( i = 0; i <
Xlen; i++ )
8994 for ( i = 0; i <
Xlen; i++ )
9017 if ( lua_isnil( L, 1 ) )
9021 else if ( lua_isstring( L, 1 ) )
9056 arg1 = (
PLFLT)lua_tonumber(L, 1);
9057 arg2 = (
PLFLT)lua_tonumber(L, 2);
9078 arg1 = (
PLFLT)lua_tonumber(L, 1);
9079 arg2 = (
PLFLT)lua_tonumber(L, 2);
9098 arg1 = (
PLINT)lua_tonumber(L, 1);
9127 arg1 = (
PLFLT)lua_tonumber(L, 1);
9128 arg2 = (
PLFLT)lua_tonumber(L, 2);
9129 arg3 = (
PLINT)lua_tonumber(L, 3);
9130 arg4 = (
PLINT)lua_tonumber(L, 4);
9131 arg5 = (
PLINT)lua_tonumber(L, 5);
9132 arg6 = (
PLINT)lua_tonumber(L, 6);
9133 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
9147 char *arg1 = (
char *) 0 ;
9151 arg1 = (
char *)lua_tostring(L, 1);
9166 char *arg1 = (
char *) 0 ;
9172 arg1 = (
char *)lua_tostring(L, 1);
9173 arg2 = (
PLBOOL)lua_tonumber(L, 2);
9174 plspal1((
char const *)arg1,arg2);
9191 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
9192 arg1 = (
PLBOOL)lua_tonumber(L, 1);
9211 arg1 = (
PLINT)lua_tonumber(L, 1);
9232 arg1 = (
PLINT)lua_tonumber(L, 1);
9233 arg2 = (
PLINT)lua_tonumber(L, 2);
9254 arg1 = (
PLFLT)lua_tonumber(L, 1);
9255 arg2 = (
PLFLT)lua_tonumber(L, 2);
9276 arg1 = (
PLINT)lua_tonumber(L, 1);
9277 arg2 = (
PLINT)lua_tonumber(L, 2);
9292 char *arg1 = (
char *) 0 ;
9300 arg1 = (
char *)lua_tostring(L, 1);
9301 arg2 = (
PLINT)lua_tonumber(L, 2);
9302 arg3 = (
PLINT)lua_tonumber(L, 3);
9303 plstart((
char const *)arg1,arg2,arg3);
9328 if(lua_gettop(L)>=1){
9333 if ( lua_isstring( L, 1 ) )
9335 const char* funcstr = lua_tostring( L, 1 );
9361 char *arg4 = (
char *) 0 ;
9368 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9374 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9377 if ( temp3 !=
Alen )
9379 lua_pushfstring( L,
"Tables must be of same length." );
9383 arg4 = (
char *)lua_tostring(L, 3);
9384 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
9414 char *arg5 = (
char *) 0 ;
9422 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9428 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9431 if ( temp3 !=
Alen )
9433 lua_pushfstring( L,
"Tables must be of same length." );
9438 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
9441 if ( temp4 !=
Alen )
9443 lua_pushfstring( L,
"Tables must be of same length." );
9447 arg5 = (
char *)lua_tostring(L, 4);
9448 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
9490 arg1 = (
PLINT)lua_tonumber(L, 1);
9491 arg2 = (
PLINT)lua_tonumber(L, 2);
9492 arg3 = (
PLFLT)lua_tonumber(L, 3);
9493 arg4 = (
PLFLT)lua_tonumber(L, 4);
9509 char *arg2 = (
char *) 0 ;
9510 char *arg3 = (
char *) 0 ;
9525 char *arg18 = (
char *) 0 ;
9526 char *arg19 = (
char *) 0 ;
9527 char *arg20 = (
char *) 0 ;
9543 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
9544 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
9545 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
9546 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
9547 if(!lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
9551 arg2 = (
char *)lua_tostring(L, 1);
9552 arg3 = (
char *)lua_tostring(L, 2);
9553 arg4 = (
PLFLT)lua_tonumber(L, 3);
9554 arg5 = (
PLFLT)lua_tonumber(L, 4);
9555 arg6 = (
PLFLT)lua_tonumber(L, 5);
9556 arg7 = (
PLFLT)lua_tonumber(L, 6);
9557 arg8 = (
PLFLT)lua_tonumber(L, 7);
9558 arg9 = (
PLFLT)lua_tonumber(L, 8);
9559 arg10 = (
PLFLT)lua_tonumber(L, 9);
9560 arg11 = (
PLBOOL)lua_tonumber(L, 10);
9561 arg12 = (
PLBOOL)lua_tonumber(L, 11);
9562 arg13 = (
PLINT)lua_tonumber(L, 12);
9563 arg14 = (
PLINT)lua_tonumber(L, 13);
9565 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
9571 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
9574 if ( temp16 !=
Alen )
9576 lua_pushfstring( L,
"Tables must be of same length." );
9586 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9591 lua_pushfstring( L,
"colline and styline args must be length 4." );
9595 arg17 = malloc(
sizeof (
char* ) * 4 );
9596 for ( i = 1; i <= 4; i++ )
9598 lua_rawgeti( L, 16, i );
9599 if ( lua_isstring( L, -1 ) )
9601 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
9606 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9613 arg18 = (
char *)lua_tostring(L, 17);
9614 arg19 = (
char *)lua_tostring(L, 18);
9615 arg20 = (
char *)lua_tostring(L, 19);
9616 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);
9618 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9628 free( arg17 ); arg17 = NULL;
9645 free( arg17 ); arg17 = NULL;
9659 arg1 = (
PLINT)lua_tonumber(L, 1);
9681 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
9687 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
9690 if ( temp3 !=
Alen )
9692 lua_pushfstring( L,
"Tables must be of same length." );
9696 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
9731 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9738 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
9743 lua_pushfstring( L,
"Tables must be of same length." );
9748 arg4 = (
PLBOOL)lua_tonumber(L, 3);
9749 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
9785 arg1 = (
PLFLT)lua_tonumber(L, 1);
9786 arg2 = (
PLFLT)lua_tonumber(L, 2);
9787 arg3 = (
PLFLT)lua_tonumber(L, 3);
9788 arg4 = (
PLFLT)lua_tonumber(L, 4);
9789 plsvpa(arg1,arg2,arg3,arg4);
9809 arg1 = (
PLINT)lua_tonumber(L, 1);
9810 arg2 = (
PLINT)lua_tonumber(L, 2);
9831 arg1 = (
PLINT)lua_tonumber(L, 1);
9832 arg2 = (
PLINT)lua_tonumber(L, 2);
9857 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9863 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9866 if ( temp3 !=
Alen )
9868 lua_pushfstring( L,
"Tables must be of same length." );
9872 arg4 = (
PLINT)lua_tonumber(L, 3);
9873 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
9905 arg1 = (
PLINT)lua_tonumber(L, 1);
9906 arg2 = (
PLINT)lua_tonumber(L, 2);
9937 char *arg1 = (
char *) 0 ;
9941 arg1 = (
char *)lua_tostring(L, 1);
9960 arg1 = (
PLFLT)lua_tonumber(L, 1);
9988 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
9989 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
9990 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
9991 cgrid27.
nx = cgrid27.
ny = 0;
10018 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10020 lua_pushfstring( L,
"Vectors must match matrix." );
10024 arg5 = (
PLFLT)lua_tonumber(L, 3);
10025 if(lua_gettop(L)>=4){
10030 if ( lua_isstring( L, 4 ) )
10032 const char* funcstr = lua_tostring( L, 4 );
10033 if ( strcmp(
"pltr0", funcstr ) == 0 )
10037 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10041 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10056 if(lua_gettop(L)>=5){
10061 lua_pushstring( L,
"xg" );
10062 lua_gettable( L, 5 );
10063 if ( !lua_istable( L, -1 ) )
10066 lua_pushstring( L,
"expected a table xg" );
10069 lua_rawgeti( L, -1, 1 );
10070 if ( lua_istable( L, -1 ) )
10072 else if ( lua_isnumber( L, -1 ) )
10078 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10082 if ( gridmode == 1 )
10084 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10092 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10105 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10108 lua_pushfstring( L,
"Vectors must match matrix." );
10116 lua_pushstring( L,
"yg" );
10117 lua_gettable( L, 5 );
10118 if ( !lua_istable( L, -1 ) )
10121 lua_pushstring( L,
"expected a table yg" );
10124 lua_rawgeti( L, -1, 1 );
10125 if ( gridmode == 2 )
10127 if ( !lua_istable( L, -1 ) )
10131 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10137 if ( !lua_isnumber( L, -1 ) )
10141 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10146 if ( gridmode == 1 )
10148 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10156 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10169 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10172 lua_pushfstring( L,
"Vectors must match matrix." );
10179 if ( gridmode == 1 )
10181 else if ( gridmode == 2 )
10185 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
10192 for ( i = 0; i < ii1; i++ )
10202 for ( i = 0; i < ii2; i++ )
10218 for ( i = 0; i <
Xlen; i++ )
10224 for ( i = 0; i <
Xlen; i++ )
10239 for ( i = 0; i < ii1; i++ )
10249 for ( i = 0; i < ii2; i++ )
10265 for ( i = 0; i <
Xlen; i++ )
10271 for ( i = 0; i <
Xlen; i++ )
10295 arg1 = (
PLFLT)lua_tonumber(L, 1);
10296 arg2 = (
PLFLT)lua_tonumber(L, 2);
10297 arg3 = (
PLFLT)lua_tonumber(L, 3);
10298 arg4 = (
PLFLT)lua_tonumber(L, 4);
10299 arg5 = (
PLFLT)lua_tonumber(L, 5);
10300 plvpas(arg1,arg2,arg3,arg4,arg5);
10324 arg1 = (
PLFLT)lua_tonumber(L, 1);
10325 arg2 = (
PLFLT)lua_tonumber(L, 2);
10326 arg3 = (
PLFLT)lua_tonumber(L, 3);
10327 arg4 = (
PLFLT)lua_tonumber(L, 4);
10328 plvpor(arg1,arg2,arg3,arg4);
10382 arg1 = (
PLFLT)lua_tonumber(L, 1);
10383 arg2 = (
PLFLT)lua_tonumber(L, 2);
10384 arg3 = (
PLFLT)lua_tonumber(L, 3);
10385 arg4 = (
PLFLT)lua_tonumber(L, 4);
10386 arg5 = (
PLFLT)lua_tonumber(L, 5);
10387 arg6 = (
PLFLT)lua_tonumber(L, 6);
10388 arg7 = (
PLFLT)lua_tonumber(L, 7);
10389 arg8 = (
PLFLT)lua_tonumber(L, 8);
10390 arg9 = (
PLFLT)lua_tonumber(L, 9);
10391 arg10 = (
PLFLT)lua_tonumber(L, 10);
10392 arg11 = (
PLFLT)lua_tonumber(L, 11);
10393 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
10411 arg1 = (
PLINT)lua_tonumber(L, 1);
10436 arg1 = (
PLFLT)lua_tonumber(L, 1);
10437 arg2 = (
PLFLT)lua_tonumber(L, 2);
10438 arg3 = (
PLFLT)lua_tonumber(L, 3);
10439 arg4 = (
PLFLT)lua_tonumber(L, 4);
10440 plwind(arg1,arg2,arg3,arg4);
10460 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
10461 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10464 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
10478 char *arg2 = (
char *) 0 ;
10494 if ( lua_isnil( L, 1 ) )
10498 else if ( lua_isstring( L, 1 ) )
10507 arg2 = (
char *)lua_tostring(L, 2);
10508 arg3 = (
PLFLT)lua_tonumber(L, 3);
10509 arg4 = (
PLFLT)lua_tonumber(L, 4);
10510 arg5 = (
PLFLT)lua_tonumber(L, 5);
10511 arg6 = (
PLFLT)lua_tonumber(L, 6);
10512 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
10541 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
10542 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
10543 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
10544 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
10545 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
10546 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
10551 if ( lua_isnil( L, 1 ) )
10555 else if ( lua_isstring( L, 1 ) )
10564 arg2 = (
PLFLT)lua_tonumber(L, 2);
10565 arg3 = (
PLFLT)lua_tonumber(L, 3);
10566 arg4 = (
PLFLT)lua_tonumber(L, 4);
10567 arg5 = (
PLFLT)lua_tonumber(L, 5);
10568 arg6 = (
PLFLT)lua_tonumber(L, 6);
10569 arg7 = (
PLFLT)lua_tonumber(L, 7);
10614 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
10615 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
10625 arg4 = (
PLFLT)lua_tonumber(L, 2);
10626 arg5 = (
PLFLT)lua_tonumber(L, 3);
10627 arg6 = (
PLFLT)lua_tonumber(L, 4);
10628 arg7 = (
PLFLT)lua_tonumber(L, 5);
10629 arg8 = (
PLFLT)lua_tonumber(L, 6);
10630 arg9 = (
PLFLT)lua_tonumber(L, 7);
10631 arg10 = (
PLFLT)lua_tonumber(L, 8);
10632 arg11 = (
PLFLT)lua_tonumber(L, 9);
10633 arg12 = (
PLFLT)lua_tonumber(L, 10);
10634 arg13 = (
PLFLT)lua_tonumber(L, 11);
10635 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10642 for ( i = 0; i < ii1; i++ )
10657 for ( i = 0; i < ii1; i++ )
10687 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
10688 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
10689 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
10690 cgrid213.
nx = cgrid213.
ny = 0;
10699 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
10700 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
10701 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
10702 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
10703 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
10704 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
10705 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
10706 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
10716 arg4 = (
PLFLT)lua_tonumber(L, 2);
10717 arg5 = (
PLFLT)lua_tonumber(L, 3);
10718 arg6 = (
PLFLT)lua_tonumber(L, 4);
10719 arg7 = (
PLFLT)lua_tonumber(L, 5);
10720 arg8 = (
PLFLT)lua_tonumber(L, 6);
10721 arg9 = (
PLFLT)lua_tonumber(L, 7);
10722 arg10 = (
PLFLT)lua_tonumber(L, 8);
10723 arg11 = (
PLFLT)lua_tonumber(L, 9);
10724 if(lua_gettop(L)>=10){
10729 if ( lua_isstring( L, 10 ) )
10731 const char* funcstr = lua_tostring( L, 10 );
10732 if ( strcmp(
"pltr0", funcstr ) == 0 )
10736 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10740 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10755 if(lua_gettop(L)>=11){
10760 lua_pushstring( L,
"xg" );
10761 lua_gettable( L, 11 );
10762 if ( !lua_istable( L, -1 ) )
10765 lua_pushstring( L,
"expected a table xg" );
10768 lua_rawgeti( L, -1, 1 );
10769 if ( lua_istable( L, -1 ) )
10771 else if ( lua_isnumber( L, -1 ) )
10777 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10781 if ( gridmode == 1 )
10783 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10784 if ( !cgrid113.
xg )
10791 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10799 if ( !cgrid213.
xg )
10804 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10807 lua_pushfstring( L,
"Vectors must match matrix." );
10815 lua_pushstring( L,
"yg" );
10816 lua_gettable( L, 11 );
10817 if ( !lua_istable( L, -1 ) )
10820 lua_pushstring( L,
"expected a table yg" );
10823 lua_rawgeti( L, -1, 1 );
10824 if ( gridmode == 2 )
10826 if ( !lua_istable( L, -1 ) )
10830 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10836 if ( !lua_isnumber( L, -1 ) )
10840 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10845 if ( gridmode == 1 )
10847 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10848 if ( !cgrid113.
yg )
10855 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10863 if ( !cgrid213.
yg )
10868 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10871 lua_pushfstring( L,
"Vectors must match matrix." );
10878 if ( gridmode == 1 )
10880 else if ( gridmode == 2 )
10884 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10891 for ( i = 0; i < ii1; i++ )
10907 for ( i = 0; i <
Xlen; i++ )
10913 for ( i = 0; i <
Xlen; i++ )
10928 for ( i = 0; i < ii1; i++ )
10944 for ( i = 0; i <
Xlen; i++ )
10950 for ( i = 0; i <
Xlen; i++ )
10994 char *arg1 = (
char *) 0 ;
10995 char *arg2 = (
char *) 0 ;
11000 arg1 = (
char *)lua_tostring(L, 1);
11001 arg2 = (
char *)lua_tostring(L, 2);
11002 plSetUsage((
char const *)arg1,(
char const *)arg2);
11055 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
11056 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
11062 for ( i = 0; i < ii1; i++ )
11077 for ( i = 0; i < ii1; i++ )
11100 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
11113 char *arg1 = (
char *) 0 ;
11116 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
11118 arg1 = (
char *) lua_tostring( L, 1 );
11120 plwarn((
char const *)arg1);
11134 char *arg1 = (
char *) 0 ;
11137 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
11139 arg1 = (
char *) lua_tostring( L, 1 );
11579 #define SWIGRUNTIME_DEBUG
11590 if (swig_module.
next==0) {
11602 if (!module_head) {
11612 if (iter==&swig_module) {
11617 }
while (iter!= module_head);
11622 swig_module.
next = module_head->
next;
11630 if (init == 0)
return;
11633 #ifdef SWIGRUNTIME_DEBUG
11634 printf(
"SWIG_InitializeModule: size %d\n", swig_module.
size);
11636 for (i = 0; i < swig_module.
size; ++i) {
11641 #ifdef SWIGRUNTIME_DEBUG
11642 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
11646 if (swig_module.
next != &swig_module) {
11651 #ifdef SWIGRUNTIME_DEBUG
11652 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
11656 #ifdef SWIGRUNTIME_DEBUG
11657 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
11666 while (cast->
type) {
11670 #ifdef SWIGRUNTIME_DEBUG
11671 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
11673 if (swig_module.
next != &swig_module) {
11675 #ifdef SWIGRUNTIME_DEBUG
11676 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
11681 #ifdef SWIGRUNTIME_DEBUG
11682 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
11689 #ifdef SWIGRUNTIME_DEBUG
11690 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
11692 if (!ocast) ret = 0;
11697 #ifdef SWIGRUNTIME_DEBUG
11698 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
11709 swig_module.
types[i] = type;
11711 swig_module.
types[i] = 0;
11713 #ifdef SWIGRUNTIME_DEBUG
11714 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
11715 for (i = 0; i < swig_module.
size; ++i) {
11718 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
11719 while (cast->
type) {
11720 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
11724 printf(
"---- Total casts: %d\n",j);
11726 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
11739 static int init_run = 0;
11741 if (init_run)
return;
11744 for (i = 0; i < swig_module.
size; i++) {
11752 equiv = equiv->
next;
11777 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
11783 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
11792 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
11803 for (i = 0; swig_variables[i].
name; i++){
11808 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
11810 for (i = 0; swig_types[i]; i++){
11811 if (swig_types[i]->clientdata){
11816 for (i = 0; swig_types[i]; i++){
11817 if (swig_types[i]->clientdata){
11823 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
11828 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
11848 " pl = plplotluac";