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

1 files changed, 366 insertions, 0 deletions

diff --git a/iup/src/iup_ledlex.c b/iup/src/iup_ledlex.c
new file mode 100755
index 0000000..3283a43
--- /dev/null
+++ b/iup/src/iup_ledlex.c
@@ -0,0 +1,366 @@
+/** \file
+ * \brief lexical analysis manager for LED
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <stdarg.h>  
+#include <stdio.h>   
+#include <stdlib.h>  
+#include <ctype.h>
+#include <string.h>  
+#include <errno.h>   
+
+#include "iup.h"
+
+#include "iup_class.h"
+#include "iup_ledlex.h"
+#include "iup_str.h"
+#include "iup_table.h"
+#include "iup_register.h"
+
+
+static struct          /* lexical variables */
+{
+  const char* filename;   /* file name */
+  const char* f;
+  FILE* file;             /* file handle */
+  int token;              /* lookahead iLexToken */
+  char name[40960];       /* lexical identifier value */
+  float number;           /* lexical number value */
+  int line;               /* line number */
+  Iclass *ic;             /* control class when func is CONTROL_ */
+} ilex = {NULL, NULL, NULL, 0, "", (float) 0.0, 0, NULL};
+
+static int iLexGetChar (void);
+static int iLexToken(int *erro);
+static int iLexCapture (char* dlm);
+static int iLexSkip (char* dlm);
+static int iLexCaptureAttr (void);
+
+int iupLexStart(const char* filename, int is_file)      /* initialize lexical analysis */
+{
+  ilex.filename = filename;
+  if (is_file)
+  {
+    ilex.file = fopen (ilex.filename,"r");
+    if (!ilex.file)
+      return iupLexError (IUPLEX_FILENOTOPENED, filename);
+  }
+  else
+  {
+    ilex.f = ilex.filename;
+    ilex.file = NULL;
+  }
+  ilex.line = 0;
+  ilex.line = 1;
+  return iupLexAdvance();
+}
+
+void iupLexClose(void)
+{
+  if (!ilex.file)
+    return;
+  fclose (ilex.file);
+  ilex.file = NULL;
+}
+
+static void iLexUngetc(int c)
+{
+  if (ilex.file)
+    ungetc(c, ilex.file);
+  else
+  {
+    if (*ilex.f != 0)
+      *(char*)ilex.f = (char)c;  /* write back to the string ???? */
+  }
+}
+
+static int iLexGetc(void)
+{
+  if (ilex.file)
+    return getc(ilex.file);
+  else
+  {
+    if (*ilex.f != 0)
+      ilex.f++;
+    if (*ilex.f == 0)
+      return EOF;
+    return *ilex.f;
+  }
+}
+
+int iupLexLookAhead(void)
+{
+  return ilex.token;
+}
+
+int iupLexAdvance(void)
+{
+  int erro = 0;
+  ilex.token = iLexToken(&erro);
+  return erro;
+}
+
+int iupLexFollowedBy(int t)
+{
+  return (ilex.token==t);
+}
+
+int iupLexMatch(int t)
+{
+  if (ilex.token==t)
+    return iupLexAdvance();
+  else
+    return iupLexError (IUPLEX_NOTMATCH, ilex.token, t);
+}
+
+
+int iupLexSeenMatch(int t, int *erro)
+{
+  if (ilex.token==t)
+  {
+    *erro = iupLexAdvance();
+    return 1;
+  }
+  else
+    return 0;
+}
+
+unsigned char iupLexByte(void)
+{
+  unsigned int b;
+  sscanf(ilex.name,"%u", &b);  /* read as integer to avoid reading number as characters */
+  if (b>255) b = 255;
+  return (unsigned char)b;
+}
+
+int iupLexInt(void)
+{
+  int i;
+  sscanf(ilex.name,"%d", &i);
+  return i;
+}
+
+float iupLexFloat(void)
+{
+  float f;
+  sscanf(ilex.name,"%g", &f);
+  return f;
+}
+
+char* iupLexGetName(void)
+{
+  if (ilex.name)
+    return iupStrDup(ilex.name);
+  else
+    return NULL;
+}
+
+char* iupLexName(void)
+{
+  return ilex.name;
+}
+
+float iupLexGetNumber(void)
+{
+  return ilex.number;
+}
+
+Iclass *iupLexGetClass(void)
+{
+  return ilex.ic;
+}
+
+static int iLexToken(int *erro)
+{
+  for (;;)
+  {
+    int c = iLexGetChar();
+    switch (c)
+    {
+    case 26:
+    case EOF:
+      return IUPLEX_TK_END;
+
+    case ']':
+      return IUPLEX_TK_ENDATTR;
+
+    case '#':          /* iLexSkip comment */
+    case '%':          /* iLexSkip comment */
+      iLexSkip ("\n\r");
+      continue;
+
+    case ' ':          /* ignore whitespace */
+    case '\t':
+    case '\n':
+    case '\r':
+    case '\f':
+    case '\v':
+      continue;
+
+    case '=':          /* attribuicao */
+      return IUPLEX_TK_SET;
+
+    case ',':
+      return IUPLEX_TK_COMMA;
+
+    case '(':          /* begin parameters */
+      return IUPLEX_TK_BEGP;
+
+    case ')':          /* end parameters */
+      return IUPLEX_TK_ENDP;
+
+    case '[':          /* attributes */
+      if (iLexCaptureAttr() == IUPLEX_TK_END)
+      {
+        *erro=iupLexError (IUPLEX_NOTENDATTR);
+        return 0;
+      }
+      return IUPLEX_TK_ATTR;
+
+    case '\"':          /* string */
+      iLexCapture ("\"");
+      return IUPLEX_TK_STR;
+
+    case '\'':          /* string */
+      iLexCapture ("\'");
+      return IUPLEX_TK_STR;
+
+    default:
+      if (c > 32)          /* identifier */
+      {
+        char class_name[50];
+        iLexUngetc(c);
+        iLexUngetc(iLexCapture ("=[](), \t\n\r\f\v"));
+        iupStrLower(class_name, iupLexName());
+        ilex.ic = iupRegisterFindClass(class_name);
+        if (ilex.ic)
+          return IUPLEX_TK_FUNC;
+        else
+          return IUPLEX_TK_NAME;
+      }
+    }
+    return c;
+  }
+}
+
+static int iLexCapture (char* dlm)
+{
+  int i=0;
+  int c;
+  do
+  {
+    c = iLexGetChar ();
+    if (i < sizeof(ilex.name))
+      ilex.name[i++] = (char) c;
+  } while ((c > 0) && !strchr (dlm,c));
+  ilex.name[i-1]='\0';                            /* discard delimiter */
+  return c;                                      /* return delimiter */
+}
+
+static int iLexCaptureAttr (void)
+{
+  int i=0;
+  int c;
+  int aspas=0;
+  do
+  {
+    c = iLexGetChar ();
+    if (i < sizeof(ilex.name))
+      ilex.name[i++] = (char) c;
+    if (c == '"')
+      ++aspas;
+  } while ((c > 0) && ((aspas & 1) || c != ']'));
+  ilex.name[i-1]='\0';                            /* discard delimiter */
+  return c;                                      /* return delimiter */
+}
+
+static int iLexSkip (char* dlm)
+{
+  int c;
+  do
+  {
+    c = iLexGetChar ();
+  } while ((c > 0) && !strchr (dlm,c));
+  return c;                                      /* return delimiter */
+}
+
+static int iLexGetChar (void)
+{
+  int c = iLexGetc(); if (c == '\n') ++ilex.line;
+  if (c == '\\')
+  {
+    c = iLexGetc();
+    if (c == 'n')
+      return '\n';
+    else if (c == '\\')
+      return '\\';
+  }
+  return c;
+}
+
+static char* iupTokenStr(int t)
+{
+  switch (t)
+  {
+  case IUPLEX_TK_END  : return "end of file";
+  case IUPLEX_TK_BEGP : return "(";
+  case IUPLEX_TK_ENDP : return ")";
+  case IUPLEX_TK_ATTR : return "[";
+  case IUPLEX_TK_STR  : return "string";
+  case IUPLEX_TK_NAME : return "identifier";
+  case IUPLEX_TK_NUMB : return "number";
+  case IUPLEX_TK_SET  : return "=";
+  case IUPLEX_TK_COMMA: return ",";
+  case IUPLEX_TK_FUNC : return "function";
+  case IUPLEX_TK_ENDATTR : return "]";
+  }
+  return "";
+}
+
+static char ilex_erromsg[10240];
+
+char *iupLexGetError(void)
+{
+  return ilex_erromsg;
+}
+
+int iupLexError (int n, ...)
+{
+  char msg[10240];
+  va_list va;
+  va_start(va,n);
+  switch (n)
+  {
+  case IUPLEX_FILENOTOPENED:
+    {
+      char *fn=va_arg(va,char *);
+      sprintf (msg, "cannot open file %s", fn);
+    }
+    break;
+  case IUPLEX_NOTMATCH:
+    {
+      int tr=va_arg(va,int);        /* iLexToken read */
+      int te=va_arg(va,int);        /* iLexToken expected */
+      char *str=iupTokenStr(tr);
+      char *ste=iupTokenStr(te);
+      sprintf (msg, "expected %s but found %s", ste, str);
+    }
+    break;
+  case IUPLEX_NOTENDATTR:
+    {
+      sprintf (msg, "missing ']'");
+    }
+    break;
+  case IUPLEX_PARSEERROR:
+    {
+      char* s=va_arg(va,char*);        /* iLexToken expected */
+      sprintf(msg,"%.*s",(int)(sizeof(msg)-1),s);
+    }
+    break;
+  }
+  va_end(va);
+  sprintf(ilex_erromsg, "led(%s): bad input at line %d - %s\n", ilex.filename, ilex.line, msg);
+  return n;
+}