summaryrefslogtreecommitdiff
path: root/src/haikuimage.c
blob: af3021c5cd9cee71b5d5b010f6055fb6a9dd38f7 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
/* Haiku window system support.
   Copyright (C) 2021-2022 Free Software Foundation, Inc.

This file is part of GNU Emacs.

GNU Emacs is free software: you can redistribute it and/or modify
it under the terms of the GNU General Public License as published by
the Free Software Foundation, either version 3 of the License, or (at
your option) any later version.

GNU Emacs 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 General Public License for more details.

You should have received a copy of the GNU General Public License
along with GNU Emacs.  If not, see <https://www.gnu.org/licenses/>.  */

#include <config.h>

#include "lisp.h"
#include "dispextern.h"
#include "haikuterm.h"
#include "coding.h"

#include "haiku_support.h"

bool
haiku_can_use_native_image_api (Lisp_Object type)
{
  const char *mime_type = NULL;

  if (EQ (type, Qnative_image))
    return 1;

#ifdef HAVE_RSVG
  if (EQ (type, Qsvg))
    return 0;
#endif

  if (EQ (type, Qjpeg))
    mime_type = "image/jpeg";
  else if (EQ (type, Qpng))
    mime_type = "image/png";
#ifndef HAVE_GIF
  else if (EQ (type, Qgif))
    mime_type = "image/gif";
#endif
  else if (EQ (type, Qtiff))
    mime_type = "image/tiff";
  else if (EQ (type, Qbmp))
    mime_type = "image/bmp";
  else if (EQ (type, Qsvg))
    mime_type = "image/svg";
  else if (EQ (type, Qpbm))
    mime_type = "image/pbm";
  /* Don't use native image APIs for image types that have animations,
     since those aren't supported by the Translation Kit.  */
#ifndef HAVE_WEBP
  else if (EQ (type, Qwebp))
    mime_type = "image/webp";
#endif

  if (!mime_type)
    return 0;

  return be_can_translate_type_to_bitmap_p (mime_type);
}

extern int
haiku_load_image (struct frame *f, struct image *img,
		  Lisp_Object spec_file, Lisp_Object spec_data)
{
  eassert (valid_image_p (img->spec));

  void *pixmap = NULL;

  if (STRINGP (spec_file))
    {
      pixmap = be_translate_bitmap_from_file_name
	(SSDATA (ENCODE_UTF_8 (spec_file)));
    }
  else if (STRINGP (spec_data))
    {
      pixmap = be_translate_bitmap_from_memory
	(SSDATA (spec_data), SBYTES (spec_data));
    }

  void *conv = NULL;

  if (!pixmap || !BBitmap_convert (pixmap, &conv))
    {
      add_to_log ("Unable to load image %s", img->spec);
      return 0;
    }

  if (conv)
    {
      BBitmap_free (pixmap);
      pixmap = conv;
    }

  int left, top, right, bottom, stride, mono_p;
  BBitmap_dimensions (pixmap, &left, &top, &right, &bottom, &stride, &mono_p);

  img->width = (1 + right - left);
  img->height = (1 + bottom - top);
  img->pixmap = pixmap;

  return 1;
}

void
syms_of_haikuimage (void)
{
}