12 #define SWIG_LUA_TARGET SWIG_LUA_FLAVOR_LUA
13 #define SWIG_LUA_MODULE_GLOBAL
21 #ifndef SWIGTEMPLATEDISAMBIGUATOR
22 # if defined(__SUNPRO_CC) && (__SUNPRO_CC <= 0x560)
23 # define SWIGTEMPLATEDISAMBIGUATOR template
24 # elif defined(__HP_aCC)
27 # define SWIGTEMPLATEDISAMBIGUATOR template
29 # define SWIGTEMPLATEDISAMBIGUATOR
35 # if defined(__cplusplus) || (defined(__GNUC__) && !defined(__STRICT_ANSI__))
36 # define SWIGINLINE inline
44 # if defined(__GNUC__)
45 # if !(defined(__cplusplus)) || (__GNUC__ > 3 || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4))
46 # define SWIGUNUSED __attribute__ ((__unused__))
51 # define SWIGUNUSED __attribute__ ((__unused__))
57 #ifndef SWIG_MSC_UNSUPPRESS_4505
58 # if defined(_MSC_VER)
59 # pragma warning(disable : 4505)
63 #ifndef SWIGUNUSEDPARM
65 # define SWIGUNUSEDPARM(p)
67 # define SWIGUNUSEDPARM(p) p SWIGUNUSED
73 # define SWIGINTERN static SWIGUNUSED
77 #ifndef SWIGINTERNINLINE
78 # define SWIGINTERNINLINE SWIGINTERN SWIGINLINE
82 #if (__GNUC__ >= 4) || (__GNUC__ == 3 && __GNUC_MINOR__ >= 4)
83 # ifndef GCC_HASCLASSVISIBILITY
84 # define GCC_HASCLASSVISIBILITY
89 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
90 # if defined(STATIC_LINKED)
93 # define SWIGEXPORT __declspec(dllexport)
96 # if defined(__GNUC__) && defined(GCC_HASCLASSVISIBILITY)
97 # define SWIGEXPORT __attribute__ ((visibility("default")))
106 # if defined(_WIN32) || defined(__WIN32__) || defined(__CYGWIN__)
107 # define SWIGSTDCALL __stdcall
114 #if !defined(SWIG_NO_CRT_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_CRT_SECURE_NO_DEPRECATE)
115 # define _CRT_SECURE_NO_DEPRECATE
119 #if !defined(SWIG_NO_SCL_SECURE_NO_DEPRECATE) && defined(_MSC_VER) && !defined(_SCL_SECURE_NO_DEPRECATE)
120 # define _SCL_SECURE_NO_DEPRECATE
133 #define SWIG_RUNTIME_VERSION "4"
136 #ifdef SWIG_TYPE_TABLE
137 # define SWIG_QUOTE_STRING(x) #x
138 # define SWIG_EXPAND_AND_QUOTE_STRING(x) SWIG_QUOTE_STRING(x)
139 # define SWIG_TYPE_TABLE_NAME SWIG_EXPAND_AND_QUOTE_STRING(SWIG_TYPE_TABLE)
141 # define SWIG_TYPE_TABLE_NAME
154 # define SWIGRUNTIME SWIGINTERN
157 #ifndef SWIGRUNTIMEINLINE
158 # define SWIGRUNTIMEINLINE SWIGRUNTIME SWIGINLINE
162 #ifndef SWIG_BUFFER_SIZE
163 # define SWIG_BUFFER_SIZE 1024
167 #define SWIG_POINTER_DISOWN 0x1
168 #define SWIG_CAST_NEW_MEMORY 0x2
171 #define SWIG_POINTER_OWN 0x1
254 #define SWIG_ERROR (-1)
255 #define SWIG_IsOK(r) (r >= 0)
256 #define SWIG_ArgError(r) ((r != SWIG_ERROR) ? r : SWIG_TypeError)
259 #define SWIG_CASTRANKLIMIT (1 << 8)
261 #define SWIG_NEWOBJMASK (SWIG_CASTRANKLIMIT << 1)
263 #define SWIG_TMPOBJMASK (SWIG_NEWOBJMASK << 1)
265 #define SWIG_BADOBJ (SWIG_ERROR)
266 #define SWIG_OLDOBJ (SWIG_OK)
267 #define SWIG_NEWOBJ (SWIG_OK | SWIG_NEWOBJMASK)
268 #define SWIG_TMPOBJ (SWIG_OK | SWIG_TMPOBJMASK)
270 #define SWIG_AddNewMask(r) (SWIG_IsOK(r) ? (r | SWIG_NEWOBJMASK) : r)
271 #define SWIG_DelNewMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_NEWOBJMASK) : r)
272 #define SWIG_IsNewObj(r) (SWIG_IsOK(r) && (r & SWIG_NEWOBJMASK))
273 #define SWIG_AddTmpMask(r) (SWIG_IsOK(r) ? (r | SWIG_TMPOBJMASK) : r)
274 #define SWIG_DelTmpMask(r) (SWIG_IsOK(r) ? (r & ~SWIG_TMPOBJMASK) : r)
275 #define SWIG_IsTmpObj(r) (SWIG_IsOK(r) && (r & SWIG_TMPOBJMASK))
278 #if defined(SWIG_CASTRANK_MODE)
279 # ifndef SWIG_TypeRank
280 # define SWIG_TypeRank unsigned long
282 # ifndef SWIG_MAXCASTRANK
283 # define SWIG_MAXCASTRANK (2)
285 # define SWIG_CASTRANKMASK ((SWIG_CASTRANKLIMIT) -1)
286 # define SWIG_CastRank(r) (r & SWIG_CASTRANKMASK)
291 return SWIG_IsOK(r) ? SWIG_CastRank(r) + 1 : 0;
294 # define SWIG_AddCast(r) (r)
295 # define SWIG_CheckState(r) (SWIG_IsOK(r) ? 1 : 0)
305 typedef void *(*swig_converter_func)(
void *,
int *);
347 const char *f2,
const char *l2) {
348 for (;(f1 != l1) && (f2 != l2); ++f1, ++f2) {
349 while ((*f1 ==
' ') && (f1 != l1)) ++f1;
350 while ((*f2 ==
' ') && (f2 != l2)) ++f2;
351 if (*f1 != *f2)
return (*f1 > *f2) ? 1 : -1;
353 return (
int)((l1 - f1) - (l2 - f2));
363 const char* te = tb + strlen(tb);
365 while (equiv != 0 && *ne) {
366 for (nb = ne; *ne; ++ne) {
367 if (*ne ==
'|')
break;
392 if (strcmp(iter->
type->
name, c) == 0) {
393 if (iter == ty->
cast)
419 if (iter->
type == from) {
420 if (iter == ty->
cast)
452 if (!ty || !ty->
dcast)
return ty;
453 while (ty && (ty->
dcast)) {
454 ty = (*ty->
dcast)(ptr);
478 if (!type)
return NULL;
479 if (type->
str != NULL) {
480 const char *last_name = type->
str;
482 for (s = type->
str; *s; s++)
483 if (*s ==
'|') last_name = s+1;
530 register size_t l = 0;
531 register size_t r = iter->
size - 1;
534 register size_t i = (l + r) >> 1;
535 const char *iname = iter->
types[i]->
name;
537 register int compare = strcmp(name, iname);
539 return iter->
types[i];
540 }
else if (compare < 0) {
546 }
else if (compare > 0) {
555 }
while (iter != end);
581 register size_t i = 0;
582 for (; i < iter->
size; ++i) {
584 return iter->
types[i];
587 }
while (iter != end);
599 static const char hex[17] =
"0123456789abcdef";
600 register const unsigned char *u = (
unsigned char *) ptr;
601 register const unsigned char *eu = u + sz;
602 for (; u != eu; ++u) {
603 register unsigned char uu = *u;
604 *(c++) = hex[(uu & 0xf0) >> 4];
605 *(c++) = hex[uu & 0xf];
615 register unsigned char *u = (
unsigned char *) ptr;
616 register const unsigned char *eu = u + sz;
617 for (; u != eu; ++u) {
618 register char d = *(c++);
619 register unsigned char uu;
620 if ((d >=
'0') && (d <=
'9'))
621 uu = ((d -
'0') << 4);
622 else if ((d >=
'a') && (d <=
'f'))
623 uu = ((d - (
'a'-10)) << 4);
627 if ((d >=
'0') && (d <=
'9'))
629 else if ((d >=
'a') && (d <=
'f'))
630 uu |= (d - (
'a'-10));
644 if ((2*
sizeof(
void *) + 2) > bsz)
return 0;
647 if (strlen(name) + 1 > (bsz - (r - buff)))
return 0;
655 if (strcmp(c,
"NULL") == 0) {
668 size_t lname = (name ? strlen(name) : 0);
669 if ((2*sz + 2 + lname) > bsz)
return 0;
673 strncpy(r,name,lname+1);
683 if (strcmp(c,
"NULL") == 0) {
718 #define SWIG_LUA_FLAVOR_LUA 1
719 #define SWIG_LUA_FLAVOR_ELUA 2
720 #define SWIG_LUA_FLAVOR_ELUAC 3
722 #if !defined(SWIG_LUA_TARGET)
723 # error SWIG_LUA_TARGET not defined
726 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
727 # define SWIG_LUA_CONSTTAB_INT(B, C) LSTRKEY(B), LNUMVAL(C)
728 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) LSTRKEY(B), LNUMVAL(C)
729 # define SWIG_LUA_CONSTTAB_STRING(B, C) LSTRKEY(B), LSTRVAL(C)
730 # define SWIG_LUA_CONSTTAB_CHAR(B, C) LSTRKEY(B), LNUMVAL(C)
732 # define SWIG_LUA_CONSTTAB_INT(B, C) SWIG_LUA_INT, (char *)B, (long)C, 0, 0, 0
733 # define SWIG_LUA_CONSTTAB_FLOAT(B, C) SWIG_LUA_FLOAT, (char *)B, 0, (double)C, 0, 0
734 # define SWIG_LUA_CONSTTAB_STRING(B, C) SWIG_LUA_STRING, (char *)B, 0, 0, (void *)C, 0
735 # define SWIG_LUA_CONSTTAB_CHAR(B, C) SWIG_LUA_CHAR, (char *)B, (long)C, 0, 0, 0
738 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC)
739 # define LRO_STRVAL(v) {{.p = (char *) v}, LUA_TSTRING}
740 # define LSTRVAL LRO_STRVAL
755 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 501
756 # define lua_rawlen lua_strlen
757 #elif LUA_VERSION_NUM == 501
758 # define lua_rawlen lua_objlen
765 #if !defined(LUA_VERSION_NUM) || LUA_VERSION_NUM < 502
766 # define lua_pushglobaltable(L) lua_pushvalue(L, LUA_GLOBALSINDEX)
781 lua_pushstring (L, str);
794 lua_pushvfstring(L, fmt, argp);
804 #define SWIG_LUA_INT 1
805 #define SWIG_LUA_FLOAT 2
806 #define SWIG_LUA_STRING 3
807 #define SWIG_LUA_POINTER 4
808 #define SWIG_LUA_BINARY 5
809 #define SWIG_LUA_CHAR 6
880 #define SWIG_NewPointerObj(L, ptr, type, owner) SWIG_Lua_NewPointerObj(L, (void *)ptr, type, owner)
881 #define SWIG_ConvertPtr(L,idx, ptr, type, flags) SWIG_Lua_ConvertPtr(L,idx,ptr,type,flags)
882 #define SWIG_MustGetPtr(L,idx, type,flags, argnum,fnname) SWIG_Lua_MustGetPtr(L,idx, type,flags, argnum,fnname)
884 #define SWIG_ConvertMember(L, idx, ptr, sz, ty) SWIG_Lua_ConvertPacked(L, idx, ptr, sz, ty)
885 #define SWIG_NewMemberObj(L, ptr, sz, type) SWIG_Lua_NewPackedObj(L, ptr, sz, type)
888 #define SWIG_GetModule(clientdata) SWIG_Lua_GetModule((lua_State*)(clientdata))
889 #define SWIG_SetModule(clientdata, pointer) SWIG_Lua_SetModule((lua_State*) (clientdata), pointer)
890 #define SWIG_MODULE_CLIENTDATA_TYPE lua_State*
893 #define SWIG_contract_assert(expr, msg) \
894 if (!(expr)) { SWIG_Lua_pusherrstring(L, (char *) msg); goto fail; } else
898 #define SWIG_fail {goto fail;}
899 #define SWIG_fail_arg(func_name,argnum,type) \
900 {SWIG_Lua_pushferrstring(L,"Error in %s (arg %d), expected '%s' got '%s'",\
901 func_name,argnum,type,SWIG_Lua_typename(L,argnum));\
903 #define SWIG_fail_ptr(func_name,argnum,type) \
904 SWIG_fail_arg(func_name,argnum,(type && type->str)?type->str:"void*")
905 #define SWIG_check_num_args(func_name,a,b) \
906 if (lua_gettop(L)<a || lua_gettop(L)>b) \
907 {SWIG_Lua_pushferrstring(L,"Error in %s expected %d..%d args, got %d",func_name,a,b,lua_gettop(L));\
911 #define SWIG_Lua_get_table(L,n) \
912 (lua_pushstring(L, n), lua_rawget(L,-2))
914 #define SWIG_Lua_add_function(L,n,f) \
915 (lua_pushstring(L, n), \
916 lua_pushcfunction(L, f), \
920 #define SWIG_isptrtype(L,I) (lua_isuserdata(L,I) || lua_isnil(L,I))
933 lua_rawget(L,LUA_REGISTRYINDEX);
934 if (lua_islightuserdata(L,-1))
944 lua_pushlightuserdata(L,(
void*)module);
945 lua_rawset(L,LUA_REGISTRYINDEX);
958 #ifndef SWIGLUA_IGNORE_SET_IMMUTABLE
960 luaL_error(L,
"This variable is immutable");
976 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
977 assert(lua_isrotable(L,1));
979 assert(lua_istable(L,1));
981 lua_getmetatable(L,1);
982 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
983 assert(lua_isrotable(L,-1));
985 assert(lua_istable(L,-1));
989 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
990 if (lua_isrotable(L,-1))
992 if (lua_istable(L,-1))
999 if (lua_iscfunction(L,-1))
1020 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
1021 assert(lua_isrotable(L,1));
1023 assert(lua_istable(L,1));
1025 lua_getmetatable(L,1);
1026 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
1027 assert(lua_isrotable(L,-1));
1029 assert(lua_istable(L,-1));
1033 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
1034 if (lua_isrotable(L,-1))
1036 if (lua_istable(L,-1))
1043 if (lua_iscfunction(L,-1))
1049 #if (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA)
1061 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1065 assert(lua_istable(L,-1));
1066 lua_pushstring(L,name);
1072 lua_pushstring(L,
".get");
1075 lua_pushstring(L,
".set");
1078 lua_setmetatable(L,-2);
1079 #ifdef SWIG_LUA_MODULE_GLOBAL
1100 assert(lua_istable(L,-1));
1101 lua_getmetatable(L,-1);
1102 assert(lua_istable(L,-1));
1104 assert(lua_istable(L,-1));
1110 assert(lua_istable(L,-1));
1134 assert(lua_istable(L,-2));
1135 lua_getmetatable(L,-2);
1136 assert(lua_istable(L,-1));
1138 assert(lua_istable(L,-1));
1143 if (lua_iscfunction(L,-1))
1152 assert(lua_istable(L,-1));
1156 if (lua_isfunction(L,-1))
1173 assert(lua_istable(L,1));
1174 lua_getmetatable(L,1);
1175 assert(lua_istable(L,-1));
1178 if (lua_istable(L,-1))
1183 if (lua_iscfunction(L,-1))
1202 assert(lua_istable(L,-1));
1206 lua_getmetatable(L,-1);
1215 assert(lua_istable(L,-1));
1229 assert(lua_istable(L,-1));
1230 lua_checkstack(L,5);
1231 lua_pushstring(L, ns->
name);
1236 lua_pushstring(L,
".get");
1240 lua_pushstring(L,
".set");
1244 lua_pushstring(L,
".fn");
1252 lua_setmetatable(L,-2);
1266 assert(lua_isuserdata(L,-2));
1267 lua_getmetatable(L,-2);
1268 assert(lua_istable(L,-1));
1270 assert(lua_istable(L,-1));
1275 if (lua_iscfunction(L,-1))
1285 assert(lua_istable(L,-1));
1289 if (lua_isfunction(L,-1))
1298 if (lua_iscfunction(L,-1))
1321 assert(lua_isuserdata(L,1));
1322 lua_getmetatable(L,1);
1323 assert(lua_istable(L,-1));
1326 if (lua_istable(L,-1))
1331 if (lua_iscfunction(L,-1))
1344 if (lua_iscfunction(L,-1))
1363 assert(lua_isuserdata(L,-1));
1382 assert(lua_isuserdata(L,1));
1383 unsigned long userData = (
unsigned long)lua_touserdata(L,1);
1384 lua_getmetatable(L,1);
1385 assert(lua_istable(L,-1));
1387 lua_getfield(L, -1,
".type");
1388 const char* className = lua_tostring(L, -1);
1391 sprintf(output,
"<%s userdata: %lX>", className, userData);
1393 lua_pushstring(L, (
const char*)output);
1403 assert(lua_isuserdata(L,-1));
1418 assert(lua_istable(L,1));
1419 lua_pushstring(L,
".constructor");
1421 assert(!lua_isnil(L,-1));
1423 lua_call(L,lua_gettop(L)-1,1);
1431 lua_pushstring(L,
"SWIG");
1432 lua_rawget(L,LUA_REGISTRYINDEX);
1433 if (!lua_istable(L,-1))
1436 lua_pushstring(L,
"SWIG");
1438 lua_rawset(L,LUA_REGISTRYINDEX);
1440 lua_pushstring(L,
"SWIG");
1441 lua_rawget(L,LUA_REGISTRYINDEX);
1449 lua_pushstring(L,cname);
1457 assert(lua_istable(L,-1));
1459 assert(lua_istable(L,-1));
1465 assert(lua_istable(L,-1));
1476 assert(lua_istable(L,-1));
1478 for(i=0;clss->
bases[i];i++)
1491 for(i=0;clss->
bases[i];i++)
1501 assert(lua_istable(L,-1));
1530 if (clss->
bases[i]==0)
1542 lua_checkstack(L,5);
1543 assert(lua_istable(L,-1));
1549 assert(lua_istable(L,-1));
1558 lua_getmetatable(L,-1);
1559 assert(lua_istable(L,-1));
1564 assert(lua_istable(L,-1));
1577 lua_pushstring(L,clss->
name);
1580 lua_pushstring(L,
".type");
1581 lua_pushstring(L,clss->
name);
1584 lua_pushstring(L,
".get");
1588 lua_pushstring(L,
".set");
1592 lua_pushstring(L,
".fn");
1622 if (lua_istable(L,-1))
1624 lua_setmetatable(L,-2);
1645 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
1656 if (lua_isnil(L,index)){*ptr=0;
return SWIG_OK;}
1682 int argnum,
const char* func_name){
1685 luaL_error (L,
"Error in %s, expected a %s at argument number %d\n",
1686 func_name,(type && type->
str)?type->
str:
"void*",argnum);
1699 memcpy(raw->
data,ptr,size);
1709 if (type==0 || type==raw->
type)
1711 memcpy(ptr,raw->
data,size);
1721 if (lua_isuserdata(L,tp))
1726 return "userdata (unknown type)";
1728 return lua_typename(L,lua_type(L,tp));
1745 if (!lua_isuserdata(L,1) || !lua_isuserdata(L,2))
1750 result=(usr1->
ptr==usr2->
ptr);
1751 lua_pushboolean(L,result);
1759 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
1764 for (i = 0; constants[i].
type; i++) {
1765 switch(constants[i].type) {
1767 lua_pushstring(L,constants[i].
name);
1768 lua_pushnumber(L,(lua_Number)constants[i].lvalue);
1772 lua_pushstring(L,constants[i].name);
1773 lua_pushnumber(L,(lua_Number)constants[i].dvalue);
1777 lua_pushstring(L,constants[i].name);
1778 lua_pushfstring(L,
"%c",(
char)constants[i].lvalue);
1782 lua_pushstring(L,constants[i].name);
1783 lua_pushstring(L,(
char *) constants[i].pvalue);
1787 lua_pushstring(L,constants[i].name);
1792 lua_pushstring(L,constants[i].name);
1793 SWIG_NewMemberObj(L,constants[i].pvalue,constants[i].lvalue,*(constants[i]).ptype);
1807 #ifndef SWIG_DOSTRING_FAIL
1808 #define SWIG_DOSTRING_FAIL(S) fprintf(stderr,"%s\n",S)
1818 if (str==0 || str[0]==0)
return 0;
1820 #if (defined(LUA_VERSION_NUM) && (LUA_VERSION_NUM>=501))
1821 ok=luaL_dostring(L,str);
1823 ok=lua_dostring(L,str);
1841 #define SWIGTYPE_p_PLGraphicsIn swig_types[0]
1842 #define SWIGTYPE_p_char swig_types[1]
1843 #define SWIGTYPE_p_double swig_types[2]
1844 #define SWIGTYPE_p_f_double_double__int swig_types[3]
1845 #define SWIGTYPE_p_f_double_double_p_double_p_double_p_void__void swig_types[4]
1846 #define SWIGTYPE_p_f_int_double_p_char_int_p_void__void swig_types[5]
1847 #define SWIGTYPE_p_f_int_p_double_p_double__void swig_types[6]
1848 #define SWIGTYPE_p_f_int_p_q_const__double_p_q_const__double__void swig_types[7]
1849 #define SWIGTYPE_p_int swig_types[8]
1850 #define SWIGTYPE_p_p_char swig_types[9]
1851 #define SWIGTYPE_p_p_double swig_types[10]
1852 #define SWIGTYPE_p_unsigned_int swig_types[11]
1855 #define SWIG_TypeQuery(name) SWIG_TypeQueryModule(&swig_module, &swig_module, name)
1856 #define SWIG_MangledTypeQuery(name) SWIG_MangledTypeQueryModule(&swig_module, &swig_module, name)
1860 #define SWIG_name "plplotluac"
1861 #define SWIG_init luaopen_plplotluac
1862 #define SWIG_init_user luaopen_plplotluac_user
1864 #define SWIG_LUACODE luaopen_plplotluac_luacode
1869 #define LUA_ALLOC_ARRAY( TYPE, LEN ) (TYPE *) malloc( LEN * sizeof ( TYPE ) )
1870 #define LUA_FREE_ARRAY( PTR ) if ( PTR ) { free( PTR ); PTR = NULL;}
1874 #define LUA_DECLARE_TYPEMAP_ARR_FN( NAME, TYPE ) \
1875 SWIGINTERN int LUA_read_ ## NAME ## _num_array( lua_State * L, int index, TYPE * array, int size ){ \
1877 for ( i = 0; i < size; i++ ) { \
1878 lua_rawgeti( L, index, i + 1 ); \
1879 if ( lua_isnumber( L, -1 ) ) { \
1880 array[i] = (TYPE) lua_tonumber( L, -1 ); \
1889 SWIGINTERN TYPE* LUA_get_ ## NAME ## _num_array_var( lua_State * L, int index, int* size ) \
1892 if ( !lua_istable( L, index ) ) { \
1893 lua_pushstring( L, "expected a table" ); \
1896 *size = SWIG_itable_size( L, index ); \
1897 if ( *size < 1 ) { \
1898 array = LUA_ALLOC_ARRAY( TYPE, 1 ); \
1899 array[0] = (TYPE) 0; \
1902 array = LUA_ALLOC_ARRAY( TYPE, *size ); \
1903 if ( !LUA_read_ ## NAME ## _num_array( L, index, array, *size ) ) { \
1904 lua_pushstring( L, "table must contain numbers" ); \
1905 LUA_FREE_ARRAY( array ); \
1920 #define SWIG_ALLOC_ARRAY(TYPE,LEN) new TYPE[LEN]
1921 #define SWIG_FREE_ARRAY(PTR) delete[] PTR
1923 #define SWIG_ALLOC_ARRAY(TYPE,LEN) (TYPE *)malloc(LEN*sizeof(TYPE))
1924 #define SWIG_FREE_ARRAY(PTR) free(PTR)
1931 lua_rawgeti(L,index,n+1);
1932 if (lua_isnil(L,-1))
break;
1944 while (lua_next(L, index) != 0) {
1952 #define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME,TYPE)\
1953 SWIGINTERN int SWIG_read_##NAME##_num_array(lua_State* L,int index,TYPE *array,int size){\
1955 for (i = 0; i < size; i++) {\
1956 lua_rawgeti(L,index,i+1);\
1957 if (lua_isnumber(L,-1)){\
1958 array[i] = (TYPE)lua_tonumber(L,-1);\
1967 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_fixed(lua_State* L, int index, int size){\
1969 if (!lua_istable(L,index) || SWIG_itable_size(L,index) != size) {\
1970 SWIG_Lua_pushferrstring(L,"expected a table of size %d",size);\
1973 array=SWIG_ALLOC_ARRAY(TYPE,size);\
1974 if (!SWIG_read_##NAME##_num_array(L,index,array,size)){\
1975 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
1976 SWIG_FREE_ARRAY(array);\
1981 SWIGINTERN TYPE* SWIG_get_##NAME##_num_array_var(lua_State* L, int index, int* size)\
1984 if (!lua_istable(L,index)) {\
1985 SWIG_Lua_pusherrstring(L,"expected a table");\
1988 *size=SWIG_itable_size(L,index);\
1990 SWIG_Lua_pusherrstring(L,"table appears to be empty");\
1993 array=SWIG_ALLOC_ARRAY(TYPE,*size);\
1994 if (!SWIG_read_##NAME##_num_array(L,index,array,*size)){\
1995 SWIG_Lua_pusherrstring(L,"table must contain numbers");\
1996 SWIG_FREE_ARRAY(array);\
2001 SWIGINTERN void SWIG_write_##NAME##_num_array(lua_State* L,TYPE *array,int size){\
2004 for (i = 0; i < size; i++){\
2005 lua_pushnumber(L,(lua_Number)array[i]);\
2006 lua_rawseti(L,-2,i+1); \
2023 for (i = 0; i < size; i++) {
2024 lua_rawgeti(L,index,i+1);
2025 if (!lua_isuserdata(L,-1) ||
SWIG_ConvertPtr(L,-1,&array[i],type,0)==-1){
2049 if (!lua_istable(L,index)) {
2069 for (i = 0; i < size; i++){
2071 lua_rawseti(L,-2,i+1);
2084 if ( !lua_istable( L, index ) )
2086 lua_pushstring( L,
"expected a table" );
2092 lua_pushstring( L,
"table appears to be empty" );
2096 for ( i = 0; i < *
nx; i++ )
2099 lua_rawgeti( L, index, 1 );
2100 if ( !lua_istable( L, -1 ) )
2103 lua_pushstring( L,
"expected a table" );
2110 lua_pushstring( L,
"table appears to be empty" );
2116 for ( i = 0; i < *
nx; i++ )
2118 lua_rawgeti( L, index, i + 1 );
2119 if ( !lua_istable( L, -1 ) )
2122 lua_pushstring( L,
"expected a table" );
2123 for ( j = 0; j < *
ny; j++ )
2131 lua_pushstring( L,
"inconsistent table sizes" );
2132 for ( j = 0; j < i; j++ )
2138 for ( j = 0; j < *
ny; j++ )
2140 lua_rawgeti( L, -1, j + 1 );
2141 if ( lua_isnumber( L, -1 ) )
2143 matrix[i][j] = (
PLFLT) lua_tonumber( L, -1 );
2148 lua_pushstring( L,
"table must contain numbers" );
2149 for ( j = 0; j < i + 1; j++ )
2168 PLFLT *xtemp, *ytemp;
2174 fprintf( stderr,
"Lua state is not set!" );
2180 lua_pushnumber(
myL, n );
2181 SWIG_write_double_num_array(
myL, x, n );
2182 SWIG_write_double_num_array(
myL, y, n );
2185 if ( lua_pcall(
myL, 3, 2, 0 ) != 0 )
2186 fprintf( stderr,
"error running function `%s':%s",
2190 if ( !lua_istable(
myL, -2 ) )
2192 fprintf( stderr,
"function `%s' must return a table as 1st result",
mapform_funcstr );
2195 if ( !lua_istable(
myL, -1 ) )
2197 fprintf( stderr,
"function `%s' must return a table as 2nd result",
mapform_funcstr );
2200 xtemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -2, &len );
2201 if ( !xtemp || len != n )
2203 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
2206 for ( i = 0; i < n; i++ )
2210 ytemp = (
PLFLT *) LUA_get_double_num_array_var(
myL, -1, &len );
2211 if ( !ytemp || len != n )
2213 fprintf( stderr,
"function `%s' must return a table of length%d",
mapform_funcstr, n );
2216 for ( i = 0; i < n; i++ )
2246 fprintf( stderr,
"Lua state is not set!" );
2252 lua_pushnumber(
myL, x );
2253 lua_pushnumber(
myL, y );
2256 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2257 fprintf( stderr,
"error running function `%s':%s",
2261 if ( !lua_isnumber(
myL, -2 ) )
2263 fprintf( stderr,
"function `%s' must return a number as 1st result",
mypltr_funcstr );
2266 if ( !lua_isnumber(
myL, -1 ) )
2268 fprintf( stderr,
"function `%s' must return a number as 2nd result",
mypltr_funcstr );
2271 *tx = lua_tonumber(
myL, -2 );
2272 *ty = lua_tonumber(
myL, -1 );
2290 fprintf( stderr,
"Lua state is not set!" );
2296 lua_pushnumber(
myL, x );
2297 lua_pushnumber(
myL, y );
2300 if ( lua_pcall(
myL, 2, 2, 0 ) != 0 )
2301 fprintf( stderr,
"error running function `%s':%s",
2305 if ( !lua_isnumber(
myL, -2 ) )
2307 fprintf( stderr,
"function `%s' must return a number as 1st result",
myct_funcstr );
2310 if ( !lua_isnumber(
myL, -1 ) )
2312 fprintf( stderr,
"function `%s' must return a number as 2nd result",
myct_funcstr );
2315 *tx = lua_tonumber(
myL, -2 );
2316 *ty = lua_tonumber(
myL, -1 );
2326 PLFLT *xtemp, *ytemp;
2332 fprintf( stderr,
"Lua state is not set!" );
2338 lua_pushnumber(
myL, axis );
2339 lua_pushnumber(
myL, value );
2342 if ( lua_pcall(
myL, 2, 1, 0 ) != 0 )
2343 fprintf( stderr,
"error running function `%s':%s",
2347 if ( !lua_isstring(
myL, -1 ) )
2349 fprintf( stderr,
"function `%s' must return a string as result",
label_funcstr );
2352 strncpy( label, lua_tostring(
myL, -1 ), length );
2361 int ret = lua_isstring(L, idx);
2363 ret = lua_isnil(L, idx);
2377 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::type",2,
"int");
2383 arg2 = (int)lua_tonumber(L, 2);
2384 if (arg1) (arg1)->type = arg2;
2408 result = (int) ((arg1)->type);
2409 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2427 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::state",2,
"unsigned int");
2434 arg2 = (
unsigned int)lua_tonumber(L, 2);
2435 if (arg1) (arg1)->state = arg2;
2450 unsigned int result;
2459 result = (
unsigned int) ((arg1)->state);
2460 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2478 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::keysym",2,
"unsigned int");
2485 arg2 = (
unsigned int)lua_tonumber(L, 2);
2486 if (arg1) (arg1)->keysym = arg2;
2501 unsigned int result;
2510 result = (
unsigned int) ((arg1)->keysym);
2511 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2529 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::button",2,
"unsigned int");
2536 arg2 = (
unsigned int)lua_tonumber(L, 2);
2537 if (arg1) (arg1)->button = arg2;
2552 unsigned int result;
2561 result = (
unsigned int) ((arg1)->button);
2562 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2580 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::subwindow",2,
"PLINT");
2586 arg2 = (
PLINT)lua_tonumber(L, 2);
2587 if (arg1) (arg1)->subwindow = arg2;
2611 result = (
PLINT) ((arg1)->subwindow);
2612 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2636 arg2 = (
char *)lua_tostring(L, 2);
2639 strncpy((
char*)arg1->
string, (
const char *)arg2, 16-1);
2668 result = (
char *)(
char *) ((arg1)->
string);
2669 lua_pushstring(L,(
const char *)result); SWIG_arg++;
2687 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pX",2,
"int");
2693 arg2 = (int)lua_tonumber(L, 2);
2694 if (arg1) (arg1)->pX = arg2;
2718 result = (int) ((arg1)->pX);
2719 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2737 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::pY",2,
"int");
2743 arg2 = (int)lua_tonumber(L, 2);
2744 if (arg1) (arg1)->pY = arg2;
2768 result = (int) ((arg1)->pY);
2769 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2787 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dX",2,
"PLFLT");
2793 arg2 = (
PLFLT)lua_tonumber(L, 2);
2794 if (arg1) (arg1)->dX = arg2;
2818 result = (
PLFLT) ((arg1)->dX);
2819 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2837 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::dY",2,
"PLFLT");
2843 arg2 = (
PLFLT)lua_tonumber(L, 2);
2844 if (arg1) (arg1)->dY = arg2;
2868 result = (
PLFLT) ((arg1)->dY);
2869 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2887 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wX",2,
"PLFLT");
2893 arg2 = (
PLFLT)lua_tonumber(L, 2);
2894 if (arg1) (arg1)->wX = arg2;
2918 result = (
PLFLT) ((arg1)->wX);
2919 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2937 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"PLGraphicsIn::wY",2,
"PLFLT");
2943 arg2 = (
PLFLT)lua_tonumber(L, 2);
2944 if (arg1) (arg1)->wY = arg2;
2968 result = (
PLFLT) ((arg1)->wY);
2969 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
2999 free((
char *) arg1);
3030 static swig_lua_class _wrap_class_PLGraphicsIn = {
"PLGraphicsIn", &
SWIGTYPE_p_PLGraphicsIn,
_wrap_new_PLGraphicsIn,
swig_delete_PLGraphicsIn,
swig_PLGraphicsIn_methods,
swig_PLGraphicsIn_attributes, {
"PLGraphicsIn",
swig_PLGraphicsIn_cls_methods,
swig_PLGraphicsIn_cls_attributes, swig_PLGraphicsIn_cls_constants },
swig_PLGraphicsIn_bases, swig_PLGraphicsIn_base_names };
3038 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelformat",1,
"PLINT");
3039 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelformat",2,
"PLINT");
3040 arg1 = (
PLINT)lua_tonumber(L, 1);
3041 arg2 = (
PLINT)lua_tonumber(L, 2);
3062 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pl_setcontlabelparam",1,
"PLFLT");
3063 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pl_setcontlabelparam",2,
"PLFLT");
3064 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pl_setcontlabelparam",3,
"PLFLT");
3065 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"pl_setcontlabelparam",4,
"PLINT");
3066 arg1 = (
PLFLT)lua_tonumber(L, 1);
3067 arg2 = (
PLFLT)lua_tonumber(L, 2);
3068 arg3 = (
PLFLT)lua_tonumber(L, 3);
3069 arg4 = (
PLINT)lua_tonumber(L, 4);
3088 arg1 = (
PLINT)lua_tonumber(L, 1);
3121 arg1 = (
PLFLT)lua_tonumber(L, 1);
3122 arg2 = (
PLFLT)lua_tonumber(L, 2);
3123 arg3 = (
PLFLT)lua_tonumber(L, 3);
3124 arg4 = (
PLFLT)lua_tonumber(L, 4);
3125 arg5 = (
PLFLT)lua_tonumber(L, 5);
3126 arg6 = (
PLFLT)lua_tonumber(L, 6);
3127 arg7 = (
PLFLT)lua_tonumber(L, 7);
3128 arg8 = (
PLBOOL)lua_tonumber(L, 8);
3129 plarc(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8);
3145 char *arg3 = (
char *) 0 ;
3148 char *arg6 = (
char *) 0 ;
3161 arg1 = (
PLFLT)lua_tonumber(L, 1);
3162 arg2 = (
PLFLT)lua_tonumber(L, 2);
3163 arg3 = (
char *)lua_tostring(L, 3);
3164 arg4 = (
PLFLT)lua_tonumber(L, 4);
3165 arg5 = (
PLINT)lua_tonumber(L, 5);
3166 arg6 = (
char *)lua_tostring(L, 6);
3167 arg7 = (
PLFLT)lua_tonumber(L, 7);
3168 arg8 = (
PLINT)lua_tonumber(L, 8);
3169 plaxes(arg1,arg2,(
char const *)arg3,arg4,arg5,(
char const *)arg6,arg7,arg8);
3193 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
3199 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
3202 if ( temp3 !=
Alen )
3204 lua_pushfstring( L,
"Tables must be of same length." );
3208 arg4 = (
PLINT)lua_tonumber(L, 3);
3209 plbin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
3257 arg7 = (
PLFLT)lua_tonumber(L, 1);
3258 plbtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3260 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
3261 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
3262 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3263 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3264 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3265 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
3294 char *arg1 = (
char *) 0 ;
3297 char *arg4 = (
char *) 0 ;
3308 arg1 = (
char *)lua_tostring(L, 1);
3309 arg2 = (
PLFLT)lua_tonumber(L, 2);
3310 arg3 = (
PLINT)lua_tonumber(L, 3);
3311 arg4 = (
char *)lua_tostring(L, 4);
3312 arg5 = (
PLFLT)lua_tonumber(L, 5);
3313 arg6 = (
PLINT)lua_tonumber(L, 6);
3314 plbox((
char const *)arg1,arg2,arg3,(
char const *)arg4,arg5,arg6);
3328 char *arg1 = (
char *) 0 ;
3329 char *arg2 = (
char *) 0 ;
3332 char *arg5 = (
char *) 0 ;
3333 char *arg6 = (
char *) 0 ;
3336 char *arg9 = (
char *) 0 ;
3337 char *arg10 = (
char *) 0 ;
3354 arg1 = (
char *)lua_tostring(L, 1);
3355 arg2 = (
char *)lua_tostring(L, 2);
3356 arg3 = (
PLFLT)lua_tonumber(L, 3);
3357 arg4 = (
PLINT)lua_tonumber(L, 4);
3358 arg5 = (
char *)lua_tostring(L, 5);
3359 arg6 = (
char *)lua_tostring(L, 6);
3360 arg7 = (
PLFLT)lua_tonumber(L, 7);
3361 arg8 = (
PLINT)lua_tonumber(L, 8);
3362 arg9 = (
char *)lua_tostring(L, 9);
3363 arg10 = (
char *)lua_tostring(L, 10);
3364 arg11 = (
PLFLT)lua_tonumber(L, 11);
3365 arg12 = (
PLINT)lua_tonumber(L, 12);
3366 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);
3393 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcalc_world",1,
"PLFLT");
3394 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcalc_world",2,
"PLFLT");
3395 arg1 = (
PLFLT)lua_tonumber(L, 1);
3396 arg2 = (
PLFLT)lua_tonumber(L, 2);
3399 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
3400 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
3401 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
3434 arg1 = (
PLINT)lua_tonumber(L, 1);
3453 arg1 = (
PLFLT)lua_tonumber(L, 1);
3481 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plconfigtime",1,
"PLFLT");
3482 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plconfigtime",2,
"PLFLT");
3483 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plconfigtime",3,
"PLFLT");
3484 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plconfigtime",4,
"PLINT");
3485 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plconfigtime",5,
"PLBOOL");
3486 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plconfigtime",6,
"PLINT");
3487 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plconfigtime",7,
"PLINT");
3488 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plconfigtime",8,
"PLINT");
3489 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plconfigtime",9,
"PLINT");
3490 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plconfigtime",10,
"PLINT");
3491 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plconfigtime",11,
"PLFLT");
3492 arg1 = (
PLFLT)lua_tonumber(L, 1);
3493 arg2 = (
PLFLT)lua_tonumber(L, 2);
3494 arg3 = (
PLFLT)lua_tonumber(L, 3);
3495 arg4 = (
PLINT)lua_tonumber(L, 4);
3496 arg5 = (
PLBOOL)lua_tonumber(L, 5);
3497 arg6 = (
PLINT)lua_tonumber(L, 6);
3498 arg7 = (
PLINT)lua_tonumber(L, 7);
3499 arg8 = (
PLINT)lua_tonumber(L, 8);
3500 arg9 = (
PLINT)lua_tonumber(L, 9);
3501 arg10 = (
PLINT)lua_tonumber(L, 10);
3502 arg11 = (
PLFLT)lua_tonumber(L, 11);
3503 plconfigtime(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
3533 cgrid111.
xg = cgrid111.
yg = cgrid111.
zg = NULL;
3534 cgrid111.
nx = cgrid111.
ny = cgrid111.
nz = 0;
3535 cgrid211.
xg = cgrid211.
yg = cgrid211.
zg = NULL;
3536 cgrid211.
nx = cgrid211.
ny = 0;
3558 arg4 = (
PLINT)lua_tonumber(L, 2);
3559 arg5 = (
PLINT)lua_tonumber(L, 3);
3560 arg6 = (
PLINT)lua_tonumber(L, 4);
3561 arg7 = (
PLINT)lua_tonumber(L, 5);
3564 arg8 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
3569 if(lua_gettop(L)>=7){
3574 if ( lua_isstring( L, 7 ) )
3576 const char* funcstr = lua_tostring( L, 7 );
3577 if ( strcmp(
"pltr0", funcstr ) == 0 )
3581 else if ( strcmp(
"pltr1", funcstr ) == 0 )
3585 else if ( strcmp(
"pltr2", funcstr ) == 0 )
3600 if(lua_gettop(L)>=8){
3605 lua_pushstring( L,
"xg" );
3606 lua_gettable( L, 8 );
3607 if ( !lua_istable( L, -1 ) )
3610 lua_pushstring( L,
"expected a table xg" );
3613 lua_rawgeti( L, -1, 1 );
3614 if ( lua_istable( L, -1 ) )
3616 else if ( lua_isnumber( L, -1 ) )
3622 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
3626 if ( gridmode == 1 )
3628 cgrid111.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
3636 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
3649 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3652 lua_pushfstring( L,
"Vectors must match matrix." );
3660 lua_pushstring( L,
"yg" );
3661 lua_gettable( L, 8 );
3662 if ( !lua_istable( L, -1 ) )
3665 lua_pushstring( L,
"expected a table yg" );
3668 lua_rawgeti( L, -1, 1 );
3669 if ( gridmode == 2 )
3671 if ( !lua_istable( L, -1 ) )
3675 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
3681 if ( !lua_isnumber( L, -1 ) )
3685 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
3690 if ( gridmode == 1 )
3692 cgrid111.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
3700 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
3713 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
3716 lua_pushfstring( L,
"Vectors must match matrix." );
3723 if ( gridmode == 1 )
3725 else if ( gridmode == 2 )
3729 plcont((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,(
double const *)arg8,arg9,arg10,arg11);
3736 for ( i = 0; i < ii1; i++ )
3755 for ( i = 0; i <
Xlen; i++ )
3761 for ( i = 0; i <
Xlen; i++ )
3776 for ( i = 0; i < ii1; i++ )
3795 for ( i = 0; i <
Xlen; i++ )
3801 for ( i = 0; i <
Xlen; i++ )
3830 arg1 = (
PLINT)lua_tonumber(L, 1);
3831 arg2 = (
PLINT)lua_tonumber(L, 2);
3832 arg3 = (
PLINT)lua_tonumber(L, 3);
3833 arg4 = (
PLINT)lua_tonumber(L, 4);
3834 arg5 = (
PLINT)lua_tonumber(L, 5);
3835 arg6 = (
PLFLT)lua_tonumber(L, 6);
3836 plctime(arg1,arg2,arg3,arg4,arg5,arg6,arg7);
3838 lua_pushnumber(L, (lua_Number) *arg7); SWIG_arg++;
3856 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcpstrm",2,
"PLBOOL");
3857 arg1 = (
PLINT)lua_tonumber(L, 1);
3858 arg2 = (
PLBOOL)lua_tonumber(L, 2);
3919 arg1 = (
PLFLT)lua_tonumber(L, 1);
3920 arg2 = (
PLFLT)lua_tonumber(L, 2);
3921 arg3 = (
PLFLT)lua_tonumber(L, 3);
3922 arg4 = (
PLFLT)lua_tonumber(L, 4);
3923 arg5 = (
PLINT)lua_tonumber(L, 5);
3924 arg6 = (
PLINT)lua_tonumber(L, 6);
3925 plenv(arg1,arg2,arg3,arg4,arg5,arg6);
3953 arg1 = (
PLFLT)lua_tonumber(L, 1);
3954 arg2 = (
PLFLT)lua_tonumber(L, 2);
3955 arg3 = (
PLFLT)lua_tonumber(L, 3);
3956 arg4 = (
PLFLT)lua_tonumber(L, 4);
3957 arg5 = (
PLINT)lua_tonumber(L, 5);
3958 arg6 = (
PLINT)lua_tonumber(L, 6);
3959 plenv0(arg1,arg2,arg3,arg4,arg5,arg6);
3999 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4005 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4008 if ( temp3 !=
Alen )
4010 lua_pushfstring( L,
"Tables must be of same length." );
4015 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4018 if ( temp4 !=
Alen )
4020 lua_pushfstring( L,
"Tables must be of same length." );
4024 plerrx(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4066 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4072 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4075 if ( temp3 !=
Alen )
4077 lua_pushfstring( L,
"Tables must be of same length." );
4082 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4085 if ( temp4 !=
Alen )
4087 lua_pushfstring( L,
"Tables must be of same length." );
4091 plerry(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4147 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4153 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4156 if ( temp3 !=
Alen )
4158 lua_pushfstring( L,
"Tables must be of same length." );
4162 plfill(arg1,(
double const *)arg2,(
double const *)arg3);
4198 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4204 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4207 if ( temp3 !=
Alen )
4209 lua_pushfstring( L,
"Tables must be of same length." );
4214 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
4217 if ( temp4 !=
Alen )
4219 lua_pushfstring( L,
"Tables must be of same length." );
4223 plfill3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
4262 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plgradient",3,
"PLFLT");
4265 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4271 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
4274 if ( temp3 !=
Alen )
4276 lua_pushfstring( L,
"Tables must be of same length." );
4280 arg4 = (
PLFLT)lua_tonumber(L, 3);
4281 plgradient(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
4327 arg1 = (
PLINT)lua_tonumber(L, 1);
4346 arg1 = (
PLINT)lua_tonumber(L, 1);
4371 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4372 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4398 arg1 = (
PLINT)lua_tonumber(L, 1);
4401 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4402 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4403 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4432 arg1 = (
PLINT)lua_tonumber(L, 1);
4433 plgcol0a(arg1,arg2,arg3,arg4,arg5);
4435 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4436 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4437 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4438 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4464 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4465 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4466 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4495 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4496 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4497 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4498 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4518 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4531 char *arg1 = (
char *) 0 ;
4541 lua_pushstring( L, arg1 );
4572 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4573 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4574 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4575 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4595 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4624 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4625 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4626 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4627 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4653 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4654 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4655 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4675 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4688 char *arg1 = (
char *) 0 ;
4698 lua_pushstring( L, arg1 );
4726 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4727 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4728 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4748 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4781 plgpage(arg1,arg2,arg3,arg4,arg5,arg6);
4783 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4784 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4785 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4786 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
4787 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
4788 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
4831 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plgriddata",6,
"PLINT");
4832 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plgriddata",7,
"PLFLT");
4835 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
4841 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp2 );
4844 if ( temp2 !=
Alen )
4846 lua_pushfstring( L,
"Tables must be of same length." );
4852 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp );
4857 lua_pushfstring( L,
"Tables must be of same length." );
4864 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
4872 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
4880 for ( i = 0; i <
Xlen; i++ )
4883 for ( i = 0; i <
Xlen; i++ )
4890 arg10 = (
PLINT)lua_tonumber(L, 6);
4891 arg11 = (
PLFLT)lua_tonumber(L, 7);
4892 plgriddata((
double const *)arg1,(
double const *)arg2,(
double const *)arg3,arg4,(
double const *)arg5,arg6,(
double const *)arg7,arg8,arg9,arg10,arg11);
4900 for ( i = 0; i <
Xlen; i++ )
4902 SWIG_write_double_num_array( L, arg9[i],
Ylen );
4903 lua_rawseti( L, -2, i + 1 );
4927 for ( i = 0; i <
Xlen; i++ )
4956 for ( i = 0; i <
Xlen; i++ )
4982 plgspa(arg1,arg2,arg3,arg4);
4984 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
4985 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
4986 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
4987 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5007 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5020 char *arg1 = (
char *) 0 ;
5030 lua_pushstring( L, arg1 );
5059 plgvpd(arg1,arg2,arg3,arg4);
5061 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5062 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5063 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5064 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5091 plgvpw(arg1,arg2,arg3,arg4);
5093 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5094 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5095 lua_pushnumber(L, (lua_Number) *arg3); SWIG_arg++;
5096 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5119 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5120 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5143 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5144 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5167 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5168 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5195 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
5200 arg3 = (
PLFLT)lua_tonumber(L, 2);
5201 arg4 = (
PLFLT)lua_tonumber(L, 3);
5202 arg5 = (
PLINT)lua_tonumber(L, 4);
5203 arg6 = (
PLINT)lua_tonumber(L, 5);
5204 plhist(arg1,(
double const *)arg2,arg3,arg4,arg5,arg6);
5241 arg1 = (
PLFLT)lua_tonumber(L, 1);
5242 arg2 = (
PLFLT)lua_tonumber(L, 2);
5243 arg3 = (
PLFLT)lua_tonumber(L, 3);
5244 plhlsrgb(arg1,arg2,arg3,arg4,arg5,arg6);
5246 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
5247 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
5248 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
5287 arg1 = (
PLFLT)lua_tonumber(L, 1);
5288 arg2 = (
PLFLT)lua_tonumber(L, 2);
5289 arg3 = (
PLFLT)lua_tonumber(L, 3);
5290 arg4 = (
PLFLT)lua_tonumber(L, 4);
5291 pljoin(arg1,arg2,arg3,arg4);
5305 char *arg1 = (
char *) 0 ;
5306 char *arg2 = (
char *) 0 ;
5307 char *arg3 = (
char *) 0 ;
5313 arg1 = (
char *)lua_tostring(L, 1);
5314 arg2 = (
char *)lua_tostring(L, 2);
5315 arg3 = (
char *)lua_tostring(L, 3);
5316 pllab((
char const *)arg1,(
char const *)arg2,(
char const *)arg3);
5349 char **arg20 = (
char **) 0 ;
5360 char **arg31 = (
char **) 0 ;
5417 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"pllegend",10,
"PLINT");
5418 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"pllegend",12,
"PLFLT");
5419 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"pllegend",13,
"PLFLT");
5420 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"pllegend",14,
"PLFLT");
5421 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"pllegend",15,
"PLFLT");
5422 if(!lua_istable(L,17))
SWIG_fail_arg(
"pllegend",17,
"char const **");
5423 if(lua_gettop(L)>=28 && !lua_istable(L,28))
SWIG_fail_arg(
"pllegend",28,
"char const **");
5424 arg3 = (
PLINT)lua_tonumber(L, 1);
5425 arg4 = (
PLINT)lua_tonumber(L, 2);
5426 arg5 = (
PLFLT)lua_tonumber(L, 3);
5427 arg6 = (
PLFLT)lua_tonumber(L, 4);
5428 arg7 = (
PLFLT)lua_tonumber(L, 5);
5429 arg8 = (
PLINT)lua_tonumber(L, 6);
5430 arg9 = (
PLINT)lua_tonumber(L, 7);
5431 arg10 = (
PLINT)lua_tonumber(L, 8);
5432 arg11 = (
PLINT)lua_tonumber(L, 9);
5433 arg12 = (
PLINT)lua_tonumber(L, 10);
5435 arg14 = (
PLINT *) LUA_get_int_num_array_var( L, 11, &arg13 );
5440 arg15 = (
PLFLT)lua_tonumber(L, 12);
5441 arg16 = (
PLFLT)lua_tonumber(L, 13);
5442 arg17 = (
PLFLT)lua_tonumber(L, 14);
5443 arg18 = (
PLFLT)lua_tonumber(L, 15);
5445 arg19 = (
PLINT *) LUA_get_int_num_array_var( L, 16, &temp19 );
5448 if ( temp19 !=
Alen )
5450 lua_pushfstring( L,
"Tables must be of same length." );
5460 lua_pushfstring( L,
"Tables must be of same length." );
5463 arg20 = malloc(
sizeof (
char* ) *
Alen );
5464 for ( i = 1; i <=
Alen; i++ )
5466 lua_rawgeti( L, 17, i );
5467 if ( lua_isstring( L, -1 ) )
5469 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5474 lua_pushfstring( L,
"Requires a sequence of strings." );
5481 if(lua_gettop(L)>=18){
5483 arg21 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp21 );
5486 if ( temp21 !=
Alen )
5488 lua_pushfstring( L,
"Tables must be of same length." );
5493 if(lua_gettop(L)>=19){
5495 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp22 );
5498 if ( temp22 !=
Alen )
5500 lua_pushfstring( L,
"Tables must be of same length." );
5505 if(lua_gettop(L)>=20){
5507 arg23 = (
PLFLT *) LUA_get_double_num_array_var( L, 20, &temp23 );
5510 if ( temp23 !=
Alen )
5512 lua_pushfstring( L,
"Tables must be of same length." );
5517 if(lua_gettop(L)>=21){
5519 arg24 = (
PLFLT *) LUA_get_double_num_array_var( L, 21, &temp24 );
5522 if ( temp24 !=
Alen )
5524 lua_pushfstring( L,
"Tables must be of same length." );
5529 if(lua_gettop(L)>=22){
5531 arg25 = (
PLINT *) LUA_get_int_num_array_var( L, 22, &temp25 );
5534 if ( temp25 !=
Alen )
5536 lua_pushfstring( L,
"Tables must be of same length." );
5541 if(lua_gettop(L)>=23){
5543 arg26 = (
PLINT *) LUA_get_int_num_array_var( L, 23, &temp26 );
5546 if ( temp26 !=
Alen )
5548 lua_pushfstring( L,
"Tables must be of same length." );
5553 if(lua_gettop(L)>=24){
5555 arg27 = (
PLFLT *) LUA_get_double_num_array_var( L, 24, &temp27 );
5558 if ( temp27 !=
Alen )
5560 lua_pushfstring( L,
"Tables must be of same length." );
5565 if(lua_gettop(L)>=25){
5567 arg28 = (
PLINT *) LUA_get_int_num_array_var( L, 25, &temp28 );
5570 if ( temp28 !=
Alen )
5572 lua_pushfstring( L,
"Tables must be of same length." );
5577 if(lua_gettop(L)>=26){
5579 arg29 = (
PLFLT *) LUA_get_double_num_array_var( L, 26, &temp29 );
5582 if ( temp29 !=
Alen )
5584 lua_pushfstring( L,
"Tables must be of same length." );
5589 if(lua_gettop(L)>=27){
5591 arg30 = (
PLINT *) LUA_get_int_num_array_var( L, 27, &temp30 );
5594 if ( temp30 !=
Alen )
5596 lua_pushfstring( L,
"Tables must be of same length." );
5601 if(lua_gettop(L)>=28){
5608 lua_pushfstring( L,
"Tables must be of same length." );
5611 arg31 = malloc(
sizeof (
char* ) *
Alen );
5612 for ( i = 1; i <=
Alen; i++ )
5614 lua_rawgeti( L, 28, i );
5615 if ( lua_isstring( L, -1 ) )
5617 arg31[i - 1] = (
char *) lua_tostring( L, -1 );
5622 lua_pushfstring( L,
"Requires a sequence of strings." );
5630 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);
5632 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5633 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5643 free( arg20 ); arg20 = NULL;
5679 free( arg31 ); arg31 = NULL;
5696 free( arg20 ); arg20 = NULL;
5732 free( arg31 ); arg31 = NULL;
5759 char **arg18 = (
char **) 0 ;
5761 char **arg20 = (
char **) 0 ;
5776 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plcolorbar",1,
"PLINT");
5777 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plcolorbar",2,
"PLINT");
5778 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plcolorbar",3,
"PLFLT");
5779 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plcolorbar",4,
"PLFLT");
5780 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plcolorbar",5,
"PLFLT");
5781 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plcolorbar",6,
"PLFLT");
5782 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plcolorbar",7,
"PLINT");
5783 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plcolorbar",8,
"PLINT");
5784 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plcolorbar",9,
"PLINT");
5785 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plcolorbar",10,
"PLFLT");
5786 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plcolorbar",11,
"PLFLT");
5787 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plcolorbar",12,
"PLINT");
5788 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plcolorbar",13,
"PLFLT");
5789 if(!lua_istable(L,15))
SWIG_fail_arg(
"plcolorbar",15,
"char const **");
5790 arg3 = (
PLINT)lua_tonumber(L, 1);
5791 arg4 = (
PLINT)lua_tonumber(L, 2);
5792 arg5 = (
PLFLT)lua_tonumber(L, 3);
5793 arg6 = (
PLFLT)lua_tonumber(L, 4);
5794 arg7 = (
PLFLT)lua_tonumber(L, 5);
5795 arg8 = (
PLFLT)lua_tonumber(L, 6);
5796 arg9 = (
PLINT)lua_tonumber(L, 7);
5797 arg10 = (
PLINT)lua_tonumber(L, 8);
5798 arg11 = (
PLINT)lua_tonumber(L, 9);
5799 arg12 = (
PLFLT)lua_tonumber(L, 10);
5800 arg13 = (
PLFLT)lua_tonumber(L, 11);
5801 arg14 = (
PLINT)lua_tonumber(L, 12);
5802 arg15 = (
PLFLT)lua_tonumber(L, 13);
5804 arg17 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &arg16 );
5815 lua_pushfstring( L,
"Tables must be of same length." );
5818 arg18 = malloc(
sizeof (
char* ) *
Alen );
5819 for ( i = 1; i <=
Alen; i++ )
5821 lua_rawgeti( L, 15, i );
5822 if ( lua_isstring( L, -1 ) )
5824 arg18[i - 1] = (
char *) lua_tostring( L, -1 );
5829 lua_pushfstring( L,
"Requires a sequence of strings." );
5841 arg20 = malloc(
sizeof (
char* ) *
Alen );
5842 for ( i = 1; i <=
Alen; i++ )
5844 lua_rawgeti( L, 16, i );
5845 if ( lua_isstring( L, -1 ) )
5847 arg20[i - 1] = (
char *) lua_tostring( L, -1 );
5852 lua_pushfstring( L,
"Requires a sequence of strings." );
5859 arg21 = (
PLFLT *) LUA_get_double_num_array_var( L, 17, &temp21 );
5862 if ( temp21 !=
Alen )
5864 lua_pushfstring( L,
"Tables must be of same length." );
5869 arg22 = (
PLINT *) LUA_get_int_num_array_var( L, 18, &temp22 );
5872 if ( temp22 !=
Alen )
5874 lua_pushfstring( L,
"Tables must be of same length." );
5881 arg23 = (
PLINT *) LUA_get_int_num_array_var( L, 19, &temp23 );
5884 if ( temp23 !=
Alen )
5886 lua_pushfstring( L,
"Tables must be of same length." );
5892 for ( i = 0; i <
Xlen; i++ )
5893 if ( arg23[i] >
Ylen )
5902 if ( ( ii24 !=
Xlen ) || ( jj !=
Ylen ) )
5904 lua_pushfstring( L,
"Vectors must match matrix." );
5908 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);
5910 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
5911 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
5918 free( arg18 ); arg18 = NULL;
5924 free( arg20 ); arg20 = NULL;
5941 for ( i = 0; i < ii24; i++ )
5957 free( arg18 ); arg18 = NULL;
5963 free( arg20 ); arg20 = NULL;
5980 for ( i = 0; i < ii24; i++ )
5997 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"pllightsource",1,
"PLFLT");
5998 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"pllightsource",2,
"PLFLT");
5999 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"pllightsource",3,
"PLFLT");
6000 arg1 = (
PLFLT)lua_tonumber(L, 1);
6001 arg2 = (
PLFLT)lua_tonumber(L, 2);
6002 arg3 = (
PLFLT)lua_tonumber(L, 3);
6025 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6031 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6034 if ( temp3 !=
Alen )
6036 lua_pushfstring( L,
"Tables must be of same length." );
6040 plline(arg1,(
double const *)arg2,(
double const *)arg3);
6076 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6082 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
6085 if ( temp3 !=
Alen )
6087 lua_pushfstring( L,
"Tables must be of same length." );
6092 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
6095 if ( temp4 !=
Alen )
6097 lua_pushfstring( L,
"Tables must be of same length." );
6101 plline3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4);
6137 arg1 = (
PLINT)lua_tonumber(L, 1);
6164 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6171 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6184 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6186 lua_pushfstring( L,
"Vectors must match matrix." );
6190 arg6 = (
PLINT)lua_tonumber(L, 4);
6191 plmesh((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6);
6204 for ( i = 0; i < ii3; i++ )
6225 for ( i = 0; i < ii3; i++ )
6251 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6258 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6271 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6273 lua_pushfstring( L,
"Vectors must match matrix." );
6277 arg6 = (
PLINT)lua_tonumber(L, 4);
6280 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6285 plmeshc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6298 for ( i = 0; i < ii3; i++ )
6322 for ( i = 0; i < ii3; i++ )
6344 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
6357 char *arg1 = (
char *) 0 ;
6361 char *arg5 = (
char *) 0 ;
6369 arg1 = (
char *)lua_tostring(L, 1);
6370 arg2 = (
PLFLT)lua_tonumber(L, 2);
6371 arg3 = (
PLFLT)lua_tonumber(L, 3);
6372 arg4 = (
PLFLT)lua_tonumber(L, 4);
6373 arg5 = (
char *)lua_tostring(L, 5);
6374 plmtex((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6388 char *arg1 = (
char *) 0 ;
6392 char *arg5 = (
char *) 0 ;
6400 arg1 = (
char *)lua_tostring(L, 1);
6401 arg2 = (
PLFLT)lua_tonumber(L, 2);
6402 arg3 = (
PLFLT)lua_tonumber(L, 3);
6403 arg4 = (
PLFLT)lua_tonumber(L, 4);
6404 arg5 = (
char *)lua_tostring(L, 5);
6405 plmtex3((
char const *)arg1,arg2,arg3,arg4,(
char const *)arg5);
6433 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6440 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6453 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6455 lua_pushfstring( L,
"Vectors must match matrix." );
6459 arg6 = (
PLINT)lua_tonumber(L, 4);
6460 arg7 = (
PLBOOL)lua_tonumber(L, 5);
6461 plot3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,arg7);
6474 for ( i = 0; i < ii3; i++ )
6495 for ( i = 0; i < ii3; i++ )
6521 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6528 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6541 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6543 lua_pushfstring( L,
"Vectors must match matrix." );
6547 arg6 = (
PLINT)lua_tonumber(L, 4);
6550 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6555 plot3dc((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6568 for ( i = 0; i < ii3; i++ )
6592 for ( i = 0; i < ii3; i++ )
6627 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6634 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6647 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6649 lua_pushfstring( L,
"Vectors must match matrix." );
6653 arg6 = (
PLINT)lua_tonumber(L, 4);
6656 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6661 arg9 = (
PLINT)lua_tonumber(L, 6);
6663 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6669 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6672 if ( temp12 !=
Alen )
6674 lua_pushfstring( L,
"Tables must be of same length." );
6678 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);
6691 for ( i = 0; i < ii3; i++ )
6721 for ( i = 0; i < ii3; i++ )
6756 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6763 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6776 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6778 lua_pushfstring( L,
"Vectors must match matrix." );
6782 arg6 = (
PLINT)lua_tonumber(L, 4);
6785 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6790 plsurf3d((
double const *)arg1,(
double const *)arg2,(
double const **)arg3,arg4,arg5,arg6,(
double const *)arg7,arg8);
6803 for ( i = 0; i < ii3; i++ )
6827 for ( i = 0; i < ii3; i++ )
6858 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plsurf3dl",4,
"PLINT");
6859 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plsurf3dl",6,
"PLINT");
6862 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
6869 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
6882 if ( ( arg4 !=
Xlen ) || ( arg5 !=
Ylen ) )
6884 lua_pushfstring( L,
"Vectors must match matrix." );
6888 arg6 = (
PLINT)lua_tonumber(L, 4);
6891 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp );
6896 arg9 = (
PLINT)lua_tonumber(L, 6);
6898 arg11 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &arg10 );
6904 arg12 = (
PLINT *) LUA_get_int_num_array_var( L, 8, &temp12 );
6907 if ( temp12 !=
Alen )
6909 lua_pushfstring( L,
"Tables must be of same length." );
6913 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);
6926 for ( i = 0; i < ii3; i++ )
6956 for ( i = 0; i < ii3; i++ )
6977 int *arg1 = (
int *) 0 ;
6978 char **arg2 = (
char **) 0 ;
6983 if(!lua_istable(L,1))
SWIG_fail_arg(
"plparseopts",1,
"int *");
6984 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plparseopts",2,
"PLINT");
6993 lua_rawgeti( L, 1, i );
6994 if ( lua_isnil( L, -1 ) )
7007 for ( i = 0; i < n; i++ )
7009 lua_rawgeti( L, 1, i );
7010 if ( lua_isstring( L, -1 ) )
7012 arg2[i] = (
char *) lua_tostring( L, -1 );
7017 lua_pushfstring( L,
"List items must be strings" );
7025 arg3 = (
PLINT)lua_tonumber(L, 2);
7027 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7053 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
7059 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
7062 if ( temp3 !=
Alen )
7064 lua_pushfstring( L,
"Tables must be of same length." );
7068 plpat(arg1,(
int const *)arg2,(
int const *)arg3);
7104 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7110 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7113 if ( temp3 !=
Alen )
7115 lua_pushfstring( L,
"Tables must be of same length." );
7119 arg4 = (
PLINT)lua_tonumber(L, 3);
7120 plpoin(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
7158 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7164 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7167 if ( temp3 !=
Alen )
7169 lua_pushfstring( L,
"Tables must be of same length." );
7174 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7177 if ( temp4 !=
Alen )
7179 lua_pushfstring( L,
"Tables must be of same length." );
7183 arg5 = (
PLINT)lua_tonumber(L, 4);
7184 plpoin3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,arg5);
7230 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
7236 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
7239 if ( temp3 !=
Alen )
7241 lua_pushfstring( L,
"Tables must be of same length." );
7246 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7249 if ( temp4 !=
Alen )
7251 lua_pushfstring( L,
"Tables must be of same length." );
7256 arg5 = (
PLINT *) LUA_get_int_num_array_var( L, 4, &temp5 );
7259 if ( temp5 <
Alen - 1 )
7261 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7265 arg6 = (
PLBOOL)lua_tonumber(L, 5);
7266 plpoly3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
int const *)arg5,arg6);
7310 arg1 = (
PLINT)lua_tonumber(L, 1);
7311 arg2 = (
PLINT)lua_tonumber(L, 2);
7330 arg1 = (
PLINT)lua_tonumber(L, 1);
7350 char *arg6 = (
char *) 0 ;
7359 arg1 = (
PLFLT)lua_tonumber(L, 1);
7360 arg2 = (
PLFLT)lua_tonumber(L, 2);
7361 arg3 = (
PLFLT)lua_tonumber(L, 3);
7362 arg4 = (
PLFLT)lua_tonumber(L, 4);
7363 arg5 = (
PLFLT)lua_tonumber(L, 5);
7364 arg6 = (
char *)lua_tostring(L, 6);
7365 plptex(arg1,arg2,arg3,arg4,arg5,(
char const *)arg6);
7389 char *arg11 = (
char *) 0 ;
7401 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plptex3",10,
"PLFLT");
7403 arg1 = (
PLFLT)lua_tonumber(L, 1);
7404 arg2 = (
PLFLT)lua_tonumber(L, 2);
7405 arg3 = (
PLFLT)lua_tonumber(L, 3);
7406 arg4 = (
PLFLT)lua_tonumber(L, 4);
7407 arg5 = (
PLFLT)lua_tonumber(L, 5);
7408 arg6 = (
PLFLT)lua_tonumber(L, 6);
7409 arg7 = (
PLFLT)lua_tonumber(L, 7);
7410 arg8 = (
PLFLT)lua_tonumber(L, 8);
7411 arg9 = (
PLFLT)lua_tonumber(L, 9);
7412 arg10 = (
PLFLT)lua_tonumber(L, 10);
7413 arg11 = (
char *)lua_tostring(L, 11);
7414 plptex3(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,(
char const *)arg11);
7432 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
7478 arg1 = (
PLFLT)lua_tonumber(L, 1);
7479 arg2 = (
PLFLT)lua_tonumber(L, 2);
7480 arg3 = (
PLFLT)lua_tonumber(L, 3);
7481 plrgbhls(arg1,arg2,arg3,arg4,arg5,arg6);
7483 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
7484 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
7485 lua_pushnumber(L, (lua_Number) *arg6); SWIG_arg++;
7504 arg1 = (
PLFLT)lua_tonumber(L, 1);
7505 arg2 = (
PLFLT)lua_tonumber(L, 2);
7530 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7536 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7539 if ( temp2 !=
Alen )
7541 lua_pushfstring( L,
"Tables must be of same length." );
7546 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7549 if ( temp3 !=
Alen )
7551 lua_pushfstring( L,
"Tables must be of same length." );
7556 plscmap0((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7599 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7605 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7608 if ( temp2 !=
Alen )
7610 lua_pushfstring( L,
"Tables must be of same length." );
7615 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7618 if ( temp3 !=
Alen )
7620 lua_pushfstring( L,
"Tables must be of same length." );
7626 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7631 lua_pushfstring( L,
"Tables must be of same length." );
7636 plscmap0a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7677 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap0n",1,
"PLINT");
7678 arg1 = (
PLINT)lua_tonumber(L, 1);
7703 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7709 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7712 if ( temp2 !=
Alen )
7714 lua_pushfstring( L,
"Tables must be of same length." );
7719 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7722 if ( temp3 !=
Alen )
7724 lua_pushfstring( L,
"Tables must be of same length." );
7729 plscmap1((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,arg4);
7772 arg1 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &temp1 );
7778 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp2 );
7781 if ( temp2 !=
Alen )
7783 lua_pushfstring( L,
"Tables must be of same length." );
7788 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 3, &temp3 );
7791 if ( temp3 !=
Alen )
7793 lua_pushfstring( L,
"Tables must be of same length." );
7799 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp );
7804 lua_pushfstring( L,
"Tables must be of same length." );
7809 plscmap1a((
int const *)arg1,(
int const *)arg2,(
int const *)arg3,(
double const *)arg4,arg5);
7863 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1l",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." );
7902 if(lua_gettop(L)>=6){
7904 arg7 = (
PLINT *) LUA_get_int_num_array_var( L, 6, &temp7 );
7907 if ( temp7 <
Alen - 1 )
7909 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
7914 plscmap1l(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
int const *)arg7);
7976 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1la",1,
"PLBOOL");
7977 arg1 = (
PLBOOL)lua_tonumber(L, 1);
7980 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
7986 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
7989 if ( temp4 !=
Alen )
7991 lua_pushfstring( L,
"Tables must be of same length." );
7996 arg5 = (
PLFLT *) LUA_get_double_num_array_var( L, 4, &temp5 );
7999 if ( temp5 !=
Alen )
8001 lua_pushfstring( L,
"Tables must be of same length." );
8006 arg6 = (
PLFLT *) LUA_get_double_num_array_var( L, 5, &temp6 );
8009 if ( temp6 !=
Alen )
8011 lua_pushfstring( L,
"Tables must be of same length." );
8016 arg7 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp7 );
8019 if ( temp7 !=
Alen )
8021 lua_pushfstring( L,
"Tables must be of same length." );
8025 if(lua_gettop(L)>=7){
8027 arg8 = (
PLINT *) LUA_get_int_num_array_var( L, 7, &temp8 );
8030 if ( temp8 <
Alen - 1 )
8032 lua_pushfstring( L,
"Tables must be at least length of others minus 1." );
8037 plscmap1la(arg1,arg2,(
double const *)arg3,(
double const *)arg4,(
double const *)arg5,(
double const *)arg6,(
double const *)arg7,(
int const *)arg8);
8090 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1n",1,
"PLINT");
8091 arg1 = (
PLINT)lua_tonumber(L, 1);
8110 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscmap1_range",1,
"PLFLT");
8111 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscmap1_range",2,
"PLFLT");
8112 arg1 = (
PLFLT)lua_tonumber(L, 1);
8113 arg2 = (
PLFLT)lua_tonumber(L, 2);
8138 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
8139 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
8162 arg1 = (
PLINT)lua_tonumber(L, 1);
8163 arg2 = (
PLINT)lua_tonumber(L, 2);
8164 arg3 = (
PLINT)lua_tonumber(L, 3);
8165 arg4 = (
PLINT)lua_tonumber(L, 4);
8192 arg1 = (
PLINT)lua_tonumber(L, 1);
8193 arg2 = (
PLINT)lua_tonumber(L, 2);
8194 arg3 = (
PLINT)lua_tonumber(L, 3);
8195 arg4 = (
PLINT)lua_tonumber(L, 4);
8196 arg5 = (
PLFLT)lua_tonumber(L, 5);
8197 plscol0a(arg1,arg2,arg3,arg4,arg5);
8219 arg1 = (
PLINT)lua_tonumber(L, 1);
8220 arg2 = (
PLINT)lua_tonumber(L, 2);
8221 arg3 = (
PLINT)lua_tonumber(L, 3);
8242 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscolbga",1,
"PLINT");
8243 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plscolbga",2,
"PLINT");
8244 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plscolbga",3,
"PLINT");
8245 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plscolbga",4,
"PLFLT");
8246 arg1 = (
PLINT)lua_tonumber(L, 1);
8247 arg2 = (
PLINT)lua_tonumber(L, 2);
8248 arg3 = (
PLINT)lua_tonumber(L, 3);
8249 arg4 = (
PLFLT)lua_tonumber(L, 4);
8268 arg1 = (
PLINT)lua_tonumber(L, 1);
8286 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plscompression",1,
"PLINT");
8287 arg1 = (
PLINT)lua_tonumber(L, 1);
8302 char *arg1 = (
char *) 0 ;
8306 arg1 = (
char *)lua_tostring(L, 1);
8307 plsdev((
char const *)arg1);
8331 arg1 = (
PLFLT)lua_tonumber(L, 1);
8332 arg2 = (
PLFLT)lua_tonumber(L, 2);
8333 arg3 = (
PLFLT)lua_tonumber(L, 3);
8334 arg4 = (
PLFLT)lua_tonumber(L, 4);
8363 arg1 = (
PLINT)lua_tonumber(L, 1);
8364 arg2 = (
PLINT)lua_tonumber(L, 2);
8365 arg3 = (
PLINT)lua_tonumber(L, 3);
8366 arg4 = (
PLINT)lua_tonumber(L, 4);
8367 arg5 = (
PLFLT)lua_tonumber(L, 5);
8368 arg6 = (
PLFLT)lua_tonumber(L, 6);
8369 plsdimap(arg1,arg2,arg3,arg4,arg5,arg6);
8387 arg1 = (
PLFLT)lua_tonumber(L, 1);
8412 arg1 = (
PLFLT)lua_tonumber(L, 1);
8413 arg2 = (
PLFLT)lua_tonumber(L, 2);
8414 arg3 = (
PLFLT)lua_tonumber(L, 3);
8415 arg4 = (
PLFLT)lua_tonumber(L, 4);
8440 arg1 = (
PLFLT)lua_tonumber(L, 1);
8441 arg2 = (
PLFLT)lua_tonumber(L, 2);
8442 arg3 = (
PLFLT)lua_tonumber(L, 3);
8443 arg4 = (
PLFLT)lua_tonumber(L, 4);
8461 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plseed",1,
"unsigned int");
8463 arg1 = (
unsigned int)lua_tonumber(L, 1);
8482 arg1 = (lua_tostring(L, 1))[0];
8497 char *arg1 = (
char *) 0 ;
8498 char *arg2 = (
char *) 0 ;
8504 arg1 = (
char *)lua_tostring(L, 1);
8505 arg2 = (
char *)lua_tostring(L, 2);
8506 result = (
PLINT)
plsetopt((
char const *)arg1,(
char const *)arg2);
8507 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
8528 arg1 = (
PLINT)lua_tonumber(L, 1);
8529 arg2 = (
PLINT)lua_tonumber(L, 2);
8530 arg3 = (
PLINT)lua_tonumber(L, 3);
8548 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plsfci",1,
"PLUNICODE");
8565 char *arg1 = (
char *) 0 ;
8569 arg1 = (
char *)lua_tostring(L, 1);
8592 arg1 = (
PLINT)lua_tonumber(L, 1);
8593 arg2 = (
PLINT)lua_tonumber(L, 2);
8594 arg3 = (
PLINT)lua_tonumber(L, 3);
8631 cgrid117.
xg = cgrid117.
yg = cgrid117.
zg = NULL;
8632 cgrid117.
nx = cgrid117.
ny = cgrid117.
nz = 0;
8633 cgrid217.
xg = cgrid217.
yg = cgrid217.
zg = NULL;
8634 cgrid217.
nx = cgrid217.
ny = 0;
8656 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshades",10,
"PLBOOL");
8666 arg5 = (
PLFLT)lua_tonumber(L, 2);
8667 arg6 = (
PLFLT)lua_tonumber(L, 3);
8668 arg7 = (
PLFLT)lua_tonumber(L, 4);
8669 arg8 = (
PLFLT)lua_tonumber(L, 5);
8672 arg9 = (
PLFLT *) LUA_get_double_num_array_var( L, 6, &temp );
8675 arg10 =
Alen = temp;
8677 arg11 = (
PLFLT)lua_tonumber(L, 7);
8678 arg12 = (
PLINT)lua_tonumber(L, 8);
8679 arg13 = (
PLFLT)lua_tonumber(L, 9);
8680 arg15 = (
PLBOOL)lua_tonumber(L, 10);
8681 if(lua_gettop(L)>=11){
8686 if ( lua_isstring( L, 11 ) )
8688 const char* funcstr = lua_tostring( L, 11 );
8689 if ( strcmp(
"pltr0", funcstr ) == 0 )
8693 else if ( strcmp(
"pltr1", funcstr ) == 0 )
8697 else if ( strcmp(
"pltr2", funcstr ) == 0 )
8712 if(lua_gettop(L)>=12){
8717 lua_pushstring( L,
"xg" );
8718 lua_gettable( L, 12 );
8719 if ( !lua_istable( L, -1 ) )
8722 lua_pushstring( L,
"expected a table xg" );
8725 lua_rawgeti( L, -1, 1 );
8726 if ( lua_istable( L, -1 ) )
8728 else if ( lua_isnumber( L, -1 ) )
8734 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
8738 if ( gridmode == 1 )
8740 cgrid117.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
8748 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
8761 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8764 lua_pushfstring( L,
"Vectors must match matrix." );
8772 lua_pushstring( L,
"yg" );
8773 lua_gettable( L, 12 );
8774 if ( !lua_istable( L, -1 ) )
8777 lua_pushstring( L,
"expected a table yg" );
8780 lua_rawgeti( L, -1, 1 );
8781 if ( gridmode == 2 )
8783 if ( !lua_istable( L, -1 ) )
8787 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
8793 if ( !lua_isnumber( L, -1 ) )
8797 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
8802 if ( gridmode == 1 )
8804 cgrid117.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
8812 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
8825 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
8828 lua_pushfstring( L,
"Vectors must match matrix." );
8835 if ( gridmode == 1 )
8837 else if ( gridmode == 2 )
8841 plshades((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,(
double const *)arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17);
8848 for ( i = 0; i < ii1; i++ )
8867 for ( i = 0; i <
Xlen; i++ )
8873 for ( i = 0; i <
Xlen; i++ )
8888 for ( i = 0; i < ii1; i++ )
8907 for ( i = 0; i <
Xlen; i++ )
8913 for ( i = 0; i <
Xlen; i++ )
8951 cgrid121.
xg = cgrid121.
yg = cgrid121.
zg = NULL;
8952 cgrid121.
nx = cgrid121.
ny = cgrid121.
nz = 0;
8953 cgrid221.
xg = cgrid221.
yg = cgrid221.
zg = NULL;
8954 cgrid221.
nx = cgrid221.
ny = 0;
8977 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plshade",10,
"PLFLT");
8978 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plshade",11,
"PLINT");
8979 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plshade",12,
"PLFLT");
8980 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plshade",13,
"PLINT");
8981 if(!lua_isnumber(L,14))
SWIG_fail_arg(
"plshade",14,
"PLFLT");
8982 if(!lua_isnumber(L,15))
SWIG_fail_arg(
"plshade",15,
"PLBOOL");
8992 arg5 = (
PLFLT)lua_tonumber(L, 2);
8993 arg6 = (
PLFLT)lua_tonumber(L, 3);
8994 arg7 = (
PLFLT)lua_tonumber(L, 4);
8995 arg8 = (
PLFLT)lua_tonumber(L, 5);
8996 arg9 = (
PLFLT)lua_tonumber(L, 6);
8997 arg10 = (
PLFLT)lua_tonumber(L, 7);
8998 arg11 = (
PLINT)lua_tonumber(L, 8);
8999 arg12 = (
PLFLT)lua_tonumber(L, 9);
9000 arg13 = (
PLFLT)lua_tonumber(L, 10);
9001 arg14 = (
PLINT)lua_tonumber(L, 11);
9002 arg15 = (
PLFLT)lua_tonumber(L, 12);
9003 arg16 = (
PLINT)lua_tonumber(L, 13);
9004 arg17 = (
PLFLT)lua_tonumber(L, 14);
9005 arg19 = (
PLBOOL)lua_tonumber(L, 15);
9006 if(lua_gettop(L)>=16){
9011 if ( lua_isstring( L, 16 ) )
9013 const char* funcstr = lua_tostring( L, 16 );
9014 if ( strcmp(
"pltr0", funcstr ) == 0 )
9018 else if ( strcmp(
"pltr1", funcstr ) == 0 )
9022 else if ( strcmp(
"pltr2", funcstr ) == 0 )
9037 if(lua_gettop(L)>=17){
9042 lua_pushstring( L,
"xg" );
9043 lua_gettable( L, 17 );
9044 if ( !lua_istable( L, -1 ) )
9047 lua_pushstring( L,
"expected a table xg" );
9050 lua_rawgeti( L, -1, 1 );
9051 if ( lua_istable( L, -1 ) )
9053 else if ( lua_isnumber( L, -1 ) )
9059 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
9063 if ( gridmode == 1 )
9065 cgrid121.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
9073 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
9086 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9089 lua_pushfstring( L,
"Vectors must match matrix." );
9097 lua_pushstring( L,
"yg" );
9098 lua_gettable( L, 17 );
9099 if ( !lua_istable( L, -1 ) )
9102 lua_pushstring( L,
"expected a table yg" );
9105 lua_rawgeti( L, -1, 1 );
9106 if ( gridmode == 2 )
9108 if ( !lua_istable( L, -1 ) )
9112 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
9118 if ( !lua_isnumber( L, -1 ) )
9122 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
9127 if ( gridmode == 1 )
9129 cgrid121.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
9137 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
9150 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
9153 lua_pushfstring( L,
"Vectors must match matrix." );
9160 if ( gridmode == 1 )
9162 else if ( gridmode == 2 )
9166 plshade((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13,arg14,arg15,arg16,arg17,arg18,arg19,arg20,arg21);
9173 for ( i = 0; i < ii1; i++ )
9189 for ( i = 0; i <
Xlen; i++ )
9195 for ( i = 0; i <
Xlen; i++ )
9210 for ( i = 0; i < ii1; i++ )
9226 for ( i = 0; i <
Xlen; i++ )
9232 for ( i = 0; i <
Xlen; i++ )
9255 if ( lua_isnil( L, 1 ) )
9259 else if ( lua_isstring( L, 1 ) )
9294 arg1 = (
PLFLT)lua_tonumber(L, 1);
9295 arg2 = (
PLFLT)lua_tonumber(L, 2);
9316 arg1 = (
PLFLT)lua_tonumber(L, 1);
9317 arg2 = (
PLFLT)lua_tonumber(L, 2);
9336 arg1 = (
PLINT)lua_tonumber(L, 1);
9365 arg1 = (
PLFLT)lua_tonumber(L, 1);
9366 arg2 = (
PLFLT)lua_tonumber(L, 2);
9367 arg3 = (
PLINT)lua_tonumber(L, 3);
9368 arg4 = (
PLINT)lua_tonumber(L, 4);
9369 arg5 = (
PLINT)lua_tonumber(L, 5);
9370 arg6 = (
PLINT)lua_tonumber(L, 6);
9371 plspage(arg1,arg2,arg3,arg4,arg5,arg6);
9385 char *arg1 = (
char *) 0 ;
9389 arg1 = (
char *)lua_tostring(L, 1);
9404 char *arg1 = (
char *) 0 ;
9410 arg1 = (
char *)lua_tostring(L, 1);
9411 arg2 = (
PLBOOL)lua_tonumber(L, 2);
9412 plspal1((
char const *)arg1,arg2);
9429 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plspause",1,
"PLBOOL");
9430 arg1 = (
PLBOOL)lua_tonumber(L, 1);
9449 arg1 = (
PLINT)lua_tonumber(L, 1);
9470 arg1 = (
PLINT)lua_tonumber(L, 1);
9471 arg2 = (
PLINT)lua_tonumber(L, 2);
9492 arg1 = (
PLFLT)lua_tonumber(L, 1);
9493 arg2 = (
PLFLT)lua_tonumber(L, 2);
9514 arg1 = (
PLINT)lua_tonumber(L, 1);
9515 arg2 = (
PLINT)lua_tonumber(L, 2);
9530 char *arg1 = (
char *) 0 ;
9538 arg1 = (
char *)lua_tostring(L, 1);
9539 arg2 = (
PLINT)lua_tonumber(L, 2);
9540 arg3 = (
PLINT)lua_tonumber(L, 3);
9541 plstart((
char const *)arg1,arg2,arg3);
9566 if(lua_gettop(L)>=1){
9571 if ( lua_isstring( L, 1 ) )
9573 const char* funcstr = lua_tostring( L, 1 );
9599 char *arg4 = (
char *) 0 ;
9606 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9612 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9615 if ( temp3 !=
Alen )
9617 lua_pushfstring( L,
"Tables must be of same length." );
9621 arg4 = (
char *)lua_tostring(L, 3);
9622 plstring(arg1,(
double const *)arg2,(
double const *)arg3,(
char const *)arg4);
9652 char *arg5 = (
char *) 0 ;
9660 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9666 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
9669 if ( temp3 !=
Alen )
9671 lua_pushfstring( L,
"Tables must be of same length." );
9676 arg4 = (
PLFLT *) LUA_get_double_num_array_var( L, 3, &temp4 );
9679 if ( temp4 !=
Alen )
9681 lua_pushfstring( L,
"Tables must be of same length." );
9685 arg5 = (
char *)lua_tostring(L, 4);
9686 plstring3(arg1,(
double const *)arg2,(
double const *)arg3,(
double const *)arg4,(
char const *)arg5);
9728 arg1 = (
PLINT)lua_tonumber(L, 1);
9729 arg2 = (
PLINT)lua_tonumber(L, 2);
9730 arg3 = (
PLFLT)lua_tonumber(L, 3);
9731 arg4 = (
PLFLT)lua_tonumber(L, 4);
9747 char *arg2 = (
char *) 0 ;
9748 char *arg3 = (
char *) 0 ;
9763 char *arg18 = (
char *) 0 ;
9764 char *arg19 = (
char *) 0 ;
9765 char *arg20 = (
char *) 0 ;
9781 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plstripc",10,
"PLBOOL");
9782 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plstripc",11,
"PLBOOL");
9783 if(!lua_isnumber(L,12))
SWIG_fail_arg(
"plstripc",12,
"PLINT");
9784 if(!lua_isnumber(L,13))
SWIG_fail_arg(
"plstripc",13,
"PLINT");
9785 if(!lua_istable(L,16))
SWIG_fail_arg(
"plstripc",16,
"char const *[4]");
9789 arg2 = (
char *)lua_tostring(L, 1);
9790 arg3 = (
char *)lua_tostring(L, 2);
9791 arg4 = (
PLFLT)lua_tonumber(L, 3);
9792 arg5 = (
PLFLT)lua_tonumber(L, 4);
9793 arg6 = (
PLFLT)lua_tonumber(L, 5);
9794 arg7 = (
PLFLT)lua_tonumber(L, 6);
9795 arg8 = (
PLFLT)lua_tonumber(L, 7);
9796 arg9 = (
PLFLT)lua_tonumber(L, 8);
9797 arg10 = (
PLFLT)lua_tonumber(L, 9);
9798 arg11 = (
PLBOOL)lua_tonumber(L, 10);
9799 arg12 = (
PLBOOL)lua_tonumber(L, 11);
9800 arg13 = (
PLINT)lua_tonumber(L, 12);
9801 arg14 = (
PLINT)lua_tonumber(L, 13);
9803 arg15 = (
PLINT *) LUA_get_int_num_array_var( L, 14, &temp15 );
9809 arg16 = (
PLINT *) LUA_get_int_num_array_var( L, 15, &temp16 );
9812 if ( temp16 !=
Alen )
9814 lua_pushfstring( L,
"Tables must be of same length." );
9824 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9829 lua_pushfstring( L,
"colline and styline args must be length 4." );
9833 arg17 = malloc(
sizeof (
char* ) * 4 );
9834 for ( i = 1; i <= 4; i++ )
9836 lua_rawgeti( L, 16, i );
9837 if ( lua_isstring( L, -1 ) )
9839 arg17[i - 1] = (
char *) lua_tostring( L, -1 );
9844 lua_pushfstring( L,
"Requires a sequence of 4 strings." );
9851 arg18 = (
char *)lua_tostring(L, 17);
9852 arg19 = (
char *)lua_tostring(L, 18);
9853 arg20 = (
char *)lua_tostring(L, 19);
9854 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);
9856 lua_pushnumber(L, (lua_Number) *arg1); SWIG_arg++;
9866 free( arg17 ); arg17 = NULL;
9883 free( arg17 ); arg17 = NULL;
9897 arg1 = (
PLINT)lua_tonumber(L, 1);
9919 arg2 = (
PLINT *) LUA_get_int_num_array_var( L, 1, &arg1 );
9925 arg3 = (
PLINT *) LUA_get_int_num_array_var( L, 2, &temp3 );
9928 if ( temp3 !=
Alen )
9930 lua_pushfstring( L,
"Tables must be of same length." );
9934 plstyl(arg1,(
int const *)arg2,(
int const *)arg3);
9969 arg1 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
9976 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp );
9981 lua_pushfstring( L,
"Tables must be of same length." );
9986 arg4 = (
PLBOOL)lua_tonumber(L, 3);
9987 plsvect((
double const *)arg1,(
double const *)arg2,arg3,arg4);
10023 arg1 = (
PLFLT)lua_tonumber(L, 1);
10024 arg2 = (
PLFLT)lua_tonumber(L, 2);
10025 arg3 = (
PLFLT)lua_tonumber(L, 3);
10026 arg4 = (
PLFLT)lua_tonumber(L, 4);
10027 plsvpa(arg1,arg2,arg3,arg4);
10047 arg1 = (
PLINT)lua_tonumber(L, 1);
10048 arg2 = (
PLINT)lua_tonumber(L, 2);
10069 arg1 = (
PLINT)lua_tonumber(L, 1);
10070 arg2 = (
PLINT)lua_tonumber(L, 2);
10095 arg2 = (
PLFLT *) LUA_get_double_num_array_var( L, 1, &temp );
10098 arg1 =
Alen = temp;
10101 arg3 = (
PLFLT *) LUA_get_double_num_array_var( L, 2, &temp3 );
10104 if ( temp3 !=
Alen )
10106 lua_pushfstring( L,
"Tables must be of same length." );
10110 arg4 = (
PLINT)lua_tonumber(L, 3);
10111 plsym(arg1,(
double const *)arg2,(
double const *)arg3,arg4);
10143 arg1 = (
PLINT)lua_tonumber(L, 1);
10144 arg2 = (
PLINT)lua_tonumber(L, 2);
10175 char *arg1 = (
char *) 0 ;
10179 arg1 = (
char *)lua_tostring(L, 1);
10198 arg1 = (
PLFLT)lua_tonumber(L, 1);
10226 cgrid17.
xg = cgrid17.
yg = cgrid17.
zg = NULL;
10227 cgrid17.
nx = cgrid17.
ny = cgrid17.
nz = 0;
10228 cgrid27.
xg = cgrid27.
yg = cgrid27.
zg = NULL;
10229 cgrid27.
nx = cgrid27.
ny = 0;
10256 if ( ( arg3 !=
Xlen ) || ( arg4 !=
Ylen ) )
10258 lua_pushfstring( L,
"Vectors must match matrix." );
10262 arg5 = (
PLFLT)lua_tonumber(L, 3);
10263 if(lua_gettop(L)>=4){
10268 if ( lua_isstring( L, 4 ) )
10270 const char* funcstr = lua_tostring( L, 4 );
10271 if ( strcmp(
"pltr0", funcstr ) == 0 )
10275 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10279 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10294 if(lua_gettop(L)>=5){
10299 lua_pushstring( L,
"xg" );
10300 lua_gettable( L, 5 );
10301 if ( !lua_istable( L, -1 ) )
10304 lua_pushstring( L,
"expected a table xg" );
10307 lua_rawgeti( L, -1, 1 );
10308 if ( lua_istable( L, -1 ) )
10310 else if ( lua_isnumber( L, -1 ) )
10316 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
10320 if ( gridmode == 1 )
10322 cgrid17.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
10330 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
10343 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10346 lua_pushfstring( L,
"Vectors must match matrix." );
10354 lua_pushstring( L,
"yg" );
10355 lua_gettable( L, 5 );
10356 if ( !lua_istable( L, -1 ) )
10359 lua_pushstring( L,
"expected a table yg" );
10362 lua_rawgeti( L, -1, 1 );
10363 if ( gridmode == 2 )
10365 if ( !lua_istable( L, -1 ) )
10369 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
10375 if ( !lua_isnumber( L, -1 ) )
10379 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
10384 if ( gridmode == 1 )
10386 cgrid17.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
10394 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
10407 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
10410 lua_pushfstring( L,
"Vectors must match matrix." );
10417 if ( gridmode == 1 )
10419 else if ( gridmode == 2 )
10423 plvect((
double const **)arg1,(
double const **)arg2,arg3,arg4,arg5,arg6,arg7);
10430 for ( i = 0; i < ii1; i++ )
10440 for ( i = 0; i < ii2; i++ )
10456 for ( i = 0; i <
Xlen; i++ )
10462 for ( i = 0; i <
Xlen; i++ )
10477 for ( i = 0; i < ii1; i++ )
10487 for ( i = 0; i < ii2; i++ )
10503 for ( i = 0; i <
Xlen; i++ )
10509 for ( i = 0; i <
Xlen; i++ )
10533 arg1 = (
PLFLT)lua_tonumber(L, 1);
10534 arg2 = (
PLFLT)lua_tonumber(L, 2);
10535 arg3 = (
PLFLT)lua_tonumber(L, 3);
10536 arg4 = (
PLFLT)lua_tonumber(L, 4);
10537 arg5 = (
PLFLT)lua_tonumber(L, 5);
10538 plvpas(arg1,arg2,arg3,arg4,arg5);
10562 arg1 = (
PLFLT)lua_tonumber(L, 1);
10563 arg2 = (
PLFLT)lua_tonumber(L, 2);
10564 arg3 = (
PLFLT)lua_tonumber(L, 3);
10565 arg4 = (
PLFLT)lua_tonumber(L, 4);
10566 plvpor(arg1,arg2,arg3,arg4);
10620 arg1 = (
PLFLT)lua_tonumber(L, 1);
10621 arg2 = (
PLFLT)lua_tonumber(L, 2);
10622 arg3 = (
PLFLT)lua_tonumber(L, 3);
10623 arg4 = (
PLFLT)lua_tonumber(L, 4);
10624 arg5 = (
PLFLT)lua_tonumber(L, 5);
10625 arg6 = (
PLFLT)lua_tonumber(L, 6);
10626 arg7 = (
PLFLT)lua_tonumber(L, 7);
10627 arg8 = (
PLFLT)lua_tonumber(L, 8);
10628 arg9 = (
PLFLT)lua_tonumber(L, 9);
10629 arg10 = (
PLFLT)lua_tonumber(L, 10);
10630 arg11 = (
PLFLT)lua_tonumber(L, 11);
10631 plw3d(arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11);
10649 arg1 = (
PLINT)lua_tonumber(L, 1);
10674 arg1 = (
PLFLT)lua_tonumber(L, 1);
10675 arg2 = (
PLFLT)lua_tonumber(L, 2);
10676 arg3 = (
PLFLT)lua_tonumber(L, 3);
10677 arg4 = (
PLFLT)lua_tonumber(L, 4);
10678 plwind(arg1,arg2,arg3,arg4);
10698 if(!lua_isnumber(L,1))
SWIG_fail_arg(
"plxormod",1,
"PLBOOL");
10699 arg1 = (
PLBOOL)lua_tonumber(L, 1);
10702 lua_pushnumber(L, (lua_Number) *arg2); SWIG_arg++;
10716 char *arg2 = (
char *) 0 ;
10732 if ( lua_isnil( L, 1 ) )
10736 else if ( lua_isstring( L, 1 ) )
10745 arg2 = (
char *)lua_tostring(L, 2);
10746 arg3 = (
PLFLT)lua_tonumber(L, 3);
10747 arg4 = (
PLFLT)lua_tonumber(L, 4);
10748 arg5 = (
PLFLT)lua_tonumber(L, 5);
10749 arg6 = (
PLFLT)lua_tonumber(L, 6);
10750 plmap(arg1,(
char const *)arg2,arg3,arg4,arg5,arg6);
10779 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plmeridians",2,
"PLFLT");
10780 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plmeridians",3,
"PLFLT");
10781 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plmeridians",4,
"PLFLT");
10782 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plmeridians",5,
"PLFLT");
10783 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plmeridians",6,
"PLFLT");
10784 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plmeridians",7,
"PLFLT");
10789 if ( lua_isnil( L, 1 ) )
10793 else if ( lua_isstring( L, 1 ) )
10802 arg2 = (
PLFLT)lua_tonumber(L, 2);
10803 arg3 = (
PLFLT)lua_tonumber(L, 3);
10804 arg4 = (
PLFLT)lua_tonumber(L, 4);
10805 arg5 = (
PLFLT)lua_tonumber(L, 5);
10806 arg6 = (
PLFLT)lua_tonumber(L, 6);
10807 arg7 = (
PLFLT)lua_tonumber(L, 7);
10852 if(!lua_isnumber(L,10))
SWIG_fail_arg(
"plimage",10,
"PLFLT");
10853 if(!lua_isnumber(L,11))
SWIG_fail_arg(
"plimage",11,
"PLFLT");
10863 arg4 = (
PLFLT)lua_tonumber(L, 2);
10864 arg5 = (
PLFLT)lua_tonumber(L, 3);
10865 arg6 = (
PLFLT)lua_tonumber(L, 4);
10866 arg7 = (
PLFLT)lua_tonumber(L, 5);
10867 arg8 = (
PLFLT)lua_tonumber(L, 6);
10868 arg9 = (
PLFLT)lua_tonumber(L, 7);
10869 arg10 = (
PLFLT)lua_tonumber(L, 8);
10870 arg11 = (
PLFLT)lua_tonumber(L, 9);
10871 arg12 = (
PLFLT)lua_tonumber(L, 10);
10872 arg13 = (
PLFLT)lua_tonumber(L, 11);
10873 plimage((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
10880 for ( i = 0; i < ii1; i++ )
10895 for ( i = 0; i < ii1; i++ )
10925 cgrid113.
xg = cgrid113.
yg = cgrid113.
zg = NULL;
10926 cgrid113.
nx = cgrid113.
ny = cgrid113.
nz = 0;
10927 cgrid213.
xg = cgrid213.
yg = cgrid213.
zg = NULL;
10928 cgrid213.
nx = cgrid213.
ny = 0;
10937 if(!lua_isnumber(L,2))
SWIG_fail_arg(
"plimagefr",2,
"PLFLT");
10938 if(!lua_isnumber(L,3))
SWIG_fail_arg(
"plimagefr",3,
"PLFLT");
10939 if(!lua_isnumber(L,4))
SWIG_fail_arg(
"plimagefr",4,
"PLFLT");
10940 if(!lua_isnumber(L,5))
SWIG_fail_arg(
"plimagefr",5,
"PLFLT");
10941 if(!lua_isnumber(L,6))
SWIG_fail_arg(
"plimagefr",6,
"PLFLT");
10942 if(!lua_isnumber(L,7))
SWIG_fail_arg(
"plimagefr",7,
"PLFLT");
10943 if(!lua_isnumber(L,8))
SWIG_fail_arg(
"plimagefr",8,
"PLFLT");
10944 if(!lua_isnumber(L,9))
SWIG_fail_arg(
"plimagefr",9,
"PLFLT");
10954 arg4 = (
PLFLT)lua_tonumber(L, 2);
10955 arg5 = (
PLFLT)lua_tonumber(L, 3);
10956 arg6 = (
PLFLT)lua_tonumber(L, 4);
10957 arg7 = (
PLFLT)lua_tonumber(L, 5);
10958 arg8 = (
PLFLT)lua_tonumber(L, 6);
10959 arg9 = (
PLFLT)lua_tonumber(L, 7);
10960 arg10 = (
PLFLT)lua_tonumber(L, 8);
10961 arg11 = (
PLFLT)lua_tonumber(L, 9);
10962 if(lua_gettop(L)>=10){
10967 if ( lua_isstring( L, 10 ) )
10969 const char* funcstr = lua_tostring( L, 10 );
10970 if ( strcmp(
"pltr0", funcstr ) == 0 )
10974 else if ( strcmp(
"pltr1", funcstr ) == 0 )
10978 else if ( strcmp(
"pltr2", funcstr ) == 0 )
10993 if(lua_gettop(L)>=11){
10998 lua_pushstring( L,
"xg" );
10999 lua_gettable( L, 11 );
11000 if ( !lua_istable( L, -1 ) )
11003 lua_pushstring( L,
"expected a table xg" );
11006 lua_rawgeti( L, -1, 1 );
11007 if ( lua_istable( L, -1 ) )
11009 else if ( lua_isnumber( L, -1 ) )
11015 lua_pushstring( L,
"expected a one or two dimensional array/table in xg" );
11019 if ( gridmode == 1 )
11021 cgrid113.
xg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &nx );
11022 if ( !cgrid113.
xg )
11029 lua_pushfstring( L,
"Table xg must be of length%d.",
Xlen );
11037 if ( !cgrid213.
xg )
11042 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11045 lua_pushfstring( L,
"Vectors must match matrix." );
11053 lua_pushstring( L,
"yg" );
11054 lua_gettable( L, 11 );
11055 if ( !lua_istable( L, -1 ) )
11058 lua_pushstring( L,
"expected a table yg" );
11061 lua_rawgeti( L, -1, 1 );
11062 if ( gridmode == 2 )
11064 if ( !lua_istable( L, -1 ) )
11068 lua_pushstring( L,
"expected a two dimensional array/table in yg" );
11074 if ( !lua_isnumber( L, -1 ) )
11078 lua_pushstring( L,
"expected a one dimensional array/table in yg" );
11083 if ( gridmode == 1 )
11085 cgrid113.
yg = (
PLFLT *) LUA_get_double_num_array_var( L, -1, &ny );
11086 if ( !cgrid113.
yg )
11093 lua_pushfstring( L,
"Table yg must be of length%d.",
Ylen );
11101 if ( !cgrid213.
yg )
11106 if ( ( nx !=
Xlen ) || ( ny !=
Ylen ) )
11109 lua_pushfstring( L,
"Vectors must match matrix." );
11116 if ( gridmode == 1 )
11118 else if ( gridmode == 2 )
11122 plimagefr((
double const **)arg1,arg2,arg3,arg4,arg5,arg6,arg7,arg8,arg9,arg10,arg11,arg12,arg13);
11129 for ( i = 0; i < ii1; i++ )
11145 for ( i = 0; i <
Xlen; i++ )
11151 for ( i = 0; i <
Xlen; i++ )
11166 for ( i = 0; i < ii1; i++ )
11182 for ( i = 0; i <
Xlen; i++ )
11188 for ( i = 0; i <
Xlen; i++ )
11232 char *arg1 = (
char *) 0 ;
11233 char *arg2 = (
char *) 0 ;
11238 arg1 = (
char *)lua_tostring(L, 1);
11239 arg2 = (
char *)lua_tostring(L, 2);
11240 plSetUsage((
char const *)arg1,(
char const *)arg2);
11293 lua_pushnumber(L, (lua_Number) *arg4); SWIG_arg++;
11294 lua_pushnumber(L, (lua_Number) *arg5); SWIG_arg++;
11300 for ( i = 0; i < ii1; i++ )
11315 for ( i = 0; i < ii1; i++ )
11338 lua_pushnumber(L, (lua_Number) result); SWIG_arg++;
11351 char *arg1 = (
char *) 0 ;
11354 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plwarn",1,
"char const *");
11356 arg1 = (
char *) lua_tostring( L, 1 );
11358 plwarn((
char const *)arg1);
11372 char *arg1 = (
char *) 0 ;
11375 if(!lua_isstring(L,1))
SWIG_fail_arg(
"plabort",1,
"char const *");
11377 arg1 = (
char *) lua_tostring( L, 1 );
11817 #define SWIGRUNTIME_DEBUG
11828 if (swig_module.
next==0) {
11840 if (!module_head) {
11850 if (iter==&swig_module) {
11855 }
while (iter!= module_head);
11860 swig_module.
next = module_head->
next;
11868 if (init == 0)
return;
11871 #ifdef SWIGRUNTIME_DEBUG
11872 printf(
"SWIG_InitializeModule: size %d\n", swig_module.
size);
11874 for (i = 0; i < swig_module.
size; ++i) {
11879 #ifdef SWIGRUNTIME_DEBUG
11880 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
11884 if (swig_module.
next != &swig_module) {
11889 #ifdef SWIGRUNTIME_DEBUG
11890 printf(
"SWIG_InitializeModule: found type %s\n", type->
name);
11894 #ifdef SWIGRUNTIME_DEBUG
11895 printf(
"SWIG_InitializeModule: found and overwrite type %s \n", type->
name);
11904 while (cast->
type) {
11908 #ifdef SWIGRUNTIME_DEBUG
11909 printf(
"SWIG_InitializeModule: look cast %s\n", cast->
type->
name);
11911 if (swig_module.
next != &swig_module) {
11913 #ifdef SWIGRUNTIME_DEBUG
11914 if (ret) printf(
"SWIG_InitializeModule: found cast %s\n", ret->
name);
11919 #ifdef SWIGRUNTIME_DEBUG
11920 printf(
"SWIG_InitializeModule: skip old type %s\n", ret->
name);
11927 #ifdef SWIGRUNTIME_DEBUG
11928 if (ocast) printf(
"SWIG_InitializeModule: skip old cast %s\n", ret->
name);
11930 if (!ocast) ret = 0;
11935 #ifdef SWIGRUNTIME_DEBUG
11936 printf(
"SWIG_InitializeModule: adding cast %s\n", cast->
type->
name);
11947 swig_module.
types[i] = type;
11949 swig_module.
types[i] = 0;
11951 #ifdef SWIGRUNTIME_DEBUG
11952 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
11953 for (i = 0; i < swig_module.
size; ++i) {
11956 printf(
"SWIG_InitializeModule: type %d %s\n", i, swig_module.
type_initial[i]->
name);
11957 while (cast->
type) {
11958 printf(
"SWIG_InitializeModule: cast type %s\n", cast->
type->
name);
11962 printf(
"---- Total casts: %d\n",j);
11964 printf(
"**** SWIG_InitializeModule: Cast List ******\n");
11977 static int init_run = 0;
11979 if (init_run)
return;
11982 for (i = 0; i < swig_module.
size; i++) {
11990 equiv = equiv->
next;
12015 #if ((SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUA) || (SWIG_LUA_TARGET == SWIG_LUA_FLAVOR_ELUAC))
12021 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12030 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
12041 for (i = 0; swig_variables[i].
name; i++){
12046 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12048 for (i = 0; swig_types[i]; i++){
12049 if (swig_types[i]->clientdata){
12054 for (i = 0; swig_types[i]; i++){
12055 if (swig_types[i]->clientdata){
12061 #if ((SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUA) && (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC))
12066 #if (SWIG_LUA_TARGET != SWIG_LUA_FLAVOR_ELUAC)
12086 " pl = plplotluac";
static int _wrap_bin(lua_State *L)
subroutine plbox(xopt, xtick, nxsub, yopt, ytick, nysub)
static swig_cast_info _swigc__p_f_double_double__int[]
struct swig_type_info swig_type_info
static int _wrap_rgbhls(lua_State *L)
static char myct_funcstr[255]
void(* label_func)(PLINT, PLFLT, char *, PLINT, PLPointer)
static int _wrap_box(lua_State *L)
static int _wrap_PLGraphicsIn_pX_get(lua_State *L)
static swig_module_info swig_module
void plimagefr(PLFLT **idata, PLINT nx, PLINT ny, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT zmin, PLFLT zmax, PLFLT valuemin, PLFLT valuemax, void(*pltr)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer), PLPointer pltr_data)
SWIGINTERN void SWIG_Lua_get_class_registry(lua_State *L)
SWIGRUNTIME char * SWIG_PackData(char *c, void *ptr, size_t sz)
static int _wrap_mtex3(lua_State *L)
void(* ct_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static int _wrap_PLGraphicsIn_string_set(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_attributes[]
static int _wrap_plot3d(lua_State *L)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const * label
static int _wrap_spal1(lua_State *L)
static swig_type_info _swigt__p_char
static int _wrap_scmap1a(lua_State *L)
SWIGINTERN void SWIG_write_ptr_array(lua_State *L, void **array, int size, swig_type_info *type, int own)
static swig_lua_method swig_PLGraphicsIn_cls_methods[]
static int _wrap_sfont(lua_State *L)
static int _wrap_imagefr(lua_State *L)
static int _wrap_gfam(lua_State *L)
static int _wrap_gra(lua_State *L)
static int _wrap_PLGraphicsIn_keysym_set(lua_State *L)
void PLFLT PLINT PLINT PLFLT PLFLT PLFLT PLFLT PLINT PLINT PLINT PLFLT PLFLT PLINT PLFLT PLINT const PLINT const char *const PLINT nx
#define SWIG_LUA_CONSTTAB_INT(B, C)
static int _wrap_PLGraphicsIn_wX_get(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_TypeDynamicCast(swig_type_info *ty, void **ptr)
SWIGINTERN void SWIG_Lua_InstallConstants(lua_State *L, swig_lua_const_info constants[])
SWIGINTERN void ** SWIG_get_ptr_array_fixed(lua_State *L, int index, int size, swig_type_info *type)
static void swig_delete_PLGraphicsIn(void *obj)
subroutine plmtex3(side, disp, pos, xjust, text)
static int _wrap_scolor(lua_State *L)
static int _wrap_setopt(lua_State *L)
#define SWIG_Lua_get_table(L, n)
static int _wrap_vsta(lua_State *L)
static int _wrap_PLGraphicsIn_subwindow_get(lua_State *L)
static int _wrap_plGetCursor(lua_State *L)
SWIGINTERN void SWIG_Lua_get_class_metatable(lua_State *L, const char *cname)
static int _wrap_pat(lua_State *L)
static int _wrap_PLGraphicsIn_dY_set(lua_State *L)
static int _wrap_scmap1la(lua_State *L)
static int _wrap_scompression(lua_State *L)
SWIGRUNTIME int SWIG_Lua_equal(lua_State *L)
PLFLT(* f2eval_func)(PLINT, PLINT, PLPointer)
subroutine plstring3(x, y, z, string)
static int _wrap_spause(lua_State *L)
SWIGINTERN int SWIG_Lua_class_set(lua_State *L)
static int _wrap_poin(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_set(lua_State *L)
void plgriddata(PLFLT *x, PLFLT *y, PLFLT *z, int npts, PLFLT *xg, int nptsx, PLFLT *yg, int nptsy, PLFLT **zg, int type, PLFLT data)
static int _wrap_arc(lua_State *L)
SWIGRUNTIME int SWIG_TypeCmp(const char *nb, const char *tb)
SWIGINTERN void SWIG_Lua_class_register(lua_State *L, swig_lua_class *clss)
static int _wrap_eop(lua_State *L)
SWIGRUNTIMEINLINE const char * SWIG_TypeName(const swig_type_info *ty)
SWIGINTERN void SWIG_Lua_init_base_class(lua_State *L, swig_lua_class *clss)
SWIGINTERN void ** SWIG_get_ptr_array_var(lua_State *L, int index, int *size, swig_type_info *type)
SWIGINTERN void SWIG_Lua_add_class_details(lua_State *L, swig_lua_class *clss)
SWIGINTERN int SWIG_Lua_dostring(lua_State *L, const char *str)
static int _wrap_gdev(lua_State *L)
void plimage(PLFLT **data, PLINT nx, PLINT ny, PLFLT xmin, PLFLT xmax, PLFLT ymin, PLFLT ymax, PLFLT zmin, PLFLT zmax, PLFLT Dxmin, PLFLT Dxmax, PLFLT Dymin, PLFLT Dymax)
static int _wrap_scolbg(lua_State *L)
subroutine plmtex(side, disp, pos, xjust, text)
#define pl_setcontlabelparam
#define SWIG_DOSTRING_FAIL(S)
static int _wrap_szax(lua_State *L)
#define LUA_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
static int _wrap_vpas(lua_State *L)
static int _wrap_plClearOpts(lua_State *L)
static int _wrap_scol0a(lua_State *L)
static int _wrap_PLGraphicsIn_pY_set(lua_State *L)
static swig_type_info _swigt__p_p_double
static int _wrap_PLGraphicsIn_dX_set(lua_State *L)
struct swig_cast_info * cast
static int _wrap_PLGraphicsIn_type_get(lua_State *L)
subroutine plstring(x, y, string)
#define SWIG_ConvertPtr(L, idx, ptr, type, flags)
static int _wrap_lightsource(lua_State *L)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheck(const char *c, swig_type_info *ty)
SWIGINTERN void SWIG_Lua_module_add_function(lua_State *L, const char *name, lua_CFunction fn)
#define SWIG_RUNTIME_VERSION
static int _wrap_image(lua_State *L)
#define SWIGRUNTIMEINLINE
static int _wrap_plot3dcl(lua_State *L)
static int _wrap_setcontlabelformat(lua_State *L)
static int _wrap_PLGraphicsIn_dY_get(lua_State *L)
SWIGRUNTIME void SWIG_Lua_NewPointerObj(lua_State *L, void *ptr, swig_type_info *type, int own)
static int _wrap_scol0(lua_State *L)
struct swig_type_info *(* swig_dycast_func)(void **)
static int _wrap_poin3(lua_State *L)
void PLFLT PLINT PLINT PLFLT x
SWIGINTERN int SWIG_Lua_class_tostring(lua_State *L)
static int _wrap_gcol0(lua_State *L)
static int _wrap_prec(lua_State *L)
static int _wrap_scolbga(lua_State *L)
static int _wrap_plend(lua_State *L)
static int _wrap_slabelfunc(lua_State *L)
static int _wrap_plOptUsage(lua_State *L)
static int _wrap_start(lua_State *L)
static swig_type_info _swigt__p_int
static swig_type_info _swigt__p_double
static int _wrap_lab(lua_State *L)
static int _wrap_sesc(lua_State *L)
#define SWIG_DECLARE_TYPEMAP_ARR_FN(NAME, TYPE)
#define SWIG_GetModule(clientdata)
static int _wrap_map(lua_State *L)
static swig_type_info _swigt__p_f_int_p_double_p_double__void
static int _wrap_replot(lua_State *L)
void *(* swig_converter_func)(void *, int *)
SWIGINTERN int SWIG_Lua_class_get(lua_State *L)
static int _wrap_gcolbga(lua_State *L)
SWIGINTERN int SWIG_itable_size(lua_State *L, int index)
static char mapform_funcstr[255]
static const char * swig_PLGraphicsIn_base_names[]
static int _wrap_gcolbg(lua_State *L)
static int _wrap_schr(lua_State *L)
SWIGINTERN int SWIG_Lua_class_disown(lua_State *L)
static int _wrap_randd(lua_State *L)
subroutine plbox3(xopt, xlabel, xtick, nxsub, yopt, ylabel, ytick, nysub, zopt, zlabel, ztick, nzsub)
SWIGRUNTIME int SWIG_Lua_ConvertPtr(lua_State *L, int index, void **ptr, swig_type_info *type, int flags)
static int _wrap_poly3(lua_State *L)
SWIGRUNTIME swig_cast_info * SWIG_TypeCheckStruct(swig_type_info *from, swig_type_info *ty)
swig_lua_attribute * attributes
SWIGINTERN void SWIG_Lua_class_register_static(lua_State *L, swig_lua_class *clss)
static int _wrap_string3(lua_State *L)
static swig_type_info _swigt__p_f_double_double_p_double_p_double_p_void__void
SWIGRUNTIME int SWIG_TypeEquiv(const char *nb, const char *tb)
static int _wrap_PLGraphicsIn_wY_get(lua_State *L)
static int _wrap_stripa(lua_State *L)
static char label_funcstr[255]
static int _wrap_PLGraphicsIn_state_set(lua_State *L)
static int _wrap_sdiori(lua_State *L)
static int _wrap_erry(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_TypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
static int _wrap_scmap1n(lua_State *L)
#define SWIG_fail_arg(func_name, argnum, type)
void(* fill_func)(PLINT, const PLFLT *, const PLFLT *)
#define SWIG_FREE_ARRAY(PTR)
static int _wrap_meshc(lua_State *L)
static swig_type_info _swigt__p_PLGraphicsIn
static int _wrap_PLGraphicsIn_wX_set(lua_State *L)
static int _wrap_smaj(lua_State *L)
static int _wrap_sori(lua_State *L)
static int _wrap_surf3d(lua_State *L)
static int _wrap_line(lua_State *L)
SWIGRUNTIME int SWIG_Lua_ConvertPacked(lua_State *L, int index, void *ptr, size_t size, swig_type_info *type)
static int _wrap_new_PLGraphicsIn(lua_State *L)
static int _wrap_col1(lua_State *L)
static int _wrap_legend(lua_State *L)
static int _wrap_stransform(lua_State *L)
static int _wrap_glevel(lua_State *L)
void(* pltr_func)(PLFLT, PLFLT, PLFLT *, PLFLT *, PLPointer)
static swig_cast_info _swigc__p_f_int_p_double_p_double__void[]
void mypltr(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
static swig_cast_info _swigc__p_double[]
#define lua_pushglobaltable(L)
static int _wrap_font(lua_State *L)
static int _wrap_scmap1(lua_State *L)
SWIGRUNTIME void SWIG_InitializeModule(void *clientdata)
static int _wrap_ssym(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_register(lua_State *L, swig_lua_namespace *ns)
struct swig_module_info * next
#define SWIGTYPE_p_PLGraphicsIn
SWIGRUNTIME void SWIG_Lua_SetModule(lua_State *L, swig_module_info *module)
#define SWIG_SetModule(clientdata, pointer)
static int _wrap_scmap0n(lua_State *L)
static int _wrap_box3(lua_State *L)
static int _wrap_spal0(lua_State *L)
SWIGRUNTIME int SWIG_TypeNameComp(const char *f1, const char *l1, const char *f2, const char *l2)
static int _wrap_plend1(lua_State *L)
static int _wrap_gspa(lua_State *L)
static int _wrap_plSetUsage(lua_State *L)
static int _wrap_gfont(lua_State *L)
void PLFLT PLINT PLINT PLFLT PLFLT y
static int _wrap_sdiplz(lua_State *L)
static int _wrap_gdidev(lua_State *L)
swig_converter_func converter
subroutine plaxes(x0, y0, xopt, xtick, nxsub, yopt, ytick, nysub)
static int _wrap_ptex3(lua_State *L)
static int _wrap_PLGraphicsIn_type_set(lua_State *L)
SWIGINTERN void SWIG_Lua_add_class_variable(lua_State *L, const char *name, lua_CFunction getFn, lua_CFunction setFn)
static int _wrap_adv(lua_State *L)
void mapform(PLINT n, PLFLT *x, PLFLT *y)
static int _wrap_sfam(lua_State *L)
static swig_cast_info _swigc__p_f_double_double_p_double_p_double_p_void__void[]
static swig_lua_const_info swig_PLGraphicsIn_cls_constants[]
static int _wrap_vasp(lua_State *L)
subroutine plspal0(filename)
static swig_type_info _swigt__p_p_char
static int _wrap_PLGraphicsIn_button_set(lua_State *L)
static int _wrap_bop(lua_State *L)
static int _wrap_cont(lua_State *L)
SWIGINTERN int SWIG_Lua_module_get(lua_State *L)
#define SWIG_fail_ptr(func_name, argnum, type)
static int _wrap_plot3dc(lua_State *L)
static int _wrap_surf3dl(lua_State *L)
SWIGRUNTIME swig_module_info * SWIG_Lua_GetModule(lua_State *L)
PLFLT ** read_double_Matrix(lua_State *L, int index, int *nx, int *ny)
SWIGINTERN int SWIG_lua_isnilstring(lua_State *L, int idx)
static swig_lua_class * swig_PLGraphicsIn_bases[]
SWIGINTERN void SWIG_Lua_add_class_static_details(lua_State *L, swig_lua_class *clss)
swig_lua_namespace cls_static
SWIGRUNTIMEINLINE void * SWIG_TypeCast(swig_cast_info *ty, void *ptr, int *newmemory)
lua_CFunction constructor
static int _wrap_lsty(lua_State *L)
static int _wrap_smin(lua_State *L)
static int _wrap_mkstrm(lua_State *L)
static swig_cast_info _swigc__p_p_char[]
static int _wrap_wind(lua_State *L)
static int _wrap_vect(lua_State *L)
static const struct luaL_Reg swig_commands[]
static int _wrap_cpstrm(lua_State *L)
subroutine plsetopt(opt, optarg)
static int _wrap_sfci(lua_State *L)
static int _wrap_text(lua_State *L)
static int _wrap_parseopts(lua_State *L)
#define SWIG_TYPE_TABLE_NAME
subroutine plptex(x, y, dx, dy, xjust, text)
SWIGRUNTIME const char * SWIG_Lua_typename(lua_State *L, int tp)
static int _wrap_hist(lua_State *L)
static char mypltr_funcstr[255]
static int _wrap_gpage(lua_State *L)
static swig_lua_attribute swig_PLGraphicsIn_cls_attributes[]
SWIGRUNTIME void SWIG_TypeNewClientData(swig_type_info *ti, void *clientdata)
static int _wrap_svpa(lua_State *L)
#define SWIG_NewMemberObj(L, ptr, sz, type)
void(* mapform_func)(PLINT, PLFLT *, PLFLT *)
void myct(PLFLT x, PLFLT y, PLFLT *tx, PLFLT *ty, void *pltr_data)
SWIGINTERN void _SWIG_Lua_AddMetatable(lua_State *L, swig_type_info *type)
static swig_type_info _swigt__p_f_int_double_p_char_int_p_void__void
static int _wrap_fill(lua_State *L)
SWIGINTERN int SWIG_table_size(lua_State *L, int index)
static int _wrap_gver(lua_State *L)
PLINT(* defined_func)(PLFLT, PLFLT)
static int _wrap_gfci(lua_State *L)
subroutine pllab(xlab, ylab, title)
static int _wrap_famadv(lua_State *L)
static int _wrap_fontld(lua_State *L)
SWIGINTERN void SWIG_Lua_module_begin(lua_State *L, const char *name)
static int _wrap_sym(lua_State *L)
static int _wrap_gyax(lua_State *L)
SWIGRUNTIME void SWIG_TypeClientData(swig_type_info *ti, void *clientdata)
static PLFLT value(double n1, double n2, double hue)
SWIGRUNTIME int SWIG_Lua_type(lua_State *L)
void plabort(const char *errormsg)
SWIGRUNTIME const char * SWIG_UnpackData(const char *c, void *ptr, size_t sz)
static int _wrap_plResetOpts(lua_State *L)
static int _wrap_PLGraphicsIn_state_get(lua_State *L)
#define SWIG_NewPointerObj(L, ptr, type, owner)
static int _wrap_ptex(lua_State *L)
SWIGINTERN int SWIG_Lua_class_destruct(lua_State *L)
static int _wrap_env(lua_State *L)
#define SWIG_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_mesh(lua_State *L)
SWIGRUNTIME swig_type_info * SWIG_MangledTypeQueryModule(swig_module_info *start, swig_module_info *end, const char *name)
SWIGINTERN int SWIG_read_ptr_array(lua_State *L, int index, void **array, int size, swig_type_info *type)
static int _wrap_gvpw(lua_State *L)
#define SWIG_Lua_add_function(L, n, f)
static int _wrap_w3d(lua_State *L)
static int _wrap_griddata(lua_State *L)
static int _wrap_MinMax2dGrid(lua_State *L)
SWIGRUNTIME char * SWIG_PackDataName(char *buff, void *ptr, size_t sz, const char *name, size_t bsz)
void mylabel(PLINT axis, PLFLT value, char *label, PLINT length, PLPointer data)
struct swig_module_info swig_module_info
static int _wrap_warn(lua_State *L)
static int _wrap_mtex(lua_State *L)
swig_lua_method * methods
static int _wrap_flush(lua_State *L)
SWIGRUNTIME const char * SWIG_TypePrettyName(const swig_type_info *type)
static int _wrap_configtime(lua_State *L)
SWIGINTERN void SWIG_Lua_module_add_variable(lua_State *L, const char *name, lua_CFunction getFn, lua_CFunction setFn)
static swig_type_info * swig_types[13]
static int _wrap_sxax(lua_State *L)
void plwarn(const char *errormsg)
SWIGRUNTIME void SWIG_PropagateClientData(void)
SWIGINTERN int SWIG_Lua_module_set(lua_State *L)
static swig_cast_info _swigc__p_f_int_p_q_const__double_p_q_const__double__void[]
static int _wrap_init(lua_State *L)
static int _wrap_shades(lua_State *L)
static swig_type_info _swigt__p_f_int_p_q_const__double_p_q_const__double__void
static int _wrap_gzax(lua_State *L)
#define SWIG_isptrtype(L, I)
swig_lua_const_info * ns_constants
static int _wrap_star(lua_State *L)
static swig_cast_info * swig_cast_initial[]
static int _wrap_scmap1l(lua_State *L)
struct swig_cast_info * next
static int _wrap_meridians(lua_State *L)
struct swig_lua_class swig_lua_class
swig_lua_method * ns_methods
subroutine plspal1(filename, interpolate)
static swig_cast_info _swigc__p_int[]
static int _wrap_PLGraphicsIn_pX_set(lua_State *L)
static int _wrap_gcompression(lua_State *L)
static int _wrap_ctime(lua_State *L)
static int _wrap_scmap0(lua_State *L)
#define LUA_FREE_ARRAY(PTR)
#define SWIG_CheckState(r)
static int _wrap_timefmt(lua_State *L)
static int _wrap_axes(lua_State *L)
static int _wrap_gcmap1_range(lua_State *L)
static swig_cast_info _swigc__p_p_double[]
subroutine plstart(devname, nx, ny)
#define LUA_ALLOC_ARRAY(TYPE, LEN)
static int _wrap_stripd(lua_State *L)
static int _wrap_PLGraphicsIn_pY_get(lua_State *L)
static swig_lua_class _wrap_class_PLGraphicsIn
static swig_type_info _swigt__p_unsigned_int
static swig_type_info _swigt__p_f_double_double__int
static swig_lua_const_info swig_constants[]
static int _wrap_sdev(lua_State *L)
static int _wrap_stripc(lua_State *L)
static int _wrap_PLGraphicsIn_keysym_get(lua_State *L)
static int _wrap_gxax(lua_State *L)
static int _wrap_PLGraphicsIn_string_get(lua_State *L)
subroutine plptex3(x, y, z, dx, dy, dz, sx, sy, sz, xjust, text)
static int _wrap_gvpd(lua_State *L)
struct swig_lua_class ** bases
static int _wrap_gchr(lua_State *L)
#define SWIG_check_num_args(func_name, a, b)
struct swig_cast_info * prev
static int _wrap_sdidev(lua_State *L)
static swig_lua_method swig_PLGraphicsIn_methods[]
static int _wrap_scmap1_range(lua_State *L)
swig_cast_info ** cast_initial
#define SWIG_POINTER_DISOWN
static int _wrap_PLGraphicsIn_button_get(lua_State *L)
swig_lua_attribute * ns_attributes
static int _wrap_colorbar(lua_State *L)
void(* destructor)(void *)
#define SWIG_contract_assert(expr, msg)
static int _wrap_width(lua_State *L)
static swig_cast_info _swigc__p_char[]
SWIGINTERN int SWIG_Lua_constructor_proxy(lua_State *L)
struct swig_cast_info swig_cast_info
SWIGRUNTIME const char * SWIG_UnpackDataName(const char *c, void *ptr, size_t sz, const char *name)
static int _wrap_shade(lua_State *L)
static swig_lua_var_info swig_variables[]
static int _wrap_gradient(lua_State *L)
static int _wrap_join(lua_State *L)
swig_type_info ** type_initial
static int _wrap_PLGraphicsIn_dX_get(lua_State *L)
static int _wrap_hlsrgb(lua_State *L)
static int _wrap_psty(lua_State *L)
static int _wrap_gdiplt(lua_State *L)
static int _wrap_setcontlabelparam(lua_State *L)
static int _wrap_gdiori(lua_State *L)
SWIGINTERN int SWIG_Lua_namespace_get(lua_State *L)
SWIGRUNTIME char * SWIG_PackVoidPtr(char *buff, void *ptr, const char *name, size_t bsz)
static int _wrap_line3(lua_State *L)
static int _wrap_sstrm(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pusherrstring(lua_State *L, const char *str)
static swig_type_info * swig_type_initial[]
static swig_cast_info _swigc__p_unsigned_int[]
static int _wrap_sfnam(lua_State *L)
static int _wrap_seed(lua_State *L)
static int _wrap_abort(lua_State *L)
static swig_cast_info _swigc__p_PLGraphicsIn[]
static int _wrap_gfnam(lua_State *L)
static int _wrap_sdimap(lua_State *L)
static int _wrap_col0(lua_State *L)
SWIGINTERN void SWIG_Lua_module_end(lua_State *L)
static int _wrap_svect(lua_State *L)
static int _wrap_styl(lua_State *L)
static int _wrap_gstrm(lua_State *L)
static int _wrap_clear(lua_State *L)
static int _wrap_spage(lua_State *L)
static swig_cast_info _swigc__p_f_int_double_p_char_int_p_void__void[]
subroutine pltimefmt(fmt)
static int _wrap_vpor(lua_State *L)
void plcolorbar(PLFLT *p_colorbar_width, PLFLT *p_colorbar_height, PLINT opt, PLINT position, PLFLT x, PLFLT y, PLFLT x_length, PLFLT y_length, PLINT bg_color, PLINT bb_color, PLINT bb_style, PLFLT low_cap_color, PLFLT high_cap_color, PLINT cont_color, PLFLT cont_width, PLINT n_labels, const PLINT *label_opts, const char *const *label, PLINT n_axes, const char *const *axis_opts, const PLFLT *ticks, const PLINT *sub_ticks, const PLINT *n_values, const PLFLT *const *values) void my_plcolorbar(PLFLT *p_colorbar_width
static int _wrap_errx(lua_State *L)
static int _wrap_gcol0a(lua_State *L)
static int _wrap_scmap0a(lua_State *L)
static int _wrap_calc_world(lua_State *L)
SWIGRUNTIME void SWIG_Lua_NewPackedObj(lua_State *L, void *ptr, size_t size, swig_type_info *type)
static int _wrap_sdiplt(lua_State *L)
static int _wrap_string(lua_State *L)
static int _wrap_PLGraphicsIn_wY_set(lua_State *L)
static int _wrap_btime(lua_State *L)
SWIGRUNTIME void * SWIG_Lua_MustGetPtr(lua_State *L, int index, swig_type_info *type, int flags, int argnum, const char *func_name)
SWIGINTERN int SWIG_Lua_set_immutable(lua_State *L)
static int _wrap_env0(lua_State *L)
SWIGINTERN int SWIG_Lua_add_namespace_details(lua_State *L, swig_lua_namespace *ns)
static int _wrap_PLGraphicsIn_subwindow_set(lua_State *L)
SWIGRUNTIME void SWIG_Lua_pushferrstring(lua_State *L, const char *fmt,...)
static int _wrap_ssub(lua_State *L)
SWIGRUNTIME const char * SWIG_UnpackVoidPtr(const char *c, void **ptr, const char *name)
static int _wrap_xormod(lua_State *L)
static int _wrap_fill3(lua_State *L)
static int _wrap_syax(lua_State *L)