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

1 files changed, 495 insertions, 0 deletions

diff --git a/iup/srccontrols/matrix/iupmat_numlc.c b/iup/srccontrols/matrix/iupmat_numlc.c
new file mode 100755
index 0000000..e48720a
--- /dev/null
+++ b/iup/srccontrols/matrix/iupmat_numlc.c
@@ -0,0 +1,495 @@
+/** \file
+ * \brief iupmatrix control
+ * change number of columns or lines
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+/**************************************************************************/
+/*  Functions to change the number of lines and columns of the matrix,    */
+/*  after it has been created.                                            */
+/**************************************************************************/
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+
+#include "iup.h"
+#include "iupcbs.h"
+
+#include <cd.h>
+
+#include "iup_object.h"
+#include "iup_attrib.h"
+#include "iup_str.h"
+#include "iup_stdcontrols.h"
+
+#include "iupmat_def.h"
+#include "iupmat_edit.h"
+#include "iupmat_mem.h"
+#include "iupmat_numlc.h"
+#include "iupmat_draw.h"
+
+
+static void iMatrixUpdateLineAttributes(Ihandle* ih, int base, int count, int add)
+{
+#define IMAT_NUM_ATTRIB_LINE 6
+#define IMAT_ATTRIB_LINE_ONLY 3
+  char* attrib_format[IMAT_NUM_ATTRIB_LINE] = {
+    "BGCOLOR%d:*",
+    "FGCOLOR%d:*",
+    "FONT%d:*",
+    "BGCOLOR%d:%d",
+    "FGCOLOR%d:%d",
+    "FONT%d:%d"};
+  char* attrib = iupStrGetMemory(100);
+  int a, lin, col;
+  char* value;
+
+  if (add)  /* ADD */
+  {
+    /* copy the attributes of the moved cells, from base+count to num */
+    /*   do it in reverse order to avoid overlapping */
+    /* then clear the new space starting from base to base+count */
+
+    for(a = 0; a < IMAT_NUM_ATTRIB_LINE; a++)
+    {
+      for(lin = ih->data->lines.num-1; lin >= base+count; lin--)
+      {
+        /* Update the line attributes */
+        if (a < IMAT_ATTRIB_LINE_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], lin-count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+        /* Update the cell attribute */
+        else for(col = 0; col < ih->data->columns.num; col++)
+        {
+          sprintf(attrib, attrib_format[a], lin-count, col);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+      }
+
+      for(lin = base; lin < base+count; lin++)
+      {
+        if (a < IMAT_ATTRIB_LINE_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], lin);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+        else for(col = 0; col < ih->data->columns.num; col++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+      }
+    }
+  }
+  else  /* DEL */
+  {
+    /* copy the attributes of the moved cells from base+count to base */
+    /* then clear the remaining space starting at num */
+
+    for(a = 0; a < IMAT_NUM_ATTRIB_LINE; a++)
+    {
+      for(lin = base; lin < ih->data->lines.num; lin++)
+      {
+        /* Update the line attributes */     
+        if (a < IMAT_ATTRIB_LINE_ONLY)      
+        {
+          sprintf(attrib, attrib_format[a], lin+count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+        /* Update each cell attribute */
+        else for(col = 0; col < ih->data->columns.num; col++) 
+        {
+          sprintf(attrib, attrib_format[a], lin+count, col);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+      }
+
+      for(lin = ih->data->lines.num; lin < ih->data->lines.num+count; lin++)
+      {
+        if (a < IMAT_ATTRIB_LINE_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], lin);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+        else for(col = 0; col < ih->data->columns.num; col++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+      }
+    }
+  }
+}
+
+static void iMatrixUpdateColumnAttributes(Ihandle* ih, int base, int count, int add)
+{
+#define IMAT_NUM_ATTRIB_COL 7
+#define IMAT_ATTRIB_COL_ONLY 4
+  char* attrib_format[IMAT_NUM_ATTRIB_COL] = { 
+    "ALIGNMENT%d",
+    "BGCOLOR*:%d",
+    "FGCOLOR*:%d",
+    "FONT*:%d",
+    "BGCOLOR%d:%d",
+    "FGCOLOR%d:%d",
+    "FONT%d:%d"};
+  char* attrib = iupStrGetMemory(100);
+  int a, col, lin;
+  char* value;
+
+  if (add)  /* ADD */
+  {
+    /* update the attributes of the moved cells, from base+count to num */
+    /*   do it in reverse order to avoid overlapping */
+    /* then clear the new space starting from base to base+count */
+
+    for(a = 0; a < IMAT_NUM_ATTRIB_COL; a++)
+    {
+      for(col = ih->data->columns.num-1; col >= base+count; col--)
+      {
+        /* Update the column attributes */
+        if (a < IMAT_ATTRIB_COL_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], col-count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib,attrib_format[a],col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+        /* Update the cell attributes */
+        else for(lin = 0; lin < ih->data->lines.num; lin++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col-count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+      }
+
+      for(col = base; col < base+count; col++)
+      {
+        if (a < IMAT_ATTRIB_COL_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+        else for(lin = 0; lin < ih->data->lines.num; lin++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+      }
+    }
+  }
+  else   /* DEL */
+  {
+    /* copy the attributes of the moved cells from base+count to base */
+    /* then clear the remaining space starting at num */
+
+    for(a = 0; a < IMAT_NUM_ATTRIB_COL; a++)
+    {
+      for(col = base; col < ih->data->columns.num; col++)
+      {
+        /* Update the column attributes */
+        if (a < IMAT_ATTRIB_COL_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], col+count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+        /* Update the cell attributes */
+        else for(lin = 0; lin < ih->data->lines.num; lin++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col+count);
+          value = iupAttribGet(ih, attrib);
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribStoreStr(ih, attrib, value);
+        }
+      }
+
+      for(col = ih->data->columns.num; col < ih->data->columns.num+count; col++)
+      {
+        if (a < IMAT_ATTRIB_COL_ONLY)
+        {
+          sprintf(attrib, attrib_format[a], col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+        else for(lin = 0; lin < ih->data->lines.num; lin++)
+        {
+          sprintf(attrib, attrib_format[a], lin, col);
+          iupAttribSetStr(ih, attrib, NULL);
+        }
+      }
+    }
+  }
+}
+
+static int iMatrixGetStartEnd(const char* value, int *base, int *count, int max, int del)
+{
+  int ret;
+
+  if (!value)
+    return 0;
+
+  *base = 0; 
+  *count = 1;
+
+  ret = sscanf(value, "%d-%d", base, count);
+  if (ret <= 0 || ret > 2)
+    return 0;
+  if (ret == 1)
+    *count = 1;
+
+  if (*count <= 0)
+    return 0;
+
+  if (del)
+  {
+    if (*base <= 0)  /* the first valid element is always 1 */
+      *base = 1;
+
+    /* when del, base can be at the last element */
+    if (*base > max-1)
+      *base = max-1;
+
+    /* when del, count must be inside the existant range */
+    if (*base + *count > max)
+      *count = max - *base;
+  }
+  else
+  {
+    (*base)++; /* add after the given index, so increment to position the base */
+
+    if (*base <= 0)  /* the first valid element is always 1 */
+      *base = 1;
+
+    /* when add, base can be just after the last element but not more */
+    if (*base > max)
+      *base = max;
+
+    /* when add, count can be any positive value */
+  }
+
+  return 1;
+}
+
+
+/**************************************************************************/
+/* Exported functions                                                     */
+/**************************************************************************/
+
+int iupMatrixSetAddLinAttrib(Ihandle* ih, const char* value)
+{
+  int base, count, lines_num = ih->data->lines.num;
+
+  if (!ih->handle)  /* do not store the action before map */
+    return 0;
+
+  if (!iMatrixGetStartEnd(value, &base, &count, lines_num, 0))
+    return 0;
+
+  /* if the focus cell is after the inserted area */
+  if (ih->data->lines.focus_cell >= base)
+  {
+    /* leave of the edition mode */
+    iupMatrixEditForceHidden(ih);
+
+    /* move it to the same cell */
+    ih->data->lines.focus_cell += count;
+  }
+
+  iupMatrixMemReAllocLines(ih, lines_num, lines_num+count, base);
+
+  ih->data->lines.num += count;
+  ih->data->need_calcsize = 1;
+
+  if (base < lines_num)  /* If before the last line. */
+    iMatrixUpdateLineAttributes(ih, base, count, 1);
+
+  iupMatrixDraw(ih, 1);
+  return 0;
+}
+
+int iupMatrixSetDelLinAttrib(Ihandle* ih, const char* value)
+{
+  int base, count, lines_num = ih->data->lines.num;
+
+  if (!ih->handle)  /* do not store the action before map */
+    return 0;
+
+  if (!iMatrixGetStartEnd(value, &base, &count, lines_num, 1))
+    return 0;
+
+  /* if the focus cell is after the removed area */
+  if (ih->data->lines.focus_cell >= base)
+  {
+    /* leave of the edition mode */
+    iupMatrixEditForceHidden(ih);
+
+    /* if the focus cell is inside the removed area */
+    if (ih->data->lines.focus_cell <= base+count-1)
+      ih->data->lines.focus_cell = base;   /* move it to the first existant cell */
+    else
+      ih->data->lines.focus_cell -= count; /* move it to the same cell */
+  }
+
+  iupMatrixMemReAllocLines(ih, lines_num, lines_num-count, base);
+
+  ih->data->lines.num -= count;
+  ih->data->need_calcsize = 1;
+
+  if (ih->data->lines.focus_cell >= ih->data->lines.num)
+    ih->data->lines.focus_cell = ih->data->lines.num-1;
+  if (ih->data->lines.focus_cell <= 0)
+    ih->data->lines.focus_cell = 1;
+
+  if (base < lines_num)  /* If before the last line. (always true when deleting) */
+    iMatrixUpdateLineAttributes(ih, base, count, 0);
+
+  iupMatrixDraw(ih, 1);
+  return 0;
+}
+
+int iupMatrixSetAddColAttrib(Ihandle* ih, const char* value)
+{
+  int base, count, columns_num = ih->data->columns.num;
+
+  if (!ih->handle)  /* do not store the action before map */
+    return 0;
+
+  if (!iMatrixGetStartEnd(value, &base, &count, columns_num, 0))
+    return 0;
+
+  /* if the focus cell is after the inserted area */
+  if (ih->data->columns.focus_cell >= base)
+  {
+    /* leave the edition mode */
+    iupMatrixEditForceHidden(ih);
+
+    /* move it to the same cell */
+    ih->data->columns.focus_cell += count;
+  }
+
+  iupMatrixMemReAllocColumns(ih, columns_num, columns_num+count, base);
+
+  ih->data->columns.num += count;
+  ih->data->need_calcsize = 1;
+
+  if (base < columns_num)  /* If before the last column. */
+    iMatrixUpdateColumnAttributes(ih, base, count, 1);
+
+  iupMatrixDraw(ih, 1);
+  return 0;
+}
+
+int iupMatrixSetDelColAttrib(Ihandle* ih, const char* value)
+{
+  int base, count, columns_num = ih->data->columns.num;
+
+  if (!ih->handle)  /* do not store the action before map */
+    return 0;
+
+  if (!iMatrixGetStartEnd(value, &base, &count, columns_num, 1))
+    return 0;
+
+  /* if the focus cell is after the removed area */
+  if (ih->data->columns.focus_cell >= base)
+  {
+    /* leave the edition mode */
+    iupMatrixEditForceHidden(ih);
+
+    /* if the focus cell is inside the removed area */
+    if (ih->data->columns.focus_cell <= base+count-1)
+      ih->data->columns.focus_cell = base;    /* move it to the first existant cell */
+    else
+      ih->data->columns.focus_cell -= count;  /* move it to the same cell */
+  }
+
+  iupMatrixMemReAllocColumns(ih, columns_num, columns_num-count, base);
+
+  ih->data->columns.num -= count;
+  ih->data->need_calcsize = 1;
+
+  if (ih->data->columns.focus_cell >= ih->data->columns.num)
+    ih->data->columns.focus_cell = ih->data->columns.num-1;
+  if (ih->data->columns.focus_cell <= 0)
+    ih->data->columns.focus_cell = 1;
+
+  if (base < columns_num)  /* If before the last column. (always true when deleting) */
+    iMatrixUpdateColumnAttributes(ih, base, count, 0);
+
+  iupMatrixDraw(ih, 1);
+  return 0;
+}
+
+int iupMatrixSetNumLinAttrib(Ihandle* ih, const char* value)
+{
+  int num = 0;
+  if (iupStrToInt(value, &num))
+  {
+    if (num < 0) num = 0;
+
+    num++; /* add room for title line */
+
+    /* can be set before map */
+    if (ih->handle)
+    {
+      int base;  /* base is after the end */
+      if (num >= ih->data->lines.num) /* add or alloc */
+        base = ih->data->lines.num;   
+      else
+        base = num;
+      iupMatrixMemReAllocLines(ih, ih->data->lines.num, num, base);  
+    }
+
+    ih->data->lines.num = num;  
+    ih->data->need_calcsize = 1;
+
+    if (ih->handle)
+      iupMatrixDraw(ih, 1);
+  }
+
+  return 0;
+}
+
+int iupMatrixSetNumColAttrib(Ihandle* ih, const char* value)
+{
+  int num = 0;
+  if (iupStrToInt(value, &num))
+  {
+    if (num < 0) num = 0;
+
+    num++; /* add room for title column */
+
+    /* can be set before map */
+    if (ih->handle)
+    {
+      int base;  /* base is after the end */
+      if (num >= ih->data->columns.num) /* add or alloc */
+        base = ih->data->columns.num;
+      else
+        base = num;
+      iupMatrixMemReAllocColumns(ih, ih->data->columns.num, num, base);
+    }
+
+    ih->data->columns.num = num;
+    ih->data->need_calcsize = 1;
+
+    if (ih->handle)
+      iupMatrixDraw(ih, 1);
+  }
+
+  return 0;
+}