Initial import. Contains the im, cd and iup librairies, and a "working" Makefile for them under linux.

1 files changed, 204 insertions, 0 deletions

diff --git a/iup/srcconsole/console5.lua b/iup/srcconsole/console5.lua
new file mode 100755
index 0000000..20f74b2
--- /dev/null
+++ b/iup/srcconsole/console5.lua
@@ -0,0 +1,204 @@
+require"iuplua"
+
+iup.console = {}
+
+-- Utilities
+
+function iup.console.printtable(t)
+  local n,v = next(t, nil)
+  print("--printtable Start--")
+  while n do
+    print(tostring(n).."="..tostring(v))
+    n,v = next(t, n)
+  end
+  print("--printtable End--")
+end
+
+function iup.console.print_version_info()
+  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
+
+-- Console Dialog
+
+iup.console.lastfilename = nil -- Last file open
+iup.console.mlCode = iup.multiline{expand="YES", size="200x120", font="COURIER_NORMAL_10"}
+iup.console.lblPosition = iup.label{title="0:0", size="50x"}
+iup.console.lblFileName = iup.label{title="", size="50x", expand="HORIZONTAL"}
+
+function iup.console.mlCode:caret_cb(lin, col)
+  iup.console.lblPosition.title = lin..":"..col
+end
+
+iup.console.butExecute = iup.button{size="50x15", title="Execute",
+                                    action="iup.dostring(iup.console.mlCode.value)"}
+iup.console.butClearCommands = iup.button{size="50x15", title="Clear",
+                                          action="iup.console.mlCode.value=''  iup.console.lblFileName.title = ''  iup.console.lastfilename = nil"}
+iup.console.butLoadFile = iup.button{size="50x15", title="Load..."}
+iup.console.butSaveasFile = iup.button{size="50x15", title="Save As..."}
+iup.console.butSaveFile = iup.button{size="50x15", title="Save"}
+
+function iup.console.butSaveFile:action()
+  if (iup.console.lastfilename == nil) then
+    iup.console.butSaveasFile:action()
+  else
+    newfile = io.open(iup.console.lastfilename, "w+")
+    if (newfile) then
+      newfile:write(iup.console.mlCode.value)
+      newfile:close()
+    else
+      error ("Cannot Save file "..filename)
+    end
+  end
+end
+
+function iup.console.butSaveasFile:action()
+  local fd = iup.filedlg{dialogtype="SAVE", title="Save File",
+                         filter="*.*", filterinfo="All files",allownew=yes}
+  fd:popup(iup.LEFT, iup.LEFT)
+  local status = fd.status
+  iup.console.lastfilename = fd.value
+  iup.console.lblFileName.title = iup.console.lastfilename
+  fd:destroy()
+  if status ~= "-1" then
+    if (iup.console.lastfilename == nil) then
+      error ("Cannot Save file "..filename)
+    end
+    local newfile=io.open(iup.console.lastfilename, "w+")
+    if (newfile) then
+      newfile:write(iup.console.mlCode.value)
+      newfile:close(newfile)
+    else
+      error ("Cannot Save file")
+    end
+   end
+end
+
+function iup.console.LoadFile(filename)
+  local newfile = io.open (filename, "r")
+  if (newfile == nil) then
+    error ("Cannot load file "..filename)
+  else
+    iup.console.mlCode.value=newfile:read("*a")
+    newfile:close (newfile)
+    iup.console.lastfilename = filename
+    iup.console.lblFileName.title = iup.console.lastfilename
+  end
+end
+
+function iup.console.butLoadFile:action()
+  local fd=iup.filedlg{dialogtype="OPEN", title="Load File",
+                       filter="*.*", filterinfo="All 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
+    iup.console.LoadFile(filename)
+  end
+end
+
+iup.console.vbxConsole = iup.vbox
+{
+  iup.frame{iup.hbox{iup.vbox{iup.console.butLoadFile,
+                              iup.console.butSaveFile,
+                              iup.console.butSaveasFile,
+                              iup.console.butClearCommands,
+                              iup.console.butExecute;
+                              margin="0x0", gap="10"},
+                     iup.vbox{iup.console.lblFileName,
+                              iup.console.mlCode,
+                              iup.console.lblPosition;
+                              alignment = "ARIGHT"};
+                     alignment="ATOP"}; title="Commands"}
+   ;alignment="ACENTER", margin="5x5", gap="5"
+}
+
+-- Main Menu Definition.
+
+iup.console.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=iup.console.print_version_info},
+    iup.item{title="About...", action="iup.console.dlgAbout:popup(iup.CENTER, iup.CENTER)"}
+  };title="Help"}
+}
+
+-- Main Dialog Definition.
+
+iup.console.dlgMain = iup.dialog{iup.console.vbxConsole;
+                                 title="IupLua Console",
+                                 menu=iup.console.mnuMain,
+                                 dragdrop = "YES",
+                                 defaultenter=iup.console.butExecute,
+                                 close_cb = "return iup.CLOSE"}
+
+function iup.console.dlgMain:dropfiles_cb(filename, num, x, y)
+  if (num == 0) then
+    iup.console.LoadFile(filename)
+  end
+end
+
+-- About Dialog Definition.
+
+iup.console.dlgAbout = iup.dialog
+{
+  iup.vbox
+  {
+      iup.label{title="IupLua 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
+
+iup.console.dlgMain:show()
+iup.SetFocus(iup.console.mlCode)
+
+iup.MainLoop()
+
+iup.console.dlgMain:destroy()
+iup.console.dlgAbout:destroy()