contrib/bc/src/main.c

   1 /*
   2  * *****************************************************************************
   3  *
   4  * SPDX-License-Identifier: BSD-2-Clause
   5  *
   6  * Copyright (c) 2018-2020 Gavin D. Howard and contributors.
   7  *
   8  * Redistribution and use in source and binary forms, with or without
   9  * modification, are permitted provided that the following conditions are met:
  10  *
  11  * * Redistributions of source code must retain the above copyright notice, this
  12  *   list of conditions and the following disclaimer.
  13  *
  14  * * Redistributions in binary form must reproduce the above copyright notice,
  15  *   this list of conditions and the following disclaimer in the documentation
  16  *   and/or other materials provided with the distribution.
  17  *
  18  * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
  19  * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  20  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  21  * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE
  22  * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
  23  * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
  24  * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
  25  * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
  26  * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
  27  * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
  28  * POSSIBILITY OF SUCH DAMAGE.
  29  *
  30  * *****************************************************************************
  31  *
  32  * The entry point for bc.
  33  *
  34  */
  35
  36 #include <assert.h>
  37 #include <stdlib.h>
  38 #include <string.h>
  39
  40 #include <locale.h>
  41 #include <libgen.h>
  42
  43 #include <setjmp.h>
  44
  45 #include <status.h>
  46 #include <vm.h>
  47 #include <bc.h>
  48 #include <dc.h>
  49
  50 int main(int argc, char *argv[]) {
  51
  52         int s;
  53         char *name;
  54         size_t len = strlen(BC_EXECPREFIX);
  55
  56         vm.locale = setlocale(LC_ALL, "");
  57
  58         name = strrchr(argv[0], '/');
  59         vm.name = (name == NULL) ? argv[0] : name + 1;
  60
  61         if (strlen(vm.name) > len) vm.name += len;
  62
  63         BC_SIG_LOCK;
  64
  65         bc_vec_init(&vm.jmp_bufs, sizeof(sigjmp_buf), NULL);
  66
  67         BC_SETJMP_LOCKED(exit);
  68
  69 #if !DC_ENABLED
  70         bc_main(argc, argv);
  71 #elif !BC_ENABLED
  72         dc_main(argc, argv);
  73 #else
  74         if (BC_IS_BC) bc_main(argc, argv);
  75         else dc_main(argc, argv);
  76 #endif
  77
  78 exit:
  79         BC_SIG_MAYLOCK;
  80
  81         s = !BC_STATUS_IS_ERROR(vm.status) ? BC_STATUS_SUCCESS : (int) vm.status;
  82
  83         bc_vm_shutdown();
  84
  85 #ifndef NDEBUG
  86         bc_vec_free(&vm.jmp_bufs);
  87 #endif // NDEBUG
  88
  89         return s;
  90 }