From: uz <uz@b7a2c559-68d2-44c3-8de9-860c34a00d81>
Date: Sun, 1 Nov 2009 22:35:22 +0000 (+0000)
Subject: Added tgi_load_vectorfont(). Fixed tgi_free_vectorfont().
X-Git-Tag: V2.13.1~108
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=2e5281fa2de63419df2b4095f1e3c32d8fa75b69;p=cc65

Added tgi_load_vectorfont(). Fixed tgi_free_vectorfont().


git-svn-id: svn://svn.cc65.org/cc65/trunk@4421 b7a2c559-68d2-44c3-8de9-860c34a00d81
---

diff --git a/libsrc/tgi/Makefile b/libsrc/tgi/Makefile
index d1158a7b5..6f7b955b3 100644
--- a/libsrc/tgi/Makefile
+++ b/libsrc/tgi/Makefile
@@ -30,7 +30,8 @@ CFLAGS	= -Osir -g -T -t $(SYS) --forget-inc-paths -I . -I ../../include
 # Object files
 
 C_OBJS =        tgi_load.o              \
-                tgi_load_driver.o
+                tgi_load_driver.o       \
+                tgi_load_vectorfont.o
 
 S_OBJS =       	tgi-kernel.o   	        \
                 tgi_bar.o               \
diff --git a/libsrc/tgi/tgi_free_vectorfont.s b/libsrc/tgi/tgi_free_vectorfont.s
index c8ecdb832..a7181d54f 100644
--- a/libsrc/tgi/tgi_free_vectorfont.s
+++ b/libsrc/tgi/tgi_free_vectorfont.s
@@ -7,5 +7,6 @@
 ; This function is identical to free(void*)
 ;
 
-        .export _tgi_free_vectorfont := free
+        .import _free
+        .export _tgi_free_vectorfont := _free
 
diff --git a/libsrc/tgi/tgi_load_vectorfont.c b/libsrc/tgi/tgi_load_vectorfont.c
new file mode 100644
index 000000000..ad141d098
--- /dev/null
+++ b/libsrc/tgi/tgi_load_vectorfont.c
@@ -0,0 +1,131 @@
+/*****************************************************************************/
+/*                                                                           */
+/*                           tgi_load_vectorfont.c                           */
+/*                                                                           */
+/*                  Loader module for TGI vector font files                  */
+/*                                                                           */
+/*                                                                           */
+/*                                                                           */
+/* (C) 2009,      Ullrich von Bassewitz                                      */
+/*                Roemerstrasse 52                                           */
+/*                D-70794 Filderstadt                                        */
+/* EMail:         uz@cc65.org                                                */
+/*                                                                           */
+/*                                                                           */
+/* This software is provided 'as-is', without any expressed or implied       */
+/* warranty.  In no event will the authors be held liable for any damages    */
+/* arising from the use of this software.                                    */
+/*                                                                           */
+/* Permission is granted to anyone to use this software for any purpose,     */
+/* including commercial applications, and to alter it and redistribute it    */
+/* freely, subject to the following restrictions:                            */
+/*                                                                           */
+/* 1. The origin of this software must not be misrepresented; you must not   */
+/*    claim that you wrote the original software. If you use this software   */
+/*    in a product, an acknowledgment in the product documentation would be  */
+/*    appreciated but is not required.                                       */
+/* 2. Altered source versions must be plainly marked as such, and must not   */
+/*    be misrepresented as being the original software.                      */
+/* 3. This notice may not be removed or altered from any source              */
+/*    distribution.                                                          */
+/*                                                                           */
+/*****************************************************************************/
+
+
+
+#include <stdlib.h>
+#include <string.h>
+#include <fcntl.h>
+#include <unistd.h>
+
+#include <tgi.h>
+#include <tgi/tgi-kernel.h>
+#include <tgi/tgi-vectorfont.h>
+
+
+
+/*****************************************************************************/
+/*                                   Code                                    */
+/*****************************************************************************/
+
+
+
+const tgi_vectorfont* __fastcall__ tgi_load_vectorfont (const char* name)
+/* Load a vector font into memory and return it. In case of errors, NULL is
+ * returned and an error is set, which can be retrieved using tgi_geterror.
+ * To use the font, it has to be installed using tgi_install_vectorfont.
+ */
+{
+    static const char Magic[4] = {
+        0x54, 0x43, 0x48, TGI_VF_VERSION
+    };
+
+    tgi_vectorfont_header H;
+    int                   F;
+    tgi_vectorfont*       Font = 0;
+    unsigned              V;
+    unsigned char         I;
+
+
+    /* Open the file */
+    F = open (name, O_RDONLY);
+    if (F < 0) {
+        /* Cannot open file */
+        goto LoadError;
+    }
+
+    /* Read the header */
+    if (read (F, &H, sizeof (H)) != sizeof (H)) {
+        /* Cannot read header bytes */
+        goto LoadError;
+    }
+
+    /* Check the header */
+    if (memcmp (&H, Magic, sizeof (Magic)) != 0) {
+        /* Header magic not ok */
+        goto LoadError;
+    }
+
+    /* Allocate memory for the data */
+    Font = malloc (H.size);
+    if (Font == 0) {
+        /* Out of memory */
+        goto LoadError;
+    }
+
+    /* Read the whole font file into the buffer */
+    if (read (F, Font, H.size) != H.size) {
+        /* Problem reading font data */
+        free (Font);
+        goto LoadError;
+    }
+
+    /* Close the file */
+    close (F);
+
+    /* Fix the offset pointers. When loaded, they contain numeric offsets
+     * into the VectorOps, with the start of the VectorOps at offset zero.
+     * We will add a pointer to the VectorOps to make them actual pointers
+     * that may be used independently from anything else.
+     */
+    V = (unsigned) &Font->vec_ops;
+    for (I = 0; I < TGI_VF_CCOUNT; ++I) {
+        Font->chars[I] += V;
+    }
+
+    /* Return the vector font loaded */
+    return Font;
+
+LoadError:
+    /* Some sort of load problem. If the file is still open, be sure to
+     * close it
+     */
+    if (F >= 0) {
+        close (F);
+    }
+    tgi_error = TGI_ERR_CANNOT_LOAD;
+    return 0;
+}
+
+
+