Added libksquirrel for KDE3

git-svn-id: svn://anonsvn.kde.org/home/kde/branches/trinity/libraries/libksquirrel@1095624 283d02a7-25f6-0310-bc7c-ecb5cbfe19da

3 files changed, 324 insertions, 0 deletions

diff --git a/kernel/kls_wbmp/Makefile.am b/kernel/kls_wbmp/Makefile.am
new file mode 100644
index 0000000..9c2d093
--- /dev/null
+++ b/kernel/kls_wbmp/Makefile.am
@@ -0,0 +1,9 @@
+INCLUDES = -I../include
+
+pkglib_LTLIBRARIES = libkls_wbmp.la
+
+libkls_wbmp_la_SOURCES = fmt_codec_wbmp.cpp fmt_codec_wbmp_defs.h
+
+libkls_wbmp_la_LDFLAGS = ${SQ_RELEASE}
+
+libkls_wbmp_la_LIBADD = ${SQ_LOCAL_RPATH}
diff --git a/kernel/kls_wbmp/fmt_codec_wbmp.cpp b/kernel/kls_wbmp/fmt_codec_wbmp.cpp
new file mode 100644
index 0000000..f69dab6
--- /dev/null
+++ b/kernel/kls_wbmp/fmt_codec_wbmp.cpp
@@ -0,0 +1,278 @@
+/*  This file is part of ksquirrel-libs (http://ksquirrel.sf.net)
+
+    Copyright (c) 2005 Dmitry Baryshev <ksquirrel@tut.by>
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation;
+    either version 2 of the License, or (at your option) any later
+    version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public License
+    along with this library; see the file COPYING.  If not, write to
+    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+    Boston, MA 02110-1301, USA.
+*/
+
+
+/*
+ *  The Wireless Application Protocol Bitmap Format (WBMP) is designed for use 
+ *  with applications that operate over wireless communication networks.
+ *  The WBMP format is commonly used in mobile phones (WAP phones) and enables
+ *  graphical information to be sent to the handset.
+ *  This format is very simple and allows to store image only in 1-bit
+ *  format (black and white).
+ */
+
+
+#include <iostream>
+#include <stdio.h>
+#include <string.h>
+
+#include "ksquirrel-libs/fmt_types.h"
+#include "ksquirrel-libs/fmt_utils.h"
+#include "ksquirrel-libs/fileio.h"
+#include "ksquirrel-libs/error.h"
+
+#include "fmt_codec_wbmp_defs.h"
+#include "fmt_codec_wbmp.h"
+
+#include "../xpm/codec_wbmp.xpm"
+
+/*
+ *
+ *  WBMP: Wireless Bitmap Type 0: B/W, Uncompressed Bitmap
+ *  Specification of the WBMP format can be found in the 
+ *  SPEC-WAESpec-19990524.pdf
+ *
+ *  You can download the WAP specification on: http://www.wapforum.com/
+ *
+ */
+
+static const RGB mono[2] = {  RGB(255,255,255), RGB(0,0,0) };
+
+fmt_codec::fmt_codec() : fmt_codec_base()
+{}
+
+fmt_codec::~fmt_codec()
+{}
+
+void fmt_codec::options(codec_options *o)
+{
+    o->version = "0.9.0";
+    o->name = "Wireless Application Protocol Bitmap";
+    o->filter = "*.wbmp ";
+    o->config = "";
+    o->mime = "";
+    o->mimetype = "image/x-wbmp";
+    o->pixmap = codec_wbmp;
+    o->readable = true;
+    o->canbemultiple = false;
+    o->writestatic = false;
+    o->writeanimated = false;
+    o->needtempfile = false;
+}
+
+s32 fmt_codec::read_init(const std::string &file)
+{
+    frs.open(file.c_str(), ios::binary | ios::in);
+
+    if(!frs.good())
+        return SQE_R_NOFILE;
+
+    currentImage = -1;
+
+    finfo.animated = false;
+
+    wbmp.bitmap = NULL;
+
+    return SQE_OK;
+}
+
+s32 fmt_codec::read_next()
+{
+    currentImage++;
+
+    if(currentImage)
+        return SQE_NOTOK;
+
+    fmt_image image;
+
+    u8 type;
+
+    frs.readK(&type, sizeof(u8));
+    
+    wbmp.type = type;
+
+    if(wbmp.type != 0)
+	return SQE_R_BADFILE;
+
+    if(skipheader(frs))
+	return SQE_R_BADFILE;
+
+    wbmp.width = getmbi(frs);
+
+    if(wbmp.width == -1)
+	return SQE_R_BADFILE;
+
+    wbmp.height = getmbi(frs);
+
+    if(wbmp.height == -1)
+	return SQE_R_BADFILE;
+
+    image.w = wbmp.width;
+    image.h = wbmp.height;
+    image.bpp = 1;
+
+    wbmp.bitmap = new s32 [wbmp.width * wbmp.height];
+
+    if(!wbmp.bitmap)
+	return SQE_R_NOMEMORY;
+
+    s32 row, col, byte, pel, pos;
+    u8 b;
+
+    pos = 0;
+
+    for(row = 0;row < wbmp.height;row++)
+    {
+        for(col = 0;col < wbmp.width;)
+        {
+            if(!frs.readK(&b, sizeof(u8)))
+		return SQE_R_BADFILE;
+
+	    byte = b;
+
+            for(pel = 7;pel >= 0;pel--)
+            {
+                if(col++ < wbmp.width)
+                {
+                    if(byte & 1 << pel)
+                        wbmp.bitmap[pos] = WBMP_WHITE;
+                    else
+                        wbmp.bitmap[pos] = WBMP_BLACK;
+
+                    pos++;
+                }
+            }
+	}
+    }
+
+    image.compression = "-";
+    image.colorspace = fmt_utils::colorSpaceByBpp(1);
+
+    finfo.image.push_back(image);
+
+    line = -1;
+
+    return SQE_OK;
+}
+
+s32 fmt_codec::read_next_pass()
+{
+    return SQE_OK;
+}
+
+s32 fmt_codec::read_scanline(RGBA *scan)
+{
+    fmt_image *im = image(currentImage);
+    fmt_utils::fillAlpha(scan, im->w);
+
+    line++;
+
+    for(s32 i = 0;i < im->w;i++)
+	memcpy(scan+i, mono + (wbmp.bitmap[line * im->w + i]), sizeof(RGB));
+
+    return SQE_OK;
+}
+
+void fmt_codec::read_close()
+{
+    frs.close();
+
+    delete [] wbmp.bitmap;
+    wbmp.bitmap = NULL;
+
+    finfo.meta.clear();
+    finfo.image.clear();
+}
+
+/*
+ *
+ * These functions were taken from Wbmp program by Johan Van den Brande
+ *
+ * (c) 2000 Johan Van den Brande <johan@vandenbrande.com>
+ *
+ */
+
+s32 fmt_codec::getmbi(ifstreamK &f)
+{
+    s32 mbi = 0;
+    s8 i;
+
+    do
+    {
+        f.readK(&i, sizeof(s8));
+
+        if(i < 0)
+            return -1;
+
+        mbi = (mbi << 7) | (i & 0x7f);
+
+    }while(i & 0x80);
+
+    return mbi;
+}
+
+s32 fmt_codec::putmbi(s32 i, ofstreamK &f)
+{
+    s32 cnt, l, accu;
+    u8 s;
+
+    /* Get number of septets */
+    cnt = 0;
+    accu = 0;
+
+    while(accu != i)
+        accu += i & 0x7f << 7*cnt++;
+
+    /* Produce the multibyte output */
+    for(l = cnt-1;l > 0;l--)
+    {
+	s = 0x80 | (i & 0x7f << 7*l ) >> 7*l;
+        f.writeK(&s, sizeof(s8));
+    }
+
+    s = i & 0x7f; 
+
+    f.writeK(&s, sizeof(u8));
+
+    return 0;
+}
+
+s32 fmt_codec::skipheader(ifstreamK &f)
+{
+    s8 i;
+    bool b;
+
+    do
+    {
+        b = f.readK(&i, sizeof(s8));
+
+	if(!b)
+	    return -1;
+
+        if(i < 0)
+                return -1;
+
+    }while(i & 0x80);
+
+    return 0;
+}
+
+#include "fmt_codec_cd_func.h"
diff --git a/kernel/kls_wbmp/fmt_codec_wbmp_defs.h b/kernel/kls_wbmp/fmt_codec_wbmp_defs.h
new file mode 100644
index 0000000..b774933
--- /dev/null
+++ b/kernel/kls_wbmp/fmt_codec_wbmp_defs.h
@@ -0,0 +1,37 @@
+/*  This file is part of ksquirrel-libs (http://ksquirrel.sf.net)
+
+    Copyright (c) 2005 Dmitry Baryshev <ksquirrel@tut.by>
+
+    This library is free software; you can redistribute it and/or
+    modify it under the terms of the GNU Library General Public
+    License as published by the Free Software Foundation;
+    either version 2 of the License, or (at your option) any later
+    version.
+
+    This library is distributed in the hope that it will be useful,
+    but WITHOUT ANY WARRANTY; without even the implied warranty of
+    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+    Library General Public License for more details.
+
+    You should have received a copy of the GNU Library General Public License
+    along with this library; see the file COPYING.  If not, write to
+    the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
+    Boston, MA 02110-1301, USA.
+*/
+
+#ifndef KSQUIRREL_READ_IMAGE_wbmp
+#define KSQUIRREL_READ_IMAGE_wbmp
+
+struct Wbmp
+{
+    s32 type;           /* type of the wbmp */
+    s32 width;          /* width of the image */
+    s32 height;         /* height of the image */
+    s32 *bitmap;        /* pointer to data: 0 = WHITE , 1 = BLACK */
+
+}PACKED;
+
+#define WBMP_WHITE  0
+#define WBMP_BLACK  1
+
+#endif