Revision 69ff297d9661f28f560f62b2a84129fd8d1e3025 authored by a1ex on 03 May 2014, 10:41:54 UTC, committed by a1ex on 03 May 2014, 10:41:54 UTC
1 parent f29bd20
picoc.c
/* include only picoc.h here - should be able to use it with only the external interfaces, no internals from interpreter.h */
#include "picoc.h"
/* platform-dependent code for running programs is in this file */
#ifdef UNIX_HOST
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#define PICOC_STACK_SIZE (128*1024) /* space for the the stack */
int main(int argc, char **argv)
{
int ParamCount = 1;
int DontRunMain = FALSE;
int StackSize = getenv("STACKSIZE") ? atoi(getenv("STACKSIZE")) : PICOC_STACK_SIZE;
if (argc < 2)
{
printf("Format: picoc <csource1.c>... [- <arg1>...] : run a program (calls main() to start it)\n"
" picoc -s <csource1.c>... [- <arg1>...] : script mode - runs the program without calling main()\n"
" picoc -i : interactive mode\n");
exit(1);
}
PicocInitialise(StackSize);
if (strcmp(argv[ParamCount], "-s") == 0 || strcmp(argv[ParamCount], "-m") == 0)
{
DontRunMain = TRUE;
PicocIncludeAllSystemHeaders();
ParamCount++;
}
if (argc > ParamCount && strcmp(argv[ParamCount], "-i") == 0)
{
PicocIncludeAllSystemHeaders();
PicocParseInteractive();
}
else
{
if (PicocPlatformSetExitPoint())
{
PicocCleanup();
return PicocExitValue;
}
for (; ParamCount < argc && strcmp(argv[ParamCount], "-") != 0; ParamCount++)
PicocPlatformScanFile(argv[ParamCount]);
if (!DontRunMain)
PicocCallMain(argc - ParamCount, &argv[ParamCount]);
}
PicocCleanup();
return PicocExitValue;
}
#else
# ifdef SURVEYOR_HOST
# define HEAP_SIZE C_HEAPSIZE
# include <setjmp.h>
# include "../srv.h"
# include "../print.h"
# include "../string.h"
int picoc(char *SourceStr)
{
char *pos;
PicocInitialise(HEAP_SIZE);
if (SourceStr)
{
for (pos = SourceStr; *pos != 0; pos++)
{
if (*pos == 0x1a)
{
*pos = 0x20;
}
}
}
PicocExitBuf[40] = 0;
setjmp(PicocExitBuf);
if (PicocExitBuf[40]) {
printf("Leaving PicoC\n\r");
PicocCleanup();
return PicocExitValue;
}
if (SourceStr)
PicocParse("nofile", SourceStr, strlen(SourceStr), TRUE, TRUE, FALSE);
PicocParseInteractive();
PicocCleanup();
return PicocExitValue;
}
# endif
#endif
![swh spinner](/static/img/swh-spinner.gif)
Computing file changes ...