1 /*
2  * Copyright (C) 2007 The Android Open Source Project
3  *
4  * Licensed under the Apache License, Version 2.0 (the "License");
5  * you may not use this file except in compliance with the License.
6  * You may obtain a copy of the License at
7  *
8  *      http://www.apache.org/licenses/LICENSE-2.0
9  *
10  * Unless required by applicable law or agreed to in writing, software
11  * distributed under the License is distributed on an "AS IS" BASIS,
12  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
13  * See the License for the specific language governing permissions and
14  * limitations under the License.
15  */
16 
17 #include <stdlib.h>
18 #include <string.h>
19 #include <unistd.h>
20 
21 #include <fcntl.h>
22 #include <stdio.h>
23 
24 #include <sys/ioctl.h>
25 #include <sys/mman.h>
26 #include <sys/types.h>
27 
28 #include <linux/fb.h>
29 #include <linux/kd.h>
30 
31 #include <png.h>
32 
33 #include "minui.h"
34 
35 #define SURFACE_DATA_ALIGNMENT 8
36 
malloc_surface(size_t data_size)37 static GRSurface* malloc_surface(size_t data_size) {
38     size_t size = sizeof(GRSurface) + data_size + SURFACE_DATA_ALIGNMENT;
39     unsigned char* temp = reinterpret_cast<unsigned char*>(malloc(size));
40     if (temp == NULL) return NULL;
41     GRSurface* surface = reinterpret_cast<GRSurface*>(temp);
42     surface->data = temp + sizeof(GRSurface) +
43         (SURFACE_DATA_ALIGNMENT - (sizeof(GRSurface) % SURFACE_DATA_ALIGNMENT));
44     return surface;
45 }
46 
open_png(const char * name,png_structp * png_ptr,png_infop * info_ptr,png_uint_32 * width,png_uint_32 * height,png_byte * channels)47 static int open_png(const char* name, png_structp* png_ptr, png_infop* info_ptr,
48                     png_uint_32* width, png_uint_32* height, png_byte* channels) {
49     char resPath[256];
50     unsigned char header[8];
51     int result = 0;
52     int color_type, bit_depth;
53     size_t bytesRead;
54 
55     snprintf(resPath, sizeof(resPath)-1, "/res/images/%s.png", name);
56     resPath[sizeof(resPath)-1] = '\0';
57     FILE* fp = fopen(resPath, "rb");
58     if (fp == NULL) {
59         result = -1;
60         goto exit;
61     }
62 
63     bytesRead = fread(header, 1, sizeof(header), fp);
64     if (bytesRead != sizeof(header)) {
65         result = -2;
66         goto exit;
67     }
68 
69     if (png_sig_cmp(header, 0, sizeof(header))) {
70         result = -3;
71         goto exit;
72     }
73 
74     *png_ptr = png_create_read_struct(PNG_LIBPNG_VER_STRING, NULL, NULL, NULL);
75     if (!*png_ptr) {
76         result = -4;
77         goto exit;
78     }
79 
80     *info_ptr = png_create_info_struct(*png_ptr);
81     if (!*info_ptr) {
82         result = -5;
83         goto exit;
84     }
85 
86     if (setjmp(png_jmpbuf(*png_ptr))) {
87         result = -6;
88         goto exit;
89     }
90 
91     png_init_io(*png_ptr, fp);
92     png_set_sig_bytes(*png_ptr, sizeof(header));
93     png_read_info(*png_ptr, *info_ptr);
94 
95     png_get_IHDR(*png_ptr, *info_ptr, width, height, &bit_depth,
96             &color_type, NULL, NULL, NULL);
97 
98     *channels = png_get_channels(*png_ptr, *info_ptr);
99 
100     if (bit_depth == 8 && *channels == 3 && color_type == PNG_COLOR_TYPE_RGB) {
101         // 8-bit RGB images: great, nothing to do.
102     } else if (bit_depth <= 8 && *channels == 1 && color_type == PNG_COLOR_TYPE_GRAY) {
103         // 1-, 2-, 4-, or 8-bit gray images: expand to 8-bit gray.
104         png_set_expand_gray_1_2_4_to_8(*png_ptr);
105     } else if (bit_depth <= 8 && *channels == 1 && color_type == PNG_COLOR_TYPE_PALETTE) {
106         // paletted images: expand to 8-bit RGB.  Note that we DON'T
107         // currently expand the tRNS chunk (if any) to an alpha
108         // channel, because minui doesn't support alpha channels in
109         // general.
110         png_set_palette_to_rgb(*png_ptr);
111         *channels = 3;
112     } else {
113         fprintf(stderr, "minui doesn't support PNG depth %d channels %d color_type %d\n",
114                 bit_depth, *channels, color_type);
115         result = -7;
116         goto exit;
117     }
118 
119     return result;
120 
121   exit:
122     if (result < 0) {
123         png_destroy_read_struct(png_ptr, info_ptr, NULL);
124     }
125     if (fp != NULL) {
126         fclose(fp);
127     }
128 
129     return result;
130 }
131 
132 // "display" surfaces are transformed into the framebuffer's required
133 // pixel format (currently only RGBX is supported) at load time, so
134 // gr_blit() can be nothing more than a memcpy() for each row.  The
135 // next two functions are the only ones that know anything about the
136 // framebuffer pixel format; they need to be modified if the
137 // framebuffer format changes (but nothing else should).
138 
139 // Allocate and return a GRSurface* sufficient for storing an image of
140 // the indicated size in the framebuffer pixel format.
init_display_surface(png_uint_32 width,png_uint_32 height)141 static GRSurface* init_display_surface(png_uint_32 width, png_uint_32 height) {
142     GRSurface* surface = malloc_surface(width * height * 4);
143     if (surface == NULL) return NULL;
144 
145     surface->width = width;
146     surface->height = height;
147     surface->row_bytes = width * 4;
148     surface->pixel_bytes = 4;
149 
150     return surface;
151 }
152 
153 // Copy 'input_row' to 'output_row', transforming it to the
154 // framebuffer pixel format.  The input format depends on the value of
155 // 'channels':
156 //
157 //   1 - input is 8-bit grayscale
158 //   3 - input is 24-bit RGB
159 //   4 - input is 32-bit RGBA/RGBX
160 //
161 // 'width' is the number of pixels in the row.
transform_rgb_to_draw(unsigned char * input_row,unsigned char * output_row,int channels,int width)162 static void transform_rgb_to_draw(unsigned char* input_row,
163                                   unsigned char* output_row,
164                                   int channels, int width) {
165     int x;
166     unsigned char* ip = input_row;
167     unsigned char* op = output_row;
168 
169     switch (channels) {
170         case 1:
171             // expand gray level to RGBX
172             for (x = 0; x < width; ++x) {
173                 *op++ = *ip;
174                 *op++ = *ip;
175                 *op++ = *ip;
176                 *op++ = 0xff;
177                 ip++;
178             }
179             break;
180 
181         case 3:
182             // expand RGBA to RGBX
183             for (x = 0; x < width; ++x) {
184                 *op++ = *ip++;
185                 *op++ = *ip++;
186                 *op++ = *ip++;
187                 *op++ = 0xff;
188             }
189             break;
190 
191         case 4:
192             // copy RGBA to RGBX
193             memcpy(output_row, input_row, width*4);
194             break;
195     }
196 }
197 
res_create_display_surface(const char * name,GRSurface ** pSurface)198 int res_create_display_surface(const char* name, GRSurface** pSurface) {
199     GRSurface* surface = NULL;
200     int result = 0;
201     png_structp png_ptr = NULL;
202     png_infop info_ptr = NULL;
203     png_uint_32 width, height;
204     png_byte channels;
205     unsigned char* p_row;
206     unsigned int y;
207 
208     *pSurface = NULL;
209 
210     result = open_png(name, &png_ptr, &info_ptr, &width, &height, &channels);
211     if (result < 0) return result;
212 
213     surface = init_display_surface(width, height);
214     if (surface == NULL) {
215         result = -8;
216         goto exit;
217     }
218 
219 #if defined(RECOVERY_ABGR) || defined(RECOVERY_BGRA)
220     png_set_bgr(png_ptr);
221 #endif
222 
223     p_row = reinterpret_cast<unsigned char*>(malloc(width * 4));
224     for (y = 0; y < height; ++y) {
225         png_read_row(png_ptr, p_row, NULL);
226         transform_rgb_to_draw(p_row, surface->data + y * surface->row_bytes, channels, width);
227     }
228     free(p_row);
229 
230     *pSurface = surface;
231 
232   exit:
233     png_destroy_read_struct(&png_ptr, &info_ptr, NULL);
234     if (result < 0 && surface != NULL) free(surface);
235     return result;
236 }
237 
res_create_multi_display_surface(const char * name,int * frames,int * fps,GRSurface *** pSurface)238 int res_create_multi_display_surface(const char* name, int* frames, int* fps,
239         GRSurface*** pSurface) {
240     GRSurface** surface = NULL;
241     int result = 0;
242     png_structp png_ptr = NULL;
243     png_infop info_ptr = NULL;
244     png_uint_32 width, height;
245     png_byte channels;
246     png_textp text;
247     int num_text;
248     unsigned char* p_row;
249     unsigned int y;
250 
251     *pSurface = NULL;
252     *frames = -1;
253 
254     result = open_png(name, &png_ptr, &info_ptr, &width, &height, &channels);
255     if (result < 0) return result;
256 
257     *frames = 1;
258     *fps = 20;
259     if (png_get_text(png_ptr, info_ptr, &text, &num_text)) {
260         for (int i = 0; i < num_text; ++i) {
261             if (text[i].key && strcmp(text[i].key, "Frames") == 0 && text[i].text) {
262                 *frames = atoi(text[i].text);
263             } else if (text[i].key && strcmp(text[i].key, "FPS") == 0 && text[i].text) {
264                 *fps = atoi(text[i].text);
265             }
266         }
267         printf("  found frames = %d\n", *frames);
268         printf("  found fps = %d\n", *fps);
269     }
270 
271     if (frames <= 0 || fps <= 0) {
272         printf("bad number of frames (%d) and/or FPS (%d)\n", *frames, *fps);
273         result = -10;
274         goto exit;
275     }
276 
277     if (height % *frames != 0) {
278         printf("bad height (%d) for frame count (%d)\n", height, *frames);
279         result = -9;
280         goto exit;
281     }
282 
283     surface = reinterpret_cast<GRSurface**>(malloc(*frames * sizeof(GRSurface*)));
284     if (surface == NULL) {
285         result = -8;
286         goto exit;
287     }
288     for (int i = 0; i < *frames; ++i) {
289         surface[i] = init_display_surface(width, height / *frames);
290         if (surface[i] == NULL) {
291             result = -8;
292             goto exit;
293         }
294     }
295 
296 #if defined(RECOVERY_ABGR) || defined(RECOVERY_BGRA)
297     png_set_bgr(png_ptr);
298 #endif
299 
300     p_row = reinterpret_cast<unsigned char*>(malloc(width * 4));
301     for (y = 0; y < height; ++y) {
302         png_read_row(png_ptr, p_row, NULL);
303         int frame = y % *frames;
304         unsigned char* out_row = surface[frame]->data +
305             (y / *frames) * surface[frame]->row_bytes;
306         transform_rgb_to_draw(p_row, out_row, channels, width);
307     }
308     free(p_row);
309 
310     *pSurface = reinterpret_cast<GRSurface**>(surface);
311 
312 exit:
313     png_destroy_read_struct(&png_ptr, &info_ptr, NULL);
314 
315     if (result < 0) {
316         if (surface) {
317             for (int i = 0; i < *frames; ++i) {
318                 if (surface[i]) free(surface[i]);
319             }
320             free(surface);
321         }
322     }
323     return result;
324 }
325 
res_create_alpha_surface(const char * name,GRSurface ** pSurface)326 int res_create_alpha_surface(const char* name, GRSurface** pSurface) {
327     GRSurface* surface = NULL;
328     int result = 0;
329     png_structp png_ptr = NULL;
330     png_infop info_ptr = NULL;
331     png_uint_32 width, height;
332     png_byte channels;
333 
334     *pSurface = NULL;
335 
336     result = open_png(name, &png_ptr, &info_ptr, &width, &height, &channels);
337     if (result < 0) return result;
338 
339     if (channels != 1) {
340         result = -7;
341         goto exit;
342     }
343 
344     surface = malloc_surface(width * height);
345     if (surface == NULL) {
346         result = -8;
347         goto exit;
348     }
349     surface->width = width;
350     surface->height = height;
351     surface->row_bytes = width;
352     surface->pixel_bytes = 1;
353 
354 #if defined(RECOVERY_ABGR) || defined(RECOVERY_BGRA)
355     png_set_bgr(png_ptr);
356 #endif
357 
358     unsigned char* p_row;
359     unsigned int y;
360     for (y = 0; y < height; ++y) {
361         p_row = surface->data + y * surface->row_bytes;
362         png_read_row(png_ptr, p_row, NULL);
363     }
364 
365     *pSurface = surface;
366 
367   exit:
368     png_destroy_read_struct(&png_ptr, &info_ptr, NULL);
369     if (result < 0 && surface != NULL) free(surface);
370     return result;
371 }
372 
373 // This function tests if a locale string stored in PNG (prefix) matches
374 // the locale string provided by the system (locale).
matches_locale(const char * prefix,const char * locale)375 bool matches_locale(const char* prefix, const char* locale) {
376     if (locale == NULL) return false;
377 
378     // Return true if the whole string of prefix matches the top part of
379     // locale. For instance, prefix == "en" matches locale == "en_US";
380     // and prefix == "zh_CN" matches locale == "zh_CN_#Hans".
381 
382     return (strncmp(prefix, locale, strlen(prefix)) == 0);
383 }
384 
res_create_localized_alpha_surface(const char * name,const char * locale,GRSurface ** pSurface)385 int res_create_localized_alpha_surface(const char* name,
386                                        const char* locale,
387                                        GRSurface** pSurface) {
388     GRSurface* surface = NULL;
389     int result = 0;
390     png_structp png_ptr = NULL;
391     png_infop info_ptr = NULL;
392     png_uint_32 width, height;
393     png_byte channels;
394     unsigned char* row;
395     png_uint_32 y;
396 
397     *pSurface = NULL;
398 
399     if (locale == NULL) {
400         surface = malloc_surface(0);
401         surface->width = 0;
402         surface->height = 0;
403         surface->row_bytes = 0;
404         surface->pixel_bytes = 1;
405         goto exit;
406     }
407 
408     result = open_png(name, &png_ptr, &info_ptr, &width, &height, &channels);
409     if (result < 0) return result;
410 
411     if (channels != 1) {
412         result = -7;
413         goto exit;
414     }
415 
416     row = reinterpret_cast<unsigned char*>(malloc(width));
417     for (y = 0; y < height; ++y) {
418         png_read_row(png_ptr, row, NULL);
419         int w = (row[1] << 8) | row[0];
420         int h = (row[3] << 8) | row[2];
421         int len = row[4];
422         char* loc = (char*)row+5;
423 
424         if (y+1+h >= height || matches_locale(loc, locale)) {
425             printf("  %20s: %s (%d x %d @ %d)\n", name, loc, w, h, y);
426 
427             surface = malloc_surface(w*h);
428             if (surface == NULL) {
429                 result = -8;
430                 goto exit;
431             }
432             surface->width = w;
433             surface->height = h;
434             surface->row_bytes = w;
435             surface->pixel_bytes = 1;
436 
437             int i;
438             for (i = 0; i < h; ++i, ++y) {
439                 png_read_row(png_ptr, row, NULL);
440                 memcpy(surface->data + i*w, row, w);
441             }
442 
443             *pSurface = reinterpret_cast<GRSurface*>(surface);
444             break;
445         } else {
446             int i;
447             for (i = 0; i < h; ++i, ++y) {
448                 png_read_row(png_ptr, row, NULL);
449             }
450         }
451     }
452 
453 exit:
454     png_destroy_read_struct(&png_ptr, &info_ptr, NULL);
455     if (result < 0 && surface != NULL) free(surface);
456     return result;
457 }
458 
res_free_surface(GRSurface * surface)459 void res_free_surface(GRSurface* surface) {
460     free(surface);
461 }
462