diff options
| author | David Moc <personal@cdatgoose.org> | 2026-05-30 21:53:05 +0200 |
|---|---|---|
| committer | David Moc <personal@cdatgoose.org> | 2026-05-30 21:53:05 +0200 |
| commit | e930cc6bdc7f62befac063d7d9d016ffb0a64f1a (patch) | |
| tree | 52118a1e990ae88f5f0410c8caea129609e22e19 | |
Added the old repo, refactored it, added the C jit.
| -rw-r--r-- | .envrc | 1 | ||||
| -rw-r--r-- | Makefile | 31 | ||||
| -rw-r--r-- | config/ecexrc.c | 142 | ||||
| -rw-r--r-- | include/app.h | 95 | ||||
| -rw-r--r-- | include/buffers.h | 78 | ||||
| -rw-r--r-- | include/ccdjit.h | 330 | ||||
| -rw-r--r-- | include/common.h | 55 | ||||
| -rw-r--r-- | include/config.h | 14 | ||||
| -rw-r--r-- | include/ecex.h | 124 | ||||
| -rw-r--r-- | include/eval.h | 17 | ||||
| -rw-r--r-- | include/font.h | 36 | ||||
| -rw-r--r-- | include/libccdjit.a | bin | 0 -> 507906 bytes | |||
| -rwxr-xr-x | include/libccdjit.so | bin | 0 -> 369144 bytes | |||
| -rw-r--r-- | include/render.h | 8 | ||||
| -rw-r--r-- | include/stb_truetype.h | 5079 | ||||
| -rw-r--r-- | include/types.h | 194 | ||||
| -rw-r--r-- | include/util.h | 10 | ||||
| -rw-r--r-- | manifest.scm | 20 | ||||
| -rw-r--r-- | src/app.c | 1578 | ||||
| -rw-r--r-- | src/buffers.c | 701 | ||||
| -rw-r--r-- | src/config.c | 293 | ||||
| -rw-r--r-- | src/ecex.c | 1630 | ||||
| -rw-r--r-- | src/eval.c | 482 | ||||
| -rw-r--r-- | src/font.c | 258 | ||||
| -rw-r--r-- | src/main.c | 164 | ||||
| -rw-r--r-- | src/render.c | 613 | ||||
| -rw-r--r-- | src/util.c | 71 |
27 files changed, 12024 insertions, 0 deletions
@@ -0,0 +1 @@ +use guix -m manifest.scm
\ No newline at end of file diff --git a/Makefile b/Makefile new file mode 100644 index 0000000..1b15d60 --- /dev/null +++ b/Makefile @@ -0,0 +1,31 @@ +CC = clang + +STATIC_LIB = include/libccdjit.a +SHARED_LIB = include/libccdjit.so + +SRC = src/main.c src/app.c src/render.c src/font.c src/util.c src/buffers.c src/ecex.c src/config.c src/eval.c +BIN = bin/ecex + +PKG_CFLAGS = $(shell pkg-config --cflags glfw3) +PKG_LIBS = $(shell pkg-config --libs glfw3) + +CFLAGS = -std=c11 -Wall -Wextra -pedantic -Iinclude $(PKG_CFLAGS) +LDLIBS = $(PKG_LIBS) -lGL -lm + +.PHONY: all static shared clean run + +all: static + +static: $(SRC) $(STATIC_LIB) + @mkdir -p bin + $(CC) $(CFLAGS) $(SRC) $(STATIC_LIB) -o $(BIN) $(LDLIBS) + +shared: $(SRC) $(SHARED_LIB) + @mkdir -p bin + $(CC) $(CFLAGS) $(SRC) -Linclude -lccdjit -o $(BIN) $(LDLIBS) + +run: static + LD_LIBRARY_PATH=include ./$(BIN) + +clean: + rm -f $(BIN) diff --git a/config/ecexrc.c b/config/ecexrc.c new file mode 100644 index 0000000..db4b6b9 --- /dev/null +++ b/config/ecexrc.c @@ -0,0 +1,142 @@ +#include "ecex.h" +#include "buffers.h" + +#define C(x) ((float)(x) / 255.0f) +#define RGB(r, g, b) C(r), C(g), C(b) + +/* Gruvbox dark palette */ +#define GB_DARK0_HARD RGB(0x1d, 0x20, 0x21) +#define GB_DARK0 RGB(0x28, 0x28, 0x28) +#define GB_DARK1 RGB(0x3c, 0x38, 0x36) +#define GB_DARK2 RGB(0x50, 0x49, 0x45) + +#define GB_LIGHT0 RGB(0xfb, 0xf1, 0xc7) +#define GB_LIGHT1 RGB(0xeb, 0xdb, 0xb2) +#define GB_LIGHT2 RGB(0xd5, 0xc4, 0xa1) + +#define GB_RED RGB(0xfb, 0x49, 0x34) +#define GB_GREEN RGB(0xb8, 0xbb, 0x26) +#define GB_YELLOW RGB(0xfa, 0xbd, 0x2f) +#define GB_BLUE RGB(0x83, 0xa5, 0x98) +#define GB_PURPLE RGB(0xd3, 0x86, 0x9b) +#define GB_AQUA RGB(0x8e, 0xc0, 0x7c) +#define GB_ORANGE RGB(0xfe, 0x80, 0x19) + +static int hello_command(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + buffer_insert(buf, "Hello from Gruvbox ecex config!\n"); + return 0; +} + +static int make_notes_command(ecex_t *ed) { + buffer_t *notes = ecex_find_buffer(ed, "*notes*"); + + if (!notes) { + notes = ecex_create_buffer(ed, "*notes*", NULL, 0); + } + + if (notes) { + buffer_insert(notes, "Created or reused *notes* from command.\n"); + ecex_switch_buffer(ed, "*notes*"); + } + + return 0; +} + + +static int demo_line_action(ecex_t *ed, + buffer_t *buffer, + size_t line, + const char *payload, + void *userdata) { + (void)buffer; + (void)line; + (void)userdata; + + buffer_t *notes = ecex_find_buffer(ed, "*notes*"); + if (!notes) { + notes = ecex_create_buffer(ed, "*notes*", NULL, 0); + } + + if (!notes) return -1; + + ecex_switch_buffer(ed, "*notes*"); + buffer_insert(notes, payload ? payload : "selected an interactive line\n"); + return 0; +} + +static int demo_interactive_command(ecex_t *ed) { + buffer_t *menu = ecex_create_interactive_buffer(ed, "*demo-menu*"); + if (!menu) return -1; + + buffer_clear(menu); + buffer_set_interactive(menu, 1); + + buffer_append(menu, "Demo interactive buffer\n"); + buffer_append(menu, "Move to a line and press ENTER.\n\n"); + + ecex_interactive_append_line(ed, + menu, + "Insert hello into *notes*", + demo_line_action, + "hello from an interactive config buffer!\n", + NULL); + + ecex_interactive_append_line(ed, + menu, + "Insert gruvbox note into *notes*", + demo_line_action, + "gruvbox menu action selected\n", + NULL); + + ecex_switch_buffer(ed, "*demo-menu*"); + return 0; +} + +int ecex_config_init(ecex_t *ed) { + ecex_set_font_size(ed, 20.0f); + + ecex_set_bg_color(ed, GB_DARK0_HARD); + ecex_set_fg_color(ed, GB_LIGHT1); + + ecex_set_status_bg_color(ed, GB_DARK0); + ecex_set_status_fg_color(ed, GB_YELLOW); + ecex_set_status_border_color(ed, GB_DARK1); + + ecex_set_minibuffer_bg_color(ed, GB_DARK1); + ecex_set_minibuffer_fg_color(ed, GB_LIGHT0); + + ecex_set_completion_enabled(ed, 1); + ecex_set_completion_fg_color(ed, GB_DARK2); + + ecex_set_interactive_highlight_bg_color(ed, GB_DARK1); + ecex_set_interactive_highlight_fg_color(ed, GB_YELLOW); + + ecex_set_cursor_color(ed, GB_AQUA); + ecex_set_region_bg_color(ed, GB_DARK2); + + ecex_register_command(ed, "hello", hello_command); + ecex_register_command(ed, "make-notes", make_notes_command); + ecex_register_command(ed, "demo-interactive", demo_interactive_command); + + ecex_bind_key(ed, "C-h", "hello"); + ecex_bind_key(ed, "C-m", "make-notes"); + ecex_bind_key(ed, "F2", "list-commands"); + ecex_bind_key(ed, "F3", "list-buffers"); + ecex_bind_key(ed, "F4", "demo-interactive"); + ecex_bind_key(ed, "C-q", "quit"); + ecex_bind_key(ed, "C-x h", "beginning-of-buffer"); + + ecex_bind_key(ed, "C-x b n", "next-buffer"); + ecex_bind_key(ed, "C-x b p", "previous-buffer"); + + buffer_t *scratch = ecex_current_buffer(ed); + + buffer_insert(scratch, "ecex config loaded with Gruvbox colors!\n"); + buffer_insert(scratch, "Try F1 M-x, C-x C-f, C-x C-s, F2 commands, F3 buffers, F4 demo menu, C-x b n/p.\n"); + buffer_insert(scratch, "Eval live C snippets with C-x C-e (line), C-x e r (marked region), C-x e b (buffer), C-x e f (file).\n"); + buffer_insert(scratch, "Example line to edit then C-x C-e: ecex_set_font_size(ed, 28.0f);\n"); + buffer_insert(scratch, "Example relative change: ecex_adjust_font_size(ed, 2.0f);\n\n"); + + return 0; +} diff --git a/include/app.h b/include/app.h new file mode 100644 index 0000000..cb09b04 --- /dev/null +++ b/include/app.h @@ -0,0 +1,95 @@ +#ifndef ECEX_APP_H +#define ECEX_APP_H + +#include "ecex.h" +#include "font.h" + +#include <GLFW/glfw3.h> +#include <stddef.h> + +#define ECEX_MINIBUFFER_SIZE 256 +#define ECEX_PREFIX_SIZE 128 + +typedef enum app_mode { + APP_MODE_EDIT = 0, + APP_MODE_MX = 1, + APP_MODE_PREFIX = 2, + APP_MODE_PROMPT = 3, + APP_MODE_ISEARCH = 4, +} app_mode_t; + +typedef struct app { + ecex_t *ed; + GLFWwindow *window; + + int width; + int height; + int dirty; + + app_mode_t mode; + + char minibuffer[ECEX_MINIBUFFER_SIZE]; + size_t minibuffer_len; + + char message[ECEX_MINIBUFFER_SIZE]; + + ecex_prompt_request_t prompt_kind; + int isearch_backward; + char isearch_query[ECEX_MINIBUFFER_SIZE]; + size_t isearch_len; + size_t isearch_origin; + size_t isearch_match; + int isearch_has_match; + char last_search_query[ECEX_MINIBUFFER_SIZE]; + char prompt_label[128]; + char prompt_input[1024]; + size_t prompt_input_len; + + /* + * File/path prompt completion state for find-file and write-file. + * prompt_completion_query stores the original typed path/query while + * prompt_input is temporarily replaced with the selected candidate. + */ + int prompt_completion_active; + char prompt_completion_query[1024]; + size_t prompt_completion_index; + size_t prompt_completion_count; + char prompt_completion_preview[8][1024]; + size_t prompt_completion_preview_start; + size_t prompt_completion_preview_count; + + /* + * M-x completion state. + * completion_query is the original user query used to build the candidate + * list. This lets the UI replace the minibuffer with a candidate while + * Up/Down still cycle through matches for the original query, e.g. + * "-buffer" -> next-buffer / previous-buffer / end-of-buffer / ... + */ + int completion_active; + char completion_query[ECEX_MINIBUFFER_SIZE]; + size_t completion_index; + size_t completion_count; + + char prefix[ECEX_PREFIX_SIZE]; + size_t prefix_len; + + int current_mods; + + /* + * GLFW sends key events and text events separately. When a printable + * key is consumed as part of a command sequence, suppress the matching + * char_callback so it does not insert into the buffer after the command + * returns to edit mode. + */ + int suppress_next_char; + + font_t font; + char font_path[4096]; +} app_t; + +void app_init(app_t *app, ecex_t *ed); +void app_set_window(app_t *app, GLFWwindow *window); +void app_install_callbacks(app_t *app); +void app_message(app_t *app, const char *msg); + +#endif diff --git a/include/buffers.h b/include/buffers.h new file mode 100644 index 0000000..503dfb8 --- /dev/null +++ b/include/buffers.h @@ -0,0 +1,78 @@ +#ifndef ECEX_BUFFERS_H +#define ECEX_BUFFERS_H + +#include "types.h" + +#include <stddef.h> + +buffer_t *buffer_new(const char *name, const char *path, int read_only); +void buffer_free(buffer_t *buffer); + +int buffer_reserve(buffer_t *buffer, size_t needed); +int buffer_clear(buffer_t *buffer); +int buffer_set_text(buffer_t *buffer, const char *text); + +int buffer_insert_at(buffer_t *buffer, size_t pos, const char *text); +int buffer_insert(buffer_t *buffer, const char *text); +int buffer_append(buffer_t *buffer, const char *text); +int buffer_prepend(buffer_t *buffer, const char *text); + +int buffer_insert_char_at(buffer_t *buffer, size_t pos, char c); +int buffer_insert_char(buffer_t *buffer, char c); + +int buffer_delete_range(buffer_t *buffer, size_t start, size_t end); +int buffer_delete_selection(buffer_t *buffer); +int buffer_replace_selection(buffer_t *buffer, const char *text); +int buffer_backspace(buffer_t *buffer); +int buffer_delete_forward(buffer_t *buffer); +int buffer_kill_line(buffer_t *buffer); +int buffer_undo(buffer_t *buffer); +int buffer_redo(buffer_t *buffer); +void buffer_clear_undo(buffer_t *buffer); + +void buffer_set_point(buffer_t *buffer, size_t point); +void buffer_move_left(buffer_t *buffer); +void buffer_move_right(buffer_t *buffer); +void buffer_move_up(buffer_t *buffer); +void buffer_move_down(buffer_t *buffer); +void buffer_move_word_left(buffer_t *buffer); +void buffer_move_word_right(buffer_t *buffer); +void buffer_move_beginning_of_line(buffer_t *buffer); +void buffer_move_end_of_line(buffer_t *buffer); +void buffer_move_beginning_of_buffer(buffer_t *buffer); +void buffer_move_end_of_buffer(buffer_t *buffer); +int buffer_search_forward(buffer_t *buffer, const char *query, size_t start, size_t *out_pos); +int buffer_search_backward(buffer_t *buffer, const char *query, size_t start, size_t *out_pos); + +void buffer_set_mark(buffer_t *buffer, size_t mark); +void buffer_clear_mark(buffer_t *buffer); +int buffer_has_selection(buffer_t *buffer); +void buffer_selection_range(buffer_t *buffer, size_t *out_start, size_t *out_end); + +size_t buffer_line_start_at(buffer_t *buffer, size_t pos); +size_t buffer_line_end_at(buffer_t *buffer, size_t pos); +size_t buffer_current_line_start(buffer_t *buffer); +size_t buffer_current_line_end(buffer_t *buffer); +size_t buffer_current_column(buffer_t *buffer); +size_t buffer_current_line_number(buffer_t *buffer); +size_t buffer_line_count(buffer_t *buffer); + +char *buffer_substring(buffer_t *buffer, size_t start, size_t end); +char *buffer_current_line_copy(buffer_t *buffer); + +int buffer_load_file(buffer_t *buffer, const char *path); +int buffer_save(buffer_t *buffer); +int buffer_save_as(buffer_t *buffer, const char *path); + +void buffer_set_interactive(buffer_t *buffer, int interactive); +int buffer_is_interactive(buffer_t *buffer); +int buffer_clear_interactive_actions(buffer_t *buffer); +int buffer_add_interactive_action(buffer_t *buffer, + size_t line, + ecex_interactive_line_fn fn, + const char *payload, + void *userdata); +ecex_interactive_line_action_t *buffer_interactive_action_at_line(buffer_t *buffer, + size_t line); + +#endif diff --git a/include/ccdjit.h b/include/ccdjit.h new file mode 100644 index 0000000..f8a212b --- /dev/null +++ b/include/ccdjit.h @@ -0,0 +1,330 @@ +#ifndef CCDJIT_PUBLIC_H +#define CCDJIT_PUBLIC_H + +/* + * CCDJIT public embedding API + * + * This header is the stable boundary for hosts that want to compile and run C + * code at runtime. The implementation lives in ccdjit.c, but the intended use + * should be clear from this file alone. + * + * Basic use: + * + * ccdjit_context *ctx = ccdjit_context_new(NULL); + * ccdjit_module *module = NULL; + * + * if (ccdjit_compile_string(ctx, source, "plugin.c", &module) == 0) { + * int result = 0; + * ccdjit_module_call_main(module, 0, NULL, &result); + * ccdjit_module_free(module); + * } + * ccdjit_context_free(ctx); + * + * Return convention: + * Functions returning int use 0 for success and -1 for failure unless + * documented otherwise. On failure, call ccdjit_context_last_error(). + * + * Lifetime: + * A context owns options, include paths, registered symbols, and the last + * diagnostic. A module owns generated code or a loaded CCDJIT binary. + * Modules keep their context state alive, so ccdjit_context_free() may be + * called before ccdjit_module_free(); the context is released when the + * last module using it is freed. + * Function pointers returned by ccdjit_module_symbol() are invalid after + * ccdjit_module_free(). + * + * Threads: + * Independent contexts may compile and run from different threads. Do + * not mutate or use the same context or module concurrently from multiple + * threads unless the host provides its own synchronization. + * + * Safety: + * Normal calls run in the host process. Set sandbox_execution to + * CCDJIT_SANDBOX_PROCESS to run ccdjit_module_call_main() in a child + * process with optional resource, syscall, and filesystem limits. + */ + +#include <stddef.h> +#include <stdio.h> + +#ifdef __cplusplus +extern "C" { +#endif + +typedef struct ccdjit_context ccdjit_context; +typedef struct ccdjit_module ccdjit_module; + +typedef struct { + /* Host compiler or linker driver. NULL uses $CC, then cc. */ + const char *driver; + + /* Extra linker arguments such as -L, -l, or -Wl options. */ + const char *const *link_args; + size_t link_arg_count; + + /* Print the host linker command to stderr when nonzero. */ + int verbose; +} ccdjit_link_options; + +/* + * Host symbol callback. Return NULL when the name is unknown. + * + * The returned pointer is used as an external function or object address by + * generated code. Keep any pointed-to object alive while modules using it may + * run. + */ +typedef void *(*ccdjit_symbol_resolver)(const char *name, void *userdata); + +typedef enum { + /* Run generated code directly in the host process. */ + CCDJIT_SANDBOX_OFF = 0, + + /* Run ccdjit_module_call_main() in a forked child process. */ + CCDJIT_SANDBOX_PROCESS = 1, +} ccdjit_sandbox_mode; + +typedef enum { + /* + * Minimal child profile: enough to write the result pipe, write + * captured output, and exit. Unexpected syscalls are trapped. + */ + CCDJIT_SANDBOX_SYSCALL_STRICT = 0, + + /* STRICT plus read/close for simple stdio-style code. */ + CCDJIT_SANDBOX_SYSCALL_STDIO = 1, + + /* STDIO plus mmap/munmap/mprotect/brk/clock_gettime. */ + CCDJIT_SANDBOX_SYSCALL_RUNTIME = 2, + + /* Disable the seccomp filter. Resource limits still apply. */ + CCDJIT_SANDBOX_SYSCALL_PERMISSIVE = 3, +} ccdjit_sandbox_syscall_policy; + +typedef enum { + /* Runtime file syscalls are denied by the syscall policy. */ + CCDJIT_SANDBOX_FS_NONE = 0, + + /* Permit read-only access under explicitly added roots. */ + CCDJIT_SANDBOX_FS_READ_ONLY_ROOTS = 1, + + /* Permit writes only for roots added with writable != 0. */ + CCDJIT_SANDBOX_FS_WRITABLE_ROOTS = 2, +} ccdjit_sandbox_filesystem_policy; + +typedef struct { + /* Allow #include to read files from include paths. */ + int allow_filesystem_includes; + + /* Allow the preprocessor to discover and read host system includes. */ + int allow_system_includes; + + /* Allow executable mappings for JIT code and loaded CCDJIT binaries. */ + int allow_executable_memory; + + /* ccdjit_sandbox_mode. Default is CCDJIT_SANDBOX_OFF. */ + int sandbox_execution; + + /* ccdjit_sandbox_syscall_policy. Default is STRICT. */ + int sandbox_syscalls; + + /* ccdjit_sandbox_filesystem_policy. Default is FS_NONE. */ + int sandbox_filesystem; + + /* + * In sandbox mode, default dlsym lookup is disabled unless this is set. + * Prefer explicit ccdjit_context_register_symbol() capabilities. + */ + int sandbox_allow_implicit_symbols; + + /* Wall-clock timeout for one sandboxed main call. Zero means no limit. + */ + unsigned int sandbox_timeout_ms; + + /* RLIMIT_CPU for sandboxed calls, rounded up to seconds by the OS. */ + unsigned int sandbox_cpu_time_ms; + + /* RLIMIT_AS for sandboxed calls. Zero means keep the host default. */ + size_t sandbox_address_space_bytes; + + /* RLIMIT_STACK for sandboxed calls. Zero means keep the host default. + */ + size_t sandbox_stack_bytes; + + /* RLIMIT_FSIZE for sandboxed calls. Zero means keep the host default. + */ + size_t sandbox_file_size_bytes; + + /* Captured stdout/stderr cap for sandboxed calls. Zero means 64 KiB. + */ + size_t sandbox_output_limit_bytes; + + /* + * Preprocessor output byte cap. Zero uses the default currently 128 + * MiB. + */ + size_t preprocessor_output_limit_bytes; + + /* Macro expansion recursion cap. Zero uses the default. */ + unsigned int preprocessor_macro_depth_limit; + + /* Nested include cap. Zero uses the default. */ + unsigned int preprocessor_include_depth_limit; +} ccdjit_options; + +typedef struct { + /* Compiler phase such as LEXER, PARSER, JIT, API, or SANDBOX. */ + const char *phase; + + /* Source file, binary path, symbol name, or "<input>". */ + const char *filename; + + /* Human-readable error text owned by the context. */ + const char *message; + + /* Optional source excerpt for lexer/parser/type diagnostics. */ + const char *source_line; + const char *caret_line; + + /* One-based line and column when available, otherwise zero. */ + int line; + int column; + + /* Raw child wait status or errno-style value for sandbox/API failures. + */ + int status; + + /* Signal that terminated the sandbox child, or zero. */ + int signal_number; +} ccdjit_diagnostic; + +/* Create a compiler context. Passing NULL uses permissive CLI-like defaults. + */ +ccdjit_context *ccdjit_context_new(const ccdjit_options *options); + +/* Free the context and all context-owned diagnostics/options/lists. */ +void ccdjit_context_free(ccdjit_context *ctx); + +/* Add a preprocessor include search path, like -I. */ +int ccdjit_context_add_include_path(ccdjit_context *ctx, const char *path); + +/* Restrict filesystem includes to this root when include roots are used. */ +int ccdjit_context_add_include_root(ccdjit_context *ctx, const char *path); + +/* Add a preprocessor definition, like -DNAME or -DNAME=value. */ +int ccdjit_context_add_define(ccdjit_context *ctx, const char *define); + +/* Grant generated code an explicit external symbol capability. */ +int ccdjit_context_register_symbol(ccdjit_context *ctx, const char *name, + void *addr); + +/* Add an explicit shared library path for external symbol lookup. */ +int ccdjit_context_add_library(ccdjit_context *ctx, const char *path); + +/* Install a fallback external symbol resolver. */ +void ccdjit_context_set_symbol_resolver(ccdjit_context *ctx, + ccdjit_symbol_resolver resolver, void *userdata); + +/* Update sandbox mode, syscall policy, filesystem policy, and symbol policy. */ +int ccdjit_context_set_sandbox_options(ccdjit_context *ctx, int mode, + int syscall_policy, int filesystem_policy, int allow_implicit_symbols); + +/* Update all sandbox resource limits in one call. */ +int ccdjit_context_set_sandbox_limits(ccdjit_context *ctx, + unsigned int timeout_ms, unsigned int cpu_time_ms, + size_t address_space_bytes, size_t stack_bytes, size_t file_size_bytes, + size_t output_limit_bytes); + +/* Update preprocessor resource limits. Passing zero keeps the default. */ +int ccdjit_context_set_preprocessor_limits(ccdjit_context *ctx, + size_t output_limit_bytes, unsigned int macro_depth, + unsigned int include_depth); + +/* + * Add a Landlock filesystem root for sandboxed execution. + * + * writable is only honored when sandbox_filesystem is + * CCDJIT_SANDBOX_FS_WRITABLE_ROOTS. On systems without Landlock, requesting a + * root-based filesystem policy fails while entering the sandbox. + */ +int ccdjit_context_add_sandbox_filesystem_root(ccdjit_context *ctx, + const char *path, int writable); + +/* Return the last error for this context. The pointer is context-owned. */ +const ccdjit_diagnostic *ccdjit_context_last_error(ccdjit_context *ctx); + +/* Return captured sandbox stdout/stderr from the last sandboxed main call. */ +const char *ccdjit_context_last_stdout(ccdjit_context *ctx); +const char *ccdjit_context_last_stderr(ccdjit_context *ctx); + +/* Compile a source file into a live JIT module. */ +int ccdjit_compile_file(ccdjit_context *ctx, const char *path, + ccdjit_module **out); + +/* Compile a source string into a live JIT module. */ +int ccdjit_compile_string(ccdjit_context *ctx, const char *source, + const char *filename, ccdjit_module **out); + +/* + * Compile a source file into a live JIT module without requiring main(). + * Use ccdjit_module_symbol() to find and call exported config/plugin symbols. + */ +int ccdjit_compile_file_module(ccdjit_context *ctx, const char *path, + ccdjit_module **out); + +/* + * Compile a source string into a live JIT module without requiring main(). + * Use ccdjit_module_symbol() to find and call exported config/plugin symbols. + */ +int ccdjit_compile_string_module(ccdjit_context *ctx, const char *source, + const char *filename, ccdjit_module **out); + +/* Convenience wrapper: compile a source string, call main, free the module. */ +int ccdjit_eval_string(ccdjit_context *ctx, const char *source, + const char *filename, int argc, char **argv, int *result_out); + +/* + * Find a function or object symbol in a module. + * + * Calling the returned function pointer runs in the host process even when the + * context has sandbox_execution enabled. Use ccdjit_module_call_main() for + * sandboxed execution. + */ +void *ccdjit_module_symbol(ccdjit_module *module, const char *name); + +/* Call module main(argc, argv). Honors CCDJIT_SANDBOX_PROCESS. */ +int ccdjit_module_call_main(ccdjit_module *module, int argc, char **argv, + int *result_out); + +/* Emit textual assembly-like bytes for inspection. */ +int ccdjit_module_emit_assembly(ccdjit_module *module, FILE *out); + +/* Emit a CCDJITB2 binary image. */ +int ccdjit_module_emit_binary(ccdjit_module *module, FILE *out); + +/* Emit an ELF64 relocatable object. */ +int ccdjit_module_emit_object(ccdjit_module *module, FILE *out); + +/* + * Emit a linked host executable. + * + * This depends on the host compiler driver. It is intended for trusted build + * paths, not sandboxed execution. + */ +int ccdjit_module_emit_executable_file(ccdjit_module *module, const char *path, + const ccdjit_link_options *options); + +/* Emit a CCDJITB2 binary image directly to a path. */ +int ccdjit_module_emit_binary_file(ccdjit_module *module, const char *path); + +/* Load a CCDJITB2 binary image into executable memory. */ +int ccdjit_module_load_binary(ccdjit_context *ctx, const char *path, + ccdjit_module **out); + +/* Free generated code, loaded binary storage, AST, and module-owned source. */ +void ccdjit_module_free(ccdjit_module *module); + +#ifdef __cplusplus +} +#endif + +#endif diff --git a/include/common.h b/include/common.h new file mode 100644 index 0000000..6fd9820 --- /dev/null +++ b/include/common.h @@ -0,0 +1,55 @@ +#ifndef ECEX_COMMON_H +#define ECEX_COMMON_H + +#include <stddef.h> +#include <stdlib.h> +#include <string.h> + +#define ECEX_OK 0 +#define ECEX_ERR (-1) + +#define ECEX_ARRAY_LEN(a) (sizeof(a) / sizeof((a)[0])) +#define ECEX_MIN(a, b) ((a) < (b) ? (a) : (b)) +#define ECEX_MAX(a, b) ((a) > (b) ? (a) : (b)) +#define ECEX_CLAMP(v, lo, hi) (ECEX_MAX((lo), ECEX_MIN((v), (hi)))) + +#define ECEX_RETURN_ERR_IF_NULL(p) \ + do { \ + if (!(p)) return ECEX_ERR; \ + } while (0) + +#define ECEX_RETURN_NULL_IF_NULL(p) \ + do { \ + if (!(p)) return NULL; \ + } while (0) + +#define ECEX_FREE_AND_NULL(p) \ + do { \ + free(p); \ + (p) = NULL; \ + } while (0) + +#define ECEX_GROW_ARRAY(ptr, count, cap, initial_cap) \ + ecex_grow_array((void **)&(ptr), sizeof(*(ptr)), (count), &(cap), (initial_cap)) + +static inline int ecex_grow_array(void **ptr, + size_t item_size, + size_t count, + size_t *cap, + size_t initial_cap) { + if (count < *cap) return ECEX_OK; + + size_t new_cap = *cap ? *cap * 2 : initial_cap; + while (new_cap <= count) { + new_cap *= 2; + } + + void *new_ptr = realloc(*ptr, new_cap * item_size); + if (!new_ptr) return ECEX_ERR; + + *ptr = new_ptr; + *cap = new_cap; + return ECEX_OK; +} + +#endif diff --git a/include/config.h b/include/config.h new file mode 100644 index 0000000..e7445d8 --- /dev/null +++ b/include/config.h @@ -0,0 +1,14 @@ +#ifndef ECEX_CONFIG_H +#define ECEX_CONFIG_H + +#include "ecex.h" +#include "ccdjit.h" +#include <stdio.h> + +int ecex_load_c_config(ecex_t *ed, const char *path); + +void ecex_print_ccdjit_error(ccdjit_context *ctx); +int ecex_add_ccdjit_include_paths(ccdjit_context *ctx); +int ecex_register_host_symbols(ccdjit_context *ctx); + +#endif diff --git a/include/ecex.h b/include/ecex.h new file mode 100644 index 0000000..cefee9b --- /dev/null +++ b/include/ecex.h @@ -0,0 +1,124 @@ +#ifndef ECEX_H +#define ECEX_H + +#include "types.h" +#include "buffers.h" +#include "eval.h" + +ecex_t *ecex_new(void); +void ecex_free(ecex_t *ed); + +int ecex_reserve_buffers(ecex_t *ed, size_t needed); +int ecex_add_buffer(ecex_t *ed, buffer_t *buffer); + +buffer_t *ecex_create_buffer(ecex_t *ed, + const char *name, + const char *path, + int read_only); + +buffer_t *ecex_find_buffer(ecex_t *ed, const char *name); +int ecex_switch_buffer(ecex_t *ed, const char *name); + +buffer_t *ecex_current_buffer(ecex_t *ed); +ecex_window_t *ecex_current_window(ecex_t *ed); +size_t ecex_window_count(ecex_t *ed); +int ecex_sync_current_buffer(ecex_t *ed); + +int ecex_split_window_vertically(ecex_t *ed); +int ecex_split_window_horizontally(ecex_t *ed); +int ecex_other_window(ecex_t *ed); +int ecex_previous_window(ecex_t *ed); +int ecex_delete_window(ecex_t *ed); +int ecex_delete_other_windows(ecex_t *ed); +int ecex_balance_windows(ecex_t *ed); + +int ecex_next_buffer(ecex_t *ed); +int ecex_previous_buffer(ecex_t *ed); +int ecex_kill_buffer(ecex_t *ed, const char *name); + +int ecex_keep_jit_module(ecex_t *ed, void *module); + +int ecex_set_config_path(ecex_t *ed, const char *path); +const char *ecex_config_path(ecex_t *ed); +int ecex_reload_config(ecex_t *ed); + +int ecex_register_command(ecex_t *ed, const char *name, ecex_command_fn fn); +int ecex_execute_command(ecex_t *ed, const char *name); +void ecex_set_clipboard_callbacks(ecex_t *ed, + ecex_clipboard_get_fn get_fn, + ecex_clipboard_set_fn set_fn, + void *userdata); +const char *ecex_clipboard_get(ecex_t *ed); +int ecex_clipboard_set(ecex_t *ed, const char *text); + +int ecex_bind_key(ecex_t *ed, const char *key, const char *command); +const char *ecex_lookup_key(ecex_t *ed, const char *key); + +int ecex_define_major_mode(ecex_t *ed, const char *name); +int ecex_major_mode_by_name(ecex_t *ed, const char *name); +const char *ecex_major_mode_name(ecex_t *ed, int mode); +int ecex_buffer_set_major_mode(buffer_t *buffer, int mode); +int ecex_buffer_set_major_mode_by_name(ecex_t *ed, buffer_t *buffer, const char *name); +const char *ecex_buffer_major_mode_name(ecex_t *ed, buffer_t *buffer); +int ecex_bind_mode_key(ecex_t *ed, const char *mode_name, const char *key, const char *command); +const char *ecex_lookup_key_for_buffer(ecex_t *ed, buffer_t *buffer, const char *key); +int ecex_key_sequence_has_prefix_for_buffer(ecex_t *ed, buffer_t *buffer, const char *prefix); +int ecex_auto_set_major_mode(ecex_t *ed, buffer_t *buffer); + +int ecex_list_commands(ecex_t *ed); +int ecex_list_buffers(ecex_t *ed); + +buffer_t *ecex_create_interactive_buffer(ecex_t *ed, const char *name); +int ecex_interactive_append_line(ecex_t *ed, + buffer_t *buffer, + const char *text, + ecex_interactive_line_fn fn, + const char *payload, + void *userdata); +int ecex_interactive_activate_current_line(ecex_t *ed); + +int ecex_find_file(ecex_t *ed, const char *path); +int ecex_save_current_buffer(ecex_t *ed); +int ecex_write_current_buffer(ecex_t *ed, const char *path); +int ecex_compile(ecex_t *ed, const char *command); +int ecex_grep(ecex_t *ed, const char *command); +int ecex_rerun_compile(ecex_t *ed); +int ecex_rerun_grep(ecex_t *ed); +int ecex_next_interactive_action(ecex_t *ed); +int ecex_previous_interactive_action(ecex_t *ed); +int ecex_comment_region(ecex_t *ed); +int ecex_uncomment_region(ecex_t *ed); +void ecex_request_prompt(ecex_t *ed, ecex_prompt_request_t request, const char *message); +void ecex_clear_prompt_request(ecex_t *ed); + +const char *ecex_complete_command(ecex_t *ed, const char *query); + +int ecex_set_font(ecex_t *ed, const char *path); +float ecex_get_font_size(ecex_t *ed); +int ecex_set_font_size(ecex_t *ed, float size); +int ecex_adjust_font_size(ecex_t *ed, float delta); + +void ecex_set_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_fg_color(ecex_t *ed, float r, float g, float b); + +void ecex_set_status_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_status_fg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_status_border_color(ecex_t *ed, float r, float g, float b); + +void ecex_set_cursor_color(ecex_t *ed, float r, float g, float b); +void ecex_set_region_bg_color(ecex_t *ed, float r, float g, float b); + +void ecex_set_minibuffer_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_minibuffer_fg_color(ecex_t *ed, float r, float g, float b); + +void ecex_set_completion_fg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_completion_enabled(ecex_t *ed, int enabled); + +void ecex_set_interactive_highlight_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_interactive_highlight_fg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_current_line_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_search_bg_color(ecex_t *ed, float r, float g, float b); +void ecex_set_line_numbers_enabled(ecex_t *ed, int enabled); +void ecex_set_current_line_enabled(ecex_t *ed, int enabled); + +#endif diff --git a/include/eval.h b/include/eval.h new file mode 100644 index 0000000..ca722c2 --- /dev/null +++ b/include/eval.h @@ -0,0 +1,17 @@ +#ifndef ECEX_EVAL_H +#define ECEX_EVAL_H + +#include "types.h" + +int ecex_eval_source(ecex_t *ed, + const char *source, + const char *filename, + int wrap_as_statements); + +int ecex_eval_current_buffer(ecex_t *ed); +int ecex_eval_current_line(ecex_t *ed); +int ecex_eval_current_region(ecex_t *ed); +int ecex_eval_file(ecex_t *ed, const char *path); +int ecex_eval_rerun_last(ecex_t *ed); + +#endif diff --git a/include/font.h b/include/font.h new file mode 100644 index 0000000..a1c3d54 --- /dev/null +++ b/include/font.h @@ -0,0 +1,36 @@ +#ifndef ECEX_FONT_H +#define ECEX_FONT_H + +#include <GLFW/glfw3.h> +#include "stb_truetype.h" + +#define ECEX_FONT_BITMAP_W 512 +#define ECEX_FONT_BITMAP_H 512 +#define ECEX_FONT_FIRST_CHAR 32 +#define ECEX_FONT_CHAR_COUNT 96 + +typedef struct font { + GLuint texture; + stbtt_bakedchar chars[ECEX_FONT_CHAR_COUNT]; + + float size_px; + + /* + * draw_text() takes y as a baseline. These metrics let render.c place + * baselines, highlights, bars, and cursors from the same font-scaled + * coordinate system instead of fixed pixel constants. + */ + float ascent_px; + float descent_px; + float line_gap_px; + float line_height; +} font_t; + +const char *font_choose_path(const char *explicit_font_path); +int font_load(font_t *font, const char *path, float size_px); +void font_free(font_t *font); + +void draw_text(font_t *font, float x, float y, const char *text); +float text_width(font_t *font, const char *text); + +#endif diff --git a/include/libccdjit.a b/include/libccdjit.a Binary files differnew file mode 100644 index 0000000..3045696 --- /dev/null +++ b/include/libccdjit.a diff --git a/include/libccdjit.so b/include/libccdjit.so Binary files differnew file mode 100755 index 0000000..40456db --- /dev/null +++ b/include/libccdjit.so diff --git a/include/render.h b/include/render.h new file mode 100644 index 0000000..f1a0a8c --- /dev/null +++ b/include/render.h @@ -0,0 +1,8 @@ +#ifndef ECEX_RENDER_H +#define ECEX_RENDER_H + +#include "app.h" + +void render(app_t *app); + +#endif diff --git a/include/stb_truetype.h b/include/stb_truetype.h new file mode 100644 index 0000000..90a5c2e --- /dev/null +++ b/include/stb_truetype.h @@ -0,0 +1,5079 @@ +// stb_truetype.h - v1.26 - public domain +// authored from 2009-2021 by Sean Barrett / RAD Game Tools +// +// ======================================================================= +// +// NO SECURITY GUARANTEE -- DO NOT USE THIS ON UNTRUSTED FONT FILES +// +// This library does no range checking of the offsets found in the file, +// meaning an attacker can use it to read arbitrary memory. +// +// ======================================================================= +// +// This library processes TrueType files: +// parse files +// extract glyph metrics +// extract glyph shapes +// render glyphs to one-channel bitmaps with antialiasing (box filter) +// render glyphs to one-channel SDF bitmaps (signed-distance field/function) +// +// Todo: +// non-MS cmaps +// crashproof on bad data +// hinting? (no longer patented) +// cleartype-style AA? +// optimize: use simple memory allocator for intermediates +// optimize: build edge-list directly from curves +// optimize: rasterize directly from curves? +// +// ADDITIONAL CONTRIBUTORS +// +// Mikko Mononen: compound shape support, more cmap formats +// Tor Andersson: kerning, subpixel rendering +// Dougall Johnson: OpenType / Type 2 font handling +// Daniel Ribeiro Maciel: basic GPOS-based kerning +// +// Misc other: +// Ryan Gordon +// Simon Glass +// github:IntellectualKitty +// Imanol Celaya +// Daniel Ribeiro Maciel +// +// Bug/warning reports/fixes: +// "Zer" on mollyrocket Fabian "ryg" Giesen github:NiLuJe +// Cass Everitt Martins Mozeiko github:aloucks +// stoiko (Haemimont Games) Cap Petschulat github:oyvindjam +// Brian Hook Omar Cornut github:vassvik +// Walter van Niftrik Ryan Griege +// David Gow Peter LaValle +// David Given Sergey Popov +// Ivan-Assen Ivanov Giumo X. Clanjor +// Anthony Pesch Higor Euripedes +// Johan Duparc Thomas Fields +// Hou Qiming Derek Vinyard +// Rob Loach Cort Stratton +// Kenney Phillis Jr. Brian Costabile +// Ken Voskuil (kaesve) Yakov Galka +// +// VERSION HISTORY +// +// 1.26 (2021-08-28) fix broken rasterizer +// 1.25 (2021-07-11) many fixes +// 1.24 (2020-02-05) fix warning +// 1.23 (2020-02-02) query SVG data for glyphs; query whole kerning table (but only kern not GPOS) +// 1.22 (2019-08-11) minimize missing-glyph duplication; fix kerning if both 'GPOS' and 'kern' are defined +// 1.21 (2019-02-25) fix warning +// 1.20 (2019-02-07) PackFontRange skips missing codepoints; GetScaleFontVMetrics() +// 1.19 (2018-02-11) GPOS kerning, STBTT_fmod +// 1.18 (2018-01-29) add missing function +// 1.17 (2017-07-23) make more arguments const; doc fix +// 1.16 (2017-07-12) SDF support +// 1.15 (2017-03-03) make more arguments const +// 1.14 (2017-01-16) num-fonts-in-TTC function +// 1.13 (2017-01-02) support OpenType fonts, certain Apple fonts +// 1.12 (2016-10-25) suppress warnings about casting away const with -Wcast-qual +// 1.11 (2016-04-02) fix unused-variable warning +// 1.10 (2016-04-02) user-defined fabs(); rare memory leak; remove duplicate typedef +// 1.09 (2016-01-16) warning fix; avoid crash on outofmem; use allocation userdata properly +// 1.08 (2015-09-13) document stbtt_Rasterize(); fixes for vertical & horizontal edges +// 1.07 (2015-08-01) allow PackFontRanges to accept arrays of sparse codepoints; +// variant PackFontRanges to pack and render in separate phases; +// fix stbtt_GetFontOFfsetForIndex (never worked for non-0 input?); +// fixed an assert() bug in the new rasterizer +// replace assert() with STBTT_assert() in new rasterizer +// +// Full history can be found at the end of this file. +// +// LICENSE +// +// See end of file for license information. +// +// USAGE +// +// Include this file in whatever places need to refer to it. In ONE C/C++ +// file, write: +// #define STB_TRUETYPE_IMPLEMENTATION +// before the #include of this file. This expands out the actual +// implementation into that C/C++ file. +// +// To make the implementation private to the file that generates the implementation, +// #define STBTT_STATIC +// +// Simple 3D API (don't ship this, but it's fine for tools and quick start) +// stbtt_BakeFontBitmap() -- bake a font to a bitmap for use as texture +// stbtt_GetBakedQuad() -- compute quad to draw for a given char +// +// Improved 3D API (more shippable): +// #include "stb_rect_pack.h" -- optional, but you really want it +// stbtt_PackBegin() +// stbtt_PackSetOversampling() -- for improved quality on small fonts +// stbtt_PackFontRanges() -- pack and renders +// stbtt_PackEnd() +// stbtt_GetPackedQuad() +// +// "Load" a font file from a memory buffer (you have to keep the buffer loaded) +// stbtt_InitFont() +// stbtt_GetFontOffsetForIndex() -- indexing for TTC font collections +// stbtt_GetNumberOfFonts() -- number of fonts for TTC font collections +// +// Render a unicode codepoint to a bitmap +// stbtt_GetCodepointBitmap() -- allocates and returns a bitmap +// stbtt_MakeCodepointBitmap() -- renders into bitmap you provide +// stbtt_GetCodepointBitmapBox() -- how big the bitmap must be +// +// Character advance/positioning +// stbtt_GetCodepointHMetrics() +// stbtt_GetFontVMetrics() +// stbtt_GetFontVMetricsOS2() +// stbtt_GetCodepointKernAdvance() +// +// Starting with version 1.06, the rasterizer was replaced with a new, +// faster and generally-more-precise rasterizer. The new rasterizer more +// accurately measures pixel coverage for anti-aliasing, except in the case +// where multiple shapes overlap, in which case it overestimates the AA pixel +// coverage. Thus, anti-aliasing of intersecting shapes may look wrong. If +// this turns out to be a problem, you can re-enable the old rasterizer with +// #define STBTT_RASTERIZER_VERSION 1 +// which will incur about a 15% speed hit. +// +// ADDITIONAL DOCUMENTATION +// +// Immediately after this block comment are a series of sample programs. +// +// After the sample programs is the "header file" section. This section +// includes documentation for each API function. +// +// Some important concepts to understand to use this library: +// +// Codepoint +// Characters are defined by unicode codepoints, e.g. 65 is +// uppercase A, 231 is lowercase c with a cedilla, 0x7e30 is +// the hiragana for "ma". +// +// Glyph +// A visual character shape (every codepoint is rendered as +// some glyph) +// +// Glyph index +// A font-specific integer ID representing a glyph +// +// Baseline +// Glyph shapes are defined relative to a baseline, which is the +// bottom of uppercase characters. Characters extend both above +// and below the baseline. +// +// Current Point +// As you draw text to the screen, you keep track of a "current point" +// which is the origin of each character. The current point's vertical +// position is the baseline. Even "baked fonts" use this model. +// +// Vertical Font Metrics +// The vertical qualities of the font, used to vertically position +// and space the characters. See docs for stbtt_GetFontVMetrics. +// +// Font Size in Pixels or Points +// The preferred interface for specifying font sizes in stb_truetype +// is to specify how tall the font's vertical extent should be in pixels. +// If that sounds good enough, skip the next paragraph. +// +// Most font APIs instead use "points", which are a common typographic +// measurement for describing font size, defined as 72 points per inch. +// stb_truetype provides a point API for compatibility. However, true +// "per inch" conventions don't make much sense on computer displays +// since different monitors have different number of pixels per +// inch. For example, Windows traditionally uses a convention that +// there are 96 pixels per inch, thus making 'inch' measurements have +// nothing to do with inches, and thus effectively defining a point to +// be 1.333 pixels. Additionally, the TrueType font data provides +// an explicit scale factor to scale a given font's glyphs to points, +// but the author has observed that this scale factor is often wrong +// for non-commercial fonts, thus making fonts scaled in points +// according to the TrueType spec incoherently sized in practice. +// +// DETAILED USAGE: +// +// Scale: +// Select how high you want the font to be, in points or pixels. +// Call ScaleForPixelHeight or ScaleForMappingEmToPixels to compute +// a scale factor SF that will be used by all other functions. +// +// Baseline: +// You need to select a y-coordinate that is the baseline of where +// your text will appear. Call GetFontBoundingBox to get the baseline-relative +// bounding box for all characters. SF*-y0 will be the distance in pixels +// that the worst-case character could extend above the baseline, so if +// you want the top edge of characters to appear at the top of the +// screen where y=0, then you would set the baseline to SF*-y0. +// +// Current point: +// Set the current point where the first character will appear. The +// first character could extend left of the current point; this is font +// dependent. You can either choose a current point that is the leftmost +// point and hope, or add some padding, or check the bounding box or +// left-side-bearing of the first character to be displayed and set +// the current point based on that. +// +// Displaying a character: +// Compute the bounding box of the character. It will contain signed values +// relative to <current_point, baseline>. I.e. if it returns x0,y0,x1,y1, +// then the character should be displayed in the rectangle from +// <current_point+SF*x0, baseline+SF*y0> to <current_point+SF*x1,baseline+SF*y1). +// +// Advancing for the next character: +// Call GlyphHMetrics, and compute 'current_point += SF * advance'. +// +// +// ADVANCED USAGE +// +// Quality: +// +// - Use the functions with Subpixel at the end to allow your characters +// to have subpixel positioning. Since the font is anti-aliased, not +// hinted, this is very import for quality. (This is not possible with +// baked fonts.) +// +// - Kerning is now supported, and if you're supporting subpixel rendering +// then kerning is worth using to give your text a polished look. +// +// Performance: +// +// - Convert Unicode codepoints to glyph indexes and operate on the glyphs; +// if you don't do this, stb_truetype is forced to do the conversion on +// every call. +// +// - There are a lot of memory allocations. We should modify it to take +// a temp buffer and allocate from the temp buffer (without freeing), +// should help performance a lot. +// +// NOTES +// +// The system uses the raw data found in the .ttf file without changing it +// and without building auxiliary data structures. This is a bit inefficient +// on little-endian systems (the data is big-endian), but assuming you're +// caching the bitmaps or glyph shapes this shouldn't be a big deal. +// +// It appears to be very hard to programmatically determine what font a +// given file is in a general way. I provide an API for this, but I don't +// recommend it. +// +// +// PERFORMANCE MEASUREMENTS FOR 1.06: +// +// 32-bit 64-bit +// Previous release: 8.83 s 7.68 s +// Pool allocations: 7.72 s 6.34 s +// Inline sort : 6.54 s 5.65 s +// New rasterizer : 5.63 s 5.00 s + +////////////////////////////////////////////////////////////////////////////// +////////////////////////////////////////////////////////////////////////////// +//// +//// SAMPLE PROGRAMS +//// +// +// Incomplete text-in-3d-api example, which draws quads properly aligned to be lossless. +// See "tests/truetype_demo_win32.c" for a complete version. +#if 0 +#define STB_TRUETYPE_IMPLEMENTATION // force following include to generate implementation +#include "stb_truetype.h" + +unsigned char ttf_buffer[1<<20]; +unsigned char temp_bitmap[512*512]; + +stbtt_bakedchar cdata[96]; // ASCII 32..126 is 95 glyphs +GLuint ftex; + +void my_stbtt_initfont(void) +{ + fread(ttf_buffer, 1, 1<<20, fopen("c:/windows/fonts/times.ttf", "rb")); + stbtt_BakeFontBitmap(ttf_buffer,0, 32.0, temp_bitmap,512,512, 32,96, cdata); // no guarantee this fits! + // can free ttf_buffer at this point + glGenTextures(1, &ftex); + glBindTexture(GL_TEXTURE_2D, ftex); + glTexImage2D(GL_TEXTURE_2D, 0, GL_ALPHA, 512,512, 0, GL_ALPHA, GL_UNSIGNED_BYTE, temp_bitmap); + // can free temp_bitmap at this point + glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); +} + +void my_stbtt_print(float x, float y, char *text) +{ + // assume orthographic projection with units = screen pixels, origin at top left + glEnable(GL_BLEND); + glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); + glEnable(GL_TEXTURE_2D); + glBindTexture(GL_TEXTURE_2D, ftex); + glBegin(GL_QUADS); + while (*text) { + if (*text >= 32 && *text < 128) { + stbtt_aligned_quad q; + stbtt_GetBakedQuad(cdata, 512,512, *text-32, &x,&y,&q,1);//1=opengl & d3d10+,0=d3d9 + glTexCoord2f(q.s0,q.t0); glVertex2f(q.x0,q.y0); + glTexCoord2f(q.s1,q.t0); glVertex2f(q.x1,q.y0); + glTexCoord2f(q.s1,q.t1); glVertex2f(q.x1,q.y1); + glTexCoord2f(q.s0,q.t1); glVertex2f(q.x0,q.y1); + } + ++text; + } + glEnd(); +} +#endif +// +// +////////////////////////////////////////////////////////////////////////////// +// +// Complete program (this compiles): get a single bitmap, print as ASCII art +// +#if 0 +#include <stdio.h> +#define STB_TRUETYPE_IMPLEMENTATION // force following include to generate implementation +#include "stb_truetype.h" + +char ttf_buffer[1<<25]; + +int main(int argc, char **argv) +{ + stbtt_fontinfo font; + unsigned char *bitmap; + int w,h,i,j,c = (argc > 1 ? atoi(argv[1]) : 'a'), s = (argc > 2 ? atoi(argv[2]) : 20); + + fread(ttf_buffer, 1, 1<<25, fopen(argc > 3 ? argv[3] : "c:/windows/fonts/arialbd.ttf", "rb")); + + stbtt_InitFont(&font, ttf_buffer, stbtt_GetFontOffsetForIndex(ttf_buffer,0)); + bitmap = stbtt_GetCodepointBitmap(&font, 0,stbtt_ScaleForPixelHeight(&font, s), c, &w, &h, 0,0); + + for (j=0; j < h; ++j) { + for (i=0; i < w; ++i) + putchar(" .:ioVM@"[bitmap[j*w+i]>>5]); + putchar('\n'); + } + return 0; +} +#endif +// +// Output: +// +// .ii. +// @@@@@@. +// V@Mio@@o +// :i. V@V +// :oM@@M +// :@@@MM@M +// @@o o@M +// :@@. M@M +// @@@o@@@@ +// :M@@V:@@. +// +////////////////////////////////////////////////////////////////////////////// +// +// Complete program: print "Hello World!" banner, with bugs +// +#if 0 +char buffer[24<<20]; +unsigned char screen[20][79]; + +int main(int arg, char **argv) +{ + stbtt_fontinfo font; + int i,j,ascent,baseline,ch=0; + float scale, xpos=2; // leave a little padding in case the character extends left + char *text = "Heljo World!"; // intentionally misspelled to show 'lj' brokenness + + fread(buffer, 1, 1000000, fopen("c:/windows/fonts/arialbd.ttf", "rb")); + stbtt_InitFont(&font, buffer, 0); + + scale = stbtt_ScaleForPixelHeight(&font, 15); + stbtt_GetFontVMetrics(&font, &ascent,0,0); + baseline = (int) (ascent*scale); + + while (text[ch]) { + int advance,lsb,x0,y0,x1,y1; + float x_shift = xpos - (float) floor(xpos); + stbtt_GetCodepointHMetrics(&font, text[ch], &advance, &lsb); + stbtt_GetCodepointBitmapBoxSubpixel(&font, text[ch], scale,scale,x_shift,0, &x0,&y0,&x1,&y1); + stbtt_MakeCodepointBitmapSubpixel(&font, &screen[baseline + y0][(int) xpos + x0], x1-x0,y1-y0, 79, scale,scale,x_shift,0, text[ch]); + // note that this stomps the old data, so where character boxes overlap (e.g. 'lj') it's wrong + // because this API is really for baking character bitmaps into textures. if you want to render + // a sequence of characters, you really need to render each bitmap to a temp buffer, then + // "alpha blend" that into the working buffer + xpos += (advance * scale); + if (text[ch+1]) + xpos += scale*stbtt_GetCodepointKernAdvance(&font, text[ch],text[ch+1]); + ++ch; + } + + for (j=0; j < 20; ++j) { + for (i=0; i < 78; ++i) + putchar(" .:ioVM@"[screen[j][i]>>5]); + putchar('\n'); + } + + return 0; +} +#endif + + +////////////////////////////////////////////////////////////////////////////// +////////////////////////////////////////////////////////////////////////////// +//// +//// INTEGRATION WITH YOUR CODEBASE +//// +//// The following sections allow you to supply alternate definitions +//// of C library functions used by stb_truetype, e.g. if you don't +//// link with the C runtime library. + +#ifdef STB_TRUETYPE_IMPLEMENTATION + // #define your own (u)stbtt_int8/16/32 before including to override this + #ifndef stbtt_uint8 + typedef unsigned char stbtt_uint8; + typedef signed char stbtt_int8; + typedef unsigned short stbtt_uint16; + typedef signed short stbtt_int16; + typedef unsigned int stbtt_uint32; + typedef signed int stbtt_int32; + #endif + + typedef char stbtt__check_size32[sizeof(stbtt_int32)==4 ? 1 : -1]; + typedef char stbtt__check_size16[sizeof(stbtt_int16)==2 ? 1 : -1]; + + // e.g. #define your own STBTT_ifloor/STBTT_iceil() to avoid math.h + #ifndef STBTT_ifloor + #include <math.h> + #define STBTT_ifloor(x) ((int) floor(x)) + #define STBTT_iceil(x) ((int) ceil(x)) + #endif + + #ifndef STBTT_sqrt + #include <math.h> + #define STBTT_sqrt(x) sqrt(x) + #define STBTT_pow(x,y) pow(x,y) + #endif + + #ifndef STBTT_fmod + #include <math.h> + #define STBTT_fmod(x,y) fmod(x,y) + #endif + + #ifndef STBTT_cos + #include <math.h> + #define STBTT_cos(x) cos(x) + #define STBTT_acos(x) acos(x) + #endif + + #ifndef STBTT_fabs + #include <math.h> + #define STBTT_fabs(x) fabs(x) + #endif + + // #define your own functions "STBTT_malloc" / "STBTT_free" to avoid malloc.h + #ifndef STBTT_malloc + #include <stdlib.h> + #define STBTT_malloc(x,u) ((void)(u),malloc(x)) + #define STBTT_free(x,u) ((void)(u),free(x)) + #endif + + #ifndef STBTT_assert + #include <assert.h> + #define STBTT_assert(x) assert(x) + #endif + + #ifndef STBTT_strlen + #include <string.h> + #define STBTT_strlen(x) strlen(x) + #endif + + #ifndef STBTT_memcpy + #include <string.h> + #define STBTT_memcpy memcpy + #define STBTT_memset memset + #endif +#endif + +/////////////////////////////////////////////////////////////////////////////// +/////////////////////////////////////////////////////////////////////////////// +//// +//// INTERFACE +//// +//// + +#ifndef __STB_INCLUDE_STB_TRUETYPE_H__ +#define __STB_INCLUDE_STB_TRUETYPE_H__ + +#ifdef STBTT_STATIC +#define STBTT_DEF static +#else +#define STBTT_DEF extern +#endif + +#ifdef __cplusplus +extern "C" { +#endif + +// private structure +typedef struct +{ + unsigned char *data; + int cursor; + int size; +} stbtt__buf; + +////////////////////////////////////////////////////////////////////////////// +// +// TEXTURE BAKING API +// +// If you use this API, you only have to call two functions ever. +// + +typedef struct +{ + unsigned short x0,y0,x1,y1; // coordinates of bbox in bitmap + float xoff,yoff,xadvance; +} stbtt_bakedchar; + +STBTT_DEF int stbtt_BakeFontBitmap(const unsigned char *data, int offset, // font location (use offset=0 for plain .ttf) + float pixel_height, // height of font in pixels + unsigned char *pixels, int pw, int ph, // bitmap to be filled in + int first_char, int num_chars, // characters to bake + stbtt_bakedchar *chardata); // you allocate this, it's num_chars long +// if return is positive, the first unused row of the bitmap +// if return is negative, returns the negative of the number of characters that fit +// if return is 0, no characters fit and no rows were used +// This uses a very crappy packing. + +typedef struct +{ + float x0,y0,s0,t0; // top-left + float x1,y1,s1,t1; // bottom-right +} stbtt_aligned_quad; + +STBTT_DEF void stbtt_GetBakedQuad(const stbtt_bakedchar *chardata, int pw, int ph, // same data as above + int char_index, // character to display + float *xpos, float *ypos, // pointers to current position in screen pixel space + stbtt_aligned_quad *q, // output: quad to draw + int opengl_fillrule); // true if opengl fill rule; false if DX9 or earlier +// Call GetBakedQuad with char_index = 'character - first_char', and it +// creates the quad you need to draw and advances the current position. +// +// The coordinate system used assumes y increases downwards. +// +// Characters will extend both above and below the current position; +// see discussion of "BASELINE" above. +// +// It's inefficient; you might want to c&p it and optimize it. + +STBTT_DEF void stbtt_GetScaledFontVMetrics(const unsigned char *fontdata, int index, float size, float *ascent, float *descent, float *lineGap); +// Query the font vertical metrics without having to create a font first. + + +////////////////////////////////////////////////////////////////////////////// +// +// NEW TEXTURE BAKING API +// +// This provides options for packing multiple fonts into one atlas, not +// perfectly but better than nothing. + +typedef struct +{ + unsigned short x0,y0,x1,y1; // coordinates of bbox in bitmap + float xoff,yoff,xadvance; + float xoff2,yoff2; +} stbtt_packedchar; + +typedef struct stbtt_pack_context stbtt_pack_context; +typedef struct stbtt_fontinfo stbtt_fontinfo; +#ifndef STB_RECT_PACK_VERSION +typedef struct stbrp_rect stbrp_rect; +#endif + +STBTT_DEF int stbtt_PackBegin(stbtt_pack_context *spc, unsigned char *pixels, int width, int height, int stride_in_bytes, int padding, void *alloc_context); +// Initializes a packing context stored in the passed-in stbtt_pack_context. +// Future calls using this context will pack characters into the bitmap passed +// in here: a 1-channel bitmap that is width * height. stride_in_bytes is +// the distance from one row to the next (or 0 to mean they are packed tightly +// together). "padding" is the amount of padding to leave between each +// character (normally you want '1' for bitmaps you'll use as textures with +// bilinear filtering). +// +// Returns 0 on failure, 1 on success. + +STBTT_DEF void stbtt_PackEnd (stbtt_pack_context *spc); +// Cleans up the packing context and frees all memory. + +#define STBTT_POINT_SIZE(x) (-(x)) + +STBTT_DEF int stbtt_PackFontRange(stbtt_pack_context *spc, const unsigned char *fontdata, int font_index, float font_size, + int first_unicode_char_in_range, int num_chars_in_range, stbtt_packedchar *chardata_for_range); +// Creates character bitmaps from the font_index'th font found in fontdata (use +// font_index=0 if you don't know what that is). It creates num_chars_in_range +// bitmaps for characters with unicode values starting at first_unicode_char_in_range +// and increasing. Data for how to render them is stored in chardata_for_range; +// pass these to stbtt_GetPackedQuad to get back renderable quads. +// +// font_size is the full height of the character from ascender to descender, +// as computed by stbtt_ScaleForPixelHeight. To use a point size as computed +// by stbtt_ScaleForMappingEmToPixels, wrap the point size in STBTT_POINT_SIZE() +// and pass that result as 'font_size': +// ..., 20 , ... // font max minus min y is 20 pixels tall +// ..., STBTT_POINT_SIZE(20), ... // 'M' is 20 pixels tall + +typedef struct +{ + float font_size; + int first_unicode_codepoint_in_range; // if non-zero, then the chars are continuous, and this is the first codepoint + int *array_of_unicode_codepoints; // if non-zero, then this is an array of unicode codepoints + int num_chars; + stbtt_packedchar *chardata_for_range; // output + unsigned char h_oversample, v_oversample; // don't set these, they're used internally +} stbtt_pack_range; + +STBTT_DEF int stbtt_PackFontRanges(stbtt_pack_context *spc, const unsigned char *fontdata, int font_index, stbtt_pack_range *ranges, int num_ranges); +// Creates character bitmaps from multiple ranges of characters stored in +// ranges. This will usually create a better-packed bitmap than multiple +// calls to stbtt_PackFontRange. Note that you can call this multiple +// times within a single PackBegin/PackEnd. + +STBTT_DEF void stbtt_PackSetOversampling(stbtt_pack_context *spc, unsigned int h_oversample, unsigned int v_oversample); +// Oversampling a font increases the quality by allowing higher-quality subpixel +// positioning, and is especially valuable at smaller text sizes. +// +// This function sets the amount of oversampling for all following calls to +// stbtt_PackFontRange(s) or stbtt_PackFontRangesGatherRects for a given +// pack context. The default (no oversampling) is achieved by h_oversample=1 +// and v_oversample=1. The total number of pixels required is +// h_oversample*v_oversample larger than the default; for example, 2x2 +// oversampling requires 4x the storage of 1x1. For best results, render +// oversampled textures with bilinear filtering. Look at the readme in +// stb/tests/oversample for information about oversampled fonts +// +// To use with PackFontRangesGather etc., you must set it before calls +// call to PackFontRangesGatherRects. + +STBTT_DEF void stbtt_PackSetSkipMissingCodepoints(stbtt_pack_context *spc, int skip); +// If skip != 0, this tells stb_truetype to skip any codepoints for which +// there is no corresponding glyph. If skip=0, which is the default, then +// codepoints without a glyph recived the font's "missing character" glyph, +// typically an empty box by convention. + +STBTT_DEF void stbtt_GetPackedQuad(const stbtt_packedchar *chardata, int pw, int ph, // same data as above + int char_index, // character to display + float *xpos, float *ypos, // pointers to current position in screen pixel space + stbtt_aligned_quad *q, // output: quad to draw + int align_to_integer); + +STBTT_DEF int stbtt_PackFontRangesGatherRects(stbtt_pack_context *spc, const stbtt_fontinfo *info, stbtt_pack_range *ranges, int num_ranges, stbrp_rect *rects); +STBTT_DEF void stbtt_PackFontRangesPackRects(stbtt_pack_context *spc, stbrp_rect *rects, int num_rects); +STBTT_DEF int stbtt_PackFontRangesRenderIntoRects(stbtt_pack_context *spc, const stbtt_fontinfo *info, stbtt_pack_range *ranges, int num_ranges, stbrp_rect *rects); +// Calling these functions in sequence is roughly equivalent to calling +// stbtt_PackFontRanges(). If you more control over the packing of multiple +// fonts, or if you want to pack custom data into a font texture, take a look +// at the source to of stbtt_PackFontRanges() and create a custom version +// using these functions, e.g. call GatherRects multiple times, +// building up a single array of rects, then call PackRects once, +// then call RenderIntoRects repeatedly. This may result in a +// better packing than calling PackFontRanges multiple times +// (or it may not). + +// this is an opaque structure that you shouldn't mess with which holds +// all the context needed from PackBegin to PackEnd. +struct stbtt_pack_context { + void *user_allocator_context; + void *pack_info; + int width; + int height; + int stride_in_bytes; + int padding; + int skip_missing; + unsigned int h_oversample, v_oversample; + unsigned char *pixels; + void *nodes; +}; + +////////////////////////////////////////////////////////////////////////////// +// +// FONT LOADING +// +// + +STBTT_DEF int stbtt_GetNumberOfFonts(const unsigned char *data); +// This function will determine the number of fonts in a font file. TrueType +// collection (.ttc) files may contain multiple fonts, while TrueType font +// (.ttf) files only contain one font. The number of fonts can be used for +// indexing with the previous function where the index is between zero and one +// less than the total fonts. If an error occurs, -1 is returned. + +STBTT_DEF int stbtt_GetFontOffsetForIndex(const unsigned char *data, int index); +// Each .ttf/.ttc file may have more than one font. Each font has a sequential +// index number starting from 0. Call this function to get the font offset for +// a given index; it returns -1 if the index is out of range. A regular .ttf +// file will only define one font and it always be at offset 0, so it will +// return '0' for index 0, and -1 for all other indices. + +// The following structure is defined publicly so you can declare one on +// the stack or as a global or etc, but you should treat it as opaque. +struct stbtt_fontinfo +{ + void * userdata; + unsigned char * data; // pointer to .ttf file + int fontstart; // offset of start of font + + int numGlyphs; // number of glyphs, needed for range checking + + int loca,head,glyf,hhea,hmtx,kern,gpos,svg; // table locations as offset from start of .ttf + int index_map; // a cmap mapping for our chosen character encoding + int indexToLocFormat; // format needed to map from glyph index to glyph + + stbtt__buf cff; // cff font data + stbtt__buf charstrings; // the charstring index + stbtt__buf gsubrs; // global charstring subroutines index + stbtt__buf subrs; // private charstring subroutines index + stbtt__buf fontdicts; // array of font dicts + stbtt__buf fdselect; // map from glyph to fontdict +}; + +STBTT_DEF int stbtt_InitFont(stbtt_fontinfo *info, const unsigned char *data, int offset); +// Given an offset into the file that defines a font, this function builds +// the necessary cached info for the rest of the system. You must allocate +// the stbtt_fontinfo yourself, and stbtt_InitFont will fill it out. You don't +// need to do anything special to free it, because the contents are pure +// value data with no additional data structures. Returns 0 on failure. + + +////////////////////////////////////////////////////////////////////////////// +// +// CHARACTER TO GLYPH-INDEX CONVERSIOn + +STBTT_DEF int stbtt_FindGlyphIndex(const stbtt_fontinfo *info, int unicode_codepoint); +// If you're going to perform multiple operations on the same character +// and you want a speed-up, call this function with the character you're +// going to process, then use glyph-based functions instead of the +// codepoint-based functions. +// Returns 0 if the character codepoint is not defined in the font. + + +////////////////////////////////////////////////////////////////////////////// +// +// CHARACTER PROPERTIES +// + +STBTT_DEF float stbtt_ScaleForPixelHeight(const stbtt_fontinfo *info, float pixels); +// computes a scale factor to produce a font whose "height" is 'pixels' tall. +// Height is measured as the distance from the highest ascender to the lowest +// descender; in other words, it's equivalent to calling stbtt_GetFontVMetrics +// and computing: +// scale = pixels / (ascent - descent) +// so if you prefer to measure height by the ascent only, use a similar calculation. + +STBTT_DEF float stbtt_ScaleForMappingEmToPixels(const stbtt_fontinfo *info, float pixels); +// computes a scale factor to produce a font whose EM size is mapped to +// 'pixels' tall. This is probably what traditional APIs compute, but +// I'm not positive. + +STBTT_DEF void stbtt_GetFontVMetrics(const stbtt_fontinfo *info, int *ascent, int *descent, int *lineGap); +// ascent is the coordinate above the baseline the font extends; descent +// is the coordinate below the baseline the font extends (i.e. it is typically negative) +// lineGap is the spacing between one row's descent and the next row's ascent... +// so you should advance the vertical position by "*ascent - *descent + *lineGap" +// these are expressed in unscaled coordinates, so you must multiply by +// the scale factor for a given size + +STBTT_DEF int stbtt_GetFontVMetricsOS2(const stbtt_fontinfo *info, int *typoAscent, int *typoDescent, int *typoLineGap); +// analogous to GetFontVMetrics, but returns the "typographic" values from the OS/2 +// table (specific to MS/Windows TTF files). +// +// Returns 1 on success (table present), 0 on failure. + +STBTT_DEF void stbtt_GetFontBoundingBox(const stbtt_fontinfo *info, int *x0, int *y0, int *x1, int *y1); +// the bounding box around all possible characters + +STBTT_DEF void stbtt_GetCodepointHMetrics(const stbtt_fontinfo *info, int codepoint, int *advanceWidth, int *leftSideBearing); +// leftSideBearing is the offset from the current horizontal position to the left edge of the character +// advanceWidth is the offset from the current horizontal position to the next horizontal position +// these are expressed in unscaled coordinates + +STBTT_DEF int stbtt_GetCodepointKernAdvance(const stbtt_fontinfo *info, int ch1, int ch2); +// an additional amount to add to the 'advance' value between ch1 and ch2 + +STBTT_DEF int stbtt_GetCodepointBox(const stbtt_fontinfo *info, int codepoint, int *x0, int *y0, int *x1, int *y1); +// Gets the bounding box of the visible part of the glyph, in unscaled coordinates + +STBTT_DEF void stbtt_GetGlyphHMetrics(const stbtt_fontinfo *info, int glyph_index, int *advanceWidth, int *leftSideBearing); +STBTT_DEF int stbtt_GetGlyphKernAdvance(const stbtt_fontinfo *info, int glyph1, int glyph2); +STBTT_DEF int stbtt_GetGlyphBox(const stbtt_fontinfo *info, int glyph_index, int *x0, int *y0, int *x1, int *y1); +// as above, but takes one or more glyph indices for greater efficiency + +typedef struct stbtt_kerningentry +{ + int glyph1; // use stbtt_FindGlyphIndex + int glyph2; + int advance; +} stbtt_kerningentry; + +STBTT_DEF int stbtt_GetKerningTableLength(const stbtt_fontinfo *info); +STBTT_DEF int stbtt_GetKerningTable(const stbtt_fontinfo *info, stbtt_kerningentry* table, int table_length); +// Retrieves a complete list of all of the kerning pairs provided by the font +// stbtt_GetKerningTable never writes more than table_length entries and returns how many entries it did write. +// The table will be sorted by (a.glyph1 == b.glyph1)?(a.glyph2 < b.glyph2):(a.glyph1 < b.glyph1) + +////////////////////////////////////////////////////////////////////////////// +// +// GLYPH SHAPES (you probably don't need these, but they have to go before +// the bitmaps for C declaration-order reasons) +// + +#ifndef STBTT_vmove // you can predefine these to use different values (but why?) + enum { + STBTT_vmove=1, + STBTT_vline, + STBTT_vcurve, + STBTT_vcubic + }; +#endif + +#ifndef stbtt_vertex // you can predefine this to use different values + // (we share this with other code at RAD) + #define stbtt_vertex_type short // can't use stbtt_int16 because that's not visible in the header file + typedef struct + { + stbtt_vertex_type x,y,cx,cy,cx1,cy1; + unsigned char type,padding; + } stbtt_vertex; +#endif + +STBTT_DEF int stbtt_IsGlyphEmpty(const stbtt_fontinfo *info, int glyph_index); +// returns non-zero if nothing is drawn for this glyph + +STBTT_DEF int stbtt_GetCodepointShape(const stbtt_fontinfo *info, int unicode_codepoint, stbtt_vertex **vertices); +STBTT_DEF int stbtt_GetGlyphShape(const stbtt_fontinfo *info, int glyph_index, stbtt_vertex **vertices); +// returns # of vertices and fills *vertices with the pointer to them +// these are expressed in "unscaled" coordinates +// +// The shape is a series of contours. Each one starts with +// a STBTT_moveto, then consists of a series of mixed +// STBTT_lineto and STBTT_curveto segments. A lineto +// draws a line from previous endpoint to its x,y; a curveto +// draws a quadratic bezier from previous endpoint to +// its x,y, using cx,cy as the bezier control point. + +STBTT_DEF void stbtt_FreeShape(const stbtt_fontinfo *info, stbtt_vertex *vertices); +// frees the data allocated above + +STBTT_DEF unsigned char *stbtt_FindSVGDoc(const stbtt_fontinfo *info, int gl); +STBTT_DEF int stbtt_GetCodepointSVG(const stbtt_fontinfo *info, int unicode_codepoint, const char **svg); +STBTT_DEF int stbtt_GetGlyphSVG(const stbtt_fontinfo *info, int gl, const char **svg); +// fills svg with the character's SVG data. +// returns data size or 0 if SVG not found. + +////////////////////////////////////////////////////////////////////////////// +// +// BITMAP RENDERING +// + +STBTT_DEF void stbtt_FreeBitmap(unsigned char *bitmap, void *userdata); +// frees the bitmap allocated below + +STBTT_DEF unsigned char *stbtt_GetCodepointBitmap(const stbtt_fontinfo *info, float scale_x, float scale_y, int codepoint, int *width, int *height, int *xoff, int *yoff); +// allocates a large-enough single-channel 8bpp bitmap and renders the +// specified character/glyph at the specified scale into it, with +// antialiasing. 0 is no coverage (transparent), 255 is fully covered (opaque). +// *width & *height are filled out with the width & height of the bitmap, +// which is stored left-to-right, top-to-bottom. +// +// xoff/yoff are the offset it pixel space from the glyph origin to the top-left of the bitmap + +STBTT_DEF unsigned char *stbtt_GetCodepointBitmapSubpixel(const stbtt_fontinfo *info, float scale_x, float scale_y, float shift_x, float shift_y, int codepoint, int *width, int *height, int *xoff, int *yoff); +// the same as stbtt_GetCodepoitnBitmap, but you can specify a subpixel +// shift for the character + +STBTT_DEF void stbtt_MakeCodepointBitmap(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, int codepoint); +// the same as stbtt_GetCodepointBitmap, but you pass in storage for the bitmap +// in the form of 'output', with row spacing of 'out_stride' bytes. the bitmap +// is clipped to out_w/out_h bytes. Call stbtt_GetCodepointBitmapBox to get the +// width and height and positioning info for it first. + +STBTT_DEF void stbtt_MakeCodepointBitmapSubpixel(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int codepoint); +// same as stbtt_MakeCodepointBitmap, but you can specify a subpixel +// shift for the character + +STBTT_DEF void stbtt_MakeCodepointBitmapSubpixelPrefilter(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int oversample_x, int oversample_y, float *sub_x, float *sub_y, int codepoint); +// same as stbtt_MakeCodepointBitmapSubpixel, but prefiltering +// is performed (see stbtt_PackSetOversampling) + +STBTT_DEF void stbtt_GetCodepointBitmapBox(const stbtt_fontinfo *font, int codepoint, float scale_x, float scale_y, int *ix0, int *iy0, int *ix1, int *iy1); +// get the bbox of the bitmap centered around the glyph origin; so the +// bitmap width is ix1-ix0, height is iy1-iy0, and location to place +// the bitmap top left is (leftSideBearing*scale,iy0). +// (Note that the bitmap uses y-increases-down, but the shape uses +// y-increases-up, so CodepointBitmapBox and CodepointBox are inverted.) + +STBTT_DEF void stbtt_GetCodepointBitmapBoxSubpixel(const stbtt_fontinfo *font, int codepoint, float scale_x, float scale_y, float shift_x, float shift_y, int *ix0, int *iy0, int *ix1, int *iy1); +// same as stbtt_GetCodepointBitmapBox, but you can specify a subpixel +// shift for the character + +// the following functions are equivalent to the above functions, but operate +// on glyph indices instead of Unicode codepoints (for efficiency) +STBTT_DEF unsigned char *stbtt_GetGlyphBitmap(const stbtt_fontinfo *info, float scale_x, float scale_y, int glyph, int *width, int *height, int *xoff, int *yoff); +STBTT_DEF unsigned char *stbtt_GetGlyphBitmapSubpixel(const stbtt_fontinfo *info, float scale_x, float scale_y, float shift_x, float shift_y, int glyph, int *width, int *height, int *xoff, int *yoff); +STBTT_DEF void stbtt_MakeGlyphBitmap(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, int glyph); +STBTT_DEF void stbtt_MakeGlyphBitmapSubpixel(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int glyph); +STBTT_DEF void stbtt_MakeGlyphBitmapSubpixelPrefilter(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int oversample_x, int oversample_y, float *sub_x, float *sub_y, int glyph); +STBTT_DEF void stbtt_GetGlyphBitmapBox(const stbtt_fontinfo *font, int glyph, float scale_x, float scale_y, int *ix0, int *iy0, int *ix1, int *iy1); +STBTT_DEF void stbtt_GetGlyphBitmapBoxSubpixel(const stbtt_fontinfo *font, int glyph, float scale_x, float scale_y,float shift_x, float shift_y, int *ix0, int *iy0, int *ix1, int *iy1); + + +// @TODO: don't expose this structure +typedef struct +{ + int w,h,stride; + unsigned char *pixels; +} stbtt__bitmap; + +// rasterize a shape with quadratic beziers into a bitmap +STBTT_DEF void stbtt_Rasterize(stbtt__bitmap *result, // 1-channel bitmap to draw into + float flatness_in_pixels, // allowable error of curve in pixels + stbtt_vertex *vertices, // array of vertices defining shape + int num_verts, // number of vertices in above array + float scale_x, float scale_y, // scale applied to input vertices + float shift_x, float shift_y, // translation applied to input vertices + int x_off, int y_off, // another translation applied to input + int invert, // if non-zero, vertically flip shape + void *userdata); // context for to STBTT_MALLOC + +////////////////////////////////////////////////////////////////////////////// +// +// Signed Distance Function (or Field) rendering + +STBTT_DEF void stbtt_FreeSDF(unsigned char *bitmap, void *userdata); +// frees the SDF bitmap allocated below + +STBTT_DEF unsigned char * stbtt_GetGlyphSDF(const stbtt_fontinfo *info, float scale, int glyph, int padding, unsigned char onedge_value, float pixel_dist_scale, int *width, int *height, int *xoff, int *yoff); +STBTT_DEF unsigned char * stbtt_GetCodepointSDF(const stbtt_fontinfo *info, float scale, int codepoint, int padding, unsigned char onedge_value, float pixel_dist_scale, int *width, int *height, int *xoff, int *yoff); +// These functions compute a discretized SDF field for a single character, suitable for storing +// in a single-channel texture, sampling with bilinear filtering, and testing against +// larger than some threshold to produce scalable fonts. +// info -- the font +// scale -- controls the size of the resulting SDF bitmap, same as it would be creating a regular bitmap +// glyph/codepoint -- the character to generate the SDF for +// padding -- extra "pixels" around the character which are filled with the distance to the character (not 0), +// which allows effects like bit outlines +// onedge_value -- value 0-255 to test the SDF against to reconstruct the character (i.e. the isocontour of the character) +// pixel_dist_scale -- what value the SDF should increase by when moving one SDF "pixel" away from the edge (on the 0..255 scale) +// if positive, > onedge_value is inside; if negative, < onedge_value is inside +// width,height -- output height & width of the SDF bitmap (including padding) +// xoff,yoff -- output origin of the character +// return value -- a 2D array of bytes 0..255, width*height in size +// +// pixel_dist_scale & onedge_value are a scale & bias that allows you to make +// optimal use of the limited 0..255 for your application, trading off precision +// and special effects. SDF values outside the range 0..255 are clamped to 0..255. +// +// Example: +// scale = stbtt_ScaleForPixelHeight(22) +// padding = 5 +// onedge_value = 180 +// pixel_dist_scale = 180/5.0 = 36.0 +// +// This will create an SDF bitmap in which the character is about 22 pixels +// high but the whole bitmap is about 22+5+5=32 pixels high. To produce a filled +// shape, sample the SDF at each pixel and fill the pixel if the SDF value +// is greater than or equal to 180/255. (You'll actually want to antialias, +// which is beyond the scope of this example.) Additionally, you can compute +// offset outlines (e.g. to stroke the character border inside & outside, +// or only outside). For example, to fill outside the character up to 3 SDF +// pixels, you would compare against (180-36.0*3)/255 = 72/255. The above +// choice of variables maps a range from 5 pixels outside the shape to +// 2 pixels inside the shape to 0..255; this is intended primarily for apply +// outside effects only (the interior range is needed to allow proper +// antialiasing of the font at *smaller* sizes) +// +// The function computes the SDF analytically at each SDF pixel, not by e.g. +// building a higher-res bitmap and approximating it. In theory the quality +// should be as high as possible for an SDF of this size & representation, but +// unclear if this is true in practice (perhaps building a higher-res bitmap +// and computing from that can allow drop-out prevention). +// +// The algorithm has not been optimized at all, so expect it to be slow +// if computing lots of characters or very large sizes. + + + +////////////////////////////////////////////////////////////////////////////// +// +// Finding the right font... +// +// You should really just solve this offline, keep your own tables +// of what font is what, and don't try to get it out of the .ttf file. +// That's because getting it out of the .ttf file is really hard, because +// the names in the file can appear in many possible encodings, in many +// possible languages, and e.g. if you need a case-insensitive comparison, +// the details of that depend on the encoding & language in a complex way +// (actually underspecified in truetype, but also gigantic). +// +// But you can use the provided functions in two possible ways: +// stbtt_FindMatchingFont() will use *case-sensitive* comparisons on +// unicode-encoded names to try to find the font you want; +// you can run this before calling stbtt_InitFont() +// +// stbtt_GetFontNameString() lets you get any of the various strings +// from the file yourself and do your own comparisons on them. +// You have to have called stbtt_InitFont() first. + + +STBTT_DEF int stbtt_FindMatchingFont(const unsigned char *fontdata, const char *name, int flags); +// returns the offset (not index) of the font that matches, or -1 if none +// if you use STBTT_MACSTYLE_DONTCARE, use a font name like "Arial Bold". +// if you use any other flag, use a font name like "Arial"; this checks +// the 'macStyle' header field; i don't know if fonts set this consistently +#define STBTT_MACSTYLE_DONTCARE 0 +#define STBTT_MACSTYLE_BOLD 1 +#define STBTT_MACSTYLE_ITALIC 2 +#define STBTT_MACSTYLE_UNDERSCORE 4 +#define STBTT_MACSTYLE_NONE 8 // <= not same as 0, this makes us check the bitfield is 0 + +STBTT_DEF int stbtt_CompareUTF8toUTF16_bigendian(const char *s1, int len1, const char *s2, int len2); +// returns 1/0 whether the first string interpreted as utf8 is identical to +// the second string interpreted as big-endian utf16... useful for strings from next func + +STBTT_DEF const char *stbtt_GetFontNameString(const stbtt_fontinfo *font, int *length, int platformID, int encodingID, int languageID, int nameID); +// returns the string (which may be big-endian double byte, e.g. for unicode) +// and puts the length in bytes in *length. +// +// some of the values for the IDs are below; for more see the truetype spec: +// http://developer.apple.com/textfonts/TTRefMan/RM06/Chap6name.html +// http://www.microsoft.com/typography/otspec/name.htm + +enum { // platformID + STBTT_PLATFORM_ID_UNICODE =0, + STBTT_PLATFORM_ID_MAC =1, + STBTT_PLATFORM_ID_ISO =2, + STBTT_PLATFORM_ID_MICROSOFT =3 +}; + +enum { // encodingID for STBTT_PLATFORM_ID_UNICODE + STBTT_UNICODE_EID_UNICODE_1_0 =0, + STBTT_UNICODE_EID_UNICODE_1_1 =1, + STBTT_UNICODE_EID_ISO_10646 =2, + STBTT_UNICODE_EID_UNICODE_2_0_BMP=3, + STBTT_UNICODE_EID_UNICODE_2_0_FULL=4 +}; + +enum { // encodingID for STBTT_PLATFORM_ID_MICROSOFT + STBTT_MS_EID_SYMBOL =0, + STBTT_MS_EID_UNICODE_BMP =1, + STBTT_MS_EID_SHIFTJIS =2, + STBTT_MS_EID_UNICODE_FULL =10 +}; + +enum { // encodingID for STBTT_PLATFORM_ID_MAC; same as Script Manager codes + STBTT_MAC_EID_ROMAN =0, STBTT_MAC_EID_ARABIC =4, + STBTT_MAC_EID_JAPANESE =1, STBTT_MAC_EID_HEBREW =5, + STBTT_MAC_EID_CHINESE_TRAD =2, STBTT_MAC_EID_GREEK =6, + STBTT_MAC_EID_KOREAN =3, STBTT_MAC_EID_RUSSIAN =7 +}; + +enum { // languageID for STBTT_PLATFORM_ID_MICROSOFT; same as LCID... + // problematic because there are e.g. 16 english LCIDs and 16 arabic LCIDs + STBTT_MS_LANG_ENGLISH =0x0409, STBTT_MS_LANG_ITALIAN =0x0410, + STBTT_MS_LANG_CHINESE =0x0804, STBTT_MS_LANG_JAPANESE =0x0411, + STBTT_MS_LANG_DUTCH =0x0413, STBTT_MS_LANG_KOREAN =0x0412, + STBTT_MS_LANG_FRENCH =0x040c, STBTT_MS_LANG_RUSSIAN =0x0419, + STBTT_MS_LANG_GERMAN =0x0407, STBTT_MS_LANG_SPANISH =0x0409, + STBTT_MS_LANG_HEBREW =0x040d, STBTT_MS_LANG_SWEDISH =0x041D +}; + +enum { // languageID for STBTT_PLATFORM_ID_MAC + STBTT_MAC_LANG_ENGLISH =0 , STBTT_MAC_LANG_JAPANESE =11, + STBTT_MAC_LANG_ARABIC =12, STBTT_MAC_LANG_KOREAN =23, + STBTT_MAC_LANG_DUTCH =4 , STBTT_MAC_LANG_RUSSIAN =32, + STBTT_MAC_LANG_FRENCH =1 , STBTT_MAC_LANG_SPANISH =6 , + STBTT_MAC_LANG_GERMAN =2 , STBTT_MAC_LANG_SWEDISH =5 , + STBTT_MAC_LANG_HEBREW =10, STBTT_MAC_LANG_CHINESE_SIMPLIFIED =33, + STBTT_MAC_LANG_ITALIAN =3 , STBTT_MAC_LANG_CHINESE_TRAD =19 +}; + +#ifdef __cplusplus +} +#endif + +#endif // __STB_INCLUDE_STB_TRUETYPE_H__ + +/////////////////////////////////////////////////////////////////////////////// +/////////////////////////////////////////////////////////////////////////////// +//// +//// IMPLEMENTATION +//// +//// + +#ifdef STB_TRUETYPE_IMPLEMENTATION + +#ifndef STBTT_MAX_OVERSAMPLE +#define STBTT_MAX_OVERSAMPLE 8 +#endif + +#if STBTT_MAX_OVERSAMPLE > 255 +#error "STBTT_MAX_OVERSAMPLE cannot be > 255" +#endif + +typedef int stbtt__test_oversample_pow2[(STBTT_MAX_OVERSAMPLE & (STBTT_MAX_OVERSAMPLE-1)) == 0 ? 1 : -1]; + +#ifndef STBTT_RASTERIZER_VERSION +#define STBTT_RASTERIZER_VERSION 2 +#endif + +#ifdef _MSC_VER +#define STBTT__NOTUSED(v) (void)(v) +#else +#define STBTT__NOTUSED(v) (void)sizeof(v) +#endif + +////////////////////////////////////////////////////////////////////////// +// +// stbtt__buf helpers to parse data from file +// + +static stbtt_uint8 stbtt__buf_get8(stbtt__buf *b) +{ + if (b->cursor >= b->size) + return 0; + return b->data[b->cursor++]; +} + +static stbtt_uint8 stbtt__buf_peek8(stbtt__buf *b) +{ + if (b->cursor >= b->size) + return 0; + return b->data[b->cursor]; +} + +static void stbtt__buf_seek(stbtt__buf *b, int o) +{ + STBTT_assert(!(o > b->size || o < 0)); + b->cursor = (o > b->size || o < 0) ? b->size : o; +} + +static void stbtt__buf_skip(stbtt__buf *b, int o) +{ + stbtt__buf_seek(b, b->cursor + o); +} + +static stbtt_uint32 stbtt__buf_get(stbtt__buf *b, int n) +{ + stbtt_uint32 v = 0; + int i; + STBTT_assert(n >= 1 && n <= 4); + for (i = 0; i < n; i++) + v = (v << 8) | stbtt__buf_get8(b); + return v; +} + +static stbtt__buf stbtt__new_buf(const void *p, size_t size) +{ + stbtt__buf r; + STBTT_assert(size < 0x40000000); + r.data = (stbtt_uint8*) p; + r.size = (int) size; + r.cursor = 0; + return r; +} + +#define stbtt__buf_get16(b) stbtt__buf_get((b), 2) +#define stbtt__buf_get32(b) stbtt__buf_get((b), 4) + +static stbtt__buf stbtt__buf_range(const stbtt__buf *b, int o, int s) +{ + stbtt__buf r = stbtt__new_buf(NULL, 0); + if (o < 0 || s < 0 || o > b->size || s > b->size - o) return r; + r.data = b->data + o; + r.size = s; + return r; +} + +static stbtt__buf stbtt__cff_get_index(stbtt__buf *b) +{ + int count, start, offsize; + start = b->cursor; + count = stbtt__buf_get16(b); + if (count) { + offsize = stbtt__buf_get8(b); + STBTT_assert(offsize >= 1 && offsize <= 4); + stbtt__buf_skip(b, offsize * count); + stbtt__buf_skip(b, stbtt__buf_get(b, offsize) - 1); + } + return stbtt__buf_range(b, start, b->cursor - start); +} + +static stbtt_uint32 stbtt__cff_int(stbtt__buf *b) +{ + int b0 = stbtt__buf_get8(b); + if (b0 >= 32 && b0 <= 246) return b0 - 139; + else if (b0 >= 247 && b0 <= 250) return (b0 - 247)*256 + stbtt__buf_get8(b) + 108; + else if (b0 >= 251 && b0 <= 254) return -(b0 - 251)*256 - stbtt__buf_get8(b) - 108; + else if (b0 == 28) return stbtt__buf_get16(b); + else if (b0 == 29) return stbtt__buf_get32(b); + STBTT_assert(0); + return 0; +} + +static void stbtt__cff_skip_operand(stbtt__buf *b) { + int v, b0 = stbtt__buf_peek8(b); + STBTT_assert(b0 >= 28); + if (b0 == 30) { + stbtt__buf_skip(b, 1); + while (b->cursor < b->size) { + v = stbtt__buf_get8(b); + if ((v & 0xF) == 0xF || (v >> 4) == 0xF) + break; + } + } else { + stbtt__cff_int(b); + } +} + +static stbtt__buf stbtt__dict_get(stbtt__buf *b, int key) +{ + stbtt__buf_seek(b, 0); + while (b->cursor < b->size) { + int start = b->cursor, end, op; + while (stbtt__buf_peek8(b) >= 28) + stbtt__cff_skip_operand(b); + end = b->cursor; + op = stbtt__buf_get8(b); + if (op == 12) op = stbtt__buf_get8(b) | 0x100; + if (op == key) return stbtt__buf_range(b, start, end-start); + } + return stbtt__buf_range(b, 0, 0); +} + +static void stbtt__dict_get_ints(stbtt__buf *b, int key, int outcount, stbtt_uint32 *out) +{ + int i; + stbtt__buf operands = stbtt__dict_get(b, key); + for (i = 0; i < outcount && operands.cursor < operands.size; i++) + out[i] = stbtt__cff_int(&operands); +} + +static int stbtt__cff_index_count(stbtt__buf *b) +{ + stbtt__buf_seek(b, 0); + return stbtt__buf_get16(b); +} + +static stbtt__buf stbtt__cff_index_get(stbtt__buf b, int i) +{ + int count, offsize, start, end; + stbtt__buf_seek(&b, 0); + count = stbtt__buf_get16(&b); + offsize = stbtt__buf_get8(&b); + STBTT_assert(i >= 0 && i < count); + STBTT_assert(offsize >= 1 && offsize <= 4); + stbtt__buf_skip(&b, i*offsize); + start = stbtt__buf_get(&b, offsize); + end = stbtt__buf_get(&b, offsize); + return stbtt__buf_range(&b, 2+(count+1)*offsize+start, end - start); +} + +////////////////////////////////////////////////////////////////////////// +// +// accessors to parse data from file +// + +// on platforms that don't allow misaligned reads, if we want to allow +// truetype fonts that aren't padded to alignment, define ALLOW_UNALIGNED_TRUETYPE + +#define ttBYTE(p) (* (stbtt_uint8 *) (p)) +#define ttCHAR(p) (* (stbtt_int8 *) (p)) +#define ttFixed(p) ttLONG(p) + +static stbtt_uint16 ttUSHORT(stbtt_uint8 *p) { return p[0]*256 + p[1]; } +static stbtt_int16 ttSHORT(stbtt_uint8 *p) { return p[0]*256 + p[1]; } +static stbtt_uint32 ttULONG(stbtt_uint8 *p) { return (p[0]<<24) + (p[1]<<16) + (p[2]<<8) + p[3]; } +static stbtt_int32 ttLONG(stbtt_uint8 *p) { return (p[0]<<24) + (p[1]<<16) + (p[2]<<8) + p[3]; } + +#define stbtt_tag4(p,c0,c1,c2,c3) ((p)[0] == (c0) && (p)[1] == (c1) && (p)[2] == (c2) && (p)[3] == (c3)) +#define stbtt_tag(p,str) stbtt_tag4(p,str[0],str[1],str[2],str[3]) + +static int stbtt__isfont(stbtt_uint8 *font) +{ + // check the version number + if (stbtt_tag4(font, '1',0,0,0)) return 1; // TrueType 1 + if (stbtt_tag(font, "typ1")) return 1; // TrueType with type 1 font -- we don't support this! + if (stbtt_tag(font, "OTTO")) return 1; // OpenType with CFF + if (stbtt_tag4(font, 0,1,0,0)) return 1; // OpenType 1.0 + if (stbtt_tag(font, "true")) return 1; // Apple specification for TrueType fonts + return 0; +} + +// @OPTIMIZE: binary search +static stbtt_uint32 stbtt__find_table(stbtt_uint8 *data, stbtt_uint32 fontstart, const char *tag) +{ + stbtt_int32 num_tables = ttUSHORT(data+fontstart+4); + stbtt_uint32 tabledir = fontstart + 12; + stbtt_int32 i; + for (i=0; i < num_tables; ++i) { + stbtt_uint32 loc = tabledir + 16*i; + if (stbtt_tag(data+loc+0, tag)) + return ttULONG(data+loc+8); + } + return 0; +} + +static int stbtt_GetFontOffsetForIndex_internal(unsigned char *font_collection, int index) +{ + // if it's just a font, there's only one valid index + if (stbtt__isfont(font_collection)) + return index == 0 ? 0 : -1; + + // check if it's a TTC + if (stbtt_tag(font_collection, "ttcf")) { + // version 1? + if (ttULONG(font_collection+4) == 0x00010000 || ttULONG(font_collection+4) == 0x00020000) { + stbtt_int32 n = ttLONG(font_collection+8); + if (index >= n) + return -1; + return ttULONG(font_collection+12+index*4); + } + } + return -1; +} + +static int stbtt_GetNumberOfFonts_internal(unsigned char *font_collection) +{ + // if it's just a font, there's only one valid font + if (stbtt__isfont(font_collection)) + return 1; + + // check if it's a TTC + if (stbtt_tag(font_collection, "ttcf")) { + // version 1? + if (ttULONG(font_collection+4) == 0x00010000 || ttULONG(font_collection+4) == 0x00020000) { + return ttLONG(font_collection+8); + } + } + return 0; +} + +static stbtt__buf stbtt__get_subrs(stbtt__buf cff, stbtt__buf fontdict) +{ + stbtt_uint32 subrsoff = 0, private_loc[2] = { 0, 0 }; + stbtt__buf pdict; + stbtt__dict_get_ints(&fontdict, 18, 2, private_loc); + if (!private_loc[1] || !private_loc[0]) return stbtt__new_buf(NULL, 0); + pdict = stbtt__buf_range(&cff, private_loc[1], private_loc[0]); + stbtt__dict_get_ints(&pdict, 19, 1, &subrsoff); + if (!subrsoff) return stbtt__new_buf(NULL, 0); + stbtt__buf_seek(&cff, private_loc[1]+subrsoff); + return stbtt__cff_get_index(&cff); +} + +// since most people won't use this, find this table the first time it's needed +static int stbtt__get_svg(stbtt_fontinfo *info) +{ + stbtt_uint32 t; + if (info->svg < 0) { + t = stbtt__find_table(info->data, info->fontstart, "SVG "); + if (t) { + stbtt_uint32 offset = ttULONG(info->data + t + 2); + info->svg = t + offset; + } else { + info->svg = 0; + } + } + return info->svg; +} + +static int stbtt_InitFont_internal(stbtt_fontinfo *info, unsigned char *data, int fontstart) +{ + stbtt_uint32 cmap, t; + stbtt_int32 i,numTables; + + info->data = data; + info->fontstart = fontstart; + info->cff = stbtt__new_buf(NULL, 0); + + cmap = stbtt__find_table(data, fontstart, "cmap"); // required + info->loca = stbtt__find_table(data, fontstart, "loca"); // required + info->head = stbtt__find_table(data, fontstart, "head"); // required + info->glyf = stbtt__find_table(data, fontstart, "glyf"); // required + info->hhea = stbtt__find_table(data, fontstart, "hhea"); // required + info->hmtx = stbtt__find_table(data, fontstart, "hmtx"); // required + info->kern = stbtt__find_table(data, fontstart, "kern"); // not required + info->gpos = stbtt__find_table(data, fontstart, "GPOS"); // not required + + if (!cmap || !info->head || !info->hhea || !info->hmtx) + return 0; + if (info->glyf) { + // required for truetype + if (!info->loca) return 0; + } else { + // initialization for CFF / Type2 fonts (OTF) + stbtt__buf b, topdict, topdictidx; + stbtt_uint32 cstype = 2, charstrings = 0, fdarrayoff = 0, fdselectoff = 0; + stbtt_uint32 cff; + + cff = stbtt__find_table(data, fontstart, "CFF "); + if (!cff) return 0; + + info->fontdicts = stbtt__new_buf(NULL, 0); + info->fdselect = stbtt__new_buf(NULL, 0); + + // @TODO this should use size from table (not 512MB) + info->cff = stbtt__new_buf(data+cff, 512*1024*1024); + b = info->cff; + + // read the header + stbtt__buf_skip(&b, 2); + stbtt__buf_seek(&b, stbtt__buf_get8(&b)); // hdrsize + + // @TODO the name INDEX could list multiple fonts, + // but we just use the first one. + stbtt__cff_get_index(&b); // name INDEX + topdictidx = stbtt__cff_get_index(&b); + topdict = stbtt__cff_index_get(topdictidx, 0); + stbtt__cff_get_index(&b); // string INDEX + info->gsubrs = stbtt__cff_get_index(&b); + + stbtt__dict_get_ints(&topdict, 17, 1, &charstrings); + stbtt__dict_get_ints(&topdict, 0x100 | 6, 1, &cstype); + stbtt__dict_get_ints(&topdict, 0x100 | 36, 1, &fdarrayoff); + stbtt__dict_get_ints(&topdict, 0x100 | 37, 1, &fdselectoff); + info->subrs = stbtt__get_subrs(b, topdict); + + // we only support Type 2 charstrings + if (cstype != 2) return 0; + if (charstrings == 0) return 0; + + if (fdarrayoff) { + // looks like a CID font + if (!fdselectoff) return 0; + stbtt__buf_seek(&b, fdarrayoff); + info->fontdicts = stbtt__cff_get_index(&b); + info->fdselect = stbtt__buf_range(&b, fdselectoff, b.size-fdselectoff); + } + + stbtt__buf_seek(&b, charstrings); + info->charstrings = stbtt__cff_get_index(&b); + } + + t = stbtt__find_table(data, fontstart, "maxp"); + if (t) + info->numGlyphs = ttUSHORT(data+t+4); + else + info->numGlyphs = 0xffff; + + info->svg = -1; + + // find a cmap encoding table we understand *now* to avoid searching + // later. (todo: could make this installable) + // the same regardless of glyph. + numTables = ttUSHORT(data + cmap + 2); + info->index_map = 0; + for (i=0; i < numTables; ++i) { + stbtt_uint32 encoding_record = cmap + 4 + 8 * i; + // find an encoding we understand: + switch(ttUSHORT(data+encoding_record)) { + case STBTT_PLATFORM_ID_MICROSOFT: + switch (ttUSHORT(data+encoding_record+2)) { + case STBTT_MS_EID_UNICODE_BMP: + case STBTT_MS_EID_UNICODE_FULL: + // MS/Unicode + info->index_map = cmap + ttULONG(data+encoding_record+4); + break; + } + break; + case STBTT_PLATFORM_ID_UNICODE: + // Mac/iOS has these + // all the encodingIDs are unicode, so we don't bother to check it + info->index_map = cmap + ttULONG(data+encoding_record+4); + break; + } + } + if (info->index_map == 0) + return 0; + + info->indexToLocFormat = ttUSHORT(data+info->head + 50); + return 1; +} + +STBTT_DEF int stbtt_FindGlyphIndex(const stbtt_fontinfo *info, int unicode_codepoint) +{ + stbtt_uint8 *data = info->data; + stbtt_uint32 index_map = info->index_map; + + stbtt_uint16 format = ttUSHORT(data + index_map + 0); + if (format == 0) { // apple byte encoding + stbtt_int32 bytes = ttUSHORT(data + index_map + 2); + if (unicode_codepoint < bytes-6) + return ttBYTE(data + index_map + 6 + unicode_codepoint); + return 0; + } else if (format == 6) { + stbtt_uint32 first = ttUSHORT(data + index_map + 6); + stbtt_uint32 count = ttUSHORT(data + index_map + 8); + if ((stbtt_uint32) unicode_codepoint >= first && (stbtt_uint32) unicode_codepoint < first+count) + return ttUSHORT(data + index_map + 10 + (unicode_codepoint - first)*2); + return 0; + } else if (format == 2) { + STBTT_assert(0); // @TODO: high-byte mapping for japanese/chinese/korean + return 0; + } else if (format == 4) { // standard mapping for windows fonts: binary search collection of ranges + stbtt_uint16 segcount = ttUSHORT(data+index_map+6) >> 1; + stbtt_uint16 searchRange = ttUSHORT(data+index_map+8) >> 1; + stbtt_uint16 entrySelector = ttUSHORT(data+index_map+10); + stbtt_uint16 rangeShift = ttUSHORT(data+index_map+12) >> 1; + + // do a binary search of the segments + stbtt_uint32 endCount = index_map + 14; + stbtt_uint32 search = endCount; + + if (unicode_codepoint > 0xffff) + return 0; + + // they lie from endCount .. endCount + segCount + // but searchRange is the nearest power of two, so... + if (unicode_codepoint >= ttUSHORT(data + search + rangeShift*2)) + search += rangeShift*2; + + // now decrement to bias correctly to find smallest + search -= 2; + while (entrySelector) { + stbtt_uint16 end; + searchRange >>= 1; + end = ttUSHORT(data + search + searchRange*2); + if (unicode_codepoint > end) + search += searchRange*2; + --entrySelector; + } + search += 2; + + { + stbtt_uint16 offset, start, last; + stbtt_uint16 item = (stbtt_uint16) ((search - endCount) >> 1); + + start = ttUSHORT(data + index_map + 14 + segcount*2 + 2 + 2*item); + last = ttUSHORT(data + endCount + 2*item); + if (unicode_codepoint < start || unicode_codepoint > last) + return 0; + + offset = ttUSHORT(data + index_map + 14 + segcount*6 + 2 + 2*item); + if (offset == 0) + return (stbtt_uint16) (unicode_codepoint + ttSHORT(data + index_map + 14 + segcount*4 + 2 + 2*item)); + + return ttUSHORT(data + offset + (unicode_codepoint-start)*2 + index_map + 14 + segcount*6 + 2 + 2*item); + } + } else if (format == 12 || format == 13) { + stbtt_uint32 ngroups = ttULONG(data+index_map+12); + stbtt_int32 low,high; + low = 0; high = (stbtt_int32)ngroups; + // Binary search the right group. + while (low < high) { + stbtt_int32 mid = low + ((high-low) >> 1); // rounds down, so low <= mid < high + stbtt_uint32 start_char = ttULONG(data+index_map+16+mid*12); + stbtt_uint32 end_char = ttULONG(data+index_map+16+mid*12+4); + if ((stbtt_uint32) unicode_codepoint < start_char) + high = mid; + else if ((stbtt_uint32) unicode_codepoint > end_char) + low = mid+1; + else { + stbtt_uint32 start_glyph = ttULONG(data+index_map+16+mid*12+8); + if (format == 12) + return start_glyph + unicode_codepoint-start_char; + else // format == 13 + return start_glyph; + } + } + return 0; // not found + } + // @TODO + STBTT_assert(0); + return 0; +} + +STBTT_DEF int stbtt_GetCodepointShape(const stbtt_fontinfo *info, int unicode_codepoint, stbtt_vertex **vertices) +{ + return stbtt_GetGlyphShape(info, stbtt_FindGlyphIndex(info, unicode_codepoint), vertices); +} + +static void stbtt_setvertex(stbtt_vertex *v, stbtt_uint8 type, stbtt_int32 x, stbtt_int32 y, stbtt_int32 cx, stbtt_int32 cy) +{ + v->type = type; + v->x = (stbtt_int16) x; + v->y = (stbtt_int16) y; + v->cx = (stbtt_int16) cx; + v->cy = (stbtt_int16) cy; +} + +static int stbtt__GetGlyfOffset(const stbtt_fontinfo *info, int glyph_index) +{ + int g1,g2; + + STBTT_assert(!info->cff.size); + + if (glyph_index >= info->numGlyphs) return -1; // glyph index out of range + if (info->indexToLocFormat >= 2) return -1; // unknown index->glyph map format + + if (info->indexToLocFormat == 0) { + g1 = info->glyf + ttUSHORT(info->data + info->loca + glyph_index * 2) * 2; + g2 = info->glyf + ttUSHORT(info->data + info->loca + glyph_index * 2 + 2) * 2; + } else { + g1 = info->glyf + ttULONG (info->data + info->loca + glyph_index * 4); + g2 = info->glyf + ttULONG (info->data + info->loca + glyph_index * 4 + 4); + } + + return g1==g2 ? -1 : g1; // if length is 0, return -1 +} + +static int stbtt__GetGlyphInfoT2(const stbtt_fontinfo *info, int glyph_index, int *x0, int *y0, int *x1, int *y1); + +STBTT_DEF int stbtt_GetGlyphBox(const stbtt_fontinfo *info, int glyph_index, int *x0, int *y0, int *x1, int *y1) +{ + if (info->cff.size) { + stbtt__GetGlyphInfoT2(info, glyph_index, x0, y0, x1, y1); + } else { + int g = stbtt__GetGlyfOffset(info, glyph_index); + if (g < 0) return 0; + + if (x0) *x0 = ttSHORT(info->data + g + 2); + if (y0) *y0 = ttSHORT(info->data + g + 4); + if (x1) *x1 = ttSHORT(info->data + g + 6); + if (y1) *y1 = ttSHORT(info->data + g + 8); + } + return 1; +} + +STBTT_DEF int stbtt_GetCodepointBox(const stbtt_fontinfo *info, int codepoint, int *x0, int *y0, int *x1, int *y1) +{ + return stbtt_GetGlyphBox(info, stbtt_FindGlyphIndex(info,codepoint), x0,y0,x1,y1); +} + +STBTT_DEF int stbtt_IsGlyphEmpty(const stbtt_fontinfo *info, int glyph_index) +{ + stbtt_int16 numberOfContours; + int g; + if (info->cff.size) + return stbtt__GetGlyphInfoT2(info, glyph_index, NULL, NULL, NULL, NULL) == 0; + g = stbtt__GetGlyfOffset(info, glyph_index); + if (g < 0) return 1; + numberOfContours = ttSHORT(info->data + g); + return numberOfContours == 0; +} + +static int stbtt__close_shape(stbtt_vertex *vertices, int num_vertices, int was_off, int start_off, + stbtt_int32 sx, stbtt_int32 sy, stbtt_int32 scx, stbtt_int32 scy, stbtt_int32 cx, stbtt_int32 cy) +{ + if (start_off) { + if (was_off) + stbtt_setvertex(&vertices[num_vertices++], STBTT_vcurve, (cx+scx)>>1, (cy+scy)>>1, cx,cy); + stbtt_setvertex(&vertices[num_vertices++], STBTT_vcurve, sx,sy,scx,scy); + } else { + if (was_off) + stbtt_setvertex(&vertices[num_vertices++], STBTT_vcurve,sx,sy,cx,cy); + else + stbtt_setvertex(&vertices[num_vertices++], STBTT_vline,sx,sy,0,0); + } + return num_vertices; +} + +static int stbtt__GetGlyphShapeTT(const stbtt_fontinfo *info, int glyph_index, stbtt_vertex **pvertices) +{ + stbtt_int16 numberOfContours; + stbtt_uint8 *endPtsOfContours; + stbtt_uint8 *data = info->data; + stbtt_vertex *vertices=0; + int num_vertices=0; + int g = stbtt__GetGlyfOffset(info, glyph_index); + + *pvertices = NULL; + + if (g < 0) return 0; + + numberOfContours = ttSHORT(data + g); + + if (numberOfContours > 0) { + stbtt_uint8 flags=0,flagcount; + stbtt_int32 ins, i,j=0,m,n, next_move, was_off=0, off, start_off=0; + stbtt_int32 x,y,cx,cy,sx,sy, scx,scy; + stbtt_uint8 *points; + endPtsOfContours = (data + g + 10); + ins = ttUSHORT(data + g + 10 + numberOfContours * 2); + points = data + g + 10 + numberOfContours * 2 + 2 + ins; + + n = 1+ttUSHORT(endPtsOfContours + numberOfContours*2-2); + + m = n + 2*numberOfContours; // a loose bound on how many vertices we might need + vertices = (stbtt_vertex *) STBTT_malloc(m * sizeof(vertices[0]), info->userdata); + if (vertices == 0) + return 0; + + next_move = 0; + flagcount=0; + + // in first pass, we load uninterpreted data into the allocated array + // above, shifted to the end of the array so we won't overwrite it when + // we create our final data starting from the front + + off = m - n; // starting offset for uninterpreted data, regardless of how m ends up being calculated + + // first load flags + + for (i=0; i < n; ++i) { + if (flagcount == 0) { + flags = *points++; + if (flags & 8) + flagcount = *points++; + } else + --flagcount; + vertices[off+i].type = flags; + } + + // now load x coordinates + x=0; + for (i=0; i < n; ++i) { + flags = vertices[off+i].type; + if (flags & 2) { + stbtt_int16 dx = *points++; + x += (flags & 16) ? dx : -dx; // ??? + } else { + if (!(flags & 16)) { + x = x + (stbtt_int16) (points[0]*256 + points[1]); + points += 2; + } + } + vertices[off+i].x = (stbtt_int16) x; + } + + // now load y coordinates + y=0; + for (i=0; i < n; ++i) { + flags = vertices[off+i].type; + if (flags & 4) { + stbtt_int16 dy = *points++; + y += (flags & 32) ? dy : -dy; // ??? + } else { + if (!(flags & 32)) { + y = y + (stbtt_int16) (points[0]*256 + points[1]); + points += 2; + } + } + vertices[off+i].y = (stbtt_int16) y; + } + + // now convert them to our format + num_vertices=0; + sx = sy = cx = cy = scx = scy = 0; + for (i=0; i < n; ++i) { + flags = vertices[off+i].type; + x = (stbtt_int16) vertices[off+i].x; + y = (stbtt_int16) vertices[off+i].y; + + if (next_move == i) { + if (i != 0) + num_vertices = stbtt__close_shape(vertices, num_vertices, was_off, start_off, sx,sy,scx,scy,cx,cy); + + // now start the new one + start_off = !(flags & 1); + if (start_off) { + // if we start off with an off-curve point, then when we need to find a point on the curve + // where we can start, and we need to save some state for when we wraparound. + scx = x; + scy = y; + if (!(vertices[off+i+1].type & 1)) { + // next point is also a curve point, so interpolate an on-point curve + sx = (x + (stbtt_int32) vertices[off+i+1].x) >> 1; + sy = (y + (stbtt_int32) vertices[off+i+1].y) >> 1; + } else { + // otherwise just use the next point as our start point + sx = (stbtt_int32) vertices[off+i+1].x; + sy = (stbtt_int32) vertices[off+i+1].y; + ++i; // we're using point i+1 as the starting point, so skip it + } + } else { + sx = x; + sy = y; + } + stbtt_setvertex(&vertices[num_vertices++], STBTT_vmove,sx,sy,0,0); + was_off = 0; + next_move = 1 + ttUSHORT(endPtsOfContours+j*2); + ++j; + } else { + if (!(flags & 1)) { // if it's a curve + if (was_off) // two off-curve control points in a row means interpolate an on-curve midpoint + stbtt_setvertex(&vertices[num_vertices++], STBTT_vcurve, (cx+x)>>1, (cy+y)>>1, cx, cy); + cx = x; + cy = y; + was_off = 1; + } else { + if (was_off) + stbtt_setvertex(&vertices[num_vertices++], STBTT_vcurve, x,y, cx, cy); + else + stbtt_setvertex(&vertices[num_vertices++], STBTT_vline, x,y,0,0); + was_off = 0; + } + } + } + num_vertices = stbtt__close_shape(vertices, num_vertices, was_off, start_off, sx,sy,scx,scy,cx,cy); + } else if (numberOfContours < 0) { + // Compound shapes. + int more = 1; + stbtt_uint8 *comp = data + g + 10; + num_vertices = 0; + vertices = 0; + while (more) { + stbtt_uint16 flags, gidx; + int comp_num_verts = 0, i; + stbtt_vertex *comp_verts = 0, *tmp = 0; + float mtx[6] = {1,0,0,1,0,0}, m, n; + + flags = ttSHORT(comp); comp+=2; + gidx = ttSHORT(comp); comp+=2; + + if (flags & 2) { // XY values + if (flags & 1) { // shorts + mtx[4] = ttSHORT(comp); comp+=2; + mtx[5] = ttSHORT(comp); comp+=2; + } else { + mtx[4] = ttCHAR(comp); comp+=1; + mtx[5] = ttCHAR(comp); comp+=1; + } + } + else { + // @TODO handle matching point + STBTT_assert(0); + } + if (flags & (1<<3)) { // WE_HAVE_A_SCALE + mtx[0] = mtx[3] = ttSHORT(comp)/16384.0f; comp+=2; + mtx[1] = mtx[2] = 0; + } else if (flags & (1<<6)) { // WE_HAVE_AN_X_AND_YSCALE + mtx[0] = ttSHORT(comp)/16384.0f; comp+=2; + mtx[1] = mtx[2] = 0; + mtx[3] = ttSHORT(comp)/16384.0f; comp+=2; + } else if (flags & (1<<7)) { // WE_HAVE_A_TWO_BY_TWO + mtx[0] = ttSHORT(comp)/16384.0f; comp+=2; + mtx[1] = ttSHORT(comp)/16384.0f; comp+=2; + mtx[2] = ttSHORT(comp)/16384.0f; comp+=2; + mtx[3] = ttSHORT(comp)/16384.0f; comp+=2; + } + + // Find transformation scales. + m = (float) STBTT_sqrt(mtx[0]*mtx[0] + mtx[1]*mtx[1]); + n = (float) STBTT_sqrt(mtx[2]*mtx[2] + mtx[3]*mtx[3]); + + // Get indexed glyph. + comp_num_verts = stbtt_GetGlyphShape(info, gidx, &comp_verts); + if (comp_num_verts > 0) { + // Transform vertices. + for (i = 0; i < comp_num_verts; ++i) { + stbtt_vertex* v = &comp_verts[i]; + stbtt_vertex_type x,y; + x=v->x; y=v->y; + v->x = (stbtt_vertex_type)(m * (mtx[0]*x + mtx[2]*y + mtx[4])); + v->y = (stbtt_vertex_type)(n * (mtx[1]*x + mtx[3]*y + mtx[5])); + x=v->cx; y=v->cy; + v->cx = (stbtt_vertex_type)(m * (mtx[0]*x + mtx[2]*y + mtx[4])); + v->cy = (stbtt_vertex_type)(n * (mtx[1]*x + mtx[3]*y + mtx[5])); + } + // Append vertices. + tmp = (stbtt_vertex*)STBTT_malloc((num_vertices+comp_num_verts)*sizeof(stbtt_vertex), info->userdata); + if (!tmp) { + if (vertices) STBTT_free(vertices, info->userdata); + if (comp_verts) STBTT_free(comp_verts, info->userdata); + return 0; + } + if (num_vertices > 0 && vertices) STBTT_memcpy(tmp, vertices, num_vertices*sizeof(stbtt_vertex)); + STBTT_memcpy(tmp+num_vertices, comp_verts, comp_num_verts*sizeof(stbtt_vertex)); + if (vertices) STBTT_free(vertices, info->userdata); + vertices = tmp; + STBTT_free(comp_verts, info->userdata); + num_vertices += comp_num_verts; + } + // More components ? + more = flags & (1<<5); + } + } else { + // numberOfCounters == 0, do nothing + } + + *pvertices = vertices; + return num_vertices; +} + +typedef struct +{ + int bounds; + int started; + float first_x, first_y; + float x, y; + stbtt_int32 min_x, max_x, min_y, max_y; + + stbtt_vertex *pvertices; + int num_vertices; +} stbtt__csctx; + +#define STBTT__CSCTX_INIT(bounds) {bounds,0, 0,0, 0,0, 0,0,0,0, NULL, 0} + +static void stbtt__track_vertex(stbtt__csctx *c, stbtt_int32 x, stbtt_int32 y) +{ + if (x > c->max_x || !c->started) c->max_x = x; + if (y > c->max_y || !c->started) c->max_y = y; + if (x < c->min_x || !c->started) c->min_x = x; + if (y < c->min_y || !c->started) c->min_y = y; + c->started = 1; +} + +static void stbtt__csctx_v(stbtt__csctx *c, stbtt_uint8 type, stbtt_int32 x, stbtt_int32 y, stbtt_int32 cx, stbtt_int32 cy, stbtt_int32 cx1, stbtt_int32 cy1) +{ + if (c->bounds) { + stbtt__track_vertex(c, x, y); + if (type == STBTT_vcubic) { + stbtt__track_vertex(c, cx, cy); + stbtt__track_vertex(c, cx1, cy1); + } + } else { + stbtt_setvertex(&c->pvertices[c->num_vertices], type, x, y, cx, cy); + c->pvertices[c->num_vertices].cx1 = (stbtt_int16) cx1; + c->pvertices[c->num_vertices].cy1 = (stbtt_int16) cy1; + } + c->num_vertices++; +} + +static void stbtt__csctx_close_shape(stbtt__csctx *ctx) +{ + if (ctx->first_x != ctx->x || ctx->first_y != ctx->y) + stbtt__csctx_v(ctx, STBTT_vline, (int)ctx->first_x, (int)ctx->first_y, 0, 0, 0, 0); +} + +static void stbtt__csctx_rmove_to(stbtt__csctx *ctx, float dx, float dy) +{ + stbtt__csctx_close_shape(ctx); + ctx->first_x = ctx->x = ctx->x + dx; + ctx->first_y = ctx->y = ctx->y + dy; + stbtt__csctx_v(ctx, STBTT_vmove, (int)ctx->x, (int)ctx->y, 0, 0, 0, 0); +} + +static void stbtt__csctx_rline_to(stbtt__csctx *ctx, float dx, float dy) +{ + ctx->x += dx; + ctx->y += dy; + stbtt__csctx_v(ctx, STBTT_vline, (int)ctx->x, (int)ctx->y, 0, 0, 0, 0); +} + +static void stbtt__csctx_rccurve_to(stbtt__csctx *ctx, float dx1, float dy1, float dx2, float dy2, float dx3, float dy3) +{ + float cx1 = ctx->x + dx1; + float cy1 = ctx->y + dy1; + float cx2 = cx1 + dx2; + float cy2 = cy1 + dy2; + ctx->x = cx2 + dx3; + ctx->y = cy2 + dy3; + stbtt__csctx_v(ctx, STBTT_vcubic, (int)ctx->x, (int)ctx->y, (int)cx1, (int)cy1, (int)cx2, (int)cy2); +} + +static stbtt__buf stbtt__get_subr(stbtt__buf idx, int n) +{ + int count = stbtt__cff_index_count(&idx); + int bias = 107; + if (count >= 33900) + bias = 32768; + else if (count >= 1240) + bias = 1131; + n += bias; + if (n < 0 || n >= count) + return stbtt__new_buf(NULL, 0); + return stbtt__cff_index_get(idx, n); +} + +static stbtt__buf stbtt__cid_get_glyph_subrs(const stbtt_fontinfo *info, int glyph_index) +{ + stbtt__buf fdselect = info->fdselect; + int nranges, start, end, v, fmt, fdselector = -1, i; + + stbtt__buf_seek(&fdselect, 0); + fmt = stbtt__buf_get8(&fdselect); + if (fmt == 0) { + // untested + stbtt__buf_skip(&fdselect, glyph_index); + fdselector = stbtt__buf_get8(&fdselect); + } else if (fmt == 3) { + nranges = stbtt__buf_get16(&fdselect); + start = stbtt__buf_get16(&fdselect); + for (i = 0; i < nranges; i++) { + v = stbtt__buf_get8(&fdselect); + end = stbtt__buf_get16(&fdselect); + if (glyph_index >= start && glyph_index < end) { + fdselector = v; + break; + } + start = end; + } + } + if (fdselector == -1) stbtt__new_buf(NULL, 0); + return stbtt__get_subrs(info->cff, stbtt__cff_index_get(info->fontdicts, fdselector)); +} + +static int stbtt__run_charstring(const stbtt_fontinfo *info, int glyph_index, stbtt__csctx *c) +{ + int in_header = 1, maskbits = 0, subr_stack_height = 0, sp = 0, v, i, b0; + int has_subrs = 0, clear_stack; + float s[48]; + stbtt__buf subr_stack[10], subrs = info->subrs, b; + float f; + +#define STBTT__CSERR(s) (0) + + // this currently ignores the initial width value, which isn't needed if we have hmtx + b = stbtt__cff_index_get(info->charstrings, glyph_index); + while (b.cursor < b.size) { + i = 0; + clear_stack = 1; + b0 = stbtt__buf_get8(&b); + switch (b0) { + // @TODO implement hinting + case 0x13: // hintmask + case 0x14: // cntrmask + if (in_header) + maskbits += (sp / 2); // implicit "vstem" + in_header = 0; + stbtt__buf_skip(&b, (maskbits + 7) / 8); + break; + + case 0x01: // hstem + case 0x03: // vstem + case 0x12: // hstemhm + case 0x17: // vstemhm + maskbits += (sp / 2); + break; + + case 0x15: // rmoveto + in_header = 0; + if (sp < 2) return STBTT__CSERR("rmoveto stack"); + stbtt__csctx_rmove_to(c, s[sp-2], s[sp-1]); + break; + case 0x04: // vmoveto + in_header = 0; + if (sp < 1) return STBTT__CSERR("vmoveto stack"); + stbtt__csctx_rmove_to(c, 0, s[sp-1]); + break; + case 0x16: // hmoveto + in_header = 0; + if (sp < 1) return STBTT__CSERR("hmoveto stack"); + stbtt__csctx_rmove_to(c, s[sp-1], 0); + break; + + case 0x05: // rlineto + if (sp < 2) return STBTT__CSERR("rlineto stack"); + for (; i + 1 < sp; i += 2) + stbtt__csctx_rline_to(c, s[i], s[i+1]); + break; + + // hlineto/vlineto and vhcurveto/hvcurveto alternate horizontal and vertical + // starting from a different place. + + case 0x07: // vlineto + if (sp < 1) return STBTT__CSERR("vlineto stack"); + goto vlineto; + case 0x06: // hlineto + if (sp < 1) return STBTT__CSERR("hlineto stack"); + for (;;) { + if (i >= sp) break; + stbtt__csctx_rline_to(c, s[i], 0); + i++; + vlineto: + if (i >= sp) break; + stbtt__csctx_rline_to(c, 0, s[i]); + i++; + } + break; + + case 0x1F: // hvcurveto + if (sp < 4) return STBTT__CSERR("hvcurveto stack"); + goto hvcurveto; + case 0x1E: // vhcurveto + if (sp < 4) return STBTT__CSERR("vhcurveto stack"); + for (;;) { + if (i + 3 >= sp) break; + stbtt__csctx_rccurve_to(c, 0, s[i], s[i+1], s[i+2], s[i+3], (sp - i == 5) ? s[i + 4] : 0.0f); + i += 4; + hvcurveto: + if (i + 3 >= sp) break; + stbtt__csctx_rccurve_to(c, s[i], 0, s[i+1], s[i+2], (sp - i == 5) ? s[i+4] : 0.0f, s[i+3]); + i += 4; + } + break; + + case 0x08: // rrcurveto + if (sp < 6) return STBTT__CSERR("rcurveline stack"); + for (; i + 5 < sp; i += 6) + stbtt__csctx_rccurve_to(c, s[i], s[i+1], s[i+2], s[i+3], s[i+4], s[i+5]); + break; + + case 0x18: // rcurveline + if (sp < 8) return STBTT__CSERR("rcurveline stack"); + for (; i + 5 < sp - 2; i += 6) + stbtt__csctx_rccurve_to(c, s[i], s[i+1], s[i+2], s[i+3], s[i+4], s[i+5]); + if (i + 1 >= sp) return STBTT__CSERR("rcurveline stack"); + stbtt__csctx_rline_to(c, s[i], s[i+1]); + break; + + case 0x19: // rlinecurve + if (sp < 8) return STBTT__CSERR("rlinecurve stack"); + for (; i + 1 < sp - 6; i += 2) + stbtt__csctx_rline_to(c, s[i], s[i+1]); + if (i + 5 >= sp) return STBTT__CSERR("rlinecurve stack"); + stbtt__csctx_rccurve_to(c, s[i], s[i+1], s[i+2], s[i+3], s[i+4], s[i+5]); + break; + + case 0x1A: // vvcurveto + case 0x1B: // hhcurveto + if (sp < 4) return STBTT__CSERR("(vv|hh)curveto stack"); + f = 0.0; + if (sp & 1) { f = s[i]; i++; } + for (; i + 3 < sp; i += 4) { + if (b0 == 0x1B) + stbtt__csctx_rccurve_to(c, s[i], f, s[i+1], s[i+2], s[i+3], 0.0); + else + stbtt__csctx_rccurve_to(c, f, s[i], s[i+1], s[i+2], 0.0, s[i+3]); + f = 0.0; + } + break; + + case 0x0A: // callsubr + if (!has_subrs) { + if (info->fdselect.size) + subrs = stbtt__cid_get_glyph_subrs(info, glyph_index); + has_subrs = 1; + } + // FALLTHROUGH + case 0x1D: // callgsubr + if (sp < 1) return STBTT__CSERR("call(g|)subr stack"); + v = (int) s[--sp]; + if (subr_stack_height >= 10) return STBTT__CSERR("recursion limit"); + subr_stack[subr_stack_height++] = b; + b = stbtt__get_subr(b0 == 0x0A ? subrs : info->gsubrs, v); + if (b.size == 0) return STBTT__CSERR("subr not found"); + b.cursor = 0; + clear_stack = 0; + break; + + case 0x0B: // return + if (subr_stack_height <= 0) return STBTT__CSERR("return outside subr"); + b = subr_stack[--subr_stack_height]; + clear_stack = 0; + break; + + case 0x0E: // endchar + stbtt__csctx_close_shape(c); + return 1; + + case 0x0C: { // two-byte escape + float dx1, dx2, dx3, dx4, dx5, dx6, dy1, dy2, dy3, dy4, dy5, dy6; + float dx, dy; + int b1 = stbtt__buf_get8(&b); + switch (b1) { + // @TODO These "flex" implementations ignore the flex-depth and resolution, + // and always draw beziers. + case 0x22: // hflex + if (sp < 7) return STBTT__CSERR("hflex stack"); + dx1 = s[0]; + dx2 = s[1]; + dy2 = s[2]; + dx3 = s[3]; + dx4 = s[4]; + dx5 = s[5]; + dx6 = s[6]; + stbtt__csctx_rccurve_to(c, dx1, 0, dx2, dy2, dx3, 0); + stbtt__csctx_rccurve_to(c, dx4, 0, dx5, -dy2, dx6, 0); + break; + + case 0x23: // flex + if (sp < 13) return STBTT__CSERR("flex stack"); + dx1 = s[0]; + dy1 = s[1]; + dx2 = s[2]; + dy2 = s[3]; + dx3 = s[4]; + dy3 = s[5]; + dx4 = s[6]; + dy4 = s[7]; + dx5 = s[8]; + dy5 = s[9]; + dx6 = s[10]; + dy6 = s[11]; + //fd is s[12] + stbtt__csctx_rccurve_to(c, dx1, dy1, dx2, dy2, dx3, dy3); + stbtt__csctx_rccurve_to(c, dx4, dy4, dx5, dy5, dx6, dy6); + break; + + case 0x24: // hflex1 + if (sp < 9) return STBTT__CSERR("hflex1 stack"); + dx1 = s[0]; + dy1 = s[1]; + dx2 = s[2]; + dy2 = s[3]; + dx3 = s[4]; + dx4 = s[5]; + dx5 = s[6]; + dy5 = s[7]; + dx6 = s[8]; + stbtt__csctx_rccurve_to(c, dx1, dy1, dx2, dy2, dx3, 0); + stbtt__csctx_rccurve_to(c, dx4, 0, dx5, dy5, dx6, -(dy1+dy2+dy5)); + break; + + case 0x25: // flex1 + if (sp < 11) return STBTT__CSERR("flex1 stack"); + dx1 = s[0]; + dy1 = s[1]; + dx2 = s[2]; + dy2 = s[3]; + dx3 = s[4]; + dy3 = s[5]; + dx4 = s[6]; + dy4 = s[7]; + dx5 = s[8]; + dy5 = s[9]; + dx6 = dy6 = s[10]; + dx = dx1+dx2+dx3+dx4+dx5; + dy = dy1+dy2+dy3+dy4+dy5; + if (STBTT_fabs(dx) > STBTT_fabs(dy)) + dy6 = -dy; + else + dx6 = -dx; + stbtt__csctx_rccurve_to(c, dx1, dy1, dx2, dy2, dx3, dy3); + stbtt__csctx_rccurve_to(c, dx4, dy4, dx5, dy5, dx6, dy6); + break; + + default: + return STBTT__CSERR("unimplemented"); + } + } break; + + default: + if (b0 != 255 && b0 != 28 && b0 < 32) + return STBTT__CSERR("reserved operator"); + + // push immediate + if (b0 == 255) { + f = (float)(stbtt_int32)stbtt__buf_get32(&b) / 0x10000; + } else { + stbtt__buf_skip(&b, -1); + f = (float)(stbtt_int16)stbtt__cff_int(&b); + } + if (sp >= 48) return STBTT__CSERR("push stack overflow"); + s[sp++] = f; + clear_stack = 0; + break; + } + if (clear_stack) sp = 0; + } + return STBTT__CSERR("no endchar"); + +#undef STBTT__CSERR +} + +static int stbtt__GetGlyphShapeT2(const stbtt_fontinfo *info, int glyph_index, stbtt_vertex **pvertices) +{ + // runs the charstring twice, once to count and once to output (to avoid realloc) + stbtt__csctx count_ctx = STBTT__CSCTX_INIT(1); + stbtt__csctx output_ctx = STBTT__CSCTX_INIT(0); + if (stbtt__run_charstring(info, glyph_index, &count_ctx)) { + *pvertices = (stbtt_vertex*)STBTT_malloc(count_ctx.num_vertices*sizeof(stbtt_vertex), info->userdata); + output_ctx.pvertices = *pvertices; + if (stbtt__run_charstring(info, glyph_index, &output_ctx)) { + STBTT_assert(output_ctx.num_vertices == count_ctx.num_vertices); + return output_ctx.num_vertices; + } + } + *pvertices = NULL; + return 0; +} + +static int stbtt__GetGlyphInfoT2(const stbtt_fontinfo *info, int glyph_index, int *x0, int *y0, int *x1, int *y1) +{ + stbtt__csctx c = STBTT__CSCTX_INIT(1); + int r = stbtt__run_charstring(info, glyph_index, &c); + if (x0) *x0 = r ? c.min_x : 0; + if (y0) *y0 = r ? c.min_y : 0; + if (x1) *x1 = r ? c.max_x : 0; + if (y1) *y1 = r ? c.max_y : 0; + return r ? c.num_vertices : 0; +} + +STBTT_DEF int stbtt_GetGlyphShape(const stbtt_fontinfo *info, int glyph_index, stbtt_vertex **pvertices) +{ + if (!info->cff.size) + return stbtt__GetGlyphShapeTT(info, glyph_index, pvertices); + else + return stbtt__GetGlyphShapeT2(info, glyph_index, pvertices); +} + +STBTT_DEF void stbtt_GetGlyphHMetrics(const stbtt_fontinfo *info, int glyph_index, int *advanceWidth, int *leftSideBearing) +{ + stbtt_uint16 numOfLongHorMetrics = ttUSHORT(info->data+info->hhea + 34); + if (glyph_index < numOfLongHorMetrics) { + if (advanceWidth) *advanceWidth = ttSHORT(info->data + info->hmtx + 4*glyph_index); + if (leftSideBearing) *leftSideBearing = ttSHORT(info->data + info->hmtx + 4*glyph_index + 2); + } else { + if (advanceWidth) *advanceWidth = ttSHORT(info->data + info->hmtx + 4*(numOfLongHorMetrics-1)); + if (leftSideBearing) *leftSideBearing = ttSHORT(info->data + info->hmtx + 4*numOfLongHorMetrics + 2*(glyph_index - numOfLongHorMetrics)); + } +} + +STBTT_DEF int stbtt_GetKerningTableLength(const stbtt_fontinfo *info) +{ + stbtt_uint8 *data = info->data + info->kern; + + // we only look at the first table. it must be 'horizontal' and format 0. + if (!info->kern) + return 0; + if (ttUSHORT(data+2) < 1) // number of tables, need at least 1 + return 0; + if (ttUSHORT(data+8) != 1) // horizontal flag must be set in format + return 0; + + return ttUSHORT(data+10); +} + +STBTT_DEF int stbtt_GetKerningTable(const stbtt_fontinfo *info, stbtt_kerningentry* table, int table_length) +{ + stbtt_uint8 *data = info->data + info->kern; + int k, length; + + // we only look at the first table. it must be 'horizontal' and format 0. + if (!info->kern) + return 0; + if (ttUSHORT(data+2) < 1) // number of tables, need at least 1 + return 0; + if (ttUSHORT(data+8) != 1) // horizontal flag must be set in format + return 0; + + length = ttUSHORT(data+10); + if (table_length < length) + length = table_length; + + for (k = 0; k < length; k++) + { + table[k].glyph1 = ttUSHORT(data+18+(k*6)); + table[k].glyph2 = ttUSHORT(data+20+(k*6)); + table[k].advance = ttSHORT(data+22+(k*6)); + } + + return length; +} + +static int stbtt__GetGlyphKernInfoAdvance(const stbtt_fontinfo *info, int glyph1, int glyph2) +{ + stbtt_uint8 *data = info->data + info->kern; + stbtt_uint32 needle, straw; + int l, r, m; + + // we only look at the first table. it must be 'horizontal' and format 0. + if (!info->kern) + return 0; + if (ttUSHORT(data+2) < 1) // number of tables, need at least 1 + return 0; + if (ttUSHORT(data+8) != 1) // horizontal flag must be set in format + return 0; + + l = 0; + r = ttUSHORT(data+10) - 1; + needle = glyph1 << 16 | glyph2; + while (l <= r) { + m = (l + r) >> 1; + straw = ttULONG(data+18+(m*6)); // note: unaligned read + if (needle < straw) + r = m - 1; + else if (needle > straw) + l = m + 1; + else + return ttSHORT(data+22+(m*6)); + } + return 0; +} + +static stbtt_int32 stbtt__GetCoverageIndex(stbtt_uint8 *coverageTable, int glyph) +{ + stbtt_uint16 coverageFormat = ttUSHORT(coverageTable); + switch (coverageFormat) { + case 1: { + stbtt_uint16 glyphCount = ttUSHORT(coverageTable + 2); + + // Binary search. + stbtt_int32 l=0, r=glyphCount-1, m; + int straw, needle=glyph; + while (l <= r) { + stbtt_uint8 *glyphArray = coverageTable + 4; + stbtt_uint16 glyphID; + m = (l + r) >> 1; + glyphID = ttUSHORT(glyphArray + 2 * m); + straw = glyphID; + if (needle < straw) + r = m - 1; + else if (needle > straw) + l = m + 1; + else { + return m; + } + } + break; + } + + case 2: { + stbtt_uint16 rangeCount = ttUSHORT(coverageTable + 2); + stbtt_uint8 *rangeArray = coverageTable + 4; + + // Binary search. + stbtt_int32 l=0, r=rangeCount-1, m; + int strawStart, strawEnd, needle=glyph; + while (l <= r) { + stbtt_uint8 *rangeRecord; + m = (l + r) >> 1; + rangeRecord = rangeArray + 6 * m; + strawStart = ttUSHORT(rangeRecord); + strawEnd = ttUSHORT(rangeRecord + 2); + if (needle < strawStart) + r = m - 1; + else if (needle > strawEnd) + l = m + 1; + else { + stbtt_uint16 startCoverageIndex = ttUSHORT(rangeRecord + 4); + return startCoverageIndex + glyph - strawStart; + } + } + break; + } + + default: return -1; // unsupported + } + + return -1; +} + +static stbtt_int32 stbtt__GetGlyphClass(stbtt_uint8 *classDefTable, int glyph) +{ + stbtt_uint16 classDefFormat = ttUSHORT(classDefTable); + switch (classDefFormat) + { + case 1: { + stbtt_uint16 startGlyphID = ttUSHORT(classDefTable + 2); + stbtt_uint16 glyphCount = ttUSHORT(classDefTable + 4); + stbtt_uint8 *classDef1ValueArray = classDefTable + 6; + + if (glyph >= startGlyphID && glyph < startGlyphID + glyphCount) + return (stbtt_int32)ttUSHORT(classDef1ValueArray + 2 * (glyph - startGlyphID)); + break; + } + + case 2: { + stbtt_uint16 classRangeCount = ttUSHORT(classDefTable + 2); + stbtt_uint8 *classRangeRecords = classDefTable + 4; + + // Binary search. + stbtt_int32 l=0, r=classRangeCount-1, m; + int strawStart, strawEnd, needle=glyph; + while (l <= r) { + stbtt_uint8 *classRangeRecord; + m = (l + r) >> 1; + classRangeRecord = classRangeRecords + 6 * m; + strawStart = ttUSHORT(classRangeRecord); + strawEnd = ttUSHORT(classRangeRecord + 2); + if (needle < strawStart) + r = m - 1; + else if (needle > strawEnd) + l = m + 1; + else + return (stbtt_int32)ttUSHORT(classRangeRecord + 4); + } + break; + } + + default: + return -1; // Unsupported definition type, return an error. + } + + // "All glyphs not assigned to a class fall into class 0". (OpenType spec) + return 0; +} + +// Define to STBTT_assert(x) if you want to break on unimplemented formats. +#define STBTT_GPOS_TODO_assert(x) + +static stbtt_int32 stbtt__GetGlyphGPOSInfoAdvance(const stbtt_fontinfo *info, int glyph1, int glyph2) +{ + stbtt_uint16 lookupListOffset; + stbtt_uint8 *lookupList; + stbtt_uint16 lookupCount; + stbtt_uint8 *data; + stbtt_int32 i, sti; + + if (!info->gpos) return 0; + + data = info->data + info->gpos; + + if (ttUSHORT(data+0) != 1) return 0; // Major version 1 + if (ttUSHORT(data+2) != 0) return 0; // Minor version 0 + + lookupListOffset = ttUSHORT(data+8); + lookupList = data + lookupListOffset; + lookupCount = ttUSHORT(lookupList); + + for (i=0; i<lookupCount; ++i) { + stbtt_uint16 lookupOffset = ttUSHORT(lookupList + 2 + 2 * i); + stbtt_uint8 *lookupTable = lookupList + lookupOffset; + + stbtt_uint16 lookupType = ttUSHORT(lookupTable); + stbtt_uint16 subTableCount = ttUSHORT(lookupTable + 4); + stbtt_uint8 *subTableOffsets = lookupTable + 6; + if (lookupType != 2) // Pair Adjustment Positioning Subtable + continue; + + for (sti=0; sti<subTableCount; sti++) { + stbtt_uint16 subtableOffset = ttUSHORT(subTableOffsets + 2 * sti); + stbtt_uint8 *table = lookupTable + subtableOffset; + stbtt_uint16 posFormat = ttUSHORT(table); + stbtt_uint16 coverageOffset = ttUSHORT(table + 2); + stbtt_int32 coverageIndex = stbtt__GetCoverageIndex(table + coverageOffset, glyph1); + if (coverageIndex == -1) continue; + + switch (posFormat) { + case 1: { + stbtt_int32 l, r, m; + int straw, needle; + stbtt_uint16 valueFormat1 = ttUSHORT(table + 4); + stbtt_uint16 valueFormat2 = ttUSHORT(table + 6); + if (valueFormat1 == 4 && valueFormat2 == 0) { // Support more formats? + stbtt_int32 valueRecordPairSizeInBytes = 2; + stbtt_uint16 pairSetCount = ttUSHORT(table + 8); + stbtt_uint16 pairPosOffset = ttUSHORT(table + 10 + 2 * coverageIndex); + stbtt_uint8 *pairValueTable = table + pairPosOffset; + stbtt_uint16 pairValueCount = ttUSHORT(pairValueTable); + stbtt_uint8 *pairValueArray = pairValueTable + 2; + + if (coverageIndex >= pairSetCount) return 0; + + needle=glyph2; + r=pairValueCount-1; + l=0; + + // Binary search. + while (l <= r) { + stbtt_uint16 secondGlyph; + stbtt_uint8 *pairValue; + m = (l + r) >> 1; + pairValue = pairValueArray + (2 + valueRecordPairSizeInBytes) * m; + secondGlyph = ttUSHORT(pairValue); + straw = secondGlyph; + if (needle < straw) + r = m - 1; + else if (needle > straw) + l = m + 1; + else { + stbtt_int16 xAdvance = ttSHORT(pairValue + 2); + return xAdvance; + } + } + } else + return 0; + break; + } + + case 2: { + stbtt_uint16 valueFormat1 = ttUSHORT(table + 4); + stbtt_uint16 valueFormat2 = ttUSHORT(table + 6); + if (valueFormat1 == 4 && valueFormat2 == 0) { // Support more formats? + stbtt_uint16 classDef1Offset = ttUSHORT(table + 8); + stbtt_uint16 classDef2Offset = ttUSHORT(table + 10); + int glyph1class = stbtt__GetGlyphClass(table + classDef1Offset, glyph1); + int glyph2class = stbtt__GetGlyphClass(table + classDef2Offset, glyph2); + + stbtt_uint16 class1Count = ttUSHORT(table + 12); + stbtt_uint16 class2Count = ttUSHORT(table + 14); + stbtt_uint8 *class1Records, *class2Records; + stbtt_int16 xAdvance; + + if (glyph1class < 0 || glyph1class >= class1Count) return 0; // malformed + if (glyph2class < 0 || glyph2class >= class2Count) return 0; // malformed + + class1Records = table + 16; + class2Records = class1Records + 2 * (glyph1class * class2Count); + xAdvance = ttSHORT(class2Records + 2 * glyph2class); + return xAdvance; + } else + return 0; + break; + } + + default: + return 0; // Unsupported position format + } + } + } + + return 0; +} + +STBTT_DEF int stbtt_GetGlyphKernAdvance(const stbtt_fontinfo *info, int g1, int g2) +{ + int xAdvance = 0; + + if (info->gpos) + xAdvance += stbtt__GetGlyphGPOSInfoAdvance(info, g1, g2); + else if (info->kern) + xAdvance += stbtt__GetGlyphKernInfoAdvance(info, g1, g2); + + return xAdvance; +} + +STBTT_DEF int stbtt_GetCodepointKernAdvance(const stbtt_fontinfo *info, int ch1, int ch2) +{ + if (!info->kern && !info->gpos) // if no kerning table, don't waste time looking up both codepoint->glyphs + return 0; + return stbtt_GetGlyphKernAdvance(info, stbtt_FindGlyphIndex(info,ch1), stbtt_FindGlyphIndex(info,ch2)); +} + +STBTT_DEF void stbtt_GetCodepointHMetrics(const stbtt_fontinfo *info, int codepoint, int *advanceWidth, int *leftSideBearing) +{ + stbtt_GetGlyphHMetrics(info, stbtt_FindGlyphIndex(info,codepoint), advanceWidth, leftSideBearing); +} + +STBTT_DEF void stbtt_GetFontVMetrics(const stbtt_fontinfo *info, int *ascent, int *descent, int *lineGap) +{ + if (ascent ) *ascent = ttSHORT(info->data+info->hhea + 4); + if (descent) *descent = ttSHORT(info->data+info->hhea + 6); + if (lineGap) *lineGap = ttSHORT(info->data+info->hhea + 8); +} + +STBTT_DEF int stbtt_GetFontVMetricsOS2(const stbtt_fontinfo *info, int *typoAscent, int *typoDescent, int *typoLineGap) +{ + int tab = stbtt__find_table(info->data, info->fontstart, "OS/2"); + if (!tab) + return 0; + if (typoAscent ) *typoAscent = ttSHORT(info->data+tab + 68); + if (typoDescent) *typoDescent = ttSHORT(info->data+tab + 70); + if (typoLineGap) *typoLineGap = ttSHORT(info->data+tab + 72); + return 1; +} + +STBTT_DEF void stbtt_GetFontBoundingBox(const stbtt_fontinfo *info, int *x0, int *y0, int *x1, int *y1) +{ + *x0 = ttSHORT(info->data + info->head + 36); + *y0 = ttSHORT(info->data + info->head + 38); + *x1 = ttSHORT(info->data + info->head + 40); + *y1 = ttSHORT(info->data + info->head + 42); +} + +STBTT_DEF float stbtt_ScaleForPixelHeight(const stbtt_fontinfo *info, float height) +{ + int fheight = ttSHORT(info->data + info->hhea + 4) - ttSHORT(info->data + info->hhea + 6); + return (float) height / fheight; +} + +STBTT_DEF float stbtt_ScaleForMappingEmToPixels(const stbtt_fontinfo *info, float pixels) +{ + int unitsPerEm = ttUSHORT(info->data + info->head + 18); + return pixels / unitsPerEm; +} + +STBTT_DEF void stbtt_FreeShape(const stbtt_fontinfo *info, stbtt_vertex *v) +{ + STBTT_free(v, info->userdata); +} + +STBTT_DEF stbtt_uint8 *stbtt_FindSVGDoc(const stbtt_fontinfo *info, int gl) +{ + int i; + stbtt_uint8 *data = info->data; + stbtt_uint8 *svg_doc_list = data + stbtt__get_svg((stbtt_fontinfo *) info); + + int numEntries = ttUSHORT(svg_doc_list); + stbtt_uint8 *svg_docs = svg_doc_list + 2; + + for(i=0; i<numEntries; i++) { + stbtt_uint8 *svg_doc = svg_docs + (12 * i); + if ((gl >= ttUSHORT(svg_doc)) && (gl <= ttUSHORT(svg_doc + 2))) + return svg_doc; + } + return 0; +} + +STBTT_DEF int stbtt_GetGlyphSVG(const stbtt_fontinfo *info, int gl, const char **svg) +{ + stbtt_uint8 *data = info->data; + stbtt_uint8 *svg_doc; + + if (info->svg == 0) + return 0; + + svg_doc = stbtt_FindSVGDoc(info, gl); + if (svg_doc != NULL) { + *svg = (char *) data + info->svg + ttULONG(svg_doc + 4); + return ttULONG(svg_doc + 8); + } else { + return 0; + } +} + +STBTT_DEF int stbtt_GetCodepointSVG(const stbtt_fontinfo *info, int unicode_codepoint, const char **svg) +{ + return stbtt_GetGlyphSVG(info, stbtt_FindGlyphIndex(info, unicode_codepoint), svg); +} + +////////////////////////////////////////////////////////////////////////////// +// +// antialiasing software rasterizer +// + +STBTT_DEF void stbtt_GetGlyphBitmapBoxSubpixel(const stbtt_fontinfo *font, int glyph, float scale_x, float scale_y,float shift_x, float shift_y, int *ix0, int *iy0, int *ix1, int *iy1) +{ + int x0=0,y0=0,x1,y1; // =0 suppresses compiler warning + if (!stbtt_GetGlyphBox(font, glyph, &x0,&y0,&x1,&y1)) { + // e.g. space character + if (ix0) *ix0 = 0; + if (iy0) *iy0 = 0; + if (ix1) *ix1 = 0; + if (iy1) *iy1 = 0; + } else { + // move to integral bboxes (treating pixels as little squares, what pixels get touched)? + if (ix0) *ix0 = STBTT_ifloor( x0 * scale_x + shift_x); + if (iy0) *iy0 = STBTT_ifloor(-y1 * scale_y + shift_y); + if (ix1) *ix1 = STBTT_iceil ( x1 * scale_x + shift_x); + if (iy1) *iy1 = STBTT_iceil (-y0 * scale_y + shift_y); + } +} + +STBTT_DEF void stbtt_GetGlyphBitmapBox(const stbtt_fontinfo *font, int glyph, float scale_x, float scale_y, int *ix0, int *iy0, int *ix1, int *iy1) +{ + stbtt_GetGlyphBitmapBoxSubpixel(font, glyph, scale_x, scale_y,0.0f,0.0f, ix0, iy0, ix1, iy1); +} + +STBTT_DEF void stbtt_GetCodepointBitmapBoxSubpixel(const stbtt_fontinfo *font, int codepoint, float scale_x, float scale_y, float shift_x, float shift_y, int *ix0, int *iy0, int *ix1, int *iy1) +{ + stbtt_GetGlyphBitmapBoxSubpixel(font, stbtt_FindGlyphIndex(font,codepoint), scale_x, scale_y,shift_x,shift_y, ix0,iy0,ix1,iy1); +} + +STBTT_DEF void stbtt_GetCodepointBitmapBox(const stbtt_fontinfo *font, int codepoint, float scale_x, float scale_y, int *ix0, int *iy0, int *ix1, int *iy1) +{ + stbtt_GetCodepointBitmapBoxSubpixel(font, codepoint, scale_x, scale_y,0.0f,0.0f, ix0,iy0,ix1,iy1); +} + +////////////////////////////////////////////////////////////////////////////// +// +// Rasterizer + +typedef struct stbtt__hheap_chunk +{ + struct stbtt__hheap_chunk *next; +} stbtt__hheap_chunk; + +typedef struct stbtt__hheap +{ + struct stbtt__hheap_chunk *head; + void *first_free; + int num_remaining_in_head_chunk; +} stbtt__hheap; + +static void *stbtt__hheap_alloc(stbtt__hheap *hh, size_t size, void *userdata) +{ + if (hh->first_free) { + void *p = hh->first_free; + hh->first_free = * (void **) p; + return p; + } else { + if (hh->num_remaining_in_head_chunk == 0) { + int count = (size < 32 ? 2000 : size < 128 ? 800 : 100); + stbtt__hheap_chunk *c = (stbtt__hheap_chunk *) STBTT_malloc(sizeof(stbtt__hheap_chunk) + size * count, userdata); + if (c == NULL) + return NULL; + c->next = hh->head; + hh->head = c; + hh->num_remaining_in_head_chunk = count; + } + --hh->num_remaining_in_head_chunk; + return (char *) (hh->head) + sizeof(stbtt__hheap_chunk) + size * hh->num_remaining_in_head_chunk; + } +} + +static void stbtt__hheap_free(stbtt__hheap *hh, void *p) +{ + *(void **) p = hh->first_free; + hh->first_free = p; +} + +static void stbtt__hheap_cleanup(stbtt__hheap *hh, void *userdata) +{ + stbtt__hheap_chunk *c = hh->head; + while (c) { + stbtt__hheap_chunk *n = c->next; + STBTT_free(c, userdata); + c = n; + } +} + +typedef struct stbtt__edge { + float x0,y0, x1,y1; + int invert; +} stbtt__edge; + + +typedef struct stbtt__active_edge +{ + struct stbtt__active_edge *next; + #if STBTT_RASTERIZER_VERSION==1 + int x,dx; + float ey; + int direction; + #elif STBTT_RASTERIZER_VERSION==2 + float fx,fdx,fdy; + float direction; + float sy; + float ey; + #else + #error "Unrecognized value of STBTT_RASTERIZER_VERSION" + #endif +} stbtt__active_edge; + +#if STBTT_RASTERIZER_VERSION == 1 +#define STBTT_FIXSHIFT 10 +#define STBTT_FIX (1 << STBTT_FIXSHIFT) +#define STBTT_FIXMASK (STBTT_FIX-1) + +static stbtt__active_edge *stbtt__new_active(stbtt__hheap *hh, stbtt__edge *e, int off_x, float start_point, void *userdata) +{ + stbtt__active_edge *z = (stbtt__active_edge *) stbtt__hheap_alloc(hh, sizeof(*z), userdata); + float dxdy = (e->x1 - e->x0) / (e->y1 - e->y0); + STBTT_assert(z != NULL); + if (!z) return z; + + // round dx down to avoid overshooting + if (dxdy < 0) + z->dx = -STBTT_ifloor(STBTT_FIX * -dxdy); + else + z->dx = STBTT_ifloor(STBTT_FIX * dxdy); + + z->x = STBTT_ifloor(STBTT_FIX * e->x0 + z->dx * (start_point - e->y0)); // use z->dx so when we offset later it's by the same amount + z->x -= off_x * STBTT_FIX; + + z->ey = e->y1; + z->next = 0; + z->direction = e->invert ? 1 : -1; + return z; +} +#elif STBTT_RASTERIZER_VERSION == 2 +static stbtt__active_edge *stbtt__new_active(stbtt__hheap *hh, stbtt__edge *e, int off_x, float start_point, void *userdata) +{ + stbtt__active_edge *z = (stbtt__active_edge *) stbtt__hheap_alloc(hh, sizeof(*z), userdata); + float dxdy = (e->x1 - e->x0) / (e->y1 - e->y0); + STBTT_assert(z != NULL); + //STBTT_assert(e->y0 <= start_point); + if (!z) return z; + z->fdx = dxdy; + z->fdy = dxdy != 0.0f ? (1.0f/dxdy) : 0.0f; + z->fx = e->x0 + dxdy * (start_point - e->y0); + z->fx -= off_x; + z->direction = e->invert ? 1.0f : -1.0f; + z->sy = e->y0; + z->ey = e->y1; + z->next = 0; + return z; +} +#else +#error "Unrecognized value of STBTT_RASTERIZER_VERSION" +#endif + +#if STBTT_RASTERIZER_VERSION == 1 +// note: this routine clips fills that extend off the edges... ideally this +// wouldn't happen, but it could happen if the truetype glyph bounding boxes +// are wrong, or if the user supplies a too-small bitmap +static void stbtt__fill_active_edges(unsigned char *scanline, int len, stbtt__active_edge *e, int max_weight) +{ + // non-zero winding fill + int x0=0, w=0; + + while (e) { + if (w == 0) { + // if we're currently at zero, we need to record the edge start point + x0 = e->x; w += e->direction; + } else { + int x1 = e->x; w += e->direction; + // if we went to zero, we need to draw + if (w == 0) { + int i = x0 >> STBTT_FIXSHIFT; + int j = x1 >> STBTT_FIXSHIFT; + + if (i < len && j >= 0) { + if (i == j) { + // x0,x1 are the same pixel, so compute combined coverage + scanline[i] = scanline[i] + (stbtt_uint8) ((x1 - x0) * max_weight >> STBTT_FIXSHIFT); + } else { + if (i >= 0) // add antialiasing for x0 + scanline[i] = scanline[i] + (stbtt_uint8) (((STBTT_FIX - (x0 & STBTT_FIXMASK)) * max_weight) >> STBTT_FIXSHIFT); + else + i = -1; // clip + + if (j < len) // add antialiasing for x1 + scanline[j] = scanline[j] + (stbtt_uint8) (((x1 & STBTT_FIXMASK) * max_weight) >> STBTT_FIXSHIFT); + else + j = len; // clip + + for (++i; i < j; ++i) // fill pixels between x0 and x1 + scanline[i] = scanline[i] + (stbtt_uint8) max_weight; + } + } + } + } + + e = e->next; + } +} + +static void stbtt__rasterize_sorted_edges(stbtt__bitmap *result, stbtt__edge *e, int n, int vsubsample, int off_x, int off_y, void *userdata) +{ + stbtt__hheap hh = { 0, 0, 0 }; + stbtt__active_edge *active = NULL; + int y,j=0; + int max_weight = (255 / vsubsample); // weight per vertical scanline + int s; // vertical subsample index + unsigned char scanline_data[512], *scanline; + + if (result->w > 512) + scanline = (unsigned char *) STBTT_malloc(result->w, userdata); + else + scanline = scanline_data; + + y = off_y * vsubsample; + e[n].y0 = (off_y + result->h) * (float) vsubsample + 1; + + while (j < result->h) { + STBTT_memset(scanline, 0, result->w); + for (s=0; s < vsubsample; ++s) { + // find center of pixel for this scanline + float scan_y = y + 0.5f; + stbtt__active_edge **step = &active; + + // update all active edges; + // remove all active edges that terminate before the center of this scanline + while (*step) { + stbtt__active_edge * z = *step; + if (z->ey <= scan_y) { + *step = z->next; // delete from list + STBTT_assert(z->direction); + z->direction = 0; + stbtt__hheap_free(&hh, z); + } else { + z->x += z->dx; // advance to position for current scanline + step = &((*step)->next); // advance through list + } + } + + // resort the list if needed + for(;;) { + int changed=0; + step = &active; + while (*step && (*step)->next) { + if ((*step)->x > (*step)->next->x) { + stbtt__active_edge *t = *step; + stbtt__active_edge *q = t->next; + + t->next = q->next; + q->next = t; + *step = q; + changed = 1; + } + step = &(*step)->next; + } + if (!changed) break; + } + + // insert all edges that start before the center of this scanline -- omit ones that also end on this scanline + while (e->y0 <= scan_y) { + if (e->y1 > scan_y) { + stbtt__active_edge *z = stbtt__new_active(&hh, e, off_x, scan_y, userdata); + if (z != NULL) { + // find insertion point + if (active == NULL) + active = z; + else if (z->x < active->x) { + // insert at front + z->next = active; + active = z; + } else { + // find thing to insert AFTER + stbtt__active_edge *p = active; + while (p->next && p->next->x < z->x) + p = p->next; + // at this point, p->next->x is NOT < z->x + z->next = p->next; + p->next = z; + } + } + } + ++e; + } + + // now process all active edges in XOR fashion + if (active) + stbtt__fill_active_edges(scanline, result->w, active, max_weight); + + ++y; + } + STBTT_memcpy(result->pixels + j * result->stride, scanline, result->w); + ++j; + } + + stbtt__hheap_cleanup(&hh, userdata); + + if (scanline != scanline_data) + STBTT_free(scanline, userdata); +} + +#elif STBTT_RASTERIZER_VERSION == 2 + +// the edge passed in here does not cross the vertical line at x or the vertical line at x+1 +// (i.e. it has already been clipped to those) +static void stbtt__handle_clipped_edge(float *scanline, int x, stbtt__active_edge *e, float x0, float y0, float x1, float y1) +{ + if (y0 == y1) return; + STBTT_assert(y0 < y1); + STBTT_assert(e->sy <= e->ey); + if (y0 > e->ey) return; + if (y1 < e->sy) return; + if (y0 < e->sy) { + x0 += (x1-x0) * (e->sy - y0) / (y1-y0); + y0 = e->sy; + } + if (y1 > e->ey) { + x1 += (x1-x0) * (e->ey - y1) / (y1-y0); + y1 = e->ey; + } + + if (x0 == x) + STBTT_assert(x1 <= x+1); + else if (x0 == x+1) + STBTT_assert(x1 >= x); + else if (x0 <= x) + STBTT_assert(x1 <= x); + else if (x0 >= x+1) + STBTT_assert(x1 >= x+1); + else + STBTT_assert(x1 >= x && x1 <= x+1); + + if (x0 <= x && x1 <= x) + scanline[x] += e->direction * (y1-y0); + else if (x0 >= x+1 && x1 >= x+1) + ; + else { + STBTT_assert(x0 >= x && x0 <= x+1 && x1 >= x && x1 <= x+1); + scanline[x] += e->direction * (y1-y0) * (1-((x0-x)+(x1-x))/2); // coverage = 1 - average x position + } +} + +static float stbtt__sized_trapezoid_area(float height, float top_width, float bottom_width) +{ + STBTT_assert(top_width >= 0); + STBTT_assert(bottom_width >= 0); + return (top_width + bottom_width) / 2.0f * height; +} + +static float stbtt__position_trapezoid_area(float height, float tx0, float tx1, float bx0, float bx1) +{ + return stbtt__sized_trapezoid_area(height, tx1 - tx0, bx1 - bx0); +} + +static float stbtt__sized_triangle_area(float height, float width) +{ + return height * width / 2; +} + +static void stbtt__fill_active_edges_new(float *scanline, float *scanline_fill, int len, stbtt__active_edge *e, float y_top) +{ + float y_bottom = y_top+1; + + while (e) { + // brute force every pixel + + // compute intersection points with top & bottom + STBTT_assert(e->ey >= y_top); + + if (e->fdx == 0) { + float x0 = e->fx; + if (x0 < len) { + if (x0 >= 0) { + stbtt__handle_clipped_edge(scanline,(int) x0,e, x0,y_top, x0,y_bottom); + stbtt__handle_clipped_edge(scanline_fill-1,(int) x0+1,e, x0,y_top, x0,y_bottom); + } else { + stbtt__handle_clipped_edge(scanline_fill-1,0,e, x0,y_top, x0,y_bottom); + } + } + } else { + float x0 = e->fx; + float dx = e->fdx; + float xb = x0 + dx; + float x_top, x_bottom; + float sy0,sy1; + float dy = e->fdy; + STBTT_assert(e->sy <= y_bottom && e->ey >= y_top); + + // compute endpoints of line segment clipped to this scanline (if the + // line segment starts on this scanline. x0 is the intersection of the + // line with y_top, but that may be off the line segment. + if (e->sy > y_top) { + x_top = x0 + dx * (e->sy - y_top); + sy0 = e->sy; + } else { + x_top = x0; + sy0 = y_top; + } + if (e->ey < y_bottom) { + x_bottom = x0 + dx * (e->ey - y_top); + sy1 = e->ey; + } else { + x_bottom = xb; + sy1 = y_bottom; + } + + if (x_top >= 0 && x_bottom >= 0 && x_top < len && x_bottom < len) { + // from here on, we don't have to range check x values + + if ((int) x_top == (int) x_bottom) { + float height; + // simple case, only spans one pixel + int x = (int) x_top; + height = (sy1 - sy0) * e->direction; + STBTT_assert(x >= 0 && x < len); + scanline[x] += stbtt__position_trapezoid_area(height, x_top, x+1.0f, x_bottom, x+1.0f); + scanline_fill[x] += height; // everything right of this pixel is filled + } else { + int x,x1,x2; + float y_crossing, y_final, step, sign, area; + // covers 2+ pixels + if (x_top > x_bottom) { + // flip scanline vertically; signed area is the same + float t; + sy0 = y_bottom - (sy0 - y_top); + sy1 = y_bottom - (sy1 - y_top); + t = sy0, sy0 = sy1, sy1 = t; + t = x_bottom, x_bottom = x_top, x_top = t; + dx = -dx; + dy = -dy; + t = x0, x0 = xb, xb = t; + } + STBTT_assert(dy >= 0); + STBTT_assert(dx >= 0); + + x1 = (int) x_top; + x2 = (int) x_bottom; + // compute intersection with y axis at x1+1 + y_crossing = y_top + dy * (x1+1 - x0); + + // compute intersection with y axis at x2 + y_final = y_top + dy * (x2 - x0); + + // x1 x_top x2 x_bottom + // y_top +------|-----+------------+------------+--------|---+------------+ + // | | | | | | + // | | | | | | + // sy0 | Txxxxx|............|............|............|............| + // y_crossing | *xxxxx.......|............|............|............| + // | | xxxxx..|............|............|............| + // | | /- xx*xxxx........|............|............| + // | | dy < | xxxxxx..|............|............| + // y_final | | \- | xx*xxx.........|............| + // sy1 | | | | xxxxxB...|............| + // | | | | | | + // | | | | | | + // y_bottom +------------+------------+------------+------------+------------+ + // + // goal is to measure the area covered by '.' in each pixel + + // if x2 is right at the right edge of x1, y_crossing can blow up, github #1057 + // @TODO: maybe test against sy1 rather than y_bottom? + if (y_crossing > y_bottom) + y_crossing = y_bottom; + + sign = e->direction; + + // area of the rectangle covered from sy0..y_crossing + area = sign * (y_crossing-sy0); + + // area of the triangle (x_top,sy0), (x1+1,sy0), (x1+1,y_crossing) + scanline[x1] += stbtt__sized_triangle_area(area, x1+1 - x_top); + + // check if final y_crossing is blown up; no test case for this + if (y_final > y_bottom) { + y_final = y_bottom; + dy = (y_final - y_crossing ) / (x2 - (x1+1)); // if denom=0, y_final = y_crossing, so y_final <= y_bottom + } + + // in second pixel, area covered by line segment found in first pixel + // is always a rectangle 1 wide * the height of that line segment; this + // is exactly what the variable 'area' stores. it also gets a contribution + // from the line segment within it. the THIRD pixel will get the first + // pixel's rectangle contribution, the second pixel's rectangle contribution, + // and its own contribution. the 'own contribution' is the same in every pixel except + // the leftmost and rightmost, a trapezoid that slides down in each pixel. + // the second pixel's contribution to the third pixel will be the + // rectangle 1 wide times the height change in the second pixel, which is dy. + + step = sign * dy * 1; // dy is dy/dx, change in y for every 1 change in x, + // which multiplied by 1-pixel-width is how much pixel area changes for each step in x + // so the area advances by 'step' every time + + for (x = x1+1; x < x2; ++x) { + scanline[x] += area + step/2; // area of trapezoid is 1*step/2 + area += step; + } + STBTT_assert(STBTT_fabs(area) <= 1.01f); // accumulated error from area += step unless we round step down + STBTT_assert(sy1 > y_final-0.01f); + + // area covered in the last pixel is the rectangle from all the pixels to the left, + // plus the trapezoid filled by the line segment in this pixel all the way to the right edge + scanline[x2] += area + sign * stbtt__position_trapezoid_area(sy1-y_final, (float) x2, x2+1.0f, x_bottom, x2+1.0f); + + // the rest of the line is filled based on the total height of the line segment in this pixel + scanline_fill[x2] += sign * (sy1-sy0); + } + } else { + // if edge goes outside of box we're drawing, we require + // clipping logic. since this does not match the intended use + // of this library, we use a different, very slow brute + // force implementation + // note though that this does happen some of the time because + // x_top and x_bottom can be extrapolated at the top & bottom of + // the shape and actually lie outside the bounding box + int x; + for (x=0; x < len; ++x) { + // cases: + // + // there can be up to two intersections with the pixel. any intersection + // with left or right edges can be handled by splitting into two (or three) + // regions. intersections with top & bottom do not necessitate case-wise logic. + // + // the old way of doing this found the intersections with the left & right edges, + // then used some simple logic to produce up to three segments in sorted order + // from top-to-bottom. however, this had a problem: if an x edge was epsilon + // across the x border, then the corresponding y position might not be distinct + // from the other y segment, and it might ignored as an empty segment. to avoid + // that, we need to explicitly produce segments based on x positions. + + // rename variables to clearly-defined pairs + float y0 = y_top; + float x1 = (float) (x); + float x2 = (float) (x+1); + float x3 = xb; + float y3 = y_bottom; + + // x = e->x + e->dx * (y-y_top) + // (y-y_top) = (x - e->x) / e->dx + // y = (x - e->x) / e->dx + y_top + float y1 = (x - x0) / dx + y_top; + float y2 = (x+1 - x0) / dx + y_top; + + if (x0 < x1 && x3 > x2) { // three segments descending down-right + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x1,y1); + stbtt__handle_clipped_edge(scanline,x,e, x1,y1, x2,y2); + stbtt__handle_clipped_edge(scanline,x,e, x2,y2, x3,y3); + } else if (x3 < x1 && x0 > x2) { // three segments descending down-left + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x2,y2); + stbtt__handle_clipped_edge(scanline,x,e, x2,y2, x1,y1); + stbtt__handle_clipped_edge(scanline,x,e, x1,y1, x3,y3); + } else if (x0 < x1 && x3 > x1) { // two segments across x, down-right + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x1,y1); + stbtt__handle_clipped_edge(scanline,x,e, x1,y1, x3,y3); + } else if (x3 < x1 && x0 > x1) { // two segments across x, down-left + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x1,y1); + stbtt__handle_clipped_edge(scanline,x,e, x1,y1, x3,y3); + } else if (x0 < x2 && x3 > x2) { // two segments across x+1, down-right + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x2,y2); + stbtt__handle_clipped_edge(scanline,x,e, x2,y2, x3,y3); + } else if (x3 < x2 && x0 > x2) { // two segments across x+1, down-left + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x2,y2); + stbtt__handle_clipped_edge(scanline,x,e, x2,y2, x3,y3); + } else { // one segment + stbtt__handle_clipped_edge(scanline,x,e, x0,y0, x3,y3); + } + } + } + } + e = e->next; + } +} + +// directly AA rasterize edges w/o supersampling +static void stbtt__rasterize_sorted_edges(stbtt__bitmap *result, stbtt__edge *e, int n, int vsubsample, int off_x, int off_y, void *userdata) +{ + stbtt__hheap hh = { 0, 0, 0 }; + stbtt__active_edge *active = NULL; + int y,j=0, i; + float scanline_data[129], *scanline, *scanline2; + + STBTT__NOTUSED(vsubsample); + + if (result->w > 64) + scanline = (float *) STBTT_malloc((result->w*2+1) * sizeof(float), userdata); + else + scanline = scanline_data; + + scanline2 = scanline + result->w; + + y = off_y; + e[n].y0 = (float) (off_y + result->h) + 1; + + while (j < result->h) { + // find center of pixel for this scanline + float scan_y_top = y + 0.0f; + float scan_y_bottom = y + 1.0f; + stbtt__active_edge **step = &active; + + STBTT_memset(scanline , 0, result->w*sizeof(scanline[0])); + STBTT_memset(scanline2, 0, (result->w+1)*sizeof(scanline[0])); + + // update all active edges; + // remove all active edges that terminate before the top of this scanline + while (*step) { + stbtt__active_edge * z = *step; + if (z->ey <= scan_y_top) { + *step = z->next; // delete from list + STBTT_assert(z->direction); + z->direction = 0; + stbtt__hheap_free(&hh, z); + } else { + step = &((*step)->next); // advance through list + } + } + + // insert all edges that start before the bottom of this scanline + while (e->y0 <= scan_y_bottom) { + if (e->y0 != e->y1) { + stbtt__active_edge *z = stbtt__new_active(&hh, e, off_x, scan_y_top, userdata); + if (z != NULL) { + if (j == 0 && off_y != 0) { + if (z->ey < scan_y_top) { + // this can happen due to subpixel positioning and some kind of fp rounding error i think + z->ey = scan_y_top; + } + } + STBTT_assert(z->ey >= scan_y_top); // if we get really unlucky a tiny bit of an edge can be out of bounds + // insert at front + z->next = active; + active = z; + } + } + ++e; + } + + // now process all active edges + if (active) + stbtt__fill_active_edges_new(scanline, scanline2+1, result->w, active, scan_y_top); + + { + float sum = 0; + for (i=0; i < result->w; ++i) { + float k; + int m; + sum += scanline2[i]; + k = scanline[i] + sum; + k = (float) STBTT_fabs(k)*255 + 0.5f; + m = (int) k; + if (m > 255) m = 255; + result->pixels[j*result->stride + i] = (unsigned char) m; + } + } + // advance all the edges + step = &active; + while (*step) { + stbtt__active_edge *z = *step; + z->fx += z->fdx; // advance to position for current scanline + step = &((*step)->next); // advance through list + } + + ++y; + ++j; + } + + stbtt__hheap_cleanup(&hh, userdata); + + if (scanline != scanline_data) + STBTT_free(scanline, userdata); +} +#else +#error "Unrecognized value of STBTT_RASTERIZER_VERSION" +#endif + +#define STBTT__COMPARE(a,b) ((a)->y0 < (b)->y0) + +static void stbtt__sort_edges_ins_sort(stbtt__edge *p, int n) +{ + int i,j; + for (i=1; i < n; ++i) { + stbtt__edge t = p[i], *a = &t; + j = i; + while (j > 0) { + stbtt__edge *b = &p[j-1]; + int c = STBTT__COMPARE(a,b); + if (!c) break; + p[j] = p[j-1]; + --j; + } + if (i != j) + p[j] = t; + } +} + +static void stbtt__sort_edges_quicksort(stbtt__edge *p, int n) +{ + /* threshold for transitioning to insertion sort */ + while (n > 12) { + stbtt__edge t; + int c01,c12,c,m,i,j; + + /* compute median of three */ + m = n >> 1; + c01 = STBTT__COMPARE(&p[0],&p[m]); + c12 = STBTT__COMPARE(&p[m],&p[n-1]); + /* if 0 >= mid >= end, or 0 < mid < end, then use mid */ + if (c01 != c12) { + /* otherwise, we'll need to swap something else to middle */ + int z; + c = STBTT__COMPARE(&p[0],&p[n-1]); + /* 0>mid && mid<n: 0>n => n; 0<n => 0 */ + /* 0<mid && mid>n: 0>n => 0; 0<n => n */ + z = (c == c12) ? 0 : n-1; + t = p[z]; + p[z] = p[m]; + p[m] = t; + } + /* now p[m] is the median-of-three */ + /* swap it to the beginning so it won't move around */ + t = p[0]; + p[0] = p[m]; + p[m] = t; + + /* partition loop */ + i=1; + j=n-1; + for(;;) { + /* handling of equality is crucial here */ + /* for sentinels & efficiency with duplicates */ + for (;;++i) { + if (!STBTT__COMPARE(&p[i], &p[0])) break; + } + for (;;--j) { + if (!STBTT__COMPARE(&p[0], &p[j])) break; + } + /* make sure we haven't crossed */ + if (i >= j) break; + t = p[i]; + p[i] = p[j]; + p[j] = t; + + ++i; + --j; + } + /* recurse on smaller side, iterate on larger */ + if (j < (n-i)) { + stbtt__sort_edges_quicksort(p,j); + p = p+i; + n = n-i; + } else { + stbtt__sort_edges_quicksort(p+i, n-i); + n = j; + } + } +} + +static void stbtt__sort_edges(stbtt__edge *p, int n) +{ + stbtt__sort_edges_quicksort(p, n); + stbtt__sort_edges_ins_sort(p, n); +} + +typedef struct +{ + float x,y; +} stbtt__point; + +static void stbtt__rasterize(stbtt__bitmap *result, stbtt__point *pts, int *wcount, int windings, float scale_x, float scale_y, float shift_x, float shift_y, int off_x, int off_y, int invert, void *userdata) +{ + float y_scale_inv = invert ? -scale_y : scale_y; + stbtt__edge *e; + int n,i,j,k,m; +#if STBTT_RASTERIZER_VERSION == 1 + int vsubsample = result->h < 8 ? 15 : 5; +#elif STBTT_RASTERIZER_VERSION == 2 + int vsubsample = 1; +#else + #error "Unrecognized value of STBTT_RASTERIZER_VERSION" +#endif + // vsubsample should divide 255 evenly; otherwise we won't reach full opacity + + // now we have to blow out the windings into explicit edge lists + n = 0; + for (i=0; i < windings; ++i) + n += wcount[i]; + + e = (stbtt__edge *) STBTT_malloc(sizeof(*e) * (n+1), userdata); // add an extra one as a sentinel + if (e == 0) return; + n = 0; + + m=0; + for (i=0; i < windings; ++i) { + stbtt__point *p = pts + m; + m += wcount[i]; + j = wcount[i]-1; + for (k=0; k < wcount[i]; j=k++) { + int a=k,b=j; + // skip the edge if horizontal + if (p[j].y == p[k].y) + continue; + // add edge from j to k to the list + e[n].invert = 0; + if (invert ? p[j].y > p[k].y : p[j].y < p[k].y) { + e[n].invert = 1; + a=j,b=k; + } + e[n].x0 = p[a].x * scale_x + shift_x; + e[n].y0 = (p[a].y * y_scale_inv + shift_y) * vsubsample; + e[n].x1 = p[b].x * scale_x + shift_x; + e[n].y1 = (p[b].y * y_scale_inv + shift_y) * vsubsample; + ++n; + } + } + + // now sort the edges by their highest point (should snap to integer, and then by x) + //STBTT_sort(e, n, sizeof(e[0]), stbtt__edge_compare); + stbtt__sort_edges(e, n); + + // now, traverse the scanlines and find the intersections on each scanline, use xor winding rule + stbtt__rasterize_sorted_edges(result, e, n, vsubsample, off_x, off_y, userdata); + + STBTT_free(e, userdata); +} + +static void stbtt__add_point(stbtt__point *points, int n, float x, float y) +{ + if (!points) return; // during first pass, it's unallocated + points[n].x = x; + points[n].y = y; +} + +// tessellate until threshold p is happy... @TODO warped to compensate for non-linear stretching +static int stbtt__tesselate_curve(stbtt__point *points, int *num_points, float x0, float y0, float x1, float y1, float x2, float y2, float objspace_flatness_squared, int n) +{ + // midpoint + float mx = (x0 + 2*x1 + x2)/4; + float my = (y0 + 2*y1 + y2)/4; + // versus directly drawn line + float dx = (x0+x2)/2 - mx; + float dy = (y0+y2)/2 - my; + if (n > 16) // 65536 segments on one curve better be enough! + return 1; + if (dx*dx+dy*dy > objspace_flatness_squared) { // half-pixel error allowed... need to be smaller if AA + stbtt__tesselate_curve(points, num_points, x0,y0, (x0+x1)/2.0f,(y0+y1)/2.0f, mx,my, objspace_flatness_squared,n+1); + stbtt__tesselate_curve(points, num_points, mx,my, (x1+x2)/2.0f,(y1+y2)/2.0f, x2,y2, objspace_flatness_squared,n+1); + } else { + stbtt__add_point(points, *num_points,x2,y2); + *num_points = *num_points+1; + } + return 1; +} + +static void stbtt__tesselate_cubic(stbtt__point *points, int *num_points, float x0, float y0, float x1, float y1, float x2, float y2, float x3, float y3, float objspace_flatness_squared, int n) +{ + // @TODO this "flatness" calculation is just made-up nonsense that seems to work well enough + float dx0 = x1-x0; + float dy0 = y1-y0; + float dx1 = x2-x1; + float dy1 = y2-y1; + float dx2 = x3-x2; + float dy2 = y3-y2; + float dx = x3-x0; + float dy = y3-y0; + float longlen = (float) (STBTT_sqrt(dx0*dx0+dy0*dy0)+STBTT_sqrt(dx1*dx1+dy1*dy1)+STBTT_sqrt(dx2*dx2+dy2*dy2)); + float shortlen = (float) STBTT_sqrt(dx*dx+dy*dy); + float flatness_squared = longlen*longlen-shortlen*shortlen; + + if (n > 16) // 65536 segments on one curve better be enough! + return; + + if (flatness_squared > objspace_flatness_squared) { + float x01 = (x0+x1)/2; + float y01 = (y0+y1)/2; + float x12 = (x1+x2)/2; + float y12 = (y1+y2)/2; + float x23 = (x2+x3)/2; + float y23 = (y2+y3)/2; + + float xa = (x01+x12)/2; + float ya = (y01+y12)/2; + float xb = (x12+x23)/2; + float yb = (y12+y23)/2; + + float mx = (xa+xb)/2; + float my = (ya+yb)/2; + + stbtt__tesselate_cubic(points, num_points, x0,y0, x01,y01, xa,ya, mx,my, objspace_flatness_squared,n+1); + stbtt__tesselate_cubic(points, num_points, mx,my, xb,yb, x23,y23, x3,y3, objspace_flatness_squared,n+1); + } else { + stbtt__add_point(points, *num_points,x3,y3); + *num_points = *num_points+1; + } +} + +// returns number of contours +static stbtt__point *stbtt_FlattenCurves(stbtt_vertex *vertices, int num_verts, float objspace_flatness, int **contour_lengths, int *num_contours, void *userdata) +{ + stbtt__point *points=0; + int num_points=0; + + float objspace_flatness_squared = objspace_flatness * objspace_flatness; + int i,n=0,start=0, pass; + + // count how many "moves" there are to get the contour count + for (i=0; i < num_verts; ++i) + if (vertices[i].type == STBTT_vmove) + ++n; + + *num_contours = n; + if (n == 0) return 0; + + *contour_lengths = (int *) STBTT_malloc(sizeof(**contour_lengths) * n, userdata); + + if (*contour_lengths == 0) { + *num_contours = 0; + return 0; + } + + // make two passes through the points so we don't need to realloc + for (pass=0; pass < 2; ++pass) { + float x=0,y=0; + if (pass == 1) { + points = (stbtt__point *) STBTT_malloc(num_points * sizeof(points[0]), userdata); + if (points == NULL) goto error; + } + num_points = 0; + n= -1; + for (i=0; i < num_verts; ++i) { + switch (vertices[i].type) { + case STBTT_vmove: + // start the next contour + if (n >= 0) + (*contour_lengths)[n] = num_points - start; + ++n; + start = num_points; + + x = vertices[i].x, y = vertices[i].y; + stbtt__add_point(points, num_points++, x,y); + break; + case STBTT_vline: + x = vertices[i].x, y = vertices[i].y; + stbtt__add_point(points, num_points++, x, y); + break; + case STBTT_vcurve: + stbtt__tesselate_curve(points, &num_points, x,y, + vertices[i].cx, vertices[i].cy, + vertices[i].x, vertices[i].y, + objspace_flatness_squared, 0); + x = vertices[i].x, y = vertices[i].y; + break; + case STBTT_vcubic: + stbtt__tesselate_cubic(points, &num_points, x,y, + vertices[i].cx, vertices[i].cy, + vertices[i].cx1, vertices[i].cy1, + vertices[i].x, vertices[i].y, + objspace_flatness_squared, 0); + x = vertices[i].x, y = vertices[i].y; + break; + } + } + (*contour_lengths)[n] = num_points - start; + } + + return points; +error: + STBTT_free(points, userdata); + STBTT_free(*contour_lengths, userdata); + *contour_lengths = 0; + *num_contours = 0; + return NULL; +} + +STBTT_DEF void stbtt_Rasterize(stbtt__bitmap *result, float flatness_in_pixels, stbtt_vertex *vertices, int num_verts, float scale_x, float scale_y, float shift_x, float shift_y, int x_off, int y_off, int invert, void *userdata) +{ + float scale = scale_x > scale_y ? scale_y : scale_x; + int winding_count = 0; + int *winding_lengths = NULL; + stbtt__point *windings = stbtt_FlattenCurves(vertices, num_verts, flatness_in_pixels / scale, &winding_lengths, &winding_count, userdata); + if (windings) { + stbtt__rasterize(result, windings, winding_lengths, winding_count, scale_x, scale_y, shift_x, shift_y, x_off, y_off, invert, userdata); + STBTT_free(winding_lengths, userdata); + STBTT_free(windings, userdata); + } +} + +STBTT_DEF void stbtt_FreeBitmap(unsigned char *bitmap, void *userdata) +{ + STBTT_free(bitmap, userdata); +} + +STBTT_DEF unsigned char *stbtt_GetGlyphBitmapSubpixel(const stbtt_fontinfo *info, float scale_x, float scale_y, float shift_x, float shift_y, int glyph, int *width, int *height, int *xoff, int *yoff) +{ + int ix0,iy0,ix1,iy1; + stbtt__bitmap gbm; + stbtt_vertex *vertices; + int num_verts = stbtt_GetGlyphShape(info, glyph, &vertices); + + if (scale_x == 0) scale_x = scale_y; + if (scale_y == 0) { + if (scale_x == 0) { + STBTT_free(vertices, info->userdata); + return NULL; + } + scale_y = scale_x; + } + + stbtt_GetGlyphBitmapBoxSubpixel(info, glyph, scale_x, scale_y, shift_x, shift_y, &ix0,&iy0,&ix1,&iy1); + + // now we get the size + gbm.w = (ix1 - ix0); + gbm.h = (iy1 - iy0); + gbm.pixels = NULL; // in case we error + + if (width ) *width = gbm.w; + if (height) *height = gbm.h; + if (xoff ) *xoff = ix0; + if (yoff ) *yoff = iy0; + + if (gbm.w && gbm.h) { + gbm.pixels = (unsigned char *) STBTT_malloc(gbm.w * gbm.h, info->userdata); + if (gbm.pixels) { + gbm.stride = gbm.w; + + stbtt_Rasterize(&gbm, 0.35f, vertices, num_verts, scale_x, scale_y, shift_x, shift_y, ix0, iy0, 1, info->userdata); + } + } + STBTT_free(vertices, info->userdata); + return gbm.pixels; +} + +STBTT_DEF unsigned char *stbtt_GetGlyphBitmap(const stbtt_fontinfo *info, float scale_x, float scale_y, int glyph, int *width, int *height, int *xoff, int *yoff) +{ + return stbtt_GetGlyphBitmapSubpixel(info, scale_x, scale_y, 0.0f, 0.0f, glyph, width, height, xoff, yoff); +} + +STBTT_DEF void stbtt_MakeGlyphBitmapSubpixel(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int glyph) +{ + int ix0,iy0; + stbtt_vertex *vertices; + int num_verts = stbtt_GetGlyphShape(info, glyph, &vertices); + stbtt__bitmap gbm; + + stbtt_GetGlyphBitmapBoxSubpixel(info, glyph, scale_x, scale_y, shift_x, shift_y, &ix0,&iy0,0,0); + gbm.pixels = output; + gbm.w = out_w; + gbm.h = out_h; + gbm.stride = out_stride; + + if (gbm.w && gbm.h) + stbtt_Rasterize(&gbm, 0.35f, vertices, num_verts, scale_x, scale_y, shift_x, shift_y, ix0,iy0, 1, info->userdata); + + STBTT_free(vertices, info->userdata); +} + +STBTT_DEF void stbtt_MakeGlyphBitmap(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, int glyph) +{ + stbtt_MakeGlyphBitmapSubpixel(info, output, out_w, out_h, out_stride, scale_x, scale_y, 0.0f,0.0f, glyph); +} + +STBTT_DEF unsigned char *stbtt_GetCodepointBitmapSubpixel(const stbtt_fontinfo *info, float scale_x, float scale_y, float shift_x, float shift_y, int codepoint, int *width, int *height, int *xoff, int *yoff) +{ + return stbtt_GetGlyphBitmapSubpixel(info, scale_x, scale_y,shift_x,shift_y, stbtt_FindGlyphIndex(info,codepoint), width,height,xoff,yoff); +} + +STBTT_DEF void stbtt_MakeCodepointBitmapSubpixelPrefilter(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int oversample_x, int oversample_y, float *sub_x, float *sub_y, int codepoint) +{ + stbtt_MakeGlyphBitmapSubpixelPrefilter(info, output, out_w, out_h, out_stride, scale_x, scale_y, shift_x, shift_y, oversample_x, oversample_y, sub_x, sub_y, stbtt_FindGlyphIndex(info,codepoint)); +} + +STBTT_DEF void stbtt_MakeCodepointBitmapSubpixel(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int codepoint) +{ + stbtt_MakeGlyphBitmapSubpixel(info, output, out_w, out_h, out_stride, scale_x, scale_y, shift_x, shift_y, stbtt_FindGlyphIndex(info,codepoint)); +} + +STBTT_DEF unsigned char *stbtt_GetCodepointBitmap(const stbtt_fontinfo *info, float scale_x, float scale_y, int codepoint, int *width, int *height, int *xoff, int *yoff) +{ + return stbtt_GetCodepointBitmapSubpixel(info, scale_x, scale_y, 0.0f,0.0f, codepoint, width,height,xoff,yoff); +} + +STBTT_DEF void stbtt_MakeCodepointBitmap(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, int codepoint) +{ + stbtt_MakeCodepointBitmapSubpixel(info, output, out_w, out_h, out_stride, scale_x, scale_y, 0.0f,0.0f, codepoint); +} + +////////////////////////////////////////////////////////////////////////////// +// +// bitmap baking +// +// This is SUPER-CRAPPY packing to keep source code small + +static int stbtt_BakeFontBitmap_internal(unsigned char *data, int offset, // font location (use offset=0 for plain .ttf) + float pixel_height, // height of font in pixels + unsigned char *pixels, int pw, int ph, // bitmap to be filled in + int first_char, int num_chars, // characters to bake + stbtt_bakedchar *chardata) +{ + float scale; + int x,y,bottom_y, i; + stbtt_fontinfo f; + f.userdata = NULL; + if (!stbtt_InitFont(&f, data, offset)) + return -1; + STBTT_memset(pixels, 0, pw*ph); // background of 0 around pixels + x=y=1; + bottom_y = 1; + + scale = stbtt_ScaleForPixelHeight(&f, pixel_height); + + for (i=0; i < num_chars; ++i) { + int advance, lsb, x0,y0,x1,y1,gw,gh; + int g = stbtt_FindGlyphIndex(&f, first_char + i); + stbtt_GetGlyphHMetrics(&f, g, &advance, &lsb); + stbtt_GetGlyphBitmapBox(&f, g, scale,scale, &x0,&y0,&x1,&y1); + gw = x1-x0; + gh = y1-y0; + if (x + gw + 1 >= pw) + y = bottom_y, x = 1; // advance to next row + if (y + gh + 1 >= ph) // check if it fits vertically AFTER potentially moving to next row + return -i; + STBTT_assert(x+gw < pw); + STBTT_assert(y+gh < ph); + stbtt_MakeGlyphBitmap(&f, pixels+x+y*pw, gw,gh,pw, scale,scale, g); + chardata[i].x0 = (stbtt_int16) x; + chardata[i].y0 = (stbtt_int16) y; + chardata[i].x1 = (stbtt_int16) (x + gw); + chardata[i].y1 = (stbtt_int16) (y + gh); + chardata[i].xadvance = scale * advance; + chardata[i].xoff = (float) x0; + chardata[i].yoff = (float) y0; + x = x + gw + 1; + if (y+gh+1 > bottom_y) + bottom_y = y+gh+1; + } + return bottom_y; +} + +STBTT_DEF void stbtt_GetBakedQuad(const stbtt_bakedchar *chardata, int pw, int ph, int char_index, float *xpos, float *ypos, stbtt_aligned_quad *q, int opengl_fillrule) +{ + float d3d_bias = opengl_fillrule ? 0 : -0.5f; + float ipw = 1.0f / pw, iph = 1.0f / ph; + const stbtt_bakedchar *b = chardata + char_index; + int round_x = STBTT_ifloor((*xpos + b->xoff) + 0.5f); + int round_y = STBTT_ifloor((*ypos + b->yoff) + 0.5f); + + q->x0 = round_x + d3d_bias; + q->y0 = round_y + d3d_bias; + q->x1 = round_x + b->x1 - b->x0 + d3d_bias; + q->y1 = round_y + b->y1 - b->y0 + d3d_bias; + + q->s0 = b->x0 * ipw; + q->t0 = b->y0 * iph; + q->s1 = b->x1 * ipw; + q->t1 = b->y1 * iph; + + *xpos += b->xadvance; +} + +////////////////////////////////////////////////////////////////////////////// +// +// rectangle packing replacement routines if you don't have stb_rect_pack.h +// + +#ifndef STB_RECT_PACK_VERSION + +typedef int stbrp_coord; + +//////////////////////////////////////////////////////////////////////////////////// +// // +// // +// COMPILER WARNING ?!?!? // +// // +// // +// if you get a compile warning due to these symbols being defined more than // +// once, move #include "stb_rect_pack.h" before #include "stb_truetype.h" // +// // +//////////////////////////////////////////////////////////////////////////////////// + +typedef struct +{ + int width,height; + int x,y,bottom_y; +} stbrp_context; + +typedef struct +{ + unsigned char x; +} stbrp_node; + +struct stbrp_rect +{ + stbrp_coord x,y; + int id,w,h,was_packed; +}; + +static void stbrp_init_target(stbrp_context *con, int pw, int ph, stbrp_node *nodes, int num_nodes) +{ + con->width = pw; + con->height = ph; + con->x = 0; + con->y = 0; + con->bottom_y = 0; + STBTT__NOTUSED(nodes); + STBTT__NOTUSED(num_nodes); +} + +static void stbrp_pack_rects(stbrp_context *con, stbrp_rect *rects, int num_rects) +{ + int i; + for (i=0; i < num_rects; ++i) { + if (con->x + rects[i].w > con->width) { + con->x = 0; + con->y = con->bottom_y; + } + if (con->y + rects[i].h > con->height) + break; + rects[i].x = con->x; + rects[i].y = con->y; + rects[i].was_packed = 1; + con->x += rects[i].w; + if (con->y + rects[i].h > con->bottom_y) + con->bottom_y = con->y + rects[i].h; + } + for ( ; i < num_rects; ++i) + rects[i].was_packed = 0; +} +#endif + +////////////////////////////////////////////////////////////////////////////// +// +// bitmap baking +// +// This is SUPER-AWESOME (tm Ryan Gordon) packing using stb_rect_pack.h. If +// stb_rect_pack.h isn't available, it uses the BakeFontBitmap strategy. + +STBTT_DEF int stbtt_PackBegin(stbtt_pack_context *spc, unsigned char *pixels, int pw, int ph, int stride_in_bytes, int padding, void *alloc_context) +{ + stbrp_context *context = (stbrp_context *) STBTT_malloc(sizeof(*context) ,alloc_context); + int num_nodes = pw - padding; + stbrp_node *nodes = (stbrp_node *) STBTT_malloc(sizeof(*nodes ) * num_nodes,alloc_context); + + if (context == NULL || nodes == NULL) { + if (context != NULL) STBTT_free(context, alloc_context); + if (nodes != NULL) STBTT_free(nodes , alloc_context); + return 0; + } + + spc->user_allocator_context = alloc_context; + spc->width = pw; + spc->height = ph; + spc->pixels = pixels; + spc->pack_info = context; + spc->nodes = nodes; + spc->padding = padding; + spc->stride_in_bytes = stride_in_bytes != 0 ? stride_in_bytes : pw; + spc->h_oversample = 1; + spc->v_oversample = 1; + spc->skip_missing = 0; + + stbrp_init_target(context, pw-padding, ph-padding, nodes, num_nodes); + + if (pixels) + STBTT_memset(pixels, 0, pw*ph); // background of 0 around pixels + + return 1; +} + +STBTT_DEF void stbtt_PackEnd (stbtt_pack_context *spc) +{ + STBTT_free(spc->nodes , spc->user_allocator_context); + STBTT_free(spc->pack_info, spc->user_allocator_context); +} + +STBTT_DEF void stbtt_PackSetOversampling(stbtt_pack_context *spc, unsigned int h_oversample, unsigned int v_oversample) +{ + STBTT_assert(h_oversample <= STBTT_MAX_OVERSAMPLE); + STBTT_assert(v_oversample <= STBTT_MAX_OVERSAMPLE); + if (h_oversample <= STBTT_MAX_OVERSAMPLE) + spc->h_oversample = h_oversample; + if (v_oversample <= STBTT_MAX_OVERSAMPLE) + spc->v_oversample = v_oversample; +} + +STBTT_DEF void stbtt_PackSetSkipMissingCodepoints(stbtt_pack_context *spc, int skip) +{ + spc->skip_missing = skip; +} + +#define STBTT__OVER_MASK (STBTT_MAX_OVERSAMPLE-1) + +static void stbtt__h_prefilter(unsigned char *pixels, int w, int h, int stride_in_bytes, unsigned int kernel_width) +{ + unsigned char buffer[STBTT_MAX_OVERSAMPLE]; + int safe_w = w - kernel_width; + int j; + STBTT_memset(buffer, 0, STBTT_MAX_OVERSAMPLE); // suppress bogus warning from VS2013 -analyze + for (j=0; j < h; ++j) { + int i; + unsigned int total; + STBTT_memset(buffer, 0, kernel_width); + + total = 0; + + // make kernel_width a constant in common cases so compiler can optimize out the divide + switch (kernel_width) { + case 2: + for (i=0; i <= safe_w; ++i) { + total += pixels[i] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i]; + pixels[i] = (unsigned char) (total / 2); + } + break; + case 3: + for (i=0; i <= safe_w; ++i) { + total += pixels[i] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i]; + pixels[i] = (unsigned char) (total / 3); + } + break; + case 4: + for (i=0; i <= safe_w; ++i) { + total += pixels[i] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i]; + pixels[i] = (unsigned char) (total / 4); + } + break; + case 5: + for (i=0; i <= safe_w; ++i) { + total += pixels[i] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i]; + pixels[i] = (unsigned char) (total / 5); + } + break; + default: + for (i=0; i <= safe_w; ++i) { + total += pixels[i] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i]; + pixels[i] = (unsigned char) (total / kernel_width); + } + break; + } + + for (; i < w; ++i) { + STBTT_assert(pixels[i] == 0); + total -= buffer[i & STBTT__OVER_MASK]; + pixels[i] = (unsigned char) (total / kernel_width); + } + + pixels += stride_in_bytes; + } +} + +static void stbtt__v_prefilter(unsigned char *pixels, int w, int h, int stride_in_bytes, unsigned int kernel_width) +{ + unsigned char buffer[STBTT_MAX_OVERSAMPLE]; + int safe_h = h - kernel_width; + int j; + STBTT_memset(buffer, 0, STBTT_MAX_OVERSAMPLE); // suppress bogus warning from VS2013 -analyze + for (j=0; j < w; ++j) { + int i; + unsigned int total; + STBTT_memset(buffer, 0, kernel_width); + + total = 0; + + // make kernel_width a constant in common cases so compiler can optimize out the divide + switch (kernel_width) { + case 2: + for (i=0; i <= safe_h; ++i) { + total += pixels[i*stride_in_bytes] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i*stride_in_bytes]; + pixels[i*stride_in_bytes] = (unsigned char) (total / 2); + } + break; + case 3: + for (i=0; i <= safe_h; ++i) { + total += pixels[i*stride_in_bytes] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i*stride_in_bytes]; + pixels[i*stride_in_bytes] = (unsigned char) (total / 3); + } + break; + case 4: + for (i=0; i <= safe_h; ++i) { + total += pixels[i*stride_in_bytes] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i*stride_in_bytes]; + pixels[i*stride_in_bytes] = (unsigned char) (total / 4); + } + break; + case 5: + for (i=0; i <= safe_h; ++i) { + total += pixels[i*stride_in_bytes] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i*stride_in_bytes]; + pixels[i*stride_in_bytes] = (unsigned char) (total / 5); + } + break; + default: + for (i=0; i <= safe_h; ++i) { + total += pixels[i*stride_in_bytes] - buffer[i & STBTT__OVER_MASK]; + buffer[(i+kernel_width) & STBTT__OVER_MASK] = pixels[i*stride_in_bytes]; + pixels[i*stride_in_bytes] = (unsigned char) (total / kernel_width); + } + break; + } + + for (; i < h; ++i) { + STBTT_assert(pixels[i*stride_in_bytes] == 0); + total -= buffer[i & STBTT__OVER_MASK]; + pixels[i*stride_in_bytes] = (unsigned char) (total / kernel_width); + } + + pixels += 1; + } +} + +static float stbtt__oversample_shift(int oversample) +{ + if (!oversample) + return 0.0f; + + // The prefilter is a box filter of width "oversample", + // which shifts phase by (oversample - 1)/2 pixels in + // oversampled space. We want to shift in the opposite + // direction to counter this. + return (float)-(oversample - 1) / (2.0f * (float)oversample); +} + +// rects array must be big enough to accommodate all characters in the given ranges +STBTT_DEF int stbtt_PackFontRangesGatherRects(stbtt_pack_context *spc, const stbtt_fontinfo *info, stbtt_pack_range *ranges, int num_ranges, stbrp_rect *rects) +{ + int i,j,k; + int missing_glyph_added = 0; + + k=0; + for (i=0; i < num_ranges; ++i) { + float fh = ranges[i].font_size; + float scale = fh > 0 ? stbtt_ScaleForPixelHeight(info, fh) : stbtt_ScaleForMappingEmToPixels(info, -fh); + ranges[i].h_oversample = (unsigned char) spc->h_oversample; + ranges[i].v_oversample = (unsigned char) spc->v_oversample; + for (j=0; j < ranges[i].num_chars; ++j) { + int x0,y0,x1,y1; + int codepoint = ranges[i].array_of_unicode_codepoints == NULL ? ranges[i].first_unicode_codepoint_in_range + j : ranges[i].array_of_unicode_codepoints[j]; + int glyph = stbtt_FindGlyphIndex(info, codepoint); + if (glyph == 0 && (spc->skip_missing || missing_glyph_added)) { + rects[k].w = rects[k].h = 0; + } else { + stbtt_GetGlyphBitmapBoxSubpixel(info,glyph, + scale * spc->h_oversample, + scale * spc->v_oversample, + 0,0, + &x0,&y0,&x1,&y1); + rects[k].w = (stbrp_coord) (x1-x0 + spc->padding + spc->h_oversample-1); + rects[k].h = (stbrp_coord) (y1-y0 + spc->padding + spc->v_oversample-1); + if (glyph == 0) + missing_glyph_added = 1; + } + ++k; + } + } + + return k; +} + +STBTT_DEF void stbtt_MakeGlyphBitmapSubpixelPrefilter(const stbtt_fontinfo *info, unsigned char *output, int out_w, int out_h, int out_stride, float scale_x, float scale_y, float shift_x, float shift_y, int prefilter_x, int prefilter_y, float *sub_x, float *sub_y, int glyph) +{ + stbtt_MakeGlyphBitmapSubpixel(info, + output, + out_w - (prefilter_x - 1), + out_h - (prefilter_y - 1), + out_stride, + scale_x, + scale_y, + shift_x, + shift_y, + glyph); + + if (prefilter_x > 1) + stbtt__h_prefilter(output, out_w, out_h, out_stride, prefilter_x); + + if (prefilter_y > 1) + stbtt__v_prefilter(output, out_w, out_h, out_stride, prefilter_y); + + *sub_x = stbtt__oversample_shift(prefilter_x); + *sub_y = stbtt__oversample_shift(prefilter_y); +} + +// rects array must be big enough to accommodate all characters in the given ranges +STBTT_DEF int stbtt_PackFontRangesRenderIntoRects(stbtt_pack_context *spc, const stbtt_fontinfo *info, stbtt_pack_range *ranges, int num_ranges, stbrp_rect *rects) +{ + int i,j,k, missing_glyph = -1, return_value = 1; + + // save current values + int old_h_over = spc->h_oversample; + int old_v_over = spc->v_oversample; + + k = 0; + for (i=0; i < num_ranges; ++i) { + float fh = ranges[i].font_size; + float scale = fh > 0 ? stbtt_ScaleForPixelHeight(info, fh) : stbtt_ScaleForMappingEmToPixels(info, -fh); + float recip_h,recip_v,sub_x,sub_y; + spc->h_oversample = ranges[i].h_oversample; + spc->v_oversample = ranges[i].v_oversample; + recip_h = 1.0f / spc->h_oversample; + recip_v = 1.0f / spc->v_oversample; + sub_x = stbtt__oversample_shift(spc->h_oversample); + sub_y = stbtt__oversample_shift(spc->v_oversample); + for (j=0; j < ranges[i].num_chars; ++j) { + stbrp_rect *r = &rects[k]; + if (r->was_packed && r->w != 0 && r->h != 0) { + stbtt_packedchar *bc = &ranges[i].chardata_for_range[j]; + int advance, lsb, x0,y0,x1,y1; + int codepoint = ranges[i].array_of_unicode_codepoints == NULL ? ranges[i].first_unicode_codepoint_in_range + j : ranges[i].array_of_unicode_codepoints[j]; + int glyph = stbtt_FindGlyphIndex(info, codepoint); + stbrp_coord pad = (stbrp_coord) spc->padding; + + // pad on left and top + r->x += pad; + r->y += pad; + r->w -= pad; + r->h -= pad; + stbtt_GetGlyphHMetrics(info, glyph, &advance, &lsb); + stbtt_GetGlyphBitmapBox(info, glyph, + scale * spc->h_oversample, + scale * spc->v_oversample, + &x0,&y0,&x1,&y1); + stbtt_MakeGlyphBitmapSubpixel(info, + spc->pixels + r->x + r->y*spc->stride_in_bytes, + r->w - spc->h_oversample+1, + r->h - spc->v_oversample+1, + spc->stride_in_bytes, + scale * spc->h_oversample, + scale * spc->v_oversample, + 0,0, + glyph); + + if (spc->h_oversample > 1) + stbtt__h_prefilter(spc->pixels + r->x + r->y*spc->stride_in_bytes, + r->w, r->h, spc->stride_in_bytes, + spc->h_oversample); + + if (spc->v_oversample > 1) + stbtt__v_prefilter(spc->pixels + r->x + r->y*spc->stride_in_bytes, + r->w, r->h, spc->stride_in_bytes, + spc->v_oversample); + + bc->x0 = (stbtt_int16) r->x; + bc->y0 = (stbtt_int16) r->y; + bc->x1 = (stbtt_int16) (r->x + r->w); + bc->y1 = (stbtt_int16) (r->y + r->h); + bc->xadvance = scale * advance; + bc->xoff = (float) x0 * recip_h + sub_x; + bc->yoff = (float) y0 * recip_v + sub_y; + bc->xoff2 = (x0 + r->w) * recip_h + sub_x; + bc->yoff2 = (y0 + r->h) * recip_v + sub_y; + + if (glyph == 0) + missing_glyph = j; + } else if (spc->skip_missing) { + return_value = 0; + } else if (r->was_packed && r->w == 0 && r->h == 0 && missing_glyph >= 0) { + ranges[i].chardata_for_range[j] = ranges[i].chardata_for_range[missing_glyph]; + } else { + return_value = 0; // if any fail, report failure + } + + ++k; + } + } + + // restore original values + spc->h_oversample = old_h_over; + spc->v_oversample = old_v_over; + + return return_value; +} + +STBTT_DEF void stbtt_PackFontRangesPackRects(stbtt_pack_context *spc, stbrp_rect *rects, int num_rects) +{ + stbrp_pack_rects((stbrp_context *) spc->pack_info, rects, num_rects); +} + +STBTT_DEF int stbtt_PackFontRanges(stbtt_pack_context *spc, const unsigned char *fontdata, int font_index, stbtt_pack_range *ranges, int num_ranges) +{ + stbtt_fontinfo info; + int i,j,n, return_value = 1; + //stbrp_context *context = (stbrp_context *) spc->pack_info; + stbrp_rect *rects; + + // flag all characters as NOT packed + for (i=0; i < num_ranges; ++i) + for (j=0; j < ranges[i].num_chars; ++j) + ranges[i].chardata_for_range[j].x0 = + ranges[i].chardata_for_range[j].y0 = + ranges[i].chardata_for_range[j].x1 = + ranges[i].chardata_for_range[j].y1 = 0; + + n = 0; + for (i=0; i < num_ranges; ++i) + n += ranges[i].num_chars; + + rects = (stbrp_rect *) STBTT_malloc(sizeof(*rects) * n, spc->user_allocator_context); + if (rects == NULL) + return 0; + + info.userdata = spc->user_allocator_context; + stbtt_InitFont(&info, fontdata, stbtt_GetFontOffsetForIndex(fontdata,font_index)); + + n = stbtt_PackFontRangesGatherRects(spc, &info, ranges, num_ranges, rects); + + stbtt_PackFontRangesPackRects(spc, rects, n); + + return_value = stbtt_PackFontRangesRenderIntoRects(spc, &info, ranges, num_ranges, rects); + + STBTT_free(rects, spc->user_allocator_context); + return return_value; +} + +STBTT_DEF int stbtt_PackFontRange(stbtt_pack_context *spc, const unsigned char *fontdata, int font_index, float font_size, + int first_unicode_codepoint_in_range, int num_chars_in_range, stbtt_packedchar *chardata_for_range) +{ + stbtt_pack_range range; + range.first_unicode_codepoint_in_range = first_unicode_codepoint_in_range; + range.array_of_unicode_codepoints = NULL; + range.num_chars = num_chars_in_range; + range.chardata_for_range = chardata_for_range; + range.font_size = font_size; + return stbtt_PackFontRanges(spc, fontdata, font_index, &range, 1); +} + +STBTT_DEF void stbtt_GetScaledFontVMetrics(const unsigned char *fontdata, int index, float size, float *ascent, float *descent, float *lineGap) +{ + int i_ascent, i_descent, i_lineGap; + float scale; + stbtt_fontinfo info; + stbtt_InitFont(&info, fontdata, stbtt_GetFontOffsetForIndex(fontdata, index)); + scale = size > 0 ? stbtt_ScaleForPixelHeight(&info, size) : stbtt_ScaleForMappingEmToPixels(&info, -size); + stbtt_GetFontVMetrics(&info, &i_ascent, &i_descent, &i_lineGap); + *ascent = (float) i_ascent * scale; + *descent = (float) i_descent * scale; + *lineGap = (float) i_lineGap * scale; +} + +STBTT_DEF void stbtt_GetPackedQuad(const stbtt_packedchar *chardata, int pw, int ph, int char_index, float *xpos, float *ypos, stbtt_aligned_quad *q, int align_to_integer) +{ + float ipw = 1.0f / pw, iph = 1.0f / ph; + const stbtt_packedchar *b = chardata + char_index; + + if (align_to_integer) { + float x = (float) STBTT_ifloor((*xpos + b->xoff) + 0.5f); + float y = (float) STBTT_ifloor((*ypos + b->yoff) + 0.5f); + q->x0 = x; + q->y0 = y; + q->x1 = x + b->xoff2 - b->xoff; + q->y1 = y + b->yoff2 - b->yoff; + } else { + q->x0 = *xpos + b->xoff; + q->y0 = *ypos + b->yoff; + q->x1 = *xpos + b->xoff2; + q->y1 = *ypos + b->yoff2; + } + + q->s0 = b->x0 * ipw; + q->t0 = b->y0 * iph; + q->s1 = b->x1 * ipw; + q->t1 = b->y1 * iph; + + *xpos += b->xadvance; +} + +////////////////////////////////////////////////////////////////////////////// +// +// sdf computation +// + +#define STBTT_min(a,b) ((a) < (b) ? (a) : (b)) +#define STBTT_max(a,b) ((a) < (b) ? (b) : (a)) + +static int stbtt__ray_intersect_bezier(float orig[2], float ray[2], float q0[2], float q1[2], float q2[2], float hits[2][2]) +{ + float q0perp = q0[1]*ray[0] - q0[0]*ray[1]; + float q1perp = q1[1]*ray[0] - q1[0]*ray[1]; + float q2perp = q2[1]*ray[0] - q2[0]*ray[1]; + float roperp = orig[1]*ray[0] - orig[0]*ray[1]; + + float a = q0perp - 2*q1perp + q2perp; + float b = q1perp - q0perp; + float c = q0perp - roperp; + + float s0 = 0., s1 = 0.; + int num_s = 0; + + if (a != 0.0) { + float discr = b*b - a*c; + if (discr > 0.0) { + float rcpna = -1 / a; + float d = (float) STBTT_sqrt(discr); + s0 = (b+d) * rcpna; + s1 = (b-d) * rcpna; + if (s0 >= 0.0 && s0 <= 1.0) + num_s = 1; + if (d > 0.0 && s1 >= 0.0 && s1 <= 1.0) { + if (num_s == 0) s0 = s1; + ++num_s; + } + } + } else { + // 2*b*s + c = 0 + // s = -c / (2*b) + s0 = c / (-2 * b); + if (s0 >= 0.0 && s0 <= 1.0) + num_s = 1; + } + + if (num_s == 0) + return 0; + else { + float rcp_len2 = 1 / (ray[0]*ray[0] + ray[1]*ray[1]); + float rayn_x = ray[0] * rcp_len2, rayn_y = ray[1] * rcp_len2; + + float q0d = q0[0]*rayn_x + q0[1]*rayn_y; + float q1d = q1[0]*rayn_x + q1[1]*rayn_y; + float q2d = q2[0]*rayn_x + q2[1]*rayn_y; + float rod = orig[0]*rayn_x + orig[1]*rayn_y; + + float q10d = q1d - q0d; + float q20d = q2d - q0d; + float q0rd = q0d - rod; + + hits[0][0] = q0rd + s0*(2.0f - 2.0f*s0)*q10d + s0*s0*q20d; + hits[0][1] = a*s0+b; + + if (num_s > 1) { + hits[1][0] = q0rd + s1*(2.0f - 2.0f*s1)*q10d + s1*s1*q20d; + hits[1][1] = a*s1+b; + return 2; + } else { + return 1; + } + } +} + +static int equal(float *a, float *b) +{ + return (a[0] == b[0] && a[1] == b[1]); +} + +static int stbtt__compute_crossings_x(float x, float y, int nverts, stbtt_vertex *verts) +{ + int i; + float orig[2], ray[2] = { 1, 0 }; + float y_frac; + int winding = 0; + + // make sure y never passes through a vertex of the shape + y_frac = (float) STBTT_fmod(y, 1.0f); + if (y_frac < 0.01f) + y += 0.01f; + else if (y_frac > 0.99f) + y -= 0.01f; + + orig[0] = x; + orig[1] = y; + + // test a ray from (-infinity,y) to (x,y) + for (i=0; i < nverts; ++i) { + if (verts[i].type == STBTT_vline) { + int x0 = (int) verts[i-1].x, y0 = (int) verts[i-1].y; + int x1 = (int) verts[i ].x, y1 = (int) verts[i ].y; + if (y > STBTT_min(y0,y1) && y < STBTT_max(y0,y1) && x > STBTT_min(x0,x1)) { + float x_inter = (y - y0) / (y1 - y0) * (x1-x0) + x0; + if (x_inter < x) + winding += (y0 < y1) ? 1 : -1; + } + } + if (verts[i].type == STBTT_vcurve) { + int x0 = (int) verts[i-1].x , y0 = (int) verts[i-1].y ; + int x1 = (int) verts[i ].cx, y1 = (int) verts[i ].cy; + int x2 = (int) verts[i ].x , y2 = (int) verts[i ].y ; + int ax = STBTT_min(x0,STBTT_min(x1,x2)), ay = STBTT_min(y0,STBTT_min(y1,y2)); + int by = STBTT_max(y0,STBTT_max(y1,y2)); + if (y > ay && y < by && x > ax) { + float q0[2],q1[2],q2[2]; + float hits[2][2]; + q0[0] = (float)x0; + q0[1] = (float)y0; + q1[0] = (float)x1; + q1[1] = (float)y1; + q2[0] = (float)x2; + q2[1] = (float)y2; + if (equal(q0,q1) || equal(q1,q2)) { + x0 = (int)verts[i-1].x; + y0 = (int)verts[i-1].y; + x1 = (int)verts[i ].x; + y1 = (int)verts[i ].y; + if (y > STBTT_min(y0,y1) && y < STBTT_max(y0,y1) && x > STBTT_min(x0,x1)) { + float x_inter = (y - y0) / (y1 - y0) * (x1-x0) + x0; + if (x_inter < x) + winding += (y0 < y1) ? 1 : -1; + } + } else { + int num_hits = stbtt__ray_intersect_bezier(orig, ray, q0, q1, q2, hits); + if (num_hits >= 1) + if (hits[0][0] < 0) + winding += (hits[0][1] < 0 ? -1 : 1); + if (num_hits >= 2) + if (hits[1][0] < 0) + winding += (hits[1][1] < 0 ? -1 : 1); + } + } + } + } + return winding; +} + +static float stbtt__cuberoot( float x ) +{ + if (x<0) + return -(float) STBTT_pow(-x,1.0f/3.0f); + else + return (float) STBTT_pow( x,1.0f/3.0f); +} + +// x^3 + a*x^2 + b*x + c = 0 +static int stbtt__solve_cubic(float a, float b, float c, float* r) +{ + float s = -a / 3; + float p = b - a*a / 3; + float q = a * (2*a*a - 9*b) / 27 + c; + float p3 = p*p*p; + float d = q*q + 4*p3 / 27; + if (d >= 0) { + float z = (float) STBTT_sqrt(d); + float u = (-q + z) / 2; + float v = (-q - z) / 2; + u = stbtt__cuberoot(u); + v = stbtt__cuberoot(v); + r[0] = s + u + v; + return 1; + } else { + float u = (float) STBTT_sqrt(-p/3); + float v = (float) STBTT_acos(-STBTT_sqrt(-27/p3) * q / 2) / 3; // p3 must be negative, since d is negative + float m = (float) STBTT_cos(v); + float n = (float) STBTT_cos(v-3.141592/2)*1.732050808f; + r[0] = s + u * 2 * m; + r[1] = s - u * (m + n); + r[2] = s - u * (m - n); + + //STBTT_assert( STBTT_fabs(((r[0]+a)*r[0]+b)*r[0]+c) < 0.05f); // these asserts may not be safe at all scales, though they're in bezier t parameter units so maybe? + //STBTT_assert( STBTT_fabs(((r[1]+a)*r[1]+b)*r[1]+c) < 0.05f); + //STBTT_assert( STBTT_fabs(((r[2]+a)*r[2]+b)*r[2]+c) < 0.05f); + return 3; + } +} + +STBTT_DEF unsigned char * stbtt_GetGlyphSDF(const stbtt_fontinfo *info, float scale, int glyph, int padding, unsigned char onedge_value, float pixel_dist_scale, int *width, int *height, int *xoff, int *yoff) +{ + float scale_x = scale, scale_y = scale; + int ix0,iy0,ix1,iy1; + int w,h; + unsigned char *data; + + if (scale == 0) return NULL; + + stbtt_GetGlyphBitmapBoxSubpixel(info, glyph, scale, scale, 0.0f,0.0f, &ix0,&iy0,&ix1,&iy1); + + // if empty, return NULL + if (ix0 == ix1 || iy0 == iy1) + return NULL; + + ix0 -= padding; + iy0 -= padding; + ix1 += padding; + iy1 += padding; + + w = (ix1 - ix0); + h = (iy1 - iy0); + + if (width ) *width = w; + if (height) *height = h; + if (xoff ) *xoff = ix0; + if (yoff ) *yoff = iy0; + + // invert for y-downwards bitmaps + scale_y = -scale_y; + + { + // distance from singular values (in the same units as the pixel grid) + const float eps = 1./1024, eps2 = eps*eps; + int x,y,i,j; + float *precompute; + stbtt_vertex *verts; + int num_verts = stbtt_GetGlyphShape(info, glyph, &verts); + data = (unsigned char *) STBTT_malloc(w * h, info->userdata); + precompute = (float *) STBTT_malloc(num_verts * sizeof(float), info->userdata); + + for (i=0,j=num_verts-1; i < num_verts; j=i++) { + if (verts[i].type == STBTT_vline) { + float x0 = verts[i].x*scale_x, y0 = verts[i].y*scale_y; + float x1 = verts[j].x*scale_x, y1 = verts[j].y*scale_y; + float dist = (float) STBTT_sqrt((x1-x0)*(x1-x0) + (y1-y0)*(y1-y0)); + precompute[i] = (dist < eps) ? 0.0f : 1.0f / dist; + } else if (verts[i].type == STBTT_vcurve) { + float x2 = verts[j].x *scale_x, y2 = verts[j].y *scale_y; + float x1 = verts[i].cx*scale_x, y1 = verts[i].cy*scale_y; + float x0 = verts[i].x *scale_x, y0 = verts[i].y *scale_y; + float bx = x0 - 2*x1 + x2, by = y0 - 2*y1 + y2; + float len2 = bx*bx + by*by; + if (len2 >= eps2) + precompute[i] = 1.0f / len2; + else + precompute[i] = 0.0f; + } else + precompute[i] = 0.0f; + } + + for (y=iy0; y < iy1; ++y) { + for (x=ix0; x < ix1; ++x) { + float val; + float min_dist = 999999.0f; + float sx = (float) x + 0.5f; + float sy = (float) y + 0.5f; + float x_gspace = (sx / scale_x); + float y_gspace = (sy / scale_y); + + int winding = stbtt__compute_crossings_x(x_gspace, y_gspace, num_verts, verts); // @OPTIMIZE: this could just be a rasterization, but needs to be line vs. non-tesselated curves so a new path + + for (i=0; i < num_verts; ++i) { + float x0 = verts[i].x*scale_x, y0 = verts[i].y*scale_y; + + if (verts[i].type == STBTT_vline && precompute[i] != 0.0f) { + float x1 = verts[i-1].x*scale_x, y1 = verts[i-1].y*scale_y; + + float dist,dist2 = (x0-sx)*(x0-sx) + (y0-sy)*(y0-sy); + if (dist2 < min_dist*min_dist) + min_dist = (float) STBTT_sqrt(dist2); + + // coarse culling against bbox + //if (sx > STBTT_min(x0,x1)-min_dist && sx < STBTT_max(x0,x1)+min_dist && + // sy > STBTT_min(y0,y1)-min_dist && sy < STBTT_max(y0,y1)+min_dist) + dist = (float) STBTT_fabs((x1-x0)*(y0-sy) - (y1-y0)*(x0-sx)) * precompute[i]; + STBTT_assert(i != 0); + if (dist < min_dist) { + // check position along line + // x' = x0 + t*(x1-x0), y' = y0 + t*(y1-y0) + // minimize (x'-sx)*(x'-sx)+(y'-sy)*(y'-sy) + float dx = x1-x0, dy = y1-y0; + float px = x0-sx, py = y0-sy; + // minimize (px+t*dx)^2 + (py+t*dy)^2 = px*px + 2*px*dx*t + t^2*dx*dx + py*py + 2*py*dy*t + t^2*dy*dy + // derivative: 2*px*dx + 2*py*dy + (2*dx*dx+2*dy*dy)*t, set to 0 and solve + float t = -(px*dx + py*dy) / (dx*dx + dy*dy); + if (t >= 0.0f && t <= 1.0f) + min_dist = dist; + } + } else if (verts[i].type == STBTT_vcurve) { + float x2 = verts[i-1].x *scale_x, y2 = verts[i-1].y *scale_y; + float x1 = verts[i ].cx*scale_x, y1 = verts[i ].cy*scale_y; + float box_x0 = STBTT_min(STBTT_min(x0,x1),x2); + float box_y0 = STBTT_min(STBTT_min(y0,y1),y2); + float box_x1 = STBTT_max(STBTT_max(x0,x1),x2); + float box_y1 = STBTT_max(STBTT_max(y0,y1),y2); + // coarse culling against bbox to avoid computing cubic unnecessarily + if (sx > box_x0-min_dist && sx < box_x1+min_dist && sy > box_y0-min_dist && sy < box_y1+min_dist) { + int num=0; + float ax = x1-x0, ay = y1-y0; + float bx = x0 - 2*x1 + x2, by = y0 - 2*y1 + y2; + float mx = x0 - sx, my = y0 - sy; + float res[3] = {0.f,0.f,0.f}; + float px,py,t,it,dist2; + float a_inv = precompute[i]; + if (a_inv == 0.0) { // if a_inv is 0, it's 2nd degree so use quadratic formula + float a = 3*(ax*bx + ay*by); + float b = 2*(ax*ax + ay*ay) + (mx*bx+my*by); + float c = mx*ax+my*ay; + if (STBTT_fabs(a) < eps2) { // if a is 0, it's linear + if (STBTT_fabs(b) >= eps2) { + res[num++] = -c/b; + } + } else { + float discriminant = b*b - 4*a*c; + if (discriminant < 0) + num = 0; + else { + float root = (float) STBTT_sqrt(discriminant); + res[0] = (-b - root)/(2*a); + res[1] = (-b + root)/(2*a); + num = 2; // don't bother distinguishing 1-solution case, as code below will still work + } + } + } else { + float b = 3*(ax*bx + ay*by) * a_inv; // could precompute this as it doesn't depend on sample point + float c = (2*(ax*ax + ay*ay) + (mx*bx+my*by)) * a_inv; + float d = (mx*ax+my*ay) * a_inv; + num = stbtt__solve_cubic(b, c, d, res); + } + dist2 = (x0-sx)*(x0-sx) + (y0-sy)*(y0-sy); + if (dist2 < min_dist*min_dist) + min_dist = (float) STBTT_sqrt(dist2); + + if (num >= 1 && res[0] >= 0.0f && res[0] <= 1.0f) { + t = res[0], it = 1.0f - t; + px = it*it*x0 + 2*t*it*x1 + t*t*x2; + py = it*it*y0 + 2*t*it*y1 + t*t*y2; + dist2 = (px-sx)*(px-sx) + (py-sy)*(py-sy); + if (dist2 < min_dist * min_dist) + min_dist = (float) STBTT_sqrt(dist2); + } + if (num >= 2 && res[1] >= 0.0f && res[1] <= 1.0f) { + t = res[1], it = 1.0f - t; + px = it*it*x0 + 2*t*it*x1 + t*t*x2; + py = it*it*y0 + 2*t*it*y1 + t*t*y2; + dist2 = (px-sx)*(px-sx) + (py-sy)*(py-sy); + if (dist2 < min_dist * min_dist) + min_dist = (float) STBTT_sqrt(dist2); + } + if (num >= 3 && res[2] >= 0.0f && res[2] <= 1.0f) { + t = res[2], it = 1.0f - t; + px = it*it*x0 + 2*t*it*x1 + t*t*x2; + py = it*it*y0 + 2*t*it*y1 + t*t*y2; + dist2 = (px-sx)*(px-sx) + (py-sy)*(py-sy); + if (dist2 < min_dist * min_dist) + min_dist = (float) STBTT_sqrt(dist2); + } + } + } + } + if (winding == 0) + min_dist = -min_dist; // if outside the shape, value is negative + val = onedge_value + pixel_dist_scale * min_dist; + if (val < 0) + val = 0; + else if (val > 255) + val = 255; + data[(y-iy0)*w+(x-ix0)] = (unsigned char) val; + } + } + STBTT_free(precompute, info->userdata); + STBTT_free(verts, info->userdata); + } + return data; +} + +STBTT_DEF unsigned char * stbtt_GetCodepointSDF(const stbtt_fontinfo *info, float scale, int codepoint, int padding, unsigned char onedge_value, float pixel_dist_scale, int *width, int *height, int *xoff, int *yoff) +{ + return stbtt_GetGlyphSDF(info, scale, stbtt_FindGlyphIndex(info, codepoint), padding, onedge_value, pixel_dist_scale, width, height, xoff, yoff); +} + +STBTT_DEF void stbtt_FreeSDF(unsigned char *bitmap, void *userdata) +{ + STBTT_free(bitmap, userdata); +} + +////////////////////////////////////////////////////////////////////////////// +// +// font name matching -- recommended not to use this +// + +// check if a utf8 string contains a prefix which is the utf16 string; if so return length of matching utf8 string +static stbtt_int32 stbtt__CompareUTF8toUTF16_bigendian_prefix(stbtt_uint8 *s1, stbtt_int32 len1, stbtt_uint8 *s2, stbtt_int32 len2) +{ + stbtt_int32 i=0; + + // convert utf16 to utf8 and compare the results while converting + while (len2) { + stbtt_uint16 ch = s2[0]*256 + s2[1]; + if (ch < 0x80) { + if (i >= len1) return -1; + if (s1[i++] != ch) return -1; + } else if (ch < 0x800) { + if (i+1 >= len1) return -1; + if (s1[i++] != 0xc0 + (ch >> 6)) return -1; + if (s1[i++] != 0x80 + (ch & 0x3f)) return -1; + } else if (ch >= 0xd800 && ch < 0xdc00) { + stbtt_uint32 c; + stbtt_uint16 ch2 = s2[2]*256 + s2[3]; + if (i+3 >= len1) return -1; + c = ((ch - 0xd800) << 10) + (ch2 - 0xdc00) + 0x10000; + if (s1[i++] != 0xf0 + (c >> 18)) return -1; + if (s1[i++] != 0x80 + ((c >> 12) & 0x3f)) return -1; + if (s1[i++] != 0x80 + ((c >> 6) & 0x3f)) return -1; + if (s1[i++] != 0x80 + ((c ) & 0x3f)) return -1; + s2 += 2; // plus another 2 below + len2 -= 2; + } else if (ch >= 0xdc00 && ch < 0xe000) { + return -1; + } else { + if (i+2 >= len1) return -1; + if (s1[i++] != 0xe0 + (ch >> 12)) return -1; + if (s1[i++] != 0x80 + ((ch >> 6) & 0x3f)) return -1; + if (s1[i++] != 0x80 + ((ch ) & 0x3f)) return -1; + } + s2 += 2; + len2 -= 2; + } + return i; +} + +static int stbtt_CompareUTF8toUTF16_bigendian_internal(char *s1, int len1, char *s2, int len2) +{ + return len1 == stbtt__CompareUTF8toUTF16_bigendian_prefix((stbtt_uint8*) s1, len1, (stbtt_uint8*) s2, len2); +} + +// returns results in whatever encoding you request... but note that 2-byte encodings +// will be BIG-ENDIAN... use stbtt_CompareUTF8toUTF16_bigendian() to compare +STBTT_DEF const char *stbtt_GetFontNameString(const stbtt_fontinfo *font, int *length, int platformID, int encodingID, int languageID, int nameID) +{ + stbtt_int32 i,count,stringOffset; + stbtt_uint8 *fc = font->data; + stbtt_uint32 offset = font->fontstart; + stbtt_uint32 nm = stbtt__find_table(fc, offset, "name"); + if (!nm) return NULL; + + count = ttUSHORT(fc+nm+2); + stringOffset = nm + ttUSHORT(fc+nm+4); + for (i=0; i < count; ++i) { + stbtt_uint32 loc = nm + 6 + 12 * i; + if (platformID == ttUSHORT(fc+loc+0) && encodingID == ttUSHORT(fc+loc+2) + && languageID == ttUSHORT(fc+loc+4) && nameID == ttUSHORT(fc+loc+6)) { + *length = ttUSHORT(fc+loc+8); + return (const char *) (fc+stringOffset+ttUSHORT(fc+loc+10)); + } + } + return NULL; +} + +static int stbtt__matchpair(stbtt_uint8 *fc, stbtt_uint32 nm, stbtt_uint8 *name, stbtt_int32 nlen, stbtt_int32 target_id, stbtt_int32 next_id) +{ + stbtt_int32 i; + stbtt_int32 count = ttUSHORT(fc+nm+2); + stbtt_int32 stringOffset = nm + ttUSHORT(fc+nm+4); + + for (i=0; i < count; ++i) { + stbtt_uint32 loc = nm + 6 + 12 * i; + stbtt_int32 id = ttUSHORT(fc+loc+6); + if (id == target_id) { + // find the encoding + stbtt_int32 platform = ttUSHORT(fc+loc+0), encoding = ttUSHORT(fc+loc+2), language = ttUSHORT(fc+loc+4); + + // is this a Unicode encoding? + if (platform == 0 || (platform == 3 && encoding == 1) || (platform == 3 && encoding == 10)) { + stbtt_int32 slen = ttUSHORT(fc+loc+8); + stbtt_int32 off = ttUSHORT(fc+loc+10); + + // check if there's a prefix match + stbtt_int32 matchlen = stbtt__CompareUTF8toUTF16_bigendian_prefix(name, nlen, fc+stringOffset+off,slen); + if (matchlen >= 0) { + // check for target_id+1 immediately following, with same encoding & language + if (i+1 < count && ttUSHORT(fc+loc+12+6) == next_id && ttUSHORT(fc+loc+12) == platform && ttUSHORT(fc+loc+12+2) == encoding && ttUSHORT(fc+loc+12+4) == language) { + slen = ttUSHORT(fc+loc+12+8); + off = ttUSHORT(fc+loc+12+10); + if (slen == 0) { + if (matchlen == nlen) + return 1; + } else if (matchlen < nlen && name[matchlen] == ' ') { + ++matchlen; + if (stbtt_CompareUTF8toUTF16_bigendian_internal((char*) (name+matchlen), nlen-matchlen, (char*)(fc+stringOffset+off),slen)) + return 1; + } + } else { + // if nothing immediately following + if (matchlen == nlen) + return 1; + } + } + } + + // @TODO handle other encodings + } + } + return 0; +} + +static int stbtt__matches(stbtt_uint8 *fc, stbtt_uint32 offset, stbtt_uint8 *name, stbtt_int32 flags) +{ + stbtt_int32 nlen = (stbtt_int32) STBTT_strlen((char *) name); + stbtt_uint32 nm,hd; + if (!stbtt__isfont(fc+offset)) return 0; + + // check italics/bold/underline flags in macStyle... + if (flags) { + hd = stbtt__find_table(fc, offset, "head"); + if ((ttUSHORT(fc+hd+44) & 7) != (flags & 7)) return 0; + } + + nm = stbtt__find_table(fc, offset, "name"); + if (!nm) return 0; + + if (flags) { + // if we checked the macStyle flags, then just check the family and ignore the subfamily + if (stbtt__matchpair(fc, nm, name, nlen, 16, -1)) return 1; + if (stbtt__matchpair(fc, nm, name, nlen, 1, -1)) return 1; + if (stbtt__matchpair(fc, nm, name, nlen, 3, -1)) return 1; + } else { + if (stbtt__matchpair(fc, nm, name, nlen, 16, 17)) return 1; + if (stbtt__matchpair(fc, nm, name, nlen, 1, 2)) return 1; + if (stbtt__matchpair(fc, nm, name, nlen, 3, -1)) return 1; + } + + return 0; +} + +static int stbtt_FindMatchingFont_internal(unsigned char *font_collection, char *name_utf8, stbtt_int32 flags) +{ + stbtt_int32 i; + for (i=0;;++i) { + stbtt_int32 off = stbtt_GetFontOffsetForIndex(font_collection, i); + if (off < 0) return off; + if (stbtt__matches((stbtt_uint8 *) font_collection, off, (stbtt_uint8*) name_utf8, flags)) + return off; + } +} + +#if defined(__GNUC__) || defined(__clang__) +#pragma GCC diagnostic push +#pragma GCC diagnostic ignored "-Wcast-qual" +#endif + +STBTT_DEF int stbtt_BakeFontBitmap(const unsigned char *data, int offset, + float pixel_height, unsigned char *pixels, int pw, int ph, + int first_char, int num_chars, stbtt_bakedchar *chardata) +{ + return stbtt_BakeFontBitmap_internal((unsigned char *) data, offset, pixel_height, pixels, pw, ph, first_char, num_chars, chardata); +} + +STBTT_DEF int stbtt_GetFontOffsetForIndex(const unsigned char *data, int index) +{ + return stbtt_GetFontOffsetForIndex_internal((unsigned char *) data, index); +} + +STBTT_DEF int stbtt_GetNumberOfFonts(const unsigned char *data) +{ + return stbtt_GetNumberOfFonts_internal((unsigned char *) data); +} + +STBTT_DEF int stbtt_InitFont(stbtt_fontinfo *info, const unsigned char *data, int offset) +{ + return stbtt_InitFont_internal(info, (unsigned char *) data, offset); +} + +STBTT_DEF int stbtt_FindMatchingFont(const unsigned char *fontdata, const char *name, int flags) +{ + return stbtt_FindMatchingFont_internal((unsigned char *) fontdata, (char *) name, flags); +} + +STBTT_DEF int stbtt_CompareUTF8toUTF16_bigendian(const char *s1, int len1, const char *s2, int len2) +{ + return stbtt_CompareUTF8toUTF16_bigendian_internal((char *) s1, len1, (char *) s2, len2); +} + +#if defined(__GNUC__) || defined(__clang__) +#pragma GCC diagnostic pop +#endif + +#endif // STB_TRUETYPE_IMPLEMENTATION + + +// FULL VERSION HISTORY +// +// 1.25 (2021-07-11) many fixes +// 1.24 (2020-02-05) fix warning +// 1.23 (2020-02-02) query SVG data for glyphs; query whole kerning table (but only kern not GPOS) +// 1.22 (2019-08-11) minimize missing-glyph duplication; fix kerning if both 'GPOS' and 'kern' are defined +// 1.21 (2019-02-25) fix warning +// 1.20 (2019-02-07) PackFontRange skips missing codepoints; GetScaleFontVMetrics() +// 1.19 (2018-02-11) OpenType GPOS kerning (horizontal only), STBTT_fmod +// 1.18 (2018-01-29) add missing function +// 1.17 (2017-07-23) make more arguments const; doc fix +// 1.16 (2017-07-12) SDF support +// 1.15 (2017-03-03) make more arguments const +// 1.14 (2017-01-16) num-fonts-in-TTC function +// 1.13 (2017-01-02) support OpenType fonts, certain Apple fonts +// 1.12 (2016-10-25) suppress warnings about casting away const with -Wcast-qual +// 1.11 (2016-04-02) fix unused-variable warning +// 1.10 (2016-04-02) allow user-defined fabs() replacement +// fix memory leak if fontsize=0.0 +// fix warning from duplicate typedef +// 1.09 (2016-01-16) warning fix; avoid crash on outofmem; use alloc userdata for PackFontRanges +// 1.08 (2015-09-13) document stbtt_Rasterize(); fixes for vertical & horizontal edges +// 1.07 (2015-08-01) allow PackFontRanges to accept arrays of sparse codepoints; +// allow PackFontRanges to pack and render in separate phases; +// fix stbtt_GetFontOFfsetForIndex (never worked for non-0 input?); +// fixed an assert() bug in the new rasterizer +// replace assert() with STBTT_assert() in new rasterizer +// 1.06 (2015-07-14) performance improvements (~35% faster on x86 and x64 on test machine) +// also more precise AA rasterizer, except if shapes overlap +// remove need for STBTT_sort +// 1.05 (2015-04-15) fix misplaced definitions for STBTT_STATIC +// 1.04 (2015-04-15) typo in example +// 1.03 (2015-04-12) STBTT_STATIC, fix memory leak in new packing, various fixes +// 1.02 (2014-12-10) fix various warnings & compile issues w/ stb_rect_pack, C++ +// 1.01 (2014-12-08) fix subpixel position when oversampling to exactly match +// non-oversampled; STBTT_POINT_SIZE for packed case only +// 1.00 (2014-12-06) add new PackBegin etc. API, w/ support for oversampling +// 0.99 (2014-09-18) fix multiple bugs with subpixel rendering (ryg) +// 0.9 (2014-08-07) support certain mac/iOS fonts without an MS platformID +// 0.8b (2014-07-07) fix a warning +// 0.8 (2014-05-25) fix a few more warnings +// 0.7 (2013-09-25) bugfix: subpixel glyph bug fixed in 0.5 had come back +// 0.6c (2012-07-24) improve documentation +// 0.6b (2012-07-20) fix a few more warnings +// 0.6 (2012-07-17) fix warnings; added stbtt_ScaleForMappingEmToPixels, +// stbtt_GetFontBoundingBox, stbtt_IsGlyphEmpty +// 0.5 (2011-12-09) bugfixes: +// subpixel glyph renderer computed wrong bounding box +// first vertex of shape can be off-curve (FreeSans) +// 0.4b (2011-12-03) fixed an error in the font baking example +// 0.4 (2011-12-01) kerning, subpixel rendering (tor) +// bugfixes for: +// codepoint-to-glyph conversion using table fmt=12 +// codepoint-to-glyph conversion using table fmt=4 +// stbtt_GetBakedQuad with non-square texture (Zer) +// updated Hello World! sample to use kerning and subpixel +// fixed some warnings +// 0.3 (2009-06-24) cmap fmt=12, compound shapes (MM) +// userdata, malloc-from-userdata, non-zero fill (stb) +// 0.2 (2009-03-11) Fix unsigned/signed char warnings +// 0.1 (2009-03-09) First public release +// + +/* +------------------------------------------------------------------------------ +This software is available under 2 licenses -- choose whichever you prefer. +------------------------------------------------------------------------------ +ALTERNATIVE A - MIT License +Copyright (c) 2017 Sean Barrett +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. +------------------------------------------------------------------------------ +ALTERNATIVE B - Public Domain (www.unlicense.org) +This is free and unencumbered software released into the public domain. +Anyone is free to copy, modify, publish, use, compile, sell, or distribute this +software, either in source code form or as a compiled binary, for any purpose, +commercial or non-commercial, and by any means. +In jurisdictions that recognize copyright laws, the author or authors of this +software dedicate any and all copyright interest in the software to the public +domain. We make this dedication for the benefit of the public at large and to +the detriment of our heirs and successors. We intend this dedication to be an +overt act of relinquishment in perpetuity of all present and future rights to +this software under copyright law. +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 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. +------------------------------------------------------------------------------ +*/ diff --git a/include/types.h b/include/types.h new file mode 100644 index 0000000..1dc2158 --- /dev/null +++ b/include/types.h @@ -0,0 +1,194 @@ +#ifndef ECEX_TYPES_H +#define ECEX_TYPES_H + +#include <stddef.h> + +typedef struct ecex ecex_t; +typedef struct buffer buffer_t; +typedef struct ecex_window ecex_window_t; + +typedef int (*ecex_command_fn)(ecex_t *ed); +typedef int (*ecex_interactive_line_fn)(ecex_t *ed, buffer_t *buffer, size_t line, const char *payload, void *userdata); +typedef const char *(*ecex_clipboard_get_fn)(void *userdata); +typedef void (*ecex_clipboard_set_fn)(void *userdata, const char *text); + +typedef enum ecex_prompt_request { + ECEX_PROMPT_NONE = 0, + ECEX_PROMPT_FIND_FILE, + ECEX_PROMPT_WRITE_FILE, + ECEX_PROMPT_EVAL_FILE, + ECEX_PROMPT_SWITCH_BUFFER, + ECEX_PROMPT_KILL_BUFFER, + ECEX_PROMPT_COMPILE, + ECEX_PROMPT_GREP, + ECEX_PROMPT_ISEARCH_FORWARD, + ECEX_PROMPT_ISEARCH_BACKWARD, +} ecex_prompt_request_t; + +typedef struct ecex_undo_entry { + char *data; + size_t len; + size_t point; + size_t mark; + int mark_active; +} ecex_undo_entry_t; + +typedef struct ecex_color { + float r; + float g; + float b; +} ecex_color_t; + +typedef struct ecex_theme { + char *font_path; + float font_size; + + ecex_color_t bg; + ecex_color_t fg; + + ecex_color_t status_bg; + ecex_color_t status_fg; + ecex_color_t status_border; + + ecex_color_t cursor; + ecex_color_t region_bg; + ecex_color_t minibuffer_bg; + ecex_color_t minibuffer_fg; + + ecex_color_t completion_fg; + int completion_enabled; + + ecex_color_t interactive_highlight_bg; + ecex_color_t interactive_highlight_fg; + ecex_color_t current_line_bg; + ecex_color_t search_bg; + int line_numbers_enabled; + int current_line_enabled; +} ecex_theme_t; + +struct buffer { + char *name; + char *path; + + char *data; + size_t len; + size_t cap; + + size_t point; + size_t mark; + int mark_active; + + size_t scroll_line; + size_t scroll_col; + + int modified; + int read_only; + + int major_mode; + + ecex_undo_entry_t *undo_stack; + size_t undo_count; + size_t undo_cap; + ecex_undo_entry_t *redo_stack; + size_t redo_count; + size_t redo_cap; + int undo_disabled; + + int interactive; + struct ecex_interactive_line_action *interactive_actions; + size_t interactive_action_cap; + size_t interactive_action_count; +}; + +typedef struct ecex_interactive_line_action { + size_t line; + ecex_interactive_line_fn fn; + char *payload; + void *userdata; +} ecex_interactive_line_action_t; + +typedef struct ecex_command { + char *name; + ecex_command_fn fn; +} ecex_command_t; + +typedef struct ecex_keybind { + char *key; + char *command; +} ecex_keybind_t; + +typedef struct ecex_mode_keybind { + int mode; + char *key; + char *command; +} ecex_mode_keybind_t; + +typedef struct ecex_major_mode { + int id; + char *name; +} ecex_major_mode_t; + +struct ecex_window { + buffer_t *buffer; + float x; + float y; + float w; + float h; +}; + +struct ecex { + buffer_t **buffers; + size_t buffer_cap; + size_t buffer_count; + + size_t current_buffer_index; + buffer_t *current_buffer; + + ecex_window_t *windows; + size_t window_cap; + size_t window_count; + size_t current_window_index; + + void **jit_modules; + size_t jit_module_cap; + size_t jit_module_count; + + ecex_command_t *commands; + size_t command_cap; + size_t command_count; + + ecex_keybind_t *keybinds; + size_t keybind_cap; + size_t keybind_count; + + ecex_mode_keybind_t *mode_keybinds; + size_t mode_keybind_cap; + size_t mode_keybind_count; + + ecex_major_mode_t *major_modes; + size_t major_mode_cap; + size_t major_mode_count; + int next_major_mode_id; + + char *last_eval_source; + char *last_eval_filename; + int last_eval_wrap_as_statements; + + char *last_compile_command; + char *last_grep_command; + + ecex_prompt_request_t prompt_request; + char prompt_message[128]; + + char *config_path; + + ecex_clipboard_get_fn clipboard_get; + ecex_clipboard_set_fn clipboard_set; + void *clipboard_userdata; + + int should_quit; + + ecex_theme_t theme; +}; + +#endif diff --git a/include/util.h b/include/util.h new file mode 100644 index 0000000..9c206fb --- /dev/null +++ b/include/util.h @@ -0,0 +1,10 @@ +#ifndef ECEX_UTIL_H +#define ECEX_UTIL_H + +#include <stddef.h> + +int ecex_file_exists(const char *path); +char *ecex_read_entire_file(const char *path, size_t *out_size); +char *ecex_strdup(const char *s); + +#endif diff --git a/manifest.scm b/manifest.scm new file mode 100644 index 0000000..ede2f2a --- /dev/null +++ b/manifest.scm @@ -0,0 +1,20 @@ +(specifications->manifest + '("clang-toolchain" + "make" + "pkg-config" + "glfw" + "mesa" + "glu" + "font-dejavu" + "libx11" + "libxrandr" + "libxinerama" + "libxcursor" + "libxi" + "libxxf86vm" + "glibc" + "coreutils" + "grep" + "sed" + "gawk" + "bash")) diff --git a/src/app.c b/src/app.c new file mode 100644 index 0000000..3ae368c --- /dev/null +++ b/src/app.c @@ -0,0 +1,1578 @@ +#include "app.h" +#include "common.h" + +#include <dirent.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <sys/stat.h> + +void app_message(app_t *app, const char *msg) { + if (!app || !msg) return; + + snprintf(app->message, sizeof(app->message), "%s", msg); + app->dirty = 1; +} + +static const char *app_clipboard_get(void *userdata) { + app_t *app = userdata; + if (!app || !app->window) return NULL; + return glfwGetClipboardString(app->window); +} + +static void app_clipboard_set(void *userdata, const char *text) { + app_t *app = userdata; + if (!app || !app->window || !text) return; + glfwSetClipboardString(app->window, text); +} + +static void app_reset_completion(app_t *app) { + if (!app) return; + + app->completion_active = 0; + app->completion_query[0] = '\0'; + app->completion_index = 0; + app->completion_count = 0; +} + +static void app_set_minibuffer(app_t *app, const char *text) { + if (!app || !text) return; + + snprintf(app->minibuffer, sizeof(app->minibuffer), "%s", text); + app->minibuffer_len = strlen(app->minibuffer); + app->dirty = 1; +} + +static void app_reset_prompt_completion(app_t *app) { + if (!app) return; + + app->prompt_completion_active = 0; + app->prompt_completion_query[0] = '\0'; + app->prompt_completion_index = 0; + app->prompt_completion_count = 0; +} + +static void app_set_prompt_input(app_t *app, const char *text) { + if (!app || !text) return; + + snprintf(app->prompt_input, sizeof(app->prompt_input), "%s", text); + app->prompt_input_len = strlen(app->prompt_input); + app->dirty = 1; +} + +static char *app_expand_user_path(const char *path) { + if (!path) return NULL; + + if (path[0] != '~' || (path[1] != '\0' && path[1] != '/')) { + char *copy = malloc(strlen(path) + 1); + if (!copy) return NULL; + strcpy(copy, path); + return copy; + } + + const char *home = getenv("HOME"); + if (!home || !home[0]) { + char *copy = malloc(strlen(path) + 1); + if (!copy) return NULL; + strcpy(copy, path); + return copy; + } + + size_t home_len = strlen(home); + size_t rest_len = strlen(path + 1); + + char *expanded = malloc(home_len + rest_len + 1); + if (!expanded) return NULL; + + memcpy(expanded, home, home_len); + memcpy(expanded + home_len, path + 1, rest_len + 1); + return expanded; +} + +typedef struct command_candidate { + const char *name; + int score; + size_t order; +} command_candidate_t; + +static int ascii_lower(int c) { + if (c >= 'A' && c <= 'Z') return c - 'A' + 'a'; + return c; +} + +static int ascii_strncasecmp_local(const char *a, const char *b, size_t n) { + for (size_t i = 0; i < n; i++) { + int ac = ascii_lower((unsigned char)a[i]); + int bc = ascii_lower((unsigned char)b[i]); + + if (ac != bc || ac == '\0' || bc == '\0') { + return ac - bc; + } + } + + return 0; +} + +static int ascii_contains_ci(const char *haystack, const char *needle) { + if (!haystack || !needle) return 0; + if (needle[0] == '\0') return 1; + + size_t needle_len = strlen(needle); + + for (size_t i = 0; haystack[i]; i++) { + if (ascii_strncasecmp_local(haystack + i, needle, needle_len) == 0) { + return 1; + } + } + + return 0; +} + +static int command_fuzzy_score(const char *candidate, const char *query) { + if (!candidate || !query) return -1; + + if (query[0] == '\0') { + return 0; + } + + int score = 0; + int consecutive = 0; + int last_match = -1; + + size_t ci = 0; + size_t qi = 0; + + while (candidate[ci] && query[qi]) { + char c = candidate[ci]; + char q = query[qi]; + + if (c >= 'A' && c <= 'Z') c = (char)(c - 'A' + 'a'); + if (q >= 'A' && q <= 'Z') q = (char)(q - 'A' + 'a'); + + if (c == q) { + score += 10; + + if ((int)ci == last_match + 1) { + consecutive++; + score += 5 * consecutive; + } else { + consecutive = 0; + } + + if (ci == 0) { + score += 20; + } + + if (ci > 0 && + (candidate[ci - 1] == '-' || + candidate[ci - 1] == '_' || + candidate[ci - 1] == ' ')) { + score += 15; + } + + last_match = (int)ci; + qi++; + } + + ci++; + } + + if (query[qi] != '\0') { + return -1; + } + + score -= (int)strlen(candidate); + + if (strncmp(candidate, query, strlen(query)) == 0) { + score += 100; + } + + if (ascii_contains_ci(candidate, query)) { + score += 75; + } + + return score; +} + +static int compare_command_candidates(const void *a, const void *b) { + const command_candidate_t *ca = (const command_candidate_t *)a; + const command_candidate_t *cb = (const command_candidate_t *)b; + + if (ca->score != cb->score) { + return cb->score - ca->score; + } + + if (ca->order < cb->order) return -1; + if (ca->order > cb->order) return 1; + return 0; +} + +static command_candidate_t *collect_command_candidates(ecex_t *ed, + const char *query, + size_t *out_count) { + if (out_count) *out_count = 0; + if (!ed || !query || ed->command_count == 0) return NULL; + + command_candidate_t *items = malloc(ed->command_count * sizeof(*items)); + if (!items) return NULL; + + size_t count = 0; + + for (size_t i = 0; i < ed->command_count; i++) { + const char *name = ed->commands[i].name; + int score = command_fuzzy_score(name, query); + + if (score >= 0) { + items[count].name = name; + items[count].score = score; + items[count].order = i; + count++; + } + } + + if (count == 0) { + free(items); + return NULL; + } + + qsort(items, count, sizeof(*items), compare_command_candidates); + + if (out_count) *out_count = count; + return items; +} + +static const char *command_candidate_at(ecex_t *ed, + const char *query, + size_t index, + size_t *out_count) { + size_t count = 0; + command_candidate_t *items = collect_command_candidates(ed, query, &count); + if (!items || count == 0) return NULL; + + const char *name = items[index % count].name; + + if (out_count) { + *out_count = count; + } + + free(items); + return name; +} + +typedef struct path_candidate { + char *path; + int score; + int is_dir; + size_t order; +} path_candidate_t; + +static void free_path_candidates(path_candidate_t *items, size_t count) { + if (!items) return; + + for (size_t i = 0; i < count; i++) { + free(items[i].path); + } + + free(items); +} + +static int compare_path_candidates(const void *a, const void *b) { + const path_candidate_t *pa = (const path_candidate_t *)a; + const path_candidate_t *pb = (const path_candidate_t *)b; + + if (pa->score != pb->score) { + return pb->score - pa->score; + } + + if (pa->is_dir != pb->is_dir) { + return pb->is_dir - pa->is_dir; + } + + int cmp = strcmp(pa->path, pb->path); + if (cmp != 0) return cmp; + + if (pa->order < pb->order) return -1; + if (pa->order > pb->order) return 1; + return 0; +} + +static int split_path_query(const char *query, + char *display_dir, + size_t display_dir_size, + char *fs_dir, + size_t fs_dir_size, + char *needle, + size_t needle_size) { + if (!query || !display_dir || !fs_dir || !needle) return -1; + + const char *last_slash = strrchr(query, '/'); + + if (last_slash) { + size_t dir_len = (size_t)(last_slash - query) + 1; + if (dir_len >= display_dir_size) dir_len = display_dir_size - 1; + + memcpy(display_dir, query, dir_len); + display_dir[dir_len] = '\0'; + + snprintf(needle, needle_size, "%s", last_slash + 1); + } else { + display_dir[0] = '\0'; + snprintf(needle, needle_size, "%s", query); + } + + if (display_dir[0] == '\0') { + snprintf(fs_dir, fs_dir_size, "."); + } else { + char *expanded = app_expand_user_path(display_dir); + if (!expanded) return -1; + + snprintf(fs_dir, fs_dir_size, "%s", expanded); + free(expanded); + } + + return 0; +} + +static char *join_display_path(const char *display_dir, + const char *name, + int is_dir) { + size_t dir_len = display_dir ? strlen(display_dir) : 0; + size_t name_len = name ? strlen(name) : 0; + size_t slash_len = is_dir ? 1 : 0; + + char *out = malloc(dir_len + name_len + slash_len + 1); + if (!out) return NULL; + + if (dir_len) memcpy(out, display_dir, dir_len); + if (name_len) memcpy(out + dir_len, name, name_len); + if (is_dir) out[dir_len + name_len] = '/'; + out[dir_len + name_len + slash_len] = '\0'; + return out; +} + +static path_candidate_t *collect_path_candidates(const char *query, + size_t *out_count) { + if (out_count) *out_count = 0; + if (!query) return NULL; + + char display_dir[1024]; + char fs_dir[1024]; + char needle[512]; + + if (split_path_query(query, + display_dir, + sizeof(display_dir), + fs_dir, + sizeof(fs_dir), + needle, + sizeof(needle)) != 0) { + return NULL; + } + + DIR *dir = opendir(fs_dir); + if (!dir) return NULL; + + size_t cap = 32; + size_t count = 0; + size_t order = 0; + path_candidate_t *items = malloc(cap * sizeof(*items)); + if (!items) { + closedir(dir); + return NULL; + } + + struct dirent *entry = NULL; + while ((entry = readdir(dir)) != NULL) { + const char *name = entry->d_name; + + if (strcmp(name, ".") == 0) { + continue; + } + + if (name[0] == '.' && needle[0] != '.' && strcmp(name, "..") != 0) { + continue; + } + + int score = command_fuzzy_score(name, needle); + if (score < 0) { + order++; + continue; + } + + char fs_path[2048]; + if (strcmp(fs_dir, ".") == 0) { + snprintf(fs_path, sizeof(fs_path), "%s", name); + } else { + size_t len = strlen(fs_dir); + snprintf(fs_path, + sizeof(fs_path), + "%s%s%s", + fs_dir, + (len > 0 && fs_dir[len - 1] == '/') ? "" : "/", + name); + } + + struct stat st; + int is_dir = stat(fs_path, &st) == 0 && S_ISDIR(st.st_mode); + + if (count == cap) { + size_t new_cap = cap * 2; + path_candidate_t *new_items = realloc(items, new_cap * sizeof(*items)); + if (!new_items) break; + items = new_items; + cap = new_cap; + } + + items[count].path = join_display_path(display_dir, name, is_dir); + if (!items[count].path) continue; + + items[count].score = score + (is_dir ? 20 : 0); + items[count].is_dir = is_dir; + items[count].order = order; + count++; + order++; + } + + closedir(dir); + + if (count == 0) { + free(items); + return NULL; + } + + qsort(items, count, sizeof(*items), compare_path_candidates); + + if (out_count) *out_count = count; + return items; +} + +static const char *path_candidate_at(const char *query, + size_t index, + size_t *out_count) { + static char candidate[1024]; + + size_t count = 0; + path_candidate_t *items = collect_path_candidates(query, &count); + if (!items || count == 0) { + free_path_candidates(items, count); + return NULL; + } + + snprintf(candidate, sizeof(candidate), "%s", items[index % count].path); + + if (out_count) { + *out_count = count; + } + + free_path_candidates(items, count); + return candidate; +} + +static void app_update_prompt_completion_preview(app_t *app) { + if (!app || !app->prompt_completion_active) return; + + size_t count = 0; + path_candidate_t *items = collect_path_candidates(app->prompt_completion_query, &count); + if (!items || count == 0) { + free_path_candidates(items, count); + app->prompt_completion_preview_start = 0; + app->prompt_completion_preview_count = 0; + return; + } + + size_t max_preview = sizeof(app->prompt_completion_preview) / + sizeof(app->prompt_completion_preview[0]); + + size_t start = 0; + if (app->prompt_completion_index >= max_preview) { + start = app->prompt_completion_index - max_preview + 1; + } + + app->prompt_completion_preview_start = start; + app->prompt_completion_preview_count = 0; + + for (size_t i = 0; i < max_preview && start + i < count; i++) { + snprintf(app->prompt_completion_preview[i], + sizeof(app->prompt_completion_preview[i]), + "%s", + items[start + i].path); + app->prompt_completion_preview_count++; + } + + free_path_candidates(items, count); +} + +static void app_begin_prompt_completion(app_t *app, int direction) { + if (!app) return; + + snprintf(app->prompt_completion_query, + sizeof(app->prompt_completion_query), + "%s", + app->prompt_input); + + size_t count = 0; + path_candidate_t *items = collect_path_candidates(app->prompt_completion_query, &count); + + if (!items || count == 0) { + free_path_candidates(items, count); + app_reset_prompt_completion(app); + app_message(app, "No file completions"); + app->mode = APP_MODE_PROMPT; + return; + } + + app->prompt_completion_active = 1; + app->prompt_completion_count = count; + app->prompt_completion_index = direction < 0 ? count - 1 : 0; + + app_set_prompt_input(app, items[app->prompt_completion_index].path); + free_path_candidates(items, count); + app_update_prompt_completion_preview(app); +} + +static void app_cycle_prompt_completion(app_t *app, int delta) { + if (!app) return; + + if (!app->prompt_completion_active || app->prompt_completion_count == 0) { + app_begin_prompt_completion(app, delta); + return; + } + + if (delta < 0) { + app->prompt_completion_index = app->prompt_completion_index == 0 + ? app->prompt_completion_count - 1 + : app->prompt_completion_index - 1; + } else { + app->prompt_completion_index = + (app->prompt_completion_index + 1) % app->prompt_completion_count; + } + + size_t count = 0; + const char *candidate = path_candidate_at(app->prompt_completion_query, + app->prompt_completion_index, + &count); + + if (!candidate || count == 0) { + app_reset_prompt_completion(app); + return; + } + + app->prompt_completion_count = count; + app_set_prompt_input(app, candidate); + app_update_prompt_completion_preview(app); +} + +static void app_begin_completion(app_t *app, int direction) { + if (!app) return; + + snprintf(app->completion_query, + sizeof(app->completion_query), + "%s", + app->minibuffer); + + size_t count = 0; + command_candidate_t *items = + collect_command_candidates(app->ed, app->completion_query, &count); + + if (!items || count == 0) { + free(items); + app_reset_completion(app); + app_message(app, "No command completions"); + app->mode = APP_MODE_MX; + return; + } + + app->completion_active = 1; + app->completion_count = count; + + if (direction < 0) { + app->completion_index = count - 1; + } else { + app->completion_index = 0; + } + + app_set_minibuffer(app, items[app->completion_index].name); + free(items); +} + +static void app_cycle_completion(app_t *app, int delta) { + if (!app) return; + + if (!app->completion_active || app->completion_count == 0) { + app_begin_completion(app, delta); + return; + } + + if (delta < 0) { + if (app->completion_index == 0) { + app->completion_index = app->completion_count - 1; + } else { + app->completion_index--; + } + } else { + app->completion_index = + (app->completion_index + 1) % app->completion_count; + } + + size_t count = 0; + const char *candidate = command_candidate_at(app->ed, + app->completion_query, + app->completion_index, + &count); + + if (!candidate || count == 0) { + app_reset_completion(app); + return; + } + + app->completion_count = count; + app_set_minibuffer(app, candidate); +} + +static void app_enter_mx(app_t *app) { + app->mode = APP_MODE_MX; + app->minibuffer[0] = '\0'; + app->minibuffer_len = 0; + app->prefix[0] = '\0'; + app->prefix_len = 0; + app->message[0] = '\0'; + app_reset_completion(app); + app->dirty = 1; +} + +static void app_cancel_mx(app_t *app) { + app->mode = APP_MODE_EDIT; + app->minibuffer[0] = '\0'; + app->minibuffer_len = 0; + app_reset_completion(app); + app_message(app, "Quit"); +} + + +static void app_update_isearch(app_t *app) { + if (!app || !app->ed) return; + buffer_t *buf = ecex_current_buffer(app->ed); + if (!buf || app->isearch_len == 0) { + app->isearch_has_match = 0; + app->dirty = 1; + return; + } + size_t pos = 0; + size_t start = app->isearch_backward + ? (buf->point > 0 ? buf->point - 1 : buf->len) + : buf->point; + int ok = app->isearch_backward + ? buffer_search_backward(buf, app->isearch_query, start, &pos) + : buffer_search_forward(buf, app->isearch_query, start, &pos); + if (ok == ECEX_OK) { + app->isearch_match = pos; + app->isearch_has_match = 1; + buffer_set_point(buf, pos); + buffer_set_mark(buf, pos + strlen(app->isearch_query)); + } else { + app->isearch_has_match = 0; + } + app->dirty = 1; +} + +static void app_enter_isearch(app_t *app, int backward) { + if (!app || !app->ed) return; + buffer_t *buf = ecex_current_buffer(app->ed); + app->mode = APP_MODE_ISEARCH; + app->isearch_backward = backward ? 1 : 0; + app->isearch_query[0] = '\0'; + app->isearch_len = 0; + app->isearch_origin = buf ? buf->point : 0; + app->isearch_match = app->isearch_origin; + app->isearch_has_match = 0; + app->prefix[0] = '\0'; + app->prefix_len = 0; + app->message[0] = '\0'; + app->dirty = 1; +} + +static void app_cancel_isearch(app_t *app) { + if (!app || !app->ed) return; + buffer_t *buf = ecex_current_buffer(app->ed); + if (buf) { + buffer_set_point(buf, app->isearch_origin); + buffer_clear_mark(buf); + } + app->mode = APP_MODE_EDIT; + app_message(app, "Search cancelled"); +} + +static void app_finish_isearch(app_t *app) { + if (!app || !app->ed) return; + buffer_t *buf = ecex_current_buffer(app->ed); + if (app->isearch_len > 0) { + snprintf(app->last_search_query, sizeof(app->last_search_query), "%s", app->isearch_query); + } + if (buf) buffer_clear_mark(buf); + app->mode = APP_MODE_EDIT; + if (app->isearch_len > 0) app_message(app, app->isearch_has_match ? "Search done" : "Search failed"); + app->dirty = 1; +} + +static void app_enter_prompt(app_t *app, + ecex_prompt_request_t kind, + const char *label) { + if (!app) return; + + app->mode = APP_MODE_PROMPT; + app->prompt_kind = kind; + snprintf(app->prompt_label, + sizeof(app->prompt_label), + "%s", + label ? label : ""); + app->prompt_input[0] = '\0'; + app->prompt_input_len = 0; + app_reset_prompt_completion(app); + app->message[0] = '\0'; + app->dirty = 1; +} + + +static void app_reload_font_if_needed(app_t *app) { + if (!app || !app->ed) return; + + const char *path = NULL; + if (app->ed->theme.font_path && app->ed->theme.font_path[0]) { + path = app->ed->theme.font_path; + } else if (app->font_path[0]) { + path = app->font_path; + } else { + path = font_choose_path(NULL); + } + + if (!path || !path[0]) return; + + float size = app->ed->theme.font_size; + int same_path = app->font_path[0] && strcmp(app->font_path, path) == 0; + int same_size = app->font.size_px == size; + + if (same_path && same_size) return; + + font_t new_font; + if (font_load(&new_font, path, size) != 0) { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Failed to reload font: %s", path); + app_message(app, msg); + return; + } + + font_free(&app->font); + app->font = new_font; + snprintf(app->font_path, sizeof(app->font_path), "%s", path); + app->dirty = 1; +} + +static int app_handle_prompt_request(app_t *app) { + if (!app || !app->ed) return 0; + + if (app->ed->prompt_request == ECEX_PROMPT_NONE) { + return 0; + } + + ecex_prompt_request_t request = app->ed->prompt_request; + char label[sizeof(app->ed->prompt_message)]; + snprintf(label, sizeof(label), "%s", app->ed->prompt_message); + + ecex_clear_prompt_request(app->ed); + if (request == ECEX_PROMPT_ISEARCH_FORWARD) { + app_enter_isearch(app, 0); + } else if (request == ECEX_PROMPT_ISEARCH_BACKWARD) { + app_enter_isearch(app, 1); + } else { + app_enter_prompt(app, request, label); + } + return 1; +} + +static int app_execute_command(app_t *app, const char *command) { + if (!app || !app->ed || !command) return -1; + + int result = ecex_execute_command(app->ed, command); + if (result == 0) { + app_reload_font_if_needed(app); + app_handle_prompt_request(app); + } + + if (app->ed->should_quit && app->window) { + glfwSetWindowShouldClose(app->window, GLFW_TRUE); + glfwPostEmptyEvent(); + } + + app->dirty = 1; + return result; +} + +static void app_cancel_prompt(app_t *app) { + if (!app) return; + + app->mode = APP_MODE_EDIT; + app->prompt_kind = ECEX_PROMPT_NONE; + app->prompt_label[0] = '\0'; + app->prompt_input[0] = '\0'; + app->prompt_input_len = 0; + app_reset_prompt_completion(app); + app_message(app, "Prompt cancelled"); +} + +static void app_submit_prompt(app_t *app) { + if (!app || !app->ed) return; + + if (app->prompt_input_len == 0 && app->prompt_kind != ECEX_PROMPT_COMPILE) { + app_cancel_prompt(app); + return; + } + + char input[sizeof(app->prompt_input)]; + snprintf(input, sizeof(input), "%s", app->prompt_input); + + ecex_prompt_request_t kind = app->prompt_kind; + app->mode = APP_MODE_EDIT; + app->prompt_kind = ECEX_PROMPT_NONE; + app->prompt_label[0] = '\0'; + app->prompt_input[0] = '\0'; + app->prompt_input_len = 0; + + char *expanded_input = app_expand_user_path(input); + const char *path = expanded_input ? expanded_input : input; + + int result = -1; + const char *verb = "Prompt"; + + switch (kind) { + case ECEX_PROMPT_FIND_FILE: + result = ecex_find_file(app->ed, path); + verb = "Opened"; + break; + + case ECEX_PROMPT_WRITE_FILE: + result = ecex_write_current_buffer(app->ed, path); + verb = "Wrote"; + break; + + case ECEX_PROMPT_EVAL_FILE: + result = ecex_eval_file(app->ed, path); + verb = "Evaluated"; + break; + + case ECEX_PROMPT_SWITCH_BUFFER: + result = ecex_switch_buffer(app->ed, input); + verb = "Switched"; + break; + + case ECEX_PROMPT_KILL_BUFFER: + result = ecex_kill_buffer(app->ed, input); + verb = "Killed"; + break; + + case ECEX_PROMPT_COMPILE: + result = ecex_compile(app->ed, input[0] ? input : "make"); + verb = "Compiled"; + break; + + case ECEX_PROMPT_GREP: + result = ecex_grep(app->ed, input); + verb = "Grep"; + break; + + case ECEX_PROMPT_NONE: + default: + result = -1; + break; + } + + if (result == 0) { + app_reload_font_if_needed(app); + } + + char msg[ECEX_MINIBUFFER_SIZE]; + if (result == 0) { + snprintf(msg, sizeof(msg), "%s: %s", verb, path); + } else { + snprintf(msg, sizeof(msg), "Failed: %s", path); + } + + free(expanded_input); + app_reset_prompt_completion(app); + app_message(app, msg); +} + +static void app_execute_mx(app_t *app) { + if (!app) return; + + if (app->minibuffer_len == 0) { + app_cancel_mx(app); + return; + } + + char command[ECEX_MINIBUFFER_SIZE]; + snprintf(command, sizeof(command), "%s", app->minibuffer); + + app->mode = APP_MODE_EDIT; + app->minibuffer[0] = '\0'; + app->minibuffer_len = 0; + app_reset_completion(app); + + if (app_execute_command(app, command) == 0) { + if (app->mode == APP_MODE_EDIT) { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Executed: %s", command); + app_message(app, msg); + } + } else { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "No such command: %s", command); + app_message(app, msg); + } + + if (app->ed->should_quit) { + glfwSetWindowShouldClose(app->window, GLFW_TRUE); + glfwPostEmptyEvent(); + } + + app->dirty = 1; +} + +static void app_complete_mx(app_t *app) { + if (!app) return; + + if (app->completion_active) { + app_cycle_completion(app, 1); + } else { + app_begin_completion(app, 1); + } +} + +static void app_enter_prefix(app_t *app, const char *first_key) { + if (!app || !first_key) return; + + app->mode = APP_MODE_PREFIX; + app->minibuffer[0] = '\0'; + app->minibuffer_len = 0; + app_reset_completion(app); + + snprintf(app->prefix, sizeof(app->prefix), "%s", first_key); + app->prefix_len = strlen(app->prefix); + + app->message[0] = '\0'; + app->dirty = 1; +} + +static void app_cancel_prefix(app_t *app) { + if (!app) return; + + app->mode = APP_MODE_EDIT; + app->prefix[0] = '\0'; + app->prefix_len = 0; + + app_message(app, "Prefix cancelled"); +} + +static int app_append_prefix_key(app_t *app, const char *key_name) { + if (!app || !key_name) return -1; + + size_t key_len = strlen(key_name); + + if (app->prefix_len + 1 + key_len + 1 >= sizeof(app->prefix)) { + app_cancel_prefix(app); + return -1; + } + + app->prefix[app->prefix_len++] = ' '; + memcpy(app->prefix + app->prefix_len, key_name, key_len + 1); + app->prefix_len += key_len; + + return 0; +} + +static int key_sequence_has_prefix(app_t *app, const char *prefix) { + if (!app || !app->ed || !prefix) return 0; + return ecex_key_sequence_has_prefix_for_buffer(app->ed, + ecex_current_buffer(app->ed), + prefix); +} + +static void app_finish_prefix(app_t *app) { + if (!app) return; + + const char *command = ecex_lookup_key_for_buffer(app->ed, ecex_current_buffer(app->ed), app->prefix); + + if (command) { + if (app_execute_command(app, command) == 0) { + if (app->mode == APP_MODE_EDIT) { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Executed: %s", command); + app_message(app, msg); + } + } else { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Command failed: %s", command); + app_message(app, msg); + } + + if (app->ed->should_quit) { + glfwSetWindowShouldClose(app->window, GLFW_TRUE); + glfwPostEmptyEvent(); + } + + if (app->mode != APP_MODE_PROMPT) { + app->mode = APP_MODE_EDIT; + } + app->prefix[0] = '\0'; + app->prefix_len = 0; + app->dirty = 1; + return; + } + + if (key_sequence_has_prefix(app, app->prefix)) { + app->dirty = 1; + return; + } + + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Undefined key: %s", app->prefix); + + app->mode = APP_MODE_EDIT; + app->prefix[0] = '\0'; + app->prefix_len = 0; + + app_message(app, msg); +} + + +static float app_mono_cell_width(app_t *app) { + float w = text_width(&app->font, "M"); + return w > 1.0f ? w : app->font.size_px * 0.6f; +} + +static float app_status_height(app_t *app) { + float line_h = app->font.line_height > 1.0f ? app->font.line_height : app->font.size_px * 1.2f; + float pad_y = app->font.size_px * 0.35f; + if (pad_y < 4.0f) pad_y = 4.0f; + return line_h + pad_y * 2.0f; +} + +static float app_minibuffer_height(app_t *app) { return app_status_height(app); } + +static int app_minibuffer_visible(app_t *app) { + return app->mode == APP_MODE_MX || app->mode == APP_MODE_PREFIX || + app->mode == APP_MODE_PROMPT || app->mode == APP_MODE_ISEARCH || + app->message[0] != '\0'; +} + +static size_t app_offset_for_line(buffer_t *buf, size_t target_line) { + if (!buf || target_line == 0) return 0; + size_t line = 0; + for (size_t i = 0; i < buf->len; i++) { + if (buf->data[i] == '\n') { + line++; + if (line == target_line) return i + 1; + } + } + return buf->len; +} + +static int app_focus_window_at(app_t *app, double px, double py) { + if (!app || !app->ed || app->ed->window_count == 0) return -1; + float editor_h = (float)app->height - app_status_height(app); + if (app_minibuffer_visible(app)) editor_h -= app_minibuffer_height(app); + if (editor_h < 1.0f) editor_h = 1.0f; + for (size_t i = 0; i < app->ed->window_count; i++) { + ecex_window_t *w = &app->ed->windows[i]; + float x = w->x * (float)app->width; + float y = w->y * editor_h; + float ww = w->w * (float)app->width; + float hh = w->h * editor_h; + if (px >= x && px < x + ww && py >= y && py < y + hh) { + app->ed->current_window_index = i; + ecex_sync_current_buffer(app->ed); + return (int)i; + } + } + return -1; +} + +static void app_move_point_to_pixel(app_t *app, double px, double py) { + int wi = app_focus_window_at(app, px, py); + if (wi < 0) return; + ecex_window_t *w = &app->ed->windows[wi]; + buffer_t *buf = w->buffer; + if (!buf) return; + float editor_h = (float)app->height - app_status_height(app); + if (app_minibuffer_visible(app)) editor_h -= app_minibuffer_height(app); + float wx = w->x * (float)app->width; + float wy = w->y * editor_h; + float pad_x = app->font.size_px * 0.75f; if (pad_x < 8.0f) pad_x = 8.0f; + float pad_y = app->font.size_px * 0.35f; if (pad_y < 4.0f) pad_y = 4.0f; + size_t row = py > wy + pad_y ? (size_t)((py - wy - pad_y) / app->font.line_height) : 0; + size_t col = px > wx + pad_x ? (size_t)((px - wx - pad_x) / app_mono_cell_width(app)) : 0; + size_t line = buf->scroll_line + row; + size_t start = app_offset_for_line(buf, line); + size_t end = buffer_line_end_at(buf, start); + buffer_set_point(buf, start + ECEX_MIN(col + buf->scroll_col, end - start)); + app->dirty = 1; +} + +static void mouse_button_callback(GLFWwindow *window, int button, int action, int mods) { + (void)mods; + if (button != GLFW_MOUSE_BUTTON_LEFT || action != GLFW_PRESS) return; + app_t *app = glfwGetWindowUserPointer(window); + if (!app) return; + glfwGetFramebufferSize(window, &app->width, &app->height); + double x = 0.0, y = 0.0; + glfwGetCursorPos(window, &x, &y); + app_move_point_to_pixel(app, x, y); +} + +static void scroll_callback(GLFWwindow *window, double xoffset, double yoffset) { + (void)xoffset; + app_t *app = glfwGetWindowUserPointer(window); + if (!app || !app->ed) return; + buffer_t *buf = ecex_current_buffer(app->ed); + if (!buf) return; + if (yoffset < 0.0) buf->scroll_line += 3; + else if (yoffset > 0.0) buf->scroll_line = buf->scroll_line > 3 ? buf->scroll_line - 3 : 0; + app->dirty = 1; +} + +static void mark_dirty(GLFWwindow *window) { + app_t *app = glfwGetWindowUserPointer(window); + if (app) { + app->dirty = 1; + } +} + +static void framebuffer_size_callback(GLFWwindow *window, int width, int height) { + (void)width; + (void)height; + + mark_dirty(window); +} + +static void window_refresh_callback(GLFWwindow *window) { + mark_dirty(window); +} + +static const char *key_name_for_special(int key) { + switch (key) { + case GLFW_KEY_F1: return "F1"; + case GLFW_KEY_F2: return "F2"; + case GLFW_KEY_F3: return "F3"; + case GLFW_KEY_F4: return "F4"; + case GLFW_KEY_F5: return "F5"; + case GLFW_KEY_LEFT: return "LEFT"; + case GLFW_KEY_RIGHT: return "RIGHT"; + case GLFW_KEY_UP: return "UP"; + case GLFW_KEY_DOWN: return "DOWN"; + case GLFW_KEY_ENTER: return "ENTER"; + case GLFW_KEY_BACKSPACE: return "BACKSPACE"; + case GLFW_KEY_DELETE: return "DELETE"; + case GLFW_KEY_TAB: return "TAB"; + case GLFW_KEY_SPACE: return "SPC"; + case GLFW_KEY_ESCAPE: return "ESC"; + case GLFW_KEY_HOME: return "HOME"; + case GLFW_KEY_END: return "END"; + case GLFW_KEY_PAGE_UP: return "PAGEUP"; + case GLFW_KEY_PAGE_DOWN: return "PAGEDOWN"; + default: return NULL; + } +} + +static int layout_key_name(int key, + int scancode, + char *out, + size_t out_size) { + if (!out || out_size == 0) return -1; + + out[0] = '\0'; + + const char *special = key_name_for_special(key); + if (special) { + snprintf(out, out_size, "%s", special); + return 0; + } + + const char *name = glfwGetKeyName(key, scancode); + if (!name || !name[0]) return -1; + + if (name[1] != '\0') return -1; + + char c = name[0]; + if (c >= 'A' && c <= 'Z') { + c = (char)(c - 'A' + 'a'); + } + + out[0] = c; + out[1] = '\0'; + return 0; +} + +static int key_event_to_string(int key, + int scancode, + int mods, + char *out, + size_t out_size) { + if (!out || out_size == 0) return -1; + + out[0] = '\0'; + + char base[32]; + if (layout_key_name(key, scancode, base, sizeof(base)) != 0) { + return -1; + } + + char prefix[32]; + prefix[0] = '\0'; + + if (mods & GLFW_MOD_CONTROL) { + strncat(prefix, "C-", sizeof(prefix) - strlen(prefix) - 1); + } + + if (mods & GLFW_MOD_ALT) { + strncat(prefix, "M-", sizeof(prefix) - strlen(prefix) - 1); + } + + if (mods & GLFW_MOD_SUPER) { + strncat(prefix, "S-", sizeof(prefix) - strlen(prefix) - 1); + } + + snprintf(out, out_size, "%s%s", prefix, base); + return 0; +} + +static int is_layout_char_key(int key, + int scancode, + char wanted) { + char name[32]; + + if (layout_key_name(key, scancode, name, sizeof(name)) != 0) { + return 0; + } + + if (wanted >= 'A' && wanted <= 'Z') { + wanted = (char)(wanted - 'A' + 'a'); + } + + return name[0] == wanted && name[1] == '\0'; +} + +static int key_produces_text(int key, int scancode) { + if (key_name_for_special(key)) { + return 0; + } + + const char *name = glfwGetKeyName(key, scancode); + return name && name[0] && name[1] == '\0'; +} + +static void try_execute_keybind(app_t *app, const char *key_name) { + const char *command = ecex_lookup_key_for_buffer(app->ed, ecex_current_buffer(app->ed), key_name); + if (!command) return; + + if (app_execute_command(app, command) == 0) { + app->dirty = 1; + } else { + char msg[ECEX_MINIBUFFER_SIZE]; + snprintf(msg, sizeof(msg), "Bad keybind: %s -> %s", key_name, command); + app_message(app, msg); + } + + if (app->ed->should_quit) { + glfwSetWindowShouldClose(app->window, GLFW_TRUE); + glfwPostEmptyEvent(); + } +} + +static void char_callback(GLFWwindow *window, unsigned int codepoint) { + app_t *app = glfwGetWindowUserPointer(window); + if (!app || !app->ed) return; + + if (app->suppress_next_char) { + app->suppress_next_char = 0; + return; + } + + if (app->mode == APP_MODE_EDIT) { + if ((app->current_mods & GLFW_MOD_ALT) && codepoint == 'x') { + app_enter_mx(app); + return; + } + } + + if (app->mode == APP_MODE_MX) { + if (codepoint >= 32 && codepoint <= 126) { + if (app->minibuffer_len + 1 < sizeof(app->minibuffer)) { + app_reset_completion(app); + app->minibuffer[app->minibuffer_len++] = (char)codepoint; + app->minibuffer[app->minibuffer_len] = '\0'; + app->dirty = 1; + } + } + return; + } + + if (app->mode == APP_MODE_ISEARCH) { + if (codepoint >= 32 && codepoint <= 126) { + if (app->isearch_len + 1 < sizeof(app->isearch_query)) { + app->isearch_query[app->isearch_len++] = (char)codepoint; + app->isearch_query[app->isearch_len] = '\0'; + app_update_isearch(app); + } + } + return; + } + + if (app->mode == APP_MODE_PROMPT) { + if (codepoint >= 32 && codepoint <= 126) { + if (app->prompt_input_len + 1 < sizeof(app->prompt_input)) { + app->prompt_input[app->prompt_input_len++] = (char)codepoint; + app->prompt_input[app->prompt_input_len] = '\0'; + app->dirty = 1; + } + } + return; + } + + if (app->mode == APP_MODE_PREFIX) { + return; + } + + buffer_t *buf = ecex_current_buffer(app->ed); + if (!buf) return; + + if (buffer_is_interactive(buf)) { + return; + } + + if (codepoint >= 32 && codepoint <= 126) { + buffer_insert_char(buf, (char)codepoint); + app->message[0] = '\0'; + app->dirty = 1; + } +} + +static void key_callback(GLFWwindow *window, + int key, + int scancode, + int action, + int mods) { + if (action != GLFW_PRESS && action != GLFW_REPEAT) { + return; + } + + app_t *app = glfwGetWindowUserPointer(window); + if (!app || !app->ed) return; + + app->current_mods = mods; + + if (app->mode == APP_MODE_EDIT && key == GLFW_KEY_F1) { + app_enter_mx(app); + return; + } + + if (app->mode == APP_MODE_EDIT && + (mods & GLFW_MOD_ALT) && + is_layout_char_key(key, scancode, 'g')) { + app_enter_prefix(app, "M-g"); + return; + } + + if (app->mode == APP_MODE_EDIT && + (mods & GLFW_MOD_CONTROL) && + is_layout_char_key(key, scancode, 'x')) { + app_enter_prefix(app, "C-x"); + return; + } + + if (app->mode == APP_MODE_MX) { + switch (key) { + case GLFW_KEY_ESCAPE: + app_cancel_mx(app); + return; + + case GLFW_KEY_ENTER: + app_execute_mx(app); + return; + + case GLFW_KEY_TAB: + app_complete_mx(app); + return; + + case GLFW_KEY_DOWN: + app_cycle_completion(app, 1); + return; + + case GLFW_KEY_UP: + app_cycle_completion(app, -1); + return; + + case GLFW_KEY_BACKSPACE: + if (app->minibuffer_len > 0) { + app_reset_completion(app); + app->minibuffer_len--; + app->minibuffer[app->minibuffer_len] = '\0'; + app->dirty = 1; + } + return; + + default: + return; + } + } + + if (app->mode == APP_MODE_ISEARCH) { + switch (key) { + case GLFW_KEY_ESCAPE: + app_cancel_isearch(app); + return; + case GLFW_KEY_ENTER: + app_finish_isearch(app); + return; + case GLFW_KEY_BACKSPACE: + if (app->isearch_len > 0) { + app->isearch_len--; + app->isearch_query[app->isearch_len] = '\0'; + buffer_t *buf = ecex_current_buffer(app->ed); + if (buf) { + buffer_set_point(buf, app->isearch_origin); + buffer_clear_mark(buf); + } + app_update_isearch(app); + } + return; + default: + if ((mods & GLFW_MOD_CONTROL) && is_layout_char_key(key, scancode, 's')) { + app->isearch_backward = 0; + app_update_isearch(app); + return; + } + if ((mods & GLFW_MOD_CONTROL) && is_layout_char_key(key, scancode, 'r')) { + app->isearch_backward = 1; + app_update_isearch(app); + return; + } + return; + } + } + + if (app->mode == APP_MODE_PROMPT) { + switch (key) { + case GLFW_KEY_ESCAPE: + app_cancel_prompt(app); + return; + + case GLFW_KEY_ENTER: + app_submit_prompt(app); + return; + + case GLFW_KEY_TAB: + app_cycle_prompt_completion(app, 1); + return; + + case GLFW_KEY_DOWN: + app_cycle_prompt_completion(app, 1); + return; + + case GLFW_KEY_UP: + app_cycle_prompt_completion(app, -1); + return; + + case GLFW_KEY_BACKSPACE: + if (app->prompt_input_len > 0) { + app_reset_prompt_completion(app); + app->prompt_input_len--; + app->prompt_input[app->prompt_input_len] = '\0'; + app->dirty = 1; + } + return; + + default: + return; + } + } + + if (app->mode == APP_MODE_PREFIX) { + if (key == GLFW_KEY_ESCAPE) { + app_cancel_prefix(app); + return; + } + + char key_name[64]; + + if (key_event_to_string(key, scancode, mods, key_name, sizeof(key_name)) == 0) { + if (key_produces_text(key, scancode)) { + app->suppress_next_char = 1; + } + + if (app_append_prefix_key(app, key_name) == 0) { + app_finish_prefix(app); + } + return; + } + + app_cancel_prefix(app); + return; + } + + char key_name[64]; + if (key_event_to_string(key, scancode, mods, key_name, sizeof(key_name)) == 0) { + const char *command = ecex_lookup_key_for_buffer(app->ed, ecex_current_buffer(app->ed), key_name); + if (command) { + if (key_produces_text(key, scancode) && + !(mods & GLFW_MOD_CONTROL) && + !(mods & GLFW_MOD_SUPER)) { + app->suppress_next_char = 1; + } + + try_execute_keybind(app, key_name); + return; + } + } + + if (key == GLFW_KEY_ESCAPE) { + glfwSetWindowShouldClose(window, GLFW_TRUE); + glfwPostEmptyEvent(); + return; + } +} + +void app_init(app_t *app, ecex_t *ed) { + if (!app) return; + + memset(app, 0, sizeof(*app)); + app->ed = ed; + app->dirty = 1; + app->mode = APP_MODE_EDIT; + app_reset_completion(app); + app_reset_prompt_completion(app); +} + +void app_set_window(app_t *app, GLFWwindow *window) { + if (!app) return; + + app->window = window; + if (app->ed) { + ecex_set_clipboard_callbacks(app->ed, + window ? app_clipboard_get : NULL, + window ? app_clipboard_set : NULL, + app); + } + if (window) { + glfwSetWindowUserPointer(window, app); + } +} + +void app_install_callbacks(app_t *app) { + if (!app || !app->window) return; + + glfwSetCharCallback(app->window, char_callback); + glfwSetKeyCallback(app->window, key_callback); + glfwSetFramebufferSizeCallback(app->window, framebuffer_size_callback); + glfwSetWindowRefreshCallback(app->window, window_refresh_callback); + glfwSetMouseButtonCallback(app->window, mouse_button_callback); + glfwSetScrollCallback(app->window, scroll_callback); +} diff --git a/src/buffers.c b/src/buffers.c new file mode 100644 index 0000000..e8c1d23 --- /dev/null +++ b/src/buffers.c @@ -0,0 +1,701 @@ +#include "buffers.h" + +#include "common.h" +#include "util.h" + +#include <assert.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +#define BUFFER_INITIAL_CAP 64 + +static int buffer_is_word_char(char c) { + return (c >= 'a' && c <= 'z') || + (c >= 'A' && c <= 'Z') || + (c >= '0' && c <= '9') || + c == '_'; +} + +static int buffer_require_editable(buffer_t *buffer) { + if (!buffer || buffer->read_only) return ECEX_ERR; + return ECEX_OK; +} + +static void buffer_undo_entry_free(ecex_undo_entry_t *entry) { + if (!entry) return; + free(entry->data); + entry->data = NULL; + entry->len = 0; + entry->point = 0; + entry->mark = 0; + entry->mark_active = 0; +} + +static void buffer_undo_stack_clear(ecex_undo_entry_t *stack, size_t count) { + if (!stack) return; + for (size_t i = 0; i < count; i++) buffer_undo_entry_free(&stack[i]); +} + +static int buffer_push_snapshot_to(ecex_undo_entry_t **stack, + size_t *count, + size_t *cap, + buffer_t *buffer) { + if (!stack || !count || !cap || !buffer) return ECEX_ERR; + if (ECEX_GROW_ARRAY(*stack, *count, *cap, 64) != ECEX_OK) return ECEX_ERR; + ecex_undo_entry_t *entry = &(*stack)[(*count)++]; + memset(entry, 0, sizeof(*entry)); + entry->data = malloc(buffer->len + 1); + if (!entry->data) { (*count)--; return ECEX_ERR; } + memcpy(entry->data, buffer->data, buffer->len + 1); + entry->len = buffer->len; + entry->point = buffer->point; + entry->mark = buffer->mark; + entry->mark_active = buffer->mark_active; + return ECEX_OK; +} + +static void buffer_clear_redo(buffer_t *buffer) { + if (!buffer) return; + buffer_undo_stack_clear(buffer->redo_stack, buffer->redo_count); + buffer->redo_count = 0; +} + +static int buffer_record_undo(buffer_t *buffer) { + if (!buffer || buffer->undo_disabled) return ECEX_OK; + if (buffer_push_snapshot_to(&buffer->undo_stack, + &buffer->undo_count, + &buffer->undo_cap, + buffer) != ECEX_OK) { + return ECEX_ERR; + } + buffer_clear_redo(buffer); + return ECEX_OK; +} + +static int buffer_restore_snapshot(buffer_t *buffer, ecex_undo_entry_t *entry) { + if (!buffer || !entry || !entry->data) return ECEX_ERR; + char *copy = malloc(entry->len + 1); + if (!copy) return ECEX_ERR; + memcpy(copy, entry->data, entry->len + 1); + free(buffer->data); + buffer->data = copy; + buffer->len = entry->len; + buffer->cap = entry->len + 1; + buffer->point = ECEX_MIN(entry->point, buffer->len); + buffer->mark = ECEX_MIN(entry->mark, buffer->len); + buffer->mark_active = entry->mark_active; + buffer->modified = 1; + return ECEX_OK; +} + +buffer_t *buffer_new(const char *name, const char *path, int read_only) { + assert(name && "buffer name cannot be NULL"); + + buffer_t *buffer = calloc(1, sizeof(*buffer)); + if (!buffer) return NULL; + + buffer->name = ecex_strdup(name); + buffer->path = ecex_strdup(path); + buffer->data = malloc(1); + + if (!buffer->name || (path && !buffer->path) || !buffer->data) { + buffer_free(buffer); + return NULL; + } + + buffer->data[0] = '\0'; + buffer->len = 0; + buffer->cap = 1; + buffer->read_only = read_only; + + return buffer; +} + +void buffer_free(buffer_t *buffer) { + if (!buffer) return; + + buffer_clear_interactive_actions(buffer); + buffer_undo_stack_clear(buffer->undo_stack, buffer->undo_count); + buffer_undo_stack_clear(buffer->redo_stack, buffer->redo_count); + free(buffer->undo_stack); + free(buffer->redo_stack); + free(buffer->interactive_actions); + free(buffer->name); + free(buffer->path); + free(buffer->data); + free(buffer); +} + +int buffer_reserve(buffer_t *buffer, size_t needed) { + ECEX_RETURN_ERR_IF_NULL(buffer); + if (needed <= buffer->cap) return ECEX_OK; + + size_t new_cap = buffer->cap ? buffer->cap : BUFFER_INITIAL_CAP; + while (new_cap < needed) { + new_cap *= 2; + } + + char *new_data = realloc(buffer->data, new_cap); + if (!new_data) return ECEX_ERR; + + buffer->data = new_data; + buffer->cap = new_cap; + return ECEX_OK; +} + +int buffer_clear(buffer_t *buffer) { + if (buffer_require_editable(buffer) != ECEX_OK) return ECEX_ERR; + if (buffer_record_undo(buffer) != ECEX_OK) return ECEX_ERR; + + if (buffer_reserve(buffer, 1) != ECEX_OK) return ECEX_ERR; + + buffer->data[0] = '\0'; + buffer->len = 0; + buffer->point = 0; + buffer->mark = 0; + buffer->mark_active = 0; + buffer->scroll_line = 0; + buffer->scroll_col = 0; + buffer_clear_interactive_actions(buffer); + buffer->modified = 1; + return ECEX_OK; +} + +int buffer_set_text(buffer_t *buffer, const char *text) { + if (buffer_require_editable(buffer) != ECEX_OK || !text) return ECEX_ERR; + if (buffer_record_undo(buffer) != ECEX_OK) return ECEX_ERR; + + size_t len = strlen(text); + if (buffer_reserve(buffer, len + 1) != ECEX_OK) return ECEX_ERR; + + memcpy(buffer->data, text, len + 1); + buffer->len = len; + buffer->point = len; + buffer->mark = 0; + buffer->mark_active = 0; + buffer->scroll_line = 0; + buffer->scroll_col = 0; + buffer_clear_interactive_actions(buffer); + buffer->modified = 1; + return ECEX_OK; +} + +int buffer_insert_at(buffer_t *buffer, size_t pos, const char *text) { + if (buffer_require_editable(buffer) != ECEX_OK || !text) return ECEX_ERR; + if (pos > buffer->len) return ECEX_ERR; + + size_t text_len = strlen(text); + if (text_len == 0) return ECEX_OK; + if (buffer_record_undo(buffer) != ECEX_OK) return ECEX_ERR; + size_t needed = buffer->len + text_len + 1; + + if (buffer_reserve(buffer, needed) != ECEX_OK) return ECEX_ERR; + + memmove(buffer->data + pos + text_len, + buffer->data + pos, + buffer->len - pos + 1); + memcpy(buffer->data + pos, text, text_len); + + buffer->len += text_len; + buffer->point = pos + text_len; + buffer->modified = 1; + return ECEX_OK; +} + +int buffer_insert(buffer_t *buffer, const char *text) { + ECEX_RETURN_ERR_IF_NULL(buffer); + return buffer_insert_at(buffer, buffer->point, text); +} + +int buffer_append(buffer_t *buffer, const char *text) { + ECEX_RETURN_ERR_IF_NULL(buffer); + return buffer_insert_at(buffer, buffer->len, text); +} + +int buffer_prepend(buffer_t *buffer, const char *text) { + return buffer_insert_at(buffer, 0, text); +} + +int buffer_insert_char_at(buffer_t *buffer, size_t pos, char c) { + if (buffer_require_editable(buffer) != ECEX_OK) return ECEX_ERR; + if (pos > buffer->len) return ECEX_ERR; + if (buffer_record_undo(buffer) != ECEX_OK) return ECEX_ERR; + + if (buffer_reserve(buffer, buffer->len + 2) != ECEX_OK) return ECEX_ERR; + + memmove(buffer->data + pos + 1, + buffer->data + pos, + buffer->len - pos + 1); + + buffer->data[pos] = c; + buffer->len++; + buffer->point = pos + 1; + buffer->modified = 1; + return ECEX_OK; +} + +int buffer_insert_char(buffer_t *buffer, char c) { + ECEX_RETURN_ERR_IF_NULL(buffer); + return buffer_insert_char_at(buffer, buffer->point, c); +} + +int buffer_delete_range(buffer_t *buffer, size_t start, size_t end) { + if (buffer_require_editable(buffer) != ECEX_OK) return ECEX_ERR; + if (start > end || end > buffer->len) return ECEX_ERR; + if (start == end) return ECEX_OK; + if (buffer_record_undo(buffer) != ECEX_OK) return ECEX_ERR; + + size_t deleted = end - start; + + memmove(buffer->data + start, + buffer->data + end, + buffer->len - end + 1); + + buffer->len -= deleted; + + if (buffer->point > end) { + buffer->point -= deleted; + } else if (buffer->point > start) { + buffer->point = start; + } + + if (buffer->mark > end) { + buffer->mark -= deleted; + } else if (buffer->mark > start) { + buffer->mark = start; + } + + if (buffer->mark_active && buffer->mark == buffer->point) { + buffer->mark_active = 0; + } + + buffer->modified = 1; + return ECEX_OK; +} + +int buffer_delete_selection(buffer_t *buffer) { + if (!buffer_has_selection(buffer)) return ECEX_OK; + + size_t start = 0; + size_t end = 0; + buffer_selection_range(buffer, &start, &end); + + int result = buffer_delete_range(buffer, start, end); + if (result == ECEX_OK) buffer_clear_mark(buffer); + return result; +} + +int buffer_replace_selection(buffer_t *buffer, const char *text) { + if (!buffer || !text) return ECEX_ERR; + if (!buffer_has_selection(buffer)) return buffer_insert(buffer, text); + + size_t start = 0; + size_t end = 0; + buffer_selection_range(buffer, &start, &end); + + if (buffer_delete_range(buffer, start, end) != ECEX_OK) return ECEX_ERR; + buffer->point = start; + buffer_clear_mark(buffer); + return buffer_insert(buffer, text); +} + +int buffer_backspace(buffer_t *buffer) { + if (!buffer) return ECEX_ERR; + if (buffer_has_selection(buffer)) return buffer_delete_selection(buffer); + if (buffer->point == 0) return ECEX_OK; + return buffer_delete_range(buffer, buffer->point - 1, buffer->point); +} + +int buffer_delete_forward(buffer_t *buffer) { + if (!buffer) return ECEX_ERR; + if (buffer_has_selection(buffer)) return buffer_delete_selection(buffer); + if (buffer->point >= buffer->len) return ECEX_OK; + return buffer_delete_range(buffer, buffer->point, buffer->point + 1); +} + +int buffer_kill_line(buffer_t *buffer) { + if (!buffer) return ECEX_ERR; + + size_t end = buffer_line_end_at(buffer, buffer->point); + if (end == buffer->point && end < buffer->len && buffer->data[end] == '\n') { + end++; + } + + return buffer_delete_range(buffer, buffer->point, end); +} + +void buffer_set_point(buffer_t *buffer, size_t point) { + if (!buffer) return; + buffer->point = ECEX_MIN(point, buffer->len); +} + +void buffer_move_left(buffer_t *buffer) { + if (!buffer || buffer->point == 0) return; + buffer->point--; +} + +void buffer_move_right(buffer_t *buffer) { + if (!buffer || buffer->point >= buffer->len) return; + buffer->point++; +} + +void buffer_move_up(buffer_t *buffer) { + if (!buffer) return; + + size_t current_start = buffer_line_start_at(buffer, buffer->point); + if (current_start == 0) { + buffer->point = 0; + return; + } + + size_t wanted_col = buffer->point - current_start; + size_t prev_end = current_start - 1; + size_t prev_start = buffer_line_start_at(buffer, prev_end); + size_t prev_len = prev_end - prev_start; + + buffer->point = prev_start + ECEX_MIN(wanted_col, prev_len); +} + +void buffer_move_down(buffer_t *buffer) { + if (!buffer) return; + + size_t current_start = buffer_line_start_at(buffer, buffer->point); + size_t current_end = buffer_line_end_at(buffer, buffer->point); + if (current_end >= buffer->len) { + buffer->point = buffer->len; + return; + } + + size_t wanted_col = buffer->point - current_start; + size_t next_start = current_end + 1; + size_t next_end = buffer_line_end_at(buffer, next_start); + size_t next_len = next_end - next_start; + + buffer->point = next_start + ECEX_MIN(wanted_col, next_len); +} + +void buffer_move_word_left(buffer_t *buffer) { + if (!buffer) return; + + size_t pos = buffer->point; + while (pos > 0 && !buffer_is_word_char(buffer->data[pos - 1])) pos--; + while (pos > 0 && buffer_is_word_char(buffer->data[pos - 1])) pos--; + buffer->point = pos; +} + +void buffer_move_word_right(buffer_t *buffer) { + if (!buffer) return; + + size_t pos = buffer->point; + while (pos < buffer->len && !buffer_is_word_char(buffer->data[pos])) pos++; + while (pos < buffer->len && buffer_is_word_char(buffer->data[pos])) pos++; + buffer->point = pos; +} + +void buffer_move_beginning_of_line(buffer_t *buffer) { + if (!buffer) return; + buffer->point = buffer_line_start_at(buffer, buffer->point); +} + +void buffer_move_end_of_line(buffer_t *buffer) { + if (!buffer) return; + buffer->point = buffer_line_end_at(buffer, buffer->point); +} + +void buffer_move_beginning_of_buffer(buffer_t *buffer) { + if (!buffer) return; + buffer->point = 0; +} + +void buffer_move_end_of_buffer(buffer_t *buffer) { + if (!buffer) return; + buffer->point = buffer->len; +} + +void buffer_set_mark(buffer_t *buffer, size_t mark) { + if (!buffer) return; + buffer->mark = ECEX_MIN(mark, buffer->len); + buffer->mark_active = 1; +} + +void buffer_clear_mark(buffer_t *buffer) { + if (!buffer) return; + buffer->mark_active = 0; +} + +int buffer_has_selection(buffer_t *buffer) { + return buffer && buffer->mark_active && buffer->mark != buffer->point; +} + +void buffer_selection_range(buffer_t *buffer, size_t *out_start, size_t *out_end) { + size_t start = 0; + size_t end = 0; + + if (buffer && buffer_has_selection(buffer)) { + start = ECEX_MIN(buffer->point, buffer->mark); + end = ECEX_MAX(buffer->point, buffer->mark); + } + + if (out_start) *out_start = start; + if (out_end) *out_end = end; +} + +size_t buffer_line_start_at(buffer_t *buffer, size_t pos) { + if (!buffer) return 0; + pos = ECEX_MIN(pos, buffer->len); + + while (pos > 0 && buffer->data[pos - 1] != '\n') { + pos--; + } + + return pos; +} + +size_t buffer_line_end_at(buffer_t *buffer, size_t pos) { + if (!buffer) return 0; + pos = ECEX_MIN(pos, buffer->len); + + while (pos < buffer->len && buffer->data[pos] != '\n') { + pos++; + } + + return pos; +} + +size_t buffer_current_line_start(buffer_t *buffer) { + if (!buffer) return 0; + return buffer_line_start_at(buffer, buffer->point); +} + +size_t buffer_current_line_end(buffer_t *buffer) { + if (!buffer) return 0; + return buffer_line_end_at(buffer, buffer->point); +} + +size_t buffer_current_column(buffer_t *buffer) { + if (!buffer) return 0; + return buffer->point - buffer_line_start_at(buffer, buffer->point); +} + +size_t buffer_current_line_number(buffer_t *buffer) { + if (!buffer) return 0; + + size_t line = 1; + for (size_t i = 0; i < buffer->point && i < buffer->len; i++) { + if (buffer->data[i] == '\n') line++; + } + + return line; +} + +size_t buffer_line_count(buffer_t *buffer) { + if (!buffer || buffer->len == 0) return 1; + + size_t lines = 1; + for (size_t i = 0; i < buffer->len; i++) { + if (buffer->data[i] == '\n') lines++; + } + + return lines; +} + +char *buffer_substring(buffer_t *buffer, size_t start, size_t end) { + if (!buffer || start > end || end > buffer->len) return NULL; + + size_t len = end - start; + char *copy = malloc(len + 1); + if (!copy) return NULL; + + memcpy(copy, buffer->data + start, len); + copy[len] = '\0'; + return copy; +} + +char *buffer_current_line_copy(buffer_t *buffer) { + if (!buffer) return NULL; + return buffer_substring(buffer, + buffer_current_line_start(buffer), + buffer_current_line_end(buffer)); +} + +int buffer_load_file(buffer_t *buffer, const char *path) { + if (buffer_require_editable(buffer) != ECEX_OK || !path) return ECEX_ERR; + + size_t size = 0; + char *new_data = ecex_read_entire_file(path, &size); + if (!new_data) return ECEX_ERR; + + char *new_path = ecex_strdup(path); + if (!new_path) { + free(new_data); + return ECEX_ERR; + } + + free(buffer->data); + free(buffer->path); + + buffer->data = new_data; + buffer->path = new_path; + buffer->len = size; + buffer->cap = size + 1; + buffer->point = 0; + buffer->mark = 0; + buffer->mark_active = 0; + buffer->scroll_line = 0; + buffer->scroll_col = 0; + buffer->modified = 0; + buffer_clear_undo(buffer); + return ECEX_OK; +} + +int buffer_save(buffer_t *buffer) { + if (!buffer || buffer->read_only || !buffer->path) return ECEX_ERR; + + FILE *file = fopen(buffer->path, "wb"); + if (!file) return ECEX_ERR; + + size_t written = fwrite(buffer->data, 1, buffer->len, file); + int close_result = fclose(file); + + if (close_result != 0 || written != buffer->len) return ECEX_ERR; + + buffer->modified = 0; + return ECEX_OK; +} + +int buffer_save_as(buffer_t *buffer, const char *path) { + if (buffer_require_editable(buffer) != ECEX_OK || !path) return ECEX_ERR; + + char *new_path = ecex_strdup(path); + if (!new_path) return ECEX_ERR; + + free(buffer->path); + buffer->path = new_path; + return buffer_save(buffer); +} + + + +int buffer_undo(buffer_t *buffer) { + if (buffer_require_editable(buffer) != ECEX_OK) return ECEX_ERR; + if (buffer->undo_count == 0) return ECEX_OK; + if (buffer_push_snapshot_to(&buffer->redo_stack, &buffer->redo_count, &buffer->redo_cap, buffer) != ECEX_OK) return ECEX_ERR; + ecex_undo_entry_t entry = buffer->undo_stack[--buffer->undo_count]; + int result = buffer_restore_snapshot(buffer, &entry); + buffer_undo_entry_free(&entry); + return result; +} + +int buffer_redo(buffer_t *buffer) { + if (buffer_require_editable(buffer) != ECEX_OK) return ECEX_ERR; + if (buffer->redo_count == 0) return ECEX_OK; + if (buffer_push_snapshot_to(&buffer->undo_stack, &buffer->undo_count, &buffer->undo_cap, buffer) != ECEX_OK) return ECEX_ERR; + ecex_undo_entry_t entry = buffer->redo_stack[--buffer->redo_count]; + int result = buffer_restore_snapshot(buffer, &entry); + buffer_undo_entry_free(&entry); + return result; +} + +void buffer_clear_undo(buffer_t *buffer) { + if (!buffer) return; + buffer_undo_stack_clear(buffer->undo_stack, buffer->undo_count); + buffer_undo_stack_clear(buffer->redo_stack, buffer->redo_count); + buffer->undo_count = 0; + buffer->redo_count = 0; +} + +int buffer_search_forward(buffer_t *buffer, const char *query, size_t start, size_t *out_pos) { + if (!buffer || !query || !query[0]) return ECEX_ERR; + if (start > buffer->len) start = buffer->len; + char *hit = strstr(buffer->data + start, query); + if (!hit && start > 0) hit = strstr(buffer->data, query); + if (!hit) return ECEX_ERR; + if (out_pos) *out_pos = (size_t)(hit - buffer->data); + return ECEX_OK; +} + +int buffer_search_backward(buffer_t *buffer, const char *query, size_t start, size_t *out_pos) { + if (!buffer || !query || !query[0]) return ECEX_ERR; + size_t qlen = strlen(query); + if (qlen > buffer->len) return ECEX_ERR; + if (start > buffer->len) start = buffer->len; + size_t best = (size_t)-1; + for (size_t i = 0; i + qlen <= start; i++) { + if (memcmp(buffer->data + i, query, qlen) == 0) best = i; + } + if (best == (size_t)-1) { + for (size_t i = start; i + qlen <= buffer->len; i++) { + if (memcmp(buffer->data + i, query, qlen) == 0) best = i; + } + } + if (best == (size_t)-1) return ECEX_ERR; + if (out_pos) *out_pos = best; + return ECEX_OK; +} + +void buffer_set_interactive(buffer_t *buffer, int interactive) { + if (!buffer) return; + buffer->interactive = interactive ? 1 : 0; +} + +int buffer_is_interactive(buffer_t *buffer) { + return buffer && buffer->interactive; +} + +int buffer_clear_interactive_actions(buffer_t *buffer) { + if (!buffer) return ECEX_ERR; + + for (size_t i = 0; i < buffer->interactive_action_count; i++) { + free(buffer->interactive_actions[i].payload); + buffer->interactive_actions[i].payload = NULL; + buffer->interactive_actions[i].fn = NULL; + buffer->interactive_actions[i].userdata = NULL; + buffer->interactive_actions[i].line = 0; + } + + buffer->interactive_action_count = 0; + return ECEX_OK; +} + +int buffer_add_interactive_action(buffer_t *buffer, + size_t line, + ecex_interactive_line_fn fn, + const char *payload, + void *userdata) { + if (!buffer || !fn) return ECEX_ERR; + + if (ECEX_GROW_ARRAY(buffer->interactive_actions, + buffer->interactive_action_count, + buffer->interactive_action_cap, + 16) != ECEX_OK) { + return ECEX_ERR; + } + + char *payload_copy = ecex_strdup(payload); + if (payload && !payload_copy) return ECEX_ERR; + + ecex_interactive_line_action_t *action = + &buffer->interactive_actions[buffer->interactive_action_count++]; + + action->line = line; + action->fn = fn; + action->payload = payload_copy; + action->userdata = userdata; + + buffer->interactive = 1; + return ECEX_OK; +} + +ecex_interactive_line_action_t *buffer_interactive_action_at_line(buffer_t *buffer, + size_t line) { + if (!buffer || !buffer->interactive) return NULL; + + for (size_t i = 0; i < buffer->interactive_action_count; i++) { + if (buffer->interactive_actions[i].line == line) { + return &buffer->interactive_actions[i]; + } + } + + return NULL; +} diff --git a/src/config.c b/src/config.c new file mode 100644 index 0000000..b416d7a --- /dev/null +++ b/src/config.c @@ -0,0 +1,293 @@ +#include "config.h" + +#include "buffers.h" +#include "ccdjit.h" +#include "common.h" +#include "ecex.h" +#include "eval.h" +#include "util.h" + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +typedef int (*ecex_config_init_fn)(ecex_t *ed); + +typedef struct host_symbol { + const char *name; + void *addr; +} host_symbol_t; + +void ecex_print_ccdjit_error(ccdjit_context *ctx) { + const ccdjit_diagnostic *diag = ccdjit_context_last_error(ctx); + + if (!diag) { + fprintf(stderr, "ccdjit: unknown error\n"); + return; + } + + fprintf(stderr, + "ccdjit error [%s] %s:%d:%d: %s\n", + diag->phase ? diag->phase : "?", + diag->filename ? diag->filename : "<input>", + diag->line, + diag->column, + diag->message ? diag->message : "(no message)"); + + if (diag->source_line) fprintf(stderr, "%s\n", diag->source_line); + if (diag->caret_line) fprintf(stderr, "%s\n", diag->caret_line); +} + +#define HOST_SYMBOL(fn) { #fn, (void *)(fn) } + +static const host_symbol_t host_symbols[] = { + HOST_SYMBOL(ecex_current_buffer), + HOST_SYMBOL(ecex_create_buffer), + HOST_SYMBOL(ecex_find_buffer), + HOST_SYMBOL(ecex_switch_buffer), + HOST_SYMBOL(ecex_next_buffer), + HOST_SYMBOL(ecex_previous_buffer), + HOST_SYMBOL(ecex_current_window), + HOST_SYMBOL(ecex_window_count), + HOST_SYMBOL(ecex_split_window_vertically), + HOST_SYMBOL(ecex_split_window_horizontally), + HOST_SYMBOL(ecex_other_window), + HOST_SYMBOL(ecex_previous_window), + HOST_SYMBOL(ecex_delete_window), + HOST_SYMBOL(ecex_delete_other_windows), + HOST_SYMBOL(ecex_kill_buffer), + + HOST_SYMBOL(ecex_register_command), + HOST_SYMBOL(ecex_execute_command), + HOST_SYMBOL(ecex_bind_key), + HOST_SYMBOL(ecex_lookup_key), + HOST_SYMBOL(ecex_define_major_mode), + HOST_SYMBOL(ecex_major_mode_by_name), + HOST_SYMBOL(ecex_major_mode_name), + HOST_SYMBOL(ecex_buffer_set_major_mode), + HOST_SYMBOL(ecex_buffer_set_major_mode_by_name), + HOST_SYMBOL(ecex_buffer_major_mode_name), + HOST_SYMBOL(ecex_bind_mode_key), + HOST_SYMBOL(ecex_lookup_key_for_buffer), + HOST_SYMBOL(ecex_key_sequence_has_prefix_for_buffer), + HOST_SYMBOL(ecex_auto_set_major_mode), + HOST_SYMBOL(ecex_list_commands), + HOST_SYMBOL(ecex_list_buffers), + HOST_SYMBOL(ecex_create_interactive_buffer), + HOST_SYMBOL(ecex_interactive_append_line), + HOST_SYMBOL(ecex_interactive_activate_current_line), + HOST_SYMBOL(ecex_find_file), + HOST_SYMBOL(ecex_save_current_buffer), + HOST_SYMBOL(ecex_write_current_buffer), + HOST_SYMBOL(ecex_request_prompt), + HOST_SYMBOL(ecex_clear_prompt_request), + HOST_SYMBOL(ecex_complete_command), + HOST_SYMBOL(ecex_eval_source), + HOST_SYMBOL(ecex_eval_current_buffer), + HOST_SYMBOL(ecex_eval_current_line), + HOST_SYMBOL(ecex_eval_current_region), + HOST_SYMBOL(ecex_eval_file), + HOST_SYMBOL(ecex_eval_rerun_last), + + HOST_SYMBOL(ecex_set_font), + HOST_SYMBOL(ecex_get_font_size), + HOST_SYMBOL(ecex_set_font_size), + HOST_SYMBOL(ecex_adjust_font_size), + HOST_SYMBOL(ecex_set_bg_color), + HOST_SYMBOL(ecex_set_fg_color), + HOST_SYMBOL(ecex_set_status_bg_color), + HOST_SYMBOL(ecex_set_status_fg_color), + HOST_SYMBOL(ecex_set_status_border_color), + HOST_SYMBOL(ecex_set_cursor_color), + HOST_SYMBOL(ecex_set_region_bg_color), + HOST_SYMBOL(ecex_set_minibuffer_bg_color), + HOST_SYMBOL(ecex_set_minibuffer_fg_color), + HOST_SYMBOL(ecex_set_completion_fg_color), + HOST_SYMBOL(ecex_set_completion_enabled), + HOST_SYMBOL(ecex_set_interactive_highlight_bg_color), + HOST_SYMBOL(ecex_set_interactive_highlight_fg_color), + + HOST_SYMBOL(buffer_clear), + HOST_SYMBOL(buffer_set_text), + HOST_SYMBOL(buffer_insert), + HOST_SYMBOL(buffer_insert_at), + HOST_SYMBOL(buffer_append), + HOST_SYMBOL(buffer_prepend), + HOST_SYMBOL(buffer_insert_char), + HOST_SYMBOL(buffer_insert_char_at), + HOST_SYMBOL(buffer_delete_range), + HOST_SYMBOL(buffer_delete_selection), + HOST_SYMBOL(buffer_replace_selection), + HOST_SYMBOL(buffer_backspace), + HOST_SYMBOL(buffer_delete_forward), + HOST_SYMBOL(buffer_kill_line), + + HOST_SYMBOL(buffer_set_point), + HOST_SYMBOL(buffer_move_left), + HOST_SYMBOL(buffer_move_right), + HOST_SYMBOL(buffer_move_up), + HOST_SYMBOL(buffer_move_down), + HOST_SYMBOL(buffer_move_word_left), + HOST_SYMBOL(buffer_move_word_right), + HOST_SYMBOL(buffer_move_beginning_of_line), + HOST_SYMBOL(buffer_move_end_of_line), + HOST_SYMBOL(buffer_move_beginning_of_buffer), + HOST_SYMBOL(buffer_move_end_of_buffer), + + HOST_SYMBOL(buffer_set_mark), + HOST_SYMBOL(buffer_clear_mark), + HOST_SYMBOL(buffer_has_selection), + HOST_SYMBOL(buffer_selection_range), + + HOST_SYMBOL(buffer_line_start_at), + HOST_SYMBOL(buffer_line_end_at), + HOST_SYMBOL(buffer_current_line_start), + HOST_SYMBOL(buffer_current_line_end), + HOST_SYMBOL(buffer_current_column), + HOST_SYMBOL(buffer_current_line_number), + HOST_SYMBOL(buffer_line_count), + HOST_SYMBOL(buffer_substring), + HOST_SYMBOL(buffer_current_line_copy), + + HOST_SYMBOL(buffer_load_file), + HOST_SYMBOL(buffer_save), + HOST_SYMBOL(buffer_save_as), + HOST_SYMBOL(buffer_set_interactive), + HOST_SYMBOL(buffer_is_interactive), + HOST_SYMBOL(buffer_clear_interactive_actions), + HOST_SYMBOL(buffer_add_interactive_action), + HOST_SYMBOL(buffer_interactive_action_at_line), +}; + +#undef HOST_SYMBOL + +int ecex_register_host_symbols(ccdjit_context *ctx) { + for (size_t i = 0; i < ECEX_ARRAY_LEN(host_symbols); i++) { + if (ccdjit_context_register_symbol(ctx, + host_symbols[i].name, + host_symbols[i].addr) != 0) { + fprintf(stderr, "ecex: failed to register symbol: %s\n", host_symbols[i].name); + ecex_print_ccdjit_error(ctx); + return ECEX_ERR; + } + } + + return ECEX_OK; +} + +static int add_include_path(ccdjit_context *ctx, const char *path) { + if (ccdjit_context_add_include_path(ctx, path) == 0) return ECEX_OK; + + fprintf(stderr, "ecex: failed to add include path: %s\n", path); + ecex_print_ccdjit_error(ctx); + return ECEX_ERR; +} + +int ecex_add_ccdjit_include_paths(ccdjit_context *ctx) { + if (add_include_path(ctx, "include") != ECEX_OK) return ECEX_ERR; + if (add_include_path(ctx, "../include") != ECEX_OK) return ECEX_ERR; + + const char *env_include = getenv("ECEX_INCLUDE"); + if (env_include && env_include[0]) { + if (add_include_path(ctx, env_include) != ECEX_OK) return ECEX_ERR; + } + + return ECEX_OK; +} + +static char *make_config_source_with_forced_main(const char *path) { + size_t source_size = 0; + char *source = ecex_read_entire_file(path, &source_size); + if (!source) return NULL; + + const char *forced_main = + "\n" + "\n" + "int main(int argc, char **argv) {\n" + " (void)argc;\n" + " (void)argv;\n" + " return ecex_config_init((ecex_t *)0);\n" + "}\n"; + + size_t forced_main_len = strlen(forced_main); + char *combined = malloc(source_size + forced_main_len + 1); + if (!combined) { + free(source); + return NULL; + } + + memcpy(combined, source, source_size); + memcpy(combined + source_size, forced_main, forced_main_len + 1); + + free(source); + return combined; +} + +int ecex_load_c_config(ecex_t *ed, const char *path) { + if (!ed || !path) return ECEX_ERR; + + ccdjit_context *ctx = ccdjit_context_new(NULL); + if (!ctx) { + fprintf(stderr, "ecex: failed to create ccdjit context\n"); + return ECEX_ERR; + } + + if (ecex_add_ccdjit_include_paths(ctx) != ECEX_OK || ecex_register_host_symbols(ctx) != ECEX_OK) { + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + char *source = make_config_source_with_forced_main(path); + if (!source) { + fprintf(stderr, "ecex: failed to read or prepare config: %s\n", path); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + ccdjit_module *module = NULL; + if (ccdjit_compile_string(ctx, source, path, &module) != 0) { + fprintf(stderr, "ecex: failed to compile config: %s\n", path); + ecex_print_ccdjit_error(ctx); + free(source); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + free(source); + + ecex_config_init_fn init = + (ecex_config_init_fn)ccdjit_module_symbol(module, "ecex_config_init"); + + if (!init) { + fprintf(stderr, "ecex: config missing function: ecex_config_init\n"); + ecex_print_ccdjit_error(ctx); + ccdjit_module_free(module); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + int result = init(ed); + if (result != 0) { + fprintf(stderr, "ecex: config init failed with code: %d\n", result); + ccdjit_module_free(module); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + if (ecex_keep_jit_module(ed, module) != ECEX_OK) { + fprintf(stderr, "ecex: failed to retain config module\n"); + ccdjit_module_free(module); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + if (ecex_set_config_path(ed, path) != ECEX_OK) { + fprintf(stderr, "ecex: failed to remember config path: %s\n", path); + ccdjit_context_free(ctx); + return ECEX_ERR; + } + + ccdjit_context_free(ctx); + fprintf(stderr, "ecex: loaded config: %s\n", path); + return ECEX_OK; +} diff --git a/src/ecex.c b/src/ecex.c new file mode 100644 index 0000000..2f4c962 --- /dev/null +++ b/src/ecex.c @@ -0,0 +1,1630 @@ +#include "ecex.h" + +#include "ccdjit.h" +#include "common.h" +#include "config.h" +#include "util.h" + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +extern FILE *popen(const char *command, const char *type); +extern int pclose(FILE *stream); + +#define ECEX_INITIAL_BUFFER_CAP 8 +#define ECEX_INITIAL_COMMAND_CAP 32 +#define ECEX_INITIAL_KEYBIND_CAP 32 +#define ECEX_INITIAL_WINDOW_CAP 4 +#define ECEX_INITIAL_MODE_CAP 8 +#define ECEX_INITIAL_MODE_KEYBIND_CAP 16 + +ecex_window_t *ecex_current_window(ecex_t *ed); + +static ecex_color_t ecex_color(float r, float g, float b) { + ecex_color_t c = {r, g, b}; + return c; +} + +static void ecex_theme_set_defaults(ecex_t *ed) { + if (!ed) return; + + ed->theme.font_path = NULL; + ed->theme.font_size = 22.0f; + + ed->theme.bg = ecex_color(0.08f, 0.09f, 0.11f); + ed->theme.fg = ecex_color(0.88f, 0.88f, 0.86f); + + ed->theme.status_bg = ecex_color(0.15f, 0.15f, 0.18f); + ed->theme.status_fg = ecex_color(0.86f, 0.86f, 0.84f); + ed->theme.status_border = ecex_color(0.28f, 0.28f, 0.32f); + + ed->theme.cursor = ecex_color(1.0f, 1.0f, 1.0f); + ed->theme.region_bg = ecex_color(0.22f, 0.34f, 0.48f); + + ed->theme.minibuffer_bg = ecex_color(0.10f, 0.11f, 0.14f); + ed->theme.minibuffer_fg = ecex_color(0.95f, 0.95f, 0.90f); + + ed->theme.completion_fg = ecex_color(0.45f, 0.45f, 0.45f); + ed->theme.completion_enabled = 1; + + ed->theme.interactive_highlight_bg = ecex_color(0.18f, 0.20f, 0.24f); + ed->theme.interactive_highlight_fg = ecex_color(1.0f, 1.0f, 1.0f); + ed->theme.current_line_bg = ecex_color(0.12f, 0.13f, 0.16f); + ed->theme.search_bg = ecex_color(0.55f, 0.42f, 0.12f); + ed->theme.line_numbers_enabled = 1; + ed->theme.current_line_enabled = 1; +} + +#define ECEX_COMMAND(name, fn) \ + do { \ + if (ecex_register_command(ed, (name), (fn)) != ECEX_OK) return ECEX_ERR; \ + } while (0) + +#define ECEX_BIND(key, command) \ + do { \ + if (ecex_bind_key(ed, (key), (command)) != ECEX_OK) return ECEX_ERR; \ + } while (0) + +#define CURRENT_BUFFER_OR_ERR(ed) \ + buffer_t *buf = ecex_current_buffer(ed); \ + if (!buf) return ECEX_ERR + +static int cmd_quit(ecex_t *ed) { + if (!ed) return ECEX_ERR; + ed->should_quit = 1; + return ECEX_OK; +} + +static int cmd_next_buffer(ecex_t *ed) { return ecex_next_buffer(ed); } +static int cmd_previous_buffer(ecex_t *ed) { return ecex_previous_buffer(ed); } +static int cmd_split_window_right(ecex_t *ed) { return ecex_split_window_vertically(ed); } +static int cmd_split_window_below(ecex_t *ed) { return ecex_split_window_horizontally(ed); } +static int cmd_other_window(ecex_t *ed) { return ecex_other_window(ed); } +static int cmd_previous_window(ecex_t *ed) { return ecex_previous_window(ed); } +static int cmd_delete_window(ecex_t *ed) { return ecex_delete_window(ed); } +static int cmd_delete_other_windows(ecex_t *ed) { return ecex_delete_other_windows(ed); } +static int cmd_balance_windows(ecex_t *ed) { return ecex_balance_windows(ed); } + +static int cmd_move_left(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_left(buf); return ECEX_OK; } +static int cmd_move_right(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_right(buf); return ECEX_OK; } +static int cmd_move_up(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_up(buf); return ECEX_OK; } +static int cmd_move_down(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_down(buf); return ECEX_OK; } +static int cmd_move_word_left(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_word_left(buf); return ECEX_OK; } +static int cmd_move_word_right(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_word_right(buf); return ECEX_OK; } +static int cmd_beginning_of_line(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_beginning_of_line(buf); return ECEX_OK; } +static int cmd_end_of_line(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_end_of_line(buf); return ECEX_OK; } +static int cmd_beginning_of_buffer(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_beginning_of_buffer(buf); return ECEX_OK; } +static int cmd_end_of_buffer(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_move_end_of_buffer(buf); return ECEX_OK; } + +static int cmd_undo(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_undo(buf); } +static int cmd_redo(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_redo(buf); } +static int cmd_backspace(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_backspace(buf); } +static int cmd_delete_forward(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_delete_forward(buf); } +static int cmd_newline(ecex_t *ed) { + CURRENT_BUFFER_OR_ERR(ed); + if (buffer_is_interactive(buf)) { + return ecex_interactive_activate_current_line(ed); + } + return buffer_insert_char(buf, '\n'); +} +static int cmd_kill_line(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_kill_line(buf); } +static int cmd_clear_buffer(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); return buffer_clear(buf); } +static int cmd_set_mark(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_set_mark(buf, buf->point); return ECEX_OK; } +static int cmd_clear_mark(ecex_t *ed) { CURRENT_BUFFER_OR_ERR(ed); buffer_clear_mark(buf); return ECEX_OK; } + + +static int cmd_yank(ecex_t *ed) { + CURRENT_BUFFER_OR_ERR(ed); + const char *text = ecex_clipboard_get(ed); + if (!text || !text[0]) return ECEX_OK; + return buffer_replace_selection(buf, text); +} + +static int cmd_copy_region(ecex_t *ed) { + CURRENT_BUFFER_OR_ERR(ed); + if (!buffer_has_selection(buf)) return ECEX_OK; + + size_t start = 0; + size_t end = 0; + buffer_selection_range(buf, &start, &end); + + char *text = buffer_substring(buf, start, end); + if (!text) return ECEX_ERR; + + int result = ecex_clipboard_set(ed, text); + free(text); + return result; +} + +static int cmd_kill_region(ecex_t *ed) { + CURRENT_BUFFER_OR_ERR(ed); + if (!buffer_has_selection(buf)) return ECEX_OK; + + size_t start = 0; + size_t end = 0; + buffer_selection_range(buf, &start, &end); + + char *text = buffer_substring(buf, start, end); + if (!text) return ECEX_ERR; + + int result = ecex_clipboard_set(ed, text); + free(text); + if (result != ECEX_OK) return result; + + return buffer_delete_selection(buf); +} + +static int cmd_list_commands(ecex_t *ed) { return ecex_list_commands(ed); } +static int cmd_list_buffers(ecex_t *ed) { return ecex_list_buffers(ed); } +static int cmd_switch_buffer(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_SWITCH_BUFFER, "Switch buffer: "); return ECEX_OK; } +static int cmd_kill_buffer_command(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_KILL_BUFFER, "Kill buffer: "); return ECEX_OK; } +static int cmd_compile(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_COMPILE, "Compile: "); return ECEX_OK; } +static int cmd_grep(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_GREP, "Grep: "); return ECEX_OK; } +static int cmd_recompile(ecex_t *ed) { return ecex_rerun_compile(ed); } +static int cmd_regrep(ecex_t *ed) { return ecex_rerun_grep(ed); } +static int cmd_next_error(ecex_t *ed) { return ecex_next_interactive_action(ed); } +static int cmd_previous_error(ecex_t *ed) { return ecex_previous_interactive_action(ed); } +static int cmd_comment_region(ecex_t *ed) { return ecex_comment_region(ed); } +static int cmd_uncomment_region(ecex_t *ed) { return ecex_uncomment_region(ed); } +static int cmd_toggle_line_numbers(ecex_t *ed) { if (!ed) return ECEX_ERR; ed->theme.line_numbers_enabled = !ed->theme.line_numbers_enabled; return ECEX_OK; } +static int cmd_toggle_current_line(ecex_t *ed) { if (!ed) return ECEX_ERR; ed->theme.current_line_enabled = !ed->theme.current_line_enabled; return ECEX_OK; } +static int cmd_isearch_forward(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_ISEARCH_FORWARD, "I-search: "); return ECEX_OK; } +static int cmd_isearch_backward(ecex_t *ed) { ecex_request_prompt(ed, ECEX_PROMPT_ISEARCH_BACKWARD, "I-search backward: "); return ECEX_OK; } + +static int cmd_find_file(ecex_t *ed) { + ecex_request_prompt(ed, ECEX_PROMPT_FIND_FILE, "Find file: "); + return ECEX_OK; +} + +static int cmd_write_file(ecex_t *ed) { + ecex_request_prompt(ed, ECEX_PROMPT_WRITE_FILE, "Write file: "); + return ECEX_OK; +} + +static int cmd_save_buffer(ecex_t *ed) { + if (!ed) return ECEX_ERR; + + buffer_t *buf = ecex_current_buffer(ed); + if (!buf) return ECEX_ERR; + + if (!buf->path) { + ecex_request_prompt(ed, ECEX_PROMPT_WRITE_FILE, "Write file: "); + return ECEX_OK; + } + + return ecex_save_current_buffer(ed); +} + +static int cmd_eval_buffer(ecex_t *ed) { + return ecex_eval_current_buffer(ed); +} + +static int cmd_eval_line(ecex_t *ed) { + return ecex_eval_current_line(ed); +} + +static int cmd_eval_region(ecex_t *ed) { + return ecex_eval_current_region(ed); +} + +static int cmd_eval_file(ecex_t *ed) { + ecex_request_prompt(ed, ECEX_PROMPT_EVAL_FILE, "Eval file: "); + return ECEX_OK; +} + +static int cmd_eval_rerun_last(ecex_t *ed) { + return ecex_eval_rerun_last(ed); +} + +static int cmd_quit_window(ecex_t *ed) { + if (!ed) return ECEX_ERR; + if (ecex_window_count(ed) > 1) return ecex_delete_window(ed); + return ecex_previous_buffer(ed); +} + +static int cmd_reload_config(ecex_t *ed) { + return ecex_reload_config(ed); +} + +static int ecex_register_builtins(ecex_t *ed) { + ECEX_COMMAND("quit", cmd_quit); + ECEX_COMMAND("find-file", cmd_find_file); + ECEX_COMMAND("save-buffer", cmd_save_buffer); + ECEX_COMMAND("write-file", cmd_write_file); + ECEX_COMMAND("eval-buffer", cmd_eval_buffer); + ECEX_COMMAND("eval-line", cmd_eval_line); + ECEX_COMMAND("eval-region", cmd_eval_region); + ECEX_COMMAND("eval-selection", cmd_eval_region); + ECEX_COMMAND("eval-file", cmd_eval_file); + ECEX_COMMAND("eval-rerun-last", cmd_eval_rerun_last); + ECEX_COMMAND("revert-eval-buffer", cmd_eval_rerun_last); + ECEX_COMMAND("quit-window", cmd_quit_window); + ECEX_COMMAND("reload-config", cmd_reload_config); + ECEX_COMMAND("list-commands", cmd_list_commands); + ECEX_COMMAND("list-buffers", cmd_list_buffers); + ECEX_COMMAND("switch-buffer", cmd_switch_buffer); + ECEX_COMMAND("kill-buffer", cmd_kill_buffer_command); + ECEX_COMMAND("compile", cmd_compile); + ECEX_COMMAND("recompile", cmd_recompile); + ECEX_COMMAND("grep", cmd_grep); + ECEX_COMMAND("regrep", cmd_regrep); + ECEX_COMMAND("next-error", cmd_next_error); + ECEX_COMMAND("previous-error", cmd_previous_error); + ECEX_COMMAND("comment-region", cmd_comment_region); + ECEX_COMMAND("uncomment-region", cmd_uncomment_region); + ECEX_COMMAND("toggle-line-numbers", cmd_toggle_line_numbers); + ECEX_COMMAND("toggle-current-line", cmd_toggle_current_line); + ECEX_COMMAND("isearch-forward", cmd_isearch_forward); + ECEX_COMMAND("isearch-backward", cmd_isearch_backward); + + ECEX_COMMAND("next-buffer", cmd_next_buffer); + ECEX_COMMAND("previous-buffer", cmd_previous_buffer); + ECEX_COMMAND("split-window-right", cmd_split_window_right); + ECEX_COMMAND("split-window-vertically", cmd_split_window_right); + ECEX_COMMAND("split-window-below", cmd_split_window_below); + ECEX_COMMAND("split-window-horizontally", cmd_split_window_below); + ECEX_COMMAND("other-window", cmd_other_window); + ECEX_COMMAND("previous-window", cmd_previous_window); + ECEX_COMMAND("delete-window", cmd_delete_window); + ECEX_COMMAND("delete-other-windows", cmd_delete_other_windows); + ECEX_COMMAND("balance-windows", cmd_balance_windows); + + ECEX_COMMAND("move-left", cmd_move_left); + ECEX_COMMAND("move-right", cmd_move_right); + ECEX_COMMAND("move-up", cmd_move_up); + ECEX_COMMAND("move-down", cmd_move_down); + ECEX_COMMAND("move-word-left", cmd_move_word_left); + ECEX_COMMAND("move-word-right", cmd_move_word_right); + ECEX_COMMAND("beginning-of-line", cmd_beginning_of_line); + ECEX_COMMAND("end-of-line", cmd_end_of_line); + ECEX_COMMAND("beginning-of-buffer", cmd_beginning_of_buffer); + ECEX_COMMAND("end-of-buffer", cmd_end_of_buffer); + + ECEX_COMMAND("undo", cmd_undo); + ECEX_COMMAND("redo", cmd_redo); + ECEX_COMMAND("backspace", cmd_backspace); + ECEX_COMMAND("delete-forward", cmd_delete_forward); + ECEX_COMMAND("newline", cmd_newline); + ECEX_COMMAND("kill-line", cmd_kill_line); + ECEX_COMMAND("clear-buffer", cmd_clear_buffer); + ECEX_COMMAND("set-mark", cmd_set_mark); + ECEX_COMMAND("clear-mark", cmd_clear_mark); + ECEX_COMMAND("yank", cmd_yank); + ECEX_COMMAND("paste", cmd_yank); + ECEX_COMMAND("copy-region", cmd_copy_region); + ECEX_COMMAND("copy-region-as-kill", cmd_copy_region); + ECEX_COMMAND("kill-region", cmd_kill_region); + + ECEX_BIND("LEFT", "move-left"); + ECEX_BIND("RIGHT", "move-right"); + ECEX_BIND("UP", "move-up"); + ECEX_BIND("DOWN", "move-down"); + + ECEX_BIND("C-b", "move-left"); + ECEX_BIND("C-f", "move-right"); + ECEX_BIND("C-p", "move-up"); + ECEX_BIND("C-n", "move-down"); + ECEX_BIND("C-a", "beginning-of-line"); + ECEX_BIND("C-e", "end-of-line"); + ECEX_BIND("C-k", "kill-line"); + ECEX_BIND("C-SPC", "set-mark"); + ECEX_BIND("C-y", "yank"); + ECEX_BIND("C-v", "paste"); + ECEX_BIND("M-w", "copy-region-as-kill"); + ECEX_BIND("C-w", "kill-region"); + ECEX_BIND("C-s", "isearch-forward"); + ECEX_BIND("C-r", "isearch-backward"); + ECEX_BIND("C-/", "undo"); + ECEX_BIND("C-z", "undo"); + ECEX_BIND("C-S-z", "redo"); + + ECEX_BIND("C-x C-f", "find-file"); + ECEX_BIND("C-x C-s", "save-buffer"); + ECEX_BIND("C-x C-w", "write-file"); + ECEX_BIND("C-x C-b", "list-buffers"); + ECEX_BIND("C-x b", "switch-buffer"); + ECEX_BIND("C-x k", "kill-buffer"); + ECEX_BIND("C-x 2", "split-window-below"); + ECEX_BIND("C-x 3", "split-window-right"); + ECEX_BIND("C-x o", "other-window"); + ECEX_BIND("C-x O", "previous-window"); + ECEX_BIND("C-x 0", "delete-window"); + ECEX_BIND("C-x 1", "delete-other-windows"); + ECEX_BIND("C-x +", "balance-windows"); + ECEX_BIND("C-x e b", "eval-buffer"); + ECEX_BIND("C-x e l", "eval-line"); + ECEX_BIND("C-x C-e", "eval-line"); + ECEX_BIND("C-x e r", "eval-region"); + ECEX_BIND("C-x e f", "eval-file"); + ECEX_BIND("C-x C-r", "reload-config"); + ECEX_BIND("F5", "reload-config"); + ECEX_BIND("M-g n", "next-error"); + ECEX_BIND("M-g p", "previous-error"); + ECEX_BIND("M-;", "comment-region"); + + ECEX_BIND("BACKSPACE", "backspace"); + ECEX_BIND("DELETE", "delete-forward"); + ECEX_BIND("ENTER", "newline"); + + ecex_define_major_mode(ed, "fundamental-mode"); + ecex_define_major_mode(ed, "c-mode"); + ecex_define_major_mode(ed, "eval-output-mode"); + ecex_define_major_mode(ed, "special-mode"); + ecex_bind_mode_key(ed, "eval-output-mode", "g", "eval-rerun-last"); + ecex_bind_mode_key(ed, "eval-output-mode", "q", "quit-window"); + ecex_bind_mode_key(ed, "eval-output-mode", "r", "eval-rerun-last"); + ecex_bind_mode_key(ed, "special-mode", "q", "quit-window"); + ecex_bind_mode_key(ed, "special-mode", "g", "recompile"); + ecex_bind_mode_key(ed, "special-mode", "n", "next-error"); + ecex_bind_mode_key(ed, "special-mode", "p", "previous-error"); + + return ECEX_OK; +} + +#undef ECEX_COMMAND +#undef ECEX_BIND +#undef CURRENT_BUFFER_OR_ERR + +ecex_t *ecex_new(void) { + ecex_t *ed = calloc(1, sizeof(*ed)); + if (!ed) return NULL; + + ecex_theme_set_defaults(ed); + + buffer_t *scratch = buffer_new("*scratch*", NULL, 0); + if (!scratch || ecex_add_buffer(ed, scratch) != ECEX_OK) { + buffer_free(scratch); + ecex_free(ed); + return NULL; + } + + ed->current_buffer_index = 0; + ed->current_buffer = scratch; + ed->next_major_mode_id = 1; + + ed->window_cap = ECEX_INITIAL_WINDOW_CAP; + ed->windows = calloc(ed->window_cap, sizeof(*ed->windows)); + if (!ed->windows) { + ecex_free(ed); + return NULL; + } + ed->window_count = 1; + ed->current_window_index = 0; + ed->windows[0].buffer = scratch; + ed->windows[0].x = 0.0f; + ed->windows[0].y = 0.0f; + ed->windows[0].w = 1.0f; + ed->windows[0].h = 1.0f; + + if (ecex_register_builtins(ed) != ECEX_OK) { + ecex_free(ed); + return NULL; + } + + ecex_buffer_set_major_mode_by_name(ed, scratch, "fundamental-mode"); + + return ed; +} + +void ecex_free(ecex_t *ed) { + if (!ed) return; + + for (size_t i = 0; i < ed->jit_module_count; i++) { + ccdjit_module_free((ccdjit_module *)ed->jit_modules[i]); + } + + for (size_t i = 0; i < ed->buffer_count; i++) { + buffer_free(ed->buffers[i]); + } + + for (size_t i = 0; i < ed->command_count; i++) { + free(ed->commands[i].name); + } + + for (size_t i = 0; i < ed->keybind_count; i++) { + free(ed->keybinds[i].key); + free(ed->keybinds[i].command); + } + + for (size_t i = 0; i < ed->mode_keybind_count; i++) { + free(ed->mode_keybinds[i].key); + free(ed->mode_keybinds[i].command); + } + + for (size_t i = 0; i < ed->major_mode_count; i++) { + free(ed->major_modes[i].name); + } + + free(ed->jit_modules); + free(ed->windows); + free(ed->buffers); + free(ed->commands); + free(ed->keybinds); + free(ed->mode_keybinds); + free(ed->major_modes); + free(ed->last_eval_source); + free(ed->last_eval_filename); + free(ed->last_compile_command); + free(ed->last_grep_command); + free(ed->config_path); + free(ed->theme.font_path); + free(ed); +} + +int ecex_reserve_buffers(ecex_t *ed, size_t needed) { + ECEX_RETURN_ERR_IF_NULL(ed); + if (needed <= ed->buffer_cap) return ECEX_OK; + + while (ed->buffer_cap < needed) { + if (ECEX_GROW_ARRAY(ed->buffers, + ed->buffer_count, + ed->buffer_cap, + ECEX_INITIAL_BUFFER_CAP) != ECEX_OK) { + return ECEX_ERR; + } + } + + return ECEX_OK; +} + +int ecex_add_buffer(ecex_t *ed, buffer_t *buffer) { + if (!ed || !buffer) return ECEX_ERR; + + if (ecex_reserve_buffers(ed, ed->buffer_count + 1) != ECEX_OK) return ECEX_ERR; + + ed->buffers[ed->buffer_count++] = buffer; + + if (!ed->current_buffer) { + ed->current_buffer_index = 0; + ed->current_buffer = buffer; + } + + return ECEX_OK; +} + +buffer_t *ecex_create_buffer(ecex_t *ed, + const char *name, + const char *path, + int read_only) { + if (!ed || !name) return NULL; + + buffer_t *buffer = buffer_new(name, path, read_only); + if (!buffer) return NULL; + + if (ecex_add_buffer(ed, buffer) != ECEX_OK) { + buffer_free(buffer); + return NULL; + } + + return buffer; +} + +buffer_t *ecex_find_buffer(ecex_t *ed, const char *name) { + if (!ed || !name) return NULL; + + for (size_t i = 0; i < ed->buffer_count; i++) { + if (strcmp(ed->buffers[i]->name, name) == 0) { + return ed->buffers[i]; + } + } + + return NULL; +} + + +static int ecex_set_current_buffer_index(ecex_t *ed, size_t index) { + if (!ed || index >= ed->buffer_count) return ECEX_ERR; + ed->current_buffer_index = index; + ed->current_buffer = ed->buffers[index]; + ecex_window_t *win = ecex_current_window(ed); + if (win) win->buffer = ed->current_buffer; + return ECEX_OK; +} + +int ecex_sync_current_buffer(ecex_t *ed) { + if (!ed) return ECEX_ERR; + ecex_window_t *win = ecex_current_window(ed); + if (!win || !win->buffer) return ECEX_ERR; + + ed->current_buffer = win->buffer; + for (size_t i = 0; i < ed->buffer_count; i++) { + if (ed->buffers[i] == win->buffer) { + ed->current_buffer_index = i; + return ECEX_OK; + } + } + return ECEX_ERR; +} + +int ecex_switch_buffer(ecex_t *ed, const char *name) { + if (!ed || !name) return ECEX_ERR; + + for (size_t i = 0; i < ed->buffer_count; i++) { + if (strcmp(ed->buffers[i]->name, name) == 0) { + return ecex_set_current_buffer_index(ed, i); + } + } + + return ECEX_ERR; +} + +buffer_t *ecex_current_buffer(ecex_t *ed) { + if (!ed) return NULL; + ecex_window_t *win = ecex_current_window(ed); + if (win && win->buffer) return win->buffer; + return ed->current_buffer; +} + +ecex_window_t *ecex_current_window(ecex_t *ed) { + if (!ed || ed->window_count == 0 || ed->current_window_index >= ed->window_count) return NULL; + return &ed->windows[ed->current_window_index]; +} + +size_t ecex_window_count(ecex_t *ed) { + return ed ? ed->window_count : 0; +} + +static int ecex_reserve_windows(ecex_t *ed, size_t needed) { + if (!ed) return ECEX_ERR; + if (needed <= ed->window_cap) return ECEX_OK; + while (ed->window_cap < needed) { + if (ECEX_GROW_ARRAY(ed->windows, + ed->window_count, + ed->window_cap, + ECEX_INITIAL_WINDOW_CAP) != ECEX_OK) { + return ECEX_ERR; + } + } + return ECEX_OK; +} + +static int ecex_add_window(ecex_t *ed, ecex_window_t win) { + if (!ed || !win.buffer) return ECEX_ERR; + if (ecex_reserve_windows(ed, ed->window_count + 1) != ECEX_OK) return ECEX_ERR; + ed->windows[ed->window_count++] = win; + return ECEX_OK; +} + +int ecex_split_window_vertically(ecex_t *ed) { + ecex_window_t *active = ecex_current_window(ed); + if (!active || !active->buffer || active->w < 0.08f) return ECEX_ERR; + + ecex_window_t new_win = *active; + float half = active->w * 0.5f; + active->w = half; + new_win.x = active->x + half; + new_win.w = half; + + if (ecex_add_window(ed, new_win) != ECEX_OK) return ECEX_ERR; + ed->current_window_index = ed->window_count - 1; + return ecex_sync_current_buffer(ed); +} + +int ecex_split_window_horizontally(ecex_t *ed) { + ecex_window_t *active = ecex_current_window(ed); + if (!active || !active->buffer || active->h < 0.08f) return ECEX_ERR; + + ecex_window_t new_win = *active; + float half = active->h * 0.5f; + active->h = half; + new_win.y = active->y + half; + new_win.h = half; + + if (ecex_add_window(ed, new_win) != ECEX_OK) return ECEX_ERR; + ed->current_window_index = ed->window_count - 1; + return ecex_sync_current_buffer(ed); +} + +int ecex_other_window(ecex_t *ed) { + if (!ed || ed->window_count == 0) return ECEX_ERR; + ed->current_window_index = (ed->current_window_index + 1) % ed->window_count; + return ecex_sync_current_buffer(ed); +} + +int ecex_previous_window(ecex_t *ed) { + if (!ed || ed->window_count == 0) return ECEX_ERR; + if (ed->current_window_index == 0) ed->current_window_index = ed->window_count - 1; + else ed->current_window_index--; + return ecex_sync_current_buffer(ed); +} + +int ecex_delete_window(ecex_t *ed) { + if (!ed || ed->window_count <= 1 || ed->current_window_index >= ed->window_count) return ECEX_ERR; + + size_t index = ed->current_window_index; + for (size_t i = index; i + 1 < ed->window_count; i++) { + ed->windows[i] = ed->windows[i + 1]; + } + ed->window_count--; + if (ed->current_window_index >= ed->window_count) ed->current_window_index = ed->window_count - 1; + return ecex_sync_current_buffer(ed); +} + +int ecex_delete_other_windows(ecex_t *ed) { + ecex_window_t *active = ecex_current_window(ed); + if (!ed || !active) return ECEX_ERR; + ecex_window_t keep = *active; + keep.x = 0.0f; keep.y = 0.0f; keep.w = 1.0f; keep.h = 1.0f; + ed->windows[0] = keep; + ed->window_count = 1; + ed->current_window_index = 0; + return ecex_sync_current_buffer(ed); +} + +int ecex_balance_windows(ecex_t *ed) { + if (!ed || ed->window_count == 0) return ECEX_ERR; + size_t n = ed->window_count; + size_t cols = 1; + while (cols * cols < n) cols++; + size_t rows = (n + cols - 1) / cols; + for (size_t i = 0; i < n; i++) { + size_t row = i / cols; + size_t col = i % cols; + ed->windows[i].x = (float)col / (float)cols; + ed->windows[i].y = (float)row / (float)rows; + ed->windows[i].w = 1.0f / (float)cols; + ed->windows[i].h = 1.0f / (float)rows; + } + return ecex_sync_current_buffer(ed); +} + +int ecex_next_buffer(ecex_t *ed) { + if (!ed || ed->buffer_count == 0) return ECEX_ERR; + ecex_sync_current_buffer(ed); + return ecex_set_current_buffer_index(ed, (ed->current_buffer_index + 1) % ed->buffer_count); +} + +int ecex_previous_buffer(ecex_t *ed) { + if (!ed || ed->buffer_count == 0) return ECEX_ERR; + ecex_sync_current_buffer(ed); + + if (ed->current_buffer_index == 0) { + ed->current_buffer_index = ed->buffer_count - 1; + } else { + ed->current_buffer_index--; + } + + return ecex_set_current_buffer_index(ed, ed->current_buffer_index); +} + +int ecex_kill_buffer(ecex_t *ed, const char *name) { + if (!ed || !name || ed->buffer_count == 0) return ECEX_ERR; + + size_t index = ed->buffer_count; + for (size_t i = 0; i < ed->buffer_count; i++) { + if (strcmp(ed->buffers[i]->name, name) == 0) { + index = i; + break; + } + } + + if (index == ed->buffer_count) return ECEX_ERR; + + buffer_t *victim = ed->buffers[index]; + + for (size_t i = index; i + 1 < ed->buffer_count; i++) { + ed->buffers[i] = ed->buffers[i + 1]; + } + + ed->buffer_count--; + + buffer_t *fallback = ed->buffer_count > 0 ? ed->buffers[0] : NULL; + for (size_t i = 0; i < ed->window_count; i++) { + if (ed->windows[i].buffer == victim) { + ed->windows[i].buffer = fallback; + } + } + + buffer_free(victim); + + if (ed->buffer_count == 0) { + ed->current_buffer = NULL; + ed->current_buffer_index = 0; + ed->window_count = 0; + ed->current_window_index = 0; + return ECEX_OK; + } + + if (ed->current_window_index >= ed->window_count) { + ed->current_window_index = ed->window_count ? ed->window_count - 1 : 0; + } + + return ecex_sync_current_buffer(ed); +} + +int ecex_keep_jit_module(ecex_t *ed, void *module) { + if (!ed || !module) return ECEX_ERR; + + if (ECEX_GROW_ARRAY(ed->jit_modules, + ed->jit_module_count, + ed->jit_module_cap, + 8) != ECEX_OK) { + return ECEX_ERR; + } + + ed->jit_modules[ed->jit_module_count++] = module; + return ECEX_OK; +} + +int ecex_set_config_path(ecex_t *ed, const char *path) { + if (!ed) return ECEX_ERR; + + char *copy = NULL; + if (path && path[0]) { + copy = ecex_strdup(path); + if (!copy) return ECEX_ERR; + } + + free(ed->config_path); + ed->config_path = copy; + return ECEX_OK; +} + +const char *ecex_config_path(ecex_t *ed) { + if (!ed) return NULL; + return ed->config_path; +} + +static void ecex_clear_commands(ecex_t *ed) { + if (!ed) return; + + for (size_t i = 0; i < ed->command_count; i++) { + free(ed->commands[i].name); + } + ed->command_count = 0; +} + +static void ecex_clear_keybinds(ecex_t *ed) { + if (!ed) return; + + for (size_t i = 0; i < ed->keybind_count; i++) { + free(ed->keybinds[i].key); + free(ed->keybinds[i].command); + } + ed->keybind_count = 0; +} + +static void ecex_clear_mode_keybinds(ecex_t *ed) { + if (!ed) return; + + for (size_t i = 0; i < ed->mode_keybind_count; i++) { + free(ed->mode_keybinds[i].key); + free(ed->mode_keybinds[i].command); + } + ed->mode_keybind_count = 0; +} + +int ecex_reload_config(ecex_t *ed) { + if (!ed || !ed->config_path || !ed->config_path[0]) { + fprintf(stderr, "ecex: no config file to reload; start with --config path/to/ecexrc.c\n"); + return ECEX_ERR; + } + + char *path = ecex_strdup(ed->config_path); + if (!path) return ECEX_ERR; + + ecex_clear_commands(ed); + ecex_clear_keybinds(ed); + ecex_clear_mode_keybinds(ed); + + if (ecex_register_builtins(ed) != ECEX_OK) { + free(path); + return ECEX_ERR; + } + + int result = ecex_load_c_config(ed, path); + free(path); + return result; +} + +int ecex_register_command(ecex_t *ed, const char *name, ecex_command_fn fn) { + if (!ed || !name || !fn) return ECEX_ERR; + + for (size_t i = 0; i < ed->command_count; i++) { + if (strcmp(ed->commands[i].name, name) == 0) { + ed->commands[i].fn = fn; + return ECEX_OK; + } + } + + if (ECEX_GROW_ARRAY(ed->commands, + ed->command_count, + ed->command_cap, + ECEX_INITIAL_COMMAND_CAP) != ECEX_OK) { + return ECEX_ERR; + } + + char *copy = ecex_strdup(name); + if (!copy) return ECEX_ERR; + + ed->commands[ed->command_count].name = copy; + ed->commands[ed->command_count].fn = fn; + ed->command_count++; + return ECEX_OK; +} + +int ecex_execute_command(ecex_t *ed, const char *name) { + if (!ed || !name) return ECEX_ERR; + + for (size_t i = 0; i < ed->command_count; i++) { + if (strcmp(ed->commands[i].name, name) == 0) { + return ed->commands[i].fn(ed); + } + } + + return ECEX_ERR; +} + +void ecex_set_clipboard_callbacks(ecex_t *ed, + ecex_clipboard_get_fn get_fn, + ecex_clipboard_set_fn set_fn, + void *userdata) { + if (!ed) return; + ed->clipboard_get = get_fn; + ed->clipboard_set = set_fn; + ed->clipboard_userdata = userdata; +} + +const char *ecex_clipboard_get(ecex_t *ed) { + if (!ed || !ed->clipboard_get) return NULL; + return ed->clipboard_get(ed->clipboard_userdata); +} + +int ecex_clipboard_set(ecex_t *ed, const char *text) { + if (!ed || !ed->clipboard_set || !text) return ECEX_ERR; + ed->clipboard_set(ed->clipboard_userdata, text); + return ECEX_OK; +} + +int ecex_bind_key(ecex_t *ed, const char *key, const char *command) { + if (!ed || !key || !command) return ECEX_ERR; + + for (size_t i = 0; i < ed->keybind_count; i++) { + if (strcmp(ed->keybinds[i].key, key) == 0) { + char *new_command = ecex_strdup(command); + if (!new_command) return ECEX_ERR; + + free(ed->keybinds[i].command); + ed->keybinds[i].command = new_command; + return ECEX_OK; + } + } + + if (ECEX_GROW_ARRAY(ed->keybinds, + ed->keybind_count, + ed->keybind_cap, + ECEX_INITIAL_KEYBIND_CAP) != ECEX_OK) { + return ECEX_ERR; + } + + char *key_copy = ecex_strdup(key); + char *command_copy = ecex_strdup(command); + if (!key_copy || !command_copy) { + free(key_copy); + free(command_copy); + return ECEX_ERR; + } + + ed->keybinds[ed->keybind_count].key = key_copy; + ed->keybinds[ed->keybind_count].command = command_copy; + ed->keybind_count++; + return ECEX_OK; +} + +const char *ecex_lookup_key(ecex_t *ed, const char *key) { + if (!ed || !key) return NULL; + + for (size_t i = 0; i < ed->keybind_count; i++) { + if (strcmp(ed->keybinds[i].key, key) == 0) { + return ed->keybinds[i].command; + } + } + + return NULL; +} + +int ecex_define_major_mode(ecex_t *ed, const char *name) { + if (!ed || !name || !name[0]) return 0; + + for (size_t i = 0; i < ed->major_mode_count; i++) { + if (strcmp(ed->major_modes[i].name, name) == 0) { + return ed->major_modes[i].id; + } + } + + if (ECEX_GROW_ARRAY(ed->major_modes, + ed->major_mode_count, + ed->major_mode_cap, + ECEX_INITIAL_MODE_CAP) != ECEX_OK) { + return 0; + } + + char *copy = ecex_strdup(name); + if (!copy) return 0; + + int id = ed->next_major_mode_id++; + ed->major_modes[ed->major_mode_count].id = id; + ed->major_modes[ed->major_mode_count].name = copy; + ed->major_mode_count++; + return id; +} + +int ecex_major_mode_by_name(ecex_t *ed, const char *name) { + if (!ed || !name) return 0; + for (size_t i = 0; i < ed->major_mode_count; i++) { + if (strcmp(ed->major_modes[i].name, name) == 0) return ed->major_modes[i].id; + } + return 0; +} + +const char *ecex_major_mode_name(ecex_t *ed, int mode) { + if (!ed || mode == 0) return "fundamental-mode"; + for (size_t i = 0; i < ed->major_mode_count; i++) { + if (ed->major_modes[i].id == mode) return ed->major_modes[i].name; + } + return "unknown-mode"; +} + +int ecex_buffer_set_major_mode(buffer_t *buffer, int mode) { + if (!buffer) return ECEX_ERR; + buffer->major_mode = mode; + return ECEX_OK; +} + +int ecex_buffer_set_major_mode_by_name(ecex_t *ed, buffer_t *buffer, const char *name) { + if (!ed || !buffer || !name) return ECEX_ERR; + int mode = ecex_define_major_mode(ed, name); + if (!mode) return ECEX_ERR; + return ecex_buffer_set_major_mode(buffer, mode); +} + +const char *ecex_buffer_major_mode_name(ecex_t *ed, buffer_t *buffer) { + if (!buffer) return "fundamental-mode"; + return ecex_major_mode_name(ed, buffer->major_mode); +} + +int ecex_bind_mode_key(ecex_t *ed, const char *mode_name, const char *key, const char *command) { + if (!ed || !mode_name || !key || !command) return ECEX_ERR; + + int mode = ecex_define_major_mode(ed, mode_name); + if (!mode) return ECEX_ERR; + + for (size_t i = 0; i < ed->mode_keybind_count; i++) { + if (ed->mode_keybinds[i].mode == mode && strcmp(ed->mode_keybinds[i].key, key) == 0) { + char *new_command = ecex_strdup(command); + if (!new_command) return ECEX_ERR; + free(ed->mode_keybinds[i].command); + ed->mode_keybinds[i].command = new_command; + return ECEX_OK; + } + } + + if (ECEX_GROW_ARRAY(ed->mode_keybinds, + ed->mode_keybind_count, + ed->mode_keybind_cap, + ECEX_INITIAL_MODE_KEYBIND_CAP) != ECEX_OK) { + return ECEX_ERR; + } + + char *key_copy = ecex_strdup(key); + char *command_copy = ecex_strdup(command); + if (!key_copy || !command_copy) { + free(key_copy); + free(command_copy); + return ECEX_ERR; + } + + ed->mode_keybinds[ed->mode_keybind_count].mode = mode; + ed->mode_keybinds[ed->mode_keybind_count].key = key_copy; + ed->mode_keybinds[ed->mode_keybind_count].command = command_copy; + ed->mode_keybind_count++; + return ECEX_OK; +} + +const char *ecex_lookup_key_for_buffer(ecex_t *ed, buffer_t *buffer, const char *key) { + if (!ed || !key) return NULL; + + int mode = buffer ? buffer->major_mode : 0; + if (mode) { + for (size_t i = 0; i < ed->mode_keybind_count; i++) { + if (ed->mode_keybinds[i].mode == mode && strcmp(ed->mode_keybinds[i].key, key) == 0) { + return ed->mode_keybinds[i].command; + } + } + } + + return ecex_lookup_key(ed, key); +} + +int ecex_key_sequence_has_prefix_for_buffer(ecex_t *ed, buffer_t *buffer, const char *prefix) { + if (!ed || !prefix) return 0; + size_t prefix_len = strlen(prefix); + int mode = buffer ? buffer->major_mode : 0; + + if (mode) { + for (size_t i = 0; i < ed->mode_keybind_count; i++) { + const char *key = ed->mode_keybinds[i].key; + if (ed->mode_keybinds[i].mode == mode && + strncmp(key, prefix, prefix_len) == 0 && key[prefix_len] == ' ') { + return 1; + } + } + } + + for (size_t i = 0; i < ed->keybind_count; i++) { + const char *key = ed->keybinds[i].key; + if (strncmp(key, prefix, prefix_len) == 0 && key[prefix_len] == ' ') return 1; + } + + return 0; +} + +int ecex_auto_set_major_mode(ecex_t *ed, buffer_t *buffer) { + if (!ed || !buffer) return ECEX_ERR; + + const char *name = "fundamental-mode"; + const char *path = buffer->path ? buffer->path : buffer->name; + const char *dot = path ? strrchr(path, '.') : NULL; + + if (dot && (strcmp(dot, ".c") == 0 || strcmp(dot, ".h") == 0 || + strcmp(dot, ".cc") == 0 || strcmp(dot, ".cpp") == 0 || + strcmp(dot, ".hpp") == 0)) { + name = "c-mode"; + } + + if (buffer_is_interactive(buffer) && buffer->name && buffer->name[0] == '*') { + name = "special-mode"; + } + + return ecex_buffer_set_major_mode_by_name(ed, buffer, name); +} + +int ecex_list_commands(ecex_t *ed) { + if (!ed) return ECEX_ERR; + + buffer_t *buf = ecex_find_buffer(ed, "*commands*"); + if (!buf) { + buf = ecex_create_buffer(ed, "*commands*", NULL, 0); + if (!buf) return ECEX_ERR; + } + + if (buffer_clear(buf) != ECEX_OK) return ECEX_ERR; + buffer_append(buf, "Commands:\n\n"); + + for (size_t i = 0; i < ed->command_count; i++) { + const char *command_name = ed->commands[i].name; + int first_key = 1; + + buffer_append(buf, " "); + buffer_append(buf, command_name); + + for (size_t j = 0; j < ed->keybind_count; j++) { + if (strcmp(ed->keybinds[j].command, command_name) == 0) { + buffer_append(buf, first_key ? " [" : ", "); + buffer_append(buf, ed->keybinds[j].key); + first_key = 0; + } + } + + for (size_t j = 0; j < ed->mode_keybind_count; j++) { + if (strcmp(ed->mode_keybinds[j].command, command_name) == 0) { + buffer_append(buf, first_key ? " [" : ", "); + buffer_append(buf, ecex_major_mode_name(ed, ed->mode_keybinds[j].mode)); + buffer_append(buf, ":"); + buffer_append(buf, ed->mode_keybinds[j].key); + first_key = 0; + } + } + + if (!first_key) buffer_append(buf, "]"); + buffer_append(buf, "\n"); + } + + buf->point = 0; + buf->modified = 0; + return ecex_switch_buffer(ed, "*commands*"); +} + + + +static int ecex_interactive_switch_buffer_action(ecex_t *ed, + buffer_t *buffer, + size_t line, + const char *payload, + void *userdata) { + (void)buffer; + (void)line; + (void)userdata; + + if (!ed || !payload) return ECEX_ERR; + return ecex_switch_buffer(ed, payload); +} + +int ecex_list_buffers(ecex_t *ed) { + if (!ed) return ECEX_ERR; + + buffer_t *buf = ecex_find_buffer(ed, "*buffers*"); + if (!buf) { + buf = ecex_create_interactive_buffer(ed, "*buffers*"); + if (!buf) return ECEX_ERR; + } + + buffer_set_interactive(buf, 1); + if (buffer_clear(buf) != ECEX_OK) return ECEX_ERR; + buffer_set_interactive(buf, 1); + + buffer_append(buf, "Buffers:\n"); + buffer_append(buf, "Press ENTER on a buffer to switch to it.\n\n"); + + for (size_t i = 0; i < ed->buffer_count; i++) { + buffer_t *b = ed->buffers[i]; + char line[1024]; + + snprintf(line, + sizeof(line), + "%s %s %-24s %-18s size:%zu%s%s", + b == ed->current_buffer ? "*" : " ", + b->modified ? "+" : " ", + b->name ? b->name : "(unnamed)", + ecex_buffer_major_mode_name(ed, b), + b->len, + b->path ? " " : "", + b->path ? b->path : ""); + + if (ecex_interactive_append_line(ed, + buf, + line, + ecex_interactive_switch_buffer_action, + b->name, + NULL) != ECEX_OK) { + return ECEX_ERR; + } + } + + buf->point = 0; + buf->modified = 0; + return ecex_switch_buffer(ed, "*buffers*"); +} + +buffer_t *ecex_create_interactive_buffer(ecex_t *ed, const char *name) { + if (!ed || !name) return NULL; + + buffer_t *buffer = ecex_find_buffer(ed, name); + if (!buffer) { + buffer = ecex_create_buffer(ed, name, NULL, 0); + if (!buffer) return NULL; + } + + buffer_set_interactive(buffer, 1); + if (buffer->major_mode == 0) ecex_buffer_set_major_mode_by_name(ed, buffer, "special-mode"); + return buffer; +} + +int ecex_interactive_append_line(ecex_t *ed, + buffer_t *buffer, + const char *text, + ecex_interactive_line_fn fn, + const char *payload, + void *userdata) { + (void)ed; + + if (!buffer || !text) return ECEX_ERR; + + size_t line = buffer_line_count(buffer); + if (line > 0) line--; + + if (fn) { + if (buffer_add_interactive_action(buffer, line, fn, payload, userdata) != ECEX_OK) { + return ECEX_ERR; + } + } + + if (buffer_append(buffer, text) != ECEX_OK) return ECEX_ERR; + if (buffer_append(buffer, "\n") != ECEX_OK) return ECEX_ERR; + + buffer_set_interactive(buffer, 1); + return ECEX_OK; +} + +int ecex_interactive_activate_current_line(ecex_t *ed) { + if (!ed) return ECEX_ERR; + + buffer_t *buffer = ecex_current_buffer(ed); + if (!buffer || !buffer_is_interactive(buffer)) return ECEX_ERR; + + size_t line = buffer_current_line_number(buffer); + if (line > 0) line--; + + ecex_interactive_line_action_t *action = + buffer_interactive_action_at_line(buffer, line); + + if (!action || !action->fn) return ECEX_ERR; + return action->fn(ed, buffer, line, action->payload, action->userdata); +} + +static const char *ecex_basename(const char *path) { + if (!path || !path[0]) return "untitled"; + + const char *last_slash = strrchr(path, '/'); + if (last_slash && last_slash[1]) return last_slash + 1; + if (last_slash && last_slash == path) return "/"; + return path; +} + +static int ecex_buffer_path_equal(buffer_t *buffer, const char *path) { + return buffer && buffer->path && path && strcmp(buffer->path, path) == 0; +} + +int ecex_find_file(ecex_t *ed, const char *path) { + if (!ed || !path || !path[0]) return ECEX_ERR; + + for (size_t i = 0; i < ed->buffer_count; i++) { + if (ecex_buffer_path_equal(ed->buffers[i], path)) { + return ecex_set_current_buffer_index(ed, i); + } + } + + const char *name = ecex_basename(path); + buffer_t *buf = ecex_create_buffer(ed, name, NULL, 0); + if (!buf) return ECEX_ERR; + + if (ecex_file_exists(path)) { + if (buffer_load_file(buf, path) != ECEX_OK) { + ecex_kill_buffer(ed, buf->name); + return ECEX_ERR; + } + } else { + char *new_path = ecex_strdup(path); + if (!new_path) { + ecex_kill_buffer(ed, buf->name); + return ECEX_ERR; + } + + free(buf->path); + buf->path = new_path; + buf->modified = 0; + } + + ecex_auto_set_major_mode(ed, buf); + return ecex_set_current_buffer_index(ed, ed->buffer_count ? ed->buffer_count - 1 : 0); +} + +int ecex_save_current_buffer(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf) return ECEX_ERR; + return buffer_save(buf); +} + +int ecex_write_current_buffer(ecex_t *ed, const char *path) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf || !path || !path[0]) return ECEX_ERR; + int result = buffer_save_as(buf, path); + if (result == ECEX_OK) ecex_auto_set_major_mode(ed, buf); + return result; +} + +void ecex_request_prompt(ecex_t *ed, + ecex_prompt_request_t request, + const char *message) { + if (!ed) return; + + ed->prompt_request = request; + snprintf(ed->prompt_message, + sizeof(ed->prompt_message), + "%s", + message ? message : ""); +} + +void ecex_clear_prompt_request(ecex_t *ed) { + if (!ed) return; + ed->prompt_request = ECEX_PROMPT_NONE; + ed->prompt_message[0] = '\0'; +} + +static int ecex_fuzzy_score(const char *candidate, const char *query) { + if (!candidate || !query) return -1; + if (query[0] == '\0') return 0; + + int score = 0; + int consecutive = 0; + int last_match = -1; + size_t ci = 0; + size_t qi = 0; + + while (candidate[ci] && query[qi]) { + char c = candidate[ci]; + char q = query[qi]; + + if (c >= 'A' && c <= 'Z') c = (char)(c - 'A' + 'a'); + if (q >= 'A' && q <= 'Z') q = (char)(q - 'A' + 'a'); + + if (c == q) { + score += 10; + + if ((int)ci == last_match + 1) { + consecutive++; + score += 5 * consecutive; + } else { + consecutive = 0; + } + + if (ci == 0) score += 20; + if (ci > 0 && (candidate[ci - 1] == '-' || + candidate[ci - 1] == '_' || + candidate[ci - 1] == ' ')) { + score += 15; + } + + last_match = (int)ci; + qi++; + } + + ci++; + } + + if (query[qi] != '\0') return -1; + + score -= (int)strlen(candidate); + if (strncmp(candidate, query, strlen(query)) == 0) score += 100; + return score; +} + +const char *ecex_complete_command(ecex_t *ed, const char *query) { + if (!ed || !query || !ed->theme.completion_enabled) return NULL; + + const char *best = NULL; + int best_score = -1; + + for (size_t i = 0; i < ed->command_count; i++) { + const char *name = ed->commands[i].name; + int score = ecex_fuzzy_score(name, query); + + if (score > best_score) { + best_score = score; + best = name; + } + } + + return best; +} + + +static int ecex_set_owned_string(char **slot, const char *value) { + if (!slot) return ECEX_ERR; + char *copy = NULL; + if (value && value[0]) { + copy = ecex_strdup(value); + if (!copy) return ECEX_ERR; + } + free(*slot); + *slot = copy; + return ECEX_OK; +} + +static int ecex_parse_file_line(const char *text, char *path, size_t path_size, size_t *out_line) { + if (!text || !path || path_size == 0 || !out_line) return ECEX_ERR; + const char *colon = strchr(text, ':'); + if (!colon || colon == text) return ECEX_ERR; + char *end = NULL; + long line = strtol(colon + 1, &end, 10); + if (line <= 0 || end == colon + 1) return ECEX_ERR; + size_t len = (size_t)(colon - text); + if (len >= path_size) len = path_size - 1; + memcpy(path, text, len); + path[len] = '\0'; + *out_line = (size_t)line; + return ECEX_OK; +} + +static int ecex_goto_file_line_action(ecex_t *ed, buffer_t *buffer, size_t line, const char *payload, void *userdata) { + (void)buffer; + (void)line; + (void)userdata; + if (!ed || !payload) return ECEX_ERR; + char path[1024]; + size_t target_line = 1; + if (ecex_parse_file_line(payload, path, sizeof(path), &target_line) != ECEX_OK) return ECEX_ERR; + if (ecex_find_file(ed, path) != ECEX_OK) return ECEX_ERR; + buffer_t *buf = ecex_current_buffer(ed); + if (!buf) return ECEX_ERR; + size_t pos = 0; + for (size_t l = 1; l < target_line && pos < buf->len; pos++) { + if (buf->data[pos] == '\n') l++; + } + buffer_set_point(buf, pos); + return ECEX_OK; +} + +static int ecex_append_shell_output(ecex_t *ed, const char *name, const char *command) { + if (!ed || !name || !command || !command[0]) return ECEX_ERR; + buffer_t *buf = ecex_create_interactive_buffer(ed, name); + if (!buf) return ECEX_ERR; + buffer_set_interactive(buf, 1); + if (buffer_clear(buf) != ECEX_OK) return ECEX_ERR; + buffer_set_interactive(buf, 1); + ecex_buffer_set_major_mode_by_name(ed, buf, "special-mode"); + + char header[2048]; + snprintf(header, sizeof(header), "%s\n\nKeys: g/r rerun, n/p next/previous result, RET jump, q quit.\n\n", command); + buffer_append(buf, header); + + char shell_command[4096]; + snprintf(shell_command, sizeof(shell_command), "%s 2>&1", command); + FILE *pipe = popen(shell_command, "r"); + if (!pipe) { + buffer_append(buf, "Failed to start command.\n"); + return ecex_switch_buffer(ed, name); + } + + char line[4096]; + while (fgets(line, sizeof(line), pipe)) { + size_t len = strlen(line); + while (len > 0 && (line[len - 1] == '\n' || line[len - 1] == '\r')) line[--len] = '\0'; + char path[1024]; + size_t target = 0; + ecex_interactive_line_fn fn = NULL; + char payload[1200]; + payload[0] = '\0'; + if (ecex_parse_file_line(line, path, sizeof(path), &target) == ECEX_OK) { + snprintf(payload, sizeof(payload), "%s:%zu", path, target); + fn = ecex_goto_file_line_action; + } + ecex_interactive_append_line(ed, buf, line, fn, payload[0] ? payload : NULL, NULL); + } + + int status = pclose(pipe); + char footer[128]; + snprintf(footer, sizeof(footer), "\n[process exited: %d]\n", status); + buffer_append(buf, footer); + buf->point = 0; + buf->modified = 0; + return ecex_switch_buffer(ed, name); +} + +int ecex_compile(ecex_t *ed, const char *command) { + if (!ed || !command || !command[0]) return ECEX_ERR; + if (ecex_set_owned_string(&ed->last_compile_command, command) != ECEX_OK) return ECEX_ERR; + return ecex_append_shell_output(ed, "*compilation*", command); +} + +int ecex_grep(ecex_t *ed, const char *command) { + if (!ed || !command || !command[0]) return ECEX_ERR; + if (ecex_set_owned_string(&ed->last_grep_command, command) != ECEX_OK) return ECEX_ERR; + return ecex_append_shell_output(ed, "*grep*", command); +} + +int ecex_rerun_compile(ecex_t *ed) { + if (!ed || !ed->last_compile_command) return ECEX_ERR; + return ecex_append_shell_output(ed, "*compilation*", ed->last_compile_command); +} + +int ecex_rerun_grep(ecex_t *ed) { + if (!ed || !ed->last_grep_command) return ECEX_ERR; + return ecex_append_shell_output(ed, "*grep*", ed->last_grep_command); +} + +int ecex_next_interactive_action(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf || !buffer_is_interactive(buf) || buf->interactive_action_count == 0) return ECEX_ERR; + size_t current = buffer_current_line_number(buf); + if (current > 0) current--; + size_t best = (size_t)-1; + for (size_t i = 0; i < buf->interactive_action_count; i++) { + size_t line = buf->interactive_actions[i].line; + if (line > current && (best == (size_t)-1 || line < best)) best = line; + } + if (best == (size_t)-1) best = buf->interactive_actions[0].line; + size_t pos = 0; + for (size_t l = 0; l < best && pos < buf->len; pos++) if (buf->data[pos] == '\n') l++; + buffer_set_point(buf, pos); + return ECEX_OK; +} + +int ecex_previous_interactive_action(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf || !buffer_is_interactive(buf) || buf->interactive_action_count == 0) return ECEX_ERR; + size_t current = buffer_current_line_number(buf); + if (current > 0) current--; + size_t best = (size_t)-1; + for (size_t i = 0; i < buf->interactive_action_count; i++) { + size_t line = buf->interactive_actions[i].line; + if (line < current && (best == (size_t)-1 || line > best)) best = line; + } + if (best == (size_t)-1) best = buf->interactive_actions[buf->interactive_action_count - 1].line; + size_t pos = 0; + for (size_t l = 0; l < best && pos < buf->len; pos++) if (buf->data[pos] == '\n') l++; + buffer_set_point(buf, pos); + return ECEX_OK; +} + +static int ecex_region_lines(buffer_t *buf, size_t *out_start, size_t *out_end) { + if (!buf || !buffer_has_selection(buf)) return ECEX_ERR; + size_t start = 0, end = 0; + buffer_selection_range(buf, &start, &end); + start = buffer_line_start_at(buf, start); + end = buffer_line_end_at(buf, end); + if (end < buf->len) end++; + if (out_start) *out_start = start; + if (out_end) *out_end = end; + return ECEX_OK; +} + +int ecex_comment_region(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + size_t start = 0, end = 0; + if (!buf || ecex_region_lines(buf, &start, &end) != ECEX_OK) return ECEX_ERR; + size_t pos = start; + while (pos <= end && pos <= buf->len) { + if (buffer_insert_at(buf, pos, "// ") != ECEX_OK) return ECEX_ERR; + pos += 3; + end += 3; + size_t eol = buffer_line_end_at(buf, pos); + if (eol >= end || eol >= buf->len) break; + pos = eol + 1; + } + return ECEX_OK; +} + +int ecex_uncomment_region(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + size_t start = 0, end = 0; + if (!buf || ecex_region_lines(buf, &start, &end) != ECEX_OK) return ECEX_ERR; + size_t pos = start; + while (pos < end && pos < buf->len) { + if (pos + 2 <= buf->len && memcmp(buf->data + pos, "//", 2) == 0) { + size_t del = (pos + 3 <= buf->len && buf->data[pos + 2] == ' ') ? 3 : 2; + if (buffer_delete_range(buf, pos, pos + del) != ECEX_OK) return ECEX_ERR; + end = end > del ? end - del : 0; + } + size_t eol = buffer_line_end_at(buf, pos); + if (eol >= end || eol >= buf->len) break; + pos = eol + 1; + } + return ECEX_OK; +} + +int ecex_set_font(ecex_t *ed, const char *path) { + if (!ed || !path) return ECEX_ERR; + + char *copy = ecex_strdup(path); + if (!copy) return ECEX_ERR; + + free(ed->theme.font_path); + ed->theme.font_path = copy; + return ECEX_OK; +} + +float ecex_get_font_size(ecex_t *ed) { + if (!ed) return 0.0f; + return ed->theme.font_size; +} + +int ecex_set_font_size(ecex_t *ed, float size) { + if (!ed) return ECEX_ERR; + ed->theme.font_size = ECEX_CLAMP(size, 8.0f, 96.0f); + return ECEX_OK; +} + +int ecex_adjust_font_size(ecex_t *ed, float delta) { + if (!ed) return ECEX_ERR; + return ecex_set_font_size(ed, ed->theme.font_size + delta); +} + +void ecex_set_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.bg = ecex_color(r, g, b); } +void ecex_set_fg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.fg = ecex_color(r, g, b); } +void ecex_set_status_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.status_bg = ecex_color(r, g, b); } +void ecex_set_status_fg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.status_fg = ecex_color(r, g, b); } +void ecex_set_status_border_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.status_border = ecex_color(r, g, b); } +void ecex_set_cursor_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.cursor = ecex_color(r, g, b); } +void ecex_set_region_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.region_bg = ecex_color(r, g, b); } +void ecex_set_minibuffer_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.minibuffer_bg = ecex_color(r, g, b); } +void ecex_set_minibuffer_fg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.minibuffer_fg = ecex_color(r, g, b); } +void ecex_set_completion_fg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.completion_fg = ecex_color(r, g, b); } +void ecex_set_completion_enabled(ecex_t *ed, int enabled) { if (ed) ed->theme.completion_enabled = enabled ? 1 : 0; } +void ecex_set_interactive_highlight_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.interactive_highlight_bg = ecex_color(r, g, b); } +void ecex_set_interactive_highlight_fg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.interactive_highlight_fg = ecex_color(r, g, b); } +void ecex_set_current_line_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.current_line_bg = ecex_color(r, g, b); } +void ecex_set_search_bg_color(ecex_t *ed, float r, float g, float b) { if (ed) ed->theme.search_bg = ecex_color(r, g, b); } +void ecex_set_line_numbers_enabled(ecex_t *ed, int enabled) { if (ed) ed->theme.line_numbers_enabled = enabled ? 1 : 0; } +void ecex_set_current_line_enabled(ecex_t *ed, int enabled) { if (ed) ed->theme.current_line_enabled = enabled ? 1 : 0; } diff --git a/src/eval.c b/src/eval.c new file mode 100644 index 0000000..316d6d8 --- /dev/null +++ b/src/eval.c @@ -0,0 +1,482 @@ +#define _POSIX_C_SOURCE 200809L + +#include "eval.h" + +#include "buffers.h" +#include "ccdjit.h" +#include "common.h" +#include "config.h" +#include "ecex.h" +#include "util.h" + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> +#include <unistd.h> + +static ecex_t *g_eval_editor = NULL; + +static buffer_t *eval_output_buffer(ecex_t *ed) { + if (!ed) return NULL; + + buffer_t *out = ecex_create_interactive_buffer(ed, "*eval-output*"); + if (out) { + ecex_buffer_set_major_mode_by_name(ed, out, "eval-output-mode"); + } + + return out; +} + +static void eval_append_diag(buffer_t *out, ccdjit_context *ctx) { + if (!out || !ctx) return; + + const ccdjit_diagnostic *diag = ccdjit_context_last_error(ctx); + if (!diag) { + buffer_append(out, "ccdjit: unknown error\n"); + return; + } + + char line[1024]; + snprintf(line, + sizeof(line), + "ccdjit error [%s] %s:%d:%d: %s\n", + diag->phase ? diag->phase : "?", + diag->filename ? diag->filename : "<input>", + diag->line, + diag->column, + diag->message ? diag->message : "(no message)"); + buffer_append(out, line); + + if (diag->source_line) { + buffer_append(out, diag->source_line); + buffer_append(out, "\n"); + } + + if (diag->caret_line) { + buffer_append(out, diag->caret_line); + buffer_append(out, "\n"); + } +} + +typedef struct eval_capture { + FILE *file; + int saved_stdout; + int saved_stderr; + int active; +} eval_capture_t; + +static void eval_capture_init(eval_capture_t *capture) { + if (!capture) return; + + capture->file = NULL; + capture->saved_stdout = -1; + capture->saved_stderr = -1; + capture->active = 0; +} + +static int eval_capture_begin(eval_capture_t *capture, buffer_t *out) { + if (!capture) return ECEX_ERR; + + eval_capture_init(capture); + + capture->file = tmpfile(); + if (!capture->file) { + if (out) buffer_append(out, "warning: failed to create stdout capture file\n"); + return ECEX_ERR; + } + + int capture_fd = fileno(capture->file); + if (capture_fd < 0) { + if (out) buffer_append(out, "warning: failed to get stdout capture fd\n"); + fclose(capture->file); + eval_capture_init(capture); + return ECEX_ERR; + } + + fflush(NULL); + + capture->saved_stdout = dup(STDOUT_FILENO); + capture->saved_stderr = dup(STDERR_FILENO); + + if (capture->saved_stdout < 0 || capture->saved_stderr < 0) { + if (out) buffer_append(out, "warning: failed to save stdout/stderr\n"); + + if (capture->saved_stdout >= 0) close(capture->saved_stdout); + if (capture->saved_stderr >= 0) close(capture->saved_stderr); + fclose(capture->file); + eval_capture_init(capture); + return ECEX_ERR; + } + + if (dup2(capture_fd, STDOUT_FILENO) < 0 || + dup2(capture_fd, STDERR_FILENO) < 0) { + if (out) buffer_append(out, "warning: failed to redirect stdout/stderr\n"); + + dup2(capture->saved_stdout, STDOUT_FILENO); + dup2(capture->saved_stderr, STDERR_FILENO); + close(capture->saved_stdout); + close(capture->saved_stderr); + fclose(capture->file); + eval_capture_init(capture); + return ECEX_ERR; + } + + capture->active = 1; + return ECEX_OK; +} + +static void eval_capture_restore(eval_capture_t *capture) { + if (!capture || !capture->active) return; + + fflush(NULL); + + if (capture->saved_stdout >= 0) { + dup2(capture->saved_stdout, STDOUT_FILENO); + close(capture->saved_stdout); + capture->saved_stdout = -1; + } + + if (capture->saved_stderr >= 0) { + dup2(capture->saved_stderr, STDERR_FILENO); + close(capture->saved_stderr); + capture->saved_stderr = -1; + } + + capture->active = 0; +} + +static void eval_capture_append_output(eval_capture_t *capture, buffer_t *out) { + if (!capture || !capture->file || !out) return; + + if (fseek(capture->file, 0, SEEK_END) != 0) { + return; + } + + long size = ftell(capture->file); + if (size <= 0) { + return; + } + + if (fseek(capture->file, 0, SEEK_SET) != 0) { + return; + } + + buffer_append(out, "stdout/stderr:\n"); + + char chunk[4096]; + size_t n = 0; + + while ((n = fread(chunk, 1, sizeof(chunk), capture->file)) > 0) { + size_t old_len = out->len; + + if (buffer_reserve(out, out->len + n + 1) != ECEX_OK) { + buffer_append(out, "\n[output truncated: allocation failed]\n"); + return; + } + + memcpy(out->data + old_len, chunk, n); + out->len += n; + out->data[out->len] = '\0'; + out->point = out->len; + } + + if (out->len > 0 && out->data[out->len - 1] != '\n') { + buffer_append(out, "\n"); + } + + buffer_append(out, "\n"); +} + +static void eval_capture_finish(eval_capture_t *capture, buffer_t *out) { + if (!capture) return; + + eval_capture_restore(capture); + eval_capture_append_output(capture, out); + + if (capture->file) { + fclose(capture->file); + } + + eval_capture_init(capture); +} + +static int source_has_main(const char *source) { + if (!source) return 0; + + return strstr(source, "main(") != NULL || + strstr(source, "main (") != NULL; +} + +static char *make_eval_source(const char *source, int wrap_as_statements) { + if (!source) return NULL; + + const char *prefix = + "#include \"ecex.h\"\n" + "#include \"buffers.h\"\n" + "extern ecex_t *__ecex_eval_editor;\n" + "#define ECEX_ED (__ecex_eval_editor)\n" + "\n"; + + const char *wrapper_open = + "int main(int argc, char **argv) {\n" + " (void)argc;\n" + " (void)argv;\n" + " ecex_t *ed = __ecex_eval_editor;\n" + " (void)ed;\n"; + + const char *wrapper_close = + "\n" + " return 0;\n" + "}\n"; + + int do_wrap = wrap_as_statements || !source_has_main(source); + + size_t prefix_len = strlen(prefix); + size_t source_len = strlen(source); + size_t open_len = do_wrap ? strlen(wrapper_open) : 0; + size_t close_len = do_wrap ? strlen(wrapper_close) : 0; + + char *combined = malloc(prefix_len + open_len + source_len + close_len + 2); + if (!combined) return NULL; + + char *p = combined; + memcpy(p, prefix, prefix_len); + p += prefix_len; + + if (do_wrap) { + memcpy(p, wrapper_open, open_len); + p += open_len; + } + + memcpy(p, source, source_len); + p += source_len; + + if (do_wrap) { + if (source_len == 0 || source[source_len - 1] != '\n') { + *p++ = '\n'; + } + memcpy(p, wrapper_close, close_len); + p += close_len; + } + + *p = '\0'; + return combined; +} + +static int remember_last_eval(ecex_t *ed, + const char *source, + const char *filename, + int wrap_as_statements) { + if (!ed || !source) return ECEX_ERR; + + char *source_copy = ecex_strdup(source); + char *filename_copy = ecex_strdup(filename ? filename : "<eval>"); + if (!source_copy || !filename_copy) { + free(source_copy); + free(filename_copy); + return ECEX_ERR; + } + + free(ed->last_eval_source); + free(ed->last_eval_filename); + ed->last_eval_source = source_copy; + ed->last_eval_filename = filename_copy; + ed->last_eval_wrap_as_statements = wrap_as_statements; + return ECEX_OK; +} + +int ecex_eval_source(ecex_t *ed, + const char *source, + const char *filename, + int wrap_as_statements) { + if (!ed || !source) return ECEX_ERR; + + remember_last_eval(ed, source, filename, wrap_as_statements); + + buffer_t *out = eval_output_buffer(ed); + if (!out) return ECEX_ERR; + + buffer_clear(out); + buffer_set_interactive(out, 1); + ecex_buffer_set_major_mode_by_name(ed, out, "eval-output-mode"); + buffer_append(out, "Eval output (g: re-eval, q: quit window, ENTER: follow line if available)\n"); + buffer_append(out, "────────────────────────────────────────────────────────────────\n\n"); + buffer_append(out, "Eval: "); + buffer_append(out, filename ? filename : "<eval>"); + buffer_append(out, "\n\n"); + + char *eval_source = make_eval_source(source, wrap_as_statements); + if (!eval_source) { + buffer_append(out, "failed to allocate eval source\n"); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + ccdjit_context *ctx = ccdjit_context_new(NULL); + if (!ctx) { + buffer_append(out, "failed to create ccdjit context\n"); + free(eval_source); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + if (ecex_add_ccdjit_include_paths(ctx) != ECEX_OK || + ecex_register_host_symbols(ctx) != ECEX_OK || + ccdjit_context_register_symbol(ctx, + "__ecex_eval_editor", + (void *)&g_eval_editor) != 0) { + buffer_append(out, "failed to prepare eval context\n"); + eval_append_diag(out, ctx); + ccdjit_context_free(ctx); + free(eval_source); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + g_eval_editor = ed; + + ccdjit_module *module = NULL; + if (ccdjit_compile_string(ctx, + eval_source, + filename ? filename : "<eval>", + &module) != 0) { + buffer_append(out, "compile failed\n\n"); + eval_append_diag(out, ctx); + g_eval_editor = NULL; + ccdjit_context_free(ctx); + free(eval_source); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + int result = 0; + eval_capture_t capture; + int capture_enabled = (eval_capture_begin(&capture, out) == ECEX_OK); + int runtime_status = ccdjit_module_call_main(module, 0, NULL, &result); + + if (capture_enabled) { + eval_capture_finish(&capture, out); + } + + if (runtime_status != 0) { + buffer_append(out, "runtime failed\n\n"); + eval_append_diag(out, ctx); + ccdjit_module_free(module); + g_eval_editor = NULL; + ccdjit_context_free(ctx); + free(eval_source); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + char line[128]; + snprintf(line, sizeof(line), "ok, result = %d\n", result); + buffer_append(out, line); + + /* + * Keep successful eval modules alive. This makes eval useful for live + * customization: code evaluated from a buffer may register commands whose + * function pointers remain valid after eval returns. + */ + if (ecex_keep_jit_module(ed, module) != ECEX_OK) { + buffer_append(out, "failed to keep eval module alive\n"); + ccdjit_module_free(module); + g_eval_editor = NULL; + ccdjit_context_free(ctx); + free(eval_source); + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_ERR; + } + + g_eval_editor = NULL; + ccdjit_context_free(ctx); + free(eval_source); + + out->modified = 0; + out->point = 0; + ecex_switch_buffer(ed, "*eval-output*"); + return ECEX_OK; +} + +int ecex_eval_current_buffer(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf || !buf->data) return ECEX_ERR; + + return ecex_eval_source(ed, + buf->data, + buf->path ? buf->path : buf->name, + 0); +} + +int ecex_eval_current_line(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf) return ECEX_ERR; + + char *line = buffer_current_line_copy(buf); + if (!line) return ECEX_ERR; + + int result = ecex_eval_source(ed, line, "<current-line>", 1); + free(line); + return result; +} + + +int ecex_eval_current_region(ecex_t *ed) { + buffer_t *buf = ecex_current_buffer(ed); + if (!buf || !buffer_has_selection(buf)) return ECEX_ERR; + + size_t start = 0; + size_t end = 0; + buffer_selection_range(buf, &start, &end); + + char *region = buffer_substring(buf, start, end); + if (!region) return ECEX_ERR; + + int result = ecex_eval_source(ed, region, "<region>", 1); + free(region); + return result; +} + +int ecex_eval_file(ecex_t *ed, const char *path) { + if (!ed || !path || !path[0]) return ECEX_ERR; + + size_t size = 0; + char *source = ecex_read_entire_file(path, &size); + (void)size; + + if (!source) { + buffer_t *out = eval_output_buffer(ed); + if (out) { + buffer_clear(out); + buffer_append(out, "failed to read eval file: "); + buffer_append(out, path); + buffer_append(out, "\n"); + out->modified = 0; + ecex_switch_buffer(ed, "*eval-output*"); + } + return ECEX_ERR; + } + + int result = ecex_eval_source(ed, source, path, 0); + free(source); + return result; +} + +int ecex_eval_rerun_last(ecex_t *ed) { + if (!ed || !ed->last_eval_source) return ECEX_ERR; + + char *source = ecex_strdup(ed->last_eval_source); + char *filename = ecex_strdup(ed->last_eval_filename ? ed->last_eval_filename : "<eval>"); + int wrap = ed->last_eval_wrap_as_statements; + + if (!source || !filename) { + free(source); + free(filename); + return ECEX_ERR; + } + + int result = ecex_eval_source(ed, source, filename, wrap); + free(source); + free(filename); + return result; +} diff --git a/src/font.c b/src/font.c new file mode 100644 index 0000000..62985e4 --- /dev/null +++ b/src/font.c @@ -0,0 +1,258 @@ +#include "font.h" +#include "util.h" + +#define STB_TRUETYPE_IMPLEMENTATION +#include "stb_truetype.h" + +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +const char *font_choose_path(const char *explicit_font_path) { + static char candidate[4096]; + + if (explicit_font_path && explicit_font_path[0]) { + return explicit_font_path; + } + + const char *env_font = getenv("ECEX_FONT"); + if (env_font && env_font[0]) { + return env_font; + } + + const char *guix_env = getenv("GUIX_ENVIRONMENT"); + if (guix_env && guix_env[0]) { + snprintf(candidate, sizeof(candidate), + "%s/share/fonts/truetype/DejaVuSansMono.ttf", guix_env); + if (ecex_file_exists(candidate)) return candidate; + + snprintf(candidate, sizeof(candidate), + "%s/share/fonts/truetype/dejavu/DejaVuSansMono.ttf", guix_env); + if (ecex_file_exists(candidate)) return candidate; + + snprintf(candidate, sizeof(candidate), + "%s/share/fonts/dejavu/DejaVuSansMono.ttf", guix_env); + if (ecex_file_exists(candidate)) return candidate; + } + + const char *home = getenv("HOME"); + if (home && home[0]) { + snprintf(candidate, sizeof(candidate), + "%s/.guix-profile/share/fonts/truetype/DejaVuSansMono.ttf", home); + if (ecex_file_exists(candidate)) return candidate; + + snprintf(candidate, sizeof(candidate), + "%s/.guix-profile/share/fonts/truetype/dejavu/DejaVuSansMono.ttf", home); + if (ecex_file_exists(candidate)) return candidate; + + snprintf(candidate, sizeof(candidate), + "%s/.guix-profile/share/fonts/dejavu/DejaVuSansMono.ttf", home); + if (ecex_file_exists(candidate)) return candidate; + } + + if (ecex_file_exists("/usr/share/fonts/truetype/dejavu/DejaVuSansMono.ttf")) { + return "/usr/share/fonts/truetype/dejavu/DejaVuSansMono.ttf"; + } + + if (ecex_file_exists("/usr/share/fonts/TTF/DejaVuSansMono.ttf")) { + return "/usr/share/fonts/TTF/DejaVuSansMono.ttf"; + } + + return NULL; +} + +int font_load(font_t *font, const char *path, float size_px) { + if (!font || !path) return -1; + + memset(font, 0, sizeof(*font)); + + size_t ttf_size = 0; + char *ttf_data = ecex_read_entire_file(path, &ttf_size); + if (!ttf_data) { + fprintf(stderr, "failed to read font: %s\n", path); + return -1; + } + + unsigned char *bitmap = calloc(1, ECEX_FONT_BITMAP_W * ECEX_FONT_BITMAP_H); + if (!bitmap) { + free(ttf_data); + return -1; + } + + stbtt_fontinfo info; + int ascent = 0; + int descent = 0; + int line_gap = 0; + + if (stbtt_InitFont(&info, (const unsigned char *)ttf_data, 0)) { + float scale = stbtt_ScaleForPixelHeight(&info, size_px); + stbtt_GetFontVMetrics(&info, &ascent, &descent, &line_gap); + + font->ascent_px = (float)ascent * scale; + font->descent_px = (float)(-descent) * scale; + font->line_gap_px = (float)line_gap * scale; + } + + if (font->ascent_px <= 0.0f) { + font->ascent_px = size_px * 0.80f; + } + + if (font->descent_px <= 0.0f) { + font->descent_px = size_px * 0.20f; + } + + if (font->line_gap_px < 0.0f) { + font->line_gap_px = 0.0f; + } + + int bake_result = stbtt_BakeFontBitmap( + (const unsigned char *)ttf_data, + 0, + size_px, + bitmap, + ECEX_FONT_BITMAP_W, + ECEX_FONT_BITMAP_H, + ECEX_FONT_FIRST_CHAR, + ECEX_FONT_CHAR_COUNT, + font->chars + ); + + free(ttf_data); + + if (bake_result <= 0) { + fprintf(stderr, "failed to bake font atlas from: %s\n", path); + free(bitmap); + return -1; + } + + glGenTextures(1, &font->texture); + glBindTexture(GL_TEXTURE_2D, font->texture); + + glTexImage2D(GL_TEXTURE_2D, + 0, + GL_ALPHA, + ECEX_FONT_BITMAP_W, + ECEX_FONT_BITMAP_H, + 0, + GL_ALPHA, + GL_UNSIGNED_BYTE, + bitmap); + + glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MIN_FILTER, GL_LINEAR); + glTexParameteri(GL_TEXTURE_2D, GL_TEXTURE_MAG_FILTER, GL_LINEAR); + + free(bitmap); + + font->size_px = size_px; + font->line_height = font->ascent_px + font->descent_px + font->line_gap_px; + + if (font->line_height < size_px * 1.15f) { + font->line_height = size_px * 1.15f; + } + + fprintf(stderr, "ecex: loaded font: %s\n", path); + return 0; +} + +void font_free(font_t *font) { + if (!font) return; + + if (font->texture) { + glDeleteTextures(1, &font->texture); + font->texture = 0; + } +} + +void draw_text(font_t *font, float x, float y, const char *text) { + if (!font || !font->texture || !text) return; + + glEnable(GL_TEXTURE_2D); + glBindTexture(GL_TEXTURE_2D, font->texture); + + glBegin(GL_QUADS); + + float start_x = x; + + for (const char *p = text; *p; p++) { + unsigned char c = (unsigned char)*p; + + if (c == '\n') { + x = start_x; + y += font->line_height; + continue; + } + + if (c == '\t') { + x += font->size_px * 4.0f; + continue; + } + + if (c < ECEX_FONT_FIRST_CHAR || + c >= ECEX_FONT_FIRST_CHAR + ECEX_FONT_CHAR_COUNT) { + c = '?'; + } + + stbtt_aligned_quad q; + + stbtt_GetBakedQuad(font->chars, + ECEX_FONT_BITMAP_W, + ECEX_FONT_BITMAP_H, + c - ECEX_FONT_FIRST_CHAR, + &x, + &y, + &q, + 1); + + glTexCoord2f(q.s0, q.t0); + glVertex2f(q.x0, q.y0); + + glTexCoord2f(q.s1, q.t0); + glVertex2f(q.x1, q.y0); + + glTexCoord2f(q.s1, q.t1); + glVertex2f(q.x1, q.y1); + + glTexCoord2f(q.s0, q.t1); + glVertex2f(q.x0, q.y1); + } + + glEnd(); + + glDisable(GL_TEXTURE_2D); +} + +float text_width(font_t *font, const char *text) { + if (!font || !text) return 0.0f; + + float x = 0.0f; + float y = 0.0f; + + for (const char *p = text; *p; p++) { + unsigned char c = (unsigned char)*p; + + if (c == '\n') break; + + if (c == '\t') { + x += font->size_px * 4.0f; + continue; + } + + if (c < ECEX_FONT_FIRST_CHAR || + c >= ECEX_FONT_FIRST_CHAR + ECEX_FONT_CHAR_COUNT) { + c = '?'; + } + + stbtt_aligned_quad q; + + stbtt_GetBakedQuad(font->chars, + ECEX_FONT_BITMAP_W, + ECEX_FONT_BITMAP_H, + c - ECEX_FONT_FIRST_CHAR, + &x, + &y, + &q, + 1); + } + + return x; +} diff --git a/src/main.c b/src/main.c new file mode 100644 index 0000000..9f388a0 --- /dev/null +++ b/src/main.c @@ -0,0 +1,164 @@ +#include "app.h" +#include "config.h" +#include "font.h" +#include "render.h" + +#include <GLFW/glfw3.h> + +#include <stdio.h> +#include <string.h> + +#define WINDOW_WIDTH 1000 +#define WINDOW_HEIGHT 700 + +static void print_usage(const char *argv0) { + fprintf(stderr, "usage:\n"); + fprintf(stderr, " %s [--config path/to/ecexrc.c] [--font path/to/font.ttf]\n", argv0); + fprintf(stderr, "\n"); + fprintf(stderr, "keys:\n"); + fprintf(stderr, " F1 opens M-x\n"); + fprintf(stderr, " Tab completes M-x command names\n"); + fprintf(stderr, " Alt+x opens M-x when the OS/window-manager allows it\n"); + fprintf(stderr, " C-x is reserved for prefix maps\n"); + fprintf(stderr, "\n"); + fprintf(stderr, "env:\n"); + fprintf(stderr, " ECEX_FONT=/path/to/font.ttf\n"); + fprintf(stderr, " ECEX_INCLUDE=/path/to/ecex/include\n"); +} + +static int parse_args(int argc, + char **argv, + const char **config_path, + const char **font_path_arg) { + *config_path = NULL; + *font_path_arg = NULL; + + for (int i = 1; i < argc; i++) { + if (strcmp(argv[i], "--config") == 0) { + if (i + 1 >= argc) { + print_usage(argv[0]); + return -1; + } + + *config_path = argv[++i]; + } else if (strcmp(argv[i], "--font") == 0) { + if (i + 1 >= argc) { + print_usage(argv[0]); + return -1; + } + + *font_path_arg = argv[++i]; + } else if (strcmp(argv[i], "--help") == 0 || + strcmp(argv[i], "-h") == 0) { + print_usage(argv[0]); + return 1; + } else { + *font_path_arg = argv[i]; + } + } + + return 0; +} + +static const char *select_font_path(ecex_t *ed, const char *font_path_arg) { + if (font_path_arg) return font_path_arg; + if (ed && ed->theme.font_path) return ed->theme.font_path; + return font_choose_path(NULL); +} + +int main(int argc, char **argv) { + const char *config_path = NULL; + const char *font_path_arg = NULL; + + int args_result = parse_args(argc, argv, &config_path, &font_path_arg); + if (args_result != 0) { + return args_result < 0 ? 1 : 0; + } + + ecex_t *ed = ecex_new(); + if (!ed) { + fprintf(stderr, "failed to create editor\n"); + return 1; + } + + if (config_path) { + if (ecex_load_c_config(ed, config_path) != 0) { + fprintf(stderr, "ecex: continuing without config\n"); + } + } + + if (!glfwInit()) { + fprintf(stderr, "failed to initialize GLFW\n"); + ecex_free(ed); + return 1; + } + + GLFWwindow *window = glfwCreateWindow( + WINDOW_WIDTH, + WINDOW_HEIGHT, + "ecex", + NULL, + NULL + ); + + if (!window) { + fprintf(stderr, "failed to create GLFW window\n"); + glfwTerminate(); + ecex_free(ed); + return 1; + } + + glfwMakeContextCurrent(window); + glfwSwapInterval(1); + + app_t app; + app_init(&app, ed); + app_set_window(&app, window); + + const char *font_path = select_font_path(ed, font_path_arg); + if (!font_path) { + fprintf(stderr, "ecex: could not find a font automatically\n"); + fprintf(stderr, "try:\n"); + fprintf(stderr, " export ECEX_FONT=/path/to/font.ttf\n"); + fprintf(stderr, " %s --font /path/to/font.ttf\n", argv[0]); + + glfwDestroyWindow(window); + glfwTerminate(); + ecex_free(ed); + return 1; + } + + if (font_load(&app.font, font_path, ed->theme.font_size) != 0) { + fprintf(stderr, "ecex: could not load font\n"); + fprintf(stderr, "try an explicit font path:\n"); + fprintf(stderr, " %s --font /path/to/font.ttf\n", argv[0]); + + glfwDestroyWindow(window); + glfwTerminate(); + ecex_free(ed); + return 1; + } + + snprintf(app.font_path, sizeof(app.font_path), "%s", font_path); + + app_install_callbacks(&app); + app_message(&app, "F1 for M-x. Tab completes commands."); + + while (!glfwWindowShouldClose(window) && !ed->should_quit) { + if (app.dirty) { + render(&app); + glfwSwapBuffers(window); + app.dirty = 0; + } + + glfwWaitEvents(); + } + + font_free(&app.font); + + glfwDestroyWindow(window); + glfwTerminate(); + + ecex_free(ed); + return 0; +} diff --git a/src/render.c b/src/render.c new file mode 100644 index 0000000..64a85f1 --- /dev/null +++ b/src/render.c @@ -0,0 +1,613 @@ +#include "render.h" + +#include "common.h" + +#include <GLFW/glfw3.h> +#include <stdio.h> +#include <stdlib.h> +#include <string.h> + +/* + * All UI measurements are derived from the active font. draw_text() uses a + * baseline y coordinate, so render.c keeps both line-top and baseline values + * explicit. This avoids the old fixed 24/28/34 pixel constants drifting when + * font size changes. + */ +typedef struct view_rect { + float x; + float y; + float w; + float h; +} view_rect_t; + +typedef struct ui_metrics { + float pad_x; + float pad_y; + + float content_x; + float content_top; + float content_bottom_pad; + + float status_h; + float minibuffer_h; + + float cursor_w; + float cursor_h; +} ui_metrics_t; + +static float ecex_maxf(float a, float b) { + return a > b ? a : b; +} + +static ui_metrics_t ui_metrics(app_t *app) { + float size = app && app->font.size_px > 1.0f ? app->font.size_px : 16.0f; + float line_h = app && app->font.line_height > 1.0f + ? app->font.line_height + : size * 1.20f; + + ui_metrics_t m; + + m.pad_x = ecex_maxf(8.0f, size * 0.75f); + m.pad_y = ecex_maxf(4.0f, size * 0.35f); + + m.content_x = m.pad_x; + m.content_top = m.pad_y; + m.content_bottom_pad = m.pad_y; + + m.status_h = line_h + m.pad_y * 2.0f; + m.minibuffer_h = line_h + m.pad_y * 2.0f; + + m.cursor_w = ecex_maxf(2.0f, size * 0.10f); + m.cursor_h = ecex_maxf(1.0f, app ? app->font.ascent_px + app->font.descent_px : size); + + return m; +} + +static float line_baseline(app_t *app, float line_top) { + float ascent = app->font.ascent_px > 1.0f + ? app->font.ascent_px + : app->font.size_px * 0.80f; + + return line_top + ascent; +} + +static void setup_2d(int width, int height) { + glViewport(0, 0, width, height); + + glMatrixMode(GL_PROJECTION); + glLoadIdentity(); + glOrtho(0, width, height, 0, -1, 1); + + glMatrixMode(GL_MODELVIEW); + glLoadIdentity(); +} + +static void draw_rect(float x, float y, float w, float h) { + glBegin(GL_QUADS); + glVertex2f(x, y); + glVertex2f(x + w, y); + glVertex2f(x + w, y + h); + glVertex2f(x, y + h); + glEnd(); +} + +static float mono_cell_width(app_t *app) { + float w = text_width(&app->font, "M"); + return w > 1.0f ? w : app->font.size_px * 0.6f; +} + +static int minibuffer_visible(app_t *app) { + return app->mode == APP_MODE_MX || + app->mode == APP_MODE_PREFIX || + app->mode == APP_MODE_PROMPT || + app->mode == APP_MODE_ISEARCH || + app->message[0] != '\0'; +} + +static size_t visible_row_count_for_rect(app_t *app, view_rect_t r) { + ui_metrics_t m = ui_metrics(app); + float usable = r.h - m.content_top - m.content_bottom_pad; + + if (usable <= app->font.line_height || app->font.line_height <= 1.0f) { + return 1; + } + + size_t rows = (size_t)(usable / app->font.line_height); + return rows ? rows : 1; +} + +static float gutter_width(app_t *app, buffer_t *buf) { + if (!app || !app->ed || !buf || !app->ed->theme.line_numbers_enabled) return 0.0f; + char tmp[32]; + snprintf(tmp, sizeof(tmp), "%zu ", buffer_line_count(buf)); + return text_width(&app->font, tmp) + ui_metrics(app).pad_x * 0.5f; +} + +static size_t visible_col_count_for_rect(app_t *app, view_rect_t r) { + ui_metrics_t m = ui_metrics(app); + float cell = mono_cell_width(app); + buffer_t *buf = ecex_current_buffer(app->ed); + float width = r.w - m.content_x * 2.0f - gutter_width(app, buf); + + if (width <= cell) return 1; + return (size_t)(width / cell); +} + +static size_t offset_for_line(buffer_t *buf, size_t target_line) { + if (!buf || target_line == 0) return 0; + + size_t line = 0; + for (size_t i = 0; i < buf->len; i++) { + if (buf->data[i] == '\n') { + line++; + if (line == target_line) { + return i + 1; + } + } + } + + return buf->len; +} + +static void ensure_cursor_visible(app_t *app, buffer_t *buf, view_rect_t rect) { + if (!app || !buf) return; + + size_t rows = visible_row_count_for_rect(app, rect); + size_t cols = visible_col_count_for_rect(app, rect); + + size_t cursor_line = buffer_current_line_number(buf); + if (cursor_line > 0) cursor_line--; + + size_t cursor_col = buffer_current_column(buf); + + if (cursor_line < buf->scroll_line) { + buf->scroll_line = cursor_line; + } else if (cursor_line >= buf->scroll_line + rows) { + buf->scroll_line = cursor_line - rows + 1; + } + + if (cursor_col < buf->scroll_col) { + buf->scroll_col = cursor_col; + } else if (cursor_col >= buf->scroll_col + cols) { + buf->scroll_col = cursor_col - cols + 1; + } +} + +static void render_status_bar(app_t *app) { + buffer_t *buf = ecex_current_buffer(app->ed); + if (!buf) return; + + ui_metrics_t m = ui_metrics(app); + float y = (float)app->height - m.status_h; + float text_x = m.pad_x; + float text_y = line_baseline(app, y + m.pad_y); + + glDisable(GL_TEXTURE_2D); + + glColor3f(app->ed->theme.status_bg.r, + app->ed->theme.status_bg.g, + app->ed->theme.status_bg.b); + draw_rect(0.0f, y, (float)app->width, m.status_h); + + glColor3f(app->ed->theme.status_border.r, + app->ed->theme.status_border.g, + app->ed->theme.status_border.b); + draw_rect(0.0f, y, (float)app->width, 1.0f); + + char status[768]; + snprintf(status, + sizeof(status), + " %s%s %s line:%zu col:%zu top:%zu size:%zu buffers:%zu windows:%zu commands:%zu%s%s", + buf->name ? buf->name : "(unnamed)", + buf->modified ? " *" : "", + ecex_buffer_major_mode_name(app->ed, buf), + buffer_current_line_number(buf), + buffer_current_column(buf), + buf->scroll_line + 1, + buf->len, + app->ed->buffer_count, + ecex_window_count(app->ed), + app->ed->command_count, + buf->path ? " " : "", + buf->path ? buf->path : ""); + + glColor3f(app->ed->theme.status_fg.r, + app->ed->theme.status_fg.g, + app->ed->theme.status_fg.b); + draw_text(&app->font, text_x, text_y, status); +} + +static void render_command_completion(app_t *app, + const char *line, + float x, + float y) { + const char *completion = ecex_complete_command(app->ed, app->minibuffer); + if (!completion || !completion[0]) return; + + size_t input_len = strlen(app->minibuffer); + if (input_len == 0) return; + + float ghost_x = x + text_width(&app->font, line); + + glColor3f(app->ed->theme.completion_fg.r, + app->ed->theme.completion_fg.g, + app->ed->theme.completion_fg.b); + + if (strncmp(completion, app->minibuffer, input_len) == 0 && + completion[input_len] != '\0') { + draw_text(&app->font, ghost_x, y, completion + input_len); + } else if (strcmp(completion, app->minibuffer) != 0) { + char hint[ECEX_MINIBUFFER_SIZE + 16]; + snprintf(hint, sizeof(hint), " -> %s", completion); + draw_text(&app->font, ghost_x, y, hint); + } +} + +static void render_minibuffer(app_t *app) { + if (!minibuffer_visible(app)) { + return; + } + + ui_metrics_t m = ui_metrics(app); + float h = m.minibuffer_h; + float y = (float)app->height - m.status_h - h; + float text_x = m.pad_x; + float text_y = line_baseline(app, y + m.pad_y); + + glDisable(GL_TEXTURE_2D); + + glColor3f(app->ed->theme.minibuffer_bg.r, + app->ed->theme.minibuffer_bg.g, + app->ed->theme.minibuffer_bg.b); + draw_rect(0.0f, y, (float)app->width, h); + + glColor3f(app->ed->theme.minibuffer_fg.r, + app->ed->theme.minibuffer_fg.g, + app->ed->theme.minibuffer_fg.b); + + if (app->mode == APP_MODE_ISEARCH) { + char line[ECEX_MINIBUFFER_SIZE + 64]; + snprintf(line, + sizeof(line), + "%s%s%s", + app->isearch_backward ? "I-search backward: " : "I-search: ", + app->isearch_query, + app->isearch_has_match || app->isearch_len == 0 ? "" : " [failing]"); + draw_text(&app->font, text_x, text_y, line); + } else if (app->mode == APP_MODE_MX) { + char line[ECEX_MINIBUFFER_SIZE + 8]; + snprintf(line, sizeof(line), "M-x %s", app->minibuffer); + + draw_text(&app->font, text_x, text_y, line); + render_command_completion(app, line, text_x, text_y); + } else if (app->mode == APP_MODE_PROMPT) { + char line[1200]; + snprintf(line, + sizeof(line), + "%s%s", + app->prompt_label, + app->prompt_input); + draw_text(&app->font, text_x, text_y, line); + + if (app->prompt_completion_active && app->prompt_completion_count > 0) { + char hint[128]; + snprintf(hint, + sizeof(hint), + " [%zu/%zu]", + app->prompt_completion_index + 1, + app->prompt_completion_count); + + glColor3f(app->ed->theme.completion_fg.r, + app->ed->theme.completion_fg.g, + app->ed->theme.completion_fg.b); + draw_text(&app->font, + text_x + text_width(&app->font, line), + text_y, + hint); + + if (app->prompt_completion_preview_count > 0) { + float row_h = app->font.line_height; + float popup_pad = m.pad_y; + float popup_h = row_h * (float)app->prompt_completion_preview_count + popup_pad * 2.0f; + float popup_y = y - popup_h; + + glDisable(GL_TEXTURE_2D); + glColor3f(app->ed->theme.minibuffer_bg.r, + app->ed->theme.minibuffer_bg.g, + app->ed->theme.minibuffer_bg.b); + draw_rect(0.0f, popup_y, (float)app->width, popup_h); + + for (size_t i = 0; i < app->prompt_completion_preview_count; i++) { + size_t absolute = app->prompt_completion_preview_start + i; + char row[1100]; + snprintf(row, + sizeof(row), + "%c %s", + absolute == app->prompt_completion_index ? '>' : ' ', + app->prompt_completion_preview[i]); + + if (absolute == app->prompt_completion_index) { + glColor3f(app->ed->theme.minibuffer_fg.r, + app->ed->theme.minibuffer_fg.g, + app->ed->theme.minibuffer_fg.b); + } else { + glColor3f(app->ed->theme.completion_fg.r, + app->ed->theme.completion_fg.g, + app->ed->theme.completion_fg.b); + } + + draw_text(&app->font, + text_x, + line_baseline(app, popup_y + popup_pad + row_h * (float)i), + row); + } + } + } + } else if (app->mode == APP_MODE_PREFIX) { + char line[ECEX_PREFIX_SIZE + 8]; + snprintf(line, sizeof(line), "%s-", app->prefix); + draw_text(&app->font, text_x, text_y, line); + } else { + draw_text(&app->font, text_x, text_y, app->message); + } +} + +static int should_highlight_interactive_line(buffer_t *buf, size_t zero_based_line) { + if (!buf || !buffer_is_interactive(buf)) return 0; + + size_t current_line = buffer_current_line_number(buf); + if (current_line > 0) current_line--; + + return current_line == zero_based_line; +} + +static void set_editor_text_color(app_t *app, int highlighted) { + if (highlighted) { + glColor3f(app->ed->theme.interactive_highlight_fg.r, + app->ed->theme.interactive_highlight_fg.g, + app->ed->theme.interactive_highlight_fg.b); + } else { + glColor3f(app->ed->theme.fg.r, + app->ed->theme.fg.g, + app->ed->theme.fg.b); + } +} + +static float text_width_range(app_t *app, buffer_t *buf, size_t start, size_t end) { + char *text = buffer_substring(buf, start, end); + if (!text) return 0.0f; + + float width = text_width(&app->font, text); + free(text); + return width; +} + +static void draw_selection_for_line(app_t *app, + buffer_t *buf, + view_rect_t rect, + size_t visible_start, + size_t line_end, + float line_top) { + if (!buffer_has_selection(buf)) return; + + size_t sel_start = 0; + size_t sel_end = 0; + buffer_selection_range(buf, &sel_start, &sel_end); + + if (sel_end <= visible_start || sel_start > line_end) return; + + size_t draw_start = ECEX_MAX(sel_start, visible_start); + size_t draw_end = ECEX_MIN(sel_end, line_end); + + float x = rect.x + ui_metrics(app).content_x + gutter_width(app, buf) + text_width_range(app, buf, visible_start, draw_start); + float w = text_width_range(app, buf, draw_start, draw_end); + + /* If the selection contains only this line's newline, show a visible sliver + * at end-of-line instead of making the active region appear to vanish. */ + if (w < 1.0f && sel_end > line_end && draw_start == line_end) { + w = mono_cell_width(app) * 0.5f; + } + + if (w < 1.0f) return; + + glDisable(GL_TEXTURE_2D); + glColor3f(app->ed->theme.region_bg.r, + app->ed->theme.region_bg.g, + app->ed->theme.region_bg.b); + draw_rect(x, line_top, w, app->font.line_height); +} + +static void draw_buffer_line(app_t *app, + buffer_t *buf, + view_rect_t rect, + size_t zero_based_line, + size_t line_start, + size_t line_end, + float line_top) { + if (line_start > line_end) return; + + ui_metrics_t m = ui_metrics(app); + int highlighted = should_highlight_interactive_line(buf, zero_based_line); + size_t current_zero = buffer_current_line_number(buf); + if (current_zero > 0) current_zero--; + + if (app->ed->theme.current_line_enabled && current_zero == zero_based_line) { + glDisable(GL_TEXTURE_2D); + glColor3f(app->ed->theme.current_line_bg.r, + app->ed->theme.current_line_bg.g, + app->ed->theme.current_line_bg.b); + draw_rect(rect.x, line_top, rect.w, app->font.line_height); + } + + if (highlighted) { + glDisable(GL_TEXTURE_2D); + glColor3f(app->ed->theme.interactive_highlight_bg.r, + app->ed->theme.interactive_highlight_bg.g, + app->ed->theme.interactive_highlight_bg.b); + draw_rect(rect.x, + line_top, + rect.w, + app->font.line_height); + } + + size_t line_len = line_end - line_start; + size_t col = ECEX_MIN(buf->scroll_col, line_len); + size_t start = line_start + col; + + draw_selection_for_line(app, buf, rect, start, line_end, line_top); + + float gutter = gutter_width(app, buf); + if (gutter > 0.0f) { + char nbuf[32]; + snprintf(nbuf, sizeof(nbuf), "%zu", zero_based_line + 1); + glColor3f(app->ed->theme.completion_fg.r, + app->ed->theme.completion_fg.g, + app->ed->theme.completion_fg.b); + draw_text(&app->font, rect.x + m.pad_x * 0.5f, line_baseline(app, line_top), nbuf); + } + + char *line = buffer_substring(buf, start, line_end); + if (!line) return; + + set_editor_text_color(app, highlighted); + draw_text(&app->font, rect.x + m.content_x + gutter, line_baseline(app, line_top), line); + free(line); +} + +static void render_cursor(app_t *app, buffer_t *buf, view_rect_t rect) { + ui_metrics_t m = ui_metrics(app); + + size_t cursor_line = buffer_current_line_number(buf); + if (cursor_line > 0) cursor_line--; + + if (cursor_line < buf->scroll_line) return; + + size_t visible_row = cursor_line - buf->scroll_line; + if (visible_row >= visible_row_count_for_rect(app, rect)) return; + + size_t line_start = buffer_current_line_start(buf); + size_t cursor_col = buffer_current_column(buf); + + size_t visible_start = line_start + ECEX_MIN(buf->scroll_col, cursor_col); + char *prefix = buffer_substring(buf, visible_start, buf->point); + float x = rect.x + m.content_x + gutter_width(app, buf) + (prefix ? text_width(&app->font, prefix) : 0.0f); + float line_top = rect.y + m.content_top + (float)visible_row * app->font.line_height; + float cursor_top = line_top + (app->font.line_height - m.cursor_h) * 0.5f; + + free(prefix); + + glDisable(GL_TEXTURE_2D); + glColor3f(app->ed->theme.cursor.r, + app->ed->theme.cursor.g, + app->ed->theme.cursor.b); + draw_rect(x, cursor_top, m.cursor_w, m.cursor_h); +} + +static void draw_window_border(app_t *app, view_rect_t rect, int active) { + glDisable(GL_TEXTURE_2D); + + if (active) { + glColor3f(app->ed->theme.cursor.r, + app->ed->theme.cursor.g, + app->ed->theme.cursor.b); + } else { + glColor3f(app->ed->theme.status_border.r, + app->ed->theme.status_border.g, + app->ed->theme.status_border.b); + } + + draw_rect(rect.x, rect.y, rect.w, 1.0f); + draw_rect(rect.x, rect.y + rect.h - 1.0f, rect.w, 1.0f); + draw_rect(rect.x, rect.y, 1.0f, rect.h); + draw_rect(rect.x + rect.w - 1.0f, rect.y, 1.0f, rect.h); +} + +static void render_buffer_window(app_t *app, ecex_window_t *win, size_t index, float editor_h) { + if (!app || !win || !win->buffer) return; + + view_rect_t rect; + rect.x = win->x * (float)app->width; + rect.y = win->y * editor_h; + rect.w = win->w * (float)app->width; + rect.h = win->h * editor_h; + + if (rect.w < 2.0f || rect.h < 2.0f) return; + + buffer_t *buf = win->buffer; + ui_metrics_t m = ui_metrics(app); + + int sx = (int)rect.x; + int sy = app->height - (int)(rect.y + rect.h); + int sw = (int)rect.w; + int sh = (int)rect.h; + if (sw < 1 || sh < 1) return; + + glEnable(GL_SCISSOR_TEST); + glScissor(sx, sy, sw, sh); + + if (index == app->ed->current_window_index) { + ensure_cursor_visible(app, buf, rect); + } + + size_t rows = visible_row_count_for_rect(app, rect); + size_t pos = offset_for_line(buf, buf->scroll_line); + float line_top = rect.y + m.content_top; + + for (size_t row = 0; row < rows; row++) { + size_t line_start = pos; + size_t line_end = buffer_line_end_at(buf, line_start); + + draw_buffer_line(app, + buf, + rect, + buf->scroll_line + row, + line_start, + line_end, + line_top); + + if (line_end >= buf->len) break; + pos = line_end + 1; + line_top += app->font.line_height; + } + + if (index == app->ed->current_window_index) { + render_cursor(app, buf, rect); + } + + glDisable(GL_SCISSOR_TEST); + draw_window_border(app, rect, index == app->ed->current_window_index); +} + +static void render_windows(app_t *app) { + ui_metrics_t m = ui_metrics(app); + float editor_h = (float)app->height - m.status_h; + if (minibuffer_visible(app)) editor_h -= m.minibuffer_h; + if (editor_h < 1.0f) editor_h = 1.0f; + + if (app->ed->window_count == 0) return; + + for (size_t i = 0; i < app->ed->window_count; i++) { + render_buffer_window(app, &app->ed->windows[i], i, editor_h); + } +} + +void render(app_t *app) { + if (!app || !app->window || !app->ed) return; + + glfwGetFramebufferSize(app->window, &app->width, &app->height); + + setup_2d(app->width, app->height); + + glClearColor(app->ed->theme.bg.r, + app->ed->theme.bg.g, + app->ed->theme.bg.b, + 1.0f); + glClear(GL_COLOR_BUFFER_BIT); + + glEnable(GL_BLEND); + glBlendFunc(GL_SRC_ALPHA, GL_ONE_MINUS_SRC_ALPHA); + + render_windows(app); + render_minibuffer(app); + render_status_bar(app); +} diff --git a/src/util.c b/src/util.c new file mode 100644 index 0000000..feb3c0e --- /dev/null +++ b/src/util.c @@ -0,0 +1,71 @@ +#include "util.h" + +#include <stdio.h> +#include <stdlib.h> + +int ecex_file_exists(const char *path) { + if (!path || !path[0]) return 0; + + FILE *file = fopen(path, "rb"); + if (!file) return 0; + + fclose(file); + return 1; +} + +char *ecex_read_entire_file(const char *path, size_t *out_size) { + FILE *file = fopen(path, "rb"); + if (!file) return NULL; + + if (fseek(file, 0, SEEK_END) != 0) { + fclose(file); + return NULL; + } + + long size = ftell(file); + if (size < 0) { + fclose(file); + return NULL; + } + + rewind(file); + + char *data = malloc((size_t)size + 1); + if (!data) { + fclose(file); + return NULL; + } + + size_t read_count = fread(data, 1, (size_t)size, file); + fclose(file); + + if (read_count != (size_t)size) { + free(data); + return NULL; + } + + data[size] = '\0'; + + if (out_size) { + *out_size = (size_t)size; + } + + return data; +} + + +char *ecex_strdup(const char *s) { + if (!s) return NULL; + + size_t len = 0; + while (s[len]) len++; + + char *out = malloc(len + 1); + if (!out) return NULL; + + for (size_t i = 0; i <= len; i++) { + out[i] = s[i]; + } + + return out; +} |
