New encoding: danmarc YAZ-692

[yaz-moved-to-github.git] / src / iconv_encode_danmarc.c

diff --git a/src/iconv_encode_danmarc.c b/src/iconv_encode_danmarc.c
new file mode 100644 (file)
index 0000000..1afcf7c
--- /dev/null
+++ b/src/iconv_encode_danmarc.c
@@ -0,0 +1,86 @@
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) 1995-2013 Index Data
+ * See the file LICENSE for details.
+ */
+/**
+ * \file
+ * \brief Danmarc2 character set encoding
+ */
+
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <assert.h>
+#include <stdio.h>
+#include <errno.h>
+#include <string.h>
+
+#include <yaz/xmalloc.h>
+#include "iconv-p.h"
+
+static size_t write_danmarc(yaz_iconv_t cd, yaz_iconv_encoder_t en,
+                           unsigned long x,
+                           char **outbuf, size_t *outbytesleft)
+{
+    unsigned char *outp = (unsigned char *) *outbuf;
+
+    if (x == '@')
+    {
+        if (*outbytesleft < 2)
+        {
+            yaz_iconv_set_errno(cd, YAZ_ICONV_E2BIG);
+            return (size_t)(-1);
+        }
+        *outp++ = x;
+        (*outbytesleft)--;
+        *outp++ = x;
+        (*outbytesleft)--;
+    }
+    else if (x <= 255)
+    {  /* latin-1 range */
+        if (*outbytesleft < 1)
+        {
+            yaz_iconv_set_errno(cd, YAZ_ICONV_E2BIG);
+            return (size_t)(-1);
+        }
+        *outp++ = x;
+        (*outbytesleft)--;
+    }
+    else
+    {  /* full unicode, emit @XXXX */
+        if (*outbytesleft < 6)
+        {
+            yaz_iconv_set_errno(cd, YAZ_ICONV_E2BIG);
+            return (size_t)(-1);
+        }
+        sprintf(*outbuf, "@%04lX", x);
+        outp += 5;
+        (*outbytesleft) -= 5;
+    }
+    *outbuf = (char *) outp;
+    return 0;
+}
+
+yaz_iconv_encoder_t yaz_danmarc_encoder(const char *tocode,
+                                        yaz_iconv_encoder_t e)
+
+{
+    if (!yaz_matchstr(tocode, "danmarc"))
+    {
+        e->write_handle = write_danmarc;
+        return e;
+    }
+    return 0;
+}
+
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+