add shutdown fix to missing extdata error

* reload lists after qr code is scanned

* move "press R to exit" to bottom screen

.gitmodules

@@ -1,3 +0,0 @@
-[submodule "source/pp2d"]
-	path = source/pp2d
-	url = https://github.com/BernardoGiordano/pp2d.git

Makefile

@@ -11,14 +11,14 @@ include $(DEVKITARM)/3ds_rules
 
 # Your values.
 APP_TITLE           :=	Anemone3DS
-APP_DESCRIPTION     :=	A complete themeing tool for the 3DS
+APP_DESCRIPTION     :=	A complete theming tool for the 3DS
 APP_AUTHOR          :=	astronautlevel and daedreth
 
 
 TARGET              :=	$(subst $e ,_,$(notdir $(APP_TITLE)))
 OUTDIR              :=	out
 BUILD               :=	build
-SOURCES             :=	source source/pp2d/pp2d source/minizip
+SOURCES             :=	source source/pp2d/pp2d source/minizip source/quirc
 INCLUDES            :=	include
 ROMFS               :=	romfs
 
@@ -33,7 +33,7 @@ BANNER_IMAGE        :=	meta/banner.png
 RSF_PATH            :=	meta/app.rsf
 
 # If left blank, makerom will use the default Homebrew logo
-LOGO                :=	
+LOGO                :=	meta/logo.bin
 
 
 # If left blank, makerom will use default values (0xff3ff and CTR-P-CTAP, respectively)
@@ -49,11 +49,16 @@ ICON_FLAGS          :=	nosavebackups,visible
 #---------------------------------------------------------------------------------
 ARCH	:=	-march=armv6k -mtune=mpcore -mfloat-abi=hard -mtp=soft
 
-CFLAGS	:=	-g -Wall -Wextra -mword-relocations \
+CFLAGS	:=	-g -Wall -Wextra -O2 -mword-relocations \
 			-ffunction-sections \
 			$(ARCH)
 
-CFLAGS	+=	$(INCLUDE) -DARM11 -D_3DS -D_GNU_SOURCE
+revision := $(shell git describe --tags --match v[0-9]* --abbrev=8 | sed 's/-[0-9]*-g/-/')
+
+CFLAGS	+=	$(INCLUDE) -DARM11 -D_3DS -D_GNU_SOURCE -DVERSION="\"$(revision)\"" -DUSER_AGENT="\"$(APP_TITLE)/$(revision)\""
+ifneq ($(strip $(CITRA_MODE)),)
+	CFLAGS += -DCITRA_MODE
+endif
 
 CXXFLAGS	:= $(CFLAGS) -fno-rtti -fno-exceptions -std=gnu++11
 
@@ -144,6 +149,9 @@ all: 3dsx cia
 3dsx: $(BUILD) $(OUTPUT).3dsx
 
 cia : $(BUILD) $(OUTPUT).cia
+
+citra: export CITRA_MODE = 1
+citra: 3dsx
 #---------------------------------------------------------------------------------
 $(BUILD):
 	@mkdir -p $(OUTDIR)
@@ -167,9 +175,9 @@ MAKEROM		?=	makerom
 
 MAKEROM_ARGS		:=	-elf "$(OUTPUT).elf" -rsf "$(RSF_PATH)" -banner "$(BUILD)/banner.bnr" -icon "$(BUILD)/icon.icn" -DAPP_TITLE="$(APP_TITLE)" -DAPP_PRODUCT_CODE="$(PRODUCT_CODE)" -DAPP_UNIQUE_ID="$(UNIQUE_ID)"
 
-ifneq ($(strip $(ROMFS)),)
-	MAKEROM_ARGS	+=	 -romfs "$(BUILD)/romfs.bin"
-endif
+#ifneq ($(strip $(ROMFS)),)
+#	MAKEROM_ARGS	+=	 -romfs "$(BUILD)/romfs.bin"
+#endif
 ifneq ($(strip $(LOGO)),)
 	MAKEROM_ARGS	+=	 -logo "$(LOGO)"
 endif
@@ -178,7 +186,7 @@ ifeq ($(strip $(ROMFS)),)
 $(OUTPUT).cia: $(OUTPUT).elf $(BUILD)/banner.bnr $(BUILD)/icon.icn
 	$(MAKEROM) -f cia -o "$@" -target t -exefslogo $(MAKEROM_ARGS)
 else
-$(OUTPUT).cia: $(OUTPUT).elf $(BUILD)/romfs.bin $(BUILD)/banner.bnr $(BUILD)/icon.icn
+$(OUTPUT).cia: $(OUTPUT).elf $(BUILD)/banner.bnr $(BUILD)/icon.icn
 	$(MAKEROM) -f cia -o "$@" -target t -exefslogo $(MAKEROM_ARGS)
 endif
 
@@ -204,11 +212,6 @@ $(BUILD)/icon.icn	:	$(APP_ICON)
 	$(BANNERTOOL) makesmdh -s "$(APP_TITLE)" -l "$(APP_DESCRIPTION)" -p "$(APP_AUTHOR)" -i "$(APP_ICON)" -f "$(ICON_FLAGS)" -o "$@"
 
 
-3DSTOOL		?= 3dstool
-
-$(BUILD)/romfs.bin	:	$(ROMFS)
-	$(3DSTOOL) -ctf romfs "$@" --romfs-dir "$(ROMFS)"
-
 #---------------------------------------------------------------------------------
 else
 

README.md

