From 0d6bd3bbae6b60a3f16d2a831f063cfd4cd1bdfe Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Fri, 5 Dec 2014 08:47:22 +0100 Subject: mds-kbdc: misc MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- src/mds-kbdc/functions.c | 293 ----------------------------------------------- 1 file changed, 293 deletions(-) delete mode 100644 src/mds-kbdc/functions.c (limited to 'src/mds-kbdc/functions.c') diff --git a/src/mds-kbdc/functions.c b/src/mds-kbdc/functions.c deleted file mode 100644 index 33fa70d..0000000 --- a/src/mds-kbdc/functions.c +++ /dev/null @@ -1,293 +0,0 @@ -/** - * mds — A micro-display server - * Copyright © 2014 Mattias Andrée (maandree@member.fsf.org) - * - * This program is free software: you can redistribute it and/or modify - * it under the terms of the GNU General Public License as published by - * the Free Software Foundation, either version 3 of the License, or - * (at your option) any later version. - * - * This program is distributed in the hope that it will be useful, - * but WITHOUT ANY WARRANTY; without even the implied warranty of - * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - * GNU General Public License for more details. - * - * You should have received a copy of the GNU General Public License - * along with this program. If not, see . - */ -#include "functions.h" - -#include - - - -/** - * Define useful data for built-in function with 2 parameters. - */ -#define define_2 \ - const char32_t* restrict a = va_arg(args, const char32_t*); \ - const char32_t* restrict b = va_arg(args, const char32_t*); \ - size_t an = string_length(a); \ - size_t bn = string_length(b); \ - size_t i, n = an > bn ? an : bn; \ - char32_t* restrict rc = malloc((n + 1) * sizeof(char32_t)); \ - if (rc == NULL) \ - return NULL; \ - rc[n] = -1 - -/** - * Define useful data for built-in function with 1 parameter. - */ -#define define_1 \ - const char32_t* restrict a = va_arg(args, const char32_t*); \ - size_t i, n = string_length(a); \ - char32_t* restrict rc = malloc((n + 1) * sizeof(char32_t)); \ - if (rc == NULL) \ - return NULL; \ - rc[n] = -1 - - -/** - * Definition of the built-in function add/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_add_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] + b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function sub/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_sub_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] - b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function mul/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_mul_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] * b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function div/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_div_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] / b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function mod/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_mod_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] % b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function rsh/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_rsh_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] << b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function lsh/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_lsh_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] >> b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function or/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_or_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] | b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function and/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_and_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] & b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function xor/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_xor_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] ^ b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function not/1. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_not_1(va_list args) -{ - define_1; - for (i = 0; i < n; i++) - rc[i] = !a[i]; - return rc; -} - - -/** - * Definition of the built-in function equals/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_equals_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] == b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function greater/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_greater_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] > b[i % bn]; - return rc; -} - - -/** - * Definition of the built-in function less/2. - * - * @param args The arguments passed to the function. - * @return The return value of the function, `NULL` on error. - */ -static char32_t* function_builtin_less_2(va_list args) -{ - define_2; - for (i = 0; i < n; i++) - rc[i] = a[i % an] < b[i % bn]; - return rc; -} - - -/* static char32_t* function_builtin_set_3(va_list args); (variable index value) */ -/* static char32_t* function_builtin_get_2(va_list args); (variable index) */ - - -#undef define_1 -#undef define_2 - - -/** - * Check whether a function is defined. - * - * @param name The name of the function. - * @param arg_count The number of arguments to pass to the function. - * @return Whether the function is defined for the selected number of arguments. - */ -int function_check_defined(const char32_t* restrict name, size_t arg_count) -{ - return 0; /* TODO */ -} - - -/** - * Invoke a function defined in the keyboard layout source code, or that is builtin. - * - * @param name The name of the function. - * @param arg_count The number of arguments to pass to the function. - * @param ...:char32_t* The arguments to pass, do not end with a sentinel. - * @return The return value of the function, `NULL` on error. - */ -char32_t* function_invoke(const char32_t* restrict name, size_t arg_count, ...) -{ - return NULL; /* TODO */ -} - -- cgit v1.2.3-70-g09d2