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

7 files changed, 344 insertions, 0 deletions

diff --git a/iup/srcim/Makefile b/iup/srcim/Makefile
new file mode 100755
index 0000000..933ded1
--- /dev/null
+++ b/iup/srcim/Makefile
@@ -0,0 +1,6 @@
+
+.PHONY: do_all iupim
+do_all: iupim
+
+iupim:
+	@$(MAKE) --no-print-directory -f ../tecmake_compact.mak 
diff --git a/iup/srcim/config.mak b/iup/srcim/config.mak
new file mode 100755
index 0000000..8feb290
--- /dev/null
+++ b/iup/srcim/config.mak
@@ -0,0 +1,15 @@
+PROJNAME = iup
+LIBNAME  = iupim
+OPT = YES
+
+USE_IM = Yes 
+
+ifdef DBG
+  DEFINES += IUP_ASSERT
+endif  
+
+INCLUDES = ../include ../src
+LDIR = ../lib/$(TEC_UNAME)  
+LIBS = iup
+
+SRC = iup_im.c
diff --git a/iup/srcim/iup_im.c b/iup/srcim/iup_im.c
new file mode 100755
index 0000000..c26a3ff
--- /dev/null
+++ b/iup/srcim/iup_im.c
@@ -0,0 +1,306 @@
+/** \file
+ * \brief iupim utilities
+ *
+ * See Copyright Notice in "iup.h"
+ */
+
+#include <im.h>
+#include <im_convert.h>
+#include <im_counter.h>
+#include <im_util.h>
+#include <im_image.h>
+
+#include "iup.h"
+#include "iupim.h"
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+
+#include "iup_object.h"
+#include "iup_assert.h"
+#include "iup_str.h"
+#include "iup_image.h"
+
+
+static void PrintError(int error)
+{
+  char* lang = IupGetLanguage();
+  char* msg;
+  if (iupStrEqualNoCase(lang, "ENGLISH"))
+  {
+    switch (error)
+    {
+    case IM_ERR_OPEN:
+      msg = "Error Opening File.\n";
+      break;
+    case IM_ERR_MEM:
+      msg = "Insuficient memory.\n";
+      break;
+    case IM_ERR_ACCESS:
+      msg = "Error Accessing File.\n";
+      break;
+    case IM_ERR_DATA:
+      msg = "Image type not Suported.\n";
+      break;
+    case IM_ERR_FORMAT:
+      msg = "Invalid Format.\n";
+      break;
+    case IM_ERR_COMPRESS:
+      msg = "Invalid or unsupported compression.\n";
+      break;
+    default:
+      msg = "Unknown Error.\n";
+    }
+  }
+  else
+  {
+    switch (error)
+    {
+    case IM_ERR_OPEN:
+      msg = "Erro Abrindo Arquivo.\n";
+      break;
+    case IM_ERR_MEM:
+      msg = "Memória Insuficiente.\n";
+      break;
+    case IM_ERR_ACCESS:
+      msg = "Erro Acessando Arquivo.\n";
+      break;
+    case IM_ERR_DATA:
+      msg = "Tipo de Imagem não Suportado.\n";
+      break;
+    case IM_ERR_FORMAT:
+      msg = "Formato Inválido.\n";
+      break;
+    case IM_ERR_COMPRESS:
+      msg = "Compressão Inválida ou não Suportada.\n";
+      break;
+    default:
+      msg = "Erro Desconhecido.\n";
+    }
+  }
+
+  IupMessage("Error", msg);
+}
+
+Ihandle* IupLoadImage(const char* file_name)
+{
+  long palette[256];
+  int i, error, width, height, color_mode, flags,
+      data_type, palette_count, has_alpha = 0;
+  Ihandle* iup_image = NULL;
+  const unsigned char* transp_index;
+  void* image_data = NULL;
+  imCounterCallback old_callback;
+  imFile* ifile;
+
+  iupASSERT(file_name);
+  if (!file_name)
+    return NULL;
+
+  old_callback = imCounterSetCallback(NULL, NULL);
+
+  ifile = imFileOpen(file_name, &error);
+  if (error)
+    goto load_finish;
+
+  error = imFileReadImageInfo(ifile, 0, &width, &height, &color_mode, &data_type);
+  if (error)
+    goto load_finish;
+
+  flags = IM_TOPDOWN;
+  flags |= IM_PACKED;
+  if (imColorModeHasAlpha(color_mode))
+  {
+    has_alpha = 1;
+    flags |= IM_ALPHA;
+  }
+
+  color_mode = imColorModeToBitmap(color_mode);
+  data_type = IM_BYTE;
+
+  image_data = malloc(imImageDataSize(width, height, flags|color_mode, data_type));
+  if (!image_data)
+    goto load_finish;
+
+  error = imFileReadImageData(ifile, image_data, 1, flags);
+  if (error)
+    goto load_finish;
+
+  if (color_mode == IM_RGB)
+  {
+    if (has_alpha)
+      iup_image = IupImageRGBA(width, height, (unsigned char*)image_data);
+    else
+      iup_image = IupImageRGB(width, height, (unsigned char*)image_data);
+    palette_count = 0;
+  }
+  else
+  {
+    imFileGetPalette(ifile, palette, &palette_count);
+    iup_image = IupImage(width, height, (unsigned char*)image_data);
+  }
+
+  for (i = 0; i < palette_count; i++)
+  {
+    char attr[6], color[30];
+    unsigned char r, g, b;
+
+    sprintf(attr, "%d", i);
+    imColorDecode(&r, &g, &b, palette[i]);
+    sprintf(color, "%d %d %d", (int)r, (int)g, (int)b);
+
+    IupStoreAttribute(iup_image, attr, color); 
+  }
+
+  transp_index = imFileGetAttribute(ifile, "TransparencyIndex", NULL, NULL);
+  if (transp_index)
+  {
+    char attr[6];
+    sprintf(attr, "%d", (int)(*transp_index));
+    IupSetAttribute(iup_image, attr, "BGCOLOR"); 
+  }
+
+load_finish:
+  imCounterSetCallback(NULL, old_callback);
+  if (ifile) imFileClose(ifile);
+  if (image_data) free(image_data);
+  if (error) PrintError(error);
+  return iup_image;
+}
+
+int IupSaveImage(Ihandle* ih, const char* file_name, const char* format)
+{
+  int width, height, i, bpp;
+  unsigned char* data;
+  int error;
+  long palette[256];
+  imFile* ifile;
+
+  iupASSERT(iupObjectCheck(ih));
+  if (!iupObjectCheck(ih))
+    return 0;
+
+  iupASSERT(file_name);
+  if (!file_name)
+    return 0;
+
+  ifile = imFileNew(file_name, format, &error);
+  if (!ifile)
+  {
+    PrintError(error);
+    return 0;
+  }
+
+  data = (unsigned char*)IupGetAttribute(ih, "WID");
+
+  width = IupGetInt(ih, "WIDTH");
+  height = IupGetInt(ih, "HEIGHT");
+  bpp = IupGetInt(ih, "BPP");
+
+  if (bpp == 24)
+    error = imFileWriteImageInfo(ifile, width, height, IM_RGB|IM_TOPDOWN|IM_PACKED, IM_BYTE);
+  else if (bpp == 32)
+    error = imFileWriteImageInfo(ifile, width, height, IM_RGB|IM_TOPDOWN|IM_PACKED|IM_ALPHA, IM_BYTE);
+  else /* bpp == 8 */
+  {
+    for(i = 0; i < 256; i++)
+    {
+      unsigned int r, g, b;
+      char str[20];
+      char* color;
+
+      sprintf(str, "%d", i);
+      color = IupGetAttribute(ih, str);
+      if (!color)
+        break;
+
+      if (strcmp(color, "BGCOLOR") == 0)
+      {
+        unsigned char transp_index = (unsigned char)i;
+        imFileSetAttribute(ifile, "TransparencyIndex", IM_BYTE, 1, &transp_index);
+        palette[i] = imColorEncode(0, 0, 0);
+      }
+      else
+      {
+        sscanf(color, "%d %d %d", &r, &g, &b);
+        palette[i] = imColorEncode((unsigned char)r, (unsigned char)g, (unsigned char)b);
+      }
+    }
+
+    imFileSetPalette(ifile, palette, i);
+
+    error = imFileWriteImageInfo(ifile, width, height, IM_MAP|IM_TOPDOWN, IM_BYTE);
+  }
+
+  if (error == IM_ERR_NONE)
+    error = imFileWriteImageData(ifile, data);
+
+  imFileClose(ifile); 
+
+  if (error)
+    PrintError(error);
+
+  return error == IM_ERR_NONE? 1: 0;
+}
+
+/******************************************************************************/
+
+static void iInitColors(iupColor* colors, int count, long* palette)
+{
+  int i;
+  for (i=0; i< count; i++)
+  {
+    imColorDecode(&(colors[i].r), &(colors[i].g), &(colors[i].b), palette[i]);
+    colors[i].a = 0;
+  }
+}
+
+static void iInitPalette(long* palette, int count, iupColor* colors)
+{
+  int i;
+  for (i=0; i< count; i++)
+  {
+    palette[i] = imColorEncode(colors[i].r, colors[i].g, colors[i].b);
+  }
+}
+
+void* IupGetImageNativeHandle(imImage* image)
+{
+  int bpp = image->depth*8;
+  iupColor colors[256];
+  iInitColors(colors, image->palette_count, image->palette);
+  if (image->has_alpha && bpp == 24)
+    bpp = 32;
+  return iupdrvImageCreateImageRaw(image->width, image->height, bpp, colors, image->palette_count, image->data[0]);
+}
+
+imImage* IupGetNativeHandleImage(void* handle)
+{
+  int width, height, bpp;
+  iupColor colors[256];
+  int colors_count = 0;
+  if (iupdrvImageGetRawInfo(handle, &width, &height, &bpp, colors, &colors_count))
+  {
+    imImage* image = imImageCreate(width, height, bpp>8? IM_RGB: IM_MAP, IM_BYTE);
+    if (image)
+    {
+      if (bpp==32)
+        imImageAddAlpha(image);
+
+      if (bpp<=8 && colors_count)
+      {
+        long* palette = (long*)malloc(256*sizeof(long));
+        iInitPalette(palette, colors_count, colors);
+        imImageSetPalette(image, palette, colors_count);
+      }
+
+      iupdrvImageGetRawData(handle, image->data[0]);
+        
+      return image;
+    }
+
+    iupdrvImageDestroy(handle, IUPIMAGE_IMAGE);
+  }
+  return NULL;
+}
diff --git a/iup/srcim/iupim.def b/iup/srcim/iupim.def
new file mode 100755
index 0000000..1014c9b
--- /dev/null
+++ b/iup/srcim/iupim.def
@@ -0,0 +1,3 @@
+EXPORTS
+IupLoadImage
+IupSaveImage
diff --git a/iup/srcim/iupim.dep b/iup/srcim/iupim.dep
new file mode 100644
index 0000000..c19b469
--- /dev/null
+++ b/iup/srcim/iupim.dep
@@ -0,0 +1,7 @@
+$(OBJDIR)/iup_im.o: iup_im.c ../../im/include/im.h ../../im/include/old_im.h \
+  ../../im/include/im_convert.h ../../im/include/im_image.h \
+  ../../im/include/im_counter.h ../../im/include/im_util.h \
+  ../../im/include/im_image.h ../include/iup.h ../include/iupkey.h \
+  ../include/iupdef.h ../include/iupim.h ../src/iup_object.h \
+  ../src/iup_class.h ../src/iup_table.h ../src/iup_classbase.h \
+  ../src/iup_assert.h ../src/iup_str.h ../src/iup_image.h
diff --git a/iup/srcim/make_uname b/iup/srcim/make_uname
new file mode 100755
index 0000000..cc4b881
--- /dev/null
+++ b/iup/srcim/make_uname
@@ -0,0 +1,3 @@
+#This builds all the libraries of the folder for 1 uname
+
+tecmake $1 $2 $3 $4 $5 $6 $7
diff --git a/iup/srcim/make_uname.bat b/iup/srcim/make_uname.bat
new file mode 100755
index 0000000..f0a0722
--- /dev/null
+++ b/iup/srcim/make_uname.bat
@@ -0,0 +1,4 @@
+@echo off
+REM This builds all the libraries of the folder for 1 uname
+
+call tecmake %1 %2 %3 %4 %5 %6