83 lines
1.8 KiB
C
83 lines
1.8 KiB
C
|
#include "picoc.h"
|
||
|
|
|
||
|
|
/* a source file we need to clean up */
|
||
|
|
static char *CleanupText = NULL;
|
||
|
|
|
||
|
|
/* deallocate any storage */
|
||
|
|
void PlatformCleanup()
|
||
|
|
{
|
||
|
|
if (CleanupText != NULL)
|
||
|
|
HeapFree(CleanupText);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* get a line of interactive input */
|
||
|
|
char *PlatformGetLine(char *Buf, int MaxLen)
|
||
|
|
{
|
||
|
|
fflush(stdout);
|
||
|
|
return fgets(Buf, MaxLen, stdin);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* write a character to the console */
|
||
|
|
void PlatformPutc(unsigned char OutCh)
|
||
|
|
{
|
||
|
|
putchar(OutCh);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* read a file into memory */
|
||
|
|
char *PlatformReadFile(const char *FileName)
|
||
|
|
{
|
||
|
|
struct stat FileInfo;
|
||
|
|
char *ReadText;
|
||
|
|
FILE *InFile;
|
||
|
|
int BytesRead;
|
||
|
|
|
||
|
|
if (stat(FileName, &FileInfo))
|
||
|
|
ProgramFail(NULL, "can't read file %s\n", FileName);
|
||
|
|
|
||
|
|
ReadText = malloc(FileInfo.st_size + 1);
|
||
|
|
if (ReadText == NULL)
|
||
|
|
ProgramFail(NULL, "out of memory\n");
|
||
|
|
|
||
|
|
InFile = fopen(FileName, "r");
|
||
|
|
if (InFile == NULL)
|
||
|
|
ProgramFail(NULL, "can't read file %s\n", FileName);
|
||
|
|
|
||
|
|
BytesRead = fread(ReadText, 1, FileInfo.st_size, InFile);
|
||
|
|
if (BytesRead == 0)
|
||
|
|
ProgramFail(NULL, "can't read file %s\n", FileName);
|
||
|
|
|
||
|
|
ReadText[BytesRead] = '\0';
|
||
|
|
fclose(InFile);
|
||
|
|
|
||
|
|
return ReadText;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* read and scan a file for definitions */
|
||
|
|
void PlatformScanFile(const char *FileName)
|
||
|
|
{
|
||
|
|
char *SourceStr = PlatformReadFile(FileName);
|
||
|
|
char *OrigCleanupText = CleanupText;
|
||
|
|
if (CleanupText == NULL)
|
||
|
|
CleanupText = SourceStr;
|
||
|
|
|
||
|
|
Parse(FileName, SourceStr, strlen(SourceStr), TRUE);
|
||
|
|
free(SourceStr);
|
||
|
|
|
||
|
|
if (OrigCleanupText == NULL)
|
||
|
|
CleanupText = NULL;
|
||
|
|
}
|
||
|
|
|
||
|
|
/* mark where to end the program for platforms which require this */
|
||
|
|
static jmp_buf ExitBuf;
|
||
|
|
int PlatformSetExitPoint()
|
||
|
|
{
|
||
|
|
return setjmp(ExitBuf);
|
||
|
|
}
|
||
|
|
|
||
|
|
/* exit the program */
|
||
|
|
void PlatformExit()
|
||
|
|
{
|
||
|
|
longjmp(ExitBuf, 1);
|
||
|
|
}
|
||
|
|
|