1252884aeSStefan Eßer /* 2252884aeSStefan Eßer * ***************************************************************************** 3252884aeSStefan Eßer * 43aa99676SStefan Eßer * SPDX-License-Identifier: BSD-2-Clause 5252884aeSStefan Eßer * 610328f8bSStefan Eßer * Copyright (c) 2018-2021 Gavin D. Howard and contributors. 7252884aeSStefan Eßer * 8252884aeSStefan Eßer * Redistribution and use in source and binary forms, with or without 9252884aeSStefan Eßer * modification, are permitted provided that the following conditions are met: 10252884aeSStefan Eßer * 11252884aeSStefan Eßer * * Redistributions of source code must retain the above copyright notice, this 12252884aeSStefan Eßer * list of conditions and the following disclaimer. 13252884aeSStefan Eßer * 14252884aeSStefan Eßer * * Redistributions in binary form must reproduce the above copyright notice, 15252884aeSStefan Eßer * this list of conditions and the following disclaimer in the documentation 16252884aeSStefan Eßer * and/or other materials provided with the distribution. 17252884aeSStefan Eßer * 18252884aeSStefan Eßer * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" 19252884aeSStefan Eßer * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 20252884aeSStefan Eßer * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 21252884aeSStefan Eßer * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE 22252884aeSStefan Eßer * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR 23252884aeSStefan Eßer * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF 24252884aeSStefan Eßer * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS 25252884aeSStefan Eßer * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN 26252884aeSStefan Eßer * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) 27252884aeSStefan Eßer * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE 28252884aeSStefan Eßer * POSSIBILITY OF SUCH DAMAGE. 29252884aeSStefan Eßer * 30252884aeSStefan Eßer * ***************************************************************************** 31252884aeSStefan Eßer * 32252884aeSStefan Eßer * The entry point for bc. 33252884aeSStefan Eßer * 34252884aeSStefan Eßer */ 35252884aeSStefan Eßer 36252884aeSStefan Eßer #include <assert.h> 37252884aeSStefan Eßer #include <stdlib.h> 38252884aeSStefan Eßer #include <string.h> 39252884aeSStefan Eßer 40252884aeSStefan Eßer #include <locale.h> 41*7e5c51e5SStefan Eßer 42*7e5c51e5SStefan Eßer #ifndef _WIN32 43252884aeSStefan Eßer #include <libgen.h> 44*7e5c51e5SStefan Eßer #endif // _WIN32 45252884aeSStefan Eßer 46252884aeSStefan Eßer #include <setjmp.h> 47252884aeSStefan Eßer 48*7e5c51e5SStefan Eßer #include <version.h> 49252884aeSStefan Eßer #include <status.h> 50252884aeSStefan Eßer #include <vm.h> 51252884aeSStefan Eßer #include <bc.h> 52252884aeSStefan Eßer #include <dc.h> 53252884aeSStefan Eßer 54252884aeSStefan Eßer int main(int argc, char *argv[]) { 55252884aeSStefan Eßer 56252884aeSStefan Eßer char *name; 57252884aeSStefan Eßer size_t len = strlen(BC_EXECPREFIX); 58252884aeSStefan Eßer 59252884aeSStefan Eßer vm.locale = setlocale(LC_ALL, ""); 60252884aeSStefan Eßer 61*7e5c51e5SStefan Eßer name = strrchr(argv[0], BC_FILE_SEP); 62252884aeSStefan Eßer vm.name = (name == NULL) ? argv[0] : name + 1; 63252884aeSStefan Eßer 64252884aeSStefan Eßer if (strlen(vm.name) > len) vm.name += len; 65252884aeSStefan Eßer 66252884aeSStefan Eßer BC_SIG_LOCK; 67252884aeSStefan Eßer 68252884aeSStefan Eßer bc_vec_init(&vm.jmp_bufs, sizeof(sigjmp_buf), NULL); 69252884aeSStefan Eßer 70252884aeSStefan Eßer BC_SETJMP_LOCKED(exit); 71252884aeSStefan Eßer 72252884aeSStefan Eßer #if !DC_ENABLED 73252884aeSStefan Eßer bc_main(argc, argv); 74252884aeSStefan Eßer #elif !BC_ENABLED 75252884aeSStefan Eßer dc_main(argc, argv); 76252884aeSStefan Eßer #else 77252884aeSStefan Eßer if (BC_IS_BC) bc_main(argc, argv); 78252884aeSStefan Eßer else dc_main(argc, argv); 79252884aeSStefan Eßer #endif 80252884aeSStefan Eßer 81252884aeSStefan Eßer exit: 82252884aeSStefan Eßer BC_SIG_MAYLOCK; 83252884aeSStefan Eßer 8410328f8bSStefan Eßer return bc_vm_atexit((int) vm.status); 85252884aeSStefan Eßer } 86