1/* -*- buffer-read-only: t -*- vi: set ro: 2 * 3 * DO NOT EDIT THIS FILE (expr.ini) 4 * 5 * It has been AutoGen-ed 6 * From the definitions expr.def 7 * and the template file snarf.tpl 8 * 9 * Copyright (C) 1992-2018 Bruce Korb - all rights reserved 10 * 11 * AutoGen is free software: you can redistribute it and/or modify it 12 * under the terms of the GNU General Public License as published by the 13 * Free Software Foundation, either version 3 of the License, or 14 * (at your option) any later version. 15 * 16 * AutoGen is distributed in the hope that it will be useful, but 17 * WITHOUT ANY WARRANTY; without even the implied warranty of 18 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. 19 * See the GNU General Public License for more details. 20 * 21 * You should have received a copy of the GNU General Public License along 22 * with this program. If not, see <http://www.gnu.org/licenses/>. 23 */ 24/** \file expr.ini 25 * 26 * Guile Initializations - autogen Global Variables 27 * 28 * @addtogroup autogen 29 * @{ 30 */ 31#include "expr.h" 32typedef SCM (*scm_callback_t)(void); 33void ag_init(void); 34 35#if GUILE_VERSION >= 108000 36#define NEW_PROC(_As, _Ar, _Ao, _Ax, _An) \ 37 scm_c_define_gsubr((char *)(_As), \ 38 _Ar, _Ao, _Ax, (scm_callback_t)VOIDP(ag_scm_ ## _An)) 39#else 40#define NEW_PROC(_As, _Ar, _Ao, _Ax, _An) \ 41 gh_new_procedure((char *)(_As), (scm_callback_t)VOIDP(ag_scm_ ## _An), \ 42 _Ar, _Ao, _Ax) 43#endif 44 45/** 46 * autogen Initialization procedure. 47 */ 48void 49ag_init(void) 50{ 51static char const g_nm[1119] = 52/* 0 */ "ag-fprintf\0" 53/* 11 */ "ag-function?\0" 54/* 24 */ "agpl\0" 55/* 29 */ "base-name\0" 56/* 39 */ "bsd\0" 57/* 43 */ "c-string\0" 58/* 52 */ "chdir\0" 59/* 58 */ "count\0" 60/* 64 */ "def-file\0" 61/* 73 */ "def-file-line\0" 62/* 87 */ "dne\0" 63/* 91 */ "emit\0" 64/* 96 */ "error\0" 65/* 102 */ "error-source-line\0" 66/* 120 */ "exist?\0" 67/* 127 */ "extract\0" 68/* 135 */ "find-file\0" 69/* 145 */ "first-for?\0" 70/* 156 */ "for-by\0" 71/* 163 */ "for-from\0" 72/* 172 */ "for-index\0" 73/* 182 */ "for-sep\0" 74/* 190 */ "for-to\0" 75/* 197 */ "format-arg-count\0" 76/* 214 */ "found-for?\0" 77/* 225 */ "fprintf\0" 78/* 233 */ "get\0" 79/* 237 */ "get-c-name\0" 80/* 248 */ "get-down-name\0" 81/* 262 */ "get-up-name\0" 82/* 274 */ "gperf\0" 83/* 280 */ "gpl\0" 84/* 284 */ "hide-email\0" 85/* 295 */ "high-lim\0" 86/* 304 */ "in?\0" 87/* 308 */ "insert-file\0" 88/* 320 */ "join\0" 89/* 325 */ "kr-string\0" 90/* 335 */ "last-for?\0" 91/* 345 */ "len\0" 92/* 349 */ "lgpl\0" 93/* 354 */ "license\0" 94/* 362 */ "license-description\0" 95/* 382 */ "license-full\0" 96/* 395 */ "license-info\0" 97/* 408 */ "license-name\0" 98/* 421 */ "low-lim\0" 99/* 429 */ "make-gperf\0" 100/* 440 */ "make-header-guard\0" 101/* 458 */ "make-tmp-dir\0" 102/* 471 */ "makefile-script\0" 103/* 487 */ "match-value?\0" 104/* 500 */ "max\0" 105/* 504 */ "max-file-time\0" 106/* 518 */ "min\0" 107/* 522 */ "mk-gettextable\0" 108/* 537 */ "out-delete\0" 109/* 548 */ "out-depth\0" 110/* 558 */ "out-emit-suspended\0" 111/* 577 */ "out-line\0" 112/* 586 */ "out-move\0" 113/* 595 */ "out-name\0" 114/* 604 */ "out-pop\0" 115/* 612 */ "out-push-add\0" 116/* 625 */ "out-push-new\0" 117/* 638 */ "out-resume\0" 118/* 649 */ "out-suspend\0" 119/* 661 */ "out-switch\0" 120/* 672 */ "output-file-next-line\0" 121/* 694 */ "prefix\0" 122/* 701 */ "printf\0" 123/* 708 */ "raw-shell-str\0" 124/* 722 */ "set-option\0" 125/* 733 */ "set-writable\0" 126/* 746 */ "shell\0" 127/* 752 */ "shell-str\0" 128/* 762 */ "shellf\0" 129/* 769 */ "sprintf\0" 130/* 777 */ "stack\0" 131/* 783 */ "string-capitalize\0" 132/* 801 */ "string-capitalize!\0" 133/* 820 */ "*=*\0" 134/* 824 */ "*==*\0" 135/* 829 */ "string-downcase\0" 136/* 845 */ "string-downcase!\0" 137/* 862 */ "*~\0" 138/* 865 */ "*~~\0" 139/* 869 */ "*=\0" 140/* 872 */ "*==\0" 141/* 876 */ "==\0" 142/* 879 */ "~\0" 143/* 881 */ "=\0" 144/* 883 */ "*~*\0" 145/* 887 */ "*~~*\0" 146/* 892 */ "~~\0" 147/* 895 */ "~*\0" 148/* 898 */ "~~*\0" 149/* 902 */ "=*\0" 150/* 905 */ "==*\0" 151/* 909 */ "string-substitute\0" 152/* 927 */ "string->c-name!\0" 153/* 943 */ "string->camelcase\0" 154/* 961 */ "string-tr\0" 155/* 971 */ "string-tr!\0" 156/* 982 */ "string-upcase\0" 157/* 996 */ "string-upcase!\0" 158/* 1011 */ "sub-shell-str\0" 159/* 1025 */ "suffix\0" 160/* 1032 */ "sum\0" 161/* 1036 */ "time-string->number\0" 162/* 1056 */ "tpl-file\0" 163/* 1065 */ "tpl-file-line\0" 164/* 1079 */ "tpl-file-next-line\0" 165/* 1098 */ "version-compare\0" 166/* 1114 */ "warn"; 167 168 NEW_PROC(g_nm + 0, 2, 0, 1, ag_fprintf); 169 NEW_PROC(g_nm + 11, 1, 0, 0, ag_function_p); 170 NEW_PROC(g_nm + 24, 2, 0, 0, agpl); 171 NEW_PROC(g_nm + 29, 0, 0, 0, base_name); 172 NEW_PROC(g_nm + 39, 3, 0, 0, bsd); 173 NEW_PROC(g_nm + 43, 1, 0, 0, c_string); 174 NEW_PROC(g_nm + 52, 1, 0, 0, chdir); 175 NEW_PROC(g_nm + 58, 1, 0, 0, count); 176 NEW_PROC(g_nm + 64, 0, 0, 0, def_file); 177 NEW_PROC(g_nm + 73, 1, 1, 0, def_file_line); 178 NEW_PROC(g_nm + 87, 1, 2, 0, dne); 179 NEW_PROC(g_nm + 91, 0, 0, 1, emit); 180 NEW_PROC(g_nm + 96, 1, 0, 0, error); 181 NEW_PROC(g_nm + 102, 0, 0, 0, error_source_line); 182 NEW_PROC(g_nm + 120, 1, 0, 0, exist_p); 183 NEW_PROC(g_nm + 127, 2, 2, 0, extract); 184 NEW_PROC(g_nm + 135, 1, 1, 0, find_file); 185 NEW_PROC(g_nm + 145, 0, 1, 0, first_for_p); 186 NEW_PROC(g_nm + 156, 1, 0, 0, for_by); 187 NEW_PROC(g_nm + 163, 1, 0, 0, for_from); 188 NEW_PROC(g_nm + 172, 0, 1, 0, for_index); 189 NEW_PROC(g_nm + 182, 1, 0, 0, for_sep); 190 NEW_PROC(g_nm + 190, 1, 0, 0, for_to); 191 NEW_PROC(g_nm + 197, 1, 0, 0, format_arg_count); 192 NEW_PROC(g_nm + 214, 0, 1, 0, found_for_p); 193 NEW_PROC(g_nm + 225, 2, 0, 1, fprintf); 194 NEW_PROC(g_nm + 233, 1, 1, 0, get); 195 NEW_PROC(g_nm + 237, 1, 0, 0, get_c_name); 196 NEW_PROC(g_nm + 248, 1, 0, 0, get_down_name); 197 NEW_PROC(g_nm + 262, 1, 0, 0, get_up_name); 198 NEW_PROC(g_nm + 274, 2, 0, 0, gperf); 199 NEW_PROC(g_nm + 280, 2, 0, 0, gpl); 200 NEW_PROC(g_nm + 284, 2, 0, 0, hide_email); 201 NEW_PROC(g_nm + 295, 1, 0, 0, high_lim); 202 NEW_PROC(g_nm + 304, 1, 0, 1, in_p); 203 NEW_PROC(g_nm + 308, 0, 0, 1, insert_file); 204 NEW_PROC(g_nm + 320, 1, 0, 1, join); 205 NEW_PROC(g_nm + 325, 1, 0, 0, kr_string); 206 NEW_PROC(g_nm + 335, 0, 1, 0, last_for_p); 207 NEW_PROC(g_nm + 345, 1, 0, 0, len); 208 NEW_PROC(g_nm + 349, 3, 0, 0, lgpl); 209 NEW_PROC(g_nm + 354, 4, 0, 0, license); 210 NEW_PROC(g_nm + 362, 3, 1, 0, license_description); 211 NEW_PROC(g_nm + 382, 3, 2, 0, license_full); 212 NEW_PROC(g_nm + 395, 3, 2, 0, license_info); 213 NEW_PROC(g_nm + 408, 1, 0, 0, license_name); 214 NEW_PROC(g_nm + 421, 1, 0, 0, low_lim); 215 NEW_PROC(g_nm + 429, 1, 0, 1, make_gperf); 216 NEW_PROC(g_nm + 440, 1, 0, 0, make_header_guard); 217 NEW_PROC(g_nm + 458, 0, 0, 0, make_tmp_dir); 218 NEW_PROC(g_nm + 471, 1, 0, 0, makefile_script); 219 NEW_PROC(g_nm + 487, 3, 0, 0, match_value_p); 220 NEW_PROC(g_nm + 500, 0, 0, 1, max); 221 NEW_PROC(g_nm + 504, 0, 0, 0, max_file_time); 222 NEW_PROC(g_nm + 518, 0, 0, 1, min); 223 NEW_PROC(g_nm + 522, 1, 0, 0, mk_gettextable); 224 NEW_PROC(g_nm + 537, 0, 0, 0, out_delete); 225 NEW_PROC(g_nm + 548, 0, 0, 0, out_depth); 226 NEW_PROC(g_nm + 558, 1, 0, 0, out_emit_suspended); 227 NEW_PROC(g_nm + 577, 0, 0, 0, out_line); 228 NEW_PROC(g_nm + 586, 1, 0, 0, out_move); 229 NEW_PROC(g_nm + 595, 0, 0, 0, out_name); 230 NEW_PROC(g_nm + 604, 0, 1, 0, out_pop); 231 NEW_PROC(g_nm + 612, 1, 0, 0, out_push_add); 232 NEW_PROC(g_nm + 625, 0, 1, 0, out_push_new); 233 NEW_PROC(g_nm + 638, 1, 0, 0, out_resume); 234 NEW_PROC(g_nm + 649, 1, 0, 0, out_suspend); 235 NEW_PROC(g_nm + 661, 1, 0, 0, out_switch); 236 NEW_PROC(g_nm + 672, 0, 2, 0, output_file_next_line); 237 NEW_PROC(g_nm + 694, 2, 0, 0, prefix); 238 NEW_PROC(g_nm + 701, 1, 0, 1, printf); 239 NEW_PROC(g_nm + 708, 1, 0, 0, raw_shell_str); 240 NEW_PROC(g_nm + 722, 1, 0, 0, set_option); 241 NEW_PROC(g_nm + 733, 0, 1, 0, set_writable); 242 NEW_PROC(g_nm + 746, 0, 0, 1, shell); 243 NEW_PROC(g_nm + 752, 1, 0, 0, shell_str); 244 NEW_PROC(g_nm + 762, 1, 0, 1, shellf); 245 NEW_PROC(g_nm + 769, 1, 0, 1, sprintf); 246 NEW_PROC(g_nm + 777, 1, 0, 0, stack); 247 NEW_PROC(g_nm + 783, 1, 0, 0, string_capitalize); 248 NEW_PROC(g_nm + 801, 1, 0, 0, string_capitalize_x); 249 NEW_PROC(g_nm + 820, 2, 0, 0, string_contains_eqv_p); 250 NEW_PROC(g_nm + 824, 2, 0, 0, string_contains_p); 251 NEW_PROC(g_nm + 829, 1, 0, 0, string_downcase); 252 NEW_PROC(g_nm + 845, 1, 0, 0, string_downcase_x); 253 NEW_PROC(g_nm + 862, 2, 0, 0, string_end_eqv_match_p); 254 NEW_PROC(g_nm + 865, 2, 0, 0, string_end_match_p); 255 NEW_PROC(g_nm + 869, 2, 0, 0, string_ends_eqv_p); 256 NEW_PROC(g_nm + 872, 2, 0, 0, string_ends_with_p); 257 NEW_PROC(g_nm + 876, 2, 0, 0, string_equals_p); 258 NEW_PROC(g_nm + 879, 2, 0, 0, string_eqv_match_p); 259 NEW_PROC(g_nm + 881, 2, 0, 0, string_eqv_p); 260 NEW_PROC(g_nm + 883, 2, 0, 0, string_has_eqv_match_p); 261 NEW_PROC(g_nm + 887, 2, 0, 0, string_has_match_p); 262 NEW_PROC(g_nm + 892, 2, 0, 0, string_match_p); 263 NEW_PROC(g_nm + 895, 2, 0, 0, string_start_eqv_match_p); 264 NEW_PROC(g_nm + 898, 2, 0, 0, string_start_match_p); 265 NEW_PROC(g_nm + 902, 2, 0, 0, string_starts_eqv_p); 266 NEW_PROC(g_nm + 905, 2, 0, 0, string_starts_with_p); 267 NEW_PROC(g_nm + 909, 3, 0, 0, string_substitute); 268 NEW_PROC(g_nm + 927, 1, 0, 0, string_to_c_name_x); 269 NEW_PROC(g_nm + 943, 1, 0, 0, string_to_camelcase); 270 NEW_PROC(g_nm + 961, 3, 0, 0, string_tr); 271 NEW_PROC(g_nm + 971, 3, 0, 0, string_tr_x); 272 NEW_PROC(g_nm + 982, 1, 0, 0, string_upcase); 273 NEW_PROC(g_nm + 996, 1, 0, 0, string_upcase_x); 274 NEW_PROC(g_nm +1011, 1, 0, 0, sub_shell_str); 275 NEW_PROC(g_nm +1025, 0, 0, 0, suffix); 276 NEW_PROC(g_nm +1032, 0, 0, 1, sum); 277 NEW_PROC(g_nm +1036, 1, 0, 0, time_string_to_number); 278 NEW_PROC(g_nm +1056, 0, 1, 0, tpl_file); 279 NEW_PROC(g_nm +1065, 0, 1, 0, tpl_file_line); 280 NEW_PROC(g_nm +1079, 0, 1, 0, tpl_file_next_line); 281 NEW_PROC(g_nm +1098, 3, 0, 0, version_compare); 282 NEW_PROC(g_nm +1114, 1, 0, 0, warn); 283} 284#undef NEW_PROC 285/** @} */ 286/* end of expr.ini */ 287