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

1 files changed, 181 insertions, 0 deletions

diff --git a/iup/srclua3/il_scanf.c b/iup/srclua3/il_scanf.c
new file mode 100755
index 0000000..d98b586
--- /dev/null
+++ b/iup/srclua3/il_scanf.c
@@ -0,0 +1,181 @@
+/** \file
+ * \brief Iup API in Lua
+ *
+ * See Copyright Notice in "iup.h"
+ */
+ 
+#include <string.h>
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <lua.h>
+#include <lauxlib.h>
+
+#include "iup.h"
+
+#include "iuplua.h"
+#include "il.h"
+
+#include "iup_str.h"
+#include "iup_predial.h"
+
+#define ALLOC(n,t)  ((t *)calloc((n),sizeof(t)))
+#define REQUIRE(b)  {if (!(b)) goto cleanup;}
+
+void iupluaScanf(void)
+{
+  char *format;
+  int i;
+  int fields;
+  int *width = NULL;
+  int *scroll = NULL;
+  char **prompt = NULL;
+  char **text = NULL;
+  char *title = NULL;
+  char *s = NULL;
+  char *s1 = NULL;
+  char *outf = NULL;
+  int indParam;                /* va_list va; */
+
+  format = luaL_check_string(1);
+  fields = iupStrCountChar(format, '\n') - 1;
+  REQUIRE(fields > 0);
+  width = ALLOC(fields, int);
+  REQUIRE(width != NULL);
+  scroll = ALLOC(fields, int);
+  REQUIRE(scroll != NULL);
+  prompt = ALLOC(fields, char *);
+  REQUIRE(prompt != NULL);
+  text = ALLOC(fields, char *);
+  REQUIRE(text != NULL);
+
+  indParam = 2;                /* va_start(va,format); */
+  REQUIRE((s1 = s = (char *) iupStrDup(format)) != NULL);
+  title = iupStrCopyUntil(&s, '\n');
+  REQUIRE(title != NULL);
+  for (i = 0; i < fields; ++i) {
+    int n;
+    prompt[i] = iupStrCopyUntil(&s, '%');
+    REQUIRE(prompt[i] != NULL);
+    n = sscanf(s, "%d.%d", width + i, scroll + i);
+    REQUIRE(n == 2);
+    s = strchr(s, '%');
+    REQUIRE(s != NULL);
+    if (outf) free(outf);
+    outf = iupStrCopyUntil(&s, '\n');
+    text[i] = ALLOC(width[i] + 1, char);
+    REQUIRE(text[i] != NULL);
+
+    switch (s[-2]) {
+        case 'd':
+        case 'i':
+        case 'o':
+        case 'u':
+        case 'x':
+        case 'X':
+          if (s[-3] == 'l')
+            sprintf(text[i], outf, luaL_check_long(indParam++));
+          else if (s[-3] == 'h')
+            sprintf(text[i], outf, (short)luaL_check_int(indParam++));
+          else
+            sprintf(text[i], outf, luaL_check_int(indParam++));
+          break;
+        case 'e':
+        case 'f':
+        case 'g':
+        case 'E':
+        case 'G':
+          if (s[-3] == 'l')
+            sprintf(text[i], outf, luaL_check_number(indParam++));
+          else
+            sprintf(text[i], outf, (float)luaL_check_number(indParam++));
+          break;
+        case 's':
+          sprintf(text[i], outf, (char *)luaL_check_string(indParam++));
+          break;
+        default:
+          goto cleanup;
+    }
+  }
+  /* va_end(va); */
+
+  REQUIRE(iupDataEntry(fields, width, scroll, title, prompt, text)>0);
+
+  /* va_start(va,format); */
+  s = strchr(format, '\n') + 1;
+  for (i = 0; i < fields; ++i) {
+    s = strchr(s, '\n') + 1;
+    switch (s[-2]) {
+        case 'd':
+        case 'u':
+          if (s[-3] == 'l') {
+            long l = 0;
+            sscanf(text[i], "%ld", &l);
+            lua_pushnumber(l);
+          } else if (s[-3] == 'h') {
+            short l = 0;
+            sscanf(text[i], "%hd", &l);
+            lua_pushnumber(l);
+          } else {
+            int l = 0;
+            sscanf(text[i], "%d", &l);
+            lua_pushnumber(l);
+          }
+          break;
+        case 'i':
+        case 'o':
+        case 'x':
+        case 'X':
+          if (s[-3] == 'l') {
+            long l = 0;
+            sscanf(text[i], "%li", &l);
+            lua_pushnumber(l);
+          } else if (s[-3] == 'h') {
+            short l = 0;
+            sscanf(text[i], "%hi", &l);
+            lua_pushnumber(l);
+          } else {
+            int l = 0;
+            sscanf(text[i], "%i", &l);
+            lua_pushnumber(l);
+          }
+          break;
+        case 'e':
+        case 'f':
+        case 'g':
+        case 'E':
+        case 'G':
+          if (s[-3] == 'l') {
+            double l = 0;
+            sscanf(text[i], "%lg", &l);
+            lua_pushnumber(l);
+          } else {
+            float l = 0;
+            sscanf(text[i], "%g", &l);
+            lua_pushnumber(l);
+          }
+          break;
+        case 's':
+          lua_pushstring(text[i]);
+          break;
+    }
+  }
+  /* va_end(va); */
+
+cleanup:
+  if (s1) free(s1);
+  if (title) free(title);
+  if (width) free(width);
+  if (scroll) free(scroll);
+  if (outf) free(outf);
+  if (prompt) {
+    for (i = 0; i < fields; ++i)
+      if (prompt[i]) free(prompt[i]);
+    free(prompt);
+  }
+  if (text) {
+    for (i = 0; i < fields; ++i)
+      if (text[i]) free(text[i]);
+    free(text);
+  }
+}