vpdf/clipboard.c

   1 /*
   2  *  Multiview 3
   3  *
   4  *  Copyright © 2007-2011 Ilkka Lehtoranta <ilkleht@yahoo.com>
   5  *  All rights reserved.
   6  *
   7  *  $Id$
   8  */
   9
  10 #warning "!!!!!!!REPLACE THIS WITH SOME SYSTEM SOLUTION!!!!!!!"
  11 #define USE_INLINE_STDARG 1
  12
  13 #include <memory.h>
  14 #include <stdlib.h>
  15 #include <string.h>
  16 #include <devices/clipboard.h>
  17 #if defined(__AROS__)
  18 // FIXMDE: AROS
  19 #define CODESET_UTF8 1
  20 #include <clib/arossupport_protos.h>
  21 #else
  22 #include <libraries/charsets.h>
  23 #endif
  24 #include <libraries/locale.h>
  25 #include <proto/alib.h>
  26 #if !defined(__AROS__)
  27 #include <proto/charsets.h>
  28 #endif
  29 #include <proto/datatypes.h>
  30 #include <proto/dos.h>
  31 #include <proto/exec.h>
  32 #include <proto/iffparse.h>
  33 #include <proto/intuition.h>
  34
  35 #define ID_FTXT MAKE_ID('F','T','X','T')
  36 #define ID_CHRS MAKE_ID('C','H','R','S')
  37 #define ID_UTF8 MAKE_ID('U','T','F','8')
  38
  39
  40 STATIC APTR clipboard_open(void)
  41 {
  42         struct IOClipReq *io;
  43         struct MsgPort *mp;
  44
  45         mp = CreateMsgPort();
  46
  47         if ((io = (struct IOClipReq *)CreateIORequest(mp,sizeof(struct IOClipReq))))
  48         {
  49                 if (!(OpenDevice("clipboard.device", 0, (struct IORequest *)io, 0)))
  50                 {
  51                         return io;
  52                 }
  53                 DeleteIORequest((struct IORequest *)io);
  54         }
  55
  56         DeleteMsgPort(mp);
  57         return NULL;
  58 }
  59
  60
  61 STATIC void clipboard_close(struct IOClipReq *io)
  62 {
  63         if (io)
  64         {
  65                 struct MsgPort *mp;
  66
  67                 mp = io->io_Message.mn_ReplyPort;
  68
  69                 CloseDevice((struct IORequest *)io);
  70                 DeleteIORequest((struct IORequest *)io);
  71                 DeleteMsgPort(mp);
  72         }
  73 }
  74
  75
  76 STATIC ULONG clipboard_write_data(struct IOClipReq *io, CONST_APTR data, ULONG len)
  77 {
  78         LONG rc;
  79
  80         io->io_Command = CMD_WRITE;
  81         io->io_Data    = (APTR)data;
  82         io->io_Length  = len;
  83         DoIO( (struct IORequest *)io);
  84
  85         if (io->io_Actual != len)
  86         {
  87                 io->io_Error = 1;
  88         }
  89
  90         rc = io->io_Error ? FALSE : TRUE;
  91         return rc;
  92 }
  93
  94
  95 STATIC VOID clipboard_pad_text(struct IOClipReq *io, ULONG textlen)
  96 {
  97         if (textlen & 1) clipboard_write_data(io, "", 1);
  98 }
  99
 100
 101 STATIC ULONG clipboard_write_header_and_text(struct IOClipReq *io, CONST_STRPTR string, ULONG slen, ULONG ulen)
 102 {
 103         ULONG rc;
 104
 105         struct
 106         {
 107                 ULONG form;
 108                 ULONG totalsize;
 109                 ULONG ftxt;
 110                 ULONG type;
 111                 ULONG strlen;
 112         } iffheader;
 113
 114         io->io_Offset = 0;
 115         io->io_Error  = 0;
 116 //      io->io_ClipID = 0;
 117
 118         /* FIXME: For correct operation we should also store font name. Used font
 119          * is relevant with guides written in Japanese for example.
 120          */
 121
 122         iffheader.form      = ID_FORM;
 123         iffheader.totalsize = (slen & 1 ? slen + 1 : slen) + (ulen & 1 ? ulen + 1 : ulen) + 12 + 8;
 124         iffheader.ftxt      = ID_FTXT;
 125         iffheader.type      = ID_CHRS;
 126         iffheader.strlen    = slen;
 127
 128         rc = FALSE;
 129
 130         if (clipboard_write_data(io, &iffheader, sizeof(iffheader)))
 131         {
 132                 if (clipboard_write_data(io, string, slen))
 133                 {
 134                         clipboard_pad_text(io, slen);
 135                         rc = TRUE;
 136                 }
 137         }
 138
 139         return rc;
 140 }
 141
 142
 143 STATIC ULONG clipboard_write_utf8(struct IOClipReq *io, CONST_STRPTR utext, ULONG ulen)
 144 {
 145         ULONG rc;
 146
 147         struct
 148         {
 149                 ULONG type;
 150                 ULONG strlen;
 151         } utf8_header;
 152
 153         /* FIXME: For correct operation we should also store font name. Used font
 154          * is relevant with guides written in Japanese for example.
 155          */
 156
 157         utf8_header.type   = ID_UTF8;
 158         utf8_header.strlen = ulen;
 159
 160         rc = FALSE;
 161
 162         if (clipboard_write_data(io, &utf8_header, sizeof(utf8_header)))
 163         {
 164                 if (clipboard_write_data(io, utext, ulen))
 165                 {
 166                         clipboard_pad_text(io, ulen);
 167                         rc = TRUE;
 168                 }
 169         }
 170
 171         return rc;
 172 }
 173
 174 STATIC VOID clipboard_finalize(struct IOClipReq *io)
 175 {
 176         io->io_Command = CMD_UPDATE;
 177         DoIO((struct IORequest *)io);
 178 }
 179
 180 static void clips_write(CONST_STRPTR stext, LONG slen, CONST_STRPTR utext, LONG ulen)
 181 {
 182         APTR ctx;
 183
 184         if ((ctx = clipboard_open()))
 185         {
 186                 if (clipboard_write_header_and_text(ctx, stext, slen, ulen))
 187                 {
 188                         if (clipboard_write_utf8(ctx, utext, ulen))
 189                         {
 190                         }
 191                 }
 192
 193                 clipboard_finalize(ctx);
 194                 clipboard_close(ctx);
 195         }
 196 }
 197
 198 //==============================================================================
 199 // This function is fully automatic and is used for writing a single
 200 // null-terminated buffer of text.
 201 //
 202 // codeset is either CODESET_LATIN1 or CODESET_UTF8
 203
 204 VOID clipboard_write_text(CONST_STRPTR string, ULONG codeset)
 205 {
 206 #if defined(__AROS__)
 207     kprintf("[clipboard_write_text] not implemented\n");
 208 // FIXME: AROS (maybe codesets.library)
 209 #else
 210         if (string)
 211         {
 212                 struct Library *CharsetsBase = OpenLibrary("charsets.library", 52);
 213
 214                 if (CharsetsBase)
 215                 {
 216                         CONST_STRPTR stext = stext, utext = utext;
 217                         STRPTR buf;
 218                         LONG slen = slen, ulen = ulen, buflen, srcmib, dstmib;
 219
 220                         buflen = strlen(string) + 1;
 221
 222                         if (codeset == CODESET_UTF8)
 223                         {
 224                                 srcmib = MIBENUM_UTF_8;
 225                                 dstmib = MIBENUM_SYSTEM;
 226                                 ulen   = buflen;
 227                                 utext  = string;
 228                         }
 229                         else    // Some system default maybe, who knows
 230                         {
 231                                 srcmib = MIBENUM_SYSTEM;
 232                                 dstmib = MIBENUM_UTF_8;
 233                                 slen   = buflen;
 234                                 stext  = string;
 235                         }
 236
 237                         ConvertTags((STRPTR)string, -1, NULL, -1, srcmib, dstmib, CST_GetDestBytes, (IPTR)&buflen, TAG_DONE);
 238                         buf = AllocTaskPooled(buflen);
 239
 240                         if (buf)
 241                         {
 242                                 if (codeset == CODESET_UTF8)
 243                                 {
 244                                         slen  = buflen;
 245                                         stext = buf;
 246                                 }
 247                                 else
 248                                 {
 249                                         ulen  = buflen;
 250                                         utext = buf;
 251                                 }
 252
 253                                 ConvertTags((STRPTR)string, -1, buf, buflen, srcmib, dstmib, TAG_DONE);
 254
 255                                 clips_write(stext, slen - 1, utext, ulen - 1);  // do not write terminating NULL
 256
 257                                 FreeTaskPooled(buf, buflen);
 258                         }
 259
 260                         CloseLibrary(CharsetsBase);
 261                 }
 262         }
 263 #endif
 264 }
 265