@@ -1,27 +1,35 @@
-# Anemone3DS
-A Theme Manager for the Nintendo3DS, written in C
+![# Anemone3DS](https://github.com/astronautlevel2/Anemone3DS/blob/master/meta/banner.png)
+
+A Theme and Splashscreen Manager for the Nintendo 3DS, written in C.\
+To-do list here: https://trello.com/b/F1YSa1VK
 
 # Dependencies
-This depends on zlib. Get it from portlibs.
-
+ * zlib, which can be retrieved from the [3ds_portlibs](https://github.com/devkitPro/3ds_portlibs).
+ * [makerom](https://github.com/profi200/Project_CTR) and [bannertool](https://github.com/Steveice10/buildtools), which can be retrieved from [SteveIce10's](https://github.com/Steveice10) buildtools repo. These must be added to your PATH.
+ * ~~[pp2d](https://github.com/BernardoGiordano/pp2d), which is included in the repo if you do a git clone --recursive.~~ Due to circumstances surrounding the privacy settings on the pp2d repo, the source files are now included directly within the repo.
+ * Git needs to be on your PATH, if building in a non-*nix environment.
+# Building
+First of all, make sure devkitPRO is properly installed and added to the PATH.
+After that, open the directory you want to clone the repo into, and type: `git clone https://github.com/astronautlevel2/Anemone3DS/ --recursive`.
+Instructions for installing zlib can be found on the [3ds_portlibs repo](https://github.com/devkitPro/3ds_portlibs) (its easy, just run `make` and `make install-zlib`). After also adding [makerom](https://github.com/profi200/Project_CTR) and [bannertool](https://github.com/Steveice10/buildtools) to your PATH, just enter your directory and run `make`. All built files will be in `/out/`.
 # License
 This project is licensed under the GNU GPLv3. See LICENSE.md for details. Additional terms 7b and 7c apply to this project.
 
 # Credits
-
 The following people contributed to Anemone3DS in some way. Without these people, Anemone3DS wouldn't exist, or wouldn't be as good as it is:
- * Daedreth, who wrote the initial implementation of theme application code and SMDH parsing
- * LiquidFenrir, who refactored a lot of my messy GUI code and wrote the image preview from zip code, as well as the icon code
- * Sono, who wrote the BCSTM playback code
- * Kenn (mattkenster) for designing the GUI, a number of sprites used in the application, and drawing the banner and icon.
+ * [Daedreth](https://github.com/daedreth), who wrote the initial implementation of theme installation code and SMDH parsing.
+ * [LiquidFenrir](https://github.com/LiquidFenrir), who refactored a lot of my messy code and has been essential in development.
+ * [Kenn (mattkenster)](https://github.com/mattkenster), for designing the GUI, a number of sprites used in the application, and drawing the banner and icon.
 
 Special thanks go to these people who, while not directly contributing, helped immensely:
- * Rinnegatamante, whose code served as reference on theme installation.
- * BernardoGiordano for making pp2d, and being super responsive to feature requests and just general help
- * yellows8 for his home menu extdump tool, which was invaluable in debugging.
- * the folks on #dev of Nintendo Homebrew, who helped with unicode shenanigans (especially Stary2001, Fenrir, and DanielKO).
- * the maintainers for all used libraries, including ctrulib, zlib, citro3d, pp2d and minizip.
+ * [Rinnegatamante](https://github.com/Rinnegatamante), whose code served as reference on theme installation.
+ * [SteveIce10](https://github.com/SteveIce10), whose QR code in FBI was essential.
+ * [BernardoGiordano](https://github.com/BernardoGiordano) for making pp2d, and being super responsive to feature requests and just general help.
+ * [yellows8](https://github.com/yellows8) for his home menu extdump tool, which was invaluable in debugging.
+ * the folks on #dev of Nintendo Homebrew, who helped with unicode shenanigans (especially [Stary2001](https://github.com/Stary2001), [Fenrir](https://github.com/FenrirWolf), and DanielKO).
+ * the maintainers for all used libraries, including ctrulib, zlib, citro3d, pp2d, quirc and minizip.
  * all the people who helped keep me going and motivated me to work. This includes, but is definitely not limited to:
-   * The members of the Nintendo Homebrew Discord
-   * The members of the Secret Shack Service Discord
-   * The members of the ThemePlaza Discord
+ 
+   + The members of the [Nintendo Homebrew Discord](https://discord.gg/C29hYvh)
+   + The members of the __Secret Shack Service Discord__   
+   + The members of the [ThemePlaza Discord](https://discord.gg/2hUQwXz)

include/camera.h

@@ -0,0 +1,49 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#ifndef CAMERA_H
+#define CAMERA_H
+
+#include "common.h"
+
+typedef struct {
+    u16 *camera_buffer;
+    u32 *texture_buffer;
+    Handle mutex;
+    volatile bool finished;
+    volatile bool success;
+    Handle cancel;
+
+    bool capturing;
+    struct quirc* context;
+} qr_data;
+
+bool init_qr(EntryMode current_mode);
+void exit_qr(qr_data *data);
+void take_picture(void);
+Result http_get(char *url, const char *path);
+
+#endif

include/colors.h

@@ -0,0 +1,43 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#ifndef COLORS_H
+#define COLORS_H
+
+#define ABGR8(a, b, g, r) ((((a)&0xFF)<<0) | (((b)&0xFF)<<8) | (((g)&0xFF)<<16) | (((r)&0xFF)<<24))
+#define RGBA8(r, g, b, a) ((((r)&0xFF)<<0) | (((g)&0xFF)<<8) | (((b)&0xFF)<<16) | (((a)&0xFF)<<24))
+
+typedef enum {
+    COLOR_BACKGROUND = ABGR8(255, 32, 28, 35), //silver-y black
+    COLOR_ACCENT = RGBA8(55, 122, 168, 255),
+    COLOR_WHITE = RGBA8(255, 255, 255, 255),
+    COLOR_CURSOR = RGBA8(200, 200, 200, 255),
+    COLOR_BLACK = RGBA8(0, 0, 0, 255),
+    COLOR_RED = RGBA8(200, 0, 0, 255),
+    COLOR_YELLOW = RGBA8(239, 220, 11, 255),
+} Color;
+
+#endif

include/common.h

@@ -33,16 +33,45 @@
 #include <stdlib.h>
 #include <string.h>
 
-#define THEMES_PATH 	"/Themes/"
-#define SPLASHES_PATH	"/Splashes/"
+#define ENTRIES_PER_SCREEN 4
 
-static const int THEMES_PER_SCREEN = 4;
+#define DEBUG(...) fprintf(stderr, __VA_ARGS__)
+#define POS() DEBUG("%s (line %d)...\n", __func__, __LINE__)
+
+#define DEBUGPOS(...) \
+        POS(); \
+        DEBUG(__VA_ARGS__)
+
+typedef enum {
+    MODE_THEMES = 0,
+    MODE_SPLASHES,
+
+    MODE_AMOUNT,
+} EntryMode;
+
+extern const char * main_paths[MODE_AMOUNT];
 
 enum TextureID {
-    TEXTURE_FONT_RESERVED = 0, //used by pp2d for the font
+    TEXTURE_FONT_RESERVED = 0, // used by pp2d for the font
     TEXTURE_ARROW,
     TEXTURE_SHUFFLE,
+    TEXTURE_INSTALLED,
+    TEXTURE_PREVIEW_ICON,
+    TEXTURE_DOWNLOAD,
+    TEXTURE_RELOAD,
+    TEXTURE_BATTERY_0,
+    TEXTURE_BATTERY_1,
+    TEXTURE_BATTERY_2,
+    TEXTURE_BATTERY_3,
+    TEXTURE_BATTERY_4,
+    TEXTURE_BATTERY_5,
+    TEXTURE_BATTERY_CHARGE,
+    TEXTURE_QR,
     TEXTURE_PREVIEW,
+    TEXTURE_SELECT_BUTTON,
+    TEXTURE_START_BUTTON,
+
+    TEXTURE_ICON, // always the last
 };
 
 #endif

include/draw.h

@@ -27,14 +27,68 @@
 #ifndef DRAW_H
 #define DRAW_H
 
-#include "themes.h"
-#include "splashes.h"
+#include "common.h"
+#include "loading.h"
+#include "colors.h"
+
+typedef enum {
+    INSTALL_LOADING_THEMES,
+    INSTALL_LOADING_SPLASHES,
+    INSTALL_LOADING_ICONS,
+
+    INSTALL_SPLASH,
+    INSTALL_SPLASH_DELETE,
+
+    INSTALL_SINGLE,
+    INSTALL_SHUFFLE,
+    INSTALL_BGM,
+    INSTALL_NO_BGM,
+
+    INSTALL_DOWNLOAD,
+    INSTALL_ENTRY_DELETE,
+
+    INSTALL_NONE,
+} InstallType;
+
+typedef enum {
+    ERROR_LEVEL_ERROR,
+    ERROR_LEVEL_WARNING,
+} ErrorLevel;
+
+#define BUTTONS_START_Y 130
+#define BUTTONS_STEP 22
+#define BUTTONS_INFO_LINES 4
+#define BUTTONS_INFO_COLUNMNS 2
+
+enum {
+    BUTTONS_Y_INFO = BUTTONS_START_Y+5,
+
+    BUTTONS_Y_LINE_1 = BUTTONS_START_Y + BUTTONS_STEP*1,
+    BUTTONS_Y_LINE_2 = BUTTONS_START_Y + BUTTONS_STEP*2,
+    BUTTONS_Y_LINE_3 = BUTTONS_START_Y + BUTTONS_STEP*3,
+    BUTTONS_Y_LINE_4 = BUTTONS_START_Y + BUTTONS_STEP*4,
+
+    BUTTONS_X_LEFT = 20,
+    BUTTONS_X_RIGHT = 200,
+} ButtonPos;
+
+typedef struct {
+    const wchar_t * info_line;
+    Color info_line_color;
+    const wchar_t * instructions[BUTTONS_INFO_LINES][BUTTONS_INFO_COLUNMNS];
+} Instructions_s;
 
 void init_screens(void);
 void exit_screens(void);
 
-void draw_theme_install(bool shuffle_install);
-void draw_theme_interface(Theme_s * themes_list, int theme_count, int selected_theme, bool preview_mode);
-void draw_splash_interface(Splash_s *splashes_list, int splash_count, int selected_splash, bool preview_mode);
+void throw_error(char* error, ErrorLevel level);
+bool draw_confirm(const char* conf_msg, Entry_List_s* list);
+
+void draw_preview(int preview_offset);
+
+void draw_install(InstallType type);
+
+void draw_base_interface(void);
+void draw_interface(Entry_List_s* list, Instructions_s instructions);
 
 #endif

include/fs.h

@@ -36,10 +36,10 @@ FS_Archive ArchiveThemeExt;
 Result open_archives(void);
 Result close_archives(void);
 
-u64 file_to_buf(FS_Path path, FS_Archive archive, char** buf);
+u32 file_to_buf(FS_Path path, FS_Archive archive, char** buf);
 u32 zip_file_to_buf(char *file_name, u16 *zip_path, char **buf);
 
-u32 buf_to_file(u32 size, char *path, FS_Archive archive, char *buf);
+Result buf_to_file(u32 size, char *path, FS_Archive archive, char *buf);
 void remake_file(char *path, FS_Archive archive, u32 size);
 
 #endif

include/instructions.h

@@ -0,0 +1,101 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#ifndef INSTRUCTIONS_H
+#define INSTRUCTIONS_H
+
+#include "draw.h"
+#include "colors.h"
+
+Instructions_s normal_instructions[MODE_AMOUNT] = {
+    {
+        .info_line = NULL,
+        .instructions = {
+            {
+                L"\uE000 Hold to install",
+                L"\uE001 Queue shuffle theme"
+            },
+            {
+                L"\uE002 Reload broken icons",
+                L"\uE003 Preview theme"
+            },
+            {
+                L"\uE004 Switch to splashes",
+                L"\uE005 Scan QR code"
+            },
+            {
+                L"Exit",
+                L"Delete from SD"
+            }
+        }
+    },
+    {
+        .info_line = NULL,
+        .instructions = {
+            {
+                L"\uE000 Install splash",
+                L"\uE001 Delete installed splash"
+            },
+            {
+                L"\uE002 Reload broken icons",
+                L"\uE003 Preview splash"
+            },
+            {
+                L"\uE004 Switch to themes",
+                L"\uE005 Scan QR code"
+            },
+            {
+                L"Exit",
+                L"Delete from SD"
+            }
+        }
+    }
+};
+
+Instructions_s install_instructions = {
+    .info_line = L"Release \uE000 to cancel or hold \uE006 and release \uE000 to install",
+    .info_line_color = COLOR_WHITE,
+    .instructions = {
+        {
+            L"\uE079 Normal install",
+            L"\uE07A Shuffle install"
+        },
+        {
+            L"\uE07B BGM-only install",
+            L"\uE07C No-BGM install"
+        },
+        {
+            NULL,
+            NULL
+        },
+        {
+            L"Exit",
+            NULL
+        }
+    }
+};
+
+#endif

include/loading.h

@@ -0,0 +1,98 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#ifndef LOADING_H
+#define LOADING_H
+
+#include "common.h"
+
+enum ICON_IDS_OFFSET {
+    ICONS_ABOVE = 0,
+    ICONS_VISIBLE,
+    ICONS_UNDER,
+
+    ICONS_OFFSET_AMOUNT,
+};
+
+typedef struct {
+    u8 _padding1[4 + 2 + 2];
+
+    u16 name[0x40];
+    u16 desc[0x80];
+    u16 author[0x40];
+
+    u8 _padding2[0x2000 - 0x200 + 0x30 + 0x8];
+    u16 small_icon[24*24];
+
+    u16 big_icon[48*48];
+} Icon_s;
+
+typedef struct {
+    u16 name[0x41];
+    u16 desc[0x81];
+    u16 author[0x41];
+
+    u32 placeholder_color;
+
+    u16 path[0x106];
+    bool is_zip;
+
+    bool in_shuffle;
+    bool installed;
+} Entry_s;
+
+typedef struct {
+    Entry_s * entries;
+    int entries_count;
+
+    ssize_t texture_id_offset;
+    ssize_t icons_ids[ICONS_OFFSET_AMOUNT][ENTRIES_PER_SCREEN];
+
+    int previous_scroll;
+    int scroll;
+
+    int previous_selected;
+    int selected_entry;
+
+    int shuffle_count;
+
+    EntryMode mode;
+} Entry_List_s;
+
+typedef struct {
+    void ** thread_arg;
+    volatile bool run_thread;
+} Thread_Arg_s;
+
+void delete_entry(Entry_s entry);
+Result load_entries(const char * loading_path, Entry_List_s * list, EntryMode mode);
+bool load_preview(Entry_List_s list, int * preview_offset);
+void load_icons_first(Entry_List_s * current_list, bool silent);
+void handle_scrolling(Entry_List_s * list);
+void load_icons_thread(void * void_arg);
+u32 load_data(char * filename, Entry_s entry, char ** buf);
+
+#endif

include/splashes.h

@@ -28,14 +28,11 @@
 #define SPLASHES_H
 
 #include "common.h"
+#include "loading.h"
 
-typedef struct{
-    u16 name[0x106];
-    u16 top_path[0x106];
-    u16 bottom_path[0x106];
-} Splash_s;
+void splash_delete(void);
+void splash_install(Entry_s splash);
 
-Result get_splashes(Splash_s** splashes_list, int *splash_count);
-void splash_install(Splash_s splash_to_install);
+void splash_check_installed(void * void_arg);
 
 #endif

include/themes.h

@@ -28,26 +28,53 @@
 #define THEMES_H
 
 #include "common.h"
+#include "loading.h"
+
+#define MAX_SHUFFLE_THEMES 10
+
+enum ThemeInstall {
+    THEME_INSTALL_SHUFFLE = BIT(0),
+    THEME_INSTALL_BODY = BIT(1),
+    THEME_INSTALL_BGM = BIT(2),
+};
 
 typedef struct {
-    u16 name[0x40];
-    u16 desc[0x80];
-    u16 author[0x40];
+    u32 index;
+    u8 dlc_tid_low_bits;
+    u8 type;
+    u16 unk;
+} ThemeEntry_s;
 
-    bool has_icon;
-    ssize_t icon_id;
+typedef struct {
+    u8 _padding1[0x13b8];
+    ThemeEntry_s theme_entry;
+    ThemeEntry_s shuffle_themes[MAX_SHUFFLE_THEMES];
+    u8 _padding2[0xb];
+    bool shuffle;
+} SaveData_dat_s;
 
-    bool has_preview;
+typedef struct {
+    u32 unk1;
+    u32 unk2;
+    u32 body_size;
+    u32 music_size;
+    u32 unk3;
+    u32 unk4;
+    u32 dlc_theme_content_index;
+    u32 use_theme_cache;
 
-    u16 path[0x106];
-    bool is_zip;
+    u8 _padding1[0x338 - 8*sizeof(u32)];
 
-    bool in_shuffle;
-} Theme_s;
+    u32 shuffle_body_sizes[MAX_SHUFFLE_THEMES];
+    u32 shuffle_music_sizes[MAX_SHUFFLE_THEMES];
+} ThemeManage_bin_s;
 
-void load_theme_preview(Theme_s *theme);
-Result get_themes(Theme_s **themes_list, int *theme_count);
-Result single_install(Theme_s theme);
-Result shuffle_install(Theme_s *themes_list, int theme_count);
+Result theme_install(Entry_s theme);
+Result no_bgm_install(Entry_s theme);
+Result bgm_install(Entry_s theme);
+
+Result shuffle_install(Entry_List_s themes);
+
+void themes_check_installed(void * void_arg);
 
 #endif

meta/app.rsf

@@ -3,7 +3,7 @@ BasicInfo:
   CompanyCode             : "00"
   ProductCode             : "CTR-P-ANEM"
   ContentType             : Application
-  Logo                    : Nintendo # Nintendo / Licensed / Distributed / iQue / iQueForSystem
+  Logo                    : Homebrew # Nintendo / Licensed / Distributed / iQue / iQueForSystem
 
 TitleInfo:
   UniqueId                : 0xAFEN
@@ -33,6 +33,9 @@ SystemControlInfo:
   RemasterVersion: 7
   StackSize: 0x40000
   
+RomFs:
+    RootPath            : romfs
+  
 # DO NOT EDIT BELOW HERE OR PROGRAMS WILL NOT LAUNCH (most likely)
 
 AccessControlInfo:

source/camera.c

@@ -0,0 +1,370 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#include "camera.h"
+
+#include "quirc/quirc.h"
+#include "pp2d/pp2d/pp2d.h"
+
+#include "draw.h"
+#include "fs.h"
+#include "loading.h"
+
+/*
+static u32 transfer_size;
+static Handle event;
+static struct quirc* context;
+static u16 * camera_buf = NULL;
+*/
+
+void exit_qr(qr_data *data)
+{
+    svcSignalEvent(data->cancel);
+    while(!data->finished)
+       svcSleepThread(1000000);
+    data->capturing = false;
+
+    free(data->camera_buffer);
+    free(data->texture_buffer);
+    quirc_destroy(data->context);
+    free(data);
+}
+
+void capture_cam_thread(void *arg) 
+{
+    qr_data *data = (qr_data *) arg;
+    Handle events[3] = {0};
+    events[0] = data->cancel;
+    u32 transferUnit;
+
+    u16 *buffer = calloc(1, 400 * 240 * sizeof(u16));
+    camInit();
+    CAMU_SetSize(SELECT_OUT1, SIZE_CTR_TOP_LCD, CONTEXT_A);
+    CAMU_SetOutputFormat(SELECT_OUT1, OUTPUT_RGB_565, CONTEXT_A);
+    CAMU_SetFrameRate(SELECT_OUT1, FRAME_RATE_30);
+    CAMU_SetNoiseFilter(SELECT_OUT1, true);
+    CAMU_SetAutoExposure(SELECT_OUT1, true);
+    CAMU_SetAutoWhiteBalance(SELECT_OUT1, true);
+    CAMU_Activate(SELECT_OUT1);
+    CAMU_GetBufferErrorInterruptEvent(&events[2], PORT_CAM1);
+    CAMU_SetTrimming(PORT_CAM1, false);
+    CAMU_GetMaxBytes(&transferUnit, 400, 240);
+    CAMU_SetTransferBytes(PORT_CAM1, transferUnit, 400, 240);
+    CAMU_ClearBuffer(PORT_CAM1);
+    CAMU_SetReceiving(&events[1], buffer, PORT_CAM1, 400 * 240 * sizeof(u16), (s16) transferUnit);
+    CAMU_StartCapture(PORT_CAM1);
+    bool cancel = false;
+    while (!cancel) 
+    {
+        s32 index = 0;
+        svcWaitSynchronizationN(&index, events, 3, false, U64_MAX);
+        switch(index) {
+            case 0:
+                cancel = true;
+                break;
+            case 1:
+                svcCloseHandle(events[1]);
+                events[1] = 0;
+                svcWaitSynchronization(data->mutex, U64_MAX);
+                memcpy(data->camera_buffer, buffer, 400 * 240 * sizeof(u16));
+                GSPGPU_FlushDataCache(data->camera_buffer, 400 * 240 * sizeof(u16));
+                svcReleaseMutex(data->mutex);
+                CAMU_SetReceiving(&events[1], buffer, PORT_CAM1, 400 * 240 * sizeof(u16), transferUnit);
+                break;
+            case 2:
+                svcCloseHandle(events[1]);
+                events[1] = 0;
+                CAMU_ClearBuffer(PORT_CAM1);
+                CAMU_SetReceiving(&events[1], buffer, PORT_CAM1, 400 * 240 * sizeof(u16), transferUnit);
+                CAMU_StartCapture(PORT_CAM1);
+                break;
+            default:
+                break;
+        }
+    }
+
+    CAMU_StopCapture(PORT_CAM1);
+
+    bool busy = false;
+    while(R_SUCCEEDED(CAMU_IsBusy(&busy, PORT_CAM1)) && busy) {
+        svcSleepThread(1000000);
+    }
+
+    CAMU_ClearBuffer(PORT_CAM1);
+    CAMU_Activate(SELECT_NONE);
+    camExit();
+    free(buffer);
+    for(int i = 0; i < 3; i++) {
+        if(events[i] != 0) {
+            svcCloseHandle(events[i]);
+            events[i] = 0;
+        }
+    }
+    svcCloseHandle(data->mutex);
+    data->finished = true;
+}
+
+bool start_capture_cam(qr_data *data) 
+{
+    data->mutex = 0;
+    data->cancel = 0;
+    svcCreateEvent(&data->cancel, RESET_STICKY);
+    svcCreateMutex(&data->mutex, false);
+    if(threadCreate(capture_cam_thread, data, 0x10000, 0x1A, 1, true) == NULL)
+        return false;
+    return true;
+}
+
+void update_qr(qr_data *data, EntryMode current_mode)
+{
+    hidScanInput();
+    if (hidKeysDown() & (KEY_R | KEY_B | KEY_TOUCH)) {
+        exit_qr(data);
+        return;
+    }
+
+    if (!data->capturing) {
+        if(start_capture_cam(data))
+            data->capturing = true;
+        else {
+            exit_qr(data);
+            return;
+        }
+
+    }
+
+    if (data->finished) {
+        exit_qr(data);
+        return;
+    }
+    for (int i = 0; i < 240 * 400; i++)
+    {
+        data->texture_buffer[i] = RGB565_TO_ABGR8(data->camera_buffer[i]);
+    }
+    draw_base_interface();
+    pp2d_free_texture(TEXTURE_QR);
+    pp2d_load_texture_memory(TEXTURE_QR, data->texture_buffer, 400, 240);
+
+    pp2d_draw_texture(TEXTURE_QR, 0, 0);
+
+    pp2d_draw_on(GFX_BOTTOM, GFX_LEFT);
+    pp2d_draw_text_center(GFX_BOTTOM, 4, 0.5, 0.5, RGBA8(255, 255, 255, 255), "Press \uE005 To Quit");
+    pp2d_end_draw();
+
+    int w;
+    int h;
+    u8 *image = (u8*) quirc_begin(data->context, &w, &h);
+    svcWaitSynchronization(data->mutex, U64_MAX);
+    for (ssize_t x = 0; x < w; x++) {
+        for (ssize_t y = 0; y < h; y++) {
+            u16 px = data->camera_buffer[y * 400 + x];
+            image[y * w + x] = (u8)(((((px >> 11) & 0x1F) << 3) + (((px >> 5) & 0x3F) << 2) + ((px & 0x1F) << 3)) / 3);
+        }
+    }
+    svcReleaseMutex(data->mutex);
+    quirc_end(data->context);
+    if(quirc_count(data->context) > 0)
+    {
+        struct quirc_code code;
+        struct quirc_data scan_data;
+        quirc_extract(data->context, 0, &code);
+        if (!quirc_decode(&code, &scan_data))
+        {
+            exit_qr(data);
+            http_get((char*)scan_data.payload, main_paths[current_mode]);
+            data->success = true;
+        }   
+    }
+
+}
+
+bool init_qr(EntryMode current_mode)
+{
+    qr_data *data = calloc(1, sizeof(qr_data));
+    data->capturing = false;
+    data->finished = false;
+    data->context = quirc_new();
+    quirc_resize(data->context, 400, 240);
+
+    data->camera_buffer = calloc(1, 400 * 240 * sizeof(u16));
+    data->texture_buffer = calloc(1, 400 * 240 * sizeof(u32));
+
+    while (!data->finished) update_qr(data, current_mode);
+
+    return (bool)data->success;
+}
+
+/*
+Putting this in camera because I'm too lazy to make a network.c
+This'll probably get refactored later
+*/
+Result http_get(char *url, const char *path)
+{
+    Result ret;
+    httpcContext context;
+    char *new_url = NULL;
+    u32 status_code;
+    u32 content_size = 0;
+    u32 read_size = 0;
+    u32 size = 0;
+    u8 *buf;
+    u8 *last_buf;
+
+    do {
+        ret = httpcOpenContext(&context, HTTPC_METHOD_GET, url, 1);
+        ret = httpcSetSSLOpt(&context, SSLCOPT_DisableVerify); // should let us do https
+        ret = httpcSetKeepAlive(&context, HTTPC_KEEPALIVE_ENABLED);
+        ret = httpcAddRequestHeaderField(&context, "User-Agent", USER_AGENT);
+        ret = httpcAddRequestHeaderField(&context, "Connection", "Keep-Alive");
+        draw_install(INSTALL_DOWNLOAD);
+
+        ret = httpcBeginRequest(&context);
+        if (ret != 0)
+        {
+            httpcCloseContext(&context);
+            if (new_url != NULL) free(new_url);
+            return ret;
+        }
+
+        ret = httpcGetResponseStatusCode(&context, &status_code);
+        if(ret!=0){
+            httpcCloseContext(&context);
+            if(new_url!=NULL) free(new_url);
+            return ret;
+        }
+
+        if ((status_code >= 301 && status_code <= 303) || (status_code >= 307 && status_code <= 308))
+        {
+            if (new_url == NULL) new_url = malloc(0x1000);
+            ret = httpcGetResponseHeader(&context, "Location", new_url, 0x1000);
+            url = new_url;
+            httpcCloseContext(&context);
+        }
+    } while ((status_code >= 301 && status_code <= 303) || (status_code >= 307 && status_code <= 308));
+
+    if (status_code != 200)
+    {
+        httpcCloseContext(&context);
+        if (new_url != NULL) free(new_url);
+        return ret;
+    }
+
+    ret = httpcGetDownloadSizeState(&context, NULL, &content_size);
+    if (ret != 0)
+    {
+        httpcCloseContext(&context);
+        if (new_url != NULL) free(new_url);
+        return ret;
+    }
+
+    buf = malloc(0x1000);
+    if (buf == NULL)
+    {
+        httpcCloseContext(&context);
+        free(new_url);
+        return -2;
+    }
+
+    char *content_disposition = malloc(1024);
+    ret = httpcGetResponseHeader(&context, "Content-Disposition", content_disposition, 1024);
+    if (ret != 0)
+    {
+        free(content_disposition);
+        free(new_url);
+        free(buf);
+        return ret;
+    }
+
+    char *filename;
+    filename = strtok(content_disposition, "\"");
+    filename = strtok(NULL, "\"");
+
+    char *illegal_characters = "\"?;:/\\+";
+    if(!filename)
+    {
+        free(content_disposition);
+        free(new_url);
+        free(buf);
+        throw_error("Target is not valid!", ERROR_LEVEL_WARNING);
+        return -1;
+    }
+    for (size_t i = 0; i < strlen(filename); i++)
+    {
+        for (size_t n = 0; n < strlen(illegal_characters); n++)
+        {
+            if (filename[i] == illegal_characters[n]) 
+            {
+                filename[i] = '-';
+            }
+        }
+    }
+
+    do {
+        ret = httpcDownloadData(&context, buf + size, 0x1000, &read_size);
+        size += read_size;
+
+        if (ret == (s32)HTTPC_RESULTCODE_DOWNLOADPENDING)
+        {
+            last_buf = buf;
+            buf = realloc(buf, size + 0x1000);
+            if (buf == NULL)
+            {
+                httpcCloseContext(&context);
+                free(content_disposition);
+                free(new_url);
+                free(last_buf);
+                return ret;
+            }
+        }
+    } while (ret == (s32)HTTPC_RESULTCODE_DOWNLOADPENDING);
+
+    last_buf = buf;
+    buf = realloc(buf, size);
+    if (buf == NULL)
+    {
+        httpcCloseContext(&context);
+        free(content_disposition);
+        free(new_url);
+        free(last_buf);
+        return -1;
+    }
+
+    char path_to_file[0x106] = {0};
+    strcpy(path_to_file, path);
+    strcat(path_to_file, filename);
+    char * extension = strrchr(path_to_file, '.');
+    if (extension == NULL || strcmp(extension, ".zip"))
+        strcat(path_to_file, ".zip");
+
+    remake_file(path_to_file, ArchiveSD, size);
+    buf_to_file(size, path_to_file, ArchiveSD, (char*)buf);
+
+    free(content_disposition);
+    free(new_url);
+    free(buf);
+
+    return 0;
+}

source/draw.c

@@ -25,19 +25,13 @@
 */
 
 #include "draw.h"
+#include "unicode.h"
+#include "colors.h"
 
 #include "pp2d/pp2d/pp2d.h"
 
 #include <time.h>
 
-enum Colors {
-    COLOR_BACKGROUND = ABGR8(255, 32, 28, 35), //silver-y black
-    COLOR_ACCENT = RGBA8(55, 122, 168, 255),
-    COLOR_WHITE = RGBA8(255, 255, 255, 255),
-    COLOR_CURSOR = RGBA8(200, 200, 200, 255),
-    COLOR_BLACK = RGBA8(0, 0, 0, 255),
-};
-
 void init_screens(void)
 {
     pp2d_init();
@@ -47,6 +41,19 @@ void init_screens(void)
 
     pp2d_load_texture_png(TEXTURE_ARROW, "romfs:/arrow.png");
     pp2d_load_texture_png(TEXTURE_SHUFFLE, "romfs:/shuffle.png");
+    pp2d_load_texture_png(TEXTURE_INSTALLED, "romfs:/installed.png");
+    pp2d_load_texture_png(TEXTURE_RELOAD, "romfs:/reload.png");
+    pp2d_load_texture_png(TEXTURE_PREVIEW_ICON, "romfs:/preview.png");
+    pp2d_load_texture_png(TEXTURE_DOWNLOAD, "romfs:/download.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_0, "romfs:/battery0.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_1, "romfs:/battery1.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_2, "romfs:/battery2.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_3, "romfs:/battery3.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_4, "romfs:/battery4.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_5, "romfs:/battery5.png");
+    pp2d_load_texture_png(TEXTURE_BATTERY_CHARGE, "romfs:/charging.png");
+    pp2d_load_texture_png(TEXTURE_SELECT_BUTTON, "romfs:/select.png");
+    pp2d_load_texture_png(TEXTURE_START_BUTTON, "romfs:/start.png");
 }
 
 void exit_screens(void)
@@ -54,208 +61,324 @@ void exit_screens(void)
     pp2d_exit();
 }
 
-static Result MCUHWC_GetBatteryLevel(u8 *out) // Code taken from daedreth's fork of lpp-3ds
-{
-    #define TRY(expr) if(R_FAILED(res = (expr))) { svcCloseHandle(mcuhwcHandle); return res; }
-    Result res;
-    Handle mcuhwcHandle;
-    TRY(srvGetServiceHandle(&mcuhwcHandle, "mcu::HWC"));
-    u32 *cmdbuf = getThreadCommandBuffer();
-    cmdbuf[0] = 0x50000;
-    TRY(svcSendSyncRequest(mcuhwcHandle));
-    *out = (u8) cmdbuf[2];
-    svcCloseHandle(mcuhwcHandle);
-    return cmdbuf[1];
-    #undef TRY
-}
-
-static int theme_vertical_scroll = 0;
-static int splash_vertical_scroll = 0;
-
 void draw_base_interface(void)
 {
-    pp2d_begin_draw(GFX_TOP);
+    pp2d_begin_draw(GFX_TOP, GFX_LEFT);
     pp2d_draw_rectangle(0, 0, 400, 23, COLOR_ACCENT);
 
     time_t t = time(NULL);
     struct tm tm = *localtime(&t);
 
     pp2d_draw_textf(7, 2, 0.6, 0.6, COLOR_WHITE, "%.2i", tm.tm_hour);
-    pp2d_draw_text(28, 2, 0.6, 0.6, COLOR_WHITE, (tm.tm_sec % 2 == 1) ? ":" : " ");
+    pp2d_draw_text(28, 1, 0.6, 0.6, COLOR_WHITE, (tm.tm_sec % 2 == 1) ? ":" : " ");
     pp2d_draw_textf(34, 2, 0.6, 0.6, COLOR_WHITE, "%.2i", tm.tm_min);
 
-    u8 battery_val = 0;
-    MCUHWC_GetBatteryLevel(&battery_val);
-    pp2d_draw_textf(350, 2, 0.6, 0.6, COLOR_WHITE, "%i%%", battery_val);
+    #ifndef CITRA_MODE
+    u8 battery_charging = 0;
+    PTMU_GetBatteryChargeState(&battery_charging);
+    u8 battery_status = 0;
+    PTMU_GetBatteryLevel(&battery_status);
+    pp2d_draw_texture(TEXTURE_BATTERY_0 + battery_status, 357, 2);
 
-    pp2d_draw_on(GFX_BOTTOM);
+    if(battery_charging)
+        pp2d_draw_texture(TEXTURE_BATTERY_CHARGE, 357, 2);
+    #endif
+
+    pp2d_draw_on(GFX_BOTTOM, GFX_LEFT);
     pp2d_draw_rectangle(0, 0, 320, 24, COLOR_ACCENT);
     pp2d_draw_rectangle(0, 216, 320, 24, COLOR_ACCENT);
-    pp2d_draw_on(GFX_TOP);
+    pp2d_draw_text(7, 219, 0.6, 0.6, COLOR_WHITE, VERSION);
+
+    pp2d_draw_on(GFX_TOP, GFX_LEFT);
 }
 
-void draw_theme_install(bool shuffle_install)
+static void draw_text_center(gfxScreen_t target, float y, float scaleX, float scaleY, u32 color, const char* text)
+{
+    char * _text = strdup(text);
+    float prevY = y;
+    int offset = 0;
+    while(true)
+    {
+        char *nline = strchr(_text+offset, '\n');
+        int nlinepos = 0;
+        if(nline != NULL)
+        {
+            nlinepos = nline-_text;
+            _text[nlinepos] = '\0';
+        }
+        pp2d_draw_text_center(target, prevY, scaleX, scaleY, color, _text+offset);
+        if(nline == NULL) break;
+        else
+        {
+            prevY += pp2d_get_text_height(_text+offset, scaleX, scaleY);
+            _text[nlinepos] = '\n';
+            offset = nlinepos+1;
+        }
+    }
+    free(_text);
+}
+
+void throw_error(char* error, ErrorLevel level)
+{
+    switch(level)
+    {
+        case ERROR_LEVEL_ERROR:
+            while(aptMainLoop())
+            {
+                hidScanInput();
+                u32 kDown = hidKeysDown();
+                draw_base_interface();
+                draw_text_center(GFX_TOP, 100, 0.6, 0.6, COLOR_RED, error);
+                pp2d_draw_wtext_center(GFX_TOP, 150, 0.6, 0.6, COLOR_WHITE, L"Press \uE000 to shut down.");
+                pp2d_end_draw();
+                if(kDown & KEY_A) break;
+            }
+            break;
+        case ERROR_LEVEL_WARNING:
+            while(aptMainLoop())
+            {
+                hidScanInput();
+                u32 kDown = hidKeysDown();
+                draw_base_interface();
+                draw_text_center(GFX_TOP, 100, 0.6, 0.6, COLOR_YELLOW, error);
+                pp2d_draw_wtext_center(GFX_TOP, 150, 0.6, 0.6, COLOR_WHITE, L"Press \uE000 to continue.");
+                pp2d_end_draw();
+                if(kDown & KEY_A) break;
+            }
+            break;
+    }
+}
+
+bool draw_confirm(const char* conf_msg, Entry_List_s* list)
+{
+    while(aptMainLoop())
+    {
+        Instructions_s instructions = {0};
+        draw_interface(list, instructions);
+        pp2d_draw_on(GFX_TOP, GFX_LEFT);
+        draw_text_center(GFX_TOP, BUTTONS_Y_LINE_1, 0.7, 0.7, COLOR_YELLOW, conf_msg);
+        pp2d_draw_wtext_center(GFX_TOP, BUTTONS_Y_LINE_3, 0.6, 0.6, COLOR_WHITE, L"\uE000 Yes   \uE001 No");
+        pp2d_end_draw();
+
+        hidScanInput();
+        u32 kDown = hidKeysDown();
+        if(kDown & KEY_A) return true;
+        if(kDown & KEY_B) return false;
+    }
+
+    return false;
+}
+
+void draw_preview(int preview_offset)
+{
+    pp2d_begin_draw(GFX_TOP, GFX_LEFT);
+    pp2d_draw_texture_part(TEXTURE_PREVIEW, 0, 0, preview_offset, 0, 400, 240);
+    pp2d_draw_on(GFX_BOTTOM, GFX_LEFT);
+    pp2d_draw_texture_part(TEXTURE_PREVIEW, 0, 0, 40 + preview_offset, 240, 320, 240);
+}
+
+void draw_install(InstallType type)
 {
     draw_base_interface();
-    pp2d_draw_textf(20, 30, 0.7, 0.7, COLOR_WHITE, "Installing a %s theme...", !shuffle_install ? "single" : "shuffle");
+    switch(type)
+    {
+        case INSTALL_LOADING_THEMES:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Loading themes, please wait...");
+            break;
+        case INSTALL_LOADING_SPLASHES:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Loading splashes, please wait...");
+            break;
+        case INSTALL_LOADING_ICONS:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Loading icons, please wait...");
+            break;
+        case INSTALL_SINGLE:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Installing a single theme...");
+            break;
+        case INSTALL_SHUFFLE:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Installing shuffle themes...");
+            break;
+        case INSTALL_BGM:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Installing BGM-only theme...");
+            break;
+        case INSTALL_DOWNLOAD:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Downloading...");
+            break;
+        case INSTALL_SPLASH:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Installing a splash...");
+            break;
+        case INSTALL_SPLASH_DELETE:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Deleting installed splash...");
+            break;
+        case INSTALL_ENTRY_DELETE:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Deleting from SD...");
+            break;
+        case INSTALL_NO_BGM:
+            pp2d_draw_text_center(GFX_TOP, 120, 0.8, 0.8, COLOR_WHITE, "Installing theme without BGM...");
+            break;
+        default:
+            break;
+    }
     pp2d_end_draw();
 }
 
-void draw_theme_interface(Theme_s * themes_list, int theme_count, int selected_theme, bool preview_mode)
+static void draw_instructions(Instructions_s instructions)
 {
+    pp2d_draw_on(GFX_TOP, GFX_LEFT);
 
-    if (themes_list == NULL)
+    if(instructions.info_line != NULL)
+        pp2d_draw_wtext_center(GFX_TOP, BUTTONS_Y_INFO, 0.55, 0.55, instructions.info_line_color, instructions.info_line);
+
+    const int y_lines[BUTTONS_INFO_LINES-1] = {
+        BUTTONS_Y_LINE_1,
+        BUTTONS_Y_LINE_2,
+        BUTTONS_Y_LINE_3,
+    };
+
+    for(int i = 0; i < BUTTONS_INFO_LINES-1; i++)
     {
-        pp2d_begin_draw(GFX_TOP);
-        pp2d_draw_text_center(GFX_TOP, 100, 1, 1, COLOR_WHITE, "FAILURE");
-        pp2d_end_draw();
+        if(instructions.instructions[i][0] != NULL)
+            pp2d_draw_wtext(BUTTONS_X_LEFT, y_lines[i], 0.6, 0.6, COLOR_WHITE, instructions.instructions[i][0]);
+        if(instructions.instructions[i][1] != NULL)
+            pp2d_draw_wtext(BUTTONS_X_RIGHT, y_lines[i], 0.6, 0.6, COLOR_WHITE, instructions.instructions[i][1]);
+    }
+
+    const wchar_t * start_line = instructions.instructions[BUTTONS_INFO_LINES-1][0];
+    if(start_line != NULL)
+    {
+        pp2d_draw_texture(TEXTURE_START_BUTTON, BUTTONS_X_LEFT-10, BUTTONS_Y_LINE_4 + 3);
+        pp2d_draw_wtext(BUTTONS_X_LEFT+26, BUTTONS_Y_LINE_4, 0.6, 0.6, COLOR_WHITE, start_line);
+    }
+
+    const wchar_t * select_line = instructions.instructions[BUTTONS_INFO_LINES-1][1];
+    if(select_line != NULL)
+    {
+        pp2d_draw_texture(TEXTURE_SELECT_BUTTON, BUTTONS_X_RIGHT-10, BUTTONS_Y_LINE_4 + 3);
+        pp2d_draw_wtext(BUTTONS_X_RIGHT+26, BUTTONS_Y_LINE_4, 0.6, 0.6, COLOR_WHITE, select_line);
+    }
+}
+
+void draw_interface(Entry_List_s* list, Instructions_s instructions)
+{
+    draw_base_interface();
+    EntryMode current_mode = list->mode;
+
+    const char* mode_string[MODE_AMOUNT] = {
+        "Theme mode",
+        "Splash mode",
+    };
+
+    pp2d_draw_text_center(GFX_TOP, 4, 0.5, 0.5, COLOR_WHITE, mode_string[current_mode]);
+
+    if(list->entries == NULL)
+    {
+        const char* mode_found_string[MODE_AMOUNT] = {
+            "No themes found",
+            "No splashes found",
+        };
+        pp2d_draw_text_center(GFX_TOP, 80, 0.7, 0.7, COLOR_YELLOW, mode_found_string[current_mode]);
+        pp2d_draw_text_center(GFX_TOP, 110, 0.7, 0.7, COLOR_YELLOW, "Press \uE005 to download from QR");
+        const char* mode_switch_string[MODE_AMOUNT] = {
+            "Or \uE004 to switch to splashes",
+            "Or \uE004 to switch to themes",
+        };
+        pp2d_draw_text_center(GFX_TOP, 140, 0.7, 0.7, COLOR_YELLOW, mode_switch_string[current_mode]);
+        pp2d_draw_text_center(GFX_TOP, 170, 0.7, 0.7, COLOR_YELLOW, "Or        to quit");
+        pp2d_texture_select(TEXTURE_START_BUTTON, 162, 173);
+        pp2d_texture_blend(COLOR_YELLOW);
+        pp2d_texture_scale(1.25, 1.4);
+        pp2d_texture_draw();
         return;
     }
 
-    Theme_s current_theme = themes_list[selected_theme];
+    draw_instructions(instructions);
 
-    if (preview_mode)
-    {
-        if (current_theme.has_preview)
-        {
-            pp2d_begin_draw(GFX_TOP);
-            pp2d_draw_texture_part(TEXTURE_PREVIEW, 0, 0, 6, 0, 400, 240);
-            pp2d_draw_on(GFX_BOTTOM);
-            pp2d_draw_texture_part(TEXTURE_PREVIEW, 0, 0, 46, 240, 320, 240);
-        }
-    }
-    else
-    {
-        draw_base_interface();
-        pp2d_draw_text_center(GFX_TOP, 4, 0.5, 0.5, COLOR_WHITE, "Theme mode");
-        wchar_t title[0x40] = {0};
-        utf16_to_utf32((u32*)title, current_theme.name, 0x40);
-        pp2d_draw_wtext(20, 30, 0.7, 0.7, COLOR_WHITE, title);
-        wchar_t author[0x40] = {0};
-        utf16_to_utf32((u32*)author, current_theme.author, 0x40);
+    int selected_entry = list->selected_entry;
+    Entry_s current_entry = list->entries[selected_entry];
+
+    wchar_t title[0x41] = {0};
+    utf16_to_utf32((u32*)title, current_entry.name, 0x40);
+    pp2d_draw_wtext_wrap(20, 30, 0.7, 0.7, COLOR_WHITE, 380, title);
+
+    wchar_t author[0x41] = {0};
+    utf16_to_utf32((u32*)author, current_entry.author, 0x40);
     pp2d_draw_text(20, 50, 0.5, 0.5, COLOR_WHITE, "By: ");
-        pp2d_draw_wtext(44, 50, 0.5, 0.5, COLOR_WHITE, author);
-        wchar_t description[0x80] = {0};
-        utf16_to_utf32((u32*)description, current_theme.desc, 0x80);
-        pp2d_draw_wtext(20, 65, 0.5, 0.5, COLOR_WHITE, description);
+    pp2d_draw_wtext_wrap(44, 50, 0.5, 0.5, COLOR_WHITE, 380, author);
 
-        pp2d_draw_wtext_center(GFX_TOP, 150, 0.7, 0.7, COLOR_WHITE, L"\uE000 Install Theme    \uE004 Switch to Splashes");
-        pp2d_draw_wtext_center(GFX_TOP, 180, 0.7, 0.7, COLOR_WHITE, L"\uE001 Queue Shuffle    \uE046 Install shuffle");
-        pp2d_draw_wtext_center(GFX_TOP, 210, 0.7, 0.7, COLOR_WHITE, L"\uE003 Preview Theme");
+    wchar_t description[0x81] = {0};
+    utf16_to_utf32((u32*)description, current_entry.desc, 0x80);
+    pp2d_draw_wtext_wrap(20, 65, 0.5, 0.5, COLOR_WHITE, 363, description);
 
-        pp2d_draw_on(GFX_BOTTOM);
+    pp2d_draw_on(GFX_BOTTOM, GFX_LEFT);
 
-        // Scroll the menu up or down if the selected theme is out of its bounds
-        //----------------------------------------------------------------
-        for (int i = 0; i < theme_count; i++) {
-            if (theme_count <= THEMES_PER_SCREEN)
+    switch(current_mode)
+    {
+        case MODE_THEMES:
+            pp2d_draw_textf(7, 3, 0.6, 0.6, list->shuffle_count <= 10 ? COLOR_WHITE : COLOR_RED, "Shuffle: %i/10", list->shuffle_count);
+            pp2d_draw_texture_blend(TEXTURE_SHUFFLE, 320-120, 0, COLOR_WHITE);
+            break;
+        default:
             break;
-
-            if (theme_vertical_scroll > selected_theme)
-                theme_vertical_scroll--;
-
-            if ((i < selected_theme) && \
-               ((selected_theme - theme_vertical_scroll) >= THEMES_PER_SCREEN) && \
-               (theme_vertical_scroll != ( - THEMES_PER_SCREEN)))
-                theme_vertical_scroll++;
     }
-        //----------------------------------------------------------------
+
+    pp2d_draw_texture_blend(TEXTURE_RELOAD, 320-96, 0, COLOR_WHITE);
+    pp2d_draw_texture_blend(TEXTURE_PREVIEW_ICON, 320-72, 0, COLOR_WHITE);
+    pp2d_draw_texture_blend(TEXTURE_DOWNLOAD, 320-48, 0, COLOR_WHITE);
+    pp2d_draw_textf(320-24+2.5, -3, 1, 1, COLOR_WHITE, "%c", *mode_string[!list->mode]);
+
 
     // Show arrows if there are themes out of bounds
     //----------------------------------------------------------------
-        if (theme_vertical_scroll > 0)
+    if(list->scroll > 0)
         pp2d_draw_texture(TEXTURE_ARROW, 155, 6);
-        if (theme_vertical_scroll + THEMES_PER_SCREEN < theme_count)
+    if(list->scroll + ENTRIES_PER_SCREEN < list->entries_count)
         pp2d_draw_texture_flip(TEXTURE_ARROW, 155, 224, VERTICAL);
 
-        for (int i = theme_vertical_scroll; i < (THEMES_PER_SCREEN + theme_vertical_scroll); i++)
+    for(int i = list->scroll; i < (ENTRIES_PER_SCREEN + list->scroll); i++)
     {
-            if (i >= theme_count)
-                break;
+        if(i >= list->entries_count) break;
 
-            current_theme = themes_list[i];
-            wchar_t name[0x80] = {0};
-            utf16_to_utf32((u32*)name, current_theme.name, 0x80);
+        current_entry = list->entries[i];
 
-            int vertical_offset = 48 * (i-theme_vertical_scroll);
+        wchar_t name[0x41] = {0};
+        utf16_to_utf32((u32*)name, current_entry.name, 0x40);
+
+        int vertical_offset = 48 * (i - list->scroll);
         u32 font_color = COLOR_WHITE;
 
-            if (i == selected_theme)
+        if(i == list->selected_entry)
         {
             font_color = COLOR_BLACK;
             pp2d_draw_rectangle(0, 24 + vertical_offset, 320, 48, COLOR_CURSOR);
         }
         pp2d_draw_wtext(54, 40 + vertical_offset, 0.55, 0.55, font_color, name);
-            if (current_theme.has_icon)
-                pp2d_draw_texture(current_theme.icon_id, 0, 24 + vertical_offset);
-            
-            if (current_theme.in_shuffle)
-                pp2d_draw_texture_blend(TEXTURE_SHUFFLE, 280, 32 + vertical_offset, font_color);
+        if(!current_entry.placeholder_color)
+        {
+            ssize_t id = 0;
+            if(list->entries_count > ICONS_OFFSET_AMOUNT*ENTRIES_PER_SCREEN)
+                id = list->icons_ids[ICONS_VISIBLE][i - list->scroll];
+            else
+                id = ((size_t *)list->icons_ids)[i];
+            pp2d_draw_texture(id, 0, 24 + vertical_offset);
         }
+        else
+            pp2d_draw_rectangle(0, 24 + vertical_offset, 48, 48, current_entry.placeholder_color);
+
+        if(current_entry.in_shuffle)
+            pp2d_draw_texture_blend(TEXTURE_SHUFFLE, 320-24-4, 24 + vertical_offset, font_color);
+        if(current_entry.installed)
+            pp2d_draw_texture_blend(TEXTURE_INSTALLED, 320-24-4, 24 + 22 + vertical_offset, font_color);
     }
 
-    pp2d_end_draw();
-}
-
-void draw_splash_interface(Splash_s *splashes_list, int splash_count, int selected_splash, bool preview_mode)
-{
-    if (splashes_list == NULL)
-    {
-        pp2d_begin_draw(GFX_TOP);
-        pp2d_draw_text_center(GFX_TOP, 100, 1, 1, COLOR_WHITE, "FAILURE");
-        pp2d_end_draw();
-        return;
-    }
-
-    Splash_s current_splash = splashes_list[selected_splash];
-
-    if (preview_mode)
-    {
-        // TODO: Splash Previews
-    } else {
-        draw_base_interface();
-        pp2d_draw_text_center(GFX_TOP, 4, 0.5, 0.5, COLOR_WHITE, "Splash mode");
-
-        pp2d_draw_wtext_center(GFX_TOP, 210, 0.7, 0.7, COLOR_WHITE, L"\uE000 Install Splash    \uE004 Switch to Themes");
-
-        pp2d_draw_on(GFX_BOTTOM);
-        for (int i = 0; i < splash_count; i++) {
-            if (splash_count <= THEMES_PER_SCREEN)
-                break;
-
-            if (splash_vertical_scroll > selected_splash)
-                splash_vertical_scroll--;
-
-            if ((i < selected_splash) && \
-               ((selected_splash - splash_vertical_scroll) >= THEMES_PER_SCREEN) && \
-               (splash_vertical_scroll != ( - THEMES_PER_SCREEN)))
-                splash_vertical_scroll++;
-        }
-
-        if (splash_vertical_scroll > 0)
-            pp2d_draw_texture(TEXTURE_ARROW, 155, 6);
-        if (splash_vertical_scroll + THEMES_PER_SCREEN < splash_count)
-            pp2d_draw_texture_flip(TEXTURE_ARROW, 155, 224, VERTICAL);
-
-        for (int i = splash_vertical_scroll; i < (THEMES_PER_SCREEN + splash_vertical_scroll); i++)
-        {
-            if (i >= splash_count)
-                break;
-            
-            current_splash = splashes_list[i];
-            wchar_t name[0x106] = {0};
-            utf16_to_utf32((u32*)name, current_splash.name, 0x106);
-            
-            int vertical_offset = 48 * (i-splash_vertical_scroll);
-            u32 font_color = COLOR_WHITE;
-            
-            if (i == selected_splash)
-            {
-                font_color = COLOR_BLACK;
-                pp2d_draw_rectangle(0, 24 + vertical_offset, 320, 48, COLOR_CURSOR);
-            }
-            pp2d_draw_wtext(15, 40 + vertical_offset, 0.55, 0.55, font_color, name);
-        }
-    }
-    pp2d_end_draw();
+    char entries_count_str[0x20] = {0};
+    sprintf(entries_count_str, "/%i", list->entries_count);
+    float x = 316;
+    x -= pp2d_get_text_width(entries_count_str, 0.6, 0.6);
+    pp2d_draw_text(x, 219, 0.6, 0.6, COLOR_WHITE, entries_count_str);
+
+    char selected_entry_str[0x20] = {0};
+    sprintf(selected_entry_str, "%i", selected_entry + 1);
+    x -= pp2d_get_text_width(selected_entry_str, 0.6, 0.6);
+    pp2d_draw_text(x, 219, 0.6, 0.6, COLOR_WHITE, selected_entry_str);
+
+    pp2d_draw_text(176, 219, 0.6, 0.6, COLOR_WHITE, list->entries_count < 1000 ? "Selected:" : "Sel.:");
 }

source/fs.c

@@ -38,12 +38,12 @@ int filename_compare(__attribute__((unused)) unzFile file, const char *current_f
  
 Result open_archives(void)
 {
-
+    romfsInit();
     u8 regionCode;
     u32 archive1;
     u32 archive2;
  
-    Result retValue;
+    Result res = 0;
  
     FS_Path home;
     FS_Path theme;
@@ -51,6 +51,10 @@ Result open_archives(void)
     CFGU_SecureInfoGetRegion(&regionCode);
     switch(regionCode)
     {
+        case 0:
+            archive1 = 0x000002cc;
+            archive2 = 0x00000082;
+            break;
         case 1:
             archive1 = 0x000002cd;
             archive2 = 0x0000008f;
@@ -59,109 +63,109 @@ Result open_archives(void)
             archive1 = 0x000002ce;
             archive2 = 0x00000098;
             break;
-        case 3:
-            archive1 = 0x000002cc;
-            archive2 = 0x00000082;
-            break;
         default:
             archive1 = 0x00;
             archive2 = 0x00;
     }
  
-    retValue = FSUSER_OpenArchive(&ArchiveSD, ARCHIVE_SDMC, fsMakePath(PATH_EMPTY, ""));
-    if(R_FAILED(retValue)) return retValue;
+    if(R_FAILED(res = FSUSER_OpenArchive(&ArchiveSD, ARCHIVE_SDMC, fsMakePath(PATH_EMPTY, "")))) return res;
+
+    FSUSER_CreateDirectory(ArchiveSD, fsMakePath(PATH_ASCII, "/Themes"), FS_ATTRIBUTE_DIRECTORY);
+    FSUSER_CreateDirectory(ArchiveSD, fsMakePath(PATH_ASCII, "/Splashes"), FS_ATTRIBUTE_DIRECTORY);
  
     u32 homeMenuPath[3] = {MEDIATYPE_SD, archive2, 0};
     home.type = PATH_BINARY;
     home.size = 0xC;
     home.data = homeMenuPath;
-    retValue = FSUSER_OpenArchive(&ArchiveHomeExt, ARCHIVE_EXTDATA, home);  
-    if(R_FAILED(retValue)) return retValue;
+    if(R_FAILED(res = FSUSER_OpenArchive(&ArchiveHomeExt, ARCHIVE_EXTDATA, home))) return res;
  
     u32 themePath[3] = {MEDIATYPE_SD, archive1, 0};
     theme.type = PATH_BINARY;
     theme.size = 0xC;
     theme.data = themePath;
-    retValue = FSUSER_OpenArchive(&ArchiveThemeExt, ARCHIVE_EXTDATA, theme);    
-    if(R_FAILED(retValue)) return retValue;
+    if(R_FAILED(res = FSUSER_OpenArchive(&ArchiveThemeExt, ARCHIVE_EXTDATA, theme))) return res;
+ 
+    Handle test_handle;
+    if(R_FAILED(res = FSUSER_OpenFile(&test_handle, ArchiveThemeExt, fsMakePath(PATH_ASCII, "/ThemeManage.bin"), FS_OPEN_READ, 0))) return res;
+    FSFILE_Close(test_handle);
  
-    romfsInit();
     return 0;
 }
 
 Result close_archives(void)
 {
-    Result retValue;
+    Result res;
  
-    retValue = FSUSER_CloseArchive(ArchiveSD);
-    if(R_FAILED(retValue)) return retValue;
-    retValue = FSUSER_CloseArchive(ArchiveHomeExt);
-    if(R_FAILED(retValue)) return retValue;
-    retValue = FSUSER_CloseArchive(ArchiveThemeExt);
-    if(R_FAILED(retValue)) return retValue;
+    if(R_FAILED(res = FSUSER_CloseArchive(ArchiveSD))) return res;
+    if(R_FAILED(res = FSUSER_CloseArchive(ArchiveHomeExt))) return res;
+    if(R_FAILED(res = FSUSER_CloseArchive(ArchiveThemeExt))) return res;
 
     return 0;
 }
  
-u64 file_to_buf(FS_Path path, FS_Archive archive, char** buf)
+u32 file_to_buf(FS_Path path, FS_Archive archive, char** buf)
 {
     Handle file;
-    Result res = FSUSER_OpenFile(&file, archive, path, FS_OPEN_READ, 0);
-    if (R_FAILED(res)) return 0;
+    Result res = 0;
+    if (R_FAILED(res = FSUSER_OpenFile(&file, archive, path, FS_OPEN_READ, 0))) return 0;
  
     u64 size;
     FSFILE_GetSize(file, &size);
-    *buf = malloc(size);
+    if(size != 0)
+    {
+        *buf = calloc(1, size);
         FSFILE_Read(file, NULL, 0, *buf, size);
+    }
     FSFILE_Close(file);
-    return size;
+    return (u32)size;
 }
 
 u32 zip_file_to_buf(char *file_name, u16 *zip_path, char **buf)
 {
     ssize_t len = strulen(zip_path, 0x106);
+    char *path = calloc(sizeof(char), len*sizeof(u16));
+    utf16_to_utf8((u8*)path, zip_path, len*sizeof(u16));
 
-    u8 *path = calloc(sizeof(u8), len * 4);
-    utf16_to_utf8(path, zip_path, len * 4);
+    unzFile zip_handle = unzOpen(path);
+    free(path);
 
-    unzFile zip_handle = unzOpen((char*)path);
-
-    if (zip_handle == NULL) return 0;
-    u32 file_size = 0;
-
-    int status = unzLocateFile(zip_handle, file_name, filename_compare);
-    if (status == UNZ_OK)
+    if(zip_handle == NULL)
     {
-        unz_file_info *file_info = malloc(sizeof(unz_file_info));
+        DEBUG("invalid zip being opened\n");
+        return 0;
+    }
+
+    u32 file_size = 0;
+    int status = unzLocateFile(zip_handle, file_name, filename_compare);
+
+    if(status == UNZ_OK)
+    {
+        unz_file_info *file_info = calloc(1, sizeof(unz_file_info));
         unzGetCurrentFileInfo(zip_handle, file_info, NULL, 0, NULL, 0, NULL, 0);
         file_size = file_info->uncompressed_size;
-        *buf = malloc(file_size);
+        free(file_info);
+        *buf = calloc(1, file_size);
         unzOpenCurrentFile(zip_handle);
         unzReadCurrentFile(zip_handle, *buf, file_size);
         unzCloseCurrentFile(zip_handle);
-        unzClose(zip_handle);
-
-        free(path);
-        free(file_info);
-        return file_size;
-    } else {
-        free(path);
-        puts("fileziprip");
-        return 0;
     }
+    else if(status == UNZ_END_OF_LIST_OF_FILE)
+        DEBUG("file not found in zip\n");
+    else
+        DEBUG("other zip error\n");
+
+    unzClose(zip_handle);
+    return file_size;
 }
 
-u32 buf_to_file(u32 size, char *path, FS_Archive archive, char *buf)
+Result buf_to_file(u32 size, char *path, FS_Archive archive, char *buf)
 {
     Handle handle;
-    u32 bytes = 0;
-    Result res = FSUSER_OpenFile(&handle, archive, fsMakePath(PATH_ASCII, path), FS_OPEN_WRITE, 0);
-    if (R_FAILED(res)) return res;
-    res = FSFILE_Write(handle, &bytes, 0, buf, size, FS_WRITE_FLUSH);
-    if (R_FAILED(res)) return res;
-    res = FSFILE_Close(handle);
-    if (R_FAILED(res)) return res;
-    return bytes;
+    Result res = 0;
+    if (R_FAILED(res = FSUSER_OpenFile(&handle, archive, fsMakePath(PATH_ASCII, path), FS_OPEN_WRITE, 0))) return res;
+    if (R_FAILED(res = FSFILE_Write(handle, NULL, 0, buf, size, FS_WRITE_FLUSH))) return res;
+    if (R_FAILED(res = FSFILE_Close(handle))) return res;
+    return 0;
 }
  
 void remake_file(char *path, FS_Archive archive, u32 size)

source/loading.c

@@ -0,0 +1,422 @@
+/*
+*   This file is part of Anemone3DS
+*   Copyright (C) 2016-2017 Alex Taber ("astronautlevel"), Dawid Eckert ("daedreth")
+*
+*   This program 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.
+*
+*   This program 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 this program.  If not, see <http://www.gnu.org/licenses/>.
+*
+*   Additional Terms 7.b and 7.c of GPLv3 apply to this file:
+*       * Requiring preservation of specified reasonable legal notices or
+*         author attributions in that material or in the Appropriate Legal
+*         Notices displayed by works containing it.
+*       * Prohibiting misrepresentation of the origin of that material,
+*         or requiring that modified versions of such material be marked in
+*         reasonable ways as different from the original version.
+*/
+
+#include "loading.h"
+#include "pp2d/pp2d/pp2d.h"
+#include "fs.h"
+#include "unicode.h"
+#include "draw.h"
+
+void delete_entry(Entry_s entry)
+{
+    if(entry.is_zip)
+        FSUSER_DeleteFile(ArchiveSD, fsMakePath(PATH_UTF16, entry.path));
+    else
+        FSUSER_DeleteDirectoryRecursively(ArchiveSD, fsMakePath(PATH_UTF16, entry.path));
+}
+
+u32 load_data(char * filename, Entry_s entry, char ** buf)
+{
+    if(entry.is_zip)
+    {
+        return zip_file_to_buf(filename+1, entry.path, buf); //the first character will always be '/' because of the other case
+    }
+    else
+    {
+        u16 path[0x106] = {0};
+        strucat(path, entry.path);
+        struacat(path, filename);
+
+        return file_to_buf(fsMakePath(PATH_UTF16, path), ArchiveSD, buf);
+    }
+}
+
+static void parse_smdh(Entry_s * entry, const u16 * fallback_name)
+{
+    char *info_buffer = NULL;
+    u64 size = load_data("/info.smdh", *entry, &info_buffer);
+    Icon_s * smdh = (Icon_s *)info_buffer;
+
+    if(!size)
+    {
+        free(info_buffer);
+        memcpy(entry->name, fallback_name, 0x80);
+        utf8_to_utf16(entry->desc, (u8*)"No description", 0x100);
+        utf8_to_utf16(entry->author, (u8*)"Unknown author", 0x80);
+        entry->placeholder_color = RGBA8(rand() % 255, rand() % 255, rand() % 255, 255);
+        return;
+    }
+
+    memcpy(entry->name, smdh->name, 0x40*sizeof(u16));
+    memcpy(entry->desc, smdh->desc, 0x80*sizeof(u16));
+    memcpy(entry->author, smdh->author, 0x40*sizeof(u16));
+}
+
+static void load_smdh_icon(Entry_s entry, const ssize_t textureID)
+{
+    pp2d_free_texture(textureID);
+
+    char *info_buffer = NULL;
+    u64 size = load_data("/info.smdh", entry, &info_buffer);
+    if(!size) return;
+
+    Icon_s * smdh = (Icon_s *)info_buffer;
+
+    const u32 width = 48, height = 48;
+    u32 *image = malloc(width*height*sizeof(u32));
+
+    for(u32 x = 0; x < width; x++)
+    {
+        for(u32 y = 0; y < height; y++)
+        {
+            unsigned int dest_pixel = (x + y*width);
+            unsigned int source_pixel = (((y >> 3) * (width >> 3) + (x >> 3)) << 6) + ((x & 1) | ((y & 1) << 1) | ((x & 2) << 1) | ((y & 2) << 2) | ((x & 4) << 2) | ((y & 4) << 3));
+
+            image[dest_pixel] = RGB565_TO_ABGR8(smdh->big_icon[source_pixel]);
+        }
+    }
+
+    free(info_buffer);
+    pp2d_load_texture_memory(textureID, (u8*)image, (u32)width, (u32)height);
+    free(image);
+}
+
+static int compare_entries(const void * a, const void * b)
+{
+    Entry_s *entry_a = (Entry_s *)a;
+    Entry_s *entry_b = (Entry_s *)b;
+
+    return memcmp(entry_a->name, entry_b->name, 0x40*sizeof(u16));
+}
+
+static void sort_list(Entry_List_s * list)
+{
+    qsort(list->entries, list->entries_count, sizeof(Entry_s), compare_entries); //alphabet sort
+}
+
+Result load_entries(const char * loading_path, Entry_List_s * list, EntryMode mode)
+{
+    Handle dir_handle;
+    Result res = FSUSER_OpenDirectory(&dir_handle, ArchiveSD, fsMakePath(PATH_ASCII, loading_path));
+    if(R_FAILED(res))
+        return res;
+
+    u32 entries_read = 1;
+
+    while(entries_read)
+    {
+        FS_DirectoryEntry dir_entry = {0};
+        res = FSDIR_Read(dir_handle, &entries_read, 1, &dir_entry);
+        if(R_FAILED(res) || entries_read == 0)
+            break;
+
+        if(!(dir_entry.attributes & FS_ATTRIBUTE_DIRECTORY) && strcmp(dir_entry.shortExt, "ZIP"))
+            continue;
+
+        list->entries_count++;
+        Entry_s * new_list = realloc(list->entries, list->entries_count * sizeof(Entry_s));
+        if(new_list == NULL)
+        {
+            free(list->entries);
+            list->entries = NULL;
+            res = -1;
+            break;
+        }
+        else
+            list->entries = new_list;
+
+        Entry_s * current_entry = &(list->entries[list->entries_count-1]);
+        memset(current_entry, 0, sizeof(Entry_s));
+
+        struacat(current_entry->path, loading_path);
+        strucat(current_entry->path, dir_entry.name);
+
+        current_entry->is_zip = !strcmp(dir_entry.shortExt, "ZIP");
+
+        parse_smdh(current_entry, dir_entry.name);
+    }
+
+    FSDIR_Close(dir_handle);
+
+    sort_list(list);
+    list->mode = mode;
+
+    return res;
+}
+
+void load_icons_first(Entry_List_s * list, bool silent)
+{
+    if(list == NULL || list->entries == NULL) return;
+
+    if(!silent)
+        draw_install(INSTALL_LOADING_ICONS);
+
+    int starti = 0, endi = 0;
+
+    if(list->entries_count <= ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT)
+    {
+        DEBUG("small load\n");
+        // if the list is one that doesnt need swapping, load everything at once
+        endi = list->entries_count;
+    }
+    else
+    {
+        DEBUG("extended load\n");
+        // otherwise, load around to prepare for swapping
+        starti = list->scroll - ENTRIES_PER_SCREEN*ICONS_VISIBLE;
+        endi = starti + ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT;
+    }
+
+    ssize_t * icon_ids = (ssize_t *)list->icons_ids;
+    ssize_t id = list->texture_id_offset;
+
+    memset(icon_ids, 0, ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT*sizeof(ssize_t));
+    for(int i = starti; i < endi; i++, id++)
+    {
+        int offset = i;
+        if(offset < 0)
+            offset += list->entries_count;
+        if(offset >= list->entries_count)
+            offset -= list->entries_count;
+
+        Entry_s current_entry = list->entries[offset];
+        load_smdh_icon(current_entry, id);
+        icon_ids[i-starti] = id;
+    }
+}
+
+static void reverse(ssize_t a[], int sz) {
+    int i, j;
+    for (i = 0, j = sz; i < j; i++, j--) {
+        ssize_t tmp = a[i];
+        a[i] = a[j];
+        a[j] = tmp;
+    }
+}
+
+static void rotate(ssize_t array[], int size, int amt) {
+    if (amt < 0)
+        amt = size + amt;
+    reverse(array, size-amt-1);
+    reverse(array+size-amt, amt-1);
+    reverse(array, size-1);
+}
+
+void handle_scrolling(Entry_List_s * list)
+{
+    // Scroll the menu up or down if the selected theme is out of its bounds
+    //----------------------------------------------------------------
+    if(list->entries_count > ENTRIES_PER_SCREEN)
+    {
+        for(int i = 0; i < list->entries_count; i++)
+        {
+            int change = 0;
+
+            if(list->entries_count > ENTRIES_PER_SCREEN*2 && list->previous_scroll < ENTRIES_PER_SCREEN && list->selected_entry >= list->entries_count - ENTRIES_PER_SCREEN)
+            {
+                list->scroll = list->entries_count - ENTRIES_PER_SCREEN;
+            }
+            else if(list->entries_count > ENTRIES_PER_SCREEN*2 && list->selected_entry < ENTRIES_PER_SCREEN && list->previous_selected >= list->entries_count - ENTRIES_PER_SCREEN)
+            {
+                list->scroll = 0;
+            }
+            else if(list->selected_entry == list->previous_selected+1 && list->selected_entry == list->scroll+ENTRIES_PER_SCREEN)
+            {
+                change = 1;
+            }
+            else if(list->selected_entry == list->previous_selected-1 && list->selected_entry == list->scroll-1)
+            {
+                change = -1;
+            }
+            else if(list->selected_entry == list->previous_selected+ENTRIES_PER_SCREEN || list->selected_entry >= list->scroll + ENTRIES_PER_SCREEN)
+            {
+                change = ENTRIES_PER_SCREEN;
+            }
+            else if(list->selected_entry == list->previous_selected-ENTRIES_PER_SCREEN || list->selected_entry < list->scroll)
+            {
+                change = -ENTRIES_PER_SCREEN;
+            }
+
+            list->scroll += change;
+
+            if(list->scroll < 0)
+                list->scroll = 0;
+            else if(list->scroll > list->entries_count - ENTRIES_PER_SCREEN)
+                list->scroll = list->entries_count - ENTRIES_PER_SCREEN;
+
+            if(!change)
+                list->previous_selected = list->selected_entry;
+            else
+                list->previous_selected += change;
+        }
+    }
+    //----------------------------------------------------------------
+}
+
+static void load_icons(Entry_List_s * current_list)
+{
+    if(current_list == NULL || current_list->entries == NULL)
+        return;
+
+    handle_scrolling(current_list);
+
+    if(current_list->entries_count <= ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT || current_list->previous_scroll == current_list->scroll)
+        return; // return if the list is one that doesnt need swapping, or if nothing changed
+
+    #define SIGN(x) (x > 0 ? 1 : ((x < 0) ? -1 : 0))
+
+    int delta = current_list->scroll - current_list->previous_scroll;
+    if(abs(delta) >= current_list->entries_count - ENTRIES_PER_SCREEN*(ICONS_OFFSET_AMOUNT-1))
+        delta = -SIGN(delta) * (current_list->entries_count - abs(delta));
+
+    int starti = current_list->scroll;
+    int endi = starti + abs(delta);
+
+    if(delta < 0)
+    {
+        endi -= abs(delta) + 1;
+        starti += abs(delta) - 1;
+    }
+
+    int ctr = 0;
+    Entry_s ** entries = calloc(abs(delta), sizeof(Entry_s *));
+    ssize_t * ids = calloc(abs(delta), sizeof(ssize_t));
+
+    #define FIRST(arr) arr[0]
+    #define LAST(arr) arr[ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT - 1]
+
+    ssize_t * icons_ids = (ssize_t *)current_list->icons_ids;
+
+    for(int i = starti; i != endi; i++, ctr++)
+    {
+        ssize_t id = 0;
+        int offset = i;
+
+        rotate(icons_ids, ICONS_OFFSET_AMOUNT*ENTRIES_PER_SCREEN, -1*SIGN(delta));
+
+        if(delta > 0)
+        {
+            id = LAST(icons_ids);
+            offset += ENTRIES_PER_SCREEN*ICONS_UNDER - delta;
+        }
+        else
+        {
+            id = FIRST(icons_ids);
+            offset -= ENTRIES_PER_SCREEN*ICONS_VISIBLE;
+            i -= 2; //i-- twice to counter the i++, needed only for this case
+        }
+
+        if(offset < 0)
+            offset += current_list->entries_count;
+        if(offset >= current_list->entries_count)
+            offset -= current_list->entries_count;
+
+        entries[ctr] = &current_list->entries[offset];
+        ids[ctr] = id;
+    }
+
+    #undef FIRST
+    #undef LAST
+    #undef SIGN
+
+    svcSleepThread(1e6);
+    for(int i = 0; i < abs(delta); i++)
+        load_smdh_icon(*entries[i], ids[i]);
+
+    free(entries);
+    free(ids);
+
+    current_list->previous_scroll = current_list->scroll;
+}
+
+void load_icons_thread(void * void_arg)
+{
+    Thread_Arg_s * arg = (Thread_Arg_s *)void_arg;
+    Handle update_request = *(Handle *)arg->thread_arg[1];
+    do
+    {
+        svcWaitSynchronization(update_request, U64_MAX);
+        svcClearEvent(update_request);
+        volatile Entry_List_s * current_list = *(volatile Entry_List_s **)arg->thread_arg[0];
+        load_icons((Entry_List_s *)current_list);
+    }
+    while(arg->run_thread);
+}
+
+static u16 previous_path_preview[0x106] = {0};
+bool load_preview(Entry_List_s list, int * preview_offset)
+{
+    if(list.entries == NULL) return false;
+
+    Entry_s entry = list.entries[list.selected_entry];
+
+    if(!memcmp(&previous_path_preview, &entry.path, 0x106*sizeof(u16))) return true;
+
+    char *preview_buffer = NULL;
+    u64 size = load_data("/preview.png", entry, &preview_buffer);
+
+    if(!size)
+    {
+        free(preview_buffer);
+        throw_error("No preview found.", ERROR_LEVEL_WARNING);
+        return false;
+    }
+
+    bool ret = false;
+    u8 * image = NULL;
+    unsigned int width = 0, height = 0;
+
+    if((lodepng_decode32(&image, &width, &height, (u8*)preview_buffer, size)) == 0) // no error
+    {
+        for(u32 i = 0; i < width; i++)
+        {
+            for(u32 j = 0; j < height; j++)
+            {
+                u32* pixel = (u32*)(image + (i + j*width) * 4);
+                *pixel = __builtin_bswap32(*pixel); //swap from RGBA to ABGR, needed for pp2d
+            }
+        }
+
+        // mark the new preview as loaded for optimisation
+        memcpy(&previous_path_preview, &entry.path, 0x106*sizeof(u16));
+        // free the previously loaded preview. wont do anything if there wasnt one
+        pp2d_free_texture(TEXTURE_PREVIEW);
+
+        pp2d_load_texture_memory(TEXTURE_PREVIEW, image, (u32)width, (u32)height);
+
+        *preview_offset = (width-400)/2;
+        ret = true;
+    }
+    else
+    {
+        throw_error("Corrupted/invalid preview.png", ERROR_LEVEL_WARNING);
+    }
+
+    free(image);
+    free(preview_buffer);
+
+    return ret;
+}

source/main.c

@@ -25,194 +25,649 @@
 */
 
 #include "fs.h"
+#include "loading.h"
 #include "themes.h"
 #include "splashes.h"
 #include "draw.h"
+#include "camera.h"
+#include "instructions.h"
+#include "pp2d/pp2d/pp2d.h"
+#include <time.h>
 
-int init_services(void)
+#define FASTSCROLL_WAIT 1.5e8
+
+static bool homebrew = false;
+static bool installed_themes = false;
+
+static Thread iconLoadingThread = {0};
+static Thread_Arg_s iconLoadingThread_arg = {0};
+static Handle update_icons_handle;
+
+static Thread installCheckThreads[MODE_AMOUNT] = {0};
+static Thread_Arg_s installCheckThreads_arg[MODE_AMOUNT] = {0};
+
+static Entry_List_s lists[MODE_AMOUNT] = {0};
+
+int __stacksize__ = 64 * 1024;
+Result archive_result;
+u32 old_time_limit;
+
+const char * main_paths[MODE_AMOUNT] = {
+    "/Themes/",
+    "/Splashes/",
+};
+
+static void init_services(void)
 {
+    consoleDebugInit(debugDevice_SVC);
     cfguInit();
-    open_archives();
-    ptmSysmInit();
-    return 0;
+    ptmuInit();
+    acInit();
+    APT_GetAppCpuTimeLimit(&old_time_limit);
+    APT_SetAppCpuTimeLimit(30);
+    httpcInit(0);
+    archive_result = open_archives();
+    if(envIsHomebrew())
+    {
+        s64 out;
+        svcGetSystemInfo(&out, 0x10000, 0);
+        homebrew = !out;
+    }
 }
 
-int exit_services(void)
+static void exit_services(void)
 {
     close_archives();
     cfguExit();
-    return 0;
+    ptmuExit();
+    if (old_time_limit != UINT32_MAX) APT_SetAppCpuTimeLimit(old_time_limit);
+    httpcExit();
+    acExit();
+}
+
+static void stop_install_check(void)
+{
+    for(int i = 0; i < MODE_AMOUNT; i++)
+    {
+        if(installCheckThreads_arg[i].run_thread)
+        {
+            installCheckThreads_arg[i].run_thread = false;
+        }
+    }
+}
+
+static void exit_thread(void)
+{
+    if(iconLoadingThread_arg.run_thread)
+    {
+        DEBUG("exiting thread\n");
+        iconLoadingThread_arg.run_thread = false;
+        svcSignalEvent(update_icons_handle);
+        threadJoin(iconLoadingThread, U64_MAX);
+        threadFree(iconLoadingThread);
+    }
+}
+
+void free_lists(void)
+{
+    stop_install_check();
+    for(int i = 0; i < MODE_AMOUNT; i++)
+    {
+        Entry_List_s * current_list = &lists[i];
+        free(current_list->entries);
+        memset(current_list, 0, sizeof(Entry_List_s));
+    }
+    exit_thread();
+}
+
+void exit_function(bool power_pressed)
+{
+    free_lists();
+    svcCloseHandle(update_icons_handle);
+    exit_screens();
+    exit_services();
+
+    if(!power_pressed && installed_themes)
+    {
+        if(homebrew)
+        {
+            APT_HardwareResetAsync();
+        }
+        else
+        {
+            srvPublishToSubscriber(0x202, 0);
+        }
+    }
+}
+
+static SwkbdCallbackResult jump_menu_callback(void* entries_count, const char** ppMessage, const char* text, size_t textlen)
+{
+    int typed_value = atoi(text);
+    if(typed_value > *(int*)entries_count)
+    {
+        *ppMessage = "The new position has to be\nsmaller or equal to the\nnumber of entries!";
+        return SWKBD_CALLBACK_CONTINUE;
+    }
+    else if(typed_value == 0)
+    {
+        *ppMessage = "The new position has to\nbe positive!";
+        return SWKBD_CALLBACK_CONTINUE;
+    }
+    return SWKBD_CALLBACK_OK;
+}
+
+static void jump_menu(Entry_List_s * list)
+{
+    if(list == NULL) return;
+
+    char numbuf[64] = {0};
+
+    SwkbdState swkbd;
+
+    sprintf(numbuf, "%i", list->entries_count);
+    int max_chars = strlen(numbuf);
+    swkbdInit(&swkbd, SWKBD_TYPE_NUMPAD, 2, max_chars);
+
+    sprintf(numbuf, "%i", list->selected_entry);
+    swkbdSetInitialText(&swkbd, numbuf);
+
+    sprintf(numbuf, "Where do you want to jump to?\nMay cause icons to reload.");
+    swkbdSetHintText(&swkbd, numbuf);
+
+    swkbdSetButton(&swkbd, SWKBD_BUTTON_LEFT, "Cancel", false);
+    swkbdSetButton(&swkbd, SWKBD_BUTTON_RIGHT, "Jump", true);
+    swkbdSetValidation(&swkbd, SWKBD_NOTEMPTY_NOTBLANK, 0, max_chars);
+    swkbdSetFilterCallback(&swkbd, jump_menu_callback, &list->entries_count);
+
+    memset(numbuf, 0, sizeof(numbuf));
+    SwkbdButton button = swkbdInputText(&swkbd, numbuf, sizeof(numbuf));
+    if(button == SWKBD_BUTTON_CONFIRM)
+    {
+        list->selected_entry = atoi(numbuf) - 1;
+        list->scroll = list->selected_entry;
+        if(list->scroll >= list->entries_count - ENTRIES_PER_SCREEN)
+            list->scroll = list->entries_count - ENTRIES_PER_SCREEN - 1;
+    }
+}
+
+static void change_selected(Entry_List_s * list, int change_value)
+{
+    if(abs(change_value) >= list->entries_count) return;
+
+    list->selected_entry += change_value;
+    if(list->selected_entry < 0)
+        list->selected_entry += list->entries_count;
+    list->selected_entry %= list->entries_count;
+}
+
+static void start_thread(void)
+{
+    if(iconLoadingThread_arg.run_thread)
+    {
+        DEBUG("starting thread\n");
+        iconLoadingThread = threadCreate(load_icons_thread, &iconLoadingThread_arg, __stacksize__, 0x38, -2, false);
+    }
+}
+
+static void load_lists(Entry_List_s * lists)
+{
+    ssize_t texture_id_offset = TEXTURE_ICON;
+
+    free_lists();
+    for(int i = 0; i < MODE_AMOUNT; i++)
+    {
+        InstallType loading_screen = INSTALL_NONE;
+        if(i == MODE_THEMES)
+            loading_screen = INSTALL_LOADING_THEMES;
+        else if(i == MODE_SPLASHES)
+            loading_screen = INSTALL_LOADING_SPLASHES;
+
+        draw_install(loading_screen);
+        draw_install(loading_screen);
+
+        Entry_List_s * current_list = &lists[i];
+        Result res = load_entries(main_paths[i], current_list, i);
+        if(R_SUCCEEDED(res))
+        {
+            if(current_list->entries_count > ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT)
+                iconLoadingThread_arg.run_thread = true;
+
+            DEBUG("total: %i\n", current_list->entries_count);
+
+            current_list->texture_id_offset = texture_id_offset;
+            load_icons_first(current_list, false);
+
+            texture_id_offset += ENTRIES_PER_SCREEN*ICONS_OFFSET_AMOUNT;
+
+            void (*install_check_function)(void*) = NULL;
+            if(i == MODE_THEMES)
+                install_check_function = themes_check_installed;
+            else if(i == MODE_SPLASHES)
+                install_check_function = splash_check_installed;
+
+            Thread_Arg_s * current_arg = &installCheckThreads_arg[i];
+            current_arg->run_thread = true;
+            current_arg->thread_arg = (void**)current_list;
+
+            installCheckThreads[i] = threadCreate(install_check_function, current_arg, __stacksize__, 0x3f, -2, true);
+            svcSleepThread(1e8);
+        }
+    }
+    start_thread();
+}
+
+static void toggle_shuffle(Entry_List_s * list)
+{
+    Entry_s * current_entry = &list->entries[list->selected_entry];
+    if(current_entry->in_shuffle) list->shuffle_count--;
+    else list->shuffle_count++;
+    current_entry->in_shuffle = !current_entry->in_shuffle;
 }
 
 int main(void)
 {
+    srand(time(NULL));
     init_services();
     init_screens();
 
+    svcCreateEvent(&update_icons_handle, RESET_ONESHOT);
 
-    int theme_count = 0;
-    Theme_s * themes_list = NULL;
-    Result res = get_themes(&themes_list, &theme_count);
-    if (R_FAILED(res))
-    {
-        //don't need to worry about possible textures (icons, previews), that's freed by pp2d itself
-        free(themes_list);
-        themes_list = NULL;
-    }
-    int splash_count = 0;
-    Splash_s *splashes_list = NULL;
-    res = get_splashes(&splashes_list, &splash_count);
-    if (R_FAILED(res))
-    {
-        //don't need to worry about possible textures (icons, previews), that's freed by pp2d itself
-        free(splashes_list);
-        splashes_list = NULL;
-    }
+    static Entry_List_s * current_list = NULL;
+    void * iconLoadingThread_args_void[] = {
+        &current_list,
+        &update_icons_handle,
+    };
+    iconLoadingThread_arg.thread_arg = iconLoadingThread_args_void;
+    iconLoadingThread_arg.run_thread = false;
+
+    #ifndef CITRA_MODE
+    if(R_SUCCEEDED(archive_result))
+        load_lists(lists);
+    #endif
+
+    EntryMode current_mode = MODE_THEMES;
 
-    bool splash_mode = false;
-    int selected_splash = 0;
-    int selected_theme = 0;
-    int shuffle_theme_count = 0;
     bool preview_mode = false;
+    int preview_offset = 0;
+
+    bool qr_mode = false;
+    bool install_mode = false;
+
+    bool quit = false;
 
     while(aptMainLoop())
     {
+        if(quit)
+        {
+            exit_function(false);
+            return 0;
+        }
+
+        #ifndef CITRA_MODE
+        if(R_FAILED(archive_result) && current_mode == MODE_THEMES)
+        {
+            throw_error("Theme extdata does not exist!\nSet a default theme from the home menu.", ERROR_LEVEL_ERROR);
+            quit = true;
+            continue;
+        }
+        #endif
+
         hidScanInput();
         u32 kDown = hidKeysDown();
+        u32 kHeld = hidKeysHeld();
+        u32 kUp = hidKeysUp();
 
-        if (!splash_mode) draw_theme_interface(themes_list, theme_count, selected_theme, preview_mode);
-        else draw_splash_interface(splashes_list, splash_count, selected_splash, preview_mode);
+        current_list = &lists[current_mode];
 
-        if (themes_list == NULL && !splash_mode)
+        Instructions_s instructions = normal_instructions[current_mode];
+        if(install_mode)
+            instructions = install_instructions;
+
+        if(qr_mode) take_picture();
+        else if(preview_mode) draw_preview(preview_offset);
+        else {
+            if(!iconLoadingThread_arg.run_thread)
+            {
+                handle_scrolling(current_list);
+                current_list->previous_scroll = current_list->scroll;
+            }
+            else
+            {
+                svcSignalEvent(update_icons_handle);
+                svcSleepThread(5e6);
+            }
+
+            draw_interface(current_list, instructions);
+            svcSleepThread(1e7);
+        }
+
+        pp2d_end_draw();
+
+        if(kDown & KEY_START) quit = true;
+
+        if(!install_mode)
+        {
+            if(!preview_mode && !qr_mode && kDown & KEY_L) //toggle between splashes and themes
+            {
+                switch_mode:
+                current_mode++;
+                current_mode %= MODE_AMOUNT;
                 continue;
-        
-        if (splashes_list == NULL && splash_mode)
-            continue;
-
-        Theme_s * current_theme = &themes_list[selected_theme];
-        Splash_s *current_splash = &splashes_list[selected_splash];
-        
-        if (kDown & KEY_Y)
+            }
+            else if(!qr_mode && !preview_mode && kDown & KEY_R) //toggle QR mode
             {
-            if (!preview_mode)
+                enable_qr:
+                if(R_SUCCEEDED(camInit()))
                 {
-                load_theme_preview(current_theme);
-                if (current_theme->has_preview)
+                    camExit();
+                    u32 out;
+                    ACU_GetWifiStatus(&out);
+                    if(out)
                     {
-                    preview_mode = true;
+
+                        if(init_qr(current_mode))
+                        {
+                            load_lists(lists);
                         }
                     }
                     else
-                preview_mode = false;
+                    {
+                        throw_error("Please connect to Wi-Fi before scanning QRs", ERROR_LEVEL_WARNING);
+                    }
+                }
+                else
+                {
+                    throw_error("Your camera seems to have a problem, unable to scan QRs.", ERROR_LEVEL_WARNING);
                 }
 
-        //don't allow anything while the preview is up
-        if (preview_mode)
+                continue;
+            }
+            else if(!qr_mode && kDown & KEY_Y) //toggle preview mode
+            {
+                toggle_preview:
+                if(!preview_mode)
+                    preview_mode = load_preview(*current_list, &preview_offset);
+                else
+                    preview_mode = false;
+                continue;
+            }
+            else if(preview_mode && kDown & (KEY_B | KEY_TOUCH))
+            {
+                preview_mode = false;
+                continue;
+            }
+        }
+
+        if(qr_mode || preview_mode || current_list->entries == NULL)
             continue;
 
+        int selected_entry = current_list->selected_entry;
+        Entry_s * current_entry = &current_list->entries[selected_entry];
+
+        if(install_mode)
+        {
+            if(kUp & KEY_A)
+                install_mode = false;
+            if(!install_mode)
+            {
+                if((kDown | kHeld) & KEY_DLEFT)
+                {
+                    draw_install(INSTALL_BGM);
+                    if(R_SUCCEEDED(bgm_install(*current_entry)))
+                    {
+                        for(int i = 0; i < current_list->entries_count; i++)
+                        {
+                            Entry_s * theme = &current_list->entries[i];
+                            if(theme == current_entry)
+                                theme->installed = true;
+                            else
+                                theme->installed = false;
+                        }
+                        installed_themes = true;
+                    }
+                }
+                else if((kDown | kHeld) & KEY_DUP)
+                {
+                    draw_install(INSTALL_SINGLE);
+                    if(R_SUCCEEDED(theme_install(*current_entry)))
+                    {
+                        for(int i = 0; i < current_list->entries_count; i++)
+                        {
+                            Entry_s * theme = &current_list->entries[i];
+                            if(theme == current_entry)
+                                theme->installed = true;
+                            else
+                                theme->installed = false;
+                        }
+                        installed_themes = true;
+                    }
+                }
+                else if((kDown | kHeld) & KEY_DRIGHT)
+                {
+                    draw_install(INSTALL_NO_BGM);
+                    if(R_SUCCEEDED(no_bgm_install(*current_entry)))
+                    {
+                        for(int i = 0; i < current_list->entries_count; i++)
+                        {
+                            Entry_s * theme = &current_list->entries[i];
+                            if(theme == current_entry)
+                                theme->installed = true;
+                            else
+                                theme->installed = false;
+                        }
+                        installed_themes = true;
+                    }
+                }
+                else if((kDown | kHeld) & KEY_DDOWN)
+                {
+                    if(current_list->shuffle_count > MAX_SHUFFLE_THEMES)
+                    {
+                        throw_error("You have too many themes selected.", ERROR_LEVEL_WARNING);
+                    }
+                    else if(current_list->shuffle_count == 0)
+                    {
+                        throw_error("You don't have any themes selected.", ERROR_LEVEL_WARNING);
+                    }
+                    else
+                    {
+                        draw_install(INSTALL_SHUFFLE);
+                        Result res = shuffle_install(*current_list);
+                        if(R_FAILED(res)) DEBUG("shuffle install result: %lx\n", res);
+                        else
+                        {
+                            for(int i = 0; i < current_list->entries_count; i++)
+                            {
+                                Entry_s * theme = &current_list->entries[i];
+                                if(theme->in_shuffle)
+                                {
+                                    theme->in_shuffle = false;
+                                    theme->installed = true;
+                                }
+                                else theme->installed = false;
+                            }
+                            current_list->shuffle_count = 0;
+                            installed_themes = true;
+                        }
+                    }
+                }
+            }
+            continue;
+        }
+
         // Actions
-        else if (kDown & KEY_L)
-        {
-            splash_mode = !splash_mode;
-        }
-        else if (kDown & KEY_X)
-        {
-            // install_bgm(current_theme);
-        }
-        else if (kDown & KEY_A)
-        {
-            if (splash_mode)
-            {
-                splash_install(*current_splash);
-            } else {
-                draw_theme_install(false);
-                single_install(*current_theme);
-            }
-        }
 
-        else if (kDown & KEY_B)
+        if(kDown & KEY_A)
         {
-            if (splash_mode)
+            switch(current_mode)
             {
-
-            } else {
-                if (shuffle_theme_count < 10)
-                {
-                    if (current_theme->in_shuffle) shuffle_theme_count--;
-                    else shuffle_theme_count++;
-                    current_theme->in_shuffle = !(current_theme->in_shuffle);
-                } else {
-                    if (current_theme->in_shuffle) {
-                        shuffle_theme_count--;
-                        current_theme->in_shuffle = false;
+                case MODE_THEMES:
+                    install_mode = true;
+                    break;
+                case MODE_SPLASHES:
+                    draw_install(INSTALL_SPLASH);
+                    splash_install(*current_entry);
+                    break;
+                default:
+                    break;
             }
         }
+        else if(kDown & KEY_B)
+        {
+            switch(current_mode)
+            {
+                case MODE_THEMES:
+                    toggle_shuffle(current_list);
+                    break;
+                case MODE_SPLASHES:
+                    if(draw_confirm("Are you sure you would like to delete\nthe installed splash?", current_list))
+                    {
+                        draw_install(INSTALL_SPLASH_DELETE);
+                        splash_delete();
+                    }
+                    break;
+                default:
+                    break;
             }
         }
-
-        else if (kDown & KEY_SELECT)
+        else if(kDown & KEY_X)
         {
-            if (splash_mode)
+            switch(current_mode)
             {
-
-            } else {
-                if (shuffle_theme_count > 0)
-                {
-                    draw_theme_install(true);
-                    shuffle_install(themes_list, theme_count);
+                case MODE_THEMES:
+                    load_icons_first(current_list, false);
+                    break;
+                case MODE_SPLASHES:
+                    load_icons_first(current_list, false);
+                    break;
+                default:
+                    break;
             }
         }
+        else if(kDown & KEY_SELECT)
+        {
+            if(draw_confirm("Are you sure you would like to delete this?", current_list))
+            {
+                draw_install(INSTALL_ENTRY_DELETE);
+                delete_entry(*current_entry);
+                load_lists(lists);
+            }
         }
 
         // Movement in the UI
-        else if (kDown & KEY_DOWN) 
+        else if(kDown & KEY_UP)
         {
-            if (splash_mode)
-            {
-                selected_splash++;
-                if (selected_splash >= splash_count)
-                    selected_splash = splash_count-1;
-            } else {
-                selected_theme++;
-                if (selected_theme >= theme_count)
-                    selected_theme = theme_count-1;
+            change_selected(current_list, -1);
         }
-        }
-        else if (kDown & KEY_UP)
+        else if(kDown & KEY_DOWN)
         {
-            if (splash_mode)
-            {
-                selected_splash--;
-                if (selected_splash < 0)
-                    selected_splash = 0;
-            } else {
-                selected_theme--;
-                if (selected_theme < 0)
-                    selected_theme = 0;
-            }
+            change_selected(current_list, 1);
         }
         // Quick moving
-        else if (kDown & KEY_LEFT) 
+        else if(kDown & KEY_LEFT)
         {
-            if (splash_mode) selected_splash = 0;
-            else selected_theme = 0;
+            change_selected(current_list, -ENTRIES_PER_SCREEN);
         }
-        else if (kDown & KEY_RIGHT)
+        else if(kDown & KEY_RIGHT)
         {
-            if (splash_mode) selected_splash = splash_count - 1;
-            else selected_theme = theme_count-1;
+            change_selected(current_list, ENTRIES_PER_SCREEN);
         }
 
-        if (kDown & KEY_START)
+        // Fast scroll using circle pad
+        else if(kHeld & KEY_CPAD_UP)
         {
-            exit_screens();
-            exit_services();
-            PTMSYSM_RebootAsync(0);
-            ptmSysmExit();
+            change_selected(current_list, -1);
+            svcSleepThread(FASTSCROLL_WAIT);
+        }
+        else if(kHeld & KEY_CPAD_DOWN)
+        {
+            change_selected(current_list, 1);
+            svcSleepThread(FASTSCROLL_WAIT);
+        }
+        else if(kHeld & KEY_CPAD_LEFT)
+        {
+            change_selected(current_list, -ENTRIES_PER_SCREEN);
+            svcSleepThread(FASTSCROLL_WAIT);
+        }
+        else if(kHeld & KEY_CPAD_RIGHT)
+        {
+            change_selected(current_list, ENTRIES_PER_SCREEN);
+            svcSleepThread(FASTSCROLL_WAIT);
+        }
+
+        // Movement using the touchscreen
+        if((kDown | kHeld) & KEY_TOUCH)
+        {
+            touchPosition touch = {0};
+            hidTouchRead(&touch);
+
+            u16 x = touch.px;
+            u16 y = touch.py;
+
+            u16 arrowStartX = 152;
+            u16 arrowEndX = arrowStartX+16;
+
+            #define BETWEEN(min, x, max) (min < x && x < max)
+
+            if(kDown & KEY_TOUCH)
+            {
+                if(y < 24)
+                {
+                    if(BETWEEN(arrowStartX, x, arrowEndX) && current_list->scroll > 0)
+                    {
+                        change_selected(current_list, -ENTRIES_PER_SCREEN);
+                    }
+                    else if(BETWEEN(320-24, x, 320))
+                    {
+                        goto switch_mode;
+                    }
+                    else if(BETWEEN(320-48, x, 320-24))
+                    {
+                        goto enable_qr;
+                    }
+                    else if(BETWEEN(320-72, x, 320-48))
+                    {
+                        goto toggle_preview;
+                    }
+                    else if(BETWEEN(320-96, x, 320-72))
+                    {
+                        load_icons_first(current_list, false);
+                    }
+                    else if(BETWEEN(320-120, x, 320-96) && current_mode == MODE_THEMES)
+                    {
+                        toggle_shuffle(current_list);
+                    }
+                }
+                else if(y >= 216)
+                {
+                    if(BETWEEN(arrowStartX, x, arrowEndX) && current_list->scroll < current_list->entries_count - ENTRIES_PER_SCREEN)
+                    {
+                        change_selected(current_list, ENTRIES_PER_SCREEN);
+                    }
+                    else if(BETWEEN(176, x, 320))
+                    {
+                        jump_menu(current_list);
+                    }
+                }
+            }
+            else
+            {
+                if(BETWEEN(24, y, 216))
+                {
+                    for(int i = 0; i < ENTRIES_PER_SCREEN; i++)
+                    {
+                        u16 miny = 24 + 48*i;
+                        u16 maxy = miny + 48;
+                        if(BETWEEN(miny, y, maxy) && current_list->scroll + i < current_list->entries_count)
+                        {
+                            current_list->selected_entry = current_list->scroll + i;
+                            break;
+                        }
+                    }
+                }
+            }
         }
     }
 
-    free(themes_list);
-        
+    exit_function(true);
     return 0;
 }

source/pp2d/README.md

@@ -0,0 +1,14 @@
+# [pp2d](https://discord.gg/zqXWgsH)
+
+Plug & Play 2D (unofficial) wrapper for Citro3D. 
+
+## License
+
+pp2d is licensed under the MIT License.
+
+## Changes
+
+* depth parameter (Ryuzaki-MrL)
+* standalone pp2d_free_texture (LiquidFenrir)
+* 3d support (Robz8)
+* load png from memory (ErmanSayin)

source/pp2d/pp2d/pp2d.c

@@ -0,0 +1,789 @@
+/* MIT License
+ *
+ * Copyright (c) 2017 Bernardo Giordano
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+
+ * The above copyright notice and this permission notice shall be included in all
+ * copies or substantial portions of the Software.
+
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ *
+ * https://discord.gg/zqXWgsH
+ */
+ 
+/**
+ * Plug & Play 2D
+ * @file pp2d.c
+ * @author Bernardo Giordano
+ * @date 26 October 2017
+ * @brief pp2d implementation
+ */
+
+#include "pp2d.h"
+
+static DVLB_s* vshader_dvlb;
+static shaderProgram_s program;
+static int uLoc_projection;
+static C3D_Mtx projectionTopLeft;
+static C3D_Mtx projectionTopRight;
+static C3D_Mtx projectionBot;
+static C3D_Tex* glyphSheets;
+static textVertex_s* textVtxArray;
+static int textVtxArrayPos;
+static C3D_RenderTarget* topLeft;
+static C3D_RenderTarget* topRight;
+static C3D_RenderTarget* bot;
+
+static struct {
+	GPU_TEXTURE_FILTER_PARAM magFilter;
+	GPU_TEXTURE_FILTER_PARAM minFilter;
+} textureFilters;
+
+static struct {
+	size_t id;
+	int x;
+	int y;
+	int xbegin;
+	int ybegin;
+	int width;
+	int height;
+	u32 color;
+	flipType fliptype;
+	float scaleX;
+	float scaleY;
+	float angle;
+	float depth;
+	bool initialized;
+} textureData;
+
+static struct {
+	C3D_Tex tex;
+	u32 width;
+	u32 height;
+	bool allocated;
+} textures[MAX_TEXTURES];
+
+static void pp2d_add_text_vertex(float vx, float vy, float vz, float tx, float ty);
+static bool pp2d_fast_draw_vbo(int x, int y, int height, int width, float left, float right, float top, float bottom, float depth);
+static u32 pp2d_get_next_pow2(u32 n);
+static void pp2d_get_text_size_internal(float* width, float* height, float scaleX, float scaleY, int wrapX, const char* text);
+static void pp2d_set_text_color(u32 color);
+
+static void pp2d_add_text_vertex(float vx, float vy, float vz, float tx, float ty)
+{
+	textVertex_s* vtx = &textVtxArray[textVtxArrayPos++];
+	vtx->position[0] = vx;
+	vtx->position[1] = vy;
+	vtx->position[2] = vz;
+	vtx->texcoord[0] = tx;
+	vtx->texcoord[1] = ty;
+}
+
+void pp2d_begin_draw(gfxScreen_t target, gfx3dSide_t side)
+{
+	C3D_FrameBegin(C3D_FRAME_SYNCDRAW);
+	textVtxArrayPos = 0;
+	pp2d_draw_on(target, side);
+}
+
+void pp2d_draw_on(gfxScreen_t target, gfx3dSide_t side)
+{
+	if(target == GFX_TOP) {
+		C3D_FrameDrawOn(side == GFX_LEFT ? topLeft : topRight);
+		C3D_FVUnifMtx4x4(GPU_VERTEX_SHADER, uLoc_projection, side == GFX_LEFT ? &projectionTopLeft : &projectionTopRight);
+	} else {
+		C3D_FrameDrawOn(bot);
+		C3D_FVUnifMtx4x4(GPU_VERTEX_SHADER, uLoc_projection, &projectionBot);
+	}
+}
+
+void pp2d_draw_rectangle(int x, int y, int width, int height, u32 color)
+{
+	C3D_TexEnv* env = C3D_GetTexEnv(0);
+	C3D_TexEnvSrc(env, C3D_Both, GPU_CONSTANT, GPU_CONSTANT, 0);
+	C3D_TexEnvOp(env, C3D_Both, 0, 0, 0);
+	C3D_TexEnvFunc(env, C3D_Both, GPU_MODULATE);
+	C3D_TexEnvColor(env, color);
+	
+	if (pp2d_fast_draw_vbo(x, y, height, width, 0, 0, 0, 0, DEFAULT_DEPTH))
+	{
+		C3D_DrawArrays(GPU_TRIANGLE_STRIP, textVtxArrayPos - 4, 4);
+	}
+}
+
+void pp2d_draw_text(float x, float y, float scaleX, float scaleY, u32 color, const char* text)
+{
+	pp2d_draw_text_wrap(x, y, scaleX, scaleY, color, -1, text);
+}
+
+void pp2d_draw_text_center(gfxScreen_t target, float y, float scaleX, float scaleY, u32 color, const char* text)
+{
+	float width = pp2d_get_text_width(text, scaleX, scaleY);
+	float x = ((target == GFX_TOP ? TOP_WIDTH : BOTTOM_WIDTH) - width) / 2;
+	pp2d_draw_text(x, y, scaleX, scaleY, color, text);
+}
+
+void pp2d_draw_textf(float x, float y, float scaleX, float scaleY, u32 color, const char* text, ...) 
+{
+	char buffer[256];
+	va_list args;
+	va_start(args, text);
+	vsnprintf(buffer, 256, text, args);
+	pp2d_draw_text(x, y, scaleX, scaleY, color, buffer);
+	va_end(args);
+}
+
+void pp2d_draw_text_wrap(float x, float y, float scaleX, float scaleY, u32 color, float wrapX, const char* text)
+{
+	if (text == NULL)
+		return;
+	
+	pp2d_set_text_color(color);
+
+	ssize_t  units;
+	uint32_t code;
+	const uint8_t* p = (const uint8_t*)text;
+	float firstX = x;
+	int lastSheet = -1;
+	
+	do
+	{
+		if (!*p) break;
+		units = decode_utf8(&code, p);
+		if (units == -1)
+			break;
+		p += units;
+		if (code == '\n' || (wrapX != -1 && x + scaleX * fontGetCharWidthInfo(fontGlyphIndexFromCodePoint(code))->charWidth >= firstX + wrapX))
+		{
+			x = firstX;
+			y += scaleY*fontGetInfo()->lineFeed;
+			p -= code == '\n' ? 0 : 1;
+		}
+		else if (code > 0)
+		{
+			int glyphIdx = fontGlyphIndexFromCodePoint(code);
+			fontGlyphPos_s data;
+			fontCalcGlyphPos(&data, glyphIdx, GLYPH_POS_CALC_VTXCOORD, scaleX, scaleY);
+
+			if (data.sheetIndex != lastSheet)
+			{
+				lastSheet = data.sheetIndex;
+				C3D_TexBind(0, &glyphSheets[lastSheet]);
+			}
+
+			if ((textVtxArrayPos+4) >= TEXT_VTX_ARRAY_COUNT)
+				break;
+
+			pp2d_add_text_vertex(x+data.vtxcoord.left,  y+data.vtxcoord.bottom, DEFAULT_DEPTH, data.texcoord.left,  data.texcoord.bottom);
+			pp2d_add_text_vertex(x+data.vtxcoord.right, y+data.vtxcoord.bottom, DEFAULT_DEPTH, data.texcoord.right, data.texcoord.bottom);
+			pp2d_add_text_vertex(x+data.vtxcoord.left,  y+data.vtxcoord.top,    DEFAULT_DEPTH, data.texcoord.left,  data.texcoord.top);
+			pp2d_add_text_vertex(x+data.vtxcoord.right, y+data.vtxcoord.top,    DEFAULT_DEPTH, data.texcoord.right, data.texcoord.top);
+
+			C3D_DrawArrays(GPU_TRIANGLE_STRIP, textVtxArrayPos - 4, 4);
+
+			x += data.xAdvance;
+		}
+	} while (code > 0);
+}
+
+void pp2d_draw_texture(size_t id, int x, int y)
+{
+	pp2d_texture_select(id, x, y);
+	pp2d_texture_draw();
+}
+
+void pp2d_draw_texture_blend(size_t id, int x, int y, u32 color)
+{
+	pp2d_texture_select(id, x, y);
+	pp2d_texture_blend(color);
+	pp2d_texture_draw();
+}
+
+void pp2d_draw_texture_flip(size_t id, int x, int y, flipType fliptype)
+{
+	pp2d_texture_select(id, x, y);
+	pp2d_texture_flip(fliptype);
+	pp2d_texture_draw();
+}
+
+void pp2d_draw_texture_rotate(size_t id, int x, int y, float angle)
+{
+	pp2d_texture_select(id, x, y);
+	pp2d_texture_rotate(angle);
+	pp2d_texture_draw();		
+}
+
+void pp2d_draw_texture_scale(size_t id, int x, int y, float scaleX, float scaleY)
+{
+	pp2d_texture_select(id, x, y);
+	pp2d_texture_scale(scaleX, scaleY);
+	pp2d_texture_draw();
+}
+
+void pp2d_draw_texture_part(size_t id, int x, int y, int xbegin, int ybegin, int width, int height)
+{
+	pp2d_texture_select_part(id, x, y, xbegin, ybegin, width, height);
+	pp2d_texture_draw();
+}
+
+void pp2d_draw_wtext(float x, float y, float scaleX, float scaleY, u32 color, const wchar_t* text) 
+{
+	pp2d_draw_wtext_wrap(x, y, scaleX, scaleY, color, -1, text);
+}
+
+void pp2d_draw_wtext_center(gfxScreen_t target, float y, float scaleX, float scaleY, u32 color, const wchar_t* text)
+{
+	float width = pp2d_get_wtext_width(text, scaleX, scaleY);
+	float x = ((target == GFX_TOP ? TOP_WIDTH : BOTTOM_WIDTH) - width) / 2;
+	pp2d_draw_wtext(x, y, scaleX, scaleY, color, text);
+}
+
+void pp2d_draw_wtext_wrap(float x, float y, float scaleX, float scaleY, u32 color, float wrapX, const wchar_t* text) 
+{
+	if (text == NULL)
+		return;
+	
+	u32 size = wcslen(text) * sizeof(wchar_t);
+	char buf[size];
+	memset(buf, 0, size);
+	utf32_to_utf8((uint8_t*)buf, (uint32_t*)text, size);
+	buf[size - 1] = '\0';	
+	
+	pp2d_draw_text_wrap(x, y, scaleX, scaleY, color, wrapX, buf);
+}
+
+void pp2d_draw_wtextf(float x, float y, float scaleX, float scaleY, u32 color, const wchar_t* text, ...) 
+{
+	wchar_t buffer[256];
+	va_list args;
+	va_start(args, text);
+	vswprintf(buffer, 256, text, args);
+	pp2d_draw_wtext(x, y, scaleX, scaleY, color, buffer);
+	va_end(args);
+}
+
+void pp2d_end_draw(void)
+{
+	C3D_FrameEnd(0);
+}
+
+void pp2d_exit(void)
+{
+	for (size_t id = 0; id < MAX_TEXTURES; id++)
+	{
+		pp2d_free_texture(id);
+	}
+	
+	linearFree(textVtxArray);
+	free(glyphSheets);
+	
+	shaderProgramFree(&program);
+	DVLB_Free(vshader_dvlb);
+	
+	C3D_Fini();
+	gfxExit();
+}
+
+static bool pp2d_fast_draw_vbo(int x, int y, int height, int width, float left, float right, float top, float bottom, float depth)
+{
+	if ((textVtxArrayPos+4) >= TEXT_VTX_ARRAY_COUNT)
+		return false;
+	
+	pp2d_add_text_vertex(        x, y + height, depth,  left, bottom);
+	pp2d_add_text_vertex(x + width, y + height, depth, right, bottom);
+	pp2d_add_text_vertex(        x,          y, depth,  left,    top);
+	pp2d_add_text_vertex(x + width,          y, depth, right,    top);
+	
+	return true;
+}
+
+void pp2d_free_texture(size_t id)
+{
+	if (id >= MAX_TEXTURES)
+		return;
+	
+	if (!textures[id].allocated)
+		return;
+	
+	C3D_TexDelete(&textures[id].tex);
+	textures[id].width = 0;
+	textures[id].height = 0;
+	textures[id].allocated = false;
+}
+
+Result pp2d_init(void)
+{
+	Result res = 0;
+	
+	gfxInitDefault();
+	C3D_Init(C3D_DEFAULT_CMDBUF_SIZE);
+	
+	topLeft = C3D_RenderTargetCreate(SCREEN_HEIGHT, TOP_WIDTH, GPU_RB_RGBA8, GPU_RB_DEPTH24_STENCIL8);
+	C3D_RenderTargetSetClear(topLeft, C3D_CLEAR_ALL, BACKGROUND_COLOR, 0);
+	C3D_RenderTargetSetOutput(topLeft, GFX_TOP, GFX_LEFT, DISPLAY_TRANSFER_FLAGS);
+	
+	topRight = C3D_RenderTargetCreate(SCREEN_HEIGHT, TOP_WIDTH, GPU_RB_RGBA8, GPU_RB_DEPTH24_STENCIL8);
+	C3D_RenderTargetSetClear(topRight, C3D_CLEAR_ALL, BACKGROUND_COLOR, 0);
+	C3D_RenderTargetSetOutput(topRight, GFX_TOP, GFX_RIGHT, DISPLAY_TRANSFER_FLAGS);
+	
+	bot = C3D_RenderTargetCreate(SCREEN_HEIGHT, BOTTOM_WIDTH, GPU_RB_RGBA8, GPU_RB_DEPTH24_STENCIL8);
+	C3D_RenderTargetSetClear(bot, C3D_CLEAR_ALL, BACKGROUND_COLOR, 0);
+	C3D_RenderTargetSetOutput(bot, GFX_BOTTOM, GFX_LEFT, DISPLAY_TRANSFER_FLAGS);
+	
+	res = fontEnsureMapped();
+	if (R_FAILED(res))
+		return res;
+	
+	pp2d_set_texture_filter(GPU_NEAREST, GPU_NEAREST);
+
+#ifdef BUILDTOOLS
+	vshader_dvlb = DVLB_ParseFile((u32*)vshader_shbin, vshader_shbin_len);
+#else
+	vshader_dvlb = DVLB_ParseFile((u32*)vshader_shbin, vshader_shbin_size);
+#endif
+
+	shaderProgramInit(&program);
+	shaderProgramSetVsh(&program, &vshader_dvlb->DVLE[0]);
+	C3D_BindProgram(&program);
+
+	uLoc_projection = shaderInstanceGetUniformLocation(program.vertexShader, "projection");
+	
+	C3D_AttrInfo* attrInfo = C3D_GetAttrInfo();
+	AttrInfo_Init(attrInfo);
+	AttrInfo_AddLoader(attrInfo, 0, GPU_FLOAT, 3);
+	AttrInfo_AddLoader(attrInfo, 1, GPU_FLOAT, 2);
+
+	Mtx_OrthoTilt(&projectionTopLeft, 0, TOP_WIDTH, SCREEN_HEIGHT, 0.0f, 0.0f, 1.0f, true);
+	Mtx_OrthoTilt(&projectionTopRight, 0, TOP_WIDTH, SCREEN_HEIGHT, 0.0f, 0.0f, 1.0f, true);
+	Mtx_OrthoTilt(&projectionBot, 0, BOTTOM_WIDTH, SCREEN_HEIGHT, 0.0f, 0.0f, 1.0f, true);
+	
+	C3D_DepthTest(true, GPU_GEQUAL, GPU_WRITE_ALL);
+
+	int i;
+	TGLP_s* glyphInfo = fontGetGlyphInfo();
+	glyphSheets = malloc(sizeof(C3D_Tex)*glyphInfo->nSheets);
+	for (i = 0; i < glyphInfo->nSheets; i ++)
+	{
+		C3D_Tex* tex = &glyphSheets[i];
+		tex->data = fontGetGlyphSheetTex(i);
+		tex->fmt = glyphInfo->sheetFmt;
+		tex->size = glyphInfo->sheetSize;
+		tex->width = glyphInfo->sheetWidth;
+		tex->height = glyphInfo->sheetHeight;
+		tex->param = GPU_TEXTURE_MAG_FILTER(GPU_LINEAR) | GPU_TEXTURE_MIN_FILTER(GPU_LINEAR)
+			| GPU_TEXTURE_WRAP_S(GPU_CLAMP_TO_EDGE) | GPU_TEXTURE_WRAP_T(GPU_CLAMP_TO_EDGE);
+		tex->border = 0;
+		tex->lodParam = 0;
+	}
+	
+	textVtxArray = (textVertex_s*)linearAlloc(sizeof(textVertex_s)*TEXT_VTX_ARRAY_COUNT);
+	C3D_BufInfo* bufInfo = C3D_GetBufInfo();
+	BufInfo_Init(bufInfo);
+	BufInfo_Add(bufInfo, textVtxArray, sizeof(textVertex_s), 2, 0x10);
+	
+	return 0;
+}
+
+static u32 pp2d_get_next_pow2(u32 v)
+{
+	v--;
+	v |= v >> 1;
+	v |= v >> 2;
+	v |= v >> 4;
+	v |= v >> 8;
+	v |= v >> 16;
+	v++;
+	return v >= 64 ? v : 64;
+}
+
+float pp2d_get_text_height(const char* text, float scaleX, float scaleY)
+{
+	float height;
+	pp2d_get_text_size_internal(NULL, &height, scaleX, scaleY, -1, text);
+	return height;
+}
+
+float pp2d_get_text_height_wrap(const char* text, float scaleX, float scaleY, int wrapX)
+{
+	float height;
+	pp2d_get_text_size_internal(NULL, &height, scaleX, scaleY, wrapX, text);
+	return height;
+}
+
+void pp2d_get_text_size(float* width, float* height, float scaleX, float scaleY, const char* text)
+{
+	pp2d_get_text_size_internal(width, height, scaleX, scaleY, -1, text);
+}
+
+static void pp2d_get_text_size_internal(float* width, float* height, float scaleX, float scaleY, int wrapX, const char* text)
+{
+	float w = 0.0f;
+	float h = 0.0f;
+	
+	ssize_t  units;
+	uint32_t code;
+	float x = 0;
+	float firstX = x;
+	const uint8_t* p = (const uint8_t*)text;
+	
+	do
+	{
+		if (!*p) break;
+		units = decode_utf8(&code, p);
+		if (units == -1)
+			break;
+		p += units;
+		if (code == '\n' || (wrapX != -1 && x + scaleX * fontGetCharWidthInfo(fontGlyphIndexFromCodePoint(code))->charWidth >= firstX + wrapX))
+		{
+			x = firstX;
+			h += scaleY*fontGetInfo()->lineFeed;
+			p -= code == '\n' ? 0 : 1;
+		}
+		else if (code > 0)
+		{
+			float len = (scaleX * fontGetCharWidthInfo(fontGlyphIndexFromCodePoint(code))->charWidth);
+			w += len;
+			x += len;
+		}
+	} while (code > 0);
+	
+	if (width)
+	{
+		*width = w;
+	}
+	
+	if (height)
+	{
+		h += scaleY*fontGetInfo()->lineFeed;
+		*height = h;
+	}
+}
+
+float pp2d_get_text_width(const char* text, float scaleX, float scaleY)
+{
+	float width;
+	pp2d_get_text_size_internal(&width, NULL, scaleX, scaleY, -1, text);
+	return width;
+}
+
+float pp2d_get_wtext_height(const wchar_t* text, float scaleX, float scaleY)
+{
+	u32 size = wcslen(text) * sizeof(wchar_t);
+	char buf[size];
+	memset(buf, 0, size);
+	utf32_to_utf8((uint8_t*)buf, (uint32_t*)text, size);
+	buf[size - 1] = '\0';
+	
+	float height;
+	pp2d_get_text_size_internal(NULL, &height, scaleX, scaleY, -1, buf);
+	return height;
+}
+
+float pp2d_get_wtext_width(const wchar_t* text, float scaleX, float scaleY)
+{
+	u32 size = wcslen(text) * sizeof(wchar_t);
+	char buf[size];
+	memset(buf, 0, size);
+	utf32_to_utf8((uint8_t*)buf, (uint32_t*)text, size);
+	buf[size - 1] = '\0';
+	
+	float width;
+	pp2d_get_text_size_internal(&width, NULL, scaleX, scaleY, -1, buf);
+	return width;
+}
+
+void pp2d_load_texture_memory(size_t id, void* buf, u32 width, u32 height)
+{
+	u32 w_pow2 = pp2d_get_next_pow2(width);
+	u32 h_pow2 = pp2d_get_next_pow2(height);
+	
+	C3D_TexInit(&textures[id].tex, (u16)w_pow2, (u16)h_pow2, GPU_RGBA8);
+	C3D_TexSetFilter(&textures[id].tex, textureFilters.magFilter, textureFilters.minFilter);
+	
+	textures[id].allocated = true;
+	textures[id].width = width;
+	textures[id].height = height;
+
+	memset(textures[id].tex.data, 0, textures[id].tex.size);
+	for (u32 i = 0; i < width; i++) 
+	{
+		for (u32 j = 0; j < height; j++) 
+		{
+			u32 dst = ((((j >> 3) * (w_pow2 >> 3) + (i >> 3)) << 6) + ((i & 1) | ((j & 1) << 1) | ((i & 2) << 1) | ((j & 2) << 2) | ((i & 4) << 2) | ((j & 4) << 3))) * 4;
+			u32 src = (j * width + i) * 4;
+
+			memcpy(textures[id].tex.data + dst, buf + src, 4);
+		}
+	}
+
+	C3D_TexFlush(&textures[id].tex);	
+}
+
+void pp2d_load_texture_png(size_t id, const char* path)
+{
+	if (id >= MAX_TEXTURES)
+		return;
+	
+	u8* image;
+	unsigned width;
+	unsigned height;
+
+	lodepng_decode32_file(&image, &width, &height, path);
+
+	for (u32 i = 0; i < width; i++) 
+	{
+		for (u32 j = 0; j < height; j++) 
+		{
+			u32 p = (i + j*width) * 4;
+
+			u8 r = *(u8*)(image + p);
+			u8 g = *(u8*)(image + p + 1);
+			u8 b = *(u8*)(image + p + 2);
+			u8 a = *(u8*)(image + p + 3);
+
+			*(image + p) = a;
+			*(image + p + 1) = b;
+			*(image + p + 2) = g;
+			*(image + p + 3) = r;
+		}
+	}
+	
+	pp2d_load_texture_memory(id, image, width, height);
+	free(image);
+}
+
+void pp2d_load_texture_png_memory(size_t id, void* buf, size_t buf_size)
+{
+	if (id >= MAX_TEXTURES)
+		return;
+
+	u8* image;
+	unsigned width;
+	unsigned height;
+
+	lodepng_decode32(&image, &width, &height, buf, buf_size);
+
+	for (u32 i = 0; i < width; i++)
+	{
+		for (u32 j = 0; j < height; j++)
+		{
+			u32 p = (i + j*width) * 4;
+
+			u8 r = *(u8*)(image + p);
+			u8 g = *(u8*)(image + p + 1);
+			u8 b = *(u8*)(image + p + 2);
+			u8 a = *(u8*)(image + p + 3);
+
+			*(image + p) = a;
+			*(image + p + 1) = b;
+			*(image + p + 2) = g;
+			*(image + p + 3) = r;
+		}
+	}
+
+	pp2d_load_texture_memory(id, image, width, height);
+	free(image);
+}
+
+void pp2d_set_3D(int enable)
+{
+	gfxSet3D(enable);
+}
+
+void pp2d_set_screen_color(gfxScreen_t target, u32 color)
+{
+	if (target == GFX_TOP)
+	{
+		C3D_RenderTargetSetClear(topLeft, C3D_CLEAR_ALL, color, 0);
+		C3D_RenderTargetSetClear(topRight, C3D_CLEAR_ALL, color, 0);
+	}
+	else
+	{
+		C3D_RenderTargetSetClear(bot, C3D_CLEAR_ALL, color, 0);
+	}
+}
+
+void pp2d_set_texture_filter(GPU_TEXTURE_FILTER_PARAM magFilter, GPU_TEXTURE_FILTER_PARAM minFilter)
+{
+	textureFilters.magFilter = magFilter;
+	textureFilters.minFilter = minFilter;
+}
+
+static void pp2d_set_text_color(u32 color)
+{
+	C3D_TexEnv* env = C3D_GetTexEnv(0);
+	C3D_TexEnvSrc(env, C3D_RGB, GPU_CONSTANT, 0, 0);
+	C3D_TexEnvSrc(env, C3D_Alpha, GPU_TEXTURE0, GPU_CONSTANT, 0);
+	C3D_TexEnvOp(env, C3D_Both, 0, 0, 0);
+	C3D_TexEnvFunc(env, C3D_RGB, GPU_REPLACE);
+	C3D_TexEnvFunc(env, C3D_Alpha, GPU_MODULATE);
+	C3D_TexEnvColor(env, color);
+}
+
+void pp2d_texture_select(size_t id, int x, int y)
+{
+	if (id >= MAX_TEXTURES)
+	{
+		textureData.initialized = false;
+		return;
+	}
+	
+	textureData.id = id;
+	textureData.x = x;
+	textureData.y = y;
+	textureData.xbegin = 0;
+	textureData.ybegin = 0;
+	textureData.width = textures[id].width;
+	textureData.height = textures[id].height;
+	textureData.color = PP2D_NEUTRAL;
+	textureData.fliptype = NONE;
+	textureData.scaleX = 1;
+	textureData.scaleY = 1;
+	textureData.angle = 0;
+	textureData.depth = DEFAULT_DEPTH;
+	textureData.initialized = true;
+}
+
+void pp2d_texture_select_part(size_t id, int x, int y, int xbegin, int ybegin, int width, int height)
+{
+	if (id >= MAX_TEXTURES)
+	{
+		textureData.initialized = false;
+		return;
+	}
+	
+	textureData.id = id;
+	textureData.x = x;
+	textureData.y = y;
+	textureData.xbegin = xbegin;
+	textureData.ybegin = ybegin;
+	textureData.width = width;
+	textureData.height = height;
+	textureData.color = PP2D_NEUTRAL;
+	textureData.fliptype = NONE;
+	textureData.scaleX = 1;
+	textureData.scaleY = 1;
+	textureData.angle = 0;
+	textureData.depth = DEFAULT_DEPTH;
+	textureData.initialized = true;
+}
+
+void pp2d_texture_blend(u32 color)
+{
+	textureData.color = color;
+}
+
+void pp2d_texture_scale(float scaleX, float scaleY)
+{
+	textureData.scaleX = scaleX;
+	textureData.scaleY = scaleY;
+}
+
+void pp2d_texture_flip(flipType fliptype)
+{
+	textureData.fliptype = fliptype;
+}
+
+void pp2d_texture_rotate(float angle)
+{
+	textureData.angle = angle;
+}
+
+void pp2d_texture_depth(float depth)
+{
+	textureData.depth = depth;
+}
+
+void pp2d_texture_draw(void)
+{
+	if (!textureData.initialized)
+		return;
+
+	if ((textVtxArrayPos+4) >= TEXT_VTX_ARRAY_COUNT)
+		return;
+	
+	size_t id = textureData.id;
+	
+	float left = (float)textureData.xbegin / (float)textures[id].tex.width;
+	float right = (float)(textureData.xbegin + textureData.width) / (float)textures[id].tex.width;
+	float top = (float)(textures[id].tex.height - textureData.ybegin) / (float)textures[id].tex.height;
+	float bottom = (float)(textures[id].tex.height - textureData.ybegin - textureData.height) / (float)textures[id].tex.height;
+	
+	// scaling
+	textureData.height *= textureData.scaleY;
+	textureData.width *= textureData.scaleX;
+	
+	float vert[4][2] = {
+		{                    textureData.x, textureData.height + textureData.y},
+		{textureData.width + textureData.x, textureData.height + textureData.y},
+		{                    textureData.x,                      textureData.y},
+		{textureData.width + textureData.x,                      textureData.y},
+	};
+
+	// flipping
+	if (textureData.fliptype == BOTH || textureData.fliptype == HORIZONTAL)
+	{
+		float tmp = left;
+		left = right;
+		right = tmp;
+	}
+	
+	if (textureData.fliptype == BOTH || textureData.fliptype == VERTICAL)
+	{
+		float tmp = top;
+		top = bottom;
+		bottom = tmp;
+	}
+	
+	// rotating
+	textureData.angle = fmod(textureData.angle, 360);
+	if (textureData.angle != 0)
+	{
+		const float rad = textureData.angle/(180/M_PI);
+		const float c = cosf(rad);
+		const float s = sinf(rad);
+		
+		const float xcenter = textureData.x + textureData.width/2.0f;
+		const float ycenter = textureData.y + textureData.height/2.0f;
+		
+		for (int i = 0; i < 4; i++)
+		{
+			float oldx = vert[i][0];
+			float oldy = vert[i][1];
+			
+			float newx = c * (oldx - xcenter) - s * (oldy - ycenter) + xcenter;
+			float newy = s * (oldx - xcenter) + c * (oldy - ycenter) + ycenter;
+			
+			vert[i][0] = newx;
+			vert[i][1] = newy;
+		}
+	}
+
+	// blending
+	C3D_TexBind(0, &textures[id].tex);
+	C3D_TexEnv* env = C3D_GetTexEnv(0);
+	C3D_TexEnvSrc(env, C3D_Both, GPU_TEXTURE0, GPU_CONSTANT, 0);
+	C3D_TexEnvOp(env, C3D_Both, 0, 0, 0);
+	C3D_TexEnvFunc(env, C3D_Both, GPU_MODULATE);
+	C3D_TexEnvColor(env, textureData.color);
+
+	// rendering
+	pp2d_add_text_vertex(vert[0][0], vert[0][1], textureData.depth, left, bottom);
+	pp2d_add_text_vertex(vert[1][0], vert[1][1], textureData.depth, right, bottom);
+	pp2d_add_text_vertex(vert[2][0], vert[2][1], textureData.depth, left, top);
+	pp2d_add_text_vertex(vert[3][0], vert[3][1], textureData.depth, right, top);
+
+	C3D_DrawArrays(GPU_TRIANGLE_STRIP, textVtxArrayPos - 4, 4);
+}

source/pp2d/pp2d/pp2d.h

@@ -0,0 +1,472 @@
+/* MIT License
+ *
+ * Copyright (c) 2017 Bernardo Giordano
+ *
+ * Permission is hereby granted, free of charge, to any person obtaining a copy
+ * of this software and associated documentation files (the "Software"), to deal
+ * in the Software without restriction, including without limitation the rights
+ * to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+ * copies of the Software, and to permit persons to whom the Software is
+ * furnished to do so, subject to the following conditions:
+
+ * The above copyright notice and this permission notice shall be included in all
+ * copies or substantial portions of the Software.
+
+ * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
+ * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+ * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+ * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
+ * SOFTWARE.
+ *
+ * https://discord.gg/zqXWgsH
+ */
+
+/**
+ * Plug & Play 2D
+ * @file pp2d.h
+ * @author Bernardo Giordano
+ * @date 26 October 2017
+ * @brief pp2d header
+ */
+
+#ifndef PP2D_H
+#define PP2D_H
+
+#include "lodepng.h"
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+#include <3ds.h>
+#include <citro3d.h>
+#include <stdarg.h>
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <wchar.h>
+#include "vshader_shbin.h"
+
+#define TOP_WIDTH 400
+#define BOTTOM_WIDTH 320
+#define SCREEN_HEIGHT 240
+
+/**
+ * @brief Used to transfer the final rendered display to the framebuffer
+ */
+#define DISPLAY_TRANSFER_FLAGS \
+	(GX_TRANSFER_FLIP_VERT(0) | GX_TRANSFER_OUT_TILED(0) | GX_TRANSFER_RAW_COPY(0) | \
+	GX_TRANSFER_IN_FORMAT(GX_TRANSFER_FMT_RGBA8) | GX_TRANSFER_OUT_FORMAT(GX_TRANSFER_FMT_RGB8) | \
+	GX_TRANSFER_SCALING(GX_TRANSFER_SCALE_NO))
+
+/**
+ * @brief Creates a 8 byte RGBA color
+ * @param r red component of the color
+ * @param g green component of the color
+ * @param b blue component of the color
+ * @param a alpha component of the color
+ */
+#define RGBA8(r, g, b, a) ((((r)&0xFF)<<0) | (((g)&0xFF)<<8) | (((b)&0xFF)<<16) | (((a)&0xFF)<<24))
+
+/**
+ * @brief Creates a 8 byte ABGR color
+ * @param a alpha component of the color
+ * @param b blue component of the color
+ * @param g green component of the color
+ * @param r red component of the color
+ */
+#define ABGR8(a, b, g, r) ((((a)&0xFF)<<0) | (((b)&0xFF)<<8) | (((g)&0xFF)<<16) | (((r)&0xFF)<<24))
+
+/**
+ * @brief Converts a RGB565 color to RGBA8 color (adds maximum alpha)
+ * @param rgb 565 to be converted
+ */
+#define RGB565_TO_RGBA8(rgb) \
+	(RGBA8(((rgb>>11)&0x1F)*0xFF/0x1F, ((rgb>>5)&0x3F)*0xFF/0x3F, (rgb&0x1F)*0xFF/0x1F, 255))
+	
+/**
+ * @brief Converts a RGB565 color to ABGR8 color (adds maximum alpha)
+ * @param rgb 565 to be converted
+ */
+#define RGB565_TO_ABGR8(rgb) \
+	(RGBA8(255, (rgb&0x1F)*0xFF/0x1F, ((rgb>>5)&0x3F)*0xFF/0x3F, ((rgb>>11)&0x1F)*0xFF/0x1F))
+
+#define BACKGROUND_COLOR ABGR8(255, 0, 0, 0)
+#define PP2D_NEUTRAL RGBA8(255, 255, 255, 255)
+
+#define DEFAULT_DEPTH 0.5f
+
+#define MAX_TEXTURES 1024
+
+#define TEXT_VTX_ARRAY_COUNT (4*1024)
+
+typedef enum {
+	NONE,
+	HORIZONTAL,
+	VERTICAL,
+	BOTH
+} flipType;
+
+typedef struct { 
+	float position[3]; 
+	float texcoord[2]; 
+} textVertex_s;
+
+/**
+ * @brief Starts a new frame on the specified screen
+ * @param target GFX_TOP or GFX_BOTTOM
+ */
+void pp2d_begin_draw(gfxScreen_t target, gfx3dSide_t side);
+
+/**
+ * @brief Changes target screen to the specified target
+ * @param target GFX_TOP or GFX_BOTTOM
+ */
+void pp2d_draw_on(gfxScreen_t target, gfx3dSide_t side);
+
+/**
+ * @brief Draw a rectangle
+ * @param x of the top left corner
+ * @param y of the top left corner
+ * @param width on the rectangle
+ * @param height of the rectangle
+ * @param color RGBA8 to fill the rectangle
+ */
+void pp2d_draw_rectangle(int x, int y, int width, int height, u32 color);
+
+/**
+ * @brief Prints a char pointer
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_text(float x, float y, float scaleX, float scaleY, u32 color, const char* text);
+
+/**
+ * @brief Prints a char pointer in the middle of the target screen
+ * @param target screen to draw the text to
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_text_center(gfxScreen_t target, float y, float scaleX, float scaleY, u32 color, const char* text);
+
+/**
+ * @brief Prints a char pointer in the middle of the target screen
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param wrapX wrap width
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_text_wrap(float x, float y, float scaleX, float scaleY, u32 color, float wrapX, const char* text);
+
+/**
+ * @brief Prints a char pointer with arguments
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ * @param ... arguments
+ */
+void pp2d_draw_textf(float x, float y, float scaleX, float scaleY, u32 color, const char* text, ...); 
+
+/**
+ * @brief Prints a texture
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ */
+void pp2d_draw_texture(size_t id, int x, int y);
+
+/**
+ * @brief Prints a texture with color modulation
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param color RGBA8 to modulate the texture with
+ */
+void pp2d_draw_texture_blend(size_t id, int x, int y, u32 color);
+
+/**
+ * @brief Prints a flipped texture
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param fliptype HORIZONTAL, VERTICAL or BOTH
+ */
+
+void pp2d_draw_texture_flip(size_t id, int x, int y, flipType fliptype);
+
+/**
+ * @brief Prints a rotated texture
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param angle in degrees to rotate the texture
+ */
+void pp2d_draw_texture_rotate(size_t id, int x, int y, float angle);
+
+/**
+ * @brief Prints a texture with a scale factor
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param scaleX width scale factor
+ * @param scaleY height scale factor
+ */
+void pp2d_draw_texture_scale(size_t id, int x, int y, float scaleX, float scaleY);
+
+/**
+ * @brief Prints a portion of a texture
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param xbegin position to start drawing
+ * @param ybegin position to start drawing
+ * @param width to draw from the xbegin position 
+ * @param height to draw from the ybegin position
+ */
+void pp2d_draw_texture_part(size_t id, int x, int y, int xbegin, int ybegin, int width, int height);
+
+/**
+ * @brief Prints a wchar_t pointer
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_wtext(float x, float y, float scaleX, float scaleY, u32 color, const wchar_t* text); 
+
+/**
+ * @brief Prints a wchar_t pointer in the middle of the target screen
+ * @param target screen to draw the text to
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_wtext_center(gfxScreen_t target, float y, float scaleX, float scaleY, u32 color, const wchar_t* text);
+
+/**
+ * @brief Prints a wchar_t pointer
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param wrapX wrap width
+ * @param text to be printed on the screen
+ */
+void pp2d_draw_wtext_wrap(float x, float y, float scaleX, float scaleY, u32 color, float wrapX, const wchar_t* text);
+
+/**
+ * @brief Prints a wchar_t pointer with arguments
+ * @param x position to start drawing
+ * @param y position to start drawing
+ * @param scaleX multiplier for the text width
+ * @param scaleY multiplier for the text height
+ * @param color RGBA8 the text will be drawn
+ * @param text to be printed on the screen
+ * @param ... arguments
+ */
+void pp2d_draw_wtextf(float x, float y, float scaleX, float scaleY, u32 color, const wchar_t* text, ...);
+
+/**
+ * @brief Ends a frame
+ */
+void pp2d_end_draw(void);
+
+/**
+ * @brief Frees the pp2d environment
+ */
+void pp2d_exit(void);
+
+/**
+ * @brief Inits the pp2d environment
+ * @return 0 if everything went correctly, otherwise returns Result code
+ * @note This will trigger gfxInitDefault by default 
+ */
+Result pp2d_init(void);
+
+/**
+ * @brief Calculates a char pointer height
+ * @param text char pointer to calculate the height of
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @return height the text will have if rendered in the supplied conditions
+ */
+float pp2d_get_text_height(const char* text, float scaleX, float scaleY);
+
+/**
+ * @brief Calculates a char pointer height
+ * @param text char pointer to calculate the height of
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @param wrapX wrap width
+ * @return height the text will have if rendered in the supplied conditions
+ */
+float pp2d_get_text_height_wrap(const char* text, float scaleX, float scaleY, int wrapX);
+
+/**
+ * @brief Calculates width and height for a char pointer
+ * @param width pointer to the width to return
+ * @param height pointer to the height to return
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @param text to calculate dimensions of
+ */
+void pp2d_get_text_size(float* width, float* height, float scaleX, float scaleY, const char* text);
+
+/**
+ * @brief Calculates a char pointer width
+ * @param text char pointer to calculate the width of
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @return width the text will have if rendered in the supplied conditions
+ */
+float pp2d_get_text_width(const char* text, float scaleX, float scaleY);
+
+/**
+ * @brief Calculates a wchar_t pointer height
+ * @param text wchar_t pointer to calculate the height of
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @return height the text will have if rendered in the supplied conditions
+ */
+float pp2d_get_wtext_height(const wchar_t* text, float scaleX, float scaleY);
+
+/**
+ * @brief Calculates a wchar_t pointer width
+ * @param text wchar_t pointer to calculate the width of
+ * @param scaleX multiplier for the text width 
+ * @param scaleY multiplier for the text height
+ * @return width the text will have if rendered in the supplied conditions
+ */
+float pp2d_get_wtext_width(const wchar_t* text, float scaleX, float scaleY);
+
+/**
+ * @brief Frees a texture
+ * @param id of the texture to free
+ */
+void pp2d_free_texture(size_t id);
+
+/**
+ * @brief Loads a texture from a a buffer in memory
+ * @param id of the texture 
+ * @param buf buffer where the texture is stored
+ * @param width of the texture
+ * @param height of the texture
+ */
+void pp2d_load_texture_memory(size_t id, void* buf, u32 width, u32 height);
+
+/**
+ * @brief Loads a texture from a png file
+ * @param id of the texture 
+ * @param path where the png file is located 
+ */
+void pp2d_load_texture_png(size_t id, const char* path);
+
+/**
+ * @brief Loads a texture from a buffer in memory
+ * @param id of the texture
+ * @param buf buffer where the png is stored
+ * @param buf_size size of buffer
+ */
+void pp2d_load_texture_png_memory(size_t id, void* buf, size_t buf_size);
+
+/**
+ * @brief Enables 3D service
+ * @param enable integer
+ */
+void pp2d_set_3D(int enable);
+
+/**
+ * @brief Sets a background color for the specified screen
+ * @param target GFX_TOP or GFX_BOTTOM
+ * @param color ABGR8 which will be the background one
+ */
+void pp2d_set_screen_color(gfxScreen_t target, u32 color);
+
+/**
+ * @brief Sets filters to load texture with
+ * @param magFilter GPU_NEAREST or GPU_LINEAR
+ * @param minFilter GPU_NEAREST or GPU_LINEAR
+ */
+void pp2d_set_texture_filter(GPU_TEXTURE_FILTER_PARAM magFilter, GPU_TEXTURE_FILTER_PARAM minFilter);
+
+/**
+ * @brief Inits a texture to be drawn
+ * @param id of the texture
+ * @param x to draw the texture at
+ * @param y to draw the texture at
+ */
+void pp2d_texture_select(size_t id, int x, int y);
+
+/**
+ * @brief Inits a portion of a texture to be drawn
+ * @param id of the texture 
+ * @param x position on the screen to draw the texture
+ * @param y position on the screen to draw the texture
+ * @param xbegin position to start drawing
+ * @param ybegin position to start drawing
+ * @param width to draw from the xbegin position 
+ * @param height to draw from the ybegin position
+ */
+void pp2d_texture_select_part(size_t id, int x, int y, int xbegin, int ybegin, int width, int height);
+
+/**
+ * @brief Modulates a texture with a color
+ * @param color to modulate the texture
+ */
+void pp2d_texture_blend(u32 color);
+
+/**
+ * @brief Scales a texture
+ * @param scaleX width scale factor
+ * @param scaleY height scale factor
+ */
+void pp2d_texture_scale(float scaleX, float scaleY);
+
+/**
+ * @brief Flips a texture
+ * @param fliptype HORIZONTAL, VERTICAL or BOTH
+ */
+void pp2d_texture_flip(flipType fliptype);
+
+/**
+ * @brief Rotates a texture
+ * @param angle in degrees to rotate the texture
+ */
+void pp2d_texture_rotate(float angle);
+
+/**
+ * @brief Sets the depth of a texture
+ * @param depth factor of the texture
+ */
+void pp2d_texture_depth(float depth);
+
+/**
+ * @brief Renders a texture
+ */
+void pp2d_texture_draw(void);
+
+#ifdef __cplusplus
+}
+#endif
+
+#endif /*PP2D_H*/

source/pp2d/pp2d/vshader.v.pica

@@ -0,0 +1,39 @@
+; Uniforms
+.fvec projection[4]
+
+; Constants
+.constf myconst(0.0, 1.0, -1.0, 0.1)
+.constf RGBA_TO_FLOAT4(0.00392156862, 0, 0, 0)
+.alias  zeros myconst.xxxx ; Vector full of zeros
+.alias  ones  myconst.yyyy ; Vector full of ones
+
+; Outputs
+.out outpos position
+.out outclr color
+.out outtc0 texcoord0
+
+; Inputs (defined as aliases for convenience)
+.alias inpos v0
+.alias intex v1
+
+.bool test
+
+.proc main
+	; Force the w component of inpos to be 1.0
+	mov r0.xyz, inpos
+	mov r0.w,   ones
+
+	; outpos = projectionMatrix * inpos
+	dp4 outpos.x, projection[0], r0
+	dp4 outpos.y, projection[1], r0
+	dp4 outpos.z, projection[2], r0
+	dp4 outpos.w, projection[3], r0
+
+	;outtc0 = intexcoord
+	mov outtc0, intex
+
+	;outclr
+	mul outclr, RGBA_TO_FLOAT4.xxxx, intex
+
+	end
+.end

source/quirc/decode.c

@@ -0,0 +1,918 @@
+/* quirc -- QR-code recognition library
+ * Copyright (C) 2010-2012 Daniel Beer <dlbeer@gmail.com>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "quirc_internal.h"
+
+#include <string.h>
+#include <stdlib.h>
+
+#define MAX_POLY       64
+
+/************************************************************************
+ * Galois fields
+ */
+
+struct galois_field {
+	int p;
+	const uint8_t *log;
+	const uint8_t *exp;
+};
+
+static const uint8_t gf16_exp[16] = {
+	0x01, 0x02, 0x04, 0x08, 0x03, 0x06, 0x0c, 0x0b,
+	0x05, 0x0a, 0x07, 0x0e, 0x0f, 0x0d, 0x09, 0x01
+};
+
+static const uint8_t gf16_log[16] = {
+	0x00, 0x0f, 0x01, 0x04, 0x02, 0x08, 0x05, 0x0a,
+	0x03, 0x0e, 0x09, 0x07, 0x06, 0x0d, 0x0b, 0x0c
+};
+
+static const struct galois_field gf16 = {
+	.p = 15,
+	.log = gf16_log,
+	.exp = gf16_exp
+};
+
+static const uint8_t gf256_exp[256] = {
+	0x01, 0x02, 0x04, 0x08, 0x10, 0x20, 0x40, 0x80,
+	0x1d, 0x3a, 0x74, 0xe8, 0xcd, 0x87, 0x13, 0x26,
+	0x4c, 0x98, 0x2d, 0x5a, 0xb4, 0x75, 0xea, 0xc9,
+	0x8f, 0x03, 0x06, 0x0c, 0x18, 0x30, 0x60, 0xc0,
+	0x9d, 0x27, 0x4e, 0x9c, 0x25, 0x4a, 0x94, 0x35,
+	0x6a, 0xd4, 0xb5, 0x77, 0xee, 0xc1, 0x9f, 0x23,
+	0x46, 0x8c, 0x05, 0x0a, 0x14, 0x28, 0x50, 0xa0,
+	0x5d, 0xba, 0x69, 0xd2, 0xb9, 0x6f, 0xde, 0xa1,
+	0x5f, 0xbe, 0x61, 0xc2, 0x99, 0x2f, 0x5e, 0xbc,
+	0x65, 0xca, 0x89, 0x0f, 0x1e, 0x3c, 0x78, 0xf0,
+	0xfd, 0xe7, 0xd3, 0xbb, 0x6b, 0xd6, 0xb1, 0x7f,
+	0xfe, 0xe1, 0xdf, 0xa3, 0x5b, 0xb6, 0x71, 0xe2,
+	0xd9, 0xaf, 0x43, 0x86, 0x11, 0x22, 0x44, 0x88,
+	0x0d, 0x1a, 0x34, 0x68, 0xd0, 0xbd, 0x67, 0xce,
+	0x81, 0x1f, 0x3e, 0x7c, 0xf8, 0xed, 0xc7, 0x93,
+	0x3b, 0x76, 0xec, 0xc5, 0x97, 0x33, 0x66, 0xcc,
+	0x85, 0x17, 0x2e, 0x5c, 0xb8, 0x6d, 0xda, 0xa9,
+	0x4f, 0x9e, 0x21, 0x42, 0x84, 0x15, 0x2a, 0x54,
+	0xa8, 0x4d, 0x9a, 0x29, 0x52, 0xa4, 0x55, 0xaa,
+	0x49, 0x92, 0x39, 0x72, 0xe4, 0xd5, 0xb7, 0x73,
+	0xe6, 0xd1, 0xbf, 0x63, 0xc6, 0x91, 0x3f, 0x7e,
+	0xfc, 0xe5, 0xd7, 0xb3, 0x7b, 0xf6, 0xf1, 0xff,
+	0xe3, 0xdb, 0xab, 0x4b, 0x96, 0x31, 0x62, 0xc4,
+	0x95, 0x37, 0x6e, 0xdc, 0xa5, 0x57, 0xae, 0x41,
+	0x82, 0x19, 0x32, 0x64, 0xc8, 0x8d, 0x07, 0x0e,
+	0x1c, 0x38, 0x70, 0xe0, 0xdd, 0xa7, 0x53, 0xa6,
+	0x51, 0xa2, 0x59, 0xb2, 0x79, 0xf2, 0xf9, 0xef,
+	0xc3, 0x9b, 0x2b, 0x56, 0xac, 0x45, 0x8a, 0x09,
+	0x12, 0x24, 0x48, 0x90, 0x3d, 0x7a, 0xf4, 0xf5,
+	0xf7, 0xf3, 0xfb, 0xeb, 0xcb, 0x8b, 0x0b, 0x16,
+	0x2c, 0x58, 0xb0, 0x7d, 0xfa, 0xe9, 0xcf, 0x83,
+	0x1b, 0x36, 0x6c, 0xd8, 0xad, 0x47, 0x8e, 0x01
+};
+
+static const uint8_t gf256_log[256] = {
+	0x00, 0xff, 0x01, 0x19, 0x02, 0x32, 0x1a, 0xc6,
+	0x03, 0xdf, 0x33, 0xee, 0x1b, 0x68, 0xc7, 0x4b,
+	0x04, 0x64, 0xe0, 0x0e, 0x34, 0x8d, 0xef, 0x81,
+	0x1c, 0xc1, 0x69, 0xf8, 0xc8, 0x08, 0x4c, 0x71,
+	0x05, 0x8a, 0x65, 0x2f, 0xe1, 0x24, 0x0f, 0x21,
+	0x35, 0x93, 0x8e, 0xda, 0xf0, 0x12, 0x82, 0x45,
+	0x1d, 0xb5, 0xc2, 0x7d, 0x6a, 0x27, 0xf9, 0xb9,
+	0xc9, 0x9a, 0x09, 0x78, 0x4d, 0xe4, 0x72, 0xa6,
+	0x06, 0xbf, 0x8b, 0x62, 0x66, 0xdd, 0x30, 0xfd,
+	0xe2, 0x98, 0x25, 0xb3, 0x10, 0x91, 0x22, 0x88,
+	0x36, 0xd0, 0x94, 0xce, 0x8f, 0x96, 0xdb, 0xbd,
+	0xf1, 0xd2, 0x13, 0x5c, 0x83, 0x38, 0x46, 0x40,
+	0x1e, 0x42, 0xb6, 0xa3, 0xc3, 0x48, 0x7e, 0x6e,
+	0x6b, 0x3a, 0x28, 0x54, 0xfa, 0x85, 0xba, 0x3d,
+	0xca, 0x5e, 0x9b, 0x9f, 0x0a, 0x15, 0x79, 0x2b,
+	0x4e, 0xd4, 0xe5, 0xac, 0x73, 0xf3, 0xa7, 0x57,
+	0x07, 0x70, 0xc0, 0xf7, 0x8c, 0x80, 0x63, 0x0d,
+	0x67, 0x4a, 0xde, 0xed, 0x31, 0xc5, 0xfe, 0x18,
+	0xe3, 0xa5, 0x99, 0x77, 0x26, 0xb8, 0xb4, 0x7c,
+	0x11, 0x44, 0x92, 0xd9, 0x23, 0x20, 0x89, 0x2e,
+	0x37, 0x3f, 0xd1, 0x5b, 0x95, 0xbc, 0xcf, 0xcd,
+	0x90, 0x87, 0x97, 0xb2, 0xdc, 0xfc, 0xbe, 0x61,
+	0xf2, 0x56, 0xd3, 0xab, 0x14, 0x2a, 0x5d, 0x9e,
+	0x84, 0x3c, 0x39, 0x53, 0x47, 0x6d, 0x41, 0xa2,
+	0x1f, 0x2d, 0x43, 0xd8, 0xb7, 0x7b, 0xa4, 0x76,
+	0xc4, 0x17, 0x49, 0xec, 0x7f, 0x0c, 0x6f, 0xf6,
+	0x6c, 0xa1, 0x3b, 0x52, 0x29, 0x9d, 0x55, 0xaa,
+	0xfb, 0x60, 0x86, 0xb1, 0xbb, 0xcc, 0x3e, 0x5a,
+	0xcb, 0x59, 0x5f, 0xb0, 0x9c, 0xa9, 0xa0, 0x51,
+	0x0b, 0xf5, 0x16, 0xeb, 0x7a, 0x75, 0x2c, 0xd7,
+	0x4f, 0xae, 0xd5, 0xe9, 0xe6, 0xe7, 0xad, 0xe8,
+	0x74, 0xd6, 0xf4, 0xea, 0xa8, 0x50, 0x58, 0xaf
+};
+
+const static struct galois_field gf256 = {
+	.p = 255,
+	.log = gf256_log,
+	.exp = gf256_exp
+};
+
+/************************************************************************
+ * Polynomial operations
+ */
+
+static void poly_add(uint8_t *dst, const uint8_t *src, uint8_t c,
+		     int shift, const struct galois_field *gf)
+{
+	int i;
+	int log_c = gf->log[c];
+
+	if (!c)
+		return;
+
+	for (i = 0; i < MAX_POLY; i++) {
+		int p = i + shift;
+		uint8_t v = src[i];
+
+		if (p < 0 || p >= MAX_POLY)
+			continue;
+		if (!v)
+			continue;
+
+		dst[p] ^= gf->exp[(gf->log[v] + log_c) % gf->p];
+	}
+}
+
+static uint8_t poly_eval(const uint8_t *s, uint8_t x,
+			 const struct galois_field *gf)
+{
+	int i;
+	uint8_t sum = 0;
+	uint8_t log_x = gf->log[x];
+
+	if (!x)
+		return s[0];
+
+	for (i = 0; i < MAX_POLY; i++) {
+		uint8_t c = s[i];
+
+		if (!c)
+			continue;
+
+		sum ^= gf->exp[(gf->log[c] + log_x * i) % gf->p];
+	}
+
+	return sum;
+}
+
+/************************************************************************
+ * Berlekamp-Massey algorithm for finding error locator polynomials.
+ */
+
+static void berlekamp_massey(const uint8_t *s, int N,
+			     const struct galois_field *gf,
+			     uint8_t *sigma)
+{
+	uint8_t C[MAX_POLY];
+	uint8_t B[MAX_POLY];
+	int L = 0;
+	int m = 1;
+	uint8_t b = 1;
+	int n;
+
+	memset(B, 0, sizeof(B));
+	memset(C, 0, sizeof(C));
+	B[0] = 1;
+	C[0] = 1;
+
+	for (n = 0; n < N; n++) {
+		uint8_t d = s[n];
+		uint8_t mult;
+		int i;
+
+		for (i = 1; i <= L; i++) {
+			if (!(C[i] && s[n - i]))
+				continue;
+
+			d ^= gf->exp[(gf->log[C[i]] +
+				      gf->log[s[n - i]]) %
+				     gf->p];
+		}
+
+		mult = gf->exp[(gf->p - gf->log[b] + gf->log[d]) % gf->p];
+
+		if (!d) {
+			m++;
+		} else if (L * 2 <= n) {
+			uint8_t T[MAX_POLY];
+
+			memcpy(T, C, sizeof(T));
+			poly_add(C, B, mult, m, gf);
+			memcpy(B, T, sizeof(B));
+			L = n + 1 - L;
+			b = d;
+			m = 1;
+		} else {
+			poly_add(C, B, mult, m, gf);
+			m++;
+		}
+	}
+
+	memcpy(sigma, C, MAX_POLY);
+}
+
+/************************************************************************
+ * Code stream error correction
+ *
+ * Generator polynomial for GF(2^8) is x^8 + x^4 + x^3 + x^2 + 1
+ */
+
+static int block_syndromes(const uint8_t *data, int bs, int npar, uint8_t *s)
+{
+	int nonzero = 0;
+	int i;
+
+	memset(s, 0, MAX_POLY);
+
+	for (i = 0; i < npar; i++) {
+		int j;
+
+		for (j = 0; j < bs; j++) {
+			uint8_t c = data[bs - j - 1];
+
+			if (!c)
+				continue;
+
+			s[i] ^= gf256_exp[((int)gf256_log[c] +
+				    i * j) % 255];
+		}
+
+		if (s[i])
+			nonzero = 1;
+	}
+
+	return nonzero;
+}
+
+static void eloc_poly(uint8_t *omega,
+		      const uint8_t *s, const uint8_t *sigma,
+		      int npar)
+{
+	int i;
+
+	memset(omega, 0, MAX_POLY);
+
+	for (i = 0; i < npar; i++) {
+		const uint8_t a = sigma[i];
+		const uint8_t log_a = gf256_log[a];
+		int j;
+
+		if (!a)
+			continue;
+
+		for (j = 0; j + 1 < MAX_POLY; j++) {
+			const uint8_t b = s[j + 1];
+
+			if (i + j >= npar)
+				break;
+
+			if (!b)
+				continue;
+
+			omega[i + j] ^=
+			    gf256_exp[(log_a + gf256_log[b]) % 255];
+		}
+	}
+}
+
+static quirc_decode_error_t correct_block(uint8_t *data,
+					  const struct quirc_rs_params *ecc)
+{
+	int npar = ecc->bs - ecc->dw;
+	uint8_t s[MAX_POLY];
+	uint8_t sigma[MAX_POLY];
+	uint8_t sigma_deriv[MAX_POLY];
+	uint8_t omega[MAX_POLY];
+	int i;
+
+	/* Compute syndrome vector */
+	if (!block_syndromes(data, ecc->bs, npar, s))
+		return QUIRC_SUCCESS;
+
+	berlekamp_massey(s, npar, &gf256, sigma);
+
+	/* Compute derivative of sigma */
+	memset(sigma_deriv, 0, MAX_POLY);
+	for (i = 0; i + 1 < MAX_POLY; i += 2)
+		sigma_deriv[i] = sigma[i + 1];
+
+	/* Compute error evaluator polynomial */
+	eloc_poly(omega, s, sigma, npar - 1);
+
+	/* Find error locations and magnitudes */
+	for (i = 0; i < ecc->bs; i++) {
+		uint8_t xinv = gf256_exp[255 - i];
+
+		if (!poly_eval(sigma, xinv, &gf256)) {
+			uint8_t sd_x = poly_eval(sigma_deriv, xinv, &gf256);
+			uint8_t omega_x = poly_eval(omega, xinv, &gf256);
+			uint8_t error = gf256_exp[(255 - gf256_log[sd_x] +
+						   gf256_log[omega_x]) % 255];
+
+			data[ecc->bs - i - 1] ^= error;
+		}
+	}
+
+	if (block_syndromes(data, ecc->bs, npar, s))
+		return QUIRC_ERROR_DATA_ECC;
+
+	return QUIRC_SUCCESS;
+}
+
+/************************************************************************
+ * Format value error correction
+ *
+ * Generator polynomial for GF(2^4) is x^4 + x + 1
+ */
+
+#define FORMAT_MAX_ERROR        3
+#define FORMAT_SYNDROMES        (FORMAT_MAX_ERROR * 2)
+#define FORMAT_BITS             15
+
+static int format_syndromes(uint16_t u, uint8_t *s)
+{
+	int i;
+	int nonzero = 0;
+
+	memset(s, 0, MAX_POLY);
+
+	for (i = 0; i < FORMAT_SYNDROMES; i++) {
+		int j;
+
+		s[i] = 0;
+		for (j = 0; j < FORMAT_BITS; j++)
+			if (u & (1 << j))
+				s[i] ^= gf16_exp[((i + 1) * j) % 15];
+
+		if (s[i])
+			nonzero = 1;
+	}
+
+	return nonzero;
+}
+
+static quirc_decode_error_t correct_format(uint16_t *f_ret)
+{
+	uint16_t u = *f_ret;
+	int i;
+	uint8_t s[MAX_POLY];
+	uint8_t sigma[MAX_POLY];
+
+	/* Evaluate U (received codeword) at each of alpha_1 .. alpha_6
+	 * to get S_1 .. S_6 (but we index them from 0).
+	 */
+	if (!format_syndromes(u, s))
+		return QUIRC_SUCCESS;
+
+	berlekamp_massey(s, FORMAT_SYNDROMES, &gf16, sigma);
+
+	/* Now, find the roots of the polynomial */
+	for (i = 0; i < 15; i++)
+		if (!poly_eval(sigma, gf16_exp[15 - i], &gf16))
+			u ^= (1 << i);
+
+	if (format_syndromes(u, s))
+		return QUIRC_ERROR_FORMAT_ECC;
+
+	*f_ret = u;
+	return QUIRC_SUCCESS;
+}
+
+/************************************************************************
+ * Decoder algorithm
+ */
+
+struct datastream {
+	uint8_t		raw[QUIRC_MAX_PAYLOAD];
+	int		data_bits;
+	int		ptr;
+
+	uint8_t         data[QUIRC_MAX_PAYLOAD];
+};
+
+static inline int grid_bit(const struct quirc_code *code, int x, int y)
+{
+	int p = y * code->size + x;
+
+	return (code->cell_bitmap[p >> 3] >> (p & 7)) & 1;
+}
+
+static quirc_decode_error_t read_format(const struct quirc_code *code,
+					struct quirc_data *data, int which)
+{
+	int i;
+	uint16_t format = 0;
+	uint16_t fdata;
+	quirc_decode_error_t err;
+
+	if (which) {
+		for (i = 0; i < 7; i++)
+			format = (format << 1) |
+				grid_bit(code, 8, code->size - 1 - i);
+		for (i = 0; i < 8; i++)
+			format = (format << 1) |
+				grid_bit(code, code->size - 8 + i, 8);
+	} else {
+		static const int xs[15] = {
+			8, 8, 8, 8, 8, 8, 8, 8, 7, 5, 4, 3, 2, 1, 0
+		};
+		static const int ys[15] = {
+			0, 1, 2, 3, 4, 5, 7, 8, 8, 8, 8, 8, 8, 8, 8
+		};
+
+		for (i = 14; i >= 0; i--)
+			format = (format << 1) | grid_bit(code, xs[i], ys[i]);
+	}
+
+	format ^= 0x5412;
+
+	err = correct_format(&format);
+	if (err)
+		return err;
+
+	fdata = format >> 10;
+	data->ecc_level = fdata >> 3;
+	data->mask = fdata & 7;
+
+	return QUIRC_SUCCESS;
+}
+
+static int mask_bit(int mask, int i, int j)
+{
+	switch (mask) {
+	case 0: return !((i + j) % 2);
+	case 1: return !(i % 2);
+	case 2: return !(j % 3);
+	case 3: return !((i + j) % 3);
+	case 4: return !(((i / 2) + (j / 3)) % 2);
+	case 5: return !((i * j) % 2 + (i * j) % 3);
+	case 6: return !(((i * j) % 2 + (i * j) % 3) % 2);
+	case 7: return !(((i * j) % 3 + (i + j) % 2) % 2);
+	}
+
+	return 0;
+}
+
+static int reserved_cell(int version, int i, int j)
+{
+	const struct quirc_version_info *ver = &quirc_version_db[version];
+	int size = version * 4 + 17;
+	int ai = -1, aj = -1, a;
+
+	/* Finder + format: top left */
+	if (i < 9 && j < 9)
+		return 1;
+
+	/* Finder + format: bottom left */
+	if (i + 8 >= size && j < 9)
+		return 1;
+
+	/* Finder + format: top right */
+	if (i < 9 && j + 8 >= size)
+		return 1;
+
+	/* Exclude timing patterns */
+	if (i == 6 || j == 6)
+		return 1;
+
+	/* Exclude version info, if it exists. Version info sits adjacent to
+	 * the top-right and bottom-left finders in three rows, bounded by
+	 * the timing pattern.
+	 */
+	if (version >= 7) {
+		if (i < 6 && j + 11 >= size)
+			return 1;
+		if (i + 11 >= size && j < 6)
+			return 1;
+	}
+
+	/* Exclude alignment patterns */
+	for (a = 0; a < QUIRC_MAX_ALIGNMENT && ver->apat[a]; a++) {
+		int p = ver->apat[a];
+
+		if (abs(p - i) < 3)
+			ai = a;
+		if (abs(p - j) < 3)
+			aj = a;
+	}
+
+	if (ai >= 0 && aj >= 0) {
+		a--;
+		if (ai > 0 && ai < a)
+			return 1;
+		if (aj > 0 && aj < a)
+			return 1;
+		if (aj == a && ai == a)
+			return 1;
+	}
+
+	return 0;
+}
+
+static void read_bit(const struct quirc_code *code,
+		     struct quirc_data *data,
+		     struct datastream *ds, int i, int j)
+{
+	int bitpos = ds->data_bits & 7;
+	int bytepos = ds->data_bits >> 3;
+	int v = grid_bit(code, j, i);
+
+	if (mask_bit(data->mask, i, j))
+		v ^= 1;
+
+	if (v)
+		ds->raw[bytepos] |= (0x80 >> bitpos);
+
+	ds->data_bits++;
+}
+
+static void read_data(const struct quirc_code *code,
+		      struct quirc_data *data,
+		      struct datastream *ds)
+{
+	int y = code->size - 1;
+	int x = code->size - 1;
+	int dir = -1;
+
+	while (x > 0) {
+		if (x == 6)
+			x--;
+
+		if (!reserved_cell(data->version, y, x))
+			read_bit(code, data, ds, y, x);
+
+		if (!reserved_cell(data->version, y, x - 1))
+			read_bit(code, data, ds, y, x - 1);
+
+		y += dir;
+		if (y < 0 || y >= code->size) {
+			dir = -dir;
+			x -= 2;
+			y += dir;
+		}
+	}
+}
+
+static quirc_decode_error_t codestream_ecc(struct quirc_data *data,
+					   struct datastream *ds)
+{
+	const struct quirc_version_info *ver =
+		&quirc_version_db[data->version];
+	const struct quirc_rs_params *sb_ecc = &ver->ecc[data->ecc_level];
+	struct quirc_rs_params lb_ecc;
+	int bc = ver->data_bytes / sb_ecc->bs;
+	int dst_offset = 0;
+	int lb_count = ver->data_bytes - bc * sb_ecc->bs;
+	int small_dw_total = bc * sb_ecc->dw;
+	int i;
+
+	memcpy(&lb_ecc, sb_ecc, sizeof(lb_ecc));
+	lb_ecc.dw++;
+	lb_ecc.bs++;
+
+	for (i = 0; i < bc; i++) {
+		uint8_t *dst = ds->data + dst_offset;
+		const struct quirc_rs_params *ecc = sb_ecc;
+		quirc_decode_error_t err;
+		int j = 0;
+		int k;
+
+		for (k = 0; k < sb_ecc->dw; k++)
+			dst[j++] = ds->raw[k * bc + i];
+
+		if (i + lb_count >= bc) {
+			dst[j++] = ds->raw[small_dw_total + i - lb_count];
+			ecc = &lb_ecc;
+		}
+
+		for (k = 0; k < sb_ecc->bs - sb_ecc->dw; k++)
+			dst[j++] = ds->raw[small_dw_total + lb_count + i +
+					   k * bc];
+
+		err = correct_block(dst, ecc);
+		if (err)
+			return err;
+
+		dst_offset += ecc->dw;
+	}
+
+	ds->data_bits = dst_offset * 8;
+
+	return QUIRC_SUCCESS;
+}
+
+static inline int bits_remaining(const struct datastream *ds)
+{
+	return ds->data_bits - ds->ptr;
+}
+
+static int take_bits(struct datastream *ds, int len)
+{
+	int ret = 0;
+
+	while (len && (ds->ptr < ds->data_bits)) {
+		uint8_t b = ds->data[ds->ptr >> 3];
+		int bitpos = ds->ptr & 7;
+
+		ret <<= 1;
+		if ((b << bitpos) & 0x80)
+			ret |= 1;
+
+		ds->ptr++;
+		len--;
+	}
+
+	return ret;
+}
+
+static int numeric_tuple(struct quirc_data *data,
+			 struct datastream *ds,
+			 int bits, int digits)
+{
+	int tuple;
+	int i;
+
+	if (bits_remaining(ds) < bits)
+		return -1;
+
+	tuple = take_bits(ds, bits);
+
+	for (i = digits - 1; i >= 0; i--) {
+		data->payload[data->payload_len + i] = tuple % 10 + '0';
+		tuple /= 10;
+	}
+
+	data->payload_len += digits;
+	return 0;
+}
+
+static quirc_decode_error_t decode_numeric(struct quirc_data *data,
+					   struct datastream *ds)
+{
+	int bits = 14;
+	int count;
+
+	if (data->version < 10)
+		bits = 10;
+	else if (data->version < 27)
+		bits = 12;
+
+	count = take_bits(ds, bits);
+	if (data->payload_len + count + 1 > QUIRC_MAX_PAYLOAD)
+		return QUIRC_ERROR_DATA_OVERFLOW;
+
+	while (count >= 3) {
+		if (numeric_tuple(data, ds, 10, 3) < 0)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+		count -= 3;
+	}
+
+	if (count >= 2) {
+		if (numeric_tuple(data, ds, 7, 2) < 0)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+		count -= 2;
+	}
+
+	if (count) {
+		if (numeric_tuple(data, ds, 4, 1) < 0)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+		count--;
+	}
+
+	return QUIRC_SUCCESS;
+}
+
+static int alpha_tuple(struct quirc_data *data,
+		       struct datastream *ds,
+		       int bits, int digits)
+{
+	int tuple;
+	int i;
+
+	if (bits_remaining(ds) < bits)
+		return -1;
+
+	tuple = take_bits(ds, bits);
+
+	for (i = 0; i < digits; i++) {
+		static const char *alpha_map =
+			"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ $%*+-./:";
+
+		data->payload[data->payload_len + digits - i - 1] =
+			alpha_map[tuple % 45];
+		tuple /= 45;
+	}
+
+	data->payload_len += digits;
+	return 0;
+}
+
+static quirc_decode_error_t decode_alpha(struct quirc_data *data,
+					 struct datastream *ds)
+{
+	int bits = 13;
+	int count;
+
+	if (data->version < 7)
+		bits = 9;
+	else if (data->version < 11)
+		bits = 10;
+
+	count = take_bits(ds, bits);
+	if (data->payload_len + count + 1 > QUIRC_MAX_PAYLOAD)
+		return QUIRC_ERROR_DATA_OVERFLOW;
+
+	while (count >= 2) {
+		if (alpha_tuple(data, ds, 11, 2) < 0)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+		count -= 2;
+	}
+
+	if (count) {
+		if (alpha_tuple(data, ds, 6, 1) < 0)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+		count--;
+	}
+
+	return QUIRC_SUCCESS;
+}
+
+static quirc_decode_error_t decode_byte(struct quirc_data *data,
+					struct datastream *ds)
+{
+	int bits = 16;
+	int count;
+	int i;
+
+	if (data->version < 10)
+		bits = 8;
+
+	count = take_bits(ds, bits);
+	if (data->payload_len + count + 1 > QUIRC_MAX_PAYLOAD)
+		return QUIRC_ERROR_DATA_OVERFLOW;
+	if (bits_remaining(ds) < count * 8)
+		return QUIRC_ERROR_DATA_UNDERFLOW;
+
+	for (i = 0; i < count; i++)
+		data->payload[data->payload_len++] = take_bits(ds, 8);
+
+	return QUIRC_SUCCESS;
+}
+
+static quirc_decode_error_t decode_kanji(struct quirc_data *data,
+					 struct datastream *ds)
+{
+	int bits = 12;
+	int count;
+	int i;
+
+	if (data->version < 10)
+		bits = 8;
+	else if (data->version < 27)
+		bits = 10;
+
+	count = take_bits(ds, bits);
+	if (data->payload_len + count * 2 + 1 > QUIRC_MAX_PAYLOAD)
+		return QUIRC_ERROR_DATA_OVERFLOW;
+	if (bits_remaining(ds) < count * 13)
+		return QUIRC_ERROR_DATA_UNDERFLOW;
+
+	for (i = 0; i < count; i++) {
+		int d = take_bits(ds, 13);
+		uint16_t sjw;
+
+		if (d + 0x8140 >= 0x9ffc)
+			sjw = d + 0x8140;
+		else
+			sjw = d + 0xc140;
+
+		data->payload[data->payload_len++] = sjw >> 8;
+		data->payload[data->payload_len++] = sjw & 0xff;
+	}
+
+	return QUIRC_SUCCESS;
+}
+
+static quirc_decode_error_t decode_eci(struct quirc_data *data,
+				       struct datastream *ds)
+{
+	if (bits_remaining(ds) < 8)
+		return QUIRC_ERROR_DATA_UNDERFLOW;
+
+	data->eci = take_bits(ds, 8);
+
+	if ((data->eci & 0xc0) == 0x80) {
+		if (bits_remaining(ds) < 8)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+
+		data->eci = (data->eci << 8) | take_bits(ds, 8);
+	} else if ((data->eci & 0xe0) == 0xc0) {
+		if (bits_remaining(ds) < 16)
+			return QUIRC_ERROR_DATA_UNDERFLOW;
+
+		data->eci = (data->eci << 16) | take_bits(ds, 16);
+	}
+
+	return QUIRC_SUCCESS;
+}
+
+static quirc_decode_error_t decode_payload(struct quirc_data *data,
+					   struct datastream *ds)
+{
+	while (bits_remaining(ds) >= 4) {
+		quirc_decode_error_t err = QUIRC_SUCCESS;
+		int type = take_bits(ds, 4);
+
+		switch (type) {
+		case QUIRC_DATA_TYPE_NUMERIC:
+			err = decode_numeric(data, ds);
+			break;
+
+		case QUIRC_DATA_TYPE_ALPHA:
+			err = decode_alpha(data, ds);
+			break;
+
+		case QUIRC_DATA_TYPE_BYTE:
+			err = decode_byte(data, ds);
+			break;
+
+		case QUIRC_DATA_TYPE_KANJI:
+			err = decode_kanji(data, ds);
+			break;
+
+		case 7:
+			err = decode_eci(data, ds);
+			break;
+
+		default:
+			goto done;
+		}
+
+		if (err)
+			return err;
+
+		if (!(type & (type - 1)) && (type > data->data_type))
+			data->data_type = type;
+	}
+done:
+
+	/* Add nul terminator to all payloads */
+	if (data->payload_len >= sizeof(data->payload))
+		data->payload_len--;
+	data->payload[data->payload_len] = 0;
+
+	return QUIRC_SUCCESS;
+}
+
+quirc_decode_error_t quirc_decode(const struct quirc_code *code,
+				  struct quirc_data *data)
+{
+	quirc_decode_error_t err;
+	struct datastream ds;
+
+	if ((code->size - 17) % 4)
+		return QUIRC_ERROR_INVALID_GRID_SIZE;
+
+	memset(data, 0, sizeof(*data));
+	memset(&ds, 0, sizeof(ds));
+
+	data->version = (code->size - 17) / 4;
+
+	if (data->version < 1 ||
+	    data->version > QUIRC_MAX_VERSION)
+		return QUIRC_ERROR_INVALID_VERSION;
+
+	/* Read format information -- try both locations */
+	err = read_format(code, data, 0);
+	if (err)
+		err = read_format(code, data, 1);
+	if (err)
+		return err;
+
+	read_data(code, data, &ds);
+	err = codestream_ecc(data, &ds);
+	if (err)
+		return err;
+
+	err = decode_payload(data, &ds);
+	if (err)
+		return err;
+
+	return QUIRC_SUCCESS;
+}

source/quirc/quirc.c

@@ -0,0 +1,91 @@
+/* quirc -- QR-code recognition library
+ * Copyright (C) 2010-2012 Daniel Beer <dlbeer@gmail.com>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include <stdlib.h>
+#include <string.h>
+#include "quirc_internal.h"
+
+const char *quirc_version(void)
+{
+	return "1.0";
+}
+
+struct quirc *quirc_new(void)
+{
+	struct quirc *q = malloc(sizeof(*q));
+
+	if (!q)
+		return NULL;
+
+	memset(q, 0, sizeof(*q));
+	return q;
+}
+
+void quirc_destroy(struct quirc *q)
+{
+	if (q->image)
+		free(q->image);
+	if (sizeof(*q->image) != sizeof(*q->pixels))
+		free(q->pixels);
+
+	free(q);
+}
+
+int quirc_resize(struct quirc *q, int w, int h)
+{
+	uint8_t *new_image = realloc(q->image, w * h);
+
+	if (!new_image)
+		return -1;
+
+	if (sizeof(*q->image) != sizeof(*q->pixels)) {
+		size_t new_size = w * h * sizeof(quirc_pixel_t);
+		quirc_pixel_t *new_pixels = realloc(q->pixels, new_size);
+		if (!new_pixels)
+			return -1;
+		q->pixels = new_pixels;
+	}
+
+	q->image = new_image;
+	q->w = w;
+	q->h = h;
+
+	return 0;
+}
+
+int quirc_count(const struct quirc *q)
+{
+	return q->num_grids;
+}
+
+static const char *const error_table[] = {
+	[QUIRC_SUCCESS] = "Success",
+	[QUIRC_ERROR_INVALID_GRID_SIZE] = "Invalid grid size",
+	[QUIRC_ERROR_INVALID_VERSION] = "Invalid version",
+	[QUIRC_ERROR_FORMAT_ECC] = "Format data ECC failure",
+	[QUIRC_ERROR_DATA_ECC] = "ECC failure",
+	[QUIRC_ERROR_UNKNOWN_DATA_TYPE] = "Unknown data type",
+	[QUIRC_ERROR_DATA_OVERFLOW] = "Data overflow",
+	[QUIRC_ERROR_DATA_UNDERFLOW] = "Data underflow"
+};
+
+const char *quirc_strerror(quirc_decode_error_t err)
+{
+	if (err >= 0 && err < sizeof(error_table) / sizeof(error_table[0]))
+		return error_table[err];
+
+	return "Unknown error";
+}

source/quirc/quirc.h

@@ -0,0 +1,165 @@
+/* quirc -- QR-code recognition library
+ * Copyright (C) 2010-2012 Daniel Beer <dlbeer@gmail.com>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#ifndef QUIRC_H_
+#define QUIRC_H_
+
+#include <stdint.h>
+
+struct quirc;
+
+/* Obtain the library version string. */
+const char *quirc_version(void);
+
+/* Construct a new QR-code recognizer. This function will return NULL
+ * if sufficient memory could not be allocated.
+ */
+struct quirc *quirc_new(void);
+
+/* Destroy a QR-code recognizer. */
+void quirc_destroy(struct quirc *q);
+
+/* Resize the QR-code recognizer. The size of an image must be
+ * specified before codes can be analyzed.
+ *
+ * This function returns 0 on success, or -1 if sufficient memory could
+ * not be allocated.
+ */
+int quirc_resize(struct quirc *q, int w, int h);
+
+/* These functions are used to process images for QR-code recognition.
+ * quirc_begin() must first be called to obtain access to a buffer into
+ * which the input image should be placed. Optionally, the current
+ * width and height may be returned.
+ *
+ * After filling the buffer, quirc_end() should be called to process
+ * the image for QR-code recognition. The locations and content of each
+ * code may be obtained using accessor functions described below.
+ */
+uint8_t *quirc_begin(struct quirc *q, int *w, int *h);
+void quirc_end(struct quirc *q);
+
+/* This structure describes a location in the input image buffer. */
+struct quirc_point {
+	int	x;
+	int	y;
+};
+
+/* This enum describes the various decoder errors which may occur. */
+typedef enum {
+	QUIRC_SUCCESS = 0,
+	QUIRC_ERROR_INVALID_GRID_SIZE,
+	QUIRC_ERROR_INVALID_VERSION,
+	QUIRC_ERROR_FORMAT_ECC,
+	QUIRC_ERROR_DATA_ECC,
+	QUIRC_ERROR_UNKNOWN_DATA_TYPE,
+	QUIRC_ERROR_DATA_OVERFLOW,
+	QUIRC_ERROR_DATA_UNDERFLOW
+} quirc_decode_error_t;
+
+/* Return a string error message for an error code. */
+const char *quirc_strerror(quirc_decode_error_t err);
+
+/* Limits on the maximum size of QR-codes and their content. */
+#define QUIRC_MAX_BITMAP	3917
+#define QUIRC_MAX_PAYLOAD	8896
+
+/* QR-code ECC types. */
+#define QUIRC_ECC_LEVEL_M     0
+#define QUIRC_ECC_LEVEL_L     1
+#define QUIRC_ECC_LEVEL_H     2
+#define QUIRC_ECC_LEVEL_Q     3
+
+/* QR-code data types. */
+#define QUIRC_DATA_TYPE_NUMERIC       1
+#define QUIRC_DATA_TYPE_ALPHA         2
+#define QUIRC_DATA_TYPE_BYTE          4
+#define QUIRC_DATA_TYPE_KANJI         8
+
+/* Common character encodings */
+#define QUIRC_ECI_ISO_8859_1		1
+#define QUIRC_ECI_IBM437		2
+#define QUIRC_ECI_ISO_8859_2		4
+#define QUIRC_ECI_ISO_8859_3		5
+#define QUIRC_ECI_ISO_8859_4		6
+#define QUIRC_ECI_ISO_8859_5		7
+#define QUIRC_ECI_ISO_8859_6		8
+#define QUIRC_ECI_ISO_8859_7		9
+#define QUIRC_ECI_ISO_8859_8		10
+#define QUIRC_ECI_ISO_8859_9		11
+#define QUIRC_ECI_WINDOWS_874		13
+#define QUIRC_ECI_ISO_8859_13		15
+#define QUIRC_ECI_ISO_8859_15		17
+#define QUIRC_ECI_SHIFT_JIS		20
+#define QUIRC_ECI_UTF_8			26
+
+/* This structure is used to return information about detected QR codes
+ * in the input image.
+ */
+struct quirc_code {
+	/* The four corners of the QR-code, from top left, clockwise */
+	struct quirc_point	corners[4];
+
+	/* The number of cells across in the QR-code. The cell bitmap
+	 * is a bitmask giving the actual values of cells. If the cell
+	 * at (x, y) is black, then the following bit is set:
+	 *
+	 *     cell_bitmap[i << 3] & (1 << (i & 7))
+	 *
+	 * where i = (y * size) + x.
+	 */
+	int			size;
+	uint8_t			cell_bitmap[QUIRC_MAX_BITMAP];
+};
+
+/* This structure holds the decoded QR-code data */
+struct quirc_data {
+	/* Various parameters of the QR-code. These can mostly be
+	 * ignored if you only care about the data.
+	 */
+	int			version;
+	int			ecc_level;
+	int			mask;
+
+	/* This field is the highest-valued data type found in the QR
+	 * code.
+	 */
+	int			data_type;
+
+	/* Data payload. For the Kanji datatype, payload is encoded as
+	 * Shift-JIS. For all other datatypes, payload is ASCII text.
+	 */
+	uint8_t			payload[QUIRC_MAX_PAYLOAD];
+	int			payload_len;
+
+	/* ECI assignment number */
+	uint32_t		eci;
+};
+
+/* Return the number of QR-codes identified in the last processed
+ * image.
+ */
+int quirc_count(const struct quirc *q);
+
+/* Extract the QR-code specified by the given index. */
+void quirc_extract(const struct quirc *q, int index,
+		   struct quirc_code *code);
+
+/* Decode a QR-code, returning the payload data. */
+quirc_decode_error_t quirc_decode(const struct quirc_code *code,
+				  struct quirc_data *data);
+
+#endif

source/quirc/quirc_internal.h

@@ -0,0 +1,114 @@
+/* quirc -- QR-code recognition library
+ * Copyright (C) 2010-2012 Daniel Beer <dlbeer@gmail.com>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#ifndef QUIRC_INTERNAL_H_
+#define QUIRC_INTERNAL_H_
+
+#include "quirc.h"
+
+#define QUIRC_PIXEL_WHITE	0
+#define QUIRC_PIXEL_BLACK	1
+#define QUIRC_PIXEL_REGION	2
+
+#ifndef QUIRC_MAX_REGIONS
+#define QUIRC_MAX_REGIONS	254
+#endif
+#define QUIRC_MAX_CAPSTONES	32
+#define QUIRC_MAX_GRIDS		8
+
+#define QUIRC_PERSPECTIVE_PARAMS	8
+
+#if QUIRC_MAX_REGIONS < UINT8_MAX
+typedef uint8_t quirc_pixel_t;
+#elif QUIRC_MAX_REGIONS < UINT16_MAX
+typedef uint16_t quirc_pixel_t;
+#else
+#error "QUIRC_MAX_REGIONS > 65534 is not supported"
+#endif
+
+struct quirc_region {
+	struct quirc_point	seed;
+	int			count;
+	int			capstone;
+};
+
+struct quirc_capstone {
+	int			ring;
+	int			stone;
+
+	struct quirc_point	corners[4];
+	struct quirc_point	center;
+	double			c[QUIRC_PERSPECTIVE_PARAMS];
+
+	int			qr_grid;
+};
+
+struct quirc_grid {
+	/* Capstone indices */
+	int			caps[3];
+
+	/* Alignment pattern region and corner */
+	int			align_region;
+	struct quirc_point	align;
+
+	/* Timing pattern endpoints */
+	struct quirc_point	tpep[3];
+	int			hscan;
+	int			vscan;
+
+	/* Grid size and perspective transform */
+	int			grid_size;
+	double			c[QUIRC_PERSPECTIVE_PARAMS];
+};
+
+struct quirc {
+	uint8_t			*image;
+	quirc_pixel_t		*pixels;
+	int			w;
+	int			h;
+
+	int			num_regions;
+	struct quirc_region	regions[QUIRC_MAX_REGIONS];
+
+	int			num_capstones;
+	struct quirc_capstone	capstones[QUIRC_MAX_CAPSTONES];
+
+	int			num_grids;
+	struct quirc_grid	grids[QUIRC_MAX_GRIDS];
+};
+
+/************************************************************************
+ * QR-code version information database
+ */
+
+#define QUIRC_MAX_VERSION     40
+#define QUIRC_MAX_ALIGNMENT   7
+
+struct quirc_rs_params {
+	int             bs; /* Block size */
+	int             dw; /* Data words */
+	int             ce; /* Correctable errors */
+};
+
+struct quirc_version_info {
+	int				data_bytes;
+	int				apat[QUIRC_MAX_ALIGNMENT];
+	struct quirc_rs_params          ecc[4];
+};
+
+extern const struct quirc_version_info quirc_version_db[QUIRC_MAX_VERSION + 1];
+
+#endif

source/quirc/version_db.c

@@ -0,0 +1,421 @@
+/* quirc -- QR-code recognition library
+ * Copyright (C) 2010-2012 Daniel Beer <dlbeer@gmail.com>
+ *
+ * Permission to use, copy, modify, and/or distribute this software for any
+ * purpose with or without fee is hereby granted, provided that the above
+ * copyright notice and this permission notice appear in all copies.
+ *
+ * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
+ * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
+ * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
+ * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
+ * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
+ * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ */
+
+#include "quirc_internal.h"
+
+const struct quirc_version_info quirc_version_db[QUIRC_MAX_VERSION + 1] = {
+	    {0},
+	    { /* Version 1 */
+		    .data_bytes = 26,
+		    .apat = {0},
+		    .ecc = {
+			    {.bs = 26, .dw = 16, .ce = 4},
+			    {.bs = 26, .dw = 19, .ce = 2},
+			    {.bs = 26, .dw = 9, .ce = 8},
+			    {.bs = 26, .dw = 13, .ce = 6}
+		    }
+	    },
+	    { /* Version 2 */
+		    .data_bytes = 44,
+		    .apat = {6, 18, 0},
+		    .ecc = {
+			    {.bs = 44, .dw = 28, .ce = 8},
+			    {.bs = 44, .dw = 34, .ce = 4},
+			    {.bs = 44, .dw = 16, .ce = 14},
+			    {.bs = 44, .dw = 22, .ce = 11}
+		    }
+	    },
+	    { /* Version 3 */
+		    .data_bytes = 70,
+		    .apat = {6, 22, 0},
+		    .ecc = {
+			    {.bs = 70, .dw = 44, .ce = 13},
+			    {.bs = 70, .dw = 55, .ce = 7},
+			    {.bs = 35, .dw = 13, .ce = 11},
+			    {.bs = 35, .dw = 17, .ce = 9}
+		    }
+	    },
+	    { /* Version 4 */
+		    .data_bytes = 100,
+		    .apat = {6, 26, 0},
+		    .ecc = {
+			    {.bs = 50, .dw = 32, .ce = 9},
+			    {.bs = 100, .dw = 80, .ce = 10},
+			    {.bs = 25, .dw = 9, .ce = 8},
+			    {.bs = 50, .dw = 24, .ce = 13}
+		    }
+	    },
+	    { /* Version 5 */
+		    .data_bytes = 134,
+		    .apat = {6, 30, 0},
+		    .ecc = {
+			    {.bs = 67, .dw = 43, .ce = 12},
+			    {.bs = 134, .dw = 108, .ce = 13},
+			    {.bs = 33, .dw = 11, .ce = 11},
+			    {.bs = 33, .dw = 15, .ce = 9}
+		    }
+	    },
+	    { /* Version 6 */
+		    .data_bytes = 172,
+		    .apat = {6, 34, 0},
+		    .ecc = {
+			    {.bs = 43, .dw = 27, .ce = 8},
+			    {.bs = 86, .dw = 68, .ce = 9},
+			    {.bs = 43, .dw = 15, .ce = 14},
+			    {.bs = 43, .dw = 19, .ce = 12}
+		    }
+	    },
+	    { /* Version 7 */
+		    .data_bytes = 196,
+		    .apat = {6, 22, 38, 0},
+		    .ecc = {
+			    {.bs = 49, .dw = 31, .ce = 9},
+			    {.bs = 98, .dw = 78, .ce = 10},
+			    {.bs = 39, .dw = 13, .ce = 13},
+			    {.bs = 32, .dw = 14, .ce = 9}
+		    }
+	    },
+	    { /* Version 8 */
+		    .data_bytes = 242,
+		    .apat = {6, 24, 42, 0},
+		    .ecc = {
+			    {.bs = 60, .dw = 38, .ce = 11},
+			    {.bs = 121, .dw = 97, .ce = 12},
+			    {.bs = 40, .dw = 14, .ce = 13},
+			    {.bs = 40, .dw = 18, .ce = 11}
+		    }
+	    },
+	    { /* Version 9 */
+		    .data_bytes = 292,
+		    .apat = {6, 26, 46, 0},
+		    .ecc = {
+			    {.bs = 58, .dw = 36, .ce = 11},
+			    {.bs = 146, .dw = 116, .ce = 15},
+			    {.bs = 36, .dw = 12, .ce = 12},
+			    {.bs = 36, .dw = 16, .ce = 10}
+		    }
+	    },
+	    { /* Version 10 */
+		    .data_bytes = 346,
+		    .apat = {6, 28, 50, 0},
+		    .ecc = {
+			    {.bs = 69, .dw = 43, .ce = 13},
+			    {.bs = 86, .dw = 68, .ce = 9},
+			    {.bs = 43, .dw = 15, .ce = 14},
+			    {.bs = 43, .dw = 19, .ce = 12}
+		    }
+	    },
+	    { /* Version 11 */
+		    .data_bytes = 404,
+		    .apat = {6, 30, 54, 0},
+		    .ecc = {
+			    {.bs = 80, .dw = 50, .ce = 15},
+			    {.bs = 101, .dw = 81, .ce = 10},
+			    {.bs = 36, .dw = 12, .ce = 12},
+			    {.bs = 50, .dw = 22, .ce = 14}
+		    }
+	    },
+	    { /* Version 12 */
+		    .data_bytes = 466,
+		    .apat = {6, 32, 58, 0},
+		    .ecc = {
+			    {.bs = 58, .dw = 36, .ce = 11},
+			    {.bs = 116, .dw = 92, .ce = 12},
+			    {.bs = 42, .dw = 14, .ce = 14},
+			    {.bs = 46, .dw = 20, .ce = 14}
+		    }
+	    },
+	    { /* Version 13 */
+		    .data_bytes = 532,
+		    .apat = {6, 34, 62, 0},
+		    .ecc = {
+			    {.bs = 59, .dw = 37, .ce = 11},
+			    {.bs = 133, .dw = 107, .ce = 13},
+			    {.bs = 33, .dw = 11, .ce = 11},
+			    {.bs = 44, .dw = 20, .ce = 12}
+		    }
+	    },
+	    { /* Version 14 */
+		    .data_bytes = 581,
+		    .apat = {6, 26, 46, 66, 0},
+		    .ecc = {
+			    {.bs = 65, .dw = 41, .ce = 12},
+			    {.bs = 109, .dw = 87, .ce = 11},
+			    {.bs = 36, .dw = 12, .ce = 12},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 15 */
+		    .data_bytes = 655,
+		    .apat = {6, 26, 48, 70, 0},
+		    .ecc = {
+			    {.bs = 65, .dw = 41, .ce = 12},
+			    {.bs = 109, .dw = 87, .ce = 11},
+			    {.bs = 36, .dw = 12, .ce = 12},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 16 */
+		    .data_bytes = 733,
+		    .apat = {6, 26, 50, 74, 0},
+		    .ecc = {
+			    {.bs = 73, .dw = 45, .ce = 14},
+			    {.bs = 122, .dw = 98, .ce = 12},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 43, .dw = 19, .ce = 12}
+		    }
+	    },
+	    { /* Version 17 */
+		    .data_bytes = 815,
+		    .apat = {6, 30, 54, 78, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 135, .dw = 107, .ce = 14},
+			    {.bs = 42, .dw = 14, .ce = 14},
+			    {.bs = 50, .dw = 22, .ce = 14}
+		    }
+	    },
+	    { /* Version 18 */
+		    .data_bytes = 901,
+		    .apat = {6, 30, 56, 82, 0},
+		    .ecc = {
+			    {.bs = 69, .dw = 43, .ce = 13},
+			    {.bs = 150, .dw = 120, .ce = 15},
+			    {.bs = 42, .dw = 14, .ce = 14},
+			    {.bs = 50, .dw = 22, .ce = 14}
+		    }
+	    },
+	    { /* Version 19 */
+		    .data_bytes = 991,
+		    .apat = {6, 30, 58, 86, 0},
+		    .ecc = {
+			    {.bs = 70, .dw = 44, .ce = 13},
+			    {.bs = 141, .dw = 113, .ce = 14},
+			    {.bs = 39, .dw = 13, .ce = 13},
+			    {.bs = 47, .dw = 21, .ce = 13}
+		    }
+	    },
+	    { /* Version 20 */
+		    .data_bytes = 1085,
+		    .apat = {6, 34, 62, 90, 0},
+		    .ecc = {
+			    {.bs = 67, .dw = 41, .ce = 13},
+			    {.bs = 135, .dw = 107, .ce = 14},
+			    {.bs = 43, .dw = 15, .ce = 14},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 21 */
+		    .data_bytes = 1156,
+		    .apat = {6, 28, 50, 72, 92, 0},
+		    .ecc = {
+			    {.bs = 68, .dw = 42, .ce = 13},
+			    {.bs = 144, .dw = 116, .ce = 14},
+			    {.bs = 46, .dw = 16, .ce = 15},
+			    {.bs = 50, .dw = 22, .ce = 14}
+		    }
+	    },
+	    { /* Version 22 */
+		    .data_bytes = 1258,
+		    .apat = {6, 26, 50, 74, 98, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 139, .dw = 111, .ce = 14},
+			    {.bs = 37, .dw = 13, .ce = 12},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 23 */
+		    .data_bytes = 1364,
+		    .apat = {6, 30, 54, 78, 102, 0},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 151, .dw = 121, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 24 */
+		    .data_bytes = 1474,
+		    .apat = {6, 28, 54, 80, 106, 0},
+		    .ecc = {
+			    {.bs = 73, .dw = 45, .ce = 14},
+			    {.bs = 147, .dw = 117, .ce = 15},
+			    {.bs = 46, .dw = 16, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 25 */
+		    .data_bytes = 1588,
+		    .apat = {6, 32, 58, 84, 110, 0},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 132, .dw = 106, .ce = 13},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 26 */
+		    .data_bytes = 1706,
+		    .apat = {6, 30, 58, 86, 114, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 142, .dw = 114, .ce = 14},
+			    {.bs = 46, .dw = 16, .ce = 15},
+			    {.bs = 50, .dw = 22, .ce = 14}
+		    }
+	    },
+	    { /* Version 27 */
+		    .data_bytes = 1828,
+		    .apat = {6, 34, 62, 90, 118, 0},
+		    .ecc = {
+			    {.bs = 73, .dw = 45, .ce = 14},
+			    {.bs = 152, .dw = 122, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 53, .dw = 23, .ce = 15}
+		    }
+	    },
+	    { /* Version 28 */
+		    .data_bytes = 1921,
+		    .apat = {6, 26, 50, 74, 98, 122, 0},
+		    .ecc = {
+			    {.bs = 73, .dw = 45, .ce = 14},
+			    {.bs = 147, .dw = 117, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 29 */
+		    .data_bytes = 2051,
+		    .apat = {6, 30, 54, 78, 102, 126, 0},
+		    .ecc = {
+			    {.bs = 73, .dw = 45, .ce = 14},
+			    {.bs = 146, .dw = 116, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 73, .dw = 45, .ce = 14}
+		    }
+	    },
+	    { /* Version 30 */
+		    .data_bytes = 2185,
+		    .apat = {6, 26, 52, 78, 104, 130, 0},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 145, .dw = 115, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 31 */
+		    .data_bytes = 2323,
+		    .apat = {6, 30, 56, 82, 108, 134, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 145, .dw = 115, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 32 */
+		    .data_bytes = 2465,
+		    .apat = {6, 34, 60, 86, 112, 138, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 145, .dw = 115, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 33 */
+		    .data_bytes = 2611,
+		    .apat = {6, 30, 58, 96, 114, 142, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 145, .dw = 115, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 34 */
+		    .data_bytes = 2761,
+		    .apat = {6, 34, 62, 90, 118, 146, 0},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 145, .dw = 115, .ce = 15},
+			    {.bs = 46, .dw = 16, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 35 */
+		    .data_bytes = 2876,
+		    .apat = {6, 30, 54, 78, 102, 126, 150},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 151, .dw = 121, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 36 */
+		    .data_bytes = 3034,
+		    .apat = {6, 24, 50, 76, 102, 128, 154},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 151, .dw = 121, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 37 */
+		    .data_bytes = 3196,
+		    .apat = {6, 28, 54, 80, 106, 132, 158},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 152, .dw = 122, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 38 */
+		    .data_bytes = 3362,
+		    .apat = {6, 32, 58, 84, 110, 136, 162},
+		    .ecc = {
+			    {.bs = 74, .dw = 46, .ce = 14},
+			    {.bs = 152, .dw = 122, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 39 */
+		    .data_bytes = 3532,
+		    .apat = {6, 26, 54, 82, 110, 138, 166},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 147, .dw = 117, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    },
+	    { /* Version 40 */
+		    .data_bytes = 3706,
+		    .apat = {6, 30, 58, 86, 114, 142, 170},
+		    .ecc = {
+			    {.bs = 75, .dw = 47, .ce = 14},
+			    {.bs = 148, .dw = 118, .ce = 15},
+			    {.bs = 45, .dw = 15, .ce = 15},
+			    {.bs = 54, .dw = 24, .ce = 15}
+		    }
+	    }
+};

source/splashes.c

@@ -26,81 +26,105 @@
 #include "splashes.h"
 #include "unicode.h"
 #include "fs.h"
+#include "draw.h"
 
-Result get_splashes(Splash_s** splashes_list, int *splash_count)
+void splash_delete(void)
 {
-    Result res = 0;
-    Handle dir_handle;
-    res = FSUSER_OpenDirectory(&dir_handle, ArchiveSD, fsMakePath(PATH_ASCII, SPLASHES_PATH));
-    if (R_FAILED(res))
-        return res;
-
-    u32 entries_read = 1;
-    while (entries_read)
-    {
-        FS_DirectoryEntry entry = {0};
-        res = FSDIR_Read(dir_handle, &entries_read, 1, &entry);
-        if (R_FAILED(res) || entries_read == 0) 
-            break;
-
-        if (!(entry.attributes & FS_ATTRIBUTE_DIRECTORY))
-            continue;
-
-        *splash_count += entries_read;
-        *splashes_list= realloc(*splashes_list, (*splash_count) * sizeof(Splash_s));
-        if (splashes_list == NULL)
-            break;
-
-        Splash_s *current_splash = &(*splashes_list)[*splash_count-1];
-        memset(current_splash, 0, sizeof(Splash_s));
-
-        u16 splash_path[0x106] = {0};
-        struacat(splash_path, SPLASHES_PATH);
-        strucat(splash_path, entry.name);
-        u16 top_path[0x106] = {0};
-        memcpy(top_path, splash_path, 0x106);
-        struacat(top_path, "/splash.bin");
-        u16 bottom_path[0x106] = {0};
-        memcpy(bottom_path, splash_path, 0x106);
-        struacat(bottom_path, "/splashbottom.bin");
-
-        char *temp_buf = NULL;
-        u32 bytes = file_to_buf(fsMakePath(PATH_UTF16, top_path), ArchiveSD, &temp_buf);
-        if (!bytes)
-        {
-            memset(top_path, 0, 0x106);
-        }
-        free(temp_buf);
-        temp_buf = NULL;
-        bytes = file_to_buf(fsMakePath(PATH_UTF16, bottom_path), ArchiveSD, &temp_buf);
-        if (!bytes)
-        {
-            memset(bottom_path, 0, 0x106);
-        }
-        free(temp_buf);
-        memcpy(current_splash->name, entry.name, 0x106);
-        memcpy(current_splash->top_path, top_path, 0x106);
-        memcpy(current_splash->bottom_path, bottom_path, 0x106);
-    }
-    FSDIR_Close(dir_handle);
-
-    return res;
+    remove("/luma/splash.bin");
+    remove("/luma/splashbottom.bin");
 }
 
-void splash_install(Splash_s splash_to_install)
+void splash_install(Entry_s splash)
 {
-    char *screen_buf;
-    u32 size = file_to_buf(fsMakePath(PATH_UTF16, splash_to_install.top_path), ArchiveSD, &screen_buf);
-    if (size)
+    char *screen_buf = NULL;
+
+    u32 size = load_data("/splash.bin", splash, &screen_buf);
+    if(size != 0)
     {
+        remake_file("/luma/splash.bin", ArchiveSD, size);
         buf_to_file(size, "/luma/splash.bin", ArchiveSD, screen_buf);
-        free(screen_buf);
     }
 
-    size = file_to_buf(fsMakePath(PATH_UTF16, splash_to_install.bottom_path), ArchiveSD, &screen_buf);
-    if (size)
+    u32 bottom_size = load_data("/splashbottom.bin", splash, &screen_buf);
+    if(bottom_size != 0)
     {
-        buf_to_file(size, "/luma/splashbottom.bin", ArchiveSD, screen_buf);
-        free(screen_buf);
+        remake_file("/luma/splashbottom.bin", ArchiveSD, bottom_size);
+        buf_to_file(bottom_size, "/luma/splashbottom.bin", ArchiveSD, screen_buf);
+    }
+
+    if(size == 0 && bottom_size == 0)
+    {
+        throw_error("No splash.bin or splashbottom.bin found.\nIs this a splash?", ERROR_LEVEL_WARNING);
+    }
+    else
+    {
+        char *config_buf;
+        size = file_to_buf(fsMakePath(PATH_ASCII, "/luma/config.bin"), ArchiveSD, &config_buf);
+        if(size)
+        {
+            if(config_buf[0xC] == 0)
+            {
+                free(config_buf);
+                throw_error("WARNING: Splashes are disabled in Luma Config", ERROR_LEVEL_WARNING);
+            }
+        }
     }
 }
+
+void splash_check_installed(void * void_arg)
+{
+    Thread_Arg_s * arg = (Thread_Arg_s *)void_arg;
+    Entry_List_s * list = (Entry_List_s *)arg->thread_arg;
+    if(list == NULL || list->entries == NULL) return;
+
+    #ifndef CITRA_MODE
+    char * top_buf = NULL;
+    u32 top_size = file_to_buf(fsMakePath(PATH_ASCII, "/luma/splash.bin"), ArchiveSD, &top_buf);
+    char * bottom_buf = NULL;
+    u32 bottom_size = file_to_buf(fsMakePath(PATH_ASCII, "/luma/splashbottom.bin"), ArchiveSD, &bottom_buf);
+
+    if(!top_size && !bottom_size)
+    {
+        free(top_buf);
+        free(bottom_buf);
+        return;
+    }
+
+    #define HASH_SIZE_BYTES 256/8
+    u8 top_hash[HASH_SIZE_BYTES] = {0};
+    FSUSER_UpdateSha256Context(top_buf, top_size, top_hash);
+    free(top_buf);
+    top_buf = NULL;
+    u8 bottom_hash[HASH_SIZE_BYTES] = {0};
+    FSUSER_UpdateSha256Context(bottom_buf, bottom_size, bottom_hash);
+    free(bottom_buf);
+    bottom_buf = NULL;
+
+    for(int i = 0; i < list->entries_count && arg->run_thread; i++)
+    {
+        Entry_s * splash = &list->entries[i];
+        top_size = load_data("/splash.bin", *splash, &top_buf);
+        bottom_size = load_data("/splashbottom.bin", *splash, &bottom_buf);
+
+        if(!top_size && !bottom_size)
+        {
+            continue;
+        }
+
+        u8 splash_top_hash[HASH_SIZE_BYTES] = {0};
+        FSUSER_UpdateSha256Context(top_buf, top_size, splash_top_hash);
+        free(top_buf);
+        top_buf = NULL;
+        u8 splash_bottom_hash[HASH_SIZE_BYTES] = {0};
+        FSUSER_UpdateSha256Context(bottom_buf, bottom_size, splash_bottom_hash);
+        free(bottom_buf);
+        bottom_buf = NULL;
+
+        if(!memcmp(splash_bottom_hash, bottom_hash, HASH_SIZE_BYTES) && !memcmp(splash_top_hash, top_hash, HASH_SIZE_BYTES))
+        {
+            splash->installed = true;
+            break;
+        }
+    }
+    #endif
+}

source/themes.c

@@ -27,415 +27,312 @@
 #include "themes.h"
 #include "unicode.h"
 #include "fs.h"
+#include "draw.h"
 
-#include "pp2d/pp2d/pp2d.h"
-#include "pp2d/pp2d/lodepng.h"
+#define BODY_CACHE_SIZE 0x150000
+#define BGM_MAX_SIZE 0x337000
 
-void load_theme_preview(Theme_s *theme)
-{
-    //free the previously loaded preview. wont do anything if there wasnt one
-    pp2d_free_texture(TEXTURE_PREVIEW);
-    
-    char *preview_buffer = NULL;
-    u64 size = 0;
-    if (!(theme->is_zip))
-    {
-        u16 path_to_preview[0x106] = {0};
-        strucat(path_to_preview, theme->path);
-        struacat(path_to_preview, "/preview.png");
-        size = file_to_buf(fsMakePath(PATH_UTF16, path_to_preview), ArchiveSD, &preview_buffer);    
-    } else {
-        size = zip_file_to_buf("preview.png", theme->path, &preview_buffer);
-    }
-
-    if (!size)
-    {
-        free(preview_buffer);
-        return;
-    }
-    
-    u8 * image = NULL;
-    unsigned int width = 0, height = 0;
-    
-    int result = lodepng_decode32(&image, &width, &height, (u8*)preview_buffer, size);
-    if (result == 0) // no error
-    {
-        for (u32 i = 0; i < width; i++)
-        {
-            for (u32 j = 0; j < height; j++)
-            {
-                u32 p = (i + j*width) * 4;
-
-                u8 r = *(u8*)(image + p);
-                u8 g = *(u8*)(image + p + 1);
-                u8 b = *(u8*)(image + p + 2);
-                u8 a = *(u8*)(image + p + 3);
-
-                *(image + p) = a;
-                *(image + p + 1) = b;
-                *(image + p + 2) = g;
-                *(image + p + 3) = r;
-            }
-        }
-        
-        theme->has_preview = true;
-        pp2d_load_texture_memory(TEXTURE_PREVIEW, image, (u32)width, (u32)height);
-    }
-    
-    free(image);
-    free(preview_buffer);
-}
-
-static void parse_smdh(Theme_s *theme, ssize_t textureID)
-{
-    char *info_buffer = NULL;
-    u64 size = 0;
-    if (!(theme->is_zip))
-    {
-        u16 path_to_smdh[0x106] = {0};
-        strucat(path_to_smdh, theme->path);
-        struacat(path_to_smdh, "/info.smdh");
-        
-        size = file_to_buf(fsMakePath(PATH_UTF16, path_to_smdh), ArchiveSD, &info_buffer);    
-    } else {
-        size = zip_file_to_buf("info.smdh", theme->path, &info_buffer);
-    }
-
-    if (!size)
-    {
-        free(info_buffer);
-        return;
-    }
-
-    memcpy(theme->name, info_buffer + 0x08, 0x80);
-    memcpy(theme->desc, info_buffer + 0x88, 0x100);
-    memcpy(theme->author, info_buffer + 0x188, 0x80);
-    
-    u16 *icon_data = malloc(0x1200);
-    memcpy(icon_data, info_buffer + 0x24C0, 0x1200);
-    
-    const u32 width = 48, height = 48;
-    u32 *image = malloc(width*height*sizeof(u32));
-
-    for (u32 x = 0; x < width; x++)
-    {
-        for (u32 y = 0; y < height; y++)
-        {
-            unsigned int dest_pixel = (x + y*width);
-            unsigned int source_pixel = (((y >> 3) * (width >> 3) + (x >> 3)) << 6) + ((x & 1) | ((y & 1) << 1) | ((x & 2) << 1) | ((y & 2) << 2) | ((x & 4) << 2) | ((y & 4) << 3));
-            
-            u8 r = ((icon_data[source_pixel] >> 11) & 0b11111) << 3;
-            u8 g = ((icon_data[source_pixel] >> 5) & 0b111111) << 2;
-            u8 b = (icon_data[source_pixel] & 0b11111) << 3;
-            u8 a = 0xFF;
-            
-            image[dest_pixel] = (r << 24) | (g << 16) | (b << 8) | a;
-        }
-    }
-    
-    theme->has_icon = true;
-    pp2d_load_texture_memory(textureID, (u8*)image, (u32)width, (u32)height);
-    theme->icon_id = textureID;
-    
-    free(image);
-    free(icon_data);
-    free(info_buffer);
-}
-
-Result get_themes(Theme_s **themes_list, int *theme_count)
+static Result install_theme_internal(Entry_List_s themes, int installmode)
 {
     Result res = 0;
-    Handle dir_handle;
-    res = FSUSER_OpenDirectory(&dir_handle, ArchiveSD, fsMakePath(PATH_ASCII, THEMES_PATH));
-    if (R_FAILED(res))
-        return res;
+    char* music = NULL;
+    u32 music_size = 0;
+    u32 shuffle_music_sizes[MAX_SHUFFLE_THEMES] = {0};
+    char* body = NULL;
+    u32 body_size = 0;
+    u32 shuffle_body_sizes[MAX_SHUFFLE_THEMES] = {0};
 
-    u32 entries_read = 1;
-    while (entries_read)
+    if(installmode & THEME_INSTALL_SHUFFLE)
     {
-        FS_DirectoryEntry entry = {0};
-        res = FSDIR_Read(dir_handle, &entries_read, 1, &entry);
-        if (R_FAILED(res) || entries_read == 0)
-            break;
-        
-        if (!(entry.attributes & FS_ATTRIBUTE_DIRECTORY) && strcmp(entry.shortExt, "ZIP"))
-            continue;
-        
-        *theme_count += entries_read;
-        *themes_list = realloc(*themes_list, (*theme_count) * sizeof(Theme_s));
-        if (*themes_list == NULL)
-            break;
-        
-        Theme_s* current_theme = &(*themes_list)[*theme_count-1];
-        memset(current_theme, 0, sizeof(Theme_s));
-        
-        u16 theme_path[0x106] = {0};
-        struacat(theme_path, THEMES_PATH);
-        strucat(theme_path, entry.name);
-        
-        char pathchar[0x106] = {0};
-        utf16_to_utf8((u8*)pathchar, theme_path, 0x106);
-        
-        memcpy(current_theme->path, theme_path, 0x106 * sizeof(u16));
-        current_theme->is_zip = !strcmp(entry.shortExt, "ZIP");
-        
-        ssize_t iconID = TEXTURE_PREVIEW + *theme_count;
-        parse_smdh(current_theme, iconID);
+        if(themes.shuffle_count == 0)
+        {
+            DEBUG("no themes selected for shuffle\n");
+            return MAKERESULT(RL_USAGE, RS_INVALIDARG, RM_COMMON, RD_INVALID_SELECTION);
         }
 
-    FSDIR_Close(dir_handle);
-    
-    return res;
-}
-
-// Install a single theme
-Result single_install(Theme_s theme_to_install)
-{
-    char *body;
-    char *music;
-    char *savedata_buf;
-    char *thememanage_buf;
-    u32 body_size;
-    u32 music_size;
-    u32 savedata_size;
-
-    printf("Writing SaveData.dat...\n");
-
-    savedata_size = file_to_buf(fsMakePath(PATH_ASCII, "/SaveData.dat"), ArchiveHomeExt, &savedata_buf);
-    savedata_buf[0x141b] = 0;
-    memset(&savedata_buf[0x13b8], 0, 8);
-    savedata_buf[0x13bd] = 3;
-    savedata_buf[0x13b8] = 0xff;
-    u32 size = buf_to_file(savedata_size, "/SaveData.dat", ArchiveHomeExt, savedata_buf);
-    free(savedata_buf);
-
-    // Open body cache file. Test if theme is zipped
-    printf("Writing BodyCache.bin...\n");
-    if (theme_to_install.is_zip)
+        if(themes.shuffle_count > MAX_SHUFFLE_THEMES)
         {
-        body_size = zip_file_to_buf("body_LZ.bin", theme_to_install.path, &body);
-    }
-    else
-    {
-        u16 path[0x106] = {0};
-        memcpy(path, theme_to_install.path, 0x106 * sizeof(u16));
-        struacat(path, "/body_lz.bin");
-        body_size = file_to_buf(fsMakePath(PATH_UTF16, path), ArchiveSD, &body);
+            DEBUG("too many themes selected for shuffle\n");
+            return MAKERESULT(RL_USAGE, RS_INVALIDARG, RM_COMMON, RD_INVALID_SELECTION);
         }
 
-    if (body_size == 0)
+        int shuffle_count = 0;
+        Handle body_cache_handle;
+
+        if(installmode & THEME_INSTALL_BODY)
+        {
+            remake_file("/BodyCache_rd.bin", ArchiveThemeExt, BODY_CACHE_SIZE * MAX_SHUFFLE_THEMES);
+            FSUSER_OpenFile(&body_cache_handle, ArchiveThemeExt, fsMakePath(PATH_ASCII, "/BodyCache_rd.bin"), FS_OPEN_WRITE, 0);
+        }
+
+        for(int i = 0; i < themes.entries_count; i++)
+        {
+            Entry_s * current_theme = &themes.entries[i];
+
+            if(current_theme->in_shuffle)
+            {
+                if(installmode & THEME_INSTALL_BODY)
+                {
+                    body_size = load_data("/body_LZ.bin", *current_theme, &body);
+                    if(body_size == 0)
                     {
                         free(body);
-        puts("bodyrip");
+                        DEBUG("body not found\n");
+                        throw_error("No body_LZ.bin found - is this a theme?", ERROR_LEVEL_WARNING);
                         return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_NOT_FOUND);
                     }
 
-    size = buf_to_file(body_size, "/BodyCache.bin", ArchiveThemeExt, body); // Write body data to file
+                    shuffle_body_sizes[shuffle_count] = body_size;
+                    FSFILE_Write(body_cache_handle, NULL, BODY_CACHE_SIZE * shuffle_count, body, body_size, FS_WRITE_FLUSH);
                     free(body);
-
-    if (size == 0) return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_NOT_FOUND);
-
-    printf("Writing BgmCache.bin...\n");
-    if (theme_to_install.is_zip) // Same as above but this time with bgm
-    {
-        music_size = zip_file_to_buf("bgm.bcstm", theme_to_install.path, &music);
-    } else {
-        u16 path[0x106] = {0};
-        memcpy(path, theme_to_install.path, 0x106 * sizeof(u16));
-        struacat(path, "/bgm.bcstm");
-        music_size = file_to_buf(fsMakePath(PATH_UTF16, path), ArchiveSD, &music);
                 }
 
-    if (music_size == 0)
+                if(installmode & THEME_INSTALL_BGM)
+                {
+                    char bgm_cache_path[26] = {0};
+                    sprintf(bgm_cache_path, "/BgmCache_%.2i.bin", shuffle_count);
+                    music_size = load_data("/bgm.bcstm", *current_theme, &music);
+
+                    if(music_size > BGM_MAX_SIZE)
                     {
                         free(music);
-        music = calloc(1, 3371008);
-    } else if (music_size > 3371008) {
-        free(music);
-        puts("musicrip");
+                        DEBUG("bgm too big\n");
                         return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_TOO_LARGE);
                     }
 
-    size = buf_to_file(music_size, "/BgmCache.bin", ArchiveThemeExt, music);
+                    shuffle_music_sizes[shuffle_count] = music_size;
+                    remake_file(bgm_cache_path, ArchiveThemeExt, BGM_MAX_SIZE);
+                    buf_to_file(music_size, bgm_cache_path, ArchiveThemeExt, music);
+                    free(music);
+                }
+
+                shuffle_count++;
+            }
+        }
+
+        if(installmode & THEME_INSTALL_BGM)
+        {
+            for(int i = shuffle_count; i < MAX_SHUFFLE_THEMES; i++)
+            {
+                char bgm_cache_path[26] = {0};
+                sprintf(bgm_cache_path, "/BgmCache_%.2i.bin", i);
+                remake_file(bgm_cache_path, ArchiveThemeExt, BGM_MAX_SIZE);
+            }
+        }
+
+        if(installmode & THEME_INSTALL_BODY)
+        {
+            FSFILE_Close(body_cache_handle);
+        }
+    }
+    else
+    {
+        Entry_s current_theme = themes.entries[themes.selected_entry];
+
+        if(installmode & THEME_INSTALL_BODY)
+        {
+            body_size = load_data("/body_LZ.bin", current_theme, &body);
+            if(body_size == 0)
+            {
+                free(body);
+                DEBUG("body not found\n");
+                throw_error("No body_LZ.bin found - is this a theme?", ERROR_LEVEL_WARNING);
+                return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_NOT_FOUND);
+            }
+
+            res = buf_to_file(body_size, "/BodyCache.bin", ArchiveThemeExt, body); // Write body data to file
+            free(body);
+
+            if(R_FAILED(res)) return res;
+        }
+
+        if(installmode & THEME_INSTALL_BGM)
+        {
+            music_size = load_data("/bgm.bcstm", current_theme, &music);
+            if(music_size > BGM_MAX_SIZE)
+            {
+                free(music);
+                DEBUG("bgm too big\n");
+                return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_TOO_LARGE);
+            }
+
+            res = buf_to_file(music_size, "/BgmCache.bin", ArchiveThemeExt, music);
             free(music);
 
-    if (size == 0) return MAKERESULT(RL_PERMANENT, RS_CANCELED, RM_APPLICATION, RD_NOT_FOUND);
+            if(R_FAILED(res)) return res;
+        }
+    }
 
-    printf("Writing ThemeManage.bin...\n");
+     //----------------------------------------
+    char* thememanage_buf = NULL;
     file_to_buf(fsMakePath(PATH_ASCII, "/ThemeManage.bin"), ArchiveThemeExt, &thememanage_buf);
-    thememanage_buf[0x00] = 1;
-    thememanage_buf[0x01] = 0;
-    thememanage_buf[0x02] = 0;
-    thememanage_buf[0x03] = 0;
-    thememanage_buf[0x04] = 0;
-    thememanage_buf[0x05] = 0;
-    thememanage_buf[0x06] = 0;
-    thememanage_buf[0x07] = 0;
+    ThemeManage_bin_s * theme_manage = (ThemeManage_bin_s *)thememanage_buf;
 
-    u32 *body_size_location = (u32*)(&thememanage_buf[0x8]);
-    u32 *music_size_location = (u32*)(&thememanage_buf[0xC]);
-    *body_size_location = body_size;
-    *music_size_location = music_size;
+    theme_manage->unk1 = 1;
+    theme_manage->unk2 = 0;
 
-    thememanage_buf[0x10] = 0xFF;
-    thememanage_buf[0x14] = 0x01;
-    thememanage_buf[0x18] = 0xFF;
-    thememanage_buf[0x1D] = 0x02;
+    if(installmode & THEME_INSTALL_SHUFFLE)
+    {
+        theme_manage->music_size = 0;
+        theme_manage->body_size = 0;
 
-    memset(&thememanage_buf[0x338], 0, 4);
-    memset(&thememanage_buf[0x340], 0, 4);
-    memset(&thememanage_buf[0x360], 0, 4);
-    memset(&thememanage_buf[0x368], 0, 4);
-    size = buf_to_file(0x800, "/ThemeManage.bin", ArchiveThemeExt, thememanage_buf);
+        for(int i = 0; i < MAX_SHUFFLE_THEMES; i++)
+        {
+            theme_manage->shuffle_body_sizes[i] = shuffle_body_sizes[i];
+            theme_manage->shuffle_music_sizes[i] = shuffle_music_sizes[i];
+        }
+    }
+    else
+    {
+        if(installmode & THEME_INSTALL_BGM)
+            theme_manage->music_size = music_size;
+        if(installmode & THEME_INSTALL_BODY)
+            theme_manage->body_size = body_size;
+    }
+
+    theme_manage->unk3 = 0xFF;
+    theme_manage->unk4 = 1;
+    theme_manage->dlc_theme_content_index = 0xFF;
+    theme_manage->use_theme_cache = 0x0200;
+
+    res = buf_to_file(0x800, "/ThemeManage.bin", ArchiveThemeExt, thememanage_buf);
     free(thememanage_buf);
+    if(R_FAILED(res)) return res;
+    //----------------------------------------
 
-    printf("Done!\n");
+    //----------------------------------------
+    char* savedata_buf = NULL;
+    u32 savedata_size = file_to_buf(fsMakePath(PATH_ASCII, "/SaveData.dat"), ArchiveHomeExt, &savedata_buf);
+    SaveData_dat_s* savedata = (SaveData_dat_s*)savedata_buf;
+
+    memset(&savedata->theme_entry, 0, sizeof(ThemeEntry_s));
+    savedata->theme_entry.type = 3;
+    savedata->theme_entry.index = 0xff;
+
+    savedata->shuffle = (installmode & THEME_INSTALL_SHUFFLE);
+    if(installmode & THEME_INSTALL_SHUFFLE)
+    {
+        memset(savedata->shuffle_themes, 0, sizeof(ThemeEntry_s)*MAX_SHUFFLE_THEMES);
+        for(int i = 0; i < themes.shuffle_count; i++)
+        {
+            savedata->shuffle_themes[i].type = 3;
+            savedata->shuffle_themes[i].index = i;
+        }
+    }
+
+    res = buf_to_file(savedata_size, "/SaveData.dat", ArchiveHomeExt, savedata_buf);
+    free(savedata_buf);
+    if(R_FAILED(res)) return res;
+    //----------------------------------------
 
     return 0;
 }
 
-Result shuffle_install(Theme_s *themes_list, int theme_count)
+inline Result theme_install(Entry_s theme)
 {
-    u8 count = 0;
-    Theme_s *shuffle_themes[10] = {0};
-    u32 body_sizes[10] = {0};
-    u32 bgm_sizes[10] = {0};
-    for (int i = 0; i < theme_count; i++)
-    {
-        if (count > 9) return MAKERESULT(RL_USAGE, RS_INVALIDARG, RM_COMMON, RD_INVALID_SELECTION);
-        if (themes_list[i].in_shuffle)
-        {
-            shuffle_themes[count++] = &themes_list[i];
-        }
-    }
-    for (int i = 0; i < count; i++)
-    {
-        printu(shuffle_themes[i]->name);
-    }
+    Entry_List_s list = {0};
+    list.entries_count = 1;
+    list.entries = &theme;
+    list.selected_entry = 0;
+    return install_theme_internal(list, THEME_INSTALL_BODY | THEME_INSTALL_BGM);
+}
 
-    char *savedata_buf;
-    u32 size = file_to_buf(fsMakePath(PATH_ASCII, "/SaveData.dat"), ArchiveHomeExt, &savedata_buf);
-    if (size == 0)
-    {
-        return MAKERESULT(RL_USAGE, RS_CANCELED, RM_APPLICATION, RD_NOT_FOUND);
-    }
+inline Result bgm_install(Entry_s theme)
+{
+    Entry_List_s list = {0};
+    list.entries_count = 1;
+    list.entries = &theme;
+    list.selected_entry = 0;
+    return install_theme_internal(list, THEME_INSTALL_BGM);
+}
 
-    savedata_buf[0x141b] = 1;
-    memset(&savedata_buf[0x13b8], 0, 8);
-    savedata_buf[0x13bd] = 3;
-    savedata_buf[0x13b8] = 0xff;
+inline Result no_bgm_install(Entry_s theme)
+{
+    Entry_List_s list = {0};
+    list.entries_count = 1;
+    list.entries = &theme;
+    list.selected_entry = 0;
+    return install_theme_internal(list, THEME_INSTALL_BODY);
+}
 
-    for (int i = 0; i < 10; i++)
-    {
-        memset(&savedata_buf[0x13c0 + 0x8 * i], 0, 8); // clear any existing theme structure. 8 is the length of the theme structure, so 8 * i is the pos of the current one
-        if (count > i) // if we are still installing themes...
-        {
-            savedata_buf[0x13c0 + (8 * i)] = i; // index
-            savedata_buf[0x13c0 + (8 * i) + 5] = 3; // persistence (?)
-        }
-    }
+inline Result shuffle_install(Entry_List_s themes)
+{
+    return install_theme_internal(themes, THEME_INSTALL_SHUFFLE | THEME_INSTALL_BODY | THEME_INSTALL_BGM);
+}
 
-    buf_to_file(size, "/SaveData.dat", ArchiveHomeExt, savedata_buf);
+void themes_check_installed(void * void_arg)
+{
+    Thread_Arg_s * arg = (Thread_Arg_s *)void_arg;
+    Entry_List_s * list = (Entry_List_s *)arg->thread_arg;
+    if(list == NULL || list->entries == NULL) return;
+
+    #ifndef CITRA_MODE
+    char* savedata_buf = NULL;
+    u32 savedata_size = file_to_buf(fsMakePath(PATH_ASCII, "/SaveData.dat"), ArchiveHomeExt, &savedata_buf);
+    if(!savedata_size) return;
+    SaveData_dat_s* savedata = (SaveData_dat_s*)savedata_buf;
+    bool shuffle = savedata->shuffle;
     free(savedata_buf);
 
-    remake_file("/BodyCache_rd.bin", ArchiveThemeExt, 0x150000 * 10); // Enough space for 10 theme files
-    Handle body_cache_handle;
-    FSUSER_OpenFile(&body_cache_handle, ArchiveThemeExt, fsMakePath(PATH_ASCII, "/BodyCache_rd.bin"), FS_OPEN_WRITE, 0);
-    for (int i = 0; i < 10; i++)
-    {
-        if (count > i)
-        {
-            if (shuffle_themes[i]->is_zip)
-            {
-                char *body_buf;
-                u32 body_size = zip_file_to_buf("body_LZ.bin", shuffle_themes[i]->path, &body_buf);
-                body_sizes[i] = body_size;
-                FSFILE_Write(body_cache_handle, NULL, 0x150000 * i, body_buf, body_size, FS_WRITE_FLUSH);
-                free(body_buf);
-            } else {
-                u16 path[0x106] = {0};
-                strucat(path, shuffle_themes[i]->path);
-                struacat(path, "/body_LZ.bin");
-                char *body_buf;
-                u32 body_size = file_to_buf(fsMakePath(PATH_UTF16, path), ArchiveSD, &body_buf);
-                body_sizes[i] = body_size;
-                FSFILE_Write(body_cache_handle, NULL, 0x150000 * i, body_buf, body_size, FS_WRITE_FLUSH);
-                free(body_buf);
-            }
-        }
-    }
+    #define HASH_SIZE_BYTES 256/8
+    u8 body_hash[MAX_SHUFFLE_THEMES][HASH_SIZE_BYTES];
+    memset(body_hash, 0, MAX_SHUFFLE_THEMES*HASH_SIZE_BYTES);
 
-    FSFILE_Close(body_cache_handle);
+    char* thememanage_buf = NULL;
+    u32 theme_manage_size = file_to_buf(fsMakePath(PATH_ASCII, "/ThemeManage.bin"), ArchiveThemeExt, &thememanage_buf);
+    if(!theme_manage_size) return;
+    ThemeManage_bin_s * theme_manage = (ThemeManage_bin_s *)thememanage_buf;
 
-    for (int i = 0; i < 10; i++)
-    {
-        char bgm_cache_path[17] = {0};
-        sprintf(bgm_cache_path, "/BgmCache_%.2i.bin", i);
-        remake_file(bgm_cache_path, ArchiveThemeExt, 3371008);
-        if (count > i)
-        {
-            char *music_buf;
-            u32 music_size;
-
-            if (shuffle_themes[i]->is_zip)
-            {
-                music_size = zip_file_to_buf("bgm.bcstm", shuffle_themes[i]->path, &music_buf);
-            } else {
-                u16 path[0x106] = {0};
-                strucat(path, shuffle_themes[i]->path);
-                struacat(path, "/bgm.bcstm");
-                music_size = file_to_buf(fsMakePath(PATH_UTF16, path), ArchiveSD, &music_buf);
-            }
-
-            if (!music_size)
-            {
-                char *empty = calloc(1, 3371008);
-                buf_to_file(3371008, bgm_cache_path, ArchiveThemeExt, empty);
-                bgm_sizes[i] = 0;
-                free(empty);
-                continue;
-            }
-            bgm_sizes[i] = music_size;
-            buf_to_file(music_size, bgm_cache_path, ArchiveThemeExt, music_buf);
-            free(music_buf);
-        } else {
-            char *empty = calloc(1, 3371008);
-            buf_to_file(3371008, bgm_cache_path, ArchiveThemeExt, empty);
-            bgm_sizes[i] = 0;
-            free(empty);
-        }
-    }
-
-    char *thememanage_buf;
-    file_to_buf(fsMakePath(PATH_ASCII, "/ThemeManage.bin"), ArchiveThemeExt, &thememanage_buf);
-    thememanage_buf[0x00] = 1; // Unknown, normally 0x1 with size of 4
-    thememanage_buf[0x01] = 0;
-    thememanage_buf[0x02] = 0;
-    thememanage_buf[0x03] = 0;
-    thememanage_buf[0x04] = 0; // Unknown, normally 0 with size of 4
-    thememanage_buf[0x05] = 0;
-    thememanage_buf[0x06] = 0;
-    thememanage_buf[0x07] = 0;
-    thememanage_buf[0x10] = 0xFF; // Unknown
-    thememanage_buf[0x14] = 0x01; // Unkown
-    thememanage_buf[0x18] = 0xFF; // DLC theme index - 0xFF indicates no DLC theme
-    thememanage_buf[0x1D] = 0x02; // Unknown, usually 0x200 to indicate theme-cache is being used
-
-    u32 *bodysizeloc = (u32*) (&thememanage_buf[0x08]); // Set non-shuffle theme sizes to 0
-    u32 *bgmsizeloc = (u32*) (&thememanage_buf[0x0C]);
-    *bodysizeloc = (u32) 0;
-    *bgmsizeloc = (u32) 0;
-
-    for (int i = 0; i < 10; i++)
-    {
-        bodysizeloc = (u32*) (&thememanage_buf[0x338 + (4 * i)]); // body size info for shuffle themes starts at 0x338 and is 4 bytes for each theme
-        bgmsizeloc = (u32*) (&thememanage_buf[0x360 + (4 * i)]); // same thing for bgm but starting at 0x360
-        *bodysizeloc = body_sizes[i]; // We don't need to check if we've already installed all the themes because all sizes initialized to 0
-        *bgmsizeloc = bgm_sizes[i];
-    }
-
-    buf_to_file(0x800, "/ThemeManage.bin", ArchiveThemeExt, thememanage_buf);
+    u32 single_body_size = theme_manage->body_size;
+    u32 shuffle_body_sizes[MAX_SHUFFLE_THEMES] = {0};
+    memcpy(shuffle_body_sizes, theme_manage->shuffle_body_sizes, sizeof(u32)*MAX_SHUFFLE_THEMES);
     free(thememanage_buf);
 
-    return MAKERESULT(RL_SUCCESS, RS_SUCCESS, RM_COMMON, RD_SUCCESS);
+    if(shuffle)
+    {
+        char * body_buf = NULL;
+        u32 body_cache_size = file_to_buf(fsMakePath(PATH_ASCII, "/BodyCache_rd.bin"), ArchiveThemeExt, &body_buf);
+        if(!body_cache_size) return;
+
+        for(int i = 0; i < MAX_SHUFFLE_THEMES; i++)
+        {
+            FSUSER_UpdateSha256Context(body_buf + BODY_CACHE_SIZE*i, shuffle_body_sizes[i], body_hash[i]);
+        }
+
+        free(body_buf);
+    }
+    else
+    {
+        char * body_buf = NULL;
+        u32 body_size = file_to_buf(fsMakePath(PATH_ASCII, "/BodyCache.bin"), ArchiveThemeExt, &body_buf);
+        if(!body_size) return;
+
+        u8 * hash = body_hash[0];
+        FSUSER_UpdateSha256Context(body_buf, single_body_size, hash);
+        free(body_buf);
+    }
+
+    int total_installed = 0;
+    for(int i = 0; i < list->entries_count && total_installed < MAX_SHUFFLE_THEMES && arg->run_thread; i++)
+    {
+        Entry_s * theme = &list->entries[i];
+        char * theme_body = NULL;
+        u32 theme_body_size = load_data("/body_LZ.bin", *theme, &theme_body);
+        if(!theme_body_size) return;
+
+        u8 theme_body_hash[HASH_SIZE_BYTES];
+        FSUSER_UpdateSha256Context(theme_body, theme_body_size, theme_body_hash);
+        free(theme_body);
+
+        for(int j = 0; j < MAX_SHUFFLE_THEMES; j++)
+        {
+            if(!memcmp(body_hash[j], theme_body_hash, HASH_SIZE_BYTES))
+            {
+                theme->installed = true;
+                total_installed++;
+                if(!shuffle) break; //only need to check the first if the installed theme inst shuffle
+            }
+        }
+    }
+    #endif
 }