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
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 && *ne) {
366 for (nb = ne; *ne; ++ne) {
367 if (*ne ==
'|')
break;
382 const char* te = tb + strlen(tb);
384 while (!equiv && *ne) {
385 for (nb = ne; *ne; ++ne) {
386 if (*ne ==
'|')
break;
403 if (strcmp(iter->
type->
name, c) == 0) {
404 if (iter == ty->
cast)
430 if (iter->
type == from) {
431 if (iter == ty->
cast)
463 if (!ty || !ty->
dcast)
return ty;
464 while (ty && (ty->
dcast)) {
465 ty = (*ty->
dcast)(ptr);
489 if (!type)
return NULL;
490 if (type->
str != NULL) {
491 const char *last_name = type->
str;
493 for (s = type->
str; *s; s++)
494 if (*s ==
'|') last_name = s+1;
541 register size_t l = 0;
542 register size_t r = iter->
size - 1;
545 register size_t i = (l + r) >> 1;
546 const char *iname = iter->
types[i]->
name;
548 register int compare = strcmp(name, iname);
550 return iter->
types[i];
551 }
else if (compare < 0) {
557 }
else if (compare > 0) {
566 }
while (iter != end);
592 register size_t i = 0;
593 for (; i < iter->
size; ++i) {
595 return iter->
types[i];
598 }
while (iter != end);
610 static const char hex[17] =
"0123456789abcdef";
611 register const unsigned char *u = (
unsigned char *) ptr;
612 register const unsigned char *eu = u + sz;
613 for (; u != eu; ++u) {
614 register unsigned char uu = *u;
615 *(c++) = hex[(uu & 0xf0) >> 4];
616 *(c++) = hex[uu & 0xf];
626 register unsigned char *u = (
unsigned char *) ptr;
627 register const unsigned char *eu = u + sz;
628 for (; u != eu; ++u) {
629 register char d = *(c++);
630 register unsigned char uu;
631 if ((d >=
'0') && (d <=
'9'))
632 uu = ((d -
'0') << 4);
633 else if ((d >=
'a') && (d <=
'f'))
634 uu = ((d - (
'a'-10)) << 4);
638 if ((d >=
'0') && (d <=
'9'))
640 else if ((d >=
'a') && (d <=
'f'))
641 uu |= (d - (
'a'-10));
655 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
658 if (strlen(name) + 1 > (bsz - (r - buff)))
return 0;
666 if (strcmp(c,
"NULL") == 0) {
679 size_t lname = (name ? strlen(name) : 0);
680 if ((2*sz + 2 + lname) > bsz)
return 0;
684 strncpy(r,name,lname+1);
694 if (strcmp(c,
"NULL") == 0) {
729 #define SWIG_LUA_FLAVOR_LUA 1
730 #define SWIG_LUA_FLAVOR_ELUA 2
731 #define SWIG_LUA_FLAVOR_ELUAC 3
733 #if !defined(SWIG_LUA_TARGET)
734 # error SWIG_LUA_TARGET not defined
737 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
738 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
739 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
740 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
741 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
743 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
744 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
745 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
746 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
749 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
750 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
751 # define LSTRVAL LRO_STRVAL
766 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
767 # define lua_rawlen lua_strlen
768 #elif LUA_VERSION_NUM == 501
769 # define lua_rawlen lua_objlen
776 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
777 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
785 #define SWIG_LUA_INT 1
786 #define SWIG_LUA_FLOAT 2
787 #define SWIG_LUA_STRING 3
788 #define SWIG_LUA_POINTER 4
789 #define SWIG_LUA_BINARY 5
790 #define SWIG_LUA_CHAR 6
851 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
852 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
853 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
855 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
856 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
859 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
860 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
861 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
864 #define SWIG_contract_assert(expr, msg) \
865 if (!(expr)) { lua_pushstring(L, (char *) msg); goto fail; } else
868 #define SWIG_fail {goto fail;}
869 #define SWIG_fail_arg(func_name,argnum,type) \
870 {lua_pushfstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
871 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
873 #define SWIG_fail_ptr(func_name,argnum,type) \
874 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
875 #define SWIG_check_num_args(func_name,a,b) \
876 if (lua_gettop(L)<a || lua_gettop(L)>b) \
877 {lua_pushfstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
881 #define SWIG_Lua_get_table(L,n) \
882 (lua_pushstring(L, n), lua_rawget(L,-2))
884 #define SWIG_Lua_add_function(L,n,f) \
885 (lua_pushstring(L, n), \
886 lua_pushcfunction(L, f), \
890 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
903 lua_rawget(L,LUA_REGISTRYINDEX);
904 if (lua_islightuserdata(L,-1))
914 lua_pushlightuserdata(L,(
void*)module);
915 lua_rawset(L,LUA_REGISTRYINDEX);
928 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
930 lua_pushstring(L,
"This variable is immutable");
947 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
948 assert(lua_isrotable(L,1));
950 assert(lua_istable(L,1));
952 lua_getmetatable(L,1);
953 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
954 assert(lua_isrotable(L,-1));
956 assert(lua_istable(L,-1));
960 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
961 if (lua_isrotable(L,-1))
963 if (lua_istable(L,-1))
970 if (lua_iscfunction(L,-1))
991 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
992 assert(lua_isrotable(L,1));
994 assert(lua_istable(L,1));
996 lua_getmetatable(L,1);
997 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
998 assert(lua_isrotable(L,-1));
1000 assert(lua_istable(L,-1));
1004 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
1005 if (lua_isrotable(L,-1))
1007 if (lua_istable(L,-1))
1014 if (lua_iscfunction(L,-1))
1020 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA)
1032 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1036 assert(lua_istable(L,-1));
1037 lua_pushstring(L,name);
1043 lua_pushstring(L,
".get");
1046 lua_pushstring(L,
".set");
1049 lua_setmetatable(L,-2);
1050 #ifdef SWIG_LUA_MODULE_GLOBAL
1071 assert(lua_istable(L,-1));
1072 lua_getmetatable(L,-1);
1073 assert(lua_istable(L,-1));
1075 assert(lua_istable(L,-1));
1081 assert(lua_istable(L,-1));
1106 assert(lua_isuserdata(L,-2));
1107 lua_getmetatable(L,-2);
1108 assert(lua_istable(L,-1));
1110 assert(lua_istable(L,-1));
1115 if (lua_iscfunction(L,-1))
1125 assert(lua_istable(L,-1));
1129 if (lua_isfunction(L,-1))
1138 if (lua_iscfunction(L,-1))
1161 assert(lua_isuserdata(L,1));
1162 lua_getmetatable(L,1);
1163 assert(lua_istable(L,-1));
1166 if (lua_istable(L,-1))
1171 if (lua_iscfunction(L,-1))
1184 if (lua_iscfunction(L,-1))
1203 assert(lua_isuserdata(L,-1));
1222 assert(lua_isuserdata(L,1));
1223 unsigned long userData = (
unsigned long)lua_touserdata(L,1);
1224 lua_getmetatable(L,1);
1225 assert(lua_istable(L,-1));
1227 lua_getfield(L, -1,
".type");
1228 const char* className = lua_tostring(L, -1);
1231 sprintf(output,
"<%s userdata: %lX>", className, userData);
1233 lua_pushstring(L, (
const char*)output);
1243 assert(lua_isuserdata(L,-1));
1254 lua_pushstring(L,
"SWIG");
1255 lua_rawget(L,LUA_REGISTRYINDEX);
1256 if (!lua_istable(L,-1))
1259 lua_pushstring(L,
"SWIG");
1261 lua_rawset(L,LUA_REGISTRYINDEX);
1263 lua_pushstring(L,
"SWIG");
1264 lua_rawget(L,LUA_REGISTRYINDEX);
1272 lua_pushstring(L,cname);
1280 assert(lua_istable(L,-1));
1282 assert(lua_istable(L,-1));
1288 assert(lua_istable(L,-1));
1299 for(i=0;clss->
bases[i];i++)
1309 assert(lua_istable(L,-1));
1338 if (clss->
bases[i]==0)
1358 lua_pushstring(L,clss->
name);
1361 lua_pushstring(L,
".type");
1362 lua_pushstring(L,clss->
name);
1365 lua_pushstring(L,
".get");
1369 lua_pushstring(L,
".set");
1373 lua_pushstring(L,
".fn");
1403 if (lua_istable(L,-1))
1405 lua_setmetatable(L,-2);
1426 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
1437 if (lua_isnil(L,index)){*ptr=0;
return SWIG_OK;}
1463 int argnum,
const char* func_name){
1466 lua_pushfstring(L,
"Error in %s, expected a %s at argument number %d\n",
1467 func_name,(type && type->
str)?type->
str:
"void*",argnum);
1481 memcpy(raw->
data,ptr,size);
1491 if (type==0 || type==raw->
type)
1493 memcpy(ptr,raw->
data,size);
1503 if (lua_isuserdata(L,tp))
1508 return "userdata (unknown type)";
1510 return lua_typename(L,lua_type(L,tp));
1527 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1532 result=(usr1->
ptr==usr2->
ptr);
1533 lua_pushboolean(L,result);
1541 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1546 for (i = 0; constants[i].
type; i++) {
1547 switch(constants[i].type) {
1549 lua_pushstring(L,constants[i].
name);
1550 lua_pushnumber(L,(lua_Number)constants[i].lvalue);
1554 lua_pushstring(L,constants[i].name);
1555 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
1559 lua_pushstring(L,constants[i].name);
1560 lua_pushfstring(L,
"%c",(
char)constants[i].lvalue);
1564 lua_pushstring(L,constants[i].name);
1565 lua_pushstring(L,(
char *) constants[i].pvalue);
1569 lua_pushstring(L,constants[i].name);
1574 lua_pushstring(L,constants[i].name);
1575 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
1589 #ifndef SWIG_DOSTRING_FAIL
1590 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
1600 if (str==0 || str[0]==0)
return 0;
1602 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
1603 ok=luaL_dostring(L,str);
1605 ok=lua_dostring(L,str);
1623 #define SWIGTYPE_p_PLGraphicsIn swig_types[0]
1624 #define SWIGTYPE_p_char swig_types[1]
1625 #define SWIGTYPE_p_double swig_types[2]
1626 #define SWIGTYPE_p_f_double_double__int swig_types[3]
1627 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
1628 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
1629 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
1630 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
1631 #define SWIGTYPE_p_int swig_types[8]
1632 #define SWIGTYPE_p_p_char swig_types[9]
1633 #define SWIGTYPE_p_p_double swig_types[10]
1634 #define SWIGTYPE_p_unsigned_int swig_types[11]
1637 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1638 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1642 #define SWIG_name "plplotluac"
1643 #define SWIG_init luaopen_plplotluac
1644 #define SWIG_init_user luaopen_plplotluac_user
1646 #define SWIG_LUACODE luaopen_plplotluac_luacode
1651 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
1652 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
1656 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
1657 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
1659 for ( i = 0; i < size; i++ ) { \
1660 lua_rawgeti( L, index, i + 1 ); \
1661 if ( lua_isnumber( L, -1 ) ) { \
1662 array[i] = (TYPE) lua_tonumber( L, -1 ); \
1671 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
1674 if ( !lua_istable( L, index ) ) { \
1675 lua_pushstring( L, "expected a table" ); \
1678 *size = SWIG_itable_size( L, index ); \
1679 if ( *size < 1 ) { \
1680 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
1681 array[0] = (TYPE) 0; \
1684 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
1685 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
1686 lua_pushstring( L, "table must contain numbers" ); \
1687 LUA_FREE_ARRAY( array ); \
1702 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
1703 #define SWIG_FREE_ARRAY(PTR) delete[] PTR
1705 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
1706 #define SWIG_FREE_ARRAY(PTR) free(PTR)
1713 lua_rawgeti(L,index,n+1);
1714 if (lua_isnil(L,-1))
break;
1726 while (lua_next(L, index) != 0) {
1734 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
1735 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
1737 for (i = 0; i < size; i++) {\
1738 lua_rawgeti(L,index,i+1);\
1739 if (lua_isnumber(L,-1)){\
1740 array[i] = (TYPE)lua_tonumber(L,-1);\
1749 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
1751 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
1752 lua_pushfstring(L,"expected a table of size %d",size);\
1755 array=SWIG_ALLOC_ARRAY(TYPE,size);\
1756 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
1757 lua_pushstring(L,"table must contain numbers");\
1758 SWIG_FREE_ARRAY(array);\
1763 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
1766 if (!lua_istable(L,index)) {\
1767 lua_pushstring(L,"expected a table");\
1770 *size=SWIG_itable_size(L,index);\
1772 lua_pushstring(L,"table appears to be empty");\
1775 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
1776 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
1777 lua_pushstring(L,"table must contain numbers");\
1778 SWIG_FREE_ARRAY(array);\
1783 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
1786 for (i = 0; i < size; i++){\
1787 lua_pushnumber(L,(lua_Number)array[i]);\
1788 lua_rawseti(L,-2,i+1); \
1805 for (i = 0; i < size; i++) {
1806 lua_rawgeti(L,index,i+1);
1807 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
1818 lua_pushfstring(L,
"expected a table of size %d",size);
1823 lua_pushfstring(L,
"table must contain pointers of type %s",type->
name);
1831 if (!lua_istable(L,index)) {
1832 lua_pushstring(L,
"expected a table");
1837 lua_pushstring(L,
"table appears to be empty");
1842 lua_pushfstring(L,
"table must contain pointers of type %s",type->
name);
1851 for (i = 0; i < size; i++){
1853 lua_rawseti(L,-2,i+1);
1868 if ( !lua_istable( L, index ) )
1870 lua_pushstring( L,
"expected a table" );
1876 lua_pushstring( L,
"table appears to be empty" );
1880 for ( i = 0; i < *nx; i++ )
1883 lua_rawgeti( L, index, 1 );
1884 if ( !lua_istable( L, -1 ) )
1887 lua_pushstring( L,
"expected a table" );
1894 lua_pushstring( L,
"table appears to be empty" );
1900 for ( i = 0; i < *nx; i++ )
1902 lua_rawgeti( L, index, i + 1 );
1903 if ( !lua_istable( L, -1 ) )
1906 lua_pushstring( L,
"expected a table" );
1907 for ( j = 0; j < *ny; j++ )
1915 lua_pushstring( L,
"inconsistent table sizes" );
1916 for ( j = 0; j < i; j++ )
1922 for ( j = 0; j < *ny; j++ )
1924 lua_rawgeti( L, -1, j + 1 );
1925 if ( lua_isnumber( L, -1 ) )
1927 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
1932 lua_pushstring( L,
"table must contain numbers" );
1933 for ( j = 0; j < i + 1; j++ )
1954 PLFLT *xtemp, *ytemp;
1960 fprintf( stderr,
"Lua state is not set!" );
1966 lua_pushnumber(
myL, n );
1967 SWIG_write_double_num_array(
myL, x, n );
1968 SWIG_write_double_num_array(
myL, y, n );
1971 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
1972 fprintf( stderr,
"error running function `%s':%s",
1976 if ( !lua_istable(
myL, -2 ) )
1978 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
1981 if ( !lua_istable(
myL, -1 ) )
1983 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
1986 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
1987 if ( !xtemp || len != n )
1989 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
1992 for ( i = 0; i < n; i++ )
1996 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
1997 if ( !ytemp || len != n )
1999 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
2002 for ( i = 0; i < n; i++ )
2037 fprintf( stderr,
"Lua state is not set!" );
2043 lua_pushnumber(
myL, x );
2044 lua_pushnumber(
myL, y );
2047 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2048 fprintf( stderr,
"error running function `%s':%s",
2052 if ( !lua_isnumber(
myL, -2 ) )
2054 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
2057 if ( !lua_isnumber(
myL, -1 ) )
2059 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
2062 *tx = lua_tonumber(
myL, -2 );
2063 *ty = lua_tonumber(
myL, -1 );
2081 fprintf( stderr,
"Lua state is not set!" );
2086 lua_getglobal(
myL, myct_funcstr );
2087 lua_pushnumber(
myL, x );
2088 lua_pushnumber(
myL, y );
2091 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2092 fprintf( stderr,
"error running function `%s':%s",
2093 myct_funcstr, lua_tostring(
myL, -1 ) );
2096 if ( !lua_isnumber(
myL, -2 ) )
2098 fprintf( stderr,
"function `%s' must return a number as 1st result", myct_funcstr );
2101 if ( !lua_isnumber(
myL, -1 ) )
2103 fprintf( stderr,
"function `%s' must return a number as 2nd result", myct_funcstr );
2106 *tx = lua_tonumber(
myL, -2 );
2107 *ty = lua_tonumber(
myL, -1 );
2120 fprintf( stderr,
"Lua state is not set!" );
2125 lua_getglobal(
myL, mylabel_funcstr );
2126 lua_pushnumber(
myL, axis );
2127 lua_pushnumber(
myL, value );
2130 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
2131 fprintf( stderr,
"error running function `%s':%s",
2132 mylabel_funcstr, lua_tostring(
myL, -1 ) );
2135 if ( !lua_isstring(
myL, -1 ) )
2137 fprintf( stderr,
"function `%s' must return a string as result", mylabel_funcstr );
2140 strncpy( label, lua_tostring(
myL, -1 ), length );
2149 int ret = lua_isstring(L, idx);
2151 ret = lua_isnil(L, idx);
2165 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
2171 arg2 = (int)lua_tonumber(L, 2);
2172 if (arg1) (arg1)->type = arg2;
2196 result = (int) ((arg1)->type);
2197 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2215 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
2222 arg2 = (
unsigned int)lua_tonumber(L, 2);
2223 if (arg1) (arg1)->state = arg2;
2238 unsigned int result;
2247 result = (
unsigned int) ((arg1)->state);
2248 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2266 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
2273 arg2 = (
unsigned int)lua_tonumber(L, 2);
2274 if (arg1) (arg1)->keysym = arg2;
2289 unsigned int result;
2298 result = (
unsigned int) ((arg1)->keysym);
2299 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2317 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
2324 arg2 = (
unsigned int)lua_tonumber(L, 2);
2325 if (arg1) (arg1)->button = arg2;
2340 unsigned int result;
2349 result = (
unsigned int) ((arg1)->button);
2350 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2368 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
2374 arg2 = (
PLINT)lua_tonumber(L, 2);
2375 if (arg1) (arg1)->subwindow = arg2;
2399 result = (
PLINT) ((arg1)->subwindow);
2400 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2424 arg2 = (
char *)lua_tostring(L, 2);
2427 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
2456 result = (
char *)(
char *) ((arg1)->
string);
2457 lua_pushstring(L,(
const char *)result); SWIG_arg++;
2475 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
2481 arg2 = (int)lua_tonumber(L, 2);
2482 if (arg1) (arg1)->pX = arg2;
2506 result = (int) ((arg1)->pX);
2507 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2525 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
2531 arg2 = (int)lua_tonumber(L, 2);
2532 if (arg1) (arg1)->pY = arg2;
2556 result = (int) ((arg1)->pY);
2557 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2575 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
2581 arg2 = (
PLFLT)lua_tonumber(L, 2);
2582 if (arg1) (arg1)->dX = arg2;
2606 result = (
PLFLT) ((arg1)->dX);
2607 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2625 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
2631 arg2 = (
PLFLT)lua_tonumber(L, 2);
2632 if (arg1) (arg1)->dY = arg2;
2656 result = (
PLFLT) ((arg1)->dY);
2657 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2675 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
2681 arg2 = (
PLFLT)lua_tonumber(L, 2);
2682 if (arg1) (arg1)->wX = arg2;
2706 result = (
PLFLT) ((arg1)->wX);
2707 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2725 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
2731 arg2 = (
PLFLT)lua_tonumber(L, 2);
2732 if (arg1) (arg1)->wY = arg2;
2756 result = (
PLFLT) ((arg1)->wY);
2757 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2787 free((
char *) arg1);
2817 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
2818 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
2819 arg1 = (
PLINT)lua_tonumber(L, 1);
2820 arg2 = (
PLINT)lua_tonumber(L, 2);
2841 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
2842 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
2843 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
2844 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
2845 arg1 = (
PLFLT)lua_tonumber(L, 1);
2846 arg2 = (
PLFLT)lua_tonumber(L, 2);
2847 arg3 = (
PLFLT)lua_tonumber(L, 3);
2848 arg4 = (
PLINT)lua_tonumber(L, 4);
2867 arg1 = (
PLINT)lua_tonumber(L, 1);
2900 arg1 = (
PLFLT)lua_tonumber(L, 1);
2901 arg2 = (
PLFLT)lua_tonumber(L, 2);
2902 arg3 = (
PLFLT)lua_tonumber(L, 3);
2903 arg4 = (
PLFLT)lua_tonumber(L, 4);
2904 arg5 = (
PLFLT)lua_tonumber(L, 5);
2905 arg6 = (
PLFLT)lua_tonumber(L, 6);
2906 arg7 = (
PLFLT)lua_tonumber(L, 7);
2907 arg8 = (
PLBOOL)lua_tonumber(L, 8);
2908 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
2924 char *arg3 = (
char *) 0 ;
2927 char *arg6 = (
char *) 0 ;
2940 arg1 = (
PLFLT)lua_tonumber(L, 1);
2941 arg2 = (
PLFLT)lua_tonumber(L, 2);
2942 arg3 = (
char *)lua_tostring(L, 3);
2943 arg4 = (
PLFLT)lua_tonumber(L, 4);
2944 arg5 = (
PLINT)lua_tonumber(L, 5);
2945 arg6 = (
char *)lua_tostring(L, 6);
2946 arg7 = (
PLFLT)lua_tonumber(L, 7);
2947 arg8 = (
PLINT)lua_tonumber(L, 8);
2948 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
2972 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
2978 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
2981 if ( temp3 !=
Alen )
2983 lua_pushfstring( L,
"Tables must be of same length." );
2987 arg4 = (
PLINT)lua_tonumber(L, 3);
2988 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
3036 arg7 = (
PLFLT)lua_tonumber(L, 1);
3037 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3039 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
3040 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
3041 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3042 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3043 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3044 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
3073 char *arg1 = (
char *) 0 ;
3076 char *arg4 = (
char *) 0 ;
3087 arg1 = (
char *)lua_tostring(L, 1);
3088 arg2 = (
PLFLT)lua_tonumber(L, 2);
3089 arg3 = (
PLINT)lua_tonumber(L, 3);
3090 arg4 = (
char *)lua_tostring(L, 4);
3091 arg5 = (
PLFLT)lua_tonumber(L, 5);
3092 arg6 = (
PLINT)lua_tonumber(L, 6);
3093 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
3107 char *arg1 = (
char *) 0 ;
3108 char *arg2 = (
char *) 0 ;
3111 char *arg5 = (
char *) 0 ;
3112 char *arg6 = (
char *) 0 ;
3115 char *arg9 = (
char *) 0 ;
3116 char *arg10 = (
char *) 0 ;
3133 arg1 = (
char *)lua_tostring(L, 1);
3134 arg2 = (
char *)lua_tostring(L, 2);
3135 arg3 = (
PLFLT)lua_tonumber(L, 3);
3136 arg4 = (
PLINT)lua_tonumber(L, 4);
3137 arg5 = (
char *)lua_tostring(L, 5);
3138 arg6 = (
char *)lua_tostring(L, 6);
3139 arg7 = (
PLFLT)lua_tonumber(L, 7);
3140 arg8 = (
PLINT)lua_tonumber(L, 8);
3141 arg9 = (
char *)lua_tostring(L, 9);
3142 arg10 = (
char *)lua_tostring(L, 10);
3143 arg11 = (
PLFLT)lua_tonumber(L, 11);
3144 arg12 = (
PLINT)lua_tonumber(L, 12);
3145 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);
3172 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
3173 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
3174 arg1 = (
PLFLT)lua_tonumber(L, 1);
3175 arg2 = (
PLFLT)lua_tonumber(L, 2);
3178 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3179 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3180 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3213 arg1 = (
PLINT)lua_tonumber(L, 1);
3232 arg1 = (
PLFLT)lua_tonumber(L, 1);
3260 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
3261 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
3262 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
3263 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
3264 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
3265 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
3266 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
3267 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
3268 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
3269 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
3270 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
3271 arg1 = (
PLFLT)lua_tonumber(L, 1);
3272 arg2 = (
PLFLT)lua_tonumber(L, 2);
3273 arg3 = (
PLFLT)lua_tonumber(L, 3);
3274 arg4 = (
PLINT)lua_tonumber(L, 4);
3275 arg5 = (
PLBOOL)lua_tonumber(L, 5);
3276 arg6 = (
PLINT)lua_tonumber(L, 6);
3277 arg7 = (
PLINT)lua_tonumber(L, 7);
3278 arg8 = (
PLINT)lua_tonumber(L, 8);
3279 arg9 = (
PLINT)lua_tonumber(L, 9);
3280 arg10 = (
PLINT)lua_tonumber(L, 10);
3281 arg11 = (
PLFLT)lua_tonumber(L, 11);
3282 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
3312 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
3313 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
3314 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
3315 cgrid211.
nx = cgrid211.
ny = 0;
3337 arg4 = (
PLINT)lua_tonumber(L, 2);
3338 arg5 = (
PLINT)lua_tonumber(L, 3);
3339 arg6 = (
PLINT)lua_tonumber(L, 4);
3340 arg7 = (
PLINT)lua_tonumber(L, 5);
3343 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
3348 if(lua_gettop(L)>=7){
3353 if ( lua_isstring( L, 7 ) )
3355 const char* funcstr = lua_tostring( L, 7 );
3356 if ( strcmp(
"pltr0", funcstr ) == 0 )
3360 else if ( strcmp(
"pltr1", funcstr ) == 0 )
3364 else if ( strcmp(
"pltr2", funcstr ) == 0 )
3379 if(lua_gettop(L)>=8){
3384 lua_pushstring( L,
"xg" );
3385 lua_gettable( L, 8 );
3386 if ( !lua_istable( L, -1 ) )
3389 lua_pushstring( L,
"expected a table xg" );
3392 lua_rawgeti( L, -1, 1 );
3393 if ( lua_istable( L, -1 ) )
3395 else if ( lua_isnumber( L, -1 ) )
3401 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
3405 if ( gridmode == 1 )
3407 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
3415 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
3428 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3431 lua_pushfstring( L,
"Vectors must match matrix." );
3439 lua_pushstring( L,
"yg" );
3440 lua_gettable( L, 8 );
3441 if ( !lua_istable( L, -1 ) )
3444 lua_pushstring( L,
"expected a table yg" );
3447 lua_rawgeti( L, -1, 1 );
3448 if ( gridmode == 2 )
3450 if ( !lua_istable( L, -1 ) )
3454 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
3460 if ( !lua_isnumber( L, -1 ) )
3464 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
3469 if ( gridmode == 1 )
3471 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
3479 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
3492 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3495 lua_pushfstring( L,
"Vectors must match matrix." );
3502 if ( gridmode == 1 )
3504 else if ( gridmode == 2 )
3508 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
3515 for ( i = 0; i < ii1; i++ )
3534 for ( i = 0; i <
Xlen; i++ )
3540 for ( i = 0; i <
Xlen; i++ )
3555 for ( i = 0; i < ii1; i++ )
3574 for ( i = 0; i <
Xlen; i++ )
3580 for ( i = 0; i <
Xlen; i++ )
3609 arg1 = (
PLINT)lua_tonumber(L, 1);
3610 arg2 = (
PLINT)lua_tonumber(L, 2);
3611 arg3 = (
PLINT)lua_tonumber(L, 3);
3612 arg4 = (
PLINT)lua_tonumber(L, 4);
3613 arg5 = (
PLINT)lua_tonumber(L, 5);
3614 arg6 = (
PLFLT)lua_tonumber(L, 6);
3615 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3617 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
3635 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
3636 arg1 = (
PLINT)lua_tonumber(L, 1);
3637 arg2 = (
PLBOOL)lua_tonumber(L, 2);
3698 arg1 = (
PLFLT)lua_tonumber(L, 1);
3699 arg2 = (
PLFLT)lua_tonumber(L, 2);
3700 arg3 = (
PLFLT)lua_tonumber(L, 3);
3701 arg4 = (
PLFLT)lua_tonumber(L, 4);
3702 arg5 = (
PLINT)lua_tonumber(L, 5);
3703 arg6 = (
PLINT)lua_tonumber(L, 6);
3704 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
3732 arg1 = (
PLFLT)lua_tonumber(L, 1);
3733 arg2 = (
PLFLT)lua_tonumber(L, 2);
3734 arg3 = (
PLFLT)lua_tonumber(L, 3);
3735 arg4 = (
PLFLT)lua_tonumber(L, 4);
3736 arg5 = (
PLINT)lua_tonumber(L, 5);
3737 arg6 = (
PLINT)lua_tonumber(L, 6);
3738 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
3778 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3784 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3787 if ( temp3 !=
Alen )
3789 lua_pushfstring( L,
"Tables must be of same length." );
3794 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3797 if ( temp4 !=
Alen )
3799 lua_pushfstring( L,
"Tables must be of same length." );
3803 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3845 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3851 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3854 if ( temp3 !=
Alen )
3856 lua_pushfstring( L,
"Tables must be of same length." );
3861 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3864 if ( temp4 !=
Alen )
3866 lua_pushfstring( L,
"Tables must be of same length." );
3870 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
3926 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3932 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3935 if ( temp3 !=
Alen )
3937 lua_pushfstring( L,
"Tables must be of same length." );
3941 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
3977 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3983 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3986 if ( temp3 !=
Alen )
3988 lua_pushfstring( L,
"Tables must be of same length." );
3993 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
3996 if ( temp4 !=
Alen )
3998 lua_pushfstring( L,
"Tables must be of same length." );
4002 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4041 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
4044 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4050 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4053 if ( temp3 !=
Alen )
4055 lua_pushfstring( L,
"Tables must be of same length." );
4059 arg4 = (
PLFLT)lua_tonumber(L, 3);
4060 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4106 arg1 = (
PLINT)lua_tonumber(L, 1);
4125 arg1 = (
PLINT)lua_tonumber(L, 1);
4150 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4151 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4177 arg1 = (
PLINT)lua_tonumber(L, 1);
4180 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4181 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4182 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4211 arg1 = (
PLINT)lua_tonumber(L, 1);
4212 plgcol0a(arg1,arg2,arg3,arg4,arg5);
4214 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4215 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4216 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4217 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4243 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4244 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4245 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4274 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4275 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4276 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4277 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4297 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4310 char *arg1 = (
char *) 0 ;
4320 lua_pushstring( L, arg1 );
4351 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4352 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4353 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4354 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4374 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4403 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4404 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4405 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4406 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4432 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4433 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4434 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4454 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4467 char *arg1 = (
char *) 0 ;
4477 lua_pushstring( L, arg1 );
4505 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4506 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4507 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4527 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4560 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
4562 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4563 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4564 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4565 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4566 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4567 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4610 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
4611 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
4614 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4620 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
4623 if ( temp2 !=
Alen )
4625 lua_pushfstring( L,
"Tables must be of same length." );
4631 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
4636 lua_pushfstring( L,
"Tables must be of same length." );
4643 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
4651 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
4659 for ( i = 0; i <
Xlen; i++ )
4662 for ( i = 0; i <
Xlen; i++ )
4669 arg10 = (
PLINT)lua_tonumber(L, 6);
4670 arg11 = (
PLFLT)lua_tonumber(L, 7);
4671 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
4679 for ( i = 0; i <
Xlen; i++ )
4681 SWIG_write_double_num_array( L, arg9[i],
Ylen );
4682 lua_rawseti( L, -2, i + 1 );
4706 for ( i = 0; i <
Xlen; i++ )
4735 for ( i = 0; i <
Xlen; i++ )
4761 plgspa(arg1,arg2,arg3,arg4);
4763 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4764 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4765 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4766 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4786 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4799 char *arg1 = (
char *) 0 ;
4809 lua_pushstring( L, arg1 );
4838 plgvpd(arg1,arg2,arg3,arg4);
4840 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4841 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4842 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4843 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4870 plgvpw(arg1,arg2,arg3,arg4);
4872 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4873 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4874 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4875 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4898 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4899 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4922 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4923 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4946 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4947 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4974 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4979 arg3 = (
PLFLT)lua_tonumber(L, 2);
4980 arg4 = (
PLFLT)lua_tonumber(L, 3);
4981 arg5 = (
PLINT)lua_tonumber(L, 4);
4982 arg6 = (
PLINT)lua_tonumber(L, 5);
4983 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5020 arg1 = (
PLFLT)lua_tonumber(L, 1);
5021 arg2 = (
PLFLT)lua_tonumber(L, 2);
5022 arg3 = (
PLFLT)lua_tonumber(L, 3);
5023 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5025 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5026 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5027 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5066 arg1 = (
PLFLT)lua_tonumber(L, 1);
5067 arg2 = (
PLFLT)lua_tonumber(L, 2);
5068 arg3 = (
PLFLT)lua_tonumber(L, 3);
5069 arg4 = (
PLFLT)lua_tonumber(L, 4);
5070 pljoin(arg1,arg2,arg3,arg4);
5084 char *arg1 = (
char *) 0 ;
5085 char *arg2 = (
char *) 0 ;
5086 char *arg3 = (
char *) 0 ;
5092 arg1 = (
char *)lua_tostring(L, 1);
5093 arg2 = (
char *)lua_tostring(L, 2);
5094 arg3 = (
char *)lua_tostring(L, 3);
5095 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
5128 char **arg20 = (
char **) 0 ;
5139 char **arg31 = (
char **) 0 ;
5196 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
5197 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
5198 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
5199 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
5200 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
5201 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
5202 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
5203 arg3 = (
PLINT)lua_tonumber(L, 1);
5204 arg4 = (
PLINT)lua_tonumber(L, 2);
5205 arg5 = (
PLFLT)lua_tonumber(L, 3);
5206 arg6 = (
PLFLT)lua_tonumber(L, 4);
5207 arg7 = (
PLFLT)lua_tonumber(L, 5);
5208 arg8 = (
PLINT)lua_tonumber(L, 6);
5209 arg9 = (
PLINT)lua_tonumber(L, 7);
5210 arg10 = (
PLINT)lua_tonumber(L, 8);
5211 arg11 = (
PLINT)lua_tonumber(L, 9);
5212 arg12 = (
PLINT)lua_tonumber(L, 10);
5214 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
5219 arg15 = (
PLFLT)lua_tonumber(L, 12);
5220 arg16 = (
PLFLT)lua_tonumber(L, 13);
5221 arg17 = (
PLFLT)lua_tonumber(L, 14);
5222 arg18 = (
PLFLT)lua_tonumber(L, 15);
5224 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
5227 if ( temp19 !=
Alen )
5229 lua_pushfstring( L,
"Tables must be of same length." );
5239 lua_pushfstring( L,
"Tables must be of same length." );
5242 arg20 = malloc(
sizeof (
char* ) *
Alen );
5243 for ( i = 1; i <=
Alen; i++ )
5245 lua_rawgeti( L, 17, i );
5246 if ( lua_isstring( L, -1 ) )
5248 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5253 lua_pushfstring( L,
"Requires a sequence of strings." );
5260 if(lua_gettop(L)>=18){
5262 if ( lua_isnil( L, 18 ) )
5268 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
5271 if ( temp21 !=
Alen )
5273 lua_pushfstring( L,
"Tables must be of same length." );
5279 if(lua_gettop(L)>=19){
5281 if ( lua_isnil( L, 19 ) )
5287 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
5290 if ( temp22 !=
Alen )
5292 lua_pushfstring( L,
"Tables must be of same length." );
5298 if(lua_gettop(L)>=20){
5300 if ( lua_isnil( L, 20 ) )
5306 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
5309 if ( temp23 !=
Alen )
5311 lua_pushfstring( L,
"Tables must be of same length." );
5317 if(lua_gettop(L)>=21){
5319 if ( lua_isnil( L, 21 ) )
5325 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
5328 if ( temp24 !=
Alen )
5330 lua_pushfstring( L,
"Tables must be of same length." );
5336 if(lua_gettop(L)>=22){
5338 if ( lua_isnil( L, 22 ) )
5344 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
5347 if ( temp25 !=
Alen )
5349 lua_pushfstring( L,
"Tables must be of same length." );
5355 if(lua_gettop(L)>=23){
5357 if ( lua_isnil( L, 23 ) )
5363 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
5366 if ( temp26 !=
Alen )
5368 lua_pushfstring( L,
"Tables must be of same length." );
5374 if(lua_gettop(L)>=24){
5376 if ( lua_isnil( L, 24 ) )
5382 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
5385 if ( temp27 !=
Alen )
5387 lua_pushfstring( L,
"Tables must be of same length." );
5393 if(lua_gettop(L)>=25){
5395 if ( lua_isnil( L, 25 ) )
5401 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
5404 if ( temp28 !=
Alen )
5406 lua_pushfstring( L,
"Tables must be of same length." );
5412 if(lua_gettop(L)>=26){
5414 if ( lua_isnil( L, 26 ) )
5420 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
5423 if ( temp29 !=
Alen )
5425 lua_pushfstring( L,
"Tables must be of same length." );
5431 if(lua_gettop(L)>=27){
5433 if ( lua_isnil( L, 27 ) )
5439 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
5442 if ( temp30 !=
Alen )
5444 lua_pushfstring( L,
"Tables must be of same length." );
5450 if(lua_gettop(L)>=28){
5457 lua_pushfstring( L,
"Tables must be of same length." );
5460 arg31 = malloc(
sizeof (
char* ) *
Alen );
5461 for ( i = 1; i <=
Alen; i++ )
5463 lua_rawgeti( L, 28, i );
5464 if ( lua_isstring( L, -1 ) )
5466 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
5471 lua_pushfstring( L,
"Requires a sequence of strings." );
5479 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);
5481 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5482 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5492 free( arg20 ); arg20 = NULL;
5528 free( arg31 ); arg31 = NULL;
5545 free( arg20 ); arg20 = NULL;
5581 free( arg31 ); arg31 = NULL;
5608 char **arg18 = (
char **) 0 ;
5610 char **arg20 = (
char **) 0 ;
5625 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
5626 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
5627 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
5628 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
5629 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
5630 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
5631 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
5632 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
5633 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
5634 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
5635 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
5636 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
5637 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
5638 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
5639 arg3 = (
PLINT)lua_tonumber(L, 1);
5640 arg4 = (
PLINT)lua_tonumber(L, 2);
5641 arg5 = (
PLFLT)lua_tonumber(L, 3);
5642 arg6 = (
PLFLT)lua_tonumber(L, 4);
5643 arg7 = (
PLFLT)lua_tonumber(L, 5);
5644 arg8 = (
PLFLT)lua_tonumber(L, 6);
5645 arg9 = (
PLINT)lua_tonumber(L, 7);
5646 arg10 = (
PLINT)lua_tonumber(L, 8);
5647 arg11 = (
PLINT)lua_tonumber(L, 9);
5648 arg12 = (
PLFLT)lua_tonumber(L, 10);
5649 arg13 = (
PLFLT)lua_tonumber(L, 11);
5650 arg14 = (
PLINT)lua_tonumber(L, 12);
5651 arg15 = (
PLFLT)lua_tonumber(L, 13);
5653 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
5664 lua_pushfstring( L,
"Tables must be of same length." );
5667 arg18 = malloc(
sizeof (
char* ) *
Alen );
5668 for ( i = 1; i <=
Alen; i++ )
5670 lua_rawgeti( L, 15, i );
5671 if ( lua_isstring( L, -1 ) )
5673 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
5678 lua_pushfstring( L,
"Requires a sequence of strings." );
5690 arg20 = malloc(
sizeof (
char* ) *
Alen );
5691 for ( i = 1; i <=
Alen; i++ )
5693 lua_rawgeti( L, 16, i );
5694 if ( lua_isstring( L, -1 ) )
5696 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5701 lua_pushfstring( L,
"Requires a sequence of strings." );
5708 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
5711 if ( temp21 !=
Alen )
5713 lua_pushfstring( L,
"Tables must be of same length." );
5718 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
5721 if ( temp22 !=
Alen )
5723 lua_pushfstring( L,
"Tables must be of same length." );
5730 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
5733 if ( temp23 !=
Alen )
5735 lua_pushfstring( L,
"Tables must be of same length." );
5741 for ( i = 0; i <
Xlen; i++ )
5742 if ( arg23[i] >
Ylen )
5751 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
5753 lua_pushfstring( L,
"Vectors must match matrix." );
5757 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);
5759 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5760 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5767 free( arg18 ); arg18 = NULL;
5773 free( arg20 ); arg20 = NULL;
5790 for ( i = 0; i < ii24; i++ )
5806 free( arg18 ); arg18 = NULL;
5812 free( arg20 ); arg20 = NULL;
5829 for ( i = 0; i < ii24; i++ )
5846 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
5847 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
5848 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
5849 arg1 = (
PLFLT)lua_tonumber(L, 1);
5850 arg2 = (
PLFLT)lua_tonumber(L, 2);
5851 arg3 = (
PLFLT)lua_tonumber(L, 3);
5874 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5880 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5883 if ( temp3 !=
Alen )
5885 lua_pushfstring( L,
"Tables must be of same length." );
5889 plline(arg1,(
double const *)arg2,(
double const *)arg3);
5925 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5931 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
5934 if ( temp3 !=
Alen )
5936 lua_pushfstring( L,
"Tables must be of same length." );
5941 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
5944 if ( temp4 !=
Alen )
5946 lua_pushfstring( L,
"Tables must be of same length." );
5950 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
5986 arg1 = (
PLINT)lua_tonumber(L, 1);
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);
6040 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
6053 for ( i = 0; i < ii3; i++ )
6074 for ( i = 0; i < ii3; i++ )
6100 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6107 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6120 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6122 lua_pushfstring( L,
"Vectors must match matrix." );
6126 arg6 = (
PLINT)lua_tonumber(L, 4);
6129 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6134 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6147 for ( i = 0; i < ii3; i++ )
6171 for ( i = 0; i < ii3; i++ )
6193 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6206 char *arg1 = (
char *) 0 ;
6210 char *arg5 = (
char *) 0 ;
6218 arg1 = (
char *)lua_tostring(L, 1);
6219 arg2 = (
PLFLT)lua_tonumber(L, 2);
6220 arg3 = (
PLFLT)lua_tonumber(L, 3);
6221 arg4 = (
PLFLT)lua_tonumber(L, 4);
6222 arg5 = (
char *)lua_tostring(L, 5);
6223 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6237 char *arg1 = (
char *) 0 ;
6241 char *arg5 = (
char *) 0 ;
6249 arg1 = (
char *)lua_tostring(L, 1);
6250 arg2 = (
PLFLT)lua_tonumber(L, 2);
6251 arg3 = (
PLFLT)lua_tonumber(L, 3);
6252 arg4 = (
PLFLT)lua_tonumber(L, 4);
6253 arg5 = (
char *)lua_tostring(L, 5);
6254 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6282 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6289 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6302 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6304 lua_pushfstring( L,
"Vectors must match matrix." );
6308 arg6 = (
PLINT)lua_tonumber(L, 4);
6309 arg7 = (
PLBOOL)lua_tonumber(L, 5);
6310 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
6323 for ( i = 0; i < ii3; i++ )
6344 for ( i = 0; i < ii3; i++ )
6370 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6377 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6390 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6392 lua_pushfstring( L,
"Vectors must match matrix." );
6396 arg6 = (
PLINT)lua_tonumber(L, 4);
6399 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6404 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6417 for ( i = 0; i < ii3; i++ )
6441 for ( i = 0; i < ii3; i++ )
6476 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6483 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6496 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6498 lua_pushfstring( L,
"Vectors must match matrix." );
6502 arg6 = (
PLINT)lua_tonumber(L, 4);
6505 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6510 arg9 = (
PLINT)lua_tonumber(L, 6);
6512 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6518 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6521 if ( temp12 !=
Alen )
6523 lua_pushfstring( L,
"Tables must be of same length." );
6527 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);
6540 for ( i = 0; i < ii3; i++ )
6570 for ( i = 0; i < ii3; i++ )
6605 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6612 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6625 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6627 lua_pushfstring( L,
"Vectors must match matrix." );
6631 arg6 = (
PLINT)lua_tonumber(L, 4);
6634 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6639 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6652 for ( i = 0; i < ii3; i++ )
6676 for ( i = 0; i < ii3; i++ )
6707 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
6708 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
6711 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6718 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6731 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6733 lua_pushfstring( L,
"Vectors must match matrix." );
6737 arg6 = (
PLINT)lua_tonumber(L, 4);
6740 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6745 arg9 = (
PLINT)lua_tonumber(L, 6);
6747 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6753 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6756 if ( temp12 !=
Alen )
6758 lua_pushfstring( L,
"Tables must be of same length." );
6762 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);
6775 for ( i = 0; i < ii3; i++ )
6805 for ( i = 0; i < ii3; i++ )
6826 int *arg1 = (
int *) 0 ;
6827 char **arg2 = (
char **) 0 ;
6832 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
6833 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
6842 lua_rawgeti( L, 1, i );
6843 if ( lua_isnil( L, -1 ) )
6856 for ( i = 0; i < n; i++ )
6858 lua_rawgeti( L, 1, i );
6859 if ( lua_isstring( L, -1 ) )
6861 arg2[i] = (
char *) lua_tostring( L, -1 );
6866 lua_pushfstring( L,
"List items must be strings" );
6874 arg3 = (
PLINT)lua_tonumber(L, 2);
6876 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
6902 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
6908 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
6911 if ( temp3 !=
Alen )
6913 lua_pushfstring( L,
"Tables must be of same length." );
6917 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
6955 arg1 = (
PLINT)lua_tonumber(L, 1);
6956 arg2 = (
PLFLT)lua_tonumber(L, 2);
6957 arg3 = (
PLFLT)lua_tonumber(L, 3);
6958 arg4 = (
PLFLT)lua_tonumber(L, 4);
6959 arg5 = (
PLFLT)lua_tonumber(L, 5);
6960 plpath(arg1,arg2,arg3,arg4,arg5);
6984 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6990 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6993 if ( temp3 !=
Alen )
6995 lua_pushfstring( L,
"Tables must be of same length." );
6999 arg4 = (
PLINT)lua_tonumber(L, 3);
7000 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7038 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7044 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7047 if ( temp3 !=
Alen )
7049 lua_pushfstring( L,
"Tables must be of same length." );
7054 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7057 if ( temp4 !=
Alen )
7059 lua_pushfstring( L,
"Tables must be of same length." );
7063 arg5 = (
PLINT)lua_tonumber(L, 4);
7064 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
7110 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7116 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7119 if ( temp3 !=
Alen )
7121 lua_pushfstring( L,
"Tables must be of same length." );
7126 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7129 if ( temp4 !=
Alen )
7131 lua_pushfstring( L,
"Tables must be of same length." );
7136 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
7139 if ( temp5 <
Alen - 1 )
7141 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7145 arg6 = (
PLBOOL)lua_tonumber(L, 5);
7146 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
7190 arg1 = (
PLINT)lua_tonumber(L, 1);
7191 arg2 = (
PLINT)lua_tonumber(L, 2);
7210 arg1 = (
PLINT)lua_tonumber(L, 1);
7230 char *arg6 = (
char *) 0 ;
7239 arg1 = (
PLFLT)lua_tonumber(L, 1);
7240 arg2 = (
PLFLT)lua_tonumber(L, 2);
7241 arg3 = (
PLFLT)lua_tonumber(L, 3);
7242 arg4 = (
PLFLT)lua_tonumber(L, 4);
7243 arg5 = (
PLFLT)lua_tonumber(L, 5);
7244 arg6 = (
char *)lua_tostring(L, 6);
7245 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
7269 char *arg11 = (
char *) 0 ;
7281 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
7283 arg1 = (
PLFLT)lua_tonumber(L, 1);
7284 arg2 = (
PLFLT)lua_tonumber(L, 2);
7285 arg3 = (
PLFLT)lua_tonumber(L, 3);
7286 arg4 = (
PLFLT)lua_tonumber(L, 4);
7287 arg5 = (
PLFLT)lua_tonumber(L, 5);
7288 arg6 = (
PLFLT)lua_tonumber(L, 6);
7289 arg7 = (
PLFLT)lua_tonumber(L, 7);
7290 arg8 = (
PLFLT)lua_tonumber(L, 8);
7291 arg9 = (
PLFLT)lua_tonumber(L, 9);
7292 arg10 = (
PLFLT)lua_tonumber(L, 10);
7293 arg11 = (
char *)lua_tostring(L, 11);
7294 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
7312 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7358 arg1 = (
PLFLT)lua_tonumber(L, 1);
7359 arg2 = (
PLFLT)lua_tonumber(L, 2);
7360 arg3 = (
PLFLT)lua_tonumber(L, 3);
7361 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
7363 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
7364 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
7365 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
7384 arg1 = (
PLFLT)lua_tonumber(L, 1);
7385 arg2 = (
PLFLT)lua_tonumber(L, 2);
7410 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7416 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7419 if ( temp2 !=
Alen )
7421 lua_pushfstring( L,
"Tables must be of same length." );
7426 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7429 if ( temp3 !=
Alen )
7431 lua_pushfstring( L,
"Tables must be of same length." );
7436 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7479 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7485 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7488 if ( temp2 !=
Alen )
7490 lua_pushfstring( L,
"Tables must be of same length." );
7495 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7498 if ( temp3 !=
Alen )
7500 lua_pushfstring( L,
"Tables must be of same length." );
7506 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7511 lua_pushfstring( L,
"Tables must be of same length." );
7516 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7557 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
7558 arg1 = (
PLINT)lua_tonumber(L, 1);
7583 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7589 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7592 if ( temp2 !=
Alen )
7594 lua_pushfstring( L,
"Tables must be of same length." );
7599 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7602 if ( temp3 !=
Alen )
7604 lua_pushfstring( L,
"Tables must be of same length." );
7609 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7652 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7658 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7661 if ( temp2 !=
Alen )
7663 lua_pushfstring( L,
"Tables must be of same length." );
7668 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7671 if ( temp3 !=
Alen )
7673 lua_pushfstring( L,
"Tables must be of same length." );
7679 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7684 lua_pushfstring( L,
"Tables must be of same length." );
7689 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7743 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",1,
"PLBOOL");
7744 arg1 = (
PLBOOL)lua_tonumber(L, 1);
7747 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7753 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7756 if ( temp4 !=
Alen )
7758 lua_pushfstring( L,
"Tables must be of same length." );
7763 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
7766 if ( temp5 !=
Alen )
7768 lua_pushfstring( L,
"Tables must be of same length." );
7773 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
7776 if ( temp6 !=
Alen )
7778 lua_pushfstring( L,
"Tables must be of same length." );
7782 if(lua_gettop(L)>=6){
7784 if ( lua_isnil( L, 6 ) )
7790 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
7793 if ( temp7 <
Alen - 1 )
7795 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7801 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
7863 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
7864 arg1 = (
PLBOOL)lua_tonumber(L, 1);
7867 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7873 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7876 if ( temp4 !=
Alen )
7878 lua_pushfstring( L,
"Tables must be of same length." );
7883 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
7886 if ( temp5 !=
Alen )
7888 lua_pushfstring( L,
"Tables must be of same length." );
7893 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
7896 if ( temp6 !=
Alen )
7898 lua_pushfstring( L,
"Tables must be of same length." );
7903 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
7906 if ( temp7 !=
Alen )
7908 lua_pushfstring( L,
"Tables must be of same length." );
7912 if(lua_gettop(L)>=7){
7914 if ( lua_isnil( L, 7 ) )
7920 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
7923 if ( temp8 <
Alen - 1 )
7925 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7931 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
7984 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
7985 arg1 = (
PLINT)lua_tonumber(L, 1);
8004 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8005 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8006 arg1 = (
PLFLT)lua_tonumber(L, 1);
8007 arg2 = (
PLFLT)lua_tonumber(L, 2);
8032 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8033 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8056 arg1 = (
PLINT)lua_tonumber(L, 1);
8057 arg2 = (
PLINT)lua_tonumber(L, 2);
8058 arg3 = (
PLINT)lua_tonumber(L, 3);
8059 arg4 = (
PLINT)lua_tonumber(L, 4);
8086 arg1 = (
PLINT)lua_tonumber(L, 1);
8087 arg2 = (
PLINT)lua_tonumber(L, 2);
8088 arg3 = (
PLINT)lua_tonumber(L, 3);
8089 arg4 = (
PLINT)lua_tonumber(L, 4);
8090 arg5 = (
PLFLT)lua_tonumber(L, 5);
8091 plscol0a(arg1,arg2,arg3,arg4,arg5);
8113 arg1 = (
PLINT)lua_tonumber(L, 1);
8114 arg2 = (
PLINT)lua_tonumber(L, 2);
8115 arg3 = (
PLINT)lua_tonumber(L, 3);
8136 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
8137 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
8138 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
8139 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
8140 arg1 = (
PLINT)lua_tonumber(L, 1);
8141 arg2 = (
PLINT)lua_tonumber(L, 2);
8142 arg3 = (
PLINT)lua_tonumber(L, 3);
8143 arg4 = (
PLFLT)lua_tonumber(L, 4);
8162 arg1 = (
PLINT)lua_tonumber(L, 1);
8180 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
8181 arg1 = (
PLINT)lua_tonumber(L, 1);
8196 char *arg1 = (
char *) 0 ;
8200 arg1 = (
char *)lua_tostring(L, 1);
8201 plsdev((
char const *)arg1);
8225 arg1 = (
PLFLT)lua_tonumber(L, 1);
8226 arg2 = (
PLFLT)lua_tonumber(L, 2);
8227 arg3 = (
PLFLT)lua_tonumber(L, 3);
8228 arg4 = (
PLFLT)lua_tonumber(L, 4);
8257 arg1 = (
PLINT)lua_tonumber(L, 1);
8258 arg2 = (
PLINT)lua_tonumber(L, 2);
8259 arg3 = (
PLINT)lua_tonumber(L, 3);
8260 arg4 = (
PLINT)lua_tonumber(L, 4);
8261 arg5 = (
PLFLT)lua_tonumber(L, 5);
8262 arg6 = (
PLFLT)lua_tonumber(L, 6);
8263 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
8281 arg1 = (
PLFLT)lua_tonumber(L, 1);
8306 arg1 = (
PLFLT)lua_tonumber(L, 1);
8307 arg2 = (
PLFLT)lua_tonumber(L, 2);
8308 arg3 = (
PLFLT)lua_tonumber(L, 3);
8309 arg4 = (
PLFLT)lua_tonumber(L, 4);
8334 arg1 = (
PLFLT)lua_tonumber(L, 1);
8335 arg2 = (
PLFLT)lua_tonumber(L, 2);
8336 arg3 = (
PLFLT)lua_tonumber(L, 3);
8337 arg4 = (
PLFLT)lua_tonumber(L, 4);
8355 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
8357 arg1 = (
unsigned int)lua_tonumber(L, 1);
8376 arg1 = (lua_tostring(L, 1))[0];
8391 char *arg1 = (
char *) 0 ;
8392 char *arg2 = (
char *) 0 ;
8398 arg1 = (
char *)lua_tostring(L, 1);
8399 arg2 = (
char *)lua_tostring(L, 2);
8400 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
8401 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8422 arg1 = (
PLINT)lua_tonumber(L, 1);
8423 arg2 = (
PLINT)lua_tonumber(L, 2);
8424 arg3 = (
PLINT)lua_tonumber(L, 3);
8442 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
8459 char *arg1 = (
char *) 0 ;
8463 arg1 = (
char *)lua_tostring(L, 1);
8486 arg1 = (
PLINT)lua_tonumber(L, 1);
8487 arg2 = (
PLINT)lua_tonumber(L, 2);
8488 arg3 = (
PLINT)lua_tonumber(L, 3);
8525 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
8526 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
8527 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
8528 cgrid217.
nx = cgrid217.
ny = 0;
8550 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
8560 arg5 = (
PLFLT)lua_tonumber(L, 2);
8561 arg6 = (
PLFLT)lua_tonumber(L, 3);
8562 arg7 = (
PLFLT)lua_tonumber(L, 4);
8563 arg8 = (
PLFLT)lua_tonumber(L, 5);
8566 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
8569 arg10 =
Alen = temp;
8571 arg11 = (
PLFLT)lua_tonumber(L, 7);
8572 arg12 = (
PLINT)lua_tonumber(L, 8);
8573 arg13 = (
PLFLT)lua_tonumber(L, 9);
8574 arg15 = (
PLBOOL)lua_tonumber(L, 10);
8575 if(lua_gettop(L)>=11){
8580 if ( lua_isstring( L, 11 ) )
8582 const char* funcstr = lua_tostring( L, 11 );
8583 if ( strcmp(
"pltr0", funcstr ) == 0 )
8587 else if ( strcmp(
"pltr1", funcstr ) == 0 )
8591 else if ( strcmp(
"pltr2", funcstr ) == 0 )
8606 if(lua_gettop(L)>=12){
8611 lua_pushstring( L,
"xg" );
8612 lua_gettable( L, 12 );
8613 if ( !lua_istable( L, -1 ) )
8616 lua_pushstring( L,
"expected a table xg" );
8619 lua_rawgeti( L, -1, 1 );
8620 if ( lua_istable( L, -1 ) )
8622 else if ( lua_isnumber( L, -1 ) )
8628 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
8632 if ( gridmode == 1 )
8634 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
8642 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
8655 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8658 lua_pushfstring( L,
"Vectors must match matrix." );
8666 lua_pushstring( L,
"yg" );
8667 lua_gettable( L, 12 );
8668 if ( !lua_istable( L, -1 ) )
8671 lua_pushstring( L,
"expected a table yg" );
8674 lua_rawgeti( L, -1, 1 );
8675 if ( gridmode == 2 )
8677 if ( !lua_istable( L, -1 ) )
8681 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
8687 if ( !lua_isnumber( L, -1 ) )
8691 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
8696 if ( gridmode == 1 )
8698 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
8706 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
8719 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8722 lua_pushfstring( L,
"Vectors must match matrix." );
8729 if ( gridmode == 1 )
8731 else if ( gridmode == 2 )
8735 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
8742 for ( i = 0; i < ii1; i++ )
8761 for ( i = 0; i <
Xlen; i++ )
8767 for ( i = 0; i <
Xlen; i++ )
8782 for ( i = 0; i < ii1; i++ )
8801 for ( i = 0; i <
Xlen; i++ )
8807 for ( i = 0; i <
Xlen; i++ )
8845 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
8846 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
8847 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
8848 cgrid221.
nx = cgrid221.
ny = 0;
8871 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
8872 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
8873 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
8874 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
8875 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
8876 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
8886 arg5 = (
PLFLT)lua_tonumber(L, 2);
8887 arg6 = (
PLFLT)lua_tonumber(L, 3);
8888 arg7 = (
PLFLT)lua_tonumber(L, 4);
8889 arg8 = (
PLFLT)lua_tonumber(L, 5);
8890 arg9 = (
PLFLT)lua_tonumber(L, 6);
8891 arg10 = (
PLFLT)lua_tonumber(L, 7);
8892 arg11 = (
PLINT)lua_tonumber(L, 8);
8893 arg12 = (
PLFLT)lua_tonumber(L, 9);
8894 arg13 = (
PLFLT)lua_tonumber(L, 10);
8895 arg14 = (
PLINT)lua_tonumber(L, 11);
8896 arg15 = (
PLFLT)lua_tonumber(L, 12);
8897 arg16 = (
PLINT)lua_tonumber(L, 13);
8898 arg17 = (
PLFLT)lua_tonumber(L, 14);
8899 arg19 = (
PLBOOL)lua_tonumber(L, 15);
8900 if(lua_gettop(L)>=16){
8905 if ( lua_isstring( L, 16 ) )
8907 const char* funcstr = lua_tostring( L, 16 );
8908 if ( strcmp(
"pltr0", funcstr ) == 0 )
8912 else if ( strcmp(
"pltr1", funcstr ) == 0 )
8916 else if ( strcmp(
"pltr2", funcstr ) == 0 )
8931 if(lua_gettop(L)>=17){
8936 lua_pushstring( L,
"xg" );
8937 lua_gettable( L, 17 );
8938 if ( !lua_istable( L, -1 ) )
8941 lua_pushstring( L,
"expected a table xg" );
8944 lua_rawgeti( L, -1, 1 );
8945 if ( lua_istable( L, -1 ) )
8947 else if ( lua_isnumber( L, -1 ) )
8953 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
8957 if ( gridmode == 1 )
8959 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
8967 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
8980 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8983 lua_pushfstring( L,
"Vectors must match matrix." );
8991 lua_pushstring( L,
"yg" );
8992 lua_gettable( L, 17 );
8993 if ( !lua_istable( L, -1 ) )
8996 lua_pushstring( L,
"expected a table yg" );
8999 lua_rawgeti( L, -1, 1 );
9000 if ( gridmode == 2 )
9002 if ( !lua_istable( L, -1 ) )
9006 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9012 if ( !lua_isnumber( L, -1 ) )
9016 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9021 if ( gridmode == 1 )
9023 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9031 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9044 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9047 lua_pushfstring( L,
"Vectors must match matrix." );
9054 if ( gridmode == 1 )
9056 else if ( gridmode == 2 )
9060 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9067 for ( i = 0; i < ii1; i++ )
9083 for ( i = 0; i <
Xlen; i++ )
9089 for ( i = 0; i <
Xlen; i++ )
9104 for ( i = 0; i < ii1; i++ )
9120 for ( i = 0; i <
Xlen; i++ )
9126 for ( i = 0; i <
Xlen; i++ )
9147 mylabel_funcstr[0] =
'\0';
9149 if ( lua_isnil( L, 1 ) )
9153 else if ( lua_isstring( L, 1 ) )
9156 strncpy( mylabel_funcstr, lua_tostring( L, 1 ), 255 );
9188 arg1 = (
PLFLT)lua_tonumber(L, 1);
9189 arg2 = (
PLFLT)lua_tonumber(L, 2);
9210 arg1 = (
PLFLT)lua_tonumber(L, 1);
9211 arg2 = (
PLFLT)lua_tonumber(L, 2);
9230 arg1 = (
PLINT)lua_tonumber(L, 1);
9259 arg1 = (
PLFLT)lua_tonumber(L, 1);
9260 arg2 = (
PLFLT)lua_tonumber(L, 2);
9261 arg3 = (
PLINT)lua_tonumber(L, 3);
9262 arg4 = (
PLINT)lua_tonumber(L, 4);
9263 arg5 = (
PLINT)lua_tonumber(L, 5);
9264 arg6 = (
PLINT)lua_tonumber(L, 6);
9265 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
9279 char *arg1 = (
char *) 0 ;
9283 arg1 = (
char *)lua_tostring(L, 1);
9298 char *arg1 = (
char *) 0 ;
9304 arg1 = (
char *)lua_tostring(L, 1);
9305 arg2 = (
PLBOOL)lua_tonumber(L, 2);
9306 plspal1((
char const *)arg1,arg2);
9323 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
9324 arg1 = (
PLBOOL)lua_tonumber(L, 1);
9343 arg1 = (
PLINT)lua_tonumber(L, 1);
9364 arg1 = (
PLINT)lua_tonumber(L, 1);
9365 arg2 = (
PLINT)lua_tonumber(L, 2);
9386 arg1 = (
PLFLT)lua_tonumber(L, 1);
9387 arg2 = (
PLFLT)lua_tonumber(L, 2);
9408 arg1 = (
PLINT)lua_tonumber(L, 1);
9409 arg2 = (
PLINT)lua_tonumber(L, 2);
9424 char *arg1 = (
char *) 0 ;
9432 arg1 = (
char *)lua_tostring(L, 1);
9433 arg2 = (
PLINT)lua_tonumber(L, 2);
9434 arg3 = (
PLINT)lua_tonumber(L, 3);
9435 plstart((
char const *)arg1,arg2,arg3);
9454 myct_funcstr[0] =
'\0';
9460 if(lua_gettop(L)>=1){
9463 myct_funcstr[0] =
'\0';
9465 if ( lua_isstring( L, 1 ) )
9467 const char* funcstr = lua_tostring( L, 1 );
9469 strncpy( myct_funcstr, funcstr, 255 );
9493 char *arg4 = (
char *) 0 ;
9500 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9506 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9509 if ( temp3 !=
Alen )
9511 lua_pushfstring( L,
"Tables must be of same length." );
9515 arg4 = (
char *)lua_tostring(L, 3);
9516 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
9546 char *arg5 = (
char *) 0 ;
9554 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9560 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9563 if ( temp3 !=
Alen )
9565 lua_pushfstring( L,
"Tables must be of same length." );
9570 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
9573 if ( temp4 !=
Alen )
9575 lua_pushfstring( L,
"Tables must be of same length." );
9579 arg5 = (
char *)lua_tostring(L, 4);
9580 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
9622 arg1 = (
PLINT)lua_tonumber(L, 1);
9623 arg2 = (
PLINT)lua_tonumber(L, 2);
9624 arg3 = (
PLFLT)lua_tonumber(L, 3);
9625 arg4 = (
PLFLT)lua_tonumber(L, 4);
9641 char *arg2 = (
char *) 0 ;
9642 char *arg3 = (
char *) 0 ;
9657 char *arg18 = (
char *) 0 ;
9658 char *arg19 = (
char *) 0 ;
9659 char *arg20 = (
char *) 0 ;
9678 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
9679 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
9680 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
9681 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
9682 if(lua_gettop(L)>=16 && !lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
9686 arg2 = (
char *)lua_tostring(L, 1);
9687 arg3 = (
char *)lua_tostring(L, 2);
9688 arg4 = (
PLFLT)lua_tonumber(L, 3);
9689 arg5 = (
PLFLT)lua_tonumber(L, 4);
9690 arg6 = (
PLFLT)lua_tonumber(L, 5);
9691 arg7 = (
PLFLT)lua_tonumber(L, 6);
9692 arg8 = (
PLFLT)lua_tonumber(L, 7);
9693 arg9 = (
PLFLT)lua_tonumber(L, 8);
9694 arg10 = (
PLFLT)lua_tonumber(L, 9);
9695 arg11 = (
PLBOOL)lua_tonumber(L, 10);
9696 arg12 = (
PLBOOL)lua_tonumber(L, 11);
9697 arg13 = (
PLINT)lua_tonumber(L, 12);
9698 arg14 = (
PLINT)lua_tonumber(L, 13);
9700 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
9706 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
9709 if ( temp16 !=
Alen )
9711 lua_pushfstring( L,
"Tables must be of same length." );
9715 if(lua_gettop(L)>=16){
9722 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9727 lua_pushfstring( L,
"colline and styline args must be length 4." );
9731 arg17 = malloc(
sizeof (
char* ) * 4 );
9732 for ( i = 1; i <= 4; i++ )
9734 lua_rawgeti( L, 16, i );
9735 if ( lua_isstring( L, -1 ) )
9737 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
9742 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9750 if(lua_gettop(L)>=17){
9751 arg18 = (
char *)lua_tostring(L, 17);
9753 if(lua_gettop(L)>=18){
9754 arg19 = (
char *)lua_tostring(L, 18);
9756 if(lua_gettop(L)>=19){
9757 arg20 = (
char *)lua_tostring(L, 19);
9759 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);
9761 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9771 free( arg17 ); arg17 = NULL;
9788 free( arg17 ); arg17 = NULL;
9802 arg1 = (
PLINT)lua_tonumber(L, 1);
9824 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
9830 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
9833 if ( temp3 !=
Alen )
9835 lua_pushfstring( L,
"Tables must be of same length." );
9839 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
9871 arg2 = NULL; arg3 = 0;
9877 if(lua_gettop(L)>=3 && !lua_isnumber(L,3))
SWIG_fail_arg(
"plsvect",3,
"PLBOOL");
9880 if ( lua_isnil( L, 1 ) )
9887 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9893 if(lua_gettop(L)>=2){
9896 if ( lua_isnil( L, 2 ) )
9902 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
9907 lua_pushfstring( L,
"Tables must be of same length." );
9914 if(lua_gettop(L)>=3){
9915 arg4 = (
PLBOOL)lua_tonumber(L, 3);
9917 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
9947 arg1 = (
PLFLT)lua_tonumber(L, 1);
9948 arg2 = (
PLFLT)lua_tonumber(L, 2);
9949 arg3 = (
PLFLT)lua_tonumber(L, 3);
9950 arg4 = (
PLFLT)lua_tonumber(L, 4);
9951 plsvpa(arg1,arg2,arg3,arg4);
9971 arg1 = (
PLINT)lua_tonumber(L, 1);
9972 arg2 = (
PLINT)lua_tonumber(L, 2);
9993 arg1 = (
PLINT)lua_tonumber(L, 1);
9994 arg2 = (
PLINT)lua_tonumber(L, 2);
10019 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10022 arg1 =
Alen = temp;
10025 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10028 if ( temp3 !=
Alen )
10030 lua_pushfstring( L,
"Tables must be of same length." );
10034 arg4 = (
PLINT)lua_tonumber(L, 3);
10035 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10067 arg1 = (
PLINT)lua_tonumber(L, 1);
10068 arg2 = (
PLINT)lua_tonumber(L, 2);
10099 char *arg1 = (
char *) 0 ;
10103 arg1 = (
char *)lua_tostring(L, 1);
10122 arg1 = (
PLFLT)lua_tonumber(L, 1);
10150 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
10151 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
10152 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
10153 cgrid27.
nx = cgrid27.
ny = 0;
10180 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10182 lua_pushfstring( L,
"Vectors must match matrix." );
10186 arg5 = (
PLFLT)lua_tonumber(L, 3);
10187 if(lua_gettop(L)>=4){
10192 if ( lua_isstring( L, 4 ) )
10194 const char* funcstr = lua_tostring( L, 4 );
10195 if ( strcmp(
"pltr0", funcstr ) == 0 )
10199 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10203 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10218 if(lua_gettop(L)>=5){
10223 lua_pushstring( L,
"xg" );
10224 lua_gettable( L, 5 );
10225 if ( !lua_istable( L, -1 ) )
10228 lua_pushstring( L,
"expected a table xg" );
10231 lua_rawgeti( L, -1, 1 );
10232 if ( lua_istable( L, -1 ) )
10234 else if ( lua_isnumber( L, -1 ) )
10240 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10244 if ( gridmode == 1 )
10246 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10254 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10267 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10270 lua_pushfstring( L,
"Vectors must match matrix." );
10278 lua_pushstring( L,
"yg" );
10279 lua_gettable( L, 5 );
10280 if ( !lua_istable( L, -1 ) )
10283 lua_pushstring( L,
"expected a table yg" );
10286 lua_rawgeti( L, -1, 1 );
10287 if ( gridmode == 2 )
10289 if ( !lua_istable( L, -1 ) )
10293 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10299 if ( !lua_isnumber( L, -1 ) )
10303 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10308 if ( gridmode == 1 )
10310 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10318 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10331 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10334 lua_pushfstring( L,
"Vectors must match matrix." );
10341 if ( gridmode == 1 )
10343 else if ( gridmode == 2 )
10347 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
10354 for ( i = 0; i < ii1; i++ )
10364 for ( i = 0; i < ii2; i++ )
10380 for ( i = 0; i <
Xlen; i++ )
10386 for ( i = 0; i <
Xlen; i++ )
10401 for ( i = 0; i < ii1; i++ )
10411 for ( i = 0; i < ii2; i++ )
10427 for ( i = 0; i <
Xlen; i++ )
10433 for ( i = 0; i <
Xlen; i++ )
10457 arg1 = (
PLFLT)lua_tonumber(L, 1);
10458 arg2 = (
PLFLT)lua_tonumber(L, 2);
10459 arg3 = (
PLFLT)lua_tonumber(L, 3);
10460 arg4 = (
PLFLT)lua_tonumber(L, 4);
10461 arg5 = (
PLFLT)lua_tonumber(L, 5);
10462 plvpas(arg1,arg2,arg3,arg4,arg5);
10486 arg1 = (
PLFLT)lua_tonumber(L, 1);
10487 arg2 = (
PLFLT)lua_tonumber(L, 2);
10488 arg3 = (
PLFLT)lua_tonumber(L, 3);
10489 arg4 = (
PLFLT)lua_tonumber(L, 4);
10490 plvpor(arg1,arg2,arg3,arg4);
10544 arg1 = (
PLFLT)lua_tonumber(L, 1);
10545 arg2 = (
PLFLT)lua_tonumber(L, 2);
10546 arg3 = (
PLFLT)lua_tonumber(L, 3);
10547 arg4 = (
PLFLT)lua_tonumber(L, 4);
10548 arg5 = (
PLFLT)lua_tonumber(L, 5);
10549 arg6 = (
PLFLT)lua_tonumber(L, 6);
10550 arg7 = (
PLFLT)lua_tonumber(L, 7);
10551 arg8 = (
PLFLT)lua_tonumber(L, 8);
10552 arg9 = (
PLFLT)lua_tonumber(L, 9);
10553 arg10 = (
PLFLT)lua_tonumber(L, 10);
10554 arg11 = (
PLFLT)lua_tonumber(L, 11);
10555 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
10573 arg1 = (
PLFLT)lua_tonumber(L, 1);
10598 arg1 = (
PLFLT)lua_tonumber(L, 1);
10599 arg2 = (
PLFLT)lua_tonumber(L, 2);
10600 arg3 = (
PLFLT)lua_tonumber(L, 3);
10601 arg4 = (
PLFLT)lua_tonumber(L, 4);
10602 plwind(arg1,arg2,arg3,arg4);
10622 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
10623 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10626 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
10640 char *arg2 = (
char *) 0 ;
10656 if ( lua_isnil( L, 1 ) )
10660 else if ( lua_isstring( L, 1 ) )
10669 arg2 = (
char *)lua_tostring(L, 2);
10670 arg3 = (
PLFLT)lua_tonumber(L, 3);
10671 arg4 = (
PLFLT)lua_tonumber(L, 4);
10672 arg5 = (
PLFLT)lua_tonumber(L, 5);
10673 arg6 = (
PLFLT)lua_tonumber(L, 6);
10674 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
10695 char *arg2 = (
char *) 0 ;
10706 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapline",3,
"PLFLT");
10707 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapline",4,
"PLFLT");
10708 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapline",5,
"PLFLT");
10709 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapline",6,
"PLFLT");
10714 if ( lua_isnil( L, 1 ) )
10718 else if ( lua_isstring( L, 1 ) )
10727 arg2 = (
char *)lua_tostring(L, 2);
10728 arg3 = (
PLFLT)lua_tonumber(L, 3);
10729 arg4 = (
PLFLT)lua_tonumber(L, 4);
10730 arg5 = (
PLFLT)lua_tonumber(L, 5);
10731 arg6 = (
PLFLT)lua_tonumber(L, 6);
10733 if ( lua_isnil( L, 7 ) )
10740 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
10746 plmapline(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
10773 char *arg2 = (
char *) 0 ;
10774 char *arg3 = (
char *) 0 ;
10786 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapstring",4,
"PLFLT");
10787 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapstring",5,
"PLFLT");
10788 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapstring",6,
"PLFLT");
10789 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmapstring",7,
"PLFLT");
10794 if ( lua_isnil( L, 1 ) )
10798 else if ( lua_isstring( L, 1 ) )
10807 arg2 = (
char *)lua_tostring(L, 2);
10808 arg3 = (
char *)lua_tostring(L, 3);
10809 arg4 = (
PLFLT)lua_tonumber(L, 4);
10810 arg5 = (
PLFLT)lua_tonumber(L, 5);
10811 arg6 = (
PLFLT)lua_tonumber(L, 6);
10812 arg7 = (
PLFLT)lua_tonumber(L, 7);
10814 if ( lua_isnil( L, 8 ) )
10821 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp8 );
10827 plmapstring(arg1,(
char const *)arg2,(
char const *)arg3,arg4,arg5,arg6,arg7,(
int const *)arg8,arg9);
10854 char *arg2 = (
char *) 0 ;
10858 char *arg6 = (
char *) 0 ;
10867 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmaptex",3,
"PLFLT");
10868 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmaptex",4,
"PLFLT");
10869 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmaptex",5,
"PLFLT");
10871 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmaptex",7,
"PLFLT");
10872 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plmaptex",8,
"PLFLT");
10873 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plmaptex",9,
"PLFLT");
10874 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plmaptex",10,
"PLFLT");
10875 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plmaptex",11,
"PLINT");
10880 if ( lua_isnil( L, 1 ) )
10884 else if ( lua_isstring( L, 1 ) )
10893 arg2 = (
char *)lua_tostring(L, 2);
10894 arg3 = (
PLFLT)lua_tonumber(L, 3);
10895 arg4 = (
PLFLT)lua_tonumber(L, 4);
10896 arg5 = (
PLFLT)lua_tonumber(L, 5);
10897 arg6 = (
char *)lua_tostring(L, 6);
10898 arg7 = (
PLFLT)lua_tonumber(L, 7);
10899 arg8 = (
PLFLT)lua_tonumber(L, 8);
10900 arg9 = (
PLFLT)lua_tonumber(L, 9);
10901 arg10 = (
PLFLT)lua_tonumber(L, 10);
10902 arg11 = (
PLINT)lua_tonumber(L, 11);
10903 plmaptex(arg1,(
char const *)arg2,arg3,arg4,arg5,(
char const *)arg6,arg7,arg8,arg9,arg10,arg11);
10924 char *arg2 = (
char *) 0 ;
10935 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmapfill",3,
"PLFLT");
10936 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmapfill",4,
"PLFLT");
10937 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmapfill",5,
"PLFLT");
10938 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmapfill",6,
"PLFLT");
10943 if ( lua_isnil( L, 1 ) )
10947 else if ( lua_isstring( L, 1 ) )
10956 arg2 = (
char *)lua_tostring(L, 2);
10957 arg3 = (
PLFLT)lua_tonumber(L, 3);
10958 arg4 = (
PLFLT)lua_tonumber(L, 4);
10959 arg5 = (
PLFLT)lua_tonumber(L, 5);
10960 arg6 = (
PLFLT)lua_tonumber(L, 6);
10962 if ( lua_isnil( L, 7 ) )
10969 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp7 );
10975 plmapfill(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6,(
int const *)arg7,arg8);
11010 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
11011 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
11012 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
11013 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
11014 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
11015 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
11020 if ( lua_isnil( L, 1 ) )
11024 else if ( lua_isstring( L, 1 ) )
11033 arg2 = (
PLFLT)lua_tonumber(L, 2);
11034 arg3 = (
PLFLT)lua_tonumber(L, 3);
11035 arg4 = (
PLFLT)lua_tonumber(L, 4);
11036 arg5 = (
PLFLT)lua_tonumber(L, 5);
11037 arg6 = (
PLFLT)lua_tonumber(L, 6);
11038 arg7 = (
PLFLT)lua_tonumber(L, 7);
11083 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
11084 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
11094 arg4 = (
PLFLT)lua_tonumber(L, 2);
11095 arg5 = (
PLFLT)lua_tonumber(L, 3);
11096 arg6 = (
PLFLT)lua_tonumber(L, 4);
11097 arg7 = (
PLFLT)lua_tonumber(L, 5);
11098 arg8 = (
PLFLT)lua_tonumber(L, 6);
11099 arg9 = (
PLFLT)lua_tonumber(L, 7);
11100 arg10 = (
PLFLT)lua_tonumber(L, 8);
11101 arg11 = (
PLFLT)lua_tonumber(L, 9);
11102 arg12 = (
PLFLT)lua_tonumber(L, 10);
11103 arg13 = (
PLFLT)lua_tonumber(L, 11);
11104 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11111 for ( i = 0; i < ii1; i++ )
11126 for ( i = 0; i < ii1; i++ )
11156 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
11157 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
11158 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
11159 cgrid213.
nx = cgrid213.
ny = 0;
11168 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
11169 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
11170 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
11171 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
11172 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
11173 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
11174 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
11175 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
11185 arg4 = (
PLFLT)lua_tonumber(L, 2);
11186 arg5 = (
PLFLT)lua_tonumber(L, 3);
11187 arg6 = (
PLFLT)lua_tonumber(L, 4);
11188 arg7 = (
PLFLT)lua_tonumber(L, 5);
11189 arg8 = (
PLFLT)lua_tonumber(L, 6);
11190 arg9 = (
PLFLT)lua_tonumber(L, 7);
11191 arg10 = (
PLFLT)lua_tonumber(L, 8);
11192 arg11 = (
PLFLT)lua_tonumber(L, 9);
11193 if(lua_gettop(L)>=10){
11198 if ( lua_isstring( L, 10 ) )
11200 const char* funcstr = lua_tostring( L, 10 );
11201 if ( strcmp(
"pltr0", funcstr ) == 0 )
11205 else if ( strcmp(
"pltr1", funcstr ) == 0 )
11209 else if ( strcmp(
"pltr2", funcstr ) == 0 )
11224 if(lua_gettop(L)>=11){
11229 lua_pushstring( L,
"xg" );
11230 lua_gettable( L, 11 );
11231 if ( !lua_istable( L, -1 ) )
11234 lua_pushstring( L,
"expected a table xg" );
11237 lua_rawgeti( L, -1, 1 );
11238 if ( lua_istable( L, -1 ) )
11240 else if ( lua_isnumber( L, -1 ) )
11246 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11250 if ( gridmode == 1 )
11252 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11253 if ( !cgrid113.
xg )
11260 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11268 if ( !cgrid213.
xg )
11273 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11276 lua_pushfstring( L,
"Vectors must match matrix." );
11284 lua_pushstring( L,
"yg" );
11285 lua_gettable( L, 11 );
11286 if ( !lua_istable( L, -1 ) )
11289 lua_pushstring( L,
"expected a table yg" );
11292 lua_rawgeti( L, -1, 1 );
11293 if ( gridmode == 2 )
11295 if ( !lua_istable( L, -1 ) )
11299 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11305 if ( !lua_isnumber( L, -1 ) )
11309 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11314 if ( gridmode == 1 )
11316 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11317 if ( !cgrid113.
yg )
11324 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11332 if ( !cgrid213.
yg )
11337 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11340 lua_pushfstring( L,
"Vectors must match matrix." );
11347 if ( gridmode == 1 )
11349 else if ( gridmode == 2 )
11353 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11360 for ( i = 0; i < ii1; i++ )
11376 for ( i = 0; i <
Xlen; i++ )
11382 for ( i = 0; i <
Xlen; i++ )
11397 for ( i = 0; i < ii1; i++ )
11413 for ( i = 0; i <
Xlen; i++ )
11419 for ( i = 0; i <
Xlen; i++ )
11463 char *arg1 = (
char *) 0 ;
11464 char *arg2 = (
char *) 0 ;
11469 arg1 = (
char *)lua_tostring(L, 1);
11470 arg2 = (
char *)lua_tostring(L, 2);
11471 plSetUsage((
char const *)arg1,(
char const *)arg2);
11524 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
11525 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
11531 for ( i = 0; i < ii1; i++ )
11546 for ( i = 0; i < ii1; i++ )
11569 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
11582 char *arg1 = (
char *) 0 ;
11585 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
11587 arg1 = (
char *) lua_tostring( L, 1 );
11589 plwarn((
char const *)arg1);
11603 char *arg1 = (
char *) 0 ;
11606 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
11608 arg1 = (
char *) lua_tostring( L, 1 );
12084 #define SWIGRUNTIME_DEBUG
12094 clientdata = clientdata;
12097 if (swig_module.
next==0) {
12109 if (!module_head) {
12119 if (iter==&swig_module) {
12124 }
while (iter!= module_head);
12129 swig_module.
next = module_head->
next;
12137 if (init == 0)
return;
12140 #ifdef SWIGRUNTIME_DEBUG
12141 printf(
"SWIG_InitializeModule: size %d\n", swig_module.
size);
12143 for (i = 0; i < swig_module.
size; ++i) {
12148 #ifdef SWIGRUNTIME_DEBUG
12149 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
12153 if (swig_module.
next != &swig_module) {
12158 #ifdef SWIGRUNTIME_DEBUG
12159 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
12163 #ifdef SWIGRUNTIME_DEBUG
12164 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
12173 while (cast->
type) {
12177 #ifdef SWIGRUNTIME_DEBUG
12178 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
12180 if (swig_module.
next != &swig_module) {
12182 #ifdef SWIGRUNTIME_DEBUG
12183 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
12188 #ifdef SWIGRUNTIME_DEBUG
12189 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
12196 #ifdef SWIGRUNTIME_DEBUG
12197 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
12199 if (!ocast) ret = 0;
12204 #ifdef SWIGRUNTIME_DEBUG
12205 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
12216 swig_module.
types[i] = type;
12218 swig_module.
types[i] = 0;
12220 #ifdef SWIGRUNTIME_DEBUG
12221 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
12222 for (i = 0; i < swig_module.
size; ++i) {
12225 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
12226 while (cast->
type) {
12227 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
12231 printf(
"---- Total casts: %d\n",j);
12233 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
12246 static int init_run = 0;
12248 if (init_run)
return;
12251 for (i = 0; i < swig_module.
size; i++) {
12259 equiv = equiv->
next;
12284 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
12290 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12299 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
12306 for (i = 0; swig_commands[i].name; i++){
12310 for (i = 0; swig_variables[i].
name; i++){
12315 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12317 for (i = 0; swig_types[i]; i++){
12318 if (swig_types[i]->clientdata){
12323 for (i = 0; swig_types[i]; i++){
12324 if (swig_types[i]->clientdata){
12330 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
12335 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12355 " pl = plplotluac";