diff options
Diffstat (limited to 'etc/todo/example.lua')
| -rw-r--r-- | etc/todo/example.lua | 8289 |
1 files changed, 0 insertions, 8289 deletions
diff --git a/etc/todo/example.lua b/etc/todo/example.lua deleted file mode 100644 index 9d9a404..0000000 --- a/etc/todo/example.lua +++ /dev/null @@ -1,8289 +0,0 @@ - -------------------------------------------------------------------------------- --- Creates a new function, with the name suffixed by "New". This new function --- creates a new image, based on a source image, and calls the previous function --- with this new image. - -local function OneSourceOneDest (funcname, width, height, color_space, data_type) - local func = im[funcname] - assert(func) -- see if function is really defined - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image, ...) - -- create destination image - local dst_image = im.ImageCreateBased(src_image, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - func(src_image, dst_image, unpack(arg)) - return dst_image - end -end - -------------------------------------------------------------------------------- --- This function is similar to OneSourceOneDest, but it receives two source --- images. - -local function TwoSourcesOneDest (funcname, width, height, color_space, data_type) - local func = im[funcname] - - -- see if function is really defined - assert(func, string.format("undefined function `%s'", funcname)) - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image1, src_image2, ...) - -- create destination image - local dst_image = im.ImageCreateBased(src_image1, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - func(src_image1, src_image2, dst_image, unpack(arg)) - return dst_image - end -end - -------------------------------------------------------------------------------- - -TwoSourcesOneDest("ProcessCrossCorrelation") -OneSourceOneDest("ProcessAutoCorrelation", nil, nil, nil, im.CFLOAT) -OneSourceOneDest("ProcessFFT") -OneSourceOneDest("ProcessIFFT") - -------------------------------------------------------------------------------- --- Creates a new function, with the name suffixed by "New". This new function --- creates a new image, based on a source image, and calls the previous function --- with this new image. --- We assume here that the functions returns only one parameter or none. - -local function OneSourceOneDest (funcname, width, height, color_space, data_type) - local func = im[funcname] - assert(func) -- see if function is really defined - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image, ...) - -- create destination image - local dst_image = im.ImageCreateBased(src_image, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - local ret = func(src_image, dst_image, unpack(arg)) - if (ret) then - return ret, dst_image - else - return dst_image - end - end -end - -------------------------------------------------------------------------------- --- This function is similar to OneSourceOneDest, but it receives two source --- images. - -local function TwoSourcesOneDest (funcname, width, height, color_space, data_type) - local func = im[funcname] - - -- see if function is really defined - assert(func, string.format("undefined function `%s'", funcname)) - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image1, src_image2, ...) - -- create destination image - local dst_image = im.ImageCreateBased(src_image1, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - local ret = func(src_image1, src_image2, dst_image, unpack(arg)) - if (ret) then - return ret, dst_image - else - return dst_image - end - end -end - -------------------------------------------------------------------------------- --- This function is similar to OneSourceOneDest, but it receives three source --- images. - -local function ThreeSourcesOneDest (funcname, width, height, color_space, data_type) - local func = im[funcname] - assert(func) -- see if function is really defined - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image1, src_image2, src_image3, ...) - -- create destination image - local dst_image = im.ImageCreateBased(src_image1, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - local ret = func(src_image1, src_image2, src_image3, dst_image, unpack(arg)) - if (ret) then - return ret, dst_image - else - return dst_image - end - end -end - -------------------------------------------------------------------------------- --- This function is similar to OneSourceOneDest, but it creates two destiny --- images. - -local function OneSourceTwoDests (funcname, width, height, color_space, data_type) - local func = im[funcname] - assert(func) -- see if function is really defined - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image, ...) - -- create destination image - local dst_image1 = im.ImageCreateBased(src_image, width, height, color_space, data_type) - local dst_image2 = im.ImageCreateBased(src_image, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - local ret = func(src_image, dst_image1, dst_image2, unpack(arg)) - if (ret) then - return ret, dst_image1, dst_image2 - else - return dst_image1, dst_image2 - end - end -end - -------------------------------------------------------------------------------- --- This function is similar to OneSourceOneDest, but it creates three destiny --- images. - -local function OneSourceThreeDests (funcname, width, height, color_space, data_type) - local func = im[funcname] - assert(func) -- see if function is really defined - - -- define function with "New" suffix - im[funcname.."New"] = function (src_image, ...) - -- create destination image - local dst_image1 = im.ImageCreateBased(src_image, width, height, color_space, data_type) - local dst_image2 = im.ImageCreateBased(src_image, width, height, color_space, data_type) - local dst_image3 = im.ImageCreateBased(src_image, width, height, color_space, data_type) - - -- call previous method, repassing all parameters - local ret = func(src_image, dst_image1, dst_image2, dst_image3, unpack(arg)) - if (ret) then - return ret, dst_image1, dst_image2, dst_image3 - else - return dst_image1, dst_image2, dst_image3 - end - end -end - -------------------------------------------------------------------------------- - -local function hough_height(image) - local function sqr(x) return x*x end - local rmax = math.sqrt(sqr(image:Width()) + sqr(image:Height())) / 2 - return 2*rmax+1 -end - -OneSourceOneDest("AnalyzeFindRegions", nil, nil, nil, im.USHORT) -OneSourceOneDest("ProcessPerimeterLine") -OneSourceOneDest("ProcessPrune") -OneSourceOneDest("ProcessFillHoles") -OneSourceOneDest("ProcessHoughLines", 180, hough_height, im.GRAY, im.INT) -OneSourceOneDest("ProcessHoughLinesDraw") -OneSourceOneDest("ProcessDistanceTransform", nil, nil, nil, im.FLOAT) -OneSourceOneDest("ProcessRegionalMaximum", nil, nil, im.BINARY, nil) - -function im.ProcessReduceNew (src_image, width, height) - local dst_image = im.ImageCreateBased(src_image, width, height) - return im.ProcessReduce(src_image, dst_image), dst_image -end - -function im.ProcessResizeNew (src_image, width, height) - local dst_image = im.ImageCreateBased(src_image, width, height) - return im.ProcessResize(src_image, dst_image), dst_image -end - -OneSourceOneDest("ProcessReduceBy4", function (image) return image:Width() / 2 end, - function (image) return image:Height() / 2 end) - -function im.ProcessCropNew (src_image, xmin, xmax, ymin, ymax) - local width = xmax - xmin + 1 - local height = xmax - ymin + 1 - local dst_image = im.ImageCreateBased(src_image, width, height) - im.ProcessCrop(src_image, dst_image, xmin, ymin) - return dst_image -end - -TwoSourcesOneDest("ProcessInsert") - -function im.ProcessAddMarginsNew (src_image, xmin, xmax, ymin, ymax) - local width = xmax - xmin + 1 - local height = xmax - ymin + 1 - local dst_image = im.ImageCreateBased(src_image, width, height) - im.ProcessAddMargins(src_image, dst_image, xmin, ymin) - return dst_image -end - -function im.ProcessRotateNew (src_image, cos0, sin0, order) - local width, height = im.ProcessCalcRotateSize(src_image:Width(), src_image:Height(), cos0, sin0) - local dst_image = im.ImageCreateBased(src_image, width, height) - return im.ProcessRotate(src_image, dst_image, cos0, sin0, order), dst_image -end - -OneSourceOneDest("ProcessRotateRef") -OneSourceOneDest("ProcessRotate90", function (image) return image:Height() end, function (image) return image:Width() end) -OneSourceOneDest("ProcessRotate180") -OneSourceOneDest("ProcessMirror") -OneSourceOneDest("ProcessFlip") -OneSourceOneDest("ProcessRadial") -OneSourceOneDest("ProcessGrayMorphConvolve") -OneSourceOneDest("ProcessGrayMorphErode") -OneSourceOneDest("ProcessGrayMorphDilate") -OneSourceOneDest("ProcessGrayMorphOpen") -OneSourceOneDest("ProcessGrayMorphClose") -OneSourceOneDest("ProcessGrayMorphTopHat") -OneSourceOneDest("ProcessGrayMorphWell") -OneSourceOneDest("ProcessGrayMorphGradient") -OneSourceOneDest("ProcessBinMorphConvolve") -OneSourceOneDest("ProcessBinMorphErode") -OneSourceOneDest("ProcessBinMorphDilate") -OneSourceOneDest("ProcessBinMorphOpen") -OneSourceOneDest("ProcessBinMorphClose") -OneSourceOneDest("ProcessBinMorphOutline") -OneSourceOneDest("ProcessBinMorphThin") -OneSourceOneDest("ProcessMedianConvolve") -OneSourceOneDest("ProcessRangeConvolve") -OneSourceOneDest("ProcessRankClosestConvolve") -OneSourceOneDest("ProcessRankMaxConvolve") -OneSourceOneDest("ProcessRankMinConvolve") -OneSourceOneDest("ProcessConvolve") -OneSourceOneDest("ProcessConvolveSep") -OneSourceOneDest("ProcessConvolveRep") -OneSourceOneDest("ProcessConvolveDual") -OneSourceOneDest("ProcessCompassConvolve") -OneSourceOneDest("ProcessMeanConvolve") -OneSourceOneDest("ProcessGaussianConvolve") -OneSourceOneDest("ProcessBarlettConvolve") -OneSourceTwoDests("ProcessInterlaceSplit", nil, function (image) if (image:Height()) then return image:Height() else return image:Height()/2 end end) - -function im.ProcessInterlaceSplitNew(src_image) - -- create destination image - local dst_height1 = src_image:Height()/2 - if math.mod(src_image:Height(), 2) then - dst_height1 = dst_height1 + 1 - end - - local dst_image1 = im.ImageCreateBased(src_image, nil, dst_height1) - local dst_image2 = im.ImageCreateBased(src_image, nil, src_image:Height()/2) - - -- call method, repassing all parameters - im.ProcessInterlaceSplit(src_image, dst_image1, dst_image2) - return dst_image1, dst_image2 -end - -local function int_datatype (image) - local data_type = image:DataType() - if data_type == im.BYTE or data_type == im.USHORT then - data_type = im.INT - end - return data_type -end - -OneSourceOneDest("ProcessDiffOfGaussianConvolve", nil, nil, nil, int_datatype) -OneSourceOneDest("ProcessLapOfGaussianConvolve", nil, nil, nil, int_datatype) -OneSourceOneDest("ProcessSobelConvolve") -OneSourceOneDest("ProcessSplineEdgeConvolve") -OneSourceOneDest("ProcessPrewittConvolve") -OneSourceOneDest("ProcessZeroCrossing") -OneSourceOneDest("ProcessCanny") -OneSourceOneDest("ProcessUnArithmeticOp") -TwoSourcesOneDest("ProcessArithmeticOp") - -function im.ProcessArithmeticConstOpNew (src_image, src_const, op) - local dst_image = im.ImageCreateBased(src_image) - im.ProcessArithmeticConstOp(src_image, src_const, dst_image, op) - return dst_image -end - -TwoSourcesOneDest("ProcessBlendConst") -ThreeSourcesOneDest("ProcessBlend") -OneSourceTwoDests("ProcessSplitComplex") -TwoSourcesOneDest("ProcessMergeComplex", nil, nil, nil, im.CFLOAT) - -function im.ProcessMultipleMeanNew (src_image_list, dst_image) - local dst_image = im.ImageCreateBased(src_image_list[1]) - im.ProcessMultipleMean(src_image_list, dst_image) - return dst_image -end - -function im.ProcessMultipleStdDevNew (src_image_list, mean_image) - local dst_image = im.ImageCreateBased(src_image_list[1]) - im.ProcessMultipleStdDev(src_image_list, mean_image, dst_image) - return dst_image -end - -TwoSourcesOneDest("ProcessAutoCovariance") -OneSourceOneDest("ProcessMultiplyConj") -OneSourceOneDest("ProcessQuantizeRGBUniform", nil, nil, im.MAP, nil) -OneSourceOneDest("ProcessQuantizeGrayUniform") -OneSourceOneDest("ProcessExpandHistogram") -OneSourceOneDest("ProcessEqualizeHistogram") - -function im.ProcessSplitYChromaNew (src_image) - local y_image = im.ImageCreateBased(src_image, nil, nil, im.GRAY, im.BYTE) - local chroma_image = im.ImageCreateBased(src_image, nil, nil, im.RGB, im.BYTE) - im.ProcessSplitYChroma(src_image, y_image, chroma_image) - return y_image, chroma_image -end - -OneSourceThreeDests("ProcessSplitHSI", nil, nil, im.GRAY, im.FLOAT) -ThreeSourcesOneDest("ProcessMergeHSI", nil, nil, im.RGB, im.BYTE) - -function im.ProcessSplitComponentsNew (src_image) - local depth = src_image:Depth() - local dst_images = {} - for i = 1, depth do - table.insert(dst_images, im.ImageCreateBased(src_image, nil, nil, im.GRAY)) - end - im.ProcessSplitComponents(src_image, dst_images) - return unpack(dst_images) -end - -function im.ProcessMergeComponentsNew (src_image_list) - local dst_image = im.ImageCreateBased(src_image_list[1], nil, nil, im.RGB) - im.ProcessMergeComponents(src_image_list, dst_image) - return dst_image -end - -OneSourceOneDest("ProcessNormalizeComponents", nil, nil, nil, im.FLOAT) -OneSourceOneDest("ProcessReplaceColor") -TwoSourcesOneDest("ProcessBitwiseOp") -OneSourceOneDest("ProcessBitwiseNot") -OneSourceOneDest("ProcessBitMask") -OneSourceOneDest("ProcessBitPlane") -OneSourceOneDest("ProcessToneGamut") -OneSourceOneDest("ProcessUnNormalize", nil, nil, nil, im.BYTE) -OneSourceOneDest("ProcessDirectConv", nil, nil, nil, im.BYTE) -OneSourceOneDest("ProcessNegative") -OneSourceOneDest("ProcessRangeContrastThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessLocalMaxThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessThreshold", nil, nil, im.BINARY, nil) -TwoSourcesOneDest("ProcessThresholdByDiff") -OneSourceOneDest("ProcessHysteresisThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessUniformErrThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessDifusionErrThreshold") -OneSourceOneDest("ProcessPercentThreshold") -OneSourceOneDest("ProcessOtsuThreshold") -OneSourceOneDest("ProcessMinMaxThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessSliceThreshold", nil, nil, im.BINARY, nil) -OneSourceOneDest("ProcessPixelate") -OneSourceOneDest("ProcessPosterize") - ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "im" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "im" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("libtiff/*.c"), - matchfiles("libjpeg/*.c"), - matchfiles("liblzf/*.c"), - matchfiles("zlib/*.c"), - "libpng/png.c", "libpng/pngget.c", "libpng/pngread.c", "libpng/pngrutil.c", "libpng/pngwtran.c", - "libpng/pngerror.c", "libpng/pngmem.c", "libpng/pngrio.c", "libpng/pngset.c", "libpng/pngwio.c", - "libpng/pngpread.c", "libpng/pngrtran.c", "libpng/pngtrans.c", "libpng/pngwrite.c", "libpng/pngwutil.c", - matchfiles("libexif/canon/*.c"), - matchfiles("libexif/olympus/*.c"), - matchfiles("libexif/pentax/*.c"), - matchfiles("libexif/*.c"), - "old_imcolor.c", "old_imresize.c", "tiff_binfile.c", "im_converttype.cpp", - "im_attrib.cpp", "im_format.cpp", "im_format_tga.cpp", "im_filebuffer.cpp", - "im_bin.cpp", "im_format_all.cpp", "im_format_tiff.cpp", "im_format_raw.cpp", - "im_binfile.cpp", "im_format_sgi.cpp", "im_datatype.cpp", "im_format_pcx.cpp", - "im_colorhsi.cpp", "im_format_bmp.cpp", "im_image.cpp", "im_rgb2map.cpp", - "im_colormode.cpp", "im_format_gif.cpp", "im_lib.cpp", "im_format_pnm.cpp", - "im_colorutil.cpp", "im_format_ico.cpp", "im_palette.cpp", "im_format_png.cpp", - "im_convertbitmap.cpp", "im_format_led.cpp", "im_counter.cpp", "im_str.cpp", - "im_convertcolor.cpp", "im_format_jpeg.cpp", "im_fileraw.cpp", "im_format_krn.cpp", - "im_file.cpp", "im_format_ras.cpp", "old_im.cpp", "im_compress.cpp", -} - -package.includepaths = { ".", "../include", "libtiff", "libjpeg", "libexif", "libpng", "zlib" } -package.defines = { "JPEG_SUPPORT", "ZIP_SUPPORT", "OJPEG_SUPPORT", "PIXARLOG_SUPPORT", "PNG_NO_STDIO", "PNG_TIME_RFC1123_SUPPORTED" } - -if (options.os == "windows") then - tinsert(package.files, {"im_sysfile_win32.cpp", "im_dib.cpp", "im_dibxbitmap.cpp"}) - - if (options.target ~= "gnu") then - -- optimize PNG lib for VC - tinsert(package.files, "libpng/pngvcrd.c") - tinsert(package.defines, "PNG_USE_PNGVCRD") - end -else - tinsert(package.files, "im_sysfile_unix.cpp") - - if (options.os == "linux") then - --package.buildoptions = { "-W -Wall -ansi -pedantic" } - - -- optimize PNG lib for Linux in x86 - tinsert(package.files, "libpng/pnggccrd.c") - tinsert(package.defines, "PNG_USE_PNGGCCRD") - end -end - -fixPackagePath(package.files) - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "im_process" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "process/im_arithmetic_bin.cpp", "process/im_morphology_gray.cpp", "process/im_quantize.cpp", - "process/im_arithmetic_un.cpp", "process/im_geometric.cpp", "process/im_render.cpp", - "process/im_color.cpp", "process/im_histogram.cpp", "process/im_resize.cpp", - "process/im_convolve.cpp", "process/im_houghline.cpp", "process/im_statistics.cpp", - "process/im_convolve_rank.cpp", "process/im_logic.cpp", "process/im_threshold.cpp", - "process/im_effects.cpp", "process/im_morphology_bin.cpp", "process/im_tonegamut.cpp", - "process/im_canny.cpp", "process/im_distance.cpp", "process/im_analyze.cpp" -} -fixPackagePath(package.files) - -package.includepaths = { "../include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "im_jp2" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("libjasper/base/*.c", "libjasper/jp2/*.c", "libjasper/jpc/*.c"), - "jas_binfile.c", "im_format_jp2.cpp" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "libjasper" } -package.defines = { "EXCLUDE_JPG_SUPPORT", "EXCLUDE_MIF_SUPPORT", "EXCLUDE_PNM_SUPPORT", - "EXCLUDE_BMP_SUPPORT", "EXCLUDE_PGX_SUPPORT", "EXCLUDE_RAS_SUPPORT", - "EXCLUDE_TIFF_SUPPORT", "JAS_GEO_OMIT_PRINTING_CODE" } - -tinsert(package.defines, "JAS_TYPES") - -if (options.os == "linux") then - tinsert(package.defines, "HAVE_UNISTD_H") -end - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "im_lua3.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(LUA3)/include", "$(CD)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "im_fftw" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("fftw/*.c"), - "process/im_fft.cpp" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "fftw" } -package.defines = { "FFTW_ENABLE_FLOAT" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "im_fftw3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("fftw3/api/*.c"), - matchfiles("fftw3/reodft/*.c"), - matchfiles("fftw3/kernel/*.c"), - matchfiles("fftw3/dft/*.c", "fftw3/dft/codelets/*.c", "fftw3/dft/codelets/inplace/*.c", "fftw3/dft/codelets/standard/*.c"), - matchfiles("fftw3/rdft/*.c", "fftw3/rdft/codelets/*.c", "fftw3/rdft/codelets/hc2r/*.c", "fftw3/rdft/codelets/r2hc/*.c", "fftw3/rdft/codelets/r2r/*.c"), - "process/im_fft.cpp" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "fftw3/kernel", "fftw3/dft", "fftw3/rdft", "fftw3/api", - "fftw3/reodft", "fftw3/rdft/codelets", "fftw3/dft/codelets" } -package.defines = { "USE_FFTW3" } - -if (options.os == "windows") then - if (options.target == "gnu") then - tinsert(package.defines, "HAVE_UINTPTR_T") - end -end - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "lua5/imlua.c", "lua5/imlua_aux.c", "lua5/imlua_convert.c", "lua5/imlua_file.c", - "lua5/imlua_image.c", "lua5/imlua_palette.c", "lua5/imlua_util.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "lua5", "$(LUA51)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua_cd51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "lua5/imlua_cd.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "lua5", "$(LUA51)/include", "$(CD)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua_process51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "lua5/imlua_process.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "lua5", "$(LUA51)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua_capture51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "lua5/imlua_capture.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "lua5", "$(LUA51)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "imlua_fftw51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "lua5/imlua_fftw.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "lua5", "$(LUA51)/include" } - ---------------------------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - -function tremove(t, value) - local index = -1 - function f(i, v) - if (v == value) then - index = i - end - end - table.foreachi(t, f) - if (index ~= -1) then - table.remove(t, index) - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iup" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("*.c") -} - -package.includepaths = { ".", "../include" } - -if (options.os == "windows") then - tinsert(package.files, matchfiles("win/*.c")) - tinsert(package.includepaths, {"win"}) - package.defines = {"_WIN32_WINNT=0x0400"} -else - tinsert(package.files, matchfiles("mot/*.c")) - tremove(package.files[2], "mot/ComboBox1.c") - tinsert(package.includepaths, {"mot", "/usr/X11R6/include"}) - package.defines = {"LINUX"} -end - -fixPackagePath(package.files) - ----------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iupcontrols" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - matchfiles("*.c"), - matchfiles("mask/*.c"), - matchfiles("matrix/*.c"), - matchfiles("tree/*.c"), - matchfiles("color/*.c") -} - -package.includepaths = { ".", "../include", "../src", "$(CD)/include" } - -if (options.os == "linux") then - package.defines = { "_MOTIF_" } - tinsert(package.includepaths, {"/usr/X11R6/include"}) -end - -fixPackagePath(package.files) - ----------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iupgl" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.includepaths = { ".", "../include" } - -if (options.os == "windows") then - package.files = { "iupglw.c" } -else - package.files = { "iupglx.c", "GL/GLwMDrawA.c" } - tinsert(package.includepaths, {"/usr/X11R6/include"}) -end - -fixPackagePath(package.files) - ----------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iupim" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.includepaths = { ".", "../include", "$(IM)/include" } - -package.files = { "iupim.c" } - -fixPackagePath(package.files) - ----------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "ledc" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "exe" - -package.files = -{ - "lex.yy.c", "y.tab.c", "main.c" -} - -package.includepaths = { "." } - -fixPackagePath(package.files) - ----------------------------------------------------- --- Utilities - -function printvars() - local n,v = nextvar(nil) - print("--printvars Start--") - while n ~= nil do - print(tostring(n).."="..tostring(v)) - n,v = nextvar(n) - end - print("--printvars End--") -end - -function printtable(t) - local n,v = next(t, nil) - print("--printtable Start--") - while n ~= nil do - print(tostring(n).."="..tostring(v)) - n,v = next(t, n) - end - print("--printtable End--") -end - -function print_version_info() - print(_VERSION .. " " .. iup._LUA_COPYRIGHT) - if (im) then print(im._VERSION .. " " .. im._COPYRIGHT) end - if (cd and cd._VERSION) then print(cd._VERSION .. " " .. cd._COPYRIGHT) end - print(iup._VERSION .. " " .. iup._COPYRIGHT) - print("") - print("IUP Info") - print(" System: " .. iup.GetGlobal("SYSTEM")) - print(" System Version: " .. iup.GetGlobal("SYSTEMVERSION")) - local mot = iup.GetGlobal("MOTIFVERSION") - if (mot) then print(" Motif Version: ", mot) end - print(" Screen Size: " .. iup.GetGlobal("SCREENSIZE")) - print(" Screen Depth: " .. iup.GetGlobal("SCREENDEPTH")) - if (iup.GL_VENDOR) then print(" OpenGL Vendor: " .. iup.GL_VENDOR) end - if (iup.GL_RENDERER) then print(" OpenGL Renderer: " .. iup.GL_RENDERER) end - if (iup.GL_VERSION) then print(" OpenGL Version: " .. iup.GL_VERSION) end -end - --- IUPLUA Full Application - -lastfile = nil -- Last file open - -mulCommands = iupmultiline{expand=IUP_YES, size="200x120", font="COURIER_NORMAL_10"} -poslabel = iuplabel{title="0:0", size="50x"} -filelabel = iuplabel{title="", size="50x", expand="HORIZONTAL"} - -mulCommands.caretcb = function(self, lin, col) - poslabel.title = lin..":"..col -end - -butExecute = iupbutton{size="50x15", title = "Execute", action="dostring(mulCommands.value)"} -butClearCommands = iupbutton{size="50x15", title = "Clear", action = "mulCommands.value = '' filelabel.title = '' lastfile = nil"} -butLoadFile = iupbutton{size="50x15", title = "Load..."} -butSaveasFile = iupbutton{size="50x15", title = "Save As..."} -butSaveFile = iupbutton{size="50x15", title = "Save"} - -function butSaveFile:action() - if (lastfile == nil) then - butSaveasFile:action() - else - novoarq = openfile (lastfile, "w+") - if (novoarq ~= nil) then - write (novoarq,mulCommands.value) - closefile (novoarq) - else - error ("Cannot Save file "..filename) - end - end -end - -function butSaveasFile:action() - local filedlg = iupfiledlg{dialogtype = "SAVE", title = "Save File", filter = "*.lua", filterinfo = "Lua files",allownew=yes} - IupPopup(filedlg,IUP_LEFT, IUP_LEFT) - local status = filedlg.status - lastfile = filedlg.value - filelabel.title = lastfile - IupDestroy(filedlg) - if status ~= "-1" then - if (lastfile == nil) then - error ("Cannot Save file "..lastfile) - end - local novoarq = openfile (lastfile, "w+") - if (novoarq ~= nil) then - write (novoarq,mulCommands.value) - closefile (novoarq) - else - error ("Cannot Save file") - end - end -end - -function butLoadFile:action() - local filedlg = iupfiledlg{dialogtype="OPEN", title="Load File", filter="*.lua", filterinfo="Lua Files", allownew="NO"} - filedlg:popup(IUP_CENTER, IUP_CENTER) - local status = filedlg.status - local newfile = filedlg.value - IupDestroy(filedlg) - if (status == "-1") or (status == "1") then - if (status == "1") then - error ("Cannot load file "..newfile) - end - else - local fp = openfile (newfile, "r") - if (fp == nil) then - error ("Cannot load file "..newfile) - else - mulCommands.value = read (fp,"*a") - closefile (fp) - lastfile = newfile - filelabel.title = lastfile - end - end -end - -vbxConsole = iupvbox -{ - iupframe{iuphbox{iupvbox{butLoadFile, butSaveFile, butSaveasFile, butClearCommands, butExecute; margin="0x0", gap="10"}, iupvbox{filelabel, mulCommands, poslabel; alignment="ARIGHT"}; alignment="ATOP"}; title="Commands"} - ;alignment="ACENTER", margin="5x5", gap="5" -} - --- Main Menu Definition. - -mnuMain = iupmenu -{ - iupsubmenu - { - iupmenu - { - iupitem{title="Exit", action="return IUP_CLOSE"} - }; title="File" - }, - iupsubmenu{iupmenu - { - iup.item{title="Print Version Info...", action=print_version_info}, - iupitem{title="About...", action="dlgAbout:popup(IUP_CENTER, IUP_CENTER)"} - };title="Help"} -} - --- Main Dialog Definition. - -dlgMain = iupdialog{vbxConsole; title="Complete IupLua3 Interpreter", menu=mnuMain, close_cb = "return IUP_CLOSE"} - --- About Dialog Definition. - -dlgAbout = iupdialog -{ - iupvbox - { - iuplabel{title="Complete IupLua3 Interpreter"}, - iupfill{size="5"}, - iupfill{size="5"}, - iupframe - { - iupvbox - { - iuplabel{title="Tecgraf/PUC-Rio"}, - iuplabel{title="Mark/Ovídio/Scuri"}, - iuplabel{title="iup@tecgraf.puc-rio.br"} - } - }, - iupfill{size="5"}, - iupbutton{title="OK", action="return IUP_CLOSE", size="50X20"} - ;margin="10x10", alignment="ACENTER" - } - ;maxbox=IUP_NO, minbox=IUP_NO, resize=IUP_NO, title="About" -} - --- Displays the Main Dialog - -dlgMain:show() - -IupMainLoop() - -IupDestroy(dlgMain) -IupDestroy(dlgAbout) - --- ################################################################################# --- Constants --- ################################################################################# - - -IUP_ERROR = 1 iup.ERROR = IUP_ERROR -IUP_NOERROR = 0 iup.NOERROR = IUP_NOERROR -IUP_OPENED = -1 iup.OPENED = IUP_OPENED -IUP_INVALID = -1 iup.INVALID = IUP_INVALID - -IUP_CENTER = 65535 iup.CENTER = IUP_CENTER -IUP_LEFT = 65534 iup.LEFT = IUP_LEFT -IUP_RIGHT = 65533 iup.RIGHT = IUP_RIGHT -IUP_MOUSEPOS = 65532 iup.MOUSEPOS = IUP_MOUSEPOS -IUP_CURRENT = 65531 iup.CURRENT = IUP_CURRENT -IUP_CENTERPARENT = 65530 iup.CENTERPARENT = IUP_CENTERPARENT -IUP_TOP = IUP_LEFT iup.TOP = IUP_TOP -IUP_BOTTOM = IUP_RIGHT iup.BOTTOM = IUP_BOTTOM -IUP_ANYWHERE = IUP_CURRENT iup.ANYWHERE = IUP_ANYWHERE - -IUP_BUTTON1 = 49 iup.BUTTON1 = IUP_BUTTON1 -- '1' -IUP_BUTTON2 = 50 iup.BUTTON2 = IUP_BUTTON2 -- '2' -IUP_BUTTON3 = 51 iup.BUTTON3 = IUP_BUTTON3 -- '3' -IUP_BUTTON4 = 52 iup.BUTTON4 = IUP_BUTTON4 -- '4' -IUP_BUTTON5 = 53 iup.BUTTON5 = IUP_BUTTON5 -- '5' - -IUP_IGNORE = -1 iup.IGNORE = IUP_IGNORE -IUP_DEFAULT = -2 iup.DEFAULT = IUP_DEFAULT -IUP_CLOSE = -3 iup.CLOSE = IUP_CLOSE -IUP_CONTINUE = -4 iup.CONTINUE = IUP_CONTINUE - -IUP_SBUP = 0 iup.SBUP = IUP_SBUP -IUP_SBDN = 1 iup.SBDN = IUP_SBDN -IUP_SBPGUP = 2 iup.SBPGUP = IUP_SBPGUP -IUP_SBPGDN = 3 iup.SBPGDN = IUP_SBPGDN -IUP_SBPOSV = 4 iup.SBPOSV = IUP_SBPOSV -IUP_SBDRAGV = 5 iup.SBDRAGV = IUP_SBDRAGV -IUP_SBLEFT = 6 iup.SBLEFT = IUP_SBLEFT -IUP_SBRIGHT = 7 iup.SBRIGHT = IUP_SBRIGHT -IUP_SBPGLEFT = 8 iup.SBPGLEFT = IUP_SBPGLEFT -IUP_SBPGRIGHT = 9 iup.SBPGRIGHT = IUP_SBPGRIGHT -IUP_SBPOSH = 10 iup.SBPOSH = IUP_SBPOSH -IUP_SBDRAGH = 11 iup.SBDRAGH = IUP_SBDRAGH - -IUP_SHOW = 0 iup.SHOW = IUP_SHOW -IUP_RESTORE = 1 iup.RESTORE = IUP_RESTORE -IUP_MINIMIZE = 2 iup.MINIMIZE = IUP_MINIMIZE -IUP_MAXIMIZE = 3 iup.MAXIMIZE = IUP_MAXIMIZE -IUP_HIDE = 4 iup.HIDE = IUP_HIDE - -RED = IupRGB(1, 0, 0) iup.RED = RED -GREEN = IupRGB(0, 1, 0) iup.GREEN = GREEN -BLUE = IupRGB(0, 0, 1) iup.BLUE = BLUE -BLACK = IupRGB(0, 0, 0) iup.BLACK = BLACK -WHITE = IupRGB(1, 1, 1) iup.WHITE = WHITE -YELLOW = IupRGB(1, 1, 0) iup.YELLOW = YELLOW - -IUP_ON = "ON" iup.ON = IUP_ON -IUP_OFF = "OFF" iup.OFF = IUP_OFF -IUP_YES = "YES" iup.YES = IUP_YES -IUP_NO = "NO" iup.NO = IUP_NO -IUP_APPEND = "APPEND" iup.APPEND = IUP_APPEND -IUP_VERTICAL = "VERTICAL" iup.VERTICAL = IUP_VERTICAL -IUP_HORIZONTAL ="HORIZONTAL" iup.HORIZONTAL =IUP_HORIZONTAL - -IUP_ACENTER = "ACENTER" iup.ACENTER = IUP_ACENTER -IUP_ALEFT = "ALEFT" iup.ALEFT = IUP_ALEFT -IUP_ARIGHT = "ARIGHT" iup.ARIGHT = IUP_ARIGHT -IUP_ATOP = "ATOP" iup.ATOP = IUP_ATOP -IUP_ABOTTOM = "ABOTTOM" iup.ABOTTOM = IUP_ABOTTOM - -IUP_NORTH = "NORTH" iup.NORTH = IUP_NORTH -IUP_SOUTH = "SOUTH" iup.SOUTH = IUP_SOUTH -IUP_WEST = "WEST" iup.WEST = IUP_WEST -IUP_EAST = "EAST" iup.EAST = IUP_EAST -IUP_NE = "NE" iup.NE = IUP_NE -IUP_SE = "SE" iup.SE = IUP_SE -IUP_NW = "NW" iup.NW = IUP_NW -IUP_SW = "SW" iup.SW = IUP_SW - -IUP_FULL = "FULL" iup.FULL = IUP_FULL -IUP_HALF = "HALF" iup.HALF = IUP_HALF -IUP_THIRD = "THIRD" iup.THIRD = IUP_THIRD -IUP_QUARTER = "QUARTER" iup.QUARTER = IUP_QUARTER -IUP_EIGHTH = "EIGHTH" iup.EIGHTH = IUP_EIGHTH - -IUP_ARROW = "ARROW" iup.ARROW = IUP_ARROW -IUP_BUSY = "BUSY" iup.BUSY = IUP_BUSY -IUP_RESIZE_N = "RESIZE_N" iup.RESIZE_N = IUP_RESIZE_N -IUP_RESIZE_S = "RESIZE_S" iup.RESIZE_S = IUP_RESIZE_S -IUP_RESIZE_E = "RESIZE_E" iup.RESIZE_E = IUP_RESIZE_E -IUP_RESIZE_W = "RESIZE_W" iup.RESIZE_W = IUP_RESIZE_W -IUP_RESIZE_NE = "RESIZE_NE" iup.RESIZE_NE = IUP_RESIZE_NE -IUP_RESIZE_NW = "RESIZE_NW" iup.RESIZE_NW = IUP_RESIZE_NW -IUP_RESIZE_SE = "RESIZE_SE" iup.RESIZE_SE = IUP_RESIZE_SE -IUP_RESIZE_SW = "RESIZE_SW" iup.RESIZE_SW = IUP_RESIZE_SW -IUP_MOVE = "MOVE" iup.MOVE = IUP_MOVE -IUP_HAND = "HAND" iup.HAND = IUP_HAND -IUP_NONE = "NONE" iup.NONE = IUP_NONE -IUP_IUP = "IUP" iup.IUP = IUP_IUP -IUP_CROSS = "CROSS" iup.CROSS = IUP_CROSS -IUP_PEN = "PEN" iup.PEN = IUP_PEN -IUP_TEXT = "TEXT" iup.TEXT = IUP_TEXT -IUP_RESIZE_C = "RESIZE_C" iup.RESIZE_C = IUP_RESIZE_C -IUP_OPENHAND = "OPENHAND" iup.OPENHAND = IUP_OPENHAND - -IUP_HELVETICA_NORMAL_8 = "HELVETICA_NORMAL_8" iup.HELVETICA_NORMAL_8 = IUP_HELVETICA_NORMAL_8 -IUP_HELVETICA_ITALIC_8 = "HELVETICA_ITALIC_8" iup.HELVETICA_ITALIC_8 = IUP_HELVETICA_ITALIC_8 -IUP_HELVETICA_BOLD_8 = "HELVETICA_BOLD_8" iup.HELVETICA_BOLD_8 = IUP_HELVETICA_BOLD_8 -IUP_HELVETICA_NORMAL_10 = "HELVETICA_NORMAL_10" iup.HELVETICA_NORMAL_10 = IUP_HELVETICA_NORMAL_10 -IUP_HELVETICA_ITALIC_10 = "HELVETICA_ITALIC_10" iup.HELVETICA_ITALIC_10 = IUP_HELVETICA_ITALIC_10 -IUP_HELVETICA_BOLD_10 = "HELVETICA_BOLD_10" iup.HELVETICA_BOLD_10 = IUP_HELVETICA_BOLD_10 -IUP_HELVETICA_NORMAL_12 = "HELVETICA_NORMAL_12" iup.HELVETICA_NORMAL_12 = IUP_HELVETICA_NORMAL_12 -IUP_HELVETICA_ITALIC_12 = "HELVETICA_ITALIC_12" iup.HELVETICA_ITALIC_12 = IUP_HELVETICA_ITALIC_12 -IUP_HELVETICA_BOLD_12 = "HELVETICA_BOLD_12" iup.HELVETICA_BOLD_12 = IUP_HELVETICA_BOLD_12 -IUP_HELVETICA_NORMAL_14 = "HELVETICA_NORMAL_14" iup.HELVETICA_NORMAL_14 = IUP_HELVETICA_NORMAL_14 -IUP_HELVETICA_ITALIC_14 = "HELVETICA_ITALIC_14" iup.HELVETICA_ITALIC_14 = IUP_HELVETICA_ITALIC_14 -IUP_HELVETICA_BOLD_14 = "HELVETICA_BOLD_14" iup.HELVETICA_BOLD_14 = IUP_HELVETICA_BOLD_14 -IUP_COURIER_NORMAL_8 = "COURIER_NORMAL_8" iup.COURIER_NORMAL_8 = IUP_COURIER_NORMAL_8 -IUP_COURIER_ITALIC_8 = "COURIER_ITALIC_8" iup.COURIER_ITALIC_8 = IUP_COURIER_ITALIC_8 -IUP_COURIER_BOLD_8 = "COURIER_BOLD_8" iup.COURIER_BOLD_8 = IUP_COURIER_BOLD_8 -IUP_COURIER_NORMAL_10 = "COURIER_NORMAL_10" iup.COURIER_NORMAL_10 = IUP_COURIER_NORMAL_10 -IUP_COURIER_ITALIC_10 = "COURIER_ITALIC_10" iup.COURIER_ITALIC_10 = IUP_COURIER_ITALIC_10 -IUP_COURIER_BOLD_10 = "COURIER_BOLD_10" iup.COURIER_BOLD_10 = IUP_COURIER_BOLD_10 -IUP_COURIER_NORMAL_12 = "COURIER_NORMAL_12" iup.COURIER_NORMAL_12 = IUP_COURIER_NORMAL_12 -IUP_COURIER_ITALIC_12 = "COURIER_ITALIC_12" iup.COURIER_ITALIC_12 = IUP_COURIER_ITALIC_12 -IUP_COURIER_BOLD_12 = "COURIER_BOLD_12" iup.COURIER_BOLD_12 = IUP_COURIER_BOLD_12 -IUP_COURIER_NORMAL_14 = "COURIER_NORMAL_14" iup.COURIER_NORMAL_14 = IUP_COURIER_NORMAL_14 -IUP_COURIER_ITALIC_14 = "COURIER_ITALIC_14" iup.COURIER_ITALIC_14 = IUP_COURIER_ITALIC_14 -IUP_COURIER_BOLD_14 = "COURIER_BOLD_14" iup.COURIER_BOLD_14 = IUP_COURIER_BOLD_14 -IUP_TIMES_NORMAL_8 = "TIMES_NORMAL_8" iup.TIMES_NORMAL_8 = IUP_TIMES_NORMAL_8 -IUP_TIMES_ITALIC_8 = "TIMES_ITALIC_8" iup.TIMES_ITALIC_8 = IUP_TIMES_ITALIC_8 -IUP_TIMES_BOLD_8 = "TIMES_BOLD_8" iup.TIMES_BOLD_8 = IUP_TIMES_BOLD_8 -IUP_TIMES_NORMAL_10 = "TIMES_NORMAL_10" iup.TIMES_NORMAL_10 = IUP_TIMES_NORMAL_10 -IUP_TIMES_ITALIC_10 = "TIMES_ITALIC_10" iup.TIMES_ITALIC_10 = IUP_TIMES_ITALIC_10 -IUP_TIMES_BOLD_10 = "TIMES_BOLD_10" iup.TIMES_BOLD_10 = IUP_TIMES_BOLD_10 -IUP_TIMES_NORMAL_12 = "TIMES_NORMAL_12" iup.TIMES_NORMAL_12 = IUP_TIMES_NORMAL_12 -IUP_TIMES_ITALIC_12 = "TIMES_ITALIC_12" iup.TIMES_ITALIC_12 = IUP_TIMES_ITALIC_12 -IUP_TIMES_BOLD_12 = "TIMES_BOLD_12" iup.TIMES_BOLD_12 = IUP_TIMES_BOLD_12 -IUP_TIMES_NORMAL_14 = "TIMES_NORMAL_14" iup.TIMES_NORMAL_14 = IUP_TIMES_NORMAL_14 -IUP_TIMES_ITALIC_14 = "TIMES_ITALIC_14" iup.TIMES_ITALIC_14 = IUP_TIMES_ITALIC_14 -IUP_TIMES_BOLD_14 = "TIMES_BOLD_14" iup.TIMES_BOLD_14 = IUP_TIMES_BOLD_14 - - - --- ################################################################################# --- Private functions --- ################################################################################# - --- maps Ihandles into Lua objects -iup_handles = {} - -settagmethod(iuplua_tag, "gettable", iup_gettable) -settagmethod(iuplua_tag, "settable", iup_settable) -settagmethod (tag({}), "index", iup_index) - -function _ALERT(s) - local bt = iupbutton{title="Ok", size="60", action="return IUP_CLOSE"} - local ml = iupmultiline{expand="YES", readonly="YES", value=s, size="300x150"} - local vb = iupvbox{ml, bt; alignment="ACENTER", margin="10x10", gap="10"} - local dg = iupdialog{vb; title="Lua Error",defaultesc=bt,defaultenter=bt,startfocus=bt} - dg:popup(IUP_CENTER, IUP_CENTER) - dg:destroy() -end - -function type_string (o) - return type(o) == "string" -end - -function type_number (o) - return type(o) == "number" -end - -function type_nil (o) - return type(o) == "nil" -end - -function type_function (o) - return type(o) == "function" -end - -function type_widget(w) - if w then - return iup_handles[w] - else - return nil - end -end - -function type_menu (o) - return type_widget(o) and (o.parent==IUPMENU) -end - -function type_item (o) - return type_widget(o) and (o.parent==IUPITEM or o.parent==IUPSUBMENU or o.parent==IUPSEPARATOR) -end - -function iupCallMethod(name, ...) - local handle = arg[1] -- always the handle - - local func = handle[name] -- this is the old name - if (not func) then - local full_name = strlower(iup_callbacks[name][1]) - func = handle[full_name] -- check also for the full name - - if (not func) then - return - end - end - - if type_function (func) then - return call(func, arg) - elseif type_string(func) then - local temp = self - self = handle - local result = dostring(func) - self = temp - return result - else - return IUP_ERROR - end -end - -function iupSetName (handle) - if not type_string(iup_handles[handle].IUP_name) then - iup_handles[handle].IUP_name = format("_IUPLUA_NAME(%s)", tostring(handle)) - IupSetHandle(handle.IUP_name, handle) - end -end - -function iupCreateChildrenNames (obj) - if obj.parent.parent == COMPOSITION then - local i = 1 - while obj[i] do - iupCreateChildrenNames (obj[i]) - i = i+1 - end - elseif obj.parent == IUPFRAME then - iupCreateChildrenNames (obj[1]) - else - iupSetName (obj) - end -end - - --- ################################################################################# --- Public Functions --- ################################################################################# - - -function IupRGB (red, green, blue) - return floor(red*255).." "..floor(green*255).." "..floor(blue*255) -end -iup.RGB = IupRGB - -function IupRegisterHandle(handle, typename) - if not iup_handles[handle] then - local obj = getglobal("IUP"..strupper(typename)) - if not obj then - obj = WIDGET - end - iup_handles[handle] = { parent=obj, handle=handle } - end - return handle -end -iup.RegisterHandle = IupRegisterHandle - -function IupGetFromC(obj) - local handle = IupGetHandle(obj[1]) - return IupRegisterHandle(handle, IupGetType(handle)) -end - -iup.GetFromC = function (name) - local handle = IupGetHandle(name) - return IupRegisterHandle(handle, IupGetType(handle)) -end - - --- ################################################################################# --- Widgets --- ################################################################################# - - --- "type" is used to check the type of each parameter in the creation table -WIDGET = {type = {}} - --- called by the iupxxx functions --- obj is a lua table -function WIDGET:Constructor(obj) - -- the parent of the table is the widget class used to create the control - obj.parent = self - - -- check the table parameters - self:checkParams(obj) - - -- create the IUP control, calling iupCreateXXX - obj.handle = self:CreateIUPelement(obj) - - -- set the parameters that are attributes - self:setAttributes(obj) - - -- save the table indexed by the handle - iup_handles[obj.handle] = obj - - -- the returned value is the handle, not the table - return obj.handle -end - -function WIDGET:checkParams (obj) - local type = self.type - local param, func = next(type, nil) - while param do - if not func(obj[param]) then - error("parameter " .. param .. " has wrong value or is not initialized") - end - param, func = next(type, param) - end -end - -function WIDGET:setAttributes (obj) - local temp = {} - local f = next(obj, nil) - while f do - temp[f] = 1 - f = next(obj, f) - end - f = next(temp, nil) - while f do - obj:set (f, obj[f]) - f = next(temp, f) - end -end - -function WIDGET:get(index) - if type_string (index) then - if (iup_callbacks[index]) then - return self[index] - else - local INDEX = strupper (index) - local value = IupGetAttribute (self.handle, INDEX) - if value then - local handle = IupGetHandle (value) - if handle then - return handle - else - return value - end - end - end - end - return self[index] -end - -function WIDGET:set(index, value) - if type_string (index) then - local INDEX = strupper (index) - local cb = iup_callbacks[index] - - -- workaround for resize attribute in dialog - if (index == "resize" and IupGetType(self.handle) == "dialog") then - cb = nil - end - - if (cb) then - local func = cb[2] - if (not func) then - func = cb[IupGetType(self.handle)] - end - iupSetCallback(self.handle, cb[1], func, value) - self[index] = value - return - elseif type_string(value) or type_number(value) then - IupSetAttribute(self.handle, INDEX, value) - return - elseif type_nil(value) then - local old_value = IupGetAttribute(self.handle, INDEX) - if old_value then - IupSetAttribute(self.handle, INDEX, value) - return - end - elseif type_widget(value) then - iupSetName(value) - IupSetAttribute(self.handle, INDEX, value.IUP_name) - return - end - end - self[index] = value -end - -function WIDGET:r_destroy() - local i = 1 - local elem = self[i] - while elem do - if type_widget (elem) and elem.IUP_parent then - if elem.IUP_parent == self then - elem.IUP_parent = nil - elem:r_destroy () - else -- wrong parent - error ("Internal table inconsistency") - exit() - end - end - - i = i + 1 - elem = self[i] - end - iup_handles[self] = nil -end - -function WIDGET:destroy() - self:r_destroy () - IupDestroy (self) -end - -function WIDGET:detach() - IupDetach (self) - local parent = self.IUP_parent - if parent then - self.IUP_parent = nil - local i = 1 - while parent[i] do - if parent[i] == self then - while parent[i+1] do - parent[i] = parent[i+1] - i = i+1 - end - parent[i] = nil - return - end - i = i+1 - end - end -end - -function WIDGET:append(o) - if IupAppend (self, o) then - o.IUP_parent = self - local i = 1 - while self[i] do - if self[i] == o then - return i - end - i = i+1 - end - iup_handles[self][i] = o - return i - else - return nil - end -end - -function WIDGET:map() - return IupMap(self) -end - -function WIDGET:hide() - return IupHide(self) -end - - --- ############### -IUPTIMER = {parent = WIDGET} - -function IUPTIMER:CreateIUPelement (obj) - return iupCreateTimer() -end - -function iuptimer(o) - return IUPTIMER:Constructor(o) -end -iup.timer = iuptimer - - --- ############### -IUPDIALOG = {parent = WIDGET, type = {type_widget}} - -function IUPDIALOG:CreateIUPelement (obj) - local handle = iupCreateDialog(obj[1]) - obj[1].IUP_parent = handle - return handle -end - -function IUPDIALOG:show () - return IupShow(self) -end - -function IUPDIALOG:showxy (x,y) - return IupShowXY(self, x, y) -end - -function IUPDIALOG:popup (x, y) - return IupPopup (self, x, y) -end - -function iupdialog (o) - return IUPDIALOG:Constructor (o) -end -iup.dialog = iupdialog - - --- ############### -IUPRADIO = {parent = WIDGET, type = {type_widget}} - -function IUPRADIO:CreateIUPelement (obj) - local handle = iupCreateRadio (obj[1]) - obj[1].IUP_parent = handle - return handle -end - -function iupradio (o) - local handle = IUPRADIO:Constructor (o) - iupCreateChildrenNames (handle[1]) - return handle -end -iup.radio = iupradio - --- OLD STUFF -function edntoggles (h) - local tmp = {} - local i = 1 - while h[i] do - if type_string (h[i]) then - tmp[i] = iuptoggle{title = h[i], action = h.action} - else - error ("option "..i.." must be a string") - end - i = i + 1 - end - - if h.value then - local j = 1 - while h[j] and (h[j] ~= h.value) do - j = j + 1 - end - if h[j] then - tmp.value = tmp[j] - end - elseif h.nvalue then - tmp.value = tmp[h.nvalue] - end - - return tmp -end - --- OLD STUFF -function edhradio (o) - local toggles = edntoggles (o) - return iupradio{edhbox (toggles); value = toggles.value} -end - --- OLD STUFF -function edvradio (o) - local toggles = edntoggles (o) - return iupradio{edvbox (toggles); value = toggles.value} -end - - --- ############### -IUPMENU = {parent = WIDGET} - -function IUPMENU:checkParams (obj) - local i = 1 - while obj[i] do - local o = obj[i] - if not type_item (o) then -- not a menu item - if type (o) ~= 'table' then - error("parameter " .. i .. " is not a table nor a menu item") - elseif (o[1] and not type_string (o[1])) then - error("parameter " .. i .. " does not have a string title") - elseif (o[2] and not type_string (o[2]) and not type_function (o[2]) - and not type_widget (o[2])) then - error("parameter " .. i .. " does not have an action nor a menu") - end - end - i = i + 1 - end -end - -function IUPMENU:CreateIUPelement (obj) - local handle = iupCreateMenu () - local i = 1 - while obj[i] do - local o = obj[i] - local elem - if type_widget (o) then -- predefined - elem = o - elseif not o[1] then -- Separator - elem = iupseparator {} - elseif type_widget (o[2]) then -- SubMenu - o.title = o[1] - o[1] = o[2] - o[2] = nil - elem = iupsubmenu(o) - else -- Item - o.title = o[1] - o.action = o[2] - o[1] = nil - o[2] = nil - elem = iupitem(o) - end - IupAppend (handle, elem) - elem.IUP_parent = handle - obj[i] = elem - i = i + 1 - end - return handle -end - -function iupmenu (o) - return IUPMENU:Constructor (o) -end -iup.menu = iupmenu - -function IUPMENU:popup (x, y) - return IupPopup (self, x, y) -end - - --- ############### -COMPOSITION = {parent = WIDGET} - -function COMPOSITION:checkParams (obj) - local i = 1 - while obj[i] do - if not type_widget (obj[i]) then - error("parameter " .. i .. " has wrong value or is not initialized") - end - i = i + 1 - end -end - -function COMPOSITION:CreateIUPelement (obj) - local handle = self:CreateBoxElement () - local filled = obj.filled - local i = 1 - local n = 0 - while obj[i] do - n = n + 1 - i = i + 1 - end - i = 1 - - if filled == IUP_YES then - obj[i+n] = iupfill{} - IupAppend (handle, obj[i+n]) - obj[i+n].IUP_parent = handle - end - - while i <= n do - IupAppend (handle, obj[i]) - obj[i].IUP_parent = handle - i = i + 1 - if filled == IUP_YES then - obj[i+n] = iupfill{} - IupAppend (handle, obj[i+n]) - obj[i+n].IUP_parent = handle - end - end - return handle -end - - --- ############### -IUPHBOX = {parent = COMPOSITION} - -function IUPHBOX:CreateBoxElement () - return iupCreateHbox () -end - -function iuphbox (o) - return IUPHBOX:Constructor (o) -end -iup.hbox = iuphbox - --- OLD STUFF -function edhbox (o) - o.filled = IUP_YES - return IUPHBOX:Constructor (o) -end - --- OLD STUFF -function edfield (f) - local l, t - if (type_string (f.prompt) or type_number (f.prompt)) then - l = iuplabel {title = f.prompt} - else - error ("parameter prompt has wrong value or is not initialized") - end - if f.value then - t = iuptext {value = f.value} - else - t = iuptext {value = f.nvalue} - end - if t and l then - return edhbox {l, t} - else - return nil - end -end - - --- ############### -IUPVBOX = {parent = COMPOSITION} - -function IUPVBOX:CreateBoxElement () - return iupCreateVbox () -end - -function iupvbox (o) - return IUPVBOX:Constructor (o) -end -iup.vbox = iupvbox - --- OLD STUFF -function edvbox (o) - o.filled = IUP_YES - return IUPVBOX:Constructor (o) -end - - --- ############### -IUPZBOX = {parent = COMPOSITION} - -function IUPZBOX:CreateBoxElement () - return iupCreateZbox () -end - -function iupzbox (obj) - local handle = IUPZBOX:Constructor (obj) - local i = 1 - while obj[i] do - iupSetName(handle[i]) - i = i+1 - end - return handle -end -iup.zbox = iupzbox - - --- ############### -IUPFILL = {parent = WIDGET} - -function IUPFILL:CreateIUPelement (obj) - return iupCreateFill () -end - -function iupfill (o) - return IUPFILL:Constructor (o) -end -iup.fill = iupfill - - --- ############### -IUPBUTTON = {parent = WIDGET, type = {title = type_string}} - -function IUPBUTTON:CreateIUPelement (obj) - if not obj.title and obj.image then - obj.title='' - end - return iupCreateButton(obj.title) -end - -function iupbutton (o) - return IUPBUTTON:Constructor (o) -end -iup.button = iupbutton - - --- ############### -IUPTEXT = {parent = WIDGET} - -function IUPTEXT:CreateIUPelement (obj) - return iupCreateText() -end - -function iuptext (o) - return IUPTEXT:Constructor (o) -end -iup.text = iuptext - - --- ############### -IUPMULTILINE = {parent = IUPTEXT} - -function IUPMULTILINE:CreateIUPelement (obj) - return iupCreateMultiLine() -end - -function iupmultiline (o) - return IUPMULTILINE:Constructor (o) -end -iup.multiline = iupmultiline - - --- ############### -IUPLABEL = {parent = WIDGET, type = {title = type_string}} - -function IUPLABEL:CreateIUPelement (obj) - if not obj.title and obj.image then - obj.title='' - end - return iupCreateLabel (obj.title) -end - -function iuplabel (o) - return IUPLABEL:Constructor (o) -end -iup.label = iuplabel - - --- ############### -IUPTOGGLE = {parent = IUPBUTTON} - -function IUPTOGGLE:CreateIUPelement (obj) - return iupCreateToggle (obj.title) -end - -function iuptoggle (o) - return IUPTOGGLE:Constructor (o) -end -iup.toggle = iuptoggle - - --- ############### -IUPITEM = {parent = IUPBUTTON} - -function IUPITEM:CreateIUPelement (obj) - return iupCreateItem (obj.title) -end - -function iupitem (o) - return IUPITEM:Constructor (o) -end -iup.item = iupitem - - --- ############### -IUPSUBMENU = {parent = WIDGET, type = {type_menu; title = type_string}} - -function IUPSUBMENU:CreateIUPelement (obj) - local h = iupCreateSubmenu (obj.title, obj[1]) - obj[1].IUP_parent = h - return h -end - -function iupsubmenu (o) - return IUPSUBMENU:Constructor (o) -end -iup.submenu = iupsubmenu - - --- ############### -IUPSEPARATOR = {parent = WIDGET} - -function IUPSEPARATOR:CreateIUPelement (obj) - return iupCreateSeparator () -end - -function iupseparator (o) - return IUPSEPARATOR:Constructor (o) -end -iup.separator = iupseparator - - --- ############### -IUPFILEDLG = {parent = WIDGET} - -function IUPFILEDLG:popup (x, y) - return IupPopup (self, x, y) -end - -function IUPFILEDLG:CreateIUPelement () - return iupCreateFileDlg () -end - -function iupfiledlg (o) - return IUPFILEDLG:Constructor (o) -end -iup.filedlg = iupfiledlg - - --- ############### -IUPMESSAGEDLG = {parent = WIDGET} - -function IUPMESSAGEDLG:popup (x, y) - return IupPopup (self, x, y) -end - -function IUPMESSAGEDLG:CreateIUPelement () - return iupCreateMessageDlg () -end - -function iupmessagedlg (o) - return IUPMESSAGEDLG:Constructor (o) -end -iup.messagedlg = iupmessagedlg - - --- ############### -IUPCOLORDLG = {parent = WIDGET} - -function IUPCOLORDLG:popup (x, y) - return IupPopup (self, x, y) -end - -function IUPCOLORDLG:CreateIUPelement () - return iupCreateColorDlg () -end - -function iupcolordlg (o) - return IUPCOLORDLG:Constructor (o) -end -iup.colordlg = iupcolordlg - - --- ############### -IUPFONTDLG = {parent = WIDGET} - -function IUPFONTDLG:popup (x, y) - return IupPopup (self, x, y) -end - -function IUPFONTDLG:CreateIUPelement () - return iupCreateFontDlg () -end - -function iupfontdlg (o) - return IUPFONTDLG:Constructor (o) -end -iup.fontdlg = iupfontdlg - - --- ############### -IUPUSER = {parent = WIDGET} - -function IUPUSER:CreateIUPelement () - return iupCreateUser () -end - -function iupuser () - return IUPUSER:Constructor () -end -iup.user = iupuser - - --- ############### -IUPFRAME = {parent = WIDGET, type = {type_widget}} - -function IUPFRAME:CreateIUPelement (obj) - local h = iupCreateFrame (obj[1]) - obj[1].IUP_parent = h - return h -end - -function iupframe (o) - return IUPFRAME:Constructor (o) -end -iup.frame = iupframe - - --- ############### -IUPCANVAS = {parent = WIDGET} - -function IUPCANVAS:CreateIUPelement (obj) - return iupCreateCanvas () -end - -function iupcanvas (o) - return IUPCANVAS:Constructor (o) -end -iup.canvas = iupcanvas - - --- ############### -IUPLIST = {parent = WIDGET} - -function IUPLIST:CreateIUPelement (obj) - return iupCreateList () -end - -function IUPLIST:get(index) - if type (index) == 'number' then - return IupGetAttribute (self.handle, ""..index) - else - return WIDGET.get(self, index) - end -end - -function IUPLIST:set (index, value) - if type (index) == 'number' then - if (type_string (value) or type_number (value)) then - return IupSetAttribute (self.handle, ""..index, ""..value) - elseif value == nil then - return IupSetAttribute (self.handle, ""..index, value) - end - end - return WIDGET.set(self, index, value) -end - -function iuplist (o) - return IUPLIST:Constructor (o) -end -iup.list = iuplist - - --- ############### -IUPIMAGE = {parent = WIDGET} - -function IUPIMAGE:checkParams (obj) - local i = 1 - while obj[i] do - local j = 1 - while obj[i][j] do - if type (obj[i][j]) ~= 'number' then - error ("non-numeric value in image definition") - end - j = j + 1 - end - - if obj.width and (j - 1) ~= obj.width then - error ("inconsistent image lenght") - else - obj.width = j - 1 - end - - i = i + 1 - end - - obj.height = i - 1 -end - -function IUPIMAGE:CreateIUPelement (obj) - local handle = iupCreateImage (obj.width, obj.height, obj) - if type (obj.colors) == 'table' then - local i = 1 - while obj.colors[i] do - IupSetAttribute (handle, i, obj.colors[i]) - i = i + 1 - end - end - return handle -end - -function iupimage (o) - return IUPIMAGE:Constructor (o) -end -iup.image = iupimage - - -IUPIMAGERGB = {parent = WIDGET} - -function IUPIMAGERGB:CreateIUPelement (obj) - return iupCreateImageRGB(obj.width, obj.height, obj.pixels) -end - -function iupimagergb (o) - return IUPIMAGERGB:Constructor (o) -end -iup.imagergb = iupimagergb - - -IUPIMAGERGBA = {parent = WIDGET} - -function IUPIMAGERGBA:CreateIUPelement (obj) - return iupCreateImageRGBA(obj.width, obj.height, obj.pixels) -end - -function iupimagergba (o) - return IUPIMAGERGBA:Constructor (o) -end -iup.imagergba = iupimagergba - - --- ################################################################################# --- Callbacks --- ################################################################################# - - --- global list of callbacks --- index is the Lua callback name --- each callback contains the full name, and the C callback -iup_callbacks = -{ - action = {"ACTION", nil}, - actioncb = {"ACTION_CB", nil}, - getfocus = {"GETFOCUS_CB", iup_getfocus_cb}, - killfocus = {"KILLFOCUS_CB", iup_killfocus_cb}, - focus = {"FOCUS_CB", iup_focus_cb}, - k_any = {"K_ANY", iup_k_any}, - help = {"HELP_CB", iup_help_cb}, - caretcb = {"CARET_CB", iup_caret_cb}, - keypress = {"KEYPRESS_CB", iup_keypress_cb}, - scroll = {"SCROLL_CB", iup_scroll_cb}, - trayclick = {"TRAYCLICK_CB", iup_trayclick_cb}, - close = {"CLOSE_CB", iup_close_cb}, - open = {"OPEN_CB", iup_open_cb}, - showcb = {"SHOW_CB", iup_show_cb}, - mapcb = {"MAP_CB", iup_map_cb}, - dropfiles = {"DROPFILES_CB", iup_dropfiles_cb}, - menuclose = {"MENUCLOSE_CB", iup_menuclose_cb}, - highlight = {"HIGHLIGHT_CB", iup_highlight_cb}, - wom = {"WOM_CB", iup_wom_cb}, - wheel = {"WHEEL_CB", iup_wheel_cb}, - button = {"BUTTON_CB", iup_button_cb}, - resize = {"RESIZE_CB", iup_resize_cb}, - motion = {"MOTION_CB", iup_motion_cb}, - enterwindow = {"ENTERWINDOW_CB", iup_enterwindow_cb}, - leavewindow = {"LEAVEWINDOW_CB", iup_leavewindow_cb}, - edit = {"EDIT_CB", iup_edit_cb}, - multiselect = {"MULTISELECT_CB", iup_multiselect_cb}, - filecb = {"FILE_CB", iup_file_cb}, - mdiactivatecb = {"MDIACTIVATE_CB", iup_mdiactivate_cb}, -} - -iup_callbacks.action.toggle = iup_action_toggle -iup_callbacks.action.multiline = iup_action_text -iup_callbacks.action.text = iup_action_text -iup_callbacks.action.button = iup_action_button -iup_callbacks.action.list = iup_action_list -iup_callbacks.action.item = iup_action_button -iup_callbacks.action.canvas = iup_action_canvas - --- must set here because it is also used elsewhere with a different signature -iup_callbacks.actioncb.timer = iup_action_timer - --- aliases for the full names -iup_callbacks.action_cb = iup_callbacks.actioncb -iup_callbacks.getfocus_cb = iup_callbacks.getfocus -iup_callbacks.killfocus_cb = iup_callbacks.killfocus -iup_callbacks.focus_cb = iup_callbacks.focus -iup_callbacks.k_any = iup_callbacks.k_any -iup_callbacks.help_cb = iup_callbacks.help -iup_callbacks.caret_cb = iup_callbacks.caretcb -iup_callbacks.keypress_cb = iup_callbacks.keypress -iup_callbacks.scroll_cb = iup_callbacks.scroll -iup_callbacks.trayclick_cb = iup_callbacks.trayclick -iup_callbacks.close_cb = iup_callbacks.close -iup_callbacks.open_cb = iup_callbacks.open -iup_callbacks.show_cb = iup_callbacks.showcb -iup_callbacks.map_cb = iup_callbacks.mapcb -iup_callbacks.dropfiles_cb = iup_callbacks.dropfiles -iup_callbacks.menuclose_cb = iup_callbacks.menuclose -iup_callbacks.highlight_cb = iup_callbacks.highlight -iup_callbacks.wom_cb = iup_callbacks.wom -iup_callbacks.wheel_cb = iup_callbacks.wheel -iup_callbacks.button_cb = iup_callbacks.button -iup_callbacks.resize_cb = iup_callbacks.resize -iup_callbacks.motion_cb = iup_callbacks.motion -iup_callbacks.enterwindow_cb = iup_callbacks.enterwindow -iup_callbacks.leavewindow_cb = iup_callbacks.leavewindow -iup_callbacks.edit_cb = iup_callbacks.edit -iup_callbacks.multiselect_cb = iup_callbacks.multiselect -iup_callbacks.mdiactivate_cb = iup_callbacks.mdiactivatecb -iup_callbacks.file_cb = iup_callbacks.filecb -IUPCOLORBROWSER = {parent = WIDGET} - -function IUPCOLORBROWSER:CreateIUPelement(obj) - return iupCreateColorBrowser(obj) -end - -function iupcolorbrowser (o) - return IUPCOLORBROWSER:Constructor (o) -end -iup.colorbrowser = iupcolorbrowser - - -iup_callbacks.drag = {"DRAG_CB", iup_colorbrowser_drag_cb} -iup_callbacks.change = {"CHANGE_CB", iup_colorbrowser_change_cb} - -iup_callbacks.drag_cb = iup_callbacks.drag -iup_callbacks.change_cb = iup_callbacks.change -IUPCELLS = {parent = WIDGET} - -function IUPCELLS:CreateIUPelement( obj ) - return iupCreateCells() -end - -function IUPCELLS:redraw() - self.repaint = IUP_YES -end - -function iupcells(o) - return IUPCELLS:Constructor(o) -end -iup.cells = iupcells - - --- iup_callbacks.draw_cb = iup_callbacks.draw = {"DRAW_CB", iup_mat_draw_cb} -- same callback at IupMatrix - -iup_callbacks.mouseclick = {"MOUSECLICK_CB", iup_cells_mouseclick_cb} -iup_callbacks.mousemotion = {"MOUSEMOTION_CB", iup_cells_mousemotion_cb} -iup_callbacks.scrolling = {"SCROLLING_CB", iup_cells_scrolling_cb} -iup_callbacks.width = {"WIDTH_CB", iup_cells_width_cb} -iup_callbacks.height = {"HEIGHT_CB", iup_cells_height_cb} -iup_callbacks.nlines = {"NLINES_CB", iup_cells_nlines_cb} -iup_callbacks.ncols = {"NCOLS_CB", iup_cells_ncols_cb} -iup_callbacks.hspan = {"HSPAN_CB", iup_cells_hspan_cb} -iup_callbacks.vspan = {"VSPAN_CB", iup_cells_vspan_cb} - -iup_callbacks.mouseclick_cb = iup_callbacks.mouseclick -iup_callbacks.mousemotion_cb = iup_callbacks.mousemotion -iup_callbacks.scrolling_cb = iup_callbacks.scrolling -iup_callbacks.width_cb = iup_callbacks.width -iup_callbacks.height_cb = iup_callbacks.height -iup_callbacks.nlines_cb = iup_callbacks.nlines -iup_callbacks.ncols_cb = iup_callbacks.ncols -iup_callbacks.hspan_cb = iup_callbacks.hspan -iup_callbacks.vspan_cb = iup_callbacks.vspan -IUPCOLORBAR = {parent = WIDGET} - -function IUPCOLORBAR:CreateIUPelement(obj) - return iupCreateColorbar(obj) -end - -function iupcolorbar (o) - return IUPCOLORBAR:Constructor (o) -end -iup.colorbar = iupcolorbar - - -iup_callbacks.cellcb = {"CELL_CB", iup_colorbar_cell_cb} -iup_callbacks.selectcb = {"SELECT_CB", iup_colorbar_select_cb} -iup_callbacks.switchcb = {"SWITCH_CB", iup_colorbar_switch_cb} -iup_callbacks.extendedcb = {"EXTENDED_CB", iup_colorbar_extended_cb} - -iup_callbacks.cell_cb = iup_callbacks.cellcb -iup_callbacks.select_cb = iup_callbacks.selectcb -iup_callbacks.switch_cb = iup_callbacks.switchcb -iup_callbacks.extended_cb = iup_callbacks.extendedcb -IUPDIAL = {parent = WIDGET} - -function IUPDIAL:CreateIUPelement (obj) - return iupCreateDial (obj[1]) -end - -function iupdial (o) - return IUPDIAL:Constructor (o) -end -iup.dial = iupdial - -iup_callbacks.mousemove.dial = iup_val_mousemove_cb -- same callback at IupVal - --- iup_callbacks.buttonpress = {"BUTTON_PRESS_CB", iup_val_button_press_cb} -- same callback at IupVal --- iup_callbacks.buttonrelease = {"BUTTON_RELEASE_CB", iup_val_button_release_cb} -- same callback at IupVal -IUPGAUGE = {parent = WIDGET} - -function IUPGAUGE:CreateIUPelement (obj) - return iupCreateGauge () -end - -function iupgauge (o) - return IUPGAUGE:Constructor (o) -end -iup.gauge = iupgauge -IUPMATRIX = {parent = WIDGET} - -function IUPMATRIX:CreateIUPelement (obj) - return iupCreateMatrix () -end - -function IUPMATRIX:setcell(l,c,val) - IupSetAttribute(self,l..":"..c,val) -end - -function IUPMATRIX:getcell(l,c,val) - return IupGetAttribute(self,l..":"..c) -end - -function iupmatrix (o) - return IUPMATRIX:Constructor (o) -end -iup.matrix = iupmatrix - - -iup_callbacks.actioncb.matrix = iup_mat_action_cb -iup_callbacks.mousemove.matrix = iup_mat_mousemove_cb - -iup_callbacks.edition = {"EDITION_CB", iup_mat_edition_cb} -iup_callbacks.drop = {"DROP_CB", iup_mat_drop_cb} -iup_callbacks.dropselect = {"DROPSELECT_CB", iup_mat_dropselect_cb} -iup_callbacks.enteritem = {"ENTERITEM_CB", iup_mat_enteritem_cb} -iup_callbacks.leaveitem = {"LEAVEITEM_CB", iup_mat_leaveitem_cb} -iup_callbacks.click = {"CLICK_CB", iup_mat_click_cb} -iup_callbacks.scrolltop = {"SCROLLTOP_CB", iup_mat_scrolltop_cb} -iup_callbacks.valuecb = {"VALUE_CB", iup_mat_value_cb} -iup_callbacks.draw = {"DRAW_CB", iup_mat_draw_cb} -iup_callbacks.dropcheck = {"DROPCHECK_CB", iup_mat_dropcheck_cb} -iup_callbacks.fgcolorcb = {"FGCOLOR_CB", iup_mat_fgcolor_cb} -iup_callbacks.bgcolorcb = {"BGCOLOR_CB", iup_mat_bgcolor_cb} -iup_callbacks.value_edit = {"VALUE_EDIT_CB", iup_mat_value_edit_cb} -iup_callbacks.markedit_cb = {"MARKEDIT_CB", iup_mat_markedit_cb} -iup_callbacks.mark_cb = {"MARK_CB", iup_mat_mark_cb} -iup_callbacks.mouse_cb = {"MOUSE_CB", iup_mat_mouse_cb} - -iup_callbacks.edition_cb = iup_callbacks.edition -iup_callbacks.drop_cb = iup_callbacks.drop -iup_callbacks.dropselect_cb = iup_callbacks.dropselect -iup_callbacks.enteritem_cb = iup_callbacks.enteritem -iup_callbacks.leaveitem_cb = iup_callbacks.leaveitem -iup_callbacks.click_cb = iup_callbacks.click -iup_callbacks.scrolltop_cb = iup_callbacks.scrolltop -iup_callbacks.value_cb = iup_callbacks.valuecb -iup_callbacks.draw_cb = iup_callbacks.draw -iup_callbacks.dropcheck_cb = iup_callbacks.dropcheck -iup_callbacks.fgcolor_cb = iup_callbacks.fgcolorcb -iup_callbacks.bgcolor_cb = iup_callbacks.bgcolorcb -iup_callbacks.value_edit_cb = iup_callbacks.value_edit -IUPPPLOT = {parent = WIDGET} - -function IUPPPLOT:CreateIUPelement (obj) - return iupCreatePPlot () -end - -function iuppplot (o) - return IUPPPLOT:Constructor (o) -end -iup.pplot = iuppplot - -iup_callbacks.edit_cb.pplot = iup_pplot_edit_cb - -iup_callbacks.editbegin_cb = {"EDITBEGIN_CB", iup_pplot_editbegin_cb} -iup_callbacks.editend_cb = {"EDITEND_CB", iup_pplot_editend_cb} -iup_callbacks.select_cb = {"SELECT_CB", iup_pplot_select_cb} -iup_callbacks.selectbegin_cb = {"SELECTBEGIN_CB", iup_pplot_selectbegin_cb} -iup_callbacks.selectend_cb = {"SELECTEND_CB", iup_pplot_selectend_cb} -iup_callbacks.delete_cb = {"DELETE_CB", iup_pplot_delete_cb} -iup_callbacks.deletebegin_cb = {"DELETEBEGIN_CB", iup_pplot_deletebegin_cb} -iup_callbacks.deleteend_cb = {"DELETEEND_CB", iup_pplot_deleteend_cb} -iup_callbacks.predraw_cb = {"PREDRAW_CB", iup_pplot_predraw_cb} -iup_callbacks.postdraw_cb = {"POSTDRAW_CB", iup_pplot_postdraw_cb} -IUPSBOX = {parent = WIDGET} - -function IUPSBOX:CreateIUPelement (obj) - return iupCreateSbox(obj[1]) -end - -function iupsbox (o) - return IUPSBOX:Constructor (o) -end -iup.sbox = iupsbox -IUPSPIN = {parent = WIDGET} - -function IUPSPIN:CreateIUPelement (obj) - return iupCreateSpin () -end - -function iupspin (o) - return IUPSPIN:Constructor (o) -end -iup.spin = iupspin - -IUPSPINBOX = {parent = WIDGET} - -function IUPSPINBOX:CreateIUPelement (obj) - return iupCreateSpinbox (obj[1]) -end - -function iupspinbox (o) - return IUPSPINBOX:Constructor (o) -end -iup.spinbox = iupspinbox - -iup_callbacks.spincb = {"SPIN_CB", iup_spin_cb} -iup_callbacks.spin_cb = iup_callbacks.spincb -IUPTABS = {parent = WIDGET} - -function IUPTABS:CreateIUPelement (obj) - return iupCreateTabs (obj, getn(obj)) -end - -function iuptabs (o) - return IUPTABS:Constructor (o) -end -iup.tabs = iuptabs - -iup_callbacks.tabchange = {"TABCHANGE_CB", iup_tabchange_cb} -iup_callbacks.tabchange_cb = iup_callbacks.tabchangeIUPTREE = {parent = WIDGET} -IUPTREEREFERENCETABLE = {} -- Used in C, see luatree.c - -function IUPTREE:CreateIUPelement (obj) - return iupCreateTree () -end - -function iuptree (o) - return IUPTREE:Constructor (o) -end -iup.tree = iuptree - -function TreeSetValueRec(handle, t, id) - - if t == nil then return end - - local cont = getn(t) - - while cont >= 0 do - if type (t[cont]) == "table" then - if t[cont].branchname ~= nil then - IupSetAttribute(handle, "ADDBRANCH"..id, t[cont].branchname) - else - IupSetAttribute(handle, "ADDBRANCH"..id, "") - end - TreeSetValueRec(handle, t[cont], id+1) - else - if t[cont] then - IupSetAttribute(handle, "ADDLEAF"..id, t[cont]) - end - end - cont = cont - 1 - end -end - -function TreeSetValue(handle, t) - if type(t) ~= "table" then - IupMessage("TreeLua Error", "Incorrect arguments to function TreeSetValue") - return - end - if t.branchname ~= nil then - IupSetAttribute(handle, "NAME", t.branchname) - end - TreeSetValueRec(handle, t, 0) -end -iup.TreeSetValue = TreeSetValue - -iup_callbacks.selection = {"SELECTION_CB", iup_tree_selection_cb} -iup_callbacks.multiselection = {"MULTISELECTION_CB", iup_tree_multiselection_cb} -iup_callbacks.branchopen = {"BRANCHOPEN_CB", iup_tree_branchopen_cb} -iup_callbacks.branchclose = {"BRANCHCLOSE_CB", iup_tree_branchclose_cb} -iup_callbacks.executeleaf = {"EXECUTELEAF_CB", iup_tree_executeleaf_cb} -iup_callbacks.renamenode = {"RENAMENODE_CB", iup_tree_renamenode_cb} -iup_callbacks.renamecb = {"RENAME_CB", iup_tree_renamecb_cb} -iup_callbacks.showrenamecb = {"SHOWRENAME_CB", iup_tree_showrenamecb_cb} -iup_callbacks.rightclick = {"RIGHTCLICK_CB", iup_tree_rightclick_cb} -iup_callbacks.dragdrop = {"DRAGDROP_CB", iup_tree_dragdrop_cb} - -iup_callbacks.selection_cb = iup_callbacks.selection -iup_callbacks.multiselection_cb = iup_callbacks.multiselection -iup_callbacks.branchopen_cb = iup_callbacks.branchopen -iup_callbacks.branchclose_cb = iup_callbacks.branchclose -iup_callbacks.executeleaf_cb = iup_callbacks.executeleaf -iup_callbacks.renamenode_cb = iup_callbacks.renamenode -iup_callbacks.rename_cb = iup_callbacks.renamecb -iup_callbacks.showrename_cb = iup_callbacks.showrenamecb -iup_callbacks.rightclick_cb = iup_callbacks.rightclick -iup_callbacks.dragdrop_cb = iup_callbacks.dragdrop -IUPVAL = {parent = WIDGET} - -function IUPVAL:CreateIUPelement (obj) - return iupCreateVal (obj[1]) -end - -function iupval (o) - return IUPVAL:Constructor (o) -end -iup.val = iupval - - --- must set here because it is also used elsewhere with a different signature -iup_callbacks.mousemove = {"MOUSEMOVE_CB", nil} -iup_callbacks.mousemove_cb = iup_callbacks.mousemove -iup_callbacks.mousemove.val = iup_val_mousemove_cb - -iup_callbacks.buttonpress = {"BUTTON_PRESS_CB", iup_val_button_press_cb} -iup_callbacks.buttonrelease = {"BUTTON_RELEASE_CB", iup_val_button_release_cb} - -iup_callbacks.button_press_cb = iup_callbacks.buttonpress -iup_callbacks.button_release_cb = iup_callbacks.buttonrelease ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iuplua3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "iuplua.c", "iuplua_api.c", "iuplua_widgets.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "../src", "$(LUA3)/include" } -package.defines = {"IUPLUA_USELOH"} - --- SRCLUA = iuplua.lua - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluacontrols3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "luaval.c", "luadial.c", "luagauge.c", "luagc.c", "luacbox.c", "luacells.c", - "luacb.c", "luatabs.c", "luamask.c", "luacontrols.c", "luagetparam.c", - "luamatrix.c", "luatree.c", "luasbox.c", "luaspin.c", "luacolorbar.c" -} -fixPackagePath(package.files) - --- SRCLUA = luaval.lua luadial.lua luagauge.lua luacb.lua luatabs.lua luamatrix.lua luatree.lua luasbox.lua luaspin.lua luacells.lua - -package.includepaths = { "../include", "$(CD)/include", "$(LUA3)/include" } -package.defines = {"IUPLUA_USELOH"} - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iuplua_pplot3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "luapplot.c" -} -fixPackagePath(package.files) - --- SRCLUA = luapplot.lua - -package.includepaths = { "../include", "$(CD)/include", "$(LUA3)/include" } -package.defines = {"IUPLUA_USELOH"} - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluagl3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "luaglcanvas.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(LUA3)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluaim3" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "luaim.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(LUA3)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iuplua3exe" -package.target = "iuplua3" -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "exe" -package.linkflags = { "static-runtime" } - -package.files = -{ - "iupluaexe.c" -} -fixPackagePath(package.files) - --- SRCLUA = console.lua - -package.includepaths = { "../include", "$(LUA3)/include", "$(CD)/include", "$(IM)/include" } -package.defines = {"IUPLUA_USELOH"} -package.links = { "imlua3", "cdluaiup3", "cdlua3", - "iupluagl3", "iupluaim3", "iupluacontrols3", "iuplua3", - "lualib", "lua", - "iupgl", "iupim", "iupcontrols", - "cdiup", "cd", "iup", "im" } -package.libpaths = { "../lib", "$(IM)/lib", "$(CD)/lib", "$(LUA3)/lib" } - -if (options.os == "windows") then - tinsert(package.links, { "comctl32", "ole32", "opengl32", "glu32", "glaux" }) -else - tinsert(package.links, { "GLU", "GL", "Xm", "Xpm", "Xmu", "Xt", "Xext", "X11", "m" }) - tinsert(package.libpaths, { "/usr/X11R6/lib" }) -end - ---------------------------------------------------------------------- ------------------------------------------------------------------------------- --- Button class ------------------------------------------------------------------------------- -local ctrl = { - nick = "button", - parent = WIDGET, - creation = "S-", - callback = { - action = "", - } -} - -function ctrl.createElement(class, arg) - return Button(arg.title) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Canvas class ------------------------------------------------------------------------------- -local ctrl = { - nick = "canvas", - parent = WIDGET, - creation = "-", - callback = { - action = "ff", - button_cb = "nnnns", - enterwindow_cb = "", - leavewindow_cb = "", - motion_cb = "nns", - resize_cb = "nn", - scroll_cb = "nff", - keypress_cb = "nn", - wom_cb = "n", - wheel_cb = "fnns", - mdiactivate_cb = "", - focus_cb = "n", - } -} - -function ctrl.createElement(class, arg) - return Canvas() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Cbox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "cbox", - parent = WIDGET, - creation = "v", - callback = {}, - include = "iupcbox.h", - funcname = "Cboxv", - createfunc = [[ -static int Cboxv(lua_State *L) -{ - Ihandle **hlist = iuplua_checkihandle_array(L, 1); - Ihandle *h = IupCboxv(hlist); - iuplua_plugstate(L, h); - iuplua_pushihandle_raw(L, h); - free(hlist); - return 1; -} - ]], -} - -function ctrl.createElement(class, arg) - return Cboxv(arg) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Cells class ------------------------------------------------------------------------------- -local ctrl = { - nick = "cells", - parent = WIDGET, - creation = "", - callback = { - mouseclick_cb = "nnnnnns", - mousemotion_cb = "nnnns", - scrolling_cb = "nn", --- draw_cb = "nnnnnnn", -- already registered by the matrix - width_cb = "n", - height_cb = "n", - nlines_cb = "", - ncols_cb = "", - hspan_cb = "nn", - vspan_cb = "nn", - }, - include = "iupcells.h" -} - -function ctrl.redraw(handle) - handle.repaint = "YES" -end - -function ctrl.createElement(class, arg) - return Cells() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Colorbar class ------------------------------------------------------------------------------- -local ctrl = { - nick = "colorbar", - parent = WIDGET, - creation = "", - callback = { - select_cb = "nn", - cell_cb = {"n", ret = "s"}, - switch_cb = "nn", - extended_cb = "n", - }, - funcname = "Colorbar", - include = "iupcolorbar.h", -} - -function ctrl.createElement(class, arg) - return Colorbar(arg.action) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- ColorBrowser class ------------------------------------------------------------------------------- -local ctrl = { - nick = "colorbrowser", - parent = WIDGET, - creation = "", - callback = { - drag_cb = "ccc", - change_cb = "ccc", - }, - funcname = "ColorBrowser", - include = "iupcb.h", -} - -function ctrl.createElement(class, arg) - return ColorBrowser(arg.action) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- ColorDlg class ------------------------------------------------------------------------------- -local ctrl = { - nick = "colordlg", - parent = WIDGET, - creation = "", - funcname = "ColorDlg", - callback = {} -} - -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -function ctrl.createElement(class, arg) - return ColorDlg() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") - --- Utilities -iupluacmd = {} - -function iupluacmd.printtable(t) - local n,v = next(t, nil) - print("--printtable Start--") - while n ~= nil do - print(tostring(n).."="..tostring(v)) - n,v = next(t, n) - end - print("--printtable End--") -end - -function iupluacmd.print_version_info() - print(_VERSION .. " " .. _COPYRIGHT) - if (im) then print("IM " .. im._VERSION .. " " .. im._COPYRIGHT) end - if (cd) then print("CD " .. cd._VERSION .. " " .. cd._COPYRIGHT) end - print("IUP " .. iup._VERSION .. " " .. iup._COPYRIGHT) - print("") - print("IUP Info") - print(" System: " .. iup.GetGlobal("SYSTEM")) - print(" System Version: " .. iup.GetGlobal("SYSTEMVERSION")) - local mot = iup.GetGlobal("MOTIFVERSION") - if (mot) then print(" Motif Version: ", mot) end - print(" Screen Size: " .. iup.GetGlobal("SCREENSIZE")) - print(" Screen Depth: " .. iup.GetGlobal("SCREENDEPTH")) - if (iup.GL_VENDOR) then print(" OpenGL Vendor: " .. iup.GL_VENDOR) end - if (iup.GL_RENDERER) then print(" OpenGL Renderer: " .. iup.GL_RENDERER) end - if (iup.GL_VERSION) then print(" OpenGL Version: " .. iup.GL_VERSION) end -end - --- IUPLUA Full Application - -iupluacmd.lastfilename = nil -- Last file open -iupluacmd.mlCode = iup.multiline{expand="YES", size="200x120", font="COURIER_NORMAL_10"} -iupluacmd.lblPosition = iup.label{title="0:0", size="50x"} -iupluacmd.lblFileName = iup.label{title="", size="50x", expand="HORIZONTAL"} - -function iupluacmd.mlCode:caret_cb(lin, col) - iupluacmd.lblPosition.title = lin..":"..col -end - -iupluacmd.butExecute = iup.button{size="50x15", title="Execute", - action="iup.dostring(iupluacmd.mlCode.value)"} -iupluacmd.butClearCommands = iup.button{size="50x15", title="Clear", - action="iupluacmd.mlCode.value='' iupluacmd.lblFileName.title = '' iupluacmd.lastfilename = nil"} -iupluacmd.butLoadFile = iup.button{size="50x15", title="Load..."} -iupluacmd.butSaveasFile = iup.button{size="50x15", title="Save As..."} -iupluacmd.butSaveFile = iup.button{size="50x15", title="Save"} - -iupluacmd.butSaveFile.action = function() - if (iupluacmd.lastfilename == nil) then - iupluacmd.butSaveasFile:action() - else - newfile = io.open(iupluacmd.lastfilename, "w+") - if (newfile ~= nil) then - newfile:write(iupluacmd.mlCode.value) - newfile:close() - else - error ("Cannot Save file "..filename) - end - end -end - -iupluacmd.butSaveasFile.action = function() - local fd = iup.filedlg{dialogtype="SAVE", title="Save File", - filter="*.lua", filterinfo="Lua files",allownew=yes} - fd:popup(iup.LEFT, iup.LEFT) - local status = fd.status - iupluacmd.lastfilename = fd.value - iupluacmd.lblFileName.title = iupluacmd.lastfilename - fd:destroy() - if status ~= "-1" then - if (iupluacmd.lastfilename == nil) then - error ("Cannot Save file "..filename) - end - local newfile=io.open(iupluacmd.lastfilename, "w+") - if (newfile ~= nil) then - newfile:write(iupluacmd.mlCode.value) - newfile:close(newfile) - else - error ("Cannot Save file") - end - end -end - -iupluacmd.butLoadFile.action = function () - local fd=iup.filedlg{dialogtype="OPEN", title="Load File", - filter="*.lua", filterinfo="Lua Files", allownew="NO"} - fd:popup(iup.CENTER, iup.CENTER) - local status = fd.status - local filename = fd.value - fd:destroy() - if (status == "-1") or (status == "1") then - if (status == "1") then - error ("Cannot load file "..filename) - end - else - local newfile = io.open (filename, "r") - if (newfile == nil) then - error ("Cannot load file "..filename) - else - iupluacmd.mlCode.value=newfile:read("*a") - newfile:close (newfile) - iupluacmd.lastfilename = filename - iupluacmd.lblFileName.title = iupluacmd.lastfilename - end - end -end - -iupluacmd.vbxConsole = iup.vbox -{ - iup.frame{iup.hbox{iup.vbox{iupluacmd.butLoadFile, - iupluacmd.butSaveFile, - iupluacmd.butSaveasFile, - iupluacmd.butClearCommands, - iupluacmd.butExecute; - margin="0x0", gap="10"}, - iup.vbox{iupluacmd.lblFileName, - iupluacmd.mlCode, - iupluacmd.lblPosition; - alignment = "ARIGHT"}; - alignment="ATOP"}; title="Commands"} - ;alignment="ACENTER", margin="5x5", gap="5" -} - --- Main Menu Definition. - -iupluacmd.mnuMain = iup.menu -{ - iup.submenu - { - iup.menu - { - iup.item{title="Exit", action="return iup.CLOSE"} - }; title="File" - }, - iup.submenu{iup.menu - { - iup.item{title="Print Version Info...", action=iupluacmd.print_version_info}, - iup.item{title="About...", action="iupluacmd.dlgAbout:popup(iup.CENTER, iup.CENTER)"} - };title="Help"} -} - --- Main Dialog Definition. - -iupluacmd.dlgMain = iup.dialog{iupluacmd.vbxConsole; - title="IupLua Console", - menu=iupluacmd.mnuMain, - defaultenter=iupluacmd.butExecute, - close_cb = "return iup.CLOSE"} - --- About Dialog Definition. - -iupluacmd.dlgAbout = iup.dialog -{ - iup.vbox - { - iup.label{title="IupLua5 Console"}, - iup.fill{size="5"}, - iup.fill{size="5"}, - iup.frame - { - iup.vbox - { - iup.label{title="Tecgraf/PUC-Rio"}, - iup.label{title="iup@tecgraf.puc-rio.br"} - } - }, - iup.fill{size="5"}, - iup.button{title="OK", action="return iup.CLOSE", size="50X20"} - ;margin="10x10", alignment="ACENTER" - } - ;maxbox="NO", minbox="NO", resize="NO", title="About" -} - --- Displays the Main Dialog - -iupluacmd.dlgMain:show() -iup.SetFocus(iupluacmd.mlCode) - -iup.MainLoop() - -iupluacmd.dlgMain:destroy() -iupluacmd.dlgAbout:destroy() ----------------------------------------------------------------------------- --- Callback return values ----------------------------------------------------------------------------- -IGNORE = -1 -DEFAULT = -2 -CLOSE = -3 -CONTINUE = -4 - ----------------------------------------------------------------------------- --- IupPopup e IupShowXY ----------------------------------------------------------------------------- -CENTER = 65535 -LEFT = 65534 -RIGHT = 65533 -MOUSEPOS = 65532 -CURRENT = 65531 -CENTERPARENT = 65530 -TOP = LEFT -BOTTOM = RIGHT -ANYWHERE = CURRENT - ----------------------------------------------------------------------------- --- Scrollbar ----------------------------------------------------------------------------- -SBUP = 0 -SBDN = 1 -SBPGUP = 2 -SBPGDN = 3 -SBPOSV = 4 -SBDRAGV = 5 -SBLEFT = 6 -SBRIGHT = 7 -SBPGLEFT = 8 -SBPGRIGHT = 9 -SBPOSH = 10 -SBDRAGH = 11 - ----------------------------------------------------------------------------- --- SHOW_CB ----------------------------------------------------------------------------- -SHOW = 0 -RESTORE = 1 -MINIMIZE = 2 -MAXIMIZE = 3 -HIDE = 4 - ----------------------------------------------------------------------------- --- BUTTON_CB ----------------------------------------------------------------------------- -BUTTON1 = string.byte('1') -BUTTON2 = string.byte('2') -BUTTON3 = string.byte('3') -BUTTON4 = string.byte('4') -BUTTON5 = string.byte('5') - ----------------------------------------------------------------------------- --- IupOpen ----------------------------------------------------------------------------- -ERROR = 1 -NOERROR = 0 -OPENED = -1 -INVALID = -1 ------------------------------------------------------------------------------- --- Template to create control classes for IupLua5 --- The Lua module is used by the "generator.lua" to build a C module, --- and loaded during iuplua_open to initialize the control. ------------------------------------------------------------------------------- -local ctrl = { - nick = "mycontrol", -- name of the control, used in the control creation: iup.mycontrol{} - -- also used for the generated C module - parent = WIDGET, -- used to define a few methods used fro creation and set attribute - creation = "nn", -- the creation parameters in Lua - -- "n" = int - -- "d" = double - -- "s" = char* - -- "S" = optional char*, can be nil - -- "i" = Ihandle* - -- "-" = NULL, no parameters in Lua, but a NULL parameter in C - -- "a" = char* array in a table - -- "t" = int array in a table - -- "v" = Ihandle* array in a table - - funcname = "myControl", -- [optional] name of the function used in C - -- default is ctrl.nick with first letter uppercase - - callback = { -- partial list of callbacks - -- only the callbacks that are not already defined by other controls needs to be defined - action = "ff", - button_cb = "nnnns", - enterwindow_cb = "", - leavewindow_cb = "", - motion_cb = "nns", - resize_cb = "nn", - scroll_cb = "nff", - keypress_cb = "nn", - wom_cb = "n", - wheel_cb = "fnns", - mdiactivate_cb = "", - focus_cb = "n", - value_cb = {"nn", ret = "s"}, -- ret is return type, default is n ("int") - - -- the following types can be used for callback parameters: - -- n = "int", - -- s = "char *", - -- i = "Ihandle *", - -- c = "unsigned char ", - -- d = "double", - -- f = "float", - -- v = "Ihandle **", - -- - -- Other parameters must be implemented in C using the extrafuncs module - - -- IMPORTANT: callbacks with the same name in different controls - -- are assumed to have the same parameters, that's why they are defined only once - -- When callbacks conflict using the same name, but different parameters - -- generator.lua must be edited to include the callback in the list of conflicting callbacks - -- "action" is a common callback that conflicts - -- In the callback list, just declare the callback with the parameters used in that control. - } - - include = "iupmycontrol.h", -- [optional] header to be included, it is where the creation function is declared. - extrafuncs = 1, -- [optional] additional module in C called by the initialization function - - createfunc = [[ -- [optional] creation function in C, - -- used if creation parameters needs some interpretation in C - -- not to be used together with funcname -#include<stdlib.h> -static int myControl (lua_State * L) -{ - xxxx; - yyyy; - return 1; -} -]] - - extracode = [[ -- [optional] extra fucntions to be defined in C. -int luaopen_iupluamycontrol51(lua_State* L) -{ - return iupmycontrollua_open(L); -} -]] - -} - --- must be defined so the WIDGET constructor can call it -function ctrl.createElement(class, arg) - return myControl() -end - --- here you can add some custom methods to the class -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -iupRegisterWidget(ctrl) -- will make iup.mycontrol available -iupSetClass(ctrl, "iup widget") -- register the class in the registry ------------------------------------------------------------------------------- --- Dial class ------------------------------------------------------------------------------- -local ctrl = { - nick = "dial", - parent = WIDGET, - creation = "s", - callback = { - mousemove_cb = "d", -- already registered by the val, but has a name conflict --- button_press_cb = "d", -- already registered by the val --- button_release_cb = "d", -- already registered by the val - }, - include = "iupdial.h", -} - -function ctrl.createElement(class, arg) - return Dial(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Dialog class ------------------------------------------------------------------------------- -local ctrl = { - nick = "dialog", - parent = WIDGET, - creation = "i", - callback = { - map_cb = "", - close_cb = "", - show_cb = "n", - trayclick_cb = "nnn", - dropfiles_cb = "snnn", - } -} - -function ctrl.createElement(class, arg) - return Dialog(arg[1]) -end - -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -function ctrl.showxy(handle, x, y) - return ShowXY(handle, x, y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- FileDlg class ------------------------------------------------------------------------------- -local ctrl = { - nick = "filedlg", - parent = WIDGET, - creation = "", - callback = { - file_cb = "ss", - }, - funcname = "FileDlg" -} - -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -function ctrl.createElement(class, arg) - return FileDlg() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") - ------------------------------------------------------------------------------- --- Fill class ------------------------------------------------------------------------------- -local ctrl = { - nick = "fill", - parent = WIDGET, - creation = "", - callback = {} -} - -function ctrl.createElement(class, arg) - return Fill() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- FontDlg class ------------------------------------------------------------------------------- -local ctrl = { - nick = "fontdlg", - parent = WIDGET, - creation = "", - funcname = "FontDlg", - callback = {} -} - -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -function ctrl.createElement(class, arg) - return FontDlg() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") - ------------------------------------------------------------------------------- --- Frame class ------------------------------------------------------------------------------- -local ctrl = { - nick = "frame", - parent = WIDGET, - creation = "i", - callback = {} -} - -function ctrl.createElement(class, arg) - return Frame(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Gauge class ------------------------------------------------------------------------------- -local ctrl = { - nick = "gauge", - parent = WIDGET, - creation = "", - callback = {}, - include = "iupgauge.h", -} - -function ctrl.createElement(class, arg) - return Gauge(arg.action) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") - -function dofile(f) - pcall(loadfile(f)) -end - --- compatibility functions (with iuplua.lua) -function iupSetClass(ctrl, name) - element = ctrl -end - --- dummy functions -iupluaNewClass = function() end -iupSetMethod = iupluaNewClass -iupRegisterWidget = iupluaNewClass - -c_types = { - n = "int", - s = "char *", - i = "Ihandle *", - c = "unsigned char ", - d = "double", - f = "float", - v = "Ihandle **", -} - --- Adjust the callbacks table -function adjustcallbacktable(c) - d = {} - for i,j in pairs(c) do - if type(j) == "string" then - d[i] = { j, "IUP_".. string.upper(i)} - elseif type(j) == "table" then - d[i] = j - else - print("ERROR IN CALLBACK TABLE FORMAT") - end - end - return d -end - - -function header(o,i) - io.write [[ -/****************************************************************************** - * Automatically generated file (iuplua5). Please don't change anything. * - *****************************************************************************/ - -#include <stdlib.h> - -#include <lua.h> -#include <lauxlib.h> - -#include <iup.h> -#include <iuplua.h> -]] - if i then io.write("#include <",i,">\n") end - io.write('#include "il.h"\n\n\n') -end - -function firstupper(name) - return string.upper(string.sub(name,1,1)) .. string.sub(name,2,-1) -end - -function write_creation(o, t) - local aux = {n = 1} - local u = firstupper(o) - local v = t.creation - local c = t.callback - if t.funcname then - u = t.funcname - end - io.write ("static int ",u,"(lua_State *L)\n") - io.write ("{\n") - if t.rettype == nil then io.write(" Ihandle *ih = Iup",u,"(") - elseif t.rettype == "n" then io.write(" int n = (Iup",u,"(") - elseif t.rettype == "s" then io.write(" char *s = (Iup",u,"(") - end - local max = string.len(v) - string.gsub(v, "(.)", function(p) - if p == "n" then io.write("luaL_checkint(L, ",aux.n,")") - elseif p == "d" then io.write("luaL_number(L, ",aux.n,")") - elseif p == "s" then io.write("(char *) luaL_checkstring(L, ",aux.n,")") - elseif p == "S" then io.write("(char *) luaL_optstring(L, ",aux.n,', NULL)') - elseif p == "i" then io.write("iuplua_checkihandle(L, ",aux.n,")") - elseif p == "-" then io.write("NULL") - elseif p == "a" then io.write("iuplua_checkstring_array(L, ",aux.n,")") - elseif p == "t" then io.write("iuplua_checkint_array(L, ",aux.n,")") - elseif p == "v" then io.write("iuplua_checkihandle_array(L, ",aux.n,")") - else io.write("FORMAT '", p, "' NOT SUPPORTED\n") - end - if aux.n < max then io.write(", ") end - aux.n = aux.n + 1 - end) - io.write(");\n") - - io.write(" iuplua_plugstate(L, ih);\n") - io.write(" iuplua_pushihandle_raw(L, ih);\n") - io.write(" return 1;\n") - io.write("}\n\n") -end - -function write_callbacks(o, c) - local aux = { } - for i,v in pairs(c) do - local s = v[1] - local max = string.len(s) - aux.n = 0 - io.write("static ") - if v.ret ~= nil then - if v.ret == "s" then - io.write("char * ") - end - else - io.write("int ") - end - io.write(o, "_", i, "(Ihandle *self") - if max > 0 then io.write(", ") end - string.gsub(s, "(.)", function(p) - io.write(c_types[p], " p", aux.n) - aux.n = aux.n + 1 - if aux.n < max then io.write(", ") end - end) - io.write(")\n{\n") - io.write(' lua_State *L = iuplua_call_start(self, "', i, '");') - aux.n = 0 - string.gsub(s, "(.)", function(p) - if p == "n" or p == "f" or p == "d" or p == "c" then - io.write("\n lua_pushnumber(L, p"..aux.n..");") - elseif p == "s" then - io.write("\n lua_pushstring(L, p"..aux.n..");") - elseif p == "i" then - io.write("\n iuplua_pushihandle(L, p"..aux.n..");") - else - io.write("\n ERROR !! ") - end - aux.n = aux.n + 1 - end) - if v.ret ~= nil and v.ret == "s" then - io.write("\n return iuplua_call_rs(L, " .. max .. ");") - else - io.write("\n return iuplua_call(L, " .. max .. ");") - end - io.write("\n}\n\n") - end -end - -function write_initialization(o,t) - local aux= {n=1} - local c = t.callback - local u = firstupper(o) - if t.extrafuncs then - io.write('void iuplua_', o,'funcs_open(lua_State *L);\n\n') - end - if t.openfuncname then - io.write("void ", t.openfuncname, "(lua_State * L)\n") - else - io.write("int iup", o,"lua_open(lua_State * L)\n") - end - io.write("{\n") - io.write(" iuplua_register(L, ") - if t.funcname then - u = t.funcname - end - io.write(u, ', "', u,'");\n\n') - - for i,v in pairs(c) do - local type = "NULL" - if i == "action" or - i == "action_cb" or - i == "edit_cb" or - i == "mousemove_cb" then - type = '"'..string.lower(o)..'"' - end - io.write(' iuplua_register_cb(L, "',string.upper(i),'", (lua_CFunction)',o,'_',i,', ',type,');\n') - first = 0 - end - io.write('\n') - - if t.extrafuncs then - io.write(' iuplua_', o,'funcs_open(L);\n\n') - end - io.write('#ifdef IUPLUA_USELOH\n') - io.write('#ifdef TEC_BIGENDIAN\n') - io.write('#ifdef TEC_64\n') - io.write('#include "', o,'_be64.loh"\n') - io.write('#else\n') - io.write('#include "', o,'_be32.loh"\n') - io.write('#endif\n') - io.write('#else\n') - io.write('#ifdef TEC_64\n') - io.write('#ifdef WIN64\n') - io.write('#include "', o,'_le64w.loh"\n') - io.write('#else\n') - io.write('#include "', o,'_le64.loh"\n') - io.write('#endif\n') - io.write('#else\n') - io.write('#include "', o,'.loh"\n') - io.write('#endif\n') - io.write('#endif\n') - io.write('#else\n') - io.write(' iuplua_dofile(L, "', o,'.lua");\n') - io.write('#endif\n\n') - io.write(' return 0;\n') - io.write("}\n\n") -end - -dofile(arg[1]) -element.callback = adjustcallbacktable(element.callback) - -io.output(element.nick..".c") -header(element.nick, element.include) -write_callbacks(element.nick, element.callback) -if element.createfunc == nil then - write_creation(element.nick, element) -else - io.write(element.createfunc) -end -write_initialization(element.nick, element) -if element.extracode then - io.write(element.extracode) -end ------------------------------------------------------------------------------- --- GLCanvas class ------------------------------------------------------------------------------- -local ctrl = { - nick = "glcanvas", - parent = WIDGET, - creation = "-", - funcname = "GLCanvas", - include = "iupgl.h", - callback = { - action = "nn", - }, - extrafuncs = 1, - extracode = [[ -int iupgllua_open(lua_State * L) -{ - if (iuplua_opencall_internal(L)) - IupGLCanvasOpen(); - - iuplua_changeEnv(L); - iupglcanvaslua_open(L); - iuplua_returnEnv(L); - return 0; -} - -/* obligatory to use require"iupluagl" */ -int luaopen_iupluagl(lua_State* L) -{ - return iupgllua_open(L); -} - -/* obligatory to use require"iupluagl51" */ -int luaopen_iupluagl51(lua_State* L) -{ - return iupgllua_open(L); -} - -]] -} - -function ctrl.createElement(class, arg) - return GLCanvas() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- HBox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "hbox", - parent = BOX, - creation = "-", - callback = {} -} - -function ctrl.append(handle, elem) - Append(handle, elem) -end - -function ctrl.createElement(class, arg) - return Hbox() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Image class ------------------------------------------------------------------------------- -local ctrl = { - nick = "image", - parent = WIDGET, - creation = "nns", -- fake definition - callback = {}, - createfunc = [[ -#include<stdlib.h> -static int Image (lua_State * L) -{ - int w, h, i, j; - char *img; - Ihandle *image; - - h = luaL_getn(L, 1); - lua_pushnumber(L, 1); - lua_gettable(L, 1); - w = luaL_getn(L, -1); - lua_pop(L, 1); - - img = (char *) malloc (h*w); - - for (i=1; i<=h; i++) - { - lua_pushnumber(L, i); - lua_gettable(L, 1); - for (j=1; j<=w; j++) - { - int idx = (i-1)*w+(j-1); - lua_pushnumber(L, j); - lua_gettable(L, -2); - img[idx] = (char)lua_tonumber(L, -1); - lua_pop(L, 1); - } - lua_pop(L, 1); - } - - image = IupImage(w,h,img); - free(img); - - w = luaL_getn(L, 2); - - for(i=1; i<=w; i++) - { - lua_pushnumber(L,i); - lua_pushnumber(L,i); - lua_gettable(L, 2); - IupStoreAttribute(image, (char *) lua_tostring(L,-2), (char *) lua_tostring(L,-1)); - lua_pop(L, 2); - } - - iuplua_plugstate(L, image); - iuplua_pushihandle_raw(L, image); - return 1; -} - -]] -} - -function ctrl.createElement(class, arg) - return Image(arg, arg.colors) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- ImageRGB class ------------------------------------------------------------------------------- -local ctrl = { - nick = "imagergb", - parent = WIDGET, - creation = "nns", -- fake definition - funcname = "ImageRGB", - callback = {}, - createfunc = [[ -static int ImageRGB(lua_State *L) -{ - int w = luaL_checkint(L, 1); - int h = luaL_checkint(L, 2); - unsigned char *pixels = iuplua_checkuchar_array(L, 3, w*h*3); - Ihandle *ih = IupImageRGB(w, h, pixels); - iuplua_plugstate(L, ih); - iuplua_pushihandle_raw(L, ih); - free(pixels); - return 1; -} - -]] -} - -function ctrl.createElement(class, arg) - return ImageRGB(arg.width, arg.height, arg.pixels) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- ImageRGBA class ------------------------------------------------------------------------------- -local ctrl = { - nick = "imagergba", - parent = WIDGET, - creation = "nns", -- fake definition - funcname = "ImageRGBA", - callback = {}, - createfunc = [[ -static int ImageRGBA(lua_State *L) -{ - int w = luaL_checkint(L, 1); - int h = luaL_checkint(L, 2); - unsigned char *pixels = iuplua_checkuchar_array(L, 3, w*h*4); - Ihandle *ih = IupImageRGBA(w, h, pixels); - iuplua_plugstate(L, ih); - iuplua_pushihandle_raw(L, ih); - free(pixels); - return 1; -} - -]] -} - -function ctrl.createElement(class, arg) - return ImageRGBA(arg.width, arg.height, arg.pixels) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Item class ------------------------------------------------------------------------------- -local ctrl = { - nick = "item", - parent = WIDGET, - creation = "S-", - callback = { - action = "", - highlight_cb = "", - } -} - -function ctrl.createElement(class, arg) - return Item(arg.title) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") --- This file is executed with the "iup" table already as the globalindex - ------------------------------------------------------------------------------- --- Callback handler ------------------------------------------------------------------------------- - -callbacks = {} - -function iupCallMethod(name, ...) - local handle = arg[1] -- always the handle - local func = handle[name] - if (not func) then - return - end - - if type(func) == "function" then - return func(unpack(arg)) - elseif type(func) == "string" then - local temp = self - self = handle - local result = iup.dostring(func) - self = temp - return result - else - return iup.ERROR - end -end - -function RegisterCallback(name, func, type) - if not callbacks[name] then callbacks[name] = {} end - local cb = callbacks[name] - if type then - cb[type] = func - else - cb[1] = func - end -end - ------------------------------------------------------------------------------- --- Meta Methods ------------------------------------------------------------------------------- - - -local widget_gettable = function(object, index) - local p = object - local v - while 1 do - v = rawget(p, index) - if v then return v end - p = rawget(p, "parent") - if not p then return nil end - end -end - -iupNewClass("iup widget") -iupSetMethod("iup widget", "__index", widget_gettable) - - -local ihandle_gettable = function(handle, index) - local INDEX = string.upper(index) - if (callbacks[INDEX]) then - local object = iupGetWidget(handle) - if (not object or type(object)~="table") then error("invalid iup handle") end - return object[index] - else - local value = GetAttribute(handle, INDEX) - if (not value) then - local object = iupGetWidget(handle) - if (not object or type(object)~="table") then error("invalid iup handle") end - return object[index] - elseif type(value)== "number" or type(value) == "string" then - local ih = GetHandle(value) - if ih then return ih - else return value end - else - return value - end - end -end - -local ihandle_settable = function(handle, index, value) - local ti = type(index) - local tv = type(value) - local object = iupGetWidget(handle) - if (not object or type(object)~="table") then error("invalid iup handle") end - if ti == "number" or ti == "string" then -- check if a valid C name - local INDEX = string.upper(index) - local cb = callbacks[INDEX] - if (cb) then -- if a callback name - local func = cb[1] - if (not func) then - func = cb[GetType(handle)] - end - iupSetCallback(handle, INDEX, func, value) -- register the pre-defined C callback - object[index] = value -- store also in Lua - elseif iupGetClass(value) == "iup handle" then -- if a iup handle - local name = ihandle_setname(value) - StoreAttribute(handle, INDEX, name) - object[index] = nil -- if there was something in Lua remove it - elseif tv == "string" or tv == "number" or tv == "nil" then -- if a common value - StoreAttribute(handle, INDEX, value) - object[index] = nil -- if there was somthing in Lua remove it - else - object[index] = value -- store also in Lua - end - else - object[index] = value -- store also in Lua - end -end - -iupNewClass("iup handle") -iupSetMethod("iup handle", "__index", ihandle_gettable) -iupSetMethod("iup handle", "__newindex", ihandle_settable) -iupSetMethod("iup handle", "__tostring", ihandle_tostring) -iupSetMethod("iup handle", "__eq", ihandle_compare) -- implemented in C - - ------------------------------------------------------------------------------- --- Utilities ------------------------------------------------------------------------------- - -function ihandle_setname(v) -- used also by radio and zbox - local name = GetName(v) - if not name then - local autoname = string.format("_IUPLUA_NAME(%s)", tostring(v)) - SetHandle(autoname, v) - return autoname - end - return name -end - -function iupRegisterWidget(ctrl) -- called by all the controls initialization functions - iup[ctrl.nick] = function(arg) - return ctrl:constructor(arg) - end -end - -function RegisterHandle(handle, typename) - - iupSetClass(handle, "iup handle") - - local object = iupGetWidget(handle) - if not object then - - local class = iup[string.upper(typename)] - if not class then - class = WIDGET - end - - local object = { parent=class, handle=handle } - iupSetClass(object, "iup widget") - iupSetWidget(handle, object) - end - - return handle -end - ------------------------------------------------------------------------------- --- Widget class (top class) ------------------------------------------------------------------------------- - -WIDGET = { - callback = {} -} - -function WIDGET.show(object) - Show(object.handle) -end - -function WIDGET.hide(object) - Hide(object.handle) -end - -function WIDGET.map(object) - Map(object.handle) -end - -function WIDGET.constructor(class, arg) - local handle = class:createElement(arg) - local object = { - parent = class, - handle = handle - } - iupSetClass(handle, "iup handle") - iupSetClass(object, "iup widget") - iupSetWidget(handle, object) - object:setAttributes(arg) - return handle -end - -function WIDGET.setAttributes(object, arg) - local handle = object.handle - for i,v in pairs(arg) do - if type(i) == "number" and iupGetClass(v) == "iup handle" then - -- We should not set this or other elements (such as iuptext) - -- will erroneosly inherit it - rawset(object, i, v) - else - -- this will call settable metamethod - handle[i] = v - end - end -end - --- all the objects in the hierarchy must be "iup widget" --- Must repeat this call for every new widget -iupSetClass(WIDGET, "iup widget") - - ------------------------------------------------------------------------------- --- Box class (inherits from WIDGET) ------------------------------------------------------------------------------- - -BOX = { - parent = WIDGET -} - -function BOX.setAttributes(object, arg) - local handle = rawget(object, "handle") - local n = table.getn(arg) - for i = 1, n do - if iupGetClass(arg[i]) == "iup handle" then - Append(handle, arg[i]) - end - end - WIDGET.setAttributes(object, arg) -end - -iupSetClass(BOX, "iup widget") - - ------------------------------------------------------------------------------- --- Compatibility functions. ------------------------------------------------------------------------------- - -error_message_popup = nil - -function _ERRORMESSAGE(err) - if (error_message_popup) then - error_message_popup.value = err - else - local bt = button{title="Ok", size="60", action="error_message_popup = nil; return iup.CLOSE"} - local ml = multiline{expand="YES", readonly="YES", value=err, size="300x150"} - local vb = vbox{ml, bt; alignment="ACENTER", margin="10x10", gap="10"} - local dg = dialog{vb; title="Error Message",defaultesc=bt,defaultenter=bt,startfocus=bt} - error_message_popup = ml - dg:popup(CENTER, CENTER) - dg:destroy() - error_message_popup = nil - end -end - -pack = function (...) return arg end - -function protectedcall_(f, err) - if not f then - _ERRORMESSAGE(err) - return - end - local ret = pack(pcall(f)) - if not ret[1] then - _ERRORMESSAGE(ret[2]) - return - else - table.remove(ret, 1) - return unpack(ret) - end -end - -function dostring(s) return protectedcall_(loadstring(s)) end -function dofile(f) return protectedcall_(loadfile(f)) end - -function RGB(r, g, b) - return string.format("%d %d %d", 255*r, 255*g, 255*b) -end ------------------------------------------------------------------------------- --- Label class ------------------------------------------------------------------------------- -local ctrl = { - nick = "label", - parent = WIDGET, - creation = "S", - callback = {} -} - -function ctrl.createElement(class, arg) - return Label(arg.title) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- List class ------------------------------------------------------------------------------- -local ctrl = { - nick = "list", - parent = WIDGET, - creation = "-", - callback = { - action = "snn", - multiselect_cb = "s", - edit_cb = "ns", - } -} - -function ctrl.createElement(class, arg) - return List() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Matrix class ------------------------------------------------------------------------------- -local ctrl = { - nick = "matrix", - parent = WIDGET, - creation = "-", - callback = { - action_cb = "nnnns", - click_cb = "nns", - release_cb = "nns", - drop_cb = "inn", - dropcheck_cb = "nn", - draw_cb = "nnnnnnn", -- fake definitions to be replaced by matrixfuncs module - dropselect_cb = "nnisnn", - edition_cb = "nnn", - enteritem_cb = "nn", - leaveitem_cb = "nn", - mousemove_cb = "nn", - scrolltop_cb = "nn", - fgcolor_cb = "nn", -- fake definitions to be replaced by matrixfuncs module - bgcolor_cb = "nn", - value_cb = {"nn", ret = "s"}, -- ret is return type - value_edit_cb = "nns", - mark_cb = "nn", - markedit_cb = "nnn", - }, - include = "iupmatrix.h", - extrafuncs = 1, -} - -function ctrl.createElement(class, arg) - return Matrix(arg.action) -end - -function ctrl.setcell(handle, l, c, val) - SetAttribute(handle,l..":"..c,val) -end - -function ctrl.getcell(handle, l, c) - return GetAttribute(handle,l..":"..c) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Menu class ------------------------------------------------------------------------------- -local ctrl = { - nick = "menu", - parent = BOX, - creation = "-", - callback = { - open_cb = "", - menuclose_cb = "", - } -} - -function ctrl.popup(handle, x, y) - Popup(handle, x, y) -end - -function ctrl.append(handle, elem) - Append(handle, elem) -end - -function ctrl.createElement(class, arg) - local n = table.getn(arg) - for i=1,n do - if type(arg[i]) == "table" then - itemarg = {} - for u,v in pairs(arg[i]) do - if type(u) ~= "number" then - itemarg[u] = v - end - end - if type(arg[i][1]) == "string" and (type(arg[i][2]) == "function" or type(arg[i][2]) == "string") then - itemarg.title = arg[i][1] - itemarg.action = arg[i][2] - arg[i] = item(itemarg) - elseif type(arg[i][1]) == "string" and type(arg[i][2]) == "userdata" then - itemarg[1] = arg[i][2] - itemarg.title = arg[i][1] - arg[i] = submenu(itemarg) - end - end - end - return Menu() -end - -function ctrl.showxy(handle, x, y) - return ShowXY(handle, x, y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- MessageDlg class ------------------------------------------------------------------------------- -local ctrl = { - nick = "messagedlg", - parent = WIDGET, - creation = "", - funcname = "MessageDlg", - callback = {} -} - -function ctrl.popup(handle, x, y) - Popup(handle,x,y) -end - -function ctrl.destroy(handle) - return Destroy(handle) -end - -function ctrl.createElement(class, arg) - return MessageDlg() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") - ------------------------------------------------------------------------------- --- Multiline class ------------------------------------------------------------------------------- -local ctrl = { - nick = "multiline", - parent = WIDGET, - creation = "-", - callback = { - action = "ns", - }, - funcname = "MultiLine", -} - -function ctrl.createElement(class, arg) - return MultiLine() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- OleControl class ------------------------------------------------------------------------------- -local ctrl = { - nick = "olecontrol", - parent = WIDGET, - creation = "s", - funcname = "OleControl", - callback = {}, - include = "iupole.h", - extracode = [[ -int iupolelua_open(lua_State* L) -{ - if (iuplua_opencall_internal(L)) - IupOleControlOpen(); - - iuplua_changeEnv(L); - iupolecontrollua_open(L); - iuplua_returnEnv(L); - return 0; -} - -/* obligatory to use require"iupluaole" */ -int luaopen_iupluaole(lua_State* L) -{ - return iupolelua_open(L); -} - -/* obligatory to use require"iupluaole51" */ -int luaopen_iupluaole51(lua_State* L) -{ - return iupolelua_open(L); -} - -]] -} - -function ctrl.createElement(class, arg) - local ctl = OleControl(arg[1]) - - -- if luacom is loaded, use it to access methods and properties - -- of the control - if luacom then - local punk = ctl.iunknown - if punk then - ctl.com = luacom.MakeLuaCOM(luacom.MakeIUnknown(punk)) - end - end - - return ctl -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- PPlot class ------------------------------------------------------------------------------- -local ctrl = { - nick = "pplot", - parent = WIDGET, - creation = "", - funcname = "PPlot", - callback = { - select_cb = "nnffn", - selectbegin_cb = "", - selectend_cb = "", - predraw_cb = "n", -- fake definitions to be replaced by pplotfuncs module - postdraw_cb = "n", -- fake definitions to be replaced by pplotfuncs module - edit_cb = "nnffff", -- fake definitions to be replaced by pplotfuncs module - editbegin_cb = "", - editend_cb = "", - delete_cb = "nnff", - deletebegin_cb = "", - deleteend_cb = "", - }, - include = "iup_pplot.h", - extrafuncs = 1, -} - -function ctrl.createElement(class, arg) - return PPlot(arg.action) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - ----------------------------------------------------- - -package = newpackage() -package.name = "iuplua51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "iuplua.c", "scanf.c", "iuplua_api.c", "fontdlg.c", - "button.c", "canvas.c", "dialog.c", "messagedlg.c", - "filedlg.c", "fill.c", "frame.c", "hbox.c", - "item.c", "image.c", "label.c", "menu.c", "multiline.c", - "list.c", "separator.c", "radio.c", "colordlg.c", - "submenu.c", "text.c", "toggle.c", "vbox.c", "zbox.c", "timer.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "../src", "$(LUA51)/include" } -package.defines = {"IUPLUA_USELOH"} - ---SRCLUA = iuplua.lua constants.lua $(CTRLUA) ---GC = $(addsuffix .c, $(basename $(CTRLUA))) ---$(GC) : %.c : %.lua %.loh generator.lua --- lua5 generator.lua $< - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluacontrols51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "val.c", "dial.c", "gauge.c", "gc.c", "cbox.c", "cells.c", "getparam.c", - "colorbrowser.c", "tabs.c", "mask.c", "colorbar.c", - "matrix.c", "tree.c", "sbox.c", "spin.c", "spinbox.c", - "controls.c", "mask.c", "treefuncs.c", "matrixfuncs.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(CD)/include", "$(LUA51)/include" } -package.defines = {"IUPLUA_USELOH"} - ---SRCLUA = val.lua dial.lua gauge.lua colorbrowser.lua tabs.lua sbox.lua matrix.lua tree.lua spin.lua spinbox.lua - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iuplua_pplot51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "pplot.c", "pplotfuncs.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(CD)/include", "$(LUA51)/include" } -package.defines = {"IUPLUA_USELOH"} - ---SRCLUA = pplot.lua - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluagl51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "glcanvas.c", "glcanvasfuncs.c" -} -fixPackagePath(package.files) - --- SRCLUA = glcanvas.lua - -package.includepaths = { "../include", "$(LUA51)/include" } -package.defines = {"IUPLUA_USELOH"} - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iupluaim51" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.files = -{ - "iupluaim.c" -} -fixPackagePath(package.files) - -package.includepaths = { "../include", "$(LUA51)/include" } - ---------------------------------------------------------------------- - -package = newpackage() -package.name = "iuplua51exe" -package.target = "iuplua51" -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "exe" -package.linkflags = { "static-runtime" } - -package.files = -{ - "iupluaexe51.c" -} -fixPackagePath(package.files) - --- SRCLUA = console.lua - -package.includepaths = { "../include", "$(LUA51)/include", "$(CD)/include", "$(IM)/include" } - -package.links = { "imlua_process51", "im_process", "imlua_cd51", "imlua51", - "cdluaiup51", "cdlua51", - "iupluagl51", "iupluaim51", "iuplua_pplot51.lib", "iupluacontrols51", "iuplua51", - "lua5.1", - "iupgl", "iupim", "iup_pplot.lib", "iupcontrols", - "cdiup", "cd", "iup", "im" } -package.libpaths = { "../lib", "$(IM)/lib", "$(CD)/lib", "$(LUA51)/lib", } - -if (options.os == "windows") then - tinsert(package.links, { "cdgdiplus", "gdiplus", "comctl32", "opengl32", "glu32", "glaux" }) -else - tinsert(package.links, { "GLU", "GL", "Xm", "Xpm", "Xmu", "Xt", "Xext", "X11", "m" }) - tinsert(package.libpaths, { "/usr/X11R6/lib" }) -end - ---------------------------------------------------------------------- ------------------------------------------------------------------------------- --- Radio class ------------------------------------------------------------------------------- -local ctrl = { - nick = "radio", - parent = WIDGET, - creation = "i", - callback = {} -} - -function ctrl.CreateChildrenNames(obj) - if obj then - if obj.parent.parent == BOX then - local i = 1 - while obj[i] do - ctrl.CreateChildrenNames (obj[i]) - i = i+1 - end - elseif obj.parent == IUPFRAME then - ctrl.CreateChildrenNames (obj[1]) - else - ihandle_setname(obj) - end - end -end - -function ctrl.createElement(class, arg) - ctrl.CreateChildrenNames(arg[1]) - return Radio(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Sbox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "sbox", - parent = WIDGET, - creation = "i", - callback = {}, - include="iupsbox.h" -} - -function ctrl.createElement(class, arg) - return Sbox(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Separator class ------------------------------------------------------------------------------- -local ctrl = { - nick = "separator", - parent = WIDGET, - creation = "", - callback = {} -} - -function ctrl.createElement(class, arg) - return Separator() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Spin class ------------------------------------------------------------------------------- -local ctrl = { - nick = "spin", - parent = WIDGET, - creation = "", - callback = { - spin_cb = "n", - }, - include = "iupspin.h", -} - -function ctrl.createElement(class, arg) - return Spin(arg.action) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- SpinBox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "spinbox", - parent = WIDGET, - creation = "i", - callback = { - spin_cb = "n", - }, - include = "iupspin.h", -} - -function ctrl.createElement(class, arg) - return Spinbox(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Submenu class ------------------------------------------------------------------------------- -local ctrl = { - nick = "submenu", - parent = WIDGET, - creation = "Si", - callback = { --- open_cb = "", -- already registered by the menu --- menuclose_cb = "", -- already registered by the menu - } -} - -function ctrl.createElement(class, arg) - return Submenu(arg.title, arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Tabs class ------------------------------------------------------------------------------- -local ctrl = { - nick = "tabs", - parent = WIDGET, - creation = "v", - callback = { - tabchange_cb = "ii", - }, - include = "iuptabs.h", - funcname = "Tabsv", - createfunc = [[ -static int Tabsv(lua_State *L) -{ - Ihandle **hlist = iuplua_checkihandle_array(L, 1); - Ihandle *h = IupTabsv(hlist); - iuplua_plugstate(L, h); - iuplua_pushihandle_raw(L, h); - free(hlist); - return 1; -} - -]], -} - -function ctrl.createElement(class, arg) - return Tabsv(arg) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Text class ------------------------------------------------------------------------------- -local ctrl = { - nick = "text", - parent = WIDGET, - creation = "-", - callback = { - action = "ns", - caret_cb = "nn", - } -} - -function ctrl.createElement(class, arg) - return Text() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Timer class ------------------------------------------------------------------------------- -local ctrl = { - nick = "timer", - parent = WIDGET, - creation = "", - callback = { - action_cb = "", - }, -} - -function ctrl.createElement(class, arg) - return Timer() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Toggle class ------------------------------------------------------------------------------- -local ctrl = { - nick = "toggle", - parent = WIDGET, - creation = "S-", - callback = { - action = "n", - } -} - -function ctrl.createElement(class, arg) - return Toggle(arg.title) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Tree class ------------------------------------------------------------------------------- -local ctrl = { - nick = "tree", - parent = WIDGET, - creation = "", - callback = { - selection_cb = "nn", - multiselection_cb = "nn", -- fake definition to be replaced by treefuncs module - branchopen_cb = "n", - branchclose_cb = "n", - executeleaf_cb = "n", - renamenode_cb = "ns", - rename_cb = "ns", - showrename_cb = "n", - rightclick_cb = "n", - dragdrop_cb = "nnnn", - }, - include = "iuptree.h", - extrafuncs = 1, -} - -function TreeSetValueRec(handle, t, id) - if t == nil then return end - local cont = table.getn(t) - while cont >= 0 do - if type (t[cont]) == "table" then - if t[cont].branchname ~= nil then - SetAttribute(handle, "ADDBRANCH"..id, t[cont].branchname) - TreeSetValueRec(handle, t[cont], id+1) - end - else - if t[cont] then - SetAttribute(handle, "ADDLEAF"..id, t[cont]) - end - end - cont = cont - 1 - end -end - -function TreeSetValue(handle, t) - if t.branchname ~= nil then - SetAttribute(handle, "NAME", t.branchname) - end - TreeSetValueRec(handle, t, 0) -end - -function ctrl.createElement(class, arg) - return Tree() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- Val class ------------------------------------------------------------------------------- -local ctrl = { - nick = "val", - parent = WIDGET, - creation = "s", - callback = { - mousemove_cb = "d", - button_press_cb = "d", - button_release_cb = "d", - }, - include = "iupval.h", -} - -function ctrl.createElement(class, arg) - return Val(arg[1]) -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- VBox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "vbox", - parent = BOX, - creation = "-", - callback = {} -} - -function ctrl.append (handle, elem) - Append(handle, elem) -end - -function ctrl.createElement(class, arg) - return Vbox() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ------------------------------------------------------------------------------- --- ZBox class ------------------------------------------------------------------------------- -local ctrl = { - nick = "zbox", - parent = BOX, - creation = "-", - callback = {} -} - -function ctrl.append (handle, elem) - ihandle_setname(elem) - Append(handle, elem) -end - -function ctrl.SetChildrenNames(obj) - if obj then - local i = 1 - while obj[i] do - ihandle_setname(obj[i]) - i = i+1 - end - end -end - -function ctrl.createElement(class, arg) - ctrl.SetChildrenNames(arg) - return Zbox() -end - -iupRegisterWidget(ctrl) -iupSetClass(ctrl, "iup widget") ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iup_pplot" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "lib" -package.buildflags = { "static-runtime" } - -package.includepaths = { ".", "../include" } - -package.files = { "iup_pplot.cpp", "PPlot.cpp", "PPlotInteraction.cpp" } -fixPackagePath(package.files) - ----------------------------------------------------- ----------------------------------------------------- --- The main porpouse of this file is to build linux gcc makefiles. --- Must have Premake version 3 installed. --- Original Premake was changed to remove some parameters and add others. --- Default parameters: --- premake3s --target gnu --os linux --- But it can build windows gcc makefiles, and visual studio projects. --- premake3s --target gnu --os windows --- premake3s --target gnu --os macosx --- premake3s --target vs6 --- premake3s --target vs2002 --- premake3s --target vs2003 --- premake3s --target vs2005 --- In Linux the generated makefiles will not correctly build libraries in 64-bits. --- must add "-m64 -fPIC" flags ----------------------------------------------------- - -if (not options.target) then - options.target = "gnu" -end - -if (not options.os) then - if (options.target ~= "gnu") then - options.os = "windows" - else - options.os = "linux" - end -end - -function fixPackagePath(package_files) - if (options.os ~= "linux") then - for i, file in package_files do - package_files[i] = "../src/"..file - end - end -end - ----------------------------------------------------- - -project.name = "iup" -project.bindir = "../bin" -project.libdir = "../lib" - -if (options.os ~= "linux") then - if (options.os == "macosx") then - project.path = "../mak.macosx" - else - project.path = "../mak."..options.target - end -end - ----------------------------------------------------- - -package = newpackage() -package.name = "iupview" -package.target = package.name -package.objdir = "../obj/"..package.name -package.language = "c++" -package.kind = "winexe" -package.linkflags = { "static-runtime" } - -package.files = -{ - "iupview.c" -} -fixPackagePath(package.files) - -package.includepaths = { ".", "../include", "$(CD)/include" } -package.links = { "iupgl", "iupim", "iupimglib", "iupcontrols", "cdiup", "cd", "iup", "im" } -package.libpaths = { "../lib", "$(IM)/lib", "$(CD)/lib" } - -if (options.os == "windows") then - tinsert(package.links, { "comctl32", "opengl32", "glu32", "glaux" }) -else - tinsert(package.links, { "GLU", "GL", "Xm", "Xpm", "Xmu", "Xt", "Xext", "X11", "m" }) - tinsert(package.libpaths, { "/usr/X11R6/lib" }) -end - ----------------------------------------------------- - -l = iup.label{title="1", size="200x"} - -function idle_cb() - local v = tonumber(l.title) + 1 - l.title = v - if v == 10000 then - iup.SetIdle(nil) - end - return iup.DEFAULT -end - -dlg = iup.dialog{l; title = "Idle Test"} - -dlg:showxy(iup.CENTER, iup.CENTER) - --- Registers idle callback -iup.SetIdle(idle_cb) - --- Creates a IupColorBrowser control and updates, through --- callbacks, the values of texts representing the R, G and B --- components of the selected color. - -text_red = iup.text{} -text_green = iup.text{} -text_blue = iup.text{} - -cb = iup.colorbrowser{} - -function update(r, g, b) - text_red.value = r - text_green.value = g - text_blue.value = b -end - -function cb:drag_cb(r, g ,b) - update(r,g,b) -end - -function cb:change_cb(r, g ,b) - update(r,g,b) -end - -vbox = iup.vbox { - iup.fill {}, - text_red, - iup.fill {}, - text_green, - iup.fill {}, - text_blue, - iup.fill {} - } - -dlg = iup.dialog{iup.hbox {cb, iup.fill{}, vbox}; title = "ColorBrowser"} -dlg:showxy(iup.CENTER, iup.CENTER) ---IupDial Example in IupLua - -lbl_h = iup.label{title = "0", alignment = "ACENTER", size = "100x10"} -lbl_v = iup.label{title = "0", alignment = "ACENTER", size = "100x10"} -lbl_c = iup.label{title = "0", alignment = "ACENTER", size = "100x10"} - -dial_v = iup.dial{"VERTICAL"; size="100x100"} -dial_h = iup.dial{"HORIZONTAL"; density=0.3} - -function dial_v:mousemove_cb(a) - lbl_v.title = a - return iup.DEFAULT -end - -function dial_v:button_press_cb(a) - lbl_v.bgcolor = "255 0 0" - return iup.DEFAULT -end - -function dial_v:button_release_cb(a) - lbl_v.bgcolor = nil - return iup.DEFAULT -end - -function dial_h:mousemove_cb(a) - lbl_h.title = a - return iup.DEFAULT -end - -function dial_h:button_press_cb(a) - lbl_h.bgcolor = "255 0 0" - return iup.DEFAULT -end - -function dial_h:button_release_cb(a) - lbl_h.bgcolor = nil - return iup.DEFAULT -end - -dlg = iup.dialog -{ - iup.hbox - { - iup.fill{}, - iup.vbox - { - iup.fill{}, - iup.frame - { - iup.vbox - { - iup.hbox - { - iup.fill{}, - dial_v, - iup.fill{} - } , - iup.hbox - { - iup.fill{}, - lbl_v, - iup.fill{} - } - } - }, - iup.fill{}, - iup.frame - { - iup.vbox - { - iup.hbox - { - iup.fill{}, - dial_h, - iup.fill{} - } , - iup.hbox - { - iup.fill{}, - lbl_h, - iup.fill{} - } , - } - }, - iup.fill{}, - }, - iup.fill{} - }; title="IupDial" -} - -dlg:showxy(iup.CENTER,iup.CENTER) - - -function idle_cb() - local value = gauge.value - value = value + 0.0001; - if value > 1.0 then - value = 0.0 - end - gauge.value = value - return iup.DEFAULT -end - -gauge = iup.gauge{} -gauge.size = "QUARTERxEIGHTH" -gauge.show_text = "YES" - -dlg = iup.dialog{gauge; title = "IupGauge"} - --- Registers idle callback -iup.SetIdle(idle_cb) - -dlg:showxy(iup.CENTER, iup.CENTER) --- --- IupGetColor Example in IupLua --- --- Creates a predefined color selection dialog which returns the --- selected color in the RGB format. --- - -r, g, b = iup.GetColor(100, 100, 255, 255, 255) -if (r) then - print("r="..r.." g="..g.." b="..b) -end --- IupGetParam Example in IupLua --- Shows a dialog with all possible fields. - -iup.SetLanguage("ENGLISH") - -function param_action(dialog, param_index) - if (param_index == -1) then - print("OK") - elseif (param_index == -2) then - print("Map") - elseif (param_index == -3) then - print("Cancel") - else - local param = iup.GetParamParam(dialog, param_index) - print("PARAM"..param_index.." = "..param.value) - end - return 1 -end - --- set initial values -pboolean = 1 -pinteger = 3456 -preal = 3.543 -pinteger2 = 192 -preal2 = 0.5 -pangle = 90 -pstring = "string text" -plist = 2 -pstring2 = "second text\nsecond line" - -ret, pboolean, pinteger, preal, pinteger2, preal2, pangle, pstring, plist, pstring2 = - iup.GetParam("Title", param_action, - "Boolean: %b\n".. - "Integer: %i\n".. - "Real 1: %r\n".. - "Sep1 %t\n".. - "Integer: %i[0,255]\n".. - "Real 2: %r[-1.5,1.5]\n".. - "Sep2 %t\n".. - "Angle: %a[0,360]\n".. - "String: %s\n".. - "List: %l|item1|item2|item3|\n".. - "Sep3 %t\n".. - "Multiline: %m\n", - pboolean, pinteger, preal, pinteger2, preal2, pangle, pstring, plist, pstring2) -if (ret == 0) then - return -end - -iup.Message("IupGetParam", - "Boolean Value: "..pboolean.."\n".. - "Integer: "..pinteger.."\n".. - "Real 1: "..preal.."\n".. - "Integer: "..pinteger2.."\n".. - "Real 2: "..preal2.."\n".. - "Angle: "..pangle.."\n".. - "String: "..pstring.."\n".. - "List Index: "..plist.."\n".. - "String: "..pstring2) --- Example IupGLCanvas in Lua --- Creates a OpenGL canvas and draws a line in it. --- This example uses gllua binding of OpenGL to Lua. - -cv = iup.glcanvas{buffer="DOUBLE", rastersize = "300x300"} - -function cv:action(x, y) - iup.GLMakeCurrent(self) - --glClearColor(1.0, 1.0, 1.0, 1.0) - --glClear(GL_COLOR_BUFFER_BIT) - --glClear(GL_DEPTH_BUFFER_BIT) - --glMatrixMode( GL_PROJECTION ) - --glViewport(0, 0, 300, 300) - --glLoadIdentity() - --glBegin( GL_LINES ) - --glColor(1.0, 0.0, 0.0) - --glVertex(0.0, 0.0) - --glVertex(10.0, 10.0) - --glEnd() - iup.GLSwapBuffers(self) - return iup.DEFAULT -end - -dg = iup.dialog{cv; title="IupGLCanvas Example"} - -function cv:k_any(c) - if c == iup.K_q then - return iup.CLOSE - else - return iup.DEFAULT - end -end - - -dg:show() - -canvas = iup.glcanvas{buffer="DOUBLE", rastersize = "640x480"} - -function canvas:resize_cb(width, height) - iup.GLMakeCurrent(self) - - gl.Viewport(0, 0, width, height) - - gl.MatrixMode('PROJECTION') - gl.LoadIdentity() - - gl.MatrixMode('MODELVIEW') - gl.LoadIdentity() - -end - -function canvas:action() - iup.GLMakeCurrent(self) - - gl.MatrixMode("PROJECTION") - gl.LoadIdentity() - gl.Ortho(0, 1, 1, 0, -1.0, 1.0) - gl.MatrixMode("MODELVIEW") - gl.LoadIdentity() - gl.PushMatrix() - gl.Translate(0.25,0.5, 0) - gl.Scale(0.2, 0.2, 1) - - gl.BlendFunc("SRC_ALPHA", "ONE_MINUS_SRC_ALPHA") - - gl.ClearColor(0,0,0,1) - gl.Clear("DEPTH_BUFFER_BIT,COLOR_BUFFER_BIT") - gl.Enable("BLEND") - - -- draw rectangle - gl.Color( {1, 1, 0, 0.8} ) - gl.Rect(-1,-1,1,1) - - -------------------------------------------------------- - -- Create List That Draws the Circle - -------------------------------------------------------- - - planet = 1 - orbit = 2 - pi = - - gl.NewList(planet, "COMPILE") - gl.Begin("POLYGON") - for i=0, 100 do - cosine = math.cos(i * 2 * math.pi/100.0) - sine = math.sin(i * 2 * math.pi/100.0) - gl.Vertex(cosine,sine) - end - gl.End() - gl.EndList() - - gl.NewList(orbit, "COMPILE") - gl.Begin("LINE_LOOP") - for i=0, 100 do - cosine = math.cos(i * 2 * math.pi/100.0) - sine = math.sin(i * 2 * math.pi/100.0) - gl.Vertex(cosine, sine) - end - gl.End() - gl.EndList() - - -------------------------------------------------------- - - gl.Color( {0, 0.5, 0, 0.8} ) - gl.CallList(planet) - - gl.Color( {0, 0, 0, 1} ) - lists = { orbit } - gl.CallLists(lists) - - gl.EnableClientState ("VERTEX_ARRAY") - - vertices = { {-3^(1/2)/2, 1/2}, {3^(1/2)/2, 1/2}, {0, -1}, {-3^(1/2)/2, -1/2}, {3^(1/2)/2, -1/2}, {0, 1} } - - gl.VertexPointer (vertices) - - -- draw first triangle - gl.Color( {0, 0, 1, 0.5} ) - - gl.Begin("TRIANGLES") - gl.ArrayElement (0) - gl.ArrayElement (1) - gl.ArrayElement (2) - gl.End() - - -- draw second triangle - gl.Color( {1, 0, 0, 0.5} ) - gl.VertexPointer (vertices) - gl.DrawArrays("TRIANGLES", 3, 3) - - -- draw triangles outline - gl.Color(1,1,1,1) - elements = { 0, 1, 2} gl.DrawElements("LINE_LOOP", elements) - elements = { 3, 4, 5} gl.DrawElements("LINE_LOOP", elements) - - gl.DisableClientState ("VERTEX_ARRAY") - - gl.PopMatrix() - gl.Translate(0.75,0.5, 0) - gl.Scale(0.2, 0.2, 1) - - ---------------------------------------------------------------------------- - - gl.BlendFunc("SRC_ALPHA", "ONE_MINUS_SRC_ALPHA") - - -- draw rectangle - gl.Color( {1, 1, 0, 0.8} ) - - gl.Begin("QUADS") - gl.Vertex(-1,-1) - gl.Vertex( 1,-1) - gl.Vertex( 1, 1) - gl.Vertex(-1, 1) - gl.End() - ------------------------------- - gl.Color( {0, 0.5, 0, 0.8} ) - gl.Begin("POLYGON") - for i=0, 100 do - cosine = math.cos(i * 2 * math.pi/100.0) - sine = math.sin(i * 2 * math.pi/100.0) - gl.Vertex(cosine,sine) - end - gl.End() - - gl.Color( {0, 0, 0, 1} ) - gl.Begin("LINE_LOOP") - for i=0, 100 do - cosine = math.cos(i * 2 * math.pi/100.0) - sine = math.sin(i * 2 * math.pi/100.0) - gl.Vertex(cosine, sine) - end - gl.End() - - -- draw first triangle - gl.Color( {0, 0, 1, 0.5} ) - gl.Begin("TRIANGLES") - gl.Vertex (vertices[1]) - gl.Vertex (vertices[2]) - gl.Vertex (vertices[3]) - gl.End() - -- draw second triangle - gl.Color( {1, 0, 0, 0.5} ) - gl.Begin("TRIANGLES") - gl.Vertex (vertices[4]) - gl.Vertex (vertices[5]) - gl.Vertex (vertices[6]) - gl.End() - -- draw triangles outline - gl.Color(1,1,1,1) - gl.Begin("LINE_LOOP") - gl.Vertex (vertices[1]) - gl.Vertex (vertices[2]) - gl.Vertex (vertices[3]) - gl.End() - gl.Begin("LINE_LOOP") - gl.Vertex (vertices[4]) - gl.Vertex (vertices[5]) - gl.Vertex (vertices[6]) - gl.End() - - iup.GLSwapBuffers(self) - gl.Flush() - -end - -dialog = iup.dialog{canvas; title="Lua GL Test Application"} -dialog:show() --- IupMask Example in Lua --- Creates an IupText that accepts only numbers. - -txt = iup.text{} -iup.maskSet(txt, "/d*", 0, 1) ; -dg = iup.dialog{txt} -dg:show()mat= iup.matrix{numlin=3, numcol=3} -mat:setcell(1,1,"Only numbers") -iup.maskMatSet(mat, "/d*", 0, 1, 1, 1) ; -dg = iup.dialog{mat} -dg:show() - -mat = iup.matrix {numcol=5, numlin=3,numcol_visible=5, numlin_visible=3, widthdef=34} -mat.resizematrix = "YES" -mat:setcell(0,0,"Inflation") -mat:setcell(1,0,"Medicine") -mat:setcell(2,0,"Food") -mat:setcell(3,0,"Energy") -mat:setcell(0,1,"January 2000") -mat:setcell(0,2,"February 2000") -mat:setcell(1,1,"5.6") -mat:setcell(2,1,"2.2") -mat:setcell(3,1,"7.2") -mat:setcell(1,2,"4.6") -mat:setcell(2,2,"1.3") -mat:setcell(3,2,"1.4") -dlg = iup.dialog{iup.vbox{mat; margin="10x10"}} -dlg:showxy(iup.CENTER, iup.CENTER) -matrix = iup.matrix -{ - numlin=3, - numcol=3, - numcol_visible=3, - height0=10, - widthdef=30, - scrollbar="VERTICAL", -} - -data = { - {"1:1", "1:2", "1:3"}, - {"2:1", "2:2", "2:3"}, - {"3:1", "3:2", "3:3"}, - } - -function matrix:value_cb(l, c) - if l == 0 or c == 0 then - return "title" - end - return data[l][c] -end - -function matrix:value_edit_cb(l, c, newvalue) - data[l][c] = newvalue -end - -dlg=iup.dialog{matrix; title="IupMatrix in Callback Mode" } -dlg:show() - -bt = iup.button{title="Test"} -bt.expand = "YES" -box = iup.sbox{bt} -box.direction = "SOUTH" -box.color = "0 0 255" - -ml = iup.multiline{} -ml.expand = "YES" -vbox = iup.vbox{box, ml} - -lb = iup.label{title="Label"} -lb.expand = "YES" -dg = iup.dialog{iup.hbox{vbox, lb}} -dg:show() ---IupSpeech Example in Lua - -label = iuplabel{title="Possible commands are defined in xml1.xml"} -text = iuptext {size="200"} - -function reco(self, msg) - text.value = msg -end - -sk = iupspeech{action=reco, grammar="xml1.xml", say="xml1 loaded"} - -dg = iupdialog{iupvbox{label, text}; title = "IupSpeech Test"} -dg:show() --- Creates boxes -vboxA = iup.vbox{iup.label{title="TABS AAA"}, iup.button{title="AAA"}} -vboxB = iup.vbox{iup.label{title="TABS BBB"}, iup.button{title="BBB"}} - --- Sets titles of the vboxes -vboxA.tabtitle = "AAAAAA" -vboxB.tabtitle = "BBBBBB" - --- Creates tabs -tabs = iup.tabs{vboxA, vboxB} - --- Creates dialog -dlg = iup.dialog{tabs; title="Test IupTabs", size="200x80"} - --- Shows dialog in the center of the screen -dlg:showxy(iup.CENTER, iup.CENTER)-- IupTree Example in IupLua --- Creates a tree with some branches and leaves. --- Two callbacks are registered: one deletes marked nodes when the Del key --- is pressed, and the other, called when the right mouse button is pressed, --- opens a menu with options. - -tree = iup.tree{} - --- Creates rename dialog -ok = iup.button{title = "OK",size="EIGHTH"} -cancel = iup.button{title = "Cancel",size="EIGHTH"} - -text = iup.text{border="YES",expand="YES"} -dlg_rename = iup.dialog{iup.vbox{text,iup.hbox{ok,cancel}}; - defaultenter=ok, - defaultesc=cancel, - title="Enter node's name", - size="QUARTER", - startfocus=text} - --- Creates menu displayed when the right mouse button is pressed -addleaf = iup.item {title = "Add Leaf"} -addbranch = iup.item {title = "Add Branch"} -renamenode = iup.item {title = "Rename Node"} -menu = iup.menu{addleaf, addbranch, renamenode} - --- Callback of the right mouse button click -function tree:rightclick_cb(id) - tree.value = id - menu:popup(iup.MOUSEPOS,iup.MOUSEPOS) - return iup.DEFAULT -end - --- Callback called when a node will be renamed -function tree:renamenode_cb(id) - text.value = tree.name - - dlg_rename:popup(iup.CENTER, iup.CENTER) - iup.SetFocus(tree) - - return iup.DEFAULT -end - --- Callback called when the rename operation is cancelled -function cancel:action() - return iup.CLOSE -end - --- Callback called when the rename operation is confirmed -function ok:action() - tree.name = text.value - - return iup.CLOSE -end - -function tree:k_any(c) - if c == 339 then tree.delnode = "MARKED" end - return iup.DEFAULT -end - --- Callback called when a leaf is added -function addleaf:action() - tree.addleaf = "" - tree.redraw = "YES" - return iup.DEFAULT -end - --- Callback called when a branch is added -function addbranch:action() - tree.addbranch = "" - tree.redraw = "YES" - return iup.DEFAULT -end - --- Callback called when a branch will be renamed -function renamenode:action() - tree:renamenode_cb(tree.value) - tree.redraw = "YES" - return iup.DEFAULT -end - -function init_tree_atributes() - tree.font = "COURIER_NORMAL_10" - tree.name = "Figures" - tree.addbranch = "3D" - tree.addbranch = "2D" - tree.addbranch1 = "parallelogram" - tree.addleaf2 = "diamond" - tree.addleaf2 = "square" - tree.addbranch1 = "triangle" - tree.addleaf2 = "scalenus" - tree.addleaf2 = "isoceles" - tree.value = "6" - tree.ctrl = "YES" - tree.shift = "YES" - tree.addexpanded = "NO" - tree.redraw = "YES" -end - -dlg = iup.dialog{tree; title = "IupTree", size = "QUARTERxTHIRD"} -dlg:showxy(iup.CENTER,iup.CENTER) -init_tree_atributes()--IupTree Example in IupLua ---Creates a tree with some branches and leaves. Uses a Lua Table to define the IupTree structure. - -tree = iup.tree{} -dlg = iup.dialog{tree ; title = "TableTree result", size = "200x200"} -dlg:showxy(iup.CENTER,iup.CENTER) - -t = { - { - "Horse", - "Whale"; - branchname = "Mammals" - }, - { - "Shrimp", - "Lobster"; - branchname = "Crustaceans" - }; - branchname = "Animals" -} -iup.TreeSetValue(tree, t) - -tree.redraw = "YES" --- IupTree Example in IupLua --- Creates a tree with some branches and leaves. --- Two callbacks are registered: one deletes marked nodes when the Del key --- is pressed, and the other, called when the right mouse button is pressed, --- opens a menu with options. - - -tree = iup.tree{} - - -function tree:showrename_cb(id) - print("SHOWRENAME") - return iup.DEFAULT -end --- Callback called when a node will be renamed -function tree:renamenode_cb(id) - print("RENAMENODE") - return iup.DEFAULT -end - - -function tree:k_any(c) - if c == 316 then tree.delnode = "MARKED" end - return iup.DEFAULT -end - - -function init_tree_atributes() - tree.font = "COURIER_NORMAL_10" - tree.name = "Figures" - tree.addbranch = "3D" - tree.addbranch = "2D" - tree.addbranch1 = "parallelogram" - tree.addleaf2 = "diamond" - tree.addleaf2 = "square" - tree.addbranch1 = "triangle" - tree.addleaf2 = "scalenus" - tree.addleaf2 = "isoceles" - tree.value = "6" - tree.ctrl = "YES" - tree.shift = "YES" - tree.addexpanded = "NO" - tree.redraw = "YES" - tree.showrename = "NO" -end - - -dlg = iup.dialog{tree; title = "IupTree", size = "QUARTERxTHIRD"} -dlg:showxy(iup.CENTER,iup.CENTER) -init_tree_atributes()-- IupVal Example in IupLua --- Creates two Valuator controls, exemplifying the two possible types. --- When manipulating the Valuator, the label's value changes. - -if not string then - string = {} - string.format = format -end - -function fbuttonpress(self) - if(self.type == "VERTICAL") then - lbl_v.fgcolor = "255 0 0" - else - lbl_h.fgcolor = "255 0 0" - end - return iup.DEFAULT -end - -function fbuttonrelease(self) - if(self.type == "VERTICAL") then - lbl_v.fgcolor = "0 0 0" - else - lbl_h.fgcolor = "0 0 0" - end - return iup.DEFAULT -end - -function fmousemove(self, val) - local buffer = "iup.VALUE="..string.format('%.2f', val) - if (self.type == "VERTICAL") then - lbl_v.title=buffer - else - lbl_h.title=buffer - end - return iup.DEFAULT -end - -val_v = iup.val{"VERTICAL"; min=0, max=1, value="0.3", - mousemove_cb=fmousemove, - button_press_cb=fbuttonpress, - button_release_cb=fbuttonrelease -} - -lbl_v = iup.label{title="VALUE= ", size=70, type="1"} - -val_h = iup.val{"HORIZONTAL"; min=0, max=1, value=0, - mousemove_cb=fmousemove, - button_press_cb=fbuttonpress, - button_release_cb=fbuttonrelease -} - -lbl_h = iup.label{title="VALUE= ", size=70, type="2"} - -dlg_val = iup.dialog -{ - iup.hbox - { - iup.frame - { - iup.vbox - { - val_v, - lbl_v - } - }, - iup.frame - { - iup.vbox - { - val_h, - lbl_h - } - } - }; - title="Valuator Test" -} - -dlg_val:show() - --- IupAlarm Example in IupLua --- Shows a dialog similar to the one shown when you exit a program --- without saving. - -b = iup.Alarm("IupAlarm Example", "File not saved! Save it now?" ,"Yes" ,"No" ,"Cancel") - --- Shows a message for each selected button -if b == 1 then - iup.Message("Save file", "File saved sucessfully - leaving program") -elseif b == 2 then - iup.Message("Save file", "File not saved - leaving program anyway") -elseif b == 3 then - iup.Message("Save file", "Operation canceled") -end-- IupFileDlg Example in IupLua --- Shows a typical file-saving dialog. - --- Creates a file dialog and sets its type, title, filter and filter info -filedlg = iup.filedlg{dialogtype = "SAVE", title = "File save", - filter = "*.bmp", filterinfo = "Bitmap files", - directory="c:\\windows"} - --- Shows file dialog in the center of the screen -filedlg:popup (iup.ANYWHERE, iup.ANYWHERE) - --- Gets file dialog status -status = filedlg.status - -if status == "1" then - iup.Message("New file",filedlg.value) -elseif status == "0" then - iup.Message("File already exists", filedlg.value) -elseif status == "-1" then - iup.Message("IupFileDlg","Operation canceled") -end-- IupGetFile Example in IupLua --- Shows a typical file-selection dialog. - -iup.SetLanguage("ENGLISH") -f, err = iup.GetFile("*.txt") -if err == 1 then - iup.Message("New file", f) -elseif err == 0 then - iup.Message("File already exists", f) -elseif err == -1 then - iup.Message("IupFileDlg", "Operation canceled") -elseif err == -2 then - iup.Message("IupFileDlg", "Allocation errr") -elseif err == -3 then - iup.Message("IupFileDlg", "Invalid parameter") -end-- IupListDialog Example in IupLua --- Shows a color-selection dialog. - -iup.SetLanguage("ENGLISH") -size = 8 -marks = { 0,0,0,0,1,1,0,0 } -options = {"Blue", "Red", "Green", "Yellow", "Black", "White", "Gray", "Brown"} - -error = iup.ListDialog(2,"Color selection",size,options,0,16,5,marks); - -if error == -1 then - iup.Message("IupListDialog", "Operation canceled") -else - local selection = "" - local i = 1 - while i ~= size+1 do - if marks[i] ~= 0 then - selection = selection .. options[i] .. "\n" - end - i = i + 1 - end - if selection == "" then - iup.Message("IupListDialog","No option selected") - else - iup.Message("Selected options",selection) - end -end-- IupMessage Example in IupLua --- Shows a dialog with the message: “Click the button”. - -iup.Message ("IupMessage", "Press the button")-- IupScanf Example in IupLua --- Shows a dialog with three fields to be filled. --- One receives a string, the other receives a real number and --- the last receives an integer number. --- Note: In Lua, the function does not return the number of successfully read characters. - -iup.SetLanguage("ENGLISH") -local integer = 12 -local real = 1e-3 -local text ="This is a vector of characters" -local fmt = "IupScanf\nText:%300.40%s\nReal:%20.10%g\nInteger:%20.10%d\n" - -text, real, integer = iup.Scanf (fmt, text, real, integer) - -if text then - local string = "Text: "..text.."\nReal: "..real.."\nInteger: "..integer - iup.Message("IupScanf", string) -else - iup.Message("IupScanf", "Operation canceled"); -end --- Creates four buttons. The first uses images, the second turns the first --- on and off, the third exits the application and the last does nothing - --- defines released button image -img_release = iup.image { - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}, - {2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}; - colors = { "215 215 215", "40 40 40", "30 50 210", "240 0 0" } -} - --- defines pressed button image -img_press = iup.image { - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,4,4,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,4,4,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}, - {2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}; - colors = { "40 40 40", "215 215 215", "0 20 180", "210 0 0" } -} - --- defines deactivated button image -img_inactive = iup.image { - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2}, - {1,1,3,3,3,3,3,4,4,4,4,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,4,4,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,1,3,3,3,3,3,3,3,3,3,3,3,3,2,2}, - {1,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}, - {2,2,2,2,2,2,2,2,2,2,2,2,2,2,2,2}; - colors = { "215 215 215", "40 40 40", "100 100 100", "200 200 200" } -} - --- creates a text box -text = iup.text{ readonly = "YES", SIZE = "EIGHTH" } - --- creates a button with image -btn_image = iup.button{ title = "Button with image", image = img_release, impress = img_press, iminactive = img_inactive } - --- creates a button -btn_big = iup.button{ title = "Big useless button", size = "EIGHTHxEIGHTH" } - --- creates a button entitled Exit -btn_exit = iup.button{ title = "Exit" } - --- creates a button entitled Activate -btn_on_off = iup.button{ title = "Activate" } - --- creates a dialog and sets dialog's title and turns off resize, menubox, maximize and minimize -dlg = iup.dialog{ iup.vbox{ iup.hbox{ iup.fill{}, btn_image, btn_on_off, btn_exit, iup.fill{} }, text, btn_big }; title = "IupButton", resize = "NO", menubox = "NO", maxbox = "NO", minbox = "NO" } - --- callback called when activate button is activated -function btn_on_off:action() - if btn_image.active == "YES" then - btn_image.active = "NO" - else - btn_image.active = "YES" - end - - return iup.DEFAULT -end - --- callback called when the button is pressed or released -function btn_image:button( b, e ) - if( b == iup.BUTTON1 ) then - if( e == 1 ) then - -- botão pressionado - text.value = "Red button pressed" - else - -- botão solto - text.value = "Red button released" - end - end - return iup.DEFAULT -end - --- callback called when the exit button is activated -function btn_exit:action() - dlg:hide() -end - --- shows dialog -dlg:showxy( iup.CENTER, iup.CENTER)--IupCanvas Example in IupLua - -cv = iup.canvas {size="300x100", xmin=0, xmax=99, posx=0, dx=10} -dg = iup.dialog{iup.frame{cv}; title="IupCanvas"} - -function cv:motion_cb(x, y, r) - print(x, y, r) - return iup.DEFAULT -end - -dg:showxy(iup.CENTER, iup.CENTER) ---IupDialog Example in IupLua ---Creates a simple dialog. - -vbox = iup.vbox { iup.label {title="Label"}, iup.button { title="Test" } } -dlg = iup.dialog{vbox; title="Dialog"} -dlg:show() - -tecgraf = iup.image{ - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 02, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 04, 05, 05, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 11, 05, 05, 05, 05, 12, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 10, 06, 05, 03, 05, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 07, 05, 01, 01, 03, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 07, 05, 01, 01, 03, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 02, 09, 09, 01, 01, 03, 07, 06, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 07, 06, 01, 01, 01, 01, 02, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 07, 06, 01, 01, 01, 01, 04, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 07, 06, 01, 01, 01, 01, 04, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 11, 02, 07, 05, 04, 04, 04, 04, 04, 04, 11, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 07, 04, 04, 04, 06, 03, 03, 07, 05, 05, 07, 07, 04, 04, 04, 04, 10, 10, 10, 10, 10, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 04, 04, 04, 09, 09, 06, 05, 04, 08, 07, 05, 01, 01, 01, 01, 07, 05, 06, 03, 03, 03, 03, 04, 10, 07, 09, 01, 01, }, - { 01, 01, 01, 04, 04, 06, 06, 08, 01, 01, 01, 01, 01, 10, 05, 01, 01, 01, 01, 10, 06, 01, 01, 01, 01, 01, 03, 03, 07, 07, 07, 01, }, - { 01, 01, 02, 04, 04, 05, 01, 01, 01, 01, 01, 01, 01, 04, 05, 01, 01, 01, 01, 07, 09, 01, 01, 01, 01, 01, 01, 01, 07, 07, 05, 01, }, - { 01, 01, 01, 03, 04, 04, 04, 01, 01, 01, 01, 01, 01, 04, 05, 01, 01, 01, 01, 07, 06, 01, 01, 01, 01, 01, 07, 07, 07, 09, 07, 01, }, - { 01, 01, 01, 01, 03, 03, 03, 04, 10, 10, 10, 11, 01, 04, 05, 01, 01, 01, 01, 05, 06, 15, 05, 07, 07, 07, 09, 06, 05, 05, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 03, 03, 03, 03, 03, 02, 04, 07, 05, 05, 05, 05, 06, 09, 14, 14, 06, 05, 05, 05, 07, 12, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 06, 03, 03, 02, 02, 02, 04, 04, 02, 02, 10, 16, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 02, 05, 01, 01, 01, 01, 06, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 02, 05, 01, 01, 01, 01, 06, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 02, 05, 01, 01, 01, 01, 06, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 03, 07, 09, 01, 01, 04, 09, 05, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 12, 03, 05, 01, 01, 05, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 03, 05, 01, 01, 07, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 03, 05, 05, 04, 07, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 09, 03, 05, 07, 07, 13, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 03, 07, 07, 07, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 03, 04, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, }, - { 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01, 01 }; - colors = { - "BGCOLOR", - "079 086 099", - "040 045 053", - "104 113 129", - "136 147 170", - "155 164 179", - "121 136 167", - "239 239 243", - "176 190 214", - "127 133 143", - "207 209 214", - "247 255 255", - "244 247 249", - "212 217 225", - "215 226 241", - "231 237 245" - }, -} - -dg = iup.dialog{iup.label{title="Tray example"}; title="Tray", - tray = "YES", traytip = "This is a tip at tray", trayimage = tecgraf} -dg:show() - -dg.hidetaskbar = "YES" - -dg.trayclick_cb = function(self, b, press, dclick) - if b == 1 and press then - item_show = iup.item {title = "Show", action = function() dg:show() end} - item_exit = iup.item {title = "Exit", action = function() dg.tray = "NO" dg:hide() end} - menu = iup.menu{item_show, item_exit} - menu:popup(iup.MOUSEPOS, iup.MOUSEPOS) - end - return iup.DEFAULT -end --- IupFill Example in IupLua --- Uses the Fill element to horizontally centralize a button and to --- justify it to the left and right. - --- Creates frame with left aligned button -frame_left = iup.frame -{ - iup.hbox - { - iup.button{ title = "Ok" }, - iup.fill{}, - }; title = "Left aligned" -- Sets frame's title -} - --- Creates frame with centered button -frame_center = iup.frame -{ - iup.hbox - { - iup.fill{}, - iup.button{ title = "Ok" }, - iup.fill{}, - } ; title = "Centered" -- Sets frame's title -} - --- Creates frame with right aligned button -frame_right = iup.frame -{ - iup.hbox - { - iup.fill {}, - iup.button { title = "Ok" }, - - } ; title = "Right aligned" -- Sets frame's title -} - --- Creates dialog with these three frames -dialog = iup.dialog -{ - iup.vbox{frame_left, frame_center, frame_right,}; - size = 120, title = "IupFill" -} - --- Shows dialog in the center of the screen -dialog:showxy(iup.CENTER, iup.CENTER)-- IupFrame Example in IupLua --- Draws a frame around a button. Note that FGCOLOR is added to the frame but --- it is inherited by the button. - --- Creates frame with a label -frame = iup.frame - { - iup.hbox - { - iup.fill{}, - iup.label{title="IupFrame Test"}, - iup.fill{}, - NULL - } - } ; - --- Sets label's attributes -frame.fgcolor = "255 0 0" -frame.size = EIGHTHxEIGHTH -frame.title = "This is the frame" -frame.margin = "10x10" - --- Creates dialog -dialog = iup.dialog{frame}; - --- Sets dialog's title -dialog.title = "IupFrame" - -dialog:showxy(iup.CENTER,iup.CENTER) -- Shows dialog in the center of the screen -- IupHbox Example in IupLua --- Creates a dialog with buttons placed side by side, with the purpose --- of showing the organization possibilities of elements inside an hbox. --- The ALIGNMENT attribute is explored in all its possibilities to obtain --- the given effect. - -fr1 = iup.frame -{ - iup.hbox - { - iup.fill{}, - iup.button{title="1", size="30x30"}, - iup.button{title="2", size="30x40"}, - iup.button{title="3", size="30x50"}, - iup.fill{}; - alignment = "ATOP" - }; - title = "Alignment = ATOP" -} - -fr2 = iup.frame -{ - iup.hbox - { - iup.fill{}, - iup.button{title="1", size="30x30", action=""}, - iup.button{title="2", size="30x40", action=""}, - iup.button{title="3", size="30x50", action=""}, - iup.fill{}; - alignment = "ACENTER" - }; - title = "Alignment = ACENTER" -} - -fr3 = iup.frame -{ - iup.hbox - { - iup.fill{}, - iup.button{title="1", size="30x30", action=""}, - iup.button{title="2", size="30x40", action=""}, - iup.button{title="3", size="30x50", action=""}, - iup.fill{}; - alignment = "ABOTTOM" - }; - title = "Alignment = ABOTTOM" -} - -dlg = iup.dialog -{ - iup.frame - { - iup.vbox - { - fr1, - fr2, - fr3 - }; title="HBOX", - }; - title="Alignment", - size=140 -} - -dlg:show()-- IupImage Example in IupLua --- Creates a button, a label, a toggle and a radio using an image. --- Uses an image for the cursor as well. - --- Defines an "X" image -img_x = iup.image{ - { 1,2,3,3,3,3,3,3,3,2,1 }, - { 2,1,2,3,3,3,3,3,2,1,2 }, - { 3,2,1,2,3,3,3,2,1,2,3 }, - { 3,3,2,1,2,3,2,1,2,3,3 }, - { 3,3,3,2,1,2,1,2,3,3,3 }, - { 3,3,3,3,2,1,2,3,3,3,3 }, - { 3,3,3,2,1,2,1,2,3,3,3 }, - { 3,3,2,1,2,3,2,1,2,3,3 }, - { 3,2,1,2,3,3,3,2,1,2,3 }, - { 2,1,2,3,3,3,3,3,2,1,2 }, - { 1,2,3,3,3,3,3,3,3,2,1 } - -- Sets "X" image colors - ; colors = { "0 1 0", "255 0 0", "255 255 0" } -} - --- Defines a cursor image -img_cursor = iup.image{ - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,2,2,2,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,2,2,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,1,1,2,0,0,2,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,2,1,1,1,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,2,2,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,2,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 }, - { 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 } - -- Sets cursor image colors - ; colors = { "255 0 0", "128 0 0" }, hotspot = "21:10" -} - --- Creates a button entitled "Dummy" and associates image img_x to it -btn = iup.button{ title = "", image = img_x } - --- Creates a label entitled "Dummy" and associates image img_x to it -lbl = iup.label{ title = "", image = img_x } - --- Creates toggle entitled "Dummy" and associates image img_x to it -tgl = iup.toggle{ title = "", image = img_x } - --- Creates two toggles entitled "Dummy" and associates image img_x to them -tgl_radio_1 = iup.toggle{ title = "", image = img_x } -tgl_radio_2 = iup.toggle{ title = "", image = img_x } - --- Creates label showing image size -lbl_size = iup.label{ title = '"X" image width = '..img_x.width..'; "X" image height = '..img_x.height } - --- Creates frames around the elements -frm_btn = iup.frame{btn; title="button", size="EIGHTHxEIGHTH"} -frm_lbl = iup.frame{lbl; title="label" , size="EIGHTHxEIGHTH"} -frm_tgl = iup.frame{tgl; title="toggle", size="EIGHTHxEIGHTH"} - -frm_tgl_radio = iup.frame{ - iup.radio{ - iup.vbox - { - tgl_radio_1, - tgl_radio_2 - } - }; - title="radio", size="EIGHTHxEIGHTH" - } - --- Creates dialog dlg with an hbox containing a button, a label, and a toggle -dlg = iup.dialog - { - iup.vbox - { - iup.hbox{frm_btn, frm_lbl, frm_tgl, frm_tgl_radio}, - iup.fill{}, - iup.hbox{iup.fill{}, lbl_size, iup.fill{}} - }; title = "IupImage Example", size = "HALFxQUARTER", - cursor = img_cursor - } - --- Shows dialog in the center of the screen -dlg:showxy(iup.CENTER, iup.CENTER) -text = iup.text {value = "This is an empty text"} - -item_save = iup.item {title = "Save\tCtrl+S", key = "K_cS", active = "NO"} -item_autosave = iup.item {title = "Auto Save", key = "K_a", value = "ON"} -item_exit = iup.item {title = "Exit", key = "K_x"} - -menu_file = iup.menu {item_save, item_autosave, item_exit} - -submenu_file = iup.submenu{menu_file; title = "File"} - -menu = iup.menu {submenu_file} - -dlg = iup.dialog{text; title ="IupItem", menu = menu} - -dlg:showxy(iup.CENTER, iup.CENTER) - -function item_autosave:action() - if item_autosave.value == "ON" then - iup.Message("Auto Save", "OFF") - item_autosave.value = "OFF" - else - iup.Message("Auto Save", "ON") - item_autosave.value = "ON" - end - - return iup.DEFAULT -end - -function item_exit:action() --- return iup.CLOSE - dlg:hide() -end --- IupLabel Example in IupLua --- Creates three labels, one using all attributes except for image, other --- with normal text and the last one with an image.. - --- Defines a star image -img_star = iup.image { - { 1,1,1,1,1,1,2,1,1,1,1,1,1 }, - { 1,1,1,1,1,1,2,1,1,1,1,1,1 }, - { 1,1,1,1,1,2,2,2,1,1,1,1,1 }, - { 1,1,1,1,1,2,2,2,1,1,1,1,1 }, - { 1,1,2,2,2,2,2,2,2,2,2,1,1 }, - { 2,2,2,2,2,2,2,2,2,2,2,2,2 }, - { 1,1,1,2,2,2,2,2,2,2,1,1,1 }, - { 1,1,1,1,2,2,2,2,2,1,1,1,1 }, - { 1,1,1,1,2,2,2,2,2,1,1,1,1 }, - { 1,1,1,2,2,1,1,2,2,2,1,1,1 }, - { 1,1,2,2,1,1,1,1,1,2,2,1,1 }, - { 1,2,2,1,1,1,1,1,1,1,2,2,1 }, - { 2,2,1,1,1,1,1,1,1,1,1,2,2 } - -- Sets star image colors - ; colors = { "0 0 0", "0 198 0" } -} - --- Creates a label and sets all the attributes of label lbl, except for image -lbl = iup.label { title = "This label has the following attributes set:\nBGCOLOR = 255 255 0\nFGCOLOR = 0 0 255\nFONT = COURIER_NORMAL_14\nSIZE = HALFxQUARTER\nTITLE = All text contained here\nALIGNMENT = ACENTER\n", bgcolor = "255 255 0", fgcolor = "0 0 255", font = "COURIER_NORMAL_14", size = "HALFxQUARTER", alignment = "ACENTER" } - --- Creates a label to explain that the label on the right has an image -lbl_explain = iup.label { title = "The label on the right has the image of a star" } - --- Creates a label whose title is not important, cause it will have an image -lbl_star = iup.label { title = "Does not matter", image = img_star } - --- Creates dialog with these three labels -dlg = iup.dialog { iup.vbox { lbl, iup.hbox { lbl_explain, lbl_star } } - ; title = "IupLabel Example" } - --- Shows dialog in the center of the screen -dlg:showxy ( iup.CENTER, iup.CENTER )-- IupList Example in IupLua --- Creates a dialog with three frames, each one containing a list. The first is a simple list, the second one is a multiple list and the last one is a drop-down list. The second list has a callback associated. - --- Creates a list and sets items, initial item and size -list = iup.list {"Gold", "Silver", "Bronze", "None" - ; value = 4, size = "EIGHTHxEIGHTH"} - --- Creates frame with simple list and sets its title -frm_medal = iup.frame {list ; title = "Best medal"} - --- Creates a list and sets its items, multiple selection, initial items and size -list_multiple = iup.list {"100m dash", "Long jump", "Javelin throw", "110m hurdlers", "Hammer throw", "High jump" - ; multiple="YES", value="+--+--", size="EIGHTHxEIGHTH"} - --- Creates frame with multiple list and sets its title -frm_sport = iup.frame {list_multiple - ; title = "Competed in"} - --- Creates a list and sets its items, dropdown and amount of visible items -list_dropdown = iup.list {"Less than US$ 1000", "US$ 2000", "US$ 5000", "US$ 10000", "US$ 20000", "US$ 50000", "More than US$ 100000" - ; dropdown="YES", visible_items=5} - --- Creates frame with dropdown list and sets its title -frm_prize = iup.frame {list_dropdown - ; title = "Prizes won"} - --- Creates a dialog with the the frames with three lists and sets its title -dlg = iup.dialog {iup.hbox {frm_medal, frm_sport, frm_prize} - ; title = "IupList Example"} - --- Shows dialog in the center of the screen -dlg:showxy(iup.CENTER, iup.CENTER) - -function list_multiple:action(t, i, v) - if v == 0 then - state = "deselected" - else - state = "selected" - end - iup.Message("Competed in", "Item "..i.." - "..t.." - "..state) - return iup.DEFAULT -end-- IupMenu Example in IupLua --- Creates a dialog with a menu with two submenus. - --- Creates a text, sets its value and turns on text readonly mode -text = iup.text {readonly = "YES", value = "Selecting show or hide will affect this text"} - --- Creates items, sets its shortcut keys and deactivates edit item -item_show = iup.item {title = "Show", key = "K_S"} -item_hide = iup.item {title = "Hide\tCtrl+H", key = "K_H"} -item_edit = iup.item {title = "Edit", key = "K_E", active = "NO"} -item_exit = iup.item {title = "Exit", key = "K_x"} - -function item_show:action() - text.visible = "YES" - return iup.DEFAULT -end - -function item_hide:action() - text.visible = "NO" - return iup.DEFAULT -end - -function item_exit:action() - return iup.CLOSE -end - --- Creates two menus -menu_file = iup.menu {item_exit} -menu_text = iup.menu {item_show, item_hide, item_edit} - --- Creates two submenus -submenu_file = iup.submenu {menu_file; title = "File"} -submenu_text = iup.submenu {menu_text; title = "Text"} - --- Creates main menu with two submenus -menu = iup.menu {submenu_file, submenu_text} - --- Creates dialog with a text, sets its title and associates a menu to it -dlg = iup.dialog{text; title="IupMenu Example", menu=menu} - --- Shows dialog in the center of the screen -dlg:showxy(iup.CENTER,iup.CENTER) - - -l = iup.list{dropdown="YES"} - -iup.SetAttribute(l, "1", "HELVETICA_NORMAL_8") -iup.SetAttribute(l, "2", "COURIER_NORMAL_8") -iup.SetAttribute(l, "3", "TIMES_NORMAL_8") -iup.SetAttribute(l, "4", "HELVETICA_ITALIC_8") -iup.SetAttribute(l, "5", "COURIER_ITALIC_8") -iup.SetAttribute(l, "6", "TIMES_ITALIC_8") -iup.SetAttribute(l, "7", "HELVETICA_BOLD_8") -iup.SetAttribute(l, "8", "COURIER_BOLD_8") -iup.SetAttribute(l, "9", "TIMES_BOLD_8") -iup.SetAttribute(l, "10", "HELVETICA_NORMAL_10") -iup.SetAttribute(l, "11", "COURIER_NORMAL_10") -iup.SetAttribute(l, "12", "TIMES_NORMAL_10") -iup.SetAttribute(l, "13", "HELVETICA_ITALIC_10") -iup.SetAttribute(l, "14", "COURIER_ITALIC_10") -iup.SetAttribute(l, "15", "TIMES_ITALIC_10") -iup.SetAttribute(l, "16", "HELVETICA_BOLD_10") -iup.SetAttribute(l, "17", "COURIER_BOLD_10") -iup.SetAttribute(l, "18", "TIMES_BOLD_10") -iup.SetAttribute(l, "19", "HELVETICA_NORMAL_12") -iup.SetAttribute(l, "20", "COURIER_NORMAL_12") -iup.SetAttribute(l, "21", "TIMES_NORMAL_12") -iup.SetAttribute(l, "22", "HELVETICA_ITALIC_12") -iup.SetAttribute(l, "23", "COURIER_ITALIC_12") -iup.SetAttribute(l, "24", "TIMES_ITALIC_12") -iup.SetAttribute(l, "25", "HELVETICA_BOLD_12") -iup.SetAttribute(l, "26", "COURIER_BOLD_12") -iup.SetAttribute(l, "27", "TIMES_BOLD_12") -iup.SetAttribute(l, "28", "HELVETICA_NORMAL_14") -iup.SetAttribute(l, "29", "COURIER_NORMAL_14") -iup.SetAttribute(l, "30", "TIMES_NORMAL_14") -iup.SetAttribute(l, "31", "HELVETICA_ITALIC_14") -iup.SetAttribute(l, "32", "COURIER_ITALIC_14") -iup.SetAttribute(l, "33", "TIMES_ITALIC_14") -iup.SetAttribute(l, "34", "HELVETICA_BOLD_14") -iup.SetAttribute(l, "35", "COURIER_BOLD_14") -iup.SetAttribute(l, "36", "TIMES_BOLD_14") - -dg = iup.dialog{l} -dg.title = "title" - -dg2 = nil - -l.action = function(self, t, i ,v) - - if dg2 then - iup.Hide(dg2) - end - - if v == 1 then - ml = iup.multiline{} - ml.size = "200x200" - ml.value = "1234\nmmmmm\niiiii" - - ml.font = t - - dg2 = iup.dialog{ml} - dg2.title = t - dg2:show() - iup.SetFocus(l) - end -end - -dg:show() --- IupMultiline Simple Example in IupLua --- Shows a multiline that ignores the treatment of the DEL key, canceling its effect. - -ml = iup.multiline{expand="YES", value="I ignore the DEL key!", border="YES"} - -ml.action = function(self, c, after) - if c == iup.K_DEL then - return iup.IGNORE - else - return iup.DEFAULT; - end -end - -dlg = iup.dialog{ml; title="IupMultiline", size="QUARTERxQUARTER"} -dlg:show()-- IupRadio Example in IupLua --- Creates a dialog for the user to select his/her gender. --- In this case, the radio element is essential to prevent the user from --- selecting both options. - -male = iup.toggle{title="Male"} -female = iup.toggle{title="Female"} -exclusive = iup.radio -{ - iup.vbox - { - male, - female - }; - value=female, - tip="Two state button - Exclusive - RADIO" -} - -frame = iup.frame{exclusive; title="Gender"} - -dialog = iup.dialog -{ - iup.hbox - { - iup.fill{}, - frame, - iup.fill{} - }; - title="IupRadio", - size=140, - resize="NO", - minbox="NO", - maxbox="NO" -} - -dialog:show()-- IupSeparator Example in IupLua --- Creates a dialog with a menu and some items. --- A IupSeparator was used to separate the menu items. - --- Creates a text, sets its value and turns on text readonly mode -text = iup.text {value = "This text is here only to compose", expand = "YES"} - --- Creates six items -item_new = iup.item {title = "New"} -item_open = iup.item {title = "Open"} -item_close = iup.item {title = "Close"} -item_pagesetup = iup.item {title = "Page Setup"} -item_print = iup.item {title = "Print"} -item_exit = iup.item {title = "Exit", action="return iup.CLOSE"} - --- Creates file menus -menu_file = iup.menu {item_new, item_open, item_close, iup.separator{}, item_pagesetup, item_print, iup.separator{}, item_exit } - --- Creates file submenus -submenu_file = iup.submenu {menu_file; title="File"} - --- Creates main menu with file submenu -menu = iup.menu {submenu_file} - --- Creates dialog with a text, sets its title and associates a menu to it -dlg = iup.dialog {text - ; title ="IupSeparator Example", menu = menu, size = "QUARTERxEIGHTH"} - --- Shows dialog in the center of the screen -dlg:showxy(iup.CENTER,iup.CENTER)-- IupSubmenu Example in IupLua --- Creates a dialog with a menu with three submenus. One of the submenus has a submenu, which has another submenu. - --- Creates a text, sets its value and turns on text readonly mode -text = iup.text {value = "This text is here only to compose", expand = "YES"} - --- Creates items of menu file -item_new = iup.item {title = "New"} -item_open = iup.item {title = "Open"} -item_close = iup.item {title = "Close"} -item_exit = iup.item {title = "Exit"} - --- Creates items of menu edit -item_copy = iup.item {title = "Copy"} -item_paste = iup.item {title = "Paste"} - --- Creates items for menu triangle -item_equilateral = iup.item {title = "Equilateral"} -item_isoceles = iup.item {title = "Isoceles"} -item_scalenus = iup.item {title = "Scalenus"} - --- Creates menu triangle -menu_triangle = iup.menu {item_equilateral, item_isoceles, item_scalenus} - --- Creates submenu triangle -submenu_triangle = iup.submenu {menu_triangle; title = "Triangle"} - --- Creates items of menu create -item_line = iup.item {title = "Line"} -item_circle = iup.item {title = "Circle"} - --- Creates menu create -menu_create = iup.menu {item_line, item_circle, submenu_triangle} - --- Creates submenu create -submenu_create = iup.submenu {menu_create; title = "Create"} - --- Creates items of menu help -item_help = iup.item {title = "Help"} - --- Creates menus of the main menu -menu_file = iup.menu {item_new, item_open, item_close, iup.separator{}, item_exit } -menu_edit = iup.menu {item_copy, item_paste, iup.separator{}, submenu_create} -menu_help = iup.menu {item_help} - --- Creates submenus of the main menu -submenu_file = iup.submenu {menu_file; title = "File"} -submenu_edit = iup.submenu {menu_edit; title = "Edit"} -submenu_help = iup.submenu {menu_help; title = "Help"} - --- Creates main menu with file submenu -menu = iup.menu {submenu_file, submenu_edit, submenu_help} - --- Creates dialog with a text, sets its title and associates a menu to it -dlg = iup.dialog {text - ; title ="IupSubmenu Example", menu = menu, size = "QUARTERxEIGHTH"} - --- Shows dialog in the center of the screen -dlg:showxy (iup.CENTER,iup.CENTER) - -function item_help:action () - iup.Message ("Warning", "Only Help and Exit items performs an operation") - return iup.DEFAULT -end - -function item_exit:action () - return iup.CLOSE -end-- IupText Example in IupLua --- Allows the user to execute a Lua command - -text = iup.text{value = "Write a text; press Ctrl-Q to exit"} - -function text:action(c) - if c == iup.K_cQ then - return iup.CLOSE - end - return iup.DEFAULT -end - -dlg = iup.dialog{text; title="IupText"} - -dlg:showxy(iup.CENTER, iup.CENTER) -iup.SetFocus(text) --- IupTimer Example in Lua - -timer1 = iup.timer{time=100} -timer2 = iup.timer{time=2000} - -function timer1:action_cb() - print("timer 1 called") - return iup.DEFAULT -end - -function timer2:action_cb() - print("timer 2 called") - return iup.CLOSE -end - --- can only be set after the time is created -timer1.run = "YES" -timer2.run = "YES" - -dg = iup.dialog{iup.label{title="Timer example"}} -dg:show() --- IupToggle Example in IupLua --- Creates 9 toggles: --- the first one has an image and an associated callback; --- the second has an image and is deactivated; --- the third is regular; --- the fourth has its foreground color changed; --- the fifth has its background color changed; --- the sixth has its foreground and background colors changed; --- the seventh is deactivated; --- the eight has its font changed; --- the ninth has its size changed. - -img1 = iup.image{ - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,2,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,2,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,2,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,2,2,2,2,2,2,2,2,2,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}; - colors = {"255 255 255", "0 192 0"} -} - -img2 = iup.image{ - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,2,2,2,2,2,2,1,1,1,1,1,1}, - {1,1,1,2,1,1,1,1,1,1,2,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,2,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,2,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,2,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,2,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,2,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,2,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,2,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,2,2,2,2,2,2,2,2,2,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}, - {1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1}; - colors = {"255 255 255", "0 192 0"} -} - -toggle1 = iup.toggle{title = "", image = img1} -toggle2 = iup.toggle{title = "deactivated toggle with image", image = img2, active="NO"} -toggle3 = iup.toggle{title = "regular toggle"} -toggle4 = iup.toggle{title = "toggle with blue foreground color", fgcolor = BLUE } -toggle5 = iup.toggle{title = "toggle with red background color", bgcolor = RED } -toggle6 = iup.toggle{title = "toggle with black backgrounf color and green foreground color", fgcolor = GREEN, bgcolor = BLACK } -toggle7 = iup.toggle{title = "deactivated toggle", active = "NO" } -toggle8 = iup.toggle{title = "toggle with Courier 14 Bold font", font = "COURIER_BOLD_14" } -toggle9 = iup.toggle{title = "toggle with size EIGHTxEIGHT", size = "EIGHTHxEIGHTH" } - -function toggle1:action(v) - if v == 1 then estado = "pressed" else estado = "released" end - iup.Message("Toggle 1",estado) -end - -box = iup.vbox{ - toggle1, - toggle2, - toggle3, - toggle4, - toggle5, - toggle6, - toggle7, - toggle8, - toggle9 - } - -toggles = iup.radio{box; expand="YES"} -dlg = iup.dialog{toggles; title = "IupToggle", margin="5x5", gap="5", resize="NO"} -dlg:showxy(iup.CENTER, iup.CENTER)-- IupVbox Example in IupLua --- Creates a dialog with buttons placed one above the other, showing --- the organization possibilities of the elements inside a vbox. --- The ALIGNMENT attribute is explored in all its possibilities to obtain --- the effects. The attributes GAP, MARGIN and SIZE are also tested. - --- Creates frame 1 -frm_1 = iup.frame -{ - iup.hbox - { - iup.fill {}, - iup.vbox - { - iup.button {title = "1", size = "20x30", action = ""}, - iup.button {title = "2", size = "30x30", action = ""}, - iup.button {title = "3", size = "40x30", action = ""} ; - -- Sets alignment and gap of vbox - alignment = "ALEFT", gap = 10 - }, - iup.fill {} - } ; - -- Sets title of frame 1 - title = "ALIGNMENT = ALEFT, GAP = 10" -} - --- Creates frame 2 -frm_2 = iup.frame -{ - iup.hbox - { - iup.fill {}, - iup.vbox - { - iup.button {title = "1", size = "20x30", action = ""}, - iup.button {title = "2", size = "30x30", action = ""}, - iup.button {title = "3", size = "40x30", action = ""} ; - -- Sets alignment and margin of vbox - alignment = "ACENTER", - }, - iup.fill {} - } ; - -- Sets title of frame 1 - title = "ALIGNMENT = ACENTER" -} - --- Creates frame 3 -frm_3 = iup.frame -{ - iup.hbox - { - iup.fill {}, - iup.vbox - { - iup.button {title = "1", size = "20x30", action = ""}, - iup.button {title = "2", size = "30x30", action = ""}, - iup.button {title = "3", size = "40x30", action = ""} ; - -- Sets alignment and size of vbox - alignment = "ARIGHT" - }, - iup.fill {} - } ; - -- Sets title of frame 3 - title = "ALIGNMENT = ARIGHT" -} - -dlg = iup.dialog -{ - iup.vbox - { - frm_1, - frm_2, - frm_3 - } ; - title = "IupVbox Example", size = "QUARTER" -} - --- Shows dialog in the center of the screen -dlg:showxy (iup.CENTER, iup.CENTER)-- IupZbox Example in IupLua --- An application of a zbox could be a program requesting several entries from the user according to a previous selection. In this example, a list of possible layouts ,each one consisting of an element, is presented, and according to the selected option the dialog below the list is changed. - -fill = iup.fill {} -text = iup.text {value = "Enter your text here", expand = "YES"} -lbl = iup.label {title = "This element is a label"} -btn = iup.button {title = "This button does nothing"} -zbox = iup.zbox -{ - fill, - text, - lbl, - btn ; - alignment = "ACENTER", value=text -} - -list = iup.list { "fill", "text", "lbl", "btn"; value="2"} -ilist = {fill, text, lbl, btn} - -function list:action (t, o, selected) - if selected == 1 then - -- Sets the value of the zbox to the selected element - zbox.value=ilist[o] - end - - return iup.DEFAULT -end - -frm = iup.frame -{ - iup.hbox - { - iup.fill{}, - list, - iup.fill{} - } ; - title = "Select an element" -} - -dlg = iup.dialog -{ - iup.vbox - { - frm, - zbox - } ; - size = "QUARTER", - title = "IupZbox Example" -} - -dlg:showxy (0, 0) ---[[ -JSON4Lua example script. -Demonstrates the simple functionality of the json module. -]]-- -json = require('json') - - --- Object to JSON encode -test = { - one='first',two='second',three={2,3,5} -} - -jsonTest = json.encode(test) - -print('JSON encoded test is: ' .. jsonTest) - --- Now JSON decode the json string -result = json.decode(jsonTest) - -print ("The decoded table result:") -table.foreach(result,print) -print ("The decoded table result.three") -table.foreach(result.three, print) --- --- jsonrpc.lua --- Installed in a CGILua webserver environment (with necessary CGI Lua 5.0 patch) --- -require ('json.rpcserver') - --- The Lua class that is to serve JSON RPC requests -local myServer = { - echo = function (msg) return msg end, - average = function(...) - local total=0 - local count=0 - for i=1, table.getn(arg) do - total = total + arg[i] - count = count + 1 - end - return { average= total/count, sum = total, n=count } - end -} - -json.rpcserver.serve(myServer)--[[ -Some basic tests for JSON4Lua. -]]-- - ---- Compares two tables for being data-identical. -function compareData(a,b) - if (type(a)=='string' or type(a)=='number' or type(a)=='boolean' or type(a)=='nil') then return a==b end - -- After basic data types, we're only interested in tables - if (type(a)~='table') then return true end - -- Check that a has everything b has - for k,v in pairs(b) do - if (not compareData( a[k], v ) ) then return false end - end - for k,v in pairs(a) do - if (not compareData( v, b[k] ) ) then return false end - end - return true -end - ---- --- Checks that our compareData function works properly -function testCompareData() - s = "name" - r = "name" - assert(compareData(s,r)) - assert(not compareData('fred',s)) - assert(not compareData(nil, s)) - assert(not compareData("123",123)) - assert(not compareData(false, nil)) - assert(compareData(true, true)) - assert(compareData({1,2,3},{1,2,3})) - assert(compareData({'one',2,'three'},{'one',2,'three'})) - assert(not compareData({'one',2,4},{4,2,'one'})) - assert(compareData({one='ichi',two='nichi',three='san'}, {three='san',two='nichi',one='ichi'})) - s = { one={1,2,3}, two={one='hitotsu',two='futatsu',three='mitsu'} } - assert(compareData(s,s)) - t = { one={1,2,3}, two={one='een',two='twee',three='drie'} } - assert(not compareData(s,t)) -end - -testCompareData() - --- --- --- Performs some perfunctory tests on JSON module -function testJSON4Lua() - json = require('json') - - if nil then - -- Test encodeString - s = [["\" -]] - r = json._encodeString(s) - assert(r=='\\"\\\\\\"\\n') - s = [["""\\\"]] - r = json._encodeString(s) - assert(r==[[\"\"\"\\\\\\\"]]) - - end - - -- Test encode for basic strings (complicated strings) - s = [[Hello, Lua!]] - r = json.encode(s) - assert(r=='"Hello, Lua!"') - s = [["\" -]] - r = json.encode(s) - assert(r=='\"\\"\\\\\\"\\n\"') - s = [["""\\\"]] - r = json.encode(s) - assert(r==[["\"\"\"\\\\\\\""]]) - - -- Test encode for numeric values - s = 23 - r = json.encode(s) - assert(r=='23') - s=48.123 - r = json.encode(s) - assert(r=='48.123') - - -- Test encode for boolean values - assert(json.encode(true)=='true') - assert(json.encode(false)=='false') - assert(json.encode(nil)=='null') - - -- Test encode for arrays - s = {1,2,3} - r = json.encode(s) - assert(r=="[1,2,3]") - s = {9,9,9} - r = json.encode(s) - assert(r=="[9,9,9]") - - -- Complex array test - s = { 2, 'joe', false, nil, 'hi' } - r = json.encode(s) - assert(r=='[2,"joe",false,null,"hi"]') - - -- Test encode for tables - s = {Name='Craig',email='craig@lateral.co.za',age=35} - r = json.encode(s) - -- NB: This test can fail because of order: need to test further once - -- decoding is supported. - assert(r==[[{"age":35,"Name":"Craig","email":"craig@lateral.co.za"}]]) - - -- Test decode_scanWhitespace - if nil then - s = " \n \r \t " - e = json._decode_scanWhitespace(s,1) - assert(e==string.len(s)+1) - s = " \n\r\t4" - assert(json._decode_scanWhitespace(s,1)==5) - - -- Test decode_scanString - s = [["Test"]] - r,e = json._decode_scanString(s,1) - assert(r=='Test' and e==7) - s = [["This\nis a \"test"]] - r = json._decode_scanString(s,1) - assert(r=="This\nis a \"test") - - -- Test decode_scanNumber - s = [[354]] - r,e = json._decode_scanNumber(s,1) - assert(r==354 and e==4) - s = [[ 4565.23 AND OTHER THINGS ]] - r,e = json._decode_scanNumber(s,2) - assert(r==4565.23 and e==9) - s = [[ -23.22 and ]] - r,e = json._decode_scanNumber(s,2) - assert(r==-23.22 and e==8) - - -- Test decode_scanConstant - s = "true" - r,e = json._decode_scanConstant(s,1) - assert(r==true and e==5) - s = " false " - r,e = json._decode_scanConstant(s,3) - assert(r==false and e==8) - s = "1null6" - r,e = json._decode_scanConstant(s,2) - assert(r==nil and e==6) - - -- Test decode_scanArray - s = "[1,2,3]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r,{1,2,3})) - s = [[[ 1 , 3 ,5 , "Fred" , true, false, null, -23 ] ]] - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {1,3,5,'Fred',true,false,nil,-23} ) ) - s = "[3,5,null,7,9]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {3,5,nil,7,9})) - s = "[3,5,null,7,9,null,null]" - r,e = json._decode_scanArray(s,1) - assert(compareData(r, {3,5,nil,7,9,nil,nil})) - - end - - -- Test decode_scanObject - s = [[ {"one":1, "two":2, "three":"three", "four":true} ]] - r,e = json.decode(s) - assert(compareData(r,{one=1,two=2,three='three',four=true})) - s = [[ { "one" : { "first":1,"second":2,"third":3}, "two":2, "three":false } ]] - r,e = json.decode(s) - assert(compareData(r, {one={first=1,second=2,third=3},two=2,three=false})) - s = [[ { "primes" : [2,3,5,7,9], "user":{"name":"craig","age":35,"programs_lua":true}, - "lua_is_great":true } ]] - r,e = json.decode(s) - assert(compareData(r, {primes={2,3,5,7,9},user={name='craig',age=35,programs_lua=true},lua_is_great=true})) - - -- Test json.null management - t = { 1,2,json.null,4 } - assert( json.encode(t)=="[1,2,null,4]" ) - t = {x=json.null } - r = json.encode(t) - assert( json.encode(t) == '{"x":null}' ) - - -- Test comment decoding - s = [[ /* A comment - that spans - a few lines - */ - "test" - ]] - r,e = json.decode(s) - assert(r=='test',"Comment decoding failed") -end - -testJSON4Lua() - -print("JSON4Lua tests completed successfully")--[[ - Some Time Trails for the JSON4Lua package -]]-- - - -require('json') -require('os') -require('table') - -local t1 = os.clock() -local jstr -local v -for i=1,100 do - local t = {} - for j=1,500 do - table.insert(t,j) - end - for j=1,500 do - table.insert(t,"VALUE") - end - jstr = json.encode(t) - v = json.decode(jstr) - --print(json.encode(t)) -end - -for i = 1,100 do - local t = {} - for j=1,500 do - local m= math.mod(j,3) - if (m==0) then - t['a'..j] = true - elseif m==1 then - t['a'..j] = json.null - else - t['a'..j] = j - end - end - jstr = json.encode(t) - v = json.decode(jstr) -end - -print (jstr) ---print(type(t1)) -local t2 = os.clock() - -print ("Elapsed time=" .. os.difftime(t2,t1) .. "s")----------------------------------------------------------------------------- --- JSON4Lua: JSON encoding / decoding support for the Lua language. --- json Module. --- Author: Craig Mason-Jones --- Homepage: http://json.luaforge.net/ --- Version: 0.9.20 --- This module is released under the The GNU General Public License (GPL). --- Please see LICENCE.txt for details. --- --- USAGE: --- This module exposes two functions: --- encode(o) --- Returns the table / string / boolean / number / nil / json.null value as a JSON-encoded string. --- decode(json_string) --- Returns a Lua object populated with the data encoded in the JSON string json_string. --- --- REQUIREMENTS: --- compat-5.1 if using Lua 5.0 --- --- CHANGELOG --- 0.9.20 Introduction of local Lua functions for private functions (removed _ function prefix). --- Fixed Lua 5.1 compatibility issues. --- Introduced json.null to have null values in associative arrays. --- encode() performance improvement (more than 50%) through table.concat rather than .. --- Introduced decode ability to ignore /**/ comments in the JSON string. --- 0.9.10 Fix to array encoding / decoding to correctly manage nil/null values in arrays. ------------------------------------------------------------------------------ - ------------------------------------------------------------------------------ --- Imports and dependencies ------------------------------------------------------------------------------ -local math = require('math') -local string = require("string") -local table = require("table") - -local base = _G - ------------------------------------------------------------------------------ --- Module declaration ------------------------------------------------------------------------------ -module("json") - --- Public functions - --- Private functions -local decode_scanArray -local decode_scanComment -local decode_scanConstant -local decode_scanNumber -local decode_scanObject -local decode_scanString -local decode_scanWhitespace -local encodeString -local isArray -local isEncodable - ------------------------------------------------------------------------------ --- PUBLIC FUNCTIONS ------------------------------------------------------------------------------ ---- Encodes an arbitrary Lua object / variable. --- @param v The Lua object / variable to be JSON encoded. --- @return String containing the JSON encoding in internal Lua string format (i.e. not unicode) -function encode (v) - -- Handle nil values - if v==nil then - return "null" - end - - local vtype = base.type(v) - - -- Handle strings - if vtype=='string' then - return '"' .. encodeString(v) .. '"' -- Need to handle encoding in string - end - - -- Handle booleans - if vtype=='number' or vtype=='boolean' then - return base.tostring(v) - end - - -- Handle tables - if vtype=='table' then - local rval = {} - -- Consider arrays separately - local bArray, maxCount = isArray(v) - if bArray then - for i = 1,maxCount do - table.insert(rval, encode(v[i])) - end - else -- An object, not an array - for i,j in base.pairs(v) do - if isEncodable(i) and isEncodable(j) then - table.insert(rval, '"' .. encodeString(i) .. '":' .. encode(j)) - end - end - end - if bArray then - return '[' .. table.concat(rval,',') ..']' - else - return '{' .. table.concat(rval,',') .. '}' - end - end - - -- Handle null values - if vtype=='function' and v==null then - return 'null' - end - - base.assert(false,'encode attempt to encode unsupported type ' .. vtype .. ':' .. base.tostring(v)) -end - - ---- Decodes a JSON string and returns the decoded value as a Lua data structure / value. --- @param s The string to scan. --- @param [startPos] Optional starting position where the JSON string is located. Defaults to 1. --- @param Lua object, number The object that was scanned, as a Lua table / string / number / boolean or nil, --- and the position of the first character after --- the scanned JSON object. -function decode(s, startPos) - startPos = startPos and startPos or 1 - startPos = decode_scanWhitespace(s,startPos) - base.assert(startPos<=string.len(s), 'Unterminated JSON encoded object found at position in [' .. s .. ']') - local curChar = string.sub(s,startPos,startPos) - -- Object - if curChar=='{' then - return decode_scanObject(s,startPos) - end - -- Array - if curChar=='[' then - return decode_scanArray(s,startPos) - end - -- Number - if string.find("+-0123456789.e", curChar, 1, true) then - return decode_scanNumber(s,startPos) - end - -- String - if curChar==[["]] or curChar==[[']] then - return decode_scanString(s,startPos) - end - if string.sub(s,startPos,startPos+1)=='/*' then - return decode(s, decode_scanComment(s,startPos)) - end - -- Otherwise, it must be a constant - return decode_scanConstant(s,startPos) -end - ---- The null function allows one to specify a null value in an associative array (which is otherwise --- discarded if you set the value with 'nil' in Lua. Simply set t = { first=json.null } -function null() - return null -- so json.null() will also return null ;-) -end ------------------------------------------------------------------------------ --- Internal, PRIVATE functions. --- Following a Python-like convention, I have prefixed all these 'PRIVATE' --- functions with an underscore. ------------------------------------------------------------------------------ - ---- Scans an array from JSON into a Lua object --- startPos begins at the start of the array. --- Returns the array and the next starting position --- @param s The string being scanned. --- @param startPos The starting position for the scan. --- @return table, int The scanned array as a table, and the position of the next character to scan. -function decode_scanArray(s,startPos) - local array = {} -- The return value - local stringLen = string.len(s) - base.assert(string.sub(s,startPos,startPos)=='[','decode_scanArray called but array does not start at position ' .. startPos .. ' in string:\n'..s ) - startPos = startPos + 1 - -- Infinite loop for array elements - repeat - startPos = decode_scanWhitespace(s,startPos) - base.assert(startPos<=stringLen,'JSON String ended unexpectedly scanning array.') - local curChar = string.sub(s,startPos,startPos) - if (curChar==']') then - return array, startPos+1 - end - if (curChar==',') then - startPos = decode_scanWhitespace(s,startPos+1) - end - base.assert(startPos<=stringLen, 'JSON String ended unexpectedly scanning array.') - object, startPos = decode(s,startPos) - table.insert(array,object) - until false -end - ---- Scans a comment and discards the comment. --- Returns the position of the next character following the comment. --- @param string s The JSON string to scan. --- @param int startPos The starting position of the comment -function decode_scanComment(s, startPos) - base.assert( string.sub(s,startPos,startPos+1)=='/*', "decode_scanComment called but comment does not start at position " .. startPos) - local endPos = string.find(s,'*/',startPos+2) - base.assert(endPos~=nil, "Unterminated comment in string at " .. startPos) - return endPos+2 -end - ---- Scans for given constants: true, false or null --- Returns the appropriate Lua type, and the position of the next character to read. --- @param s The string being scanned. --- @param startPos The position in the string at which to start scanning. --- @return object, int The object (true, false or nil) and the position at which the next character should be --- scanned. -function decode_scanConstant(s, startPos) - local consts = { ["true"] = true, ["false"] = false, ["null"] = nil } - local constNames = {"true","false","null"} - - for i,k in base.pairs(constNames) do - --print ("[" .. string.sub(s,startPos, startPos + string.len(k) -1) .."]", k) - if string.sub(s,startPos, startPos + string.len(k) -1 )==k then - return consts[k], startPos + string.len(k) - end - end - base.assert(nil, 'Failed to scan constant from string ' .. s .. ' at starting position ' .. startPos) -end - ---- Scans a number from the JSON encoded string. --- (in fact, also is able to scan numeric +- eqns, which is not --- in the JSON spec.) --- Returns the number, and the position of the next character --- after the number. --- @param s The string being scanned. --- @param startPos The position at which to start scanning. --- @return number, int The extracted number and the position of the next character to scan. -function decode_scanNumber(s,startPos) - local endPos = startPos+1 - local stringLen = string.len(s) - local acceptableChars = "+-0123456789.e" - while (string.find(acceptableChars, string.sub(s,endPos,endPos), 1, true) - and endPos<=stringLen - ) do - endPos = endPos + 1 - end - local stringValue = 'return ' .. string.sub(s,startPos, endPos-1) - local stringEval = base.loadstring(stringValue) - base.assert(stringEval, 'Failed to scan number [ ' .. stringValue .. '] in JSON string at position ' .. startPos .. ' : ' .. endPos) - return stringEval(), endPos -end - ---- Scans a JSON object into a Lua object. --- startPos begins at the start of the object. --- Returns the object and the next starting position. --- @param s The string being scanned. --- @param startPos The starting position of the scan. --- @return table, int The scanned object as a table and the position of the next character to scan. -function decode_scanObject(s,startPos) - local object = {} - local stringLen = string.len(s) - local key, value - base.assert(string.sub(s,startPos,startPos)=='{','decode_scanObject called but object does not start at position ' .. startPos .. ' in string:\n' .. s) - startPos = startPos + 1 - repeat - startPos = decode_scanWhitespace(s,startPos) - base.assert(startPos<=stringLen, 'JSON string ended unexpectedly while scanning object.') - local curChar = string.sub(s,startPos,startPos) - if (curChar=='}') then - return object,startPos+1 - end - if (curChar==',') then - startPos = decode_scanWhitespace(s,startPos+1) - end - base.assert(startPos<=stringLen, 'JSON string ended unexpectedly scanning object.') - -- Scan the key - key, startPos = decode(s,startPos) - base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key) - startPos = decode_scanWhitespace(s,startPos) - base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key) - base.assert(string.sub(s,startPos,startPos)==':','JSON object key-value assignment mal-formed at ' .. startPos) - startPos = decode_scanWhitespace(s,startPos+1) - base.assert(startPos<=stringLen, 'JSON string ended unexpectedly searching for value of key ' .. key) - value, startPos = decode(s,startPos) - object[key]=value - until false -- infinite loop while key-value pairs are found -end - ---- Scans a JSON string from the opening inverted comma or single quote to the --- end of the string. --- Returns the string extracted as a Lua string, --- and the position of the next non-string character --- (after the closing inverted comma or single quote). --- @param s The string being scanned. --- @param startPos The starting position of the scan. --- @return string, int The extracted string as a Lua string, and the next character to parse. -function decode_scanString(s,startPos) - base.assert(startPos, 'decode_scanString(..) called without start position') - local startChar = string.sub(s,startPos,startPos) - base.assert(startChar==[[']] or startChar==[["]],'decode_scanString called for a non-string') - local escaped = false - local endPos = startPos + 1 - local bEnded = false - local stringLen = string.len(s) - repeat - local curChar = string.sub(s,endPos,endPos) - if not escaped then - if curChar==[[\]] then - escaped = true - else - bEnded = curChar==startChar - end - else - -- If we're escaped, we accept the current character come what may - escaped = false - end - endPos = endPos + 1 - base.assert(endPos <= stringLen+1, "String decoding failed: unterminated string at position " .. endPos) - until bEnded - local stringValue = 'return ' .. string.sub(s, startPos, endPos-1) - local stringEval = base.loadstring(stringValue) - base.assert(stringEval, 'Failed to load string [ ' .. stringValue .. '] in JSON4Lua.decode_scanString at position ' .. startPos .. ' : ' .. endPos) - return stringEval(), endPos -end - ---- Scans a JSON string skipping all whitespace from the current start position. --- Returns the position of the first non-whitespace character, or nil if the whole end of string is reached. --- @param s The string being scanned --- @param startPos The starting position where we should begin removing whitespace. --- @return int The first position where non-whitespace was encountered, or string.len(s)+1 if the end of string --- was reached. -function decode_scanWhitespace(s,startPos) - local whitespace=" \n\r\t" - local stringLen = string.len(s) - while ( string.find(whitespace, string.sub(s,startPos,startPos), 1, true) and startPos <= stringLen) do - startPos = startPos + 1 - end - return startPos -end - ---- Encodes a string to be JSON-compatible. --- This just involves back-quoting inverted commas, back-quotes and newlines, I think ;-) --- @param s The string to return as a JSON encoded (i.e. backquoted string) --- @return The string appropriately escaped. -function encodeString(s) - s = string.gsub(s,'\\','\\\\') - s = string.gsub(s,'"','\\"') - s = string.gsub(s,"'","\\'") - s = string.gsub(s,'\n','\\n') - s = string.gsub(s,'\t','\\t') - return s -end - --- Determines whether the given Lua type is an array or a table / dictionary. --- We consider any table an array if it has indexes 1..n for its n items, and no --- other data in the table. --- I think this method is currently a little 'flaky', but can't think of a good way around it yet... --- @param t The table to evaluate as an array --- @return boolean, number True if the table can be represented as an array, false otherwise. If true, --- the second returned value is the maximum --- number of indexed elements in the array. -function isArray(t) - -- Next we count all the elements, ensuring that any non-indexed elements are not-encodable - -- (with the possible exception of 'n') - local maxIndex = 0 - for k,v in base.pairs(t) do - if (base.type(k)=='number' and math.floor(k)==k and 1<=k) then -- k,v is an indexed pair - if (not isEncodable(v)) then return false end -- All array elements must be encodable - maxIndex = math.max(maxIndex,k) - else - if (k=='n') then - if v ~= table.getn(t) then return false end -- False if n does not hold the number of elements - else -- Else of (k=='n') - if isEncodable(v) then return false end - end -- End of (k~='n') - end -- End of k,v not an indexed pair - end -- End of loop across all pairs - return true, maxIndex -end - ---- Determines whether the given Lua object / table / variable can be JSON encoded. The only --- types that are JSON encodable are: string, boolean, number, nil, table and json.null. --- In this implementation, all other types are ignored. --- @param o The object to examine. --- @return boolean True if the object should be JSON encoded, false if it should be ignored. -function isEncodable(o) - local t = base.type(o) - return (t=='string' or t=='boolean' or t=='number' or t=='nil' or t=='table') or (t=='function' and o==null) -end - ------------------------------------------------------------------------------ --- JSONRPC4Lua: JSON RPC client calls over http for the Lua language. --- json.rpc Module. --- Author: Craig Mason-Jones --- Homepage: http://json.luaforge.net/ --- Version: 0.9.10 --- This module is released under the The GNU General Public License (GPL). --- Please see LICENCE.txt for details. --- --- USAGE: --- This module exposes two functions: --- proxy( 'url') --- Returns a proxy object for calling the JSON RPC Service at the given url. --- call ( 'url', 'method', ...) --- Calls the JSON RPC server at the given url, invokes the appropriate method, and --- passes the remaining parameters. Returns the result and the error. If the result is nil, an error --- should be there (or the system returned a null). If an error is there, the result should be nil. --- --- REQUIREMENTS: --- Lua socket 2.0 (http://www.cs.princeton.edu/~diego/professional/luasocket/) --- json (The JSON4Lua package with which it is bundled) --- compat-5.1 if using Lua 5.0. ------------------------------------------------------------------------------ - -module('json.rpc') - ------------------------------------------------------------------------------ --- Imports and dependencies ------------------------------------------------------------------------------ -local json = require('json') -local http = require("socket.http") - ------------------------------------------------------------------------------ --- PUBLIC functions ------------------------------------------------------------------------------ - ---- Creates an RPC Proxy object for the given Url of a JSON-RPC server. --- @param url The URL for the JSON RPC Server. --- @return Object on which JSON-RPC remote methods can be called. --- EXAMPLE Usage: --- local jsolait = json.rpc.proxy('http://jsolait.net/testj.py') --- print(jsolait.echo('This is a test of the echo method!')) --- print(jsolait.args2String('first','second','third')) --- table.foreachi( jsolait.args2Array(5,4,3,2,1), print) -function proxy(url) - local serverProxy = {} - local proxyMeta = { - __index = function(t, key) - return function(...) - return json.rpc.call(url, key, unpack(arg)) - end - end - } - setmetatable(serverProxy, proxyMeta) - return serverProxy -end - ---- Calls a JSON RPC method on a remote server. --- Returns a boolean true if the call succeeded, false otherwise. --- On success, the second returned parameter is the decoded --- JSON object from the server. --- On http failure, returns nil and an error message. --- On success, returns the result and nil. --- @param url The url of the JSON RPC server. --- @param method The method being called. --- @param ... Parameters to pass to the method. --- @return result, error The JSON RPC result and error. One or the other should be nil. If both --- are nil, this means that the result of the RPC call was nil. --- EXAMPLE Usage: --- print(json.rpc.call('http://jsolait.net/testj.py','echo','This string will be returned')) -function call(url, method, ...) - assert(method,'method param is nil to call') - local JSONRequestArray = { - id="httpRequest", - ["method"]=method, - params = arg - } - local httpResponse, result , code - local jsonRequest = json.encode(JSONRequestArray) - -- We use the sophisticated http.request form (with ltn12 sources and sinks) so that - -- we can set the content-type to text/plain. While this shouldn't strictly-speaking be true, - -- it seems a good idea (Xavante won't work w/out a content-type header, although a patch - -- is needed to Xavante to make it work with text/plain) - local ltn12 = require('ltn12') - local resultChunks = {} - httpResponse, code = http.request( - { ['url'] = url, - sink = ltn12.sink.table(resultChunks), - method = 'POST', - headers = { ['content-type']='text/plain', ['content-length']=string.len(jsonRequest) }, - source = ltn12.source.string(jsonRequest) - } - ) - httpResponse = table.concat(resultChunks) - -- Check the http response code - if (code~=200) then - return nil, "HTTP ERROR: " .. code - end - -- And decode the httpResponse and check the JSON RPC result code - result = json.decode( httpResponse ) - if result.result then - return result.result, nil - else - return nil, result.error - end -end ------------------------------------------------------------------------------ --- JSONRPC4Lua: JSON RPC server for exposing Lua objects as JSON RPC callable --- objects via http. --- json.rpcserver Module. --- Author: Craig Mason-Jones --- Homepage: http://json.luaforge.net/ --- Version: 0.9.10 --- This module is released under the The GNU General Public License (GPL). --- Please see LICENCE.txt for details. --- --- USAGE: --- This module exposes one function: --- server(luaClass, packReturn) --- Manages incoming JSON RPC request forwarding the method call to the given --- object. If packReturn is true, multiple return values are packed into an --- array on return. --- --- IMPORTANT NOTES: --- 1. This version ought really not be 0.9.10, since this particular part of the --- JSONRPC4Lua package is very first-draft. However, the JSON4Lua package with which --- it comes is quite solid, so there you have it :-) --- 2. This has only been tested with Xavante webserver, with which it works --- if you patch CGILua to accept 'text/plain' content type. See doc\cgilua_patch.html --- for details. ----------------------------------------------------------------------------- - -module ('json.rpcserver') - ---- --- Implements a JSON RPC Server wrapping for luaClass, exposing each of luaClass's --- methods as JSON RPC callable methods. --- @param luaClass The JSON RPC class to expose. --- @param packReturn If true, the server will automatically wrap any --- multiple-value returns into an array. Single returns remain single returns. If --- false, when a function returns multiple values, only the first of these values will --- be returned. --- -function serve(luaClass, packReturn) - cgilua.contentheader('text','plain') - require('cgilua') - require ('json') - local postData = "" - - if not cgilua.servervariable('CONTENT_LENGTH') then - cgilua.put("Please access JSON Request using HTTP POST Request") - return 0 - else - postData = cgi[1] -- SAPI.Request.getpostdata() --[[{ "id":1, "method":"echo","params":["Hi there"]}]] -- - end - -- @TODO Catch an error condition on decoding the data - local jsonRequest = json.decode(postData) - local jsonResponse = {} - jsonResponse.id = jsonRequest.id - local method = luaClass[ jsonRequest.method ] - - if not method then - jsonResponse.error = 'Method ' .. jsonRequest.method .. ' does not exist at this server.' - else - local callResult = { pcall( method, unpack( jsonRequest.params ) ) } - if callResult[1] then -- Function call successfull - table.remove(callResult,1) - if packReturn and table.getn(callResult)>1 then - jsonResponse.result = callResult - else - jsonResponse.result = unpack(callResult) -- NB: Does not support multiple argument returns - end - else - jsonResponse.error = callResult[2] - end - end - - -- Output the result - -- TODO: How to be sure that the result and error tags are there even when they are nil in Lua? - -- Can force them by hand... ? - cgilua.contentheader('text','plain') - cgilua.put( json.encode( jsonResponse ) ) -end - ---[[ - Auctioneer Advanced - Version: <%version%> (<%codename%>) - Revision: $Id: CoreMain.lua 2233 2007-09-25 03:57:33Z norganna $ - URL: http://auctioneeraddon.com/ - - This is an addon for World of Warcraft that adds statistical history to the auction data that is collected - when the auction is scanned, so that you can easily determine what price - you will be able to sell an item for at auction or at a vendor whenever you - mouse-over an item in the game - - License: - This program is free software; you can redistribute it and/or - modify it under the terms of the GNU General Public License - as published by the Free Software Foundation; either version 2 - of the License, or (at your option) any later version. - - This program is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program(see GPL.txt); if not, write to the Free Software - Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA. - - Note: - This AddOn's source code is specifically designed to work with - World of Warcraft's interpreted AddOn system. - You have an implicit licence to use this AddOn with these facilities - since that is its designated purpose as per: - http://www.fsf.org/licensing/licenses/gpl-faq.html#InterpreterIncompat -]] - - ---[[ - See CoreAPI.lua for a description of the modules API -]] - -if (not AucAdvanced) then AucAdvanced = {} end -if (not AucAdvancedData) then AucAdvancedData = {} end -if (not AucAdvancedLocal) then AucAdvancedLocal = {} end -if (not AucAdvancedConfig) then AucAdvancedConfig = {} end - -AucAdvanced.Version="<%version%>"; -if (AucAdvanced.Version == "<".."%version%>") then - AucAdvanced.Version = "5.0.DEV"; -end - -local private = {} - --- For our modular stats system, each stats engine should add their --- subclass to AucAdvanced.Modules.<type>.<name> and store their data into their own --- data table in AucAdvancedData.Stats.<type><name> -if (not AucAdvanced.Modules) then AucAdvanced.Modules = {Stat={},Util={},Filter={}} end -if (not AucAdvancedData.Stats) then AucAdvancedData.Stats = {} end -if (not AucAdvancedLocal.Stats) then AucAdvancedLocal.Stats = {} end - -function private.TooltipHook(vars, ret, frame, name, hyperlink, quality, quantity, cost, additional) - if EnhTooltip.LinkType(hyperlink) ~= "item" then - return -- Auctioneer hooks into item tooltips only - end - - -- Check to see if we need to force load scandata - local getter = AucAdvanced.Settings.GetSetting - if (getter("scandata.tooltip.display") and getter("scandata.force")) then - AucAdvanced.Scan.GetImage() - end - - for system, systemMods in pairs(AucAdvanced.Modules) do - for engine, engineLib in pairs(systemMods) do - if (engineLib.Processor) then engineLib.Processor("tooltip", frame, name, hyperlink, quality, quantity, cost, additional) end - end - end -end - -function private.HookAH() - hooksecurefunc("AuctionFrameBrowse_Update", AucAdvanced.API.ListUpdate) - for system, systemMods in pairs(AucAdvanced.Modules) do - for engine, engineLib in pairs(systemMods) do - if (engineLib.Processor) then - engineLib.Processor("auctionui") - end - end - end -end - -function private.OnLoad(addon) - addon = addon:lower() - - -- Check if the actual addon itself is loading - if (addon == "auc-advanced") then - Stubby.RegisterAddOnHook("Blizzard_AuctionUi", "Auc-Advanced", private.HookAH) - Stubby.RegisterFunctionHook("EnhTooltip.AddTooltip", 600, private.TooltipHook) - for pos, module in ipairs(AucAdvanced.EmbeddedModules) do - -- These embedded modules have also just been loaded - private.OnLoad(module) - end - end - - -- Notify the actual module if it exists - local auc, sys, eng = strsplit("-", addon) - if (auc == "auc" and sys and eng) then - for system, systemMods in pairs(AucAdvanced.Modules) do - if (sys == system:lower()) then - for engine, engineLib in pairs(systemMods) do - if (eng == engine:lower() and engineLib.OnLoad) then - engineLib.OnLoad(addon) - end - end - end - end - end - - -- Check all modules' load triggers and pass event to processors - for system, systemMods in pairs(AucAdvanced.Modules) do - for engine, engineLib in pairs(systemMods) do - if (engineLib.LoadTriggers and engineLib.LoadTriggers[addon]) then - if (engineLib.OnLoad) then - engineLib.OnLoad(addon) - end - end - if (engineLib.Processor and auc == "auc" and sys and eng) then - engineLib.Processor("load", addon) - end - end - end -end - -function private.OnUnload() - for system, systemMods in pairs(AucAdvanced.Modules) do - for engine, engineLib in pairs(systemMods) do - if (engineLib.OnUnload) then - engineLib.OnUnload() - end - end - end -end - -private.Schedule = {} -function private.OnEvent(...) - local event, arg = select(2, ...) - if (event == "ADDON_LOADED") then - local addon = string.lower(arg) - if (addon:sub(1,4) == "auc-") then - private.OnLoad(addon) - end - elseif (event == "AUCTION_HOUSE_SHOW") then - -- Do Nothing for now - elseif (event == "AUCTION_HOUSE_CLOSED") then - AucAdvanced.Scan.Interrupt() - elseif (event == "PLAYER_LOGOUT") then - AucAdvanced.Scan.Commit(true) - private.OnUnload() - elseif event == "UNIT_INVENTORY_CHANGED" - or event == "ITEM_LOCK_CHANGED" - or event == "CURSOR_UPDATE" - or event == "BAG_UPDATE" - then - private.Schedule["inventory"] = GetTime() + 0.15 - end -end - -function private.OnUpdate(...) - if event == "inventory" then - AucAdvanced.Post.AlertBagsChanged() - end - - local now = GetTime() - for event, time in pairs(private.Schedule) do - if time > now then - for system, systemMods in pairs(AucAdvanced.Modules) do - for engine, engineLib in pairs(systemMods) do - if engineLib.Processor then - engineLib.Processor(event, time) - end - end - end - end - private.Schedule[event] = nil - end -end - -private.Frame = CreateFrame("Frame") -private.Frame:RegisterEvent("ADDON_LOADED") -private.Frame:RegisterEvent("AUCTION_HOUSE_SHOW") -private.Frame:RegisterEvent("AUCTION_HOUSE_CLOSED") -private.Frame:RegisterEvent("UNIT_INVENTORY_CHANGED") -private.Frame:RegisterEvent("ITEM_LOCK_CHANGED") -private.Frame:RegisterEvent("CURSOR_UPDATE") -private.Frame:RegisterEvent("BAG_UPDATE") -private.Frame:RegisterEvent("PLAYER_LOGOUT") -private.Frame:SetScript("OnEvent", private.OnEvent) -private.Frame:SetScript("OnUpdate", private.OnUpdate) - --- Auctioneer's debug functions -AucAdvanced.Debug = {} -local addonName = "Auctioneer" -- the addon's name as it will be displayed in - -- the debug messages -------------------------------------------------------------------------------- --- Prints the specified message to nLog. --- --- syntax: --- errorCode, message = debugPrint([message][, category][, title][, errorCode][, level]) --- --- parameters: --- message - (string) the error message --- nil, no error message specified --- category - (string) the category of the debug message --- nil, no category specified --- title - (string) the title for the debug message --- nil, no title specified --- errorCode - (number) the error code --- nil, no error code specified --- level - (string) nLog message level --- Any nLog.levels string is valid. --- nil, no level specified --- --- returns: --- errorCode - (number) errorCode, if one is specified --- nil, otherwise --- message - (string) message, if one is specified --- nil, otherwise -------------------------------------------------------------------------------- -function AucAdvanced.Debug.DebugPrint(message, category, title, errorCode, level) - return DebugLib.DebugPrint(addonName, message, category, title, errorCode, level) -end - -------------------------------------------------------------------------------- --- Used to make sure that conditions are met within functions. --- If test is false, the error message will be written to nLog and the user's --- default chat channel. --- --- syntax: --- assertion = assert(test, message) --- --- parameters: --- test - (any) false/nil, if the assertion failed --- anything else, otherwise --- message - (string) the message which will be output to the user --- --- returns: --- assertion - (boolean) true, if the test passed --- false, otherwise -------------------------------------------------------------------------------- -function AucAdvanced.Debug.Assert(test, message) - return DebugLib.Assert(addonName, test, message) -end - - |