153 lines
3.8 KiB
C
153 lines
3.8 KiB
C
/****************************************************************************
|
|
* Included Files
|
|
****************************************************************************/
|
|
|
|
#undef _POSIX_SOURCE
|
|
#define _POSIX_SOURCE 1
|
|
#undef _POSIX_C_SOURCE
|
|
#define _POSIX_C_SOURCE 2
|
|
|
|
#include "config.h"
|
|
|
|
#include <unistd.h>
|
|
#include <errno.h>
|
|
#include <fcntl.h>
|
|
#ifdef HAVE_GETTEXT
|
|
# include <libintl.h>
|
|
# define _(String) gettext(String)
|
|
#else
|
|
# define _(String) String
|
|
#endif
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
#include <stdlib.h>
|
|
|
|
#ifdef USE_DMALLOC
|
|
# include "dmalloc.h"
|
|
#endif
|
|
|
|
#include "bas.h"
|
|
|
|
/****************************************************************************
|
|
* Public Functions
|
|
****************************************************************************/
|
|
|
|
#ifdef CONFIG_BUILD_KERNEL
|
|
int main(int argc, FAR char *argv[])
|
|
#else
|
|
int bas_main(int argc, char *argv[])
|
|
#endif
|
|
{
|
|
/* variables *//* {{{ */
|
|
char *runFile = (char *)0;
|
|
int usage = 0, o;
|
|
const char *lp = "/dev/null";
|
|
int backslash_colon = 0;
|
|
int uppercase = 0;
|
|
int restricted = 0;
|
|
int lpfd;
|
|
/* }}} */
|
|
|
|
#ifdef HAVE_GETTEXT
|
|
bindtextdomain("bas", LOCALEDIR);
|
|
textdomain("bas");
|
|
#endif
|
|
/* parse arguments */
|
|
|
|
while ((o = getopt(argc, argv, ":bl:ruVh")) != EOF)
|
|
{
|
|
switch (o)
|
|
{
|
|
case 'b':
|
|
backslash_colon = 1;
|
|
break;
|
|
case 'l':
|
|
lp = optarg;
|
|
break;
|
|
case 'u':
|
|
uppercase = 1;
|
|
break;
|
|
case 'r':
|
|
restricted = 1;
|
|
break;
|
|
case 'V':
|
|
printf("bas %s\n", VERSION);
|
|
exit(0);
|
|
break;
|
|
case 'h':
|
|
usage = 2;
|
|
break;
|
|
default:
|
|
usage = 1;
|
|
break;
|
|
}
|
|
}
|
|
|
|
if (optind < argc)
|
|
{
|
|
runFile = argv[optind++];
|
|
}
|
|
|
|
if (usage == 1)
|
|
{
|
|
fputs(_("Usage: bas [-b] [-l file] [-r] [-u] [program [argument ...]]\n"),
|
|
stderr);
|
|
fputs(_(" bas [--backslash-colon] [--lp file] [--restricted] [--uppercase] [program [argument ...]]\n"),
|
|
stderr);
|
|
fputs(_(" bas -h|--help\n"), stderr);
|
|
fputs(_(" bas --version\n"), stderr);
|
|
fputs("\n", stderr);
|
|
fputs(_("Try `bas -h' or `bas --help' for more information.\n"), stderr);
|
|
exit(1);
|
|
}
|
|
|
|
if (usage == 2)
|
|
{
|
|
fputs(_("Usage: bas [-b] [-l file] [-u] [program [argument ...]]\n"),
|
|
stdout);
|
|
fputs(_(" bas [--backslash-colon] [--lp file] [--restricted] [--uppercase] [program [argument ...]]\n"),
|
|
stdout);
|
|
fputs(_(" bas -h|--help\n"), stdout);
|
|
fputs(_(" bas --version\n"), stdout);
|
|
fputs("\n", stdout);
|
|
fputs(_("BASIC interpreter.\n"), stdout);
|
|
fputs("\n", stdout);
|
|
fputs(_("-b, --backslash-colon convert backslashs to colons\n"), stdout);
|
|
fputs(_("-l, --lp write LPRINT output to file\n"), stdout);
|
|
fputs(_("-r, --restricted forbid SHELL\n"), stdout);
|
|
fputs(_("-u, --uppercase output all tokens in uppercase\n"),
|
|
stdout);
|
|
fputs(_("-h, --help display this help and exit\n"), stdout);
|
|
fputs(_(" --version output version information and exit\n"),
|
|
stdout);
|
|
fputs("\n", stdout);
|
|
fputs(_("Report bugs to <michael@moria.de>.\n"), stdout);
|
|
exit(0);
|
|
}
|
|
|
|
if ((lpfd = open(lp, O_WRONLY | O_CREAT | O_TRUNC, 0666)) == -1)
|
|
{
|
|
fprintf(stderr,
|
|
_("bas: Opening `%s' for line printer output failed (%s).\n"), lp,
|
|
strerror(errno));
|
|
exit(2);
|
|
}
|
|
|
|
bas_argc = argc - optind;
|
|
bas_argv = &argv[optind];
|
|
bas_argv0 = runFile;
|
|
|
|
bas_init(backslash_colon, restricted, uppercase, lpfd);
|
|
if (runFile)
|
|
{
|
|
bas_runFile(runFile);
|
|
}
|
|
else
|
|
{
|
|
bas_interpreter();
|
|
}
|
|
|
|
bas_exit();
|
|
return (0);
|
|
}
|