gered/picoc
1
0
Fork 0
Code Issues Pull requests Packages Projects Releases Wiki Activity

Patch for msvc submitted by kevingarceau

Browse source 
Issue #174


git-svn-id: http://picoc.googlecode.com/svn/trunk@586 21eae674-98b7-11dd-bd71-f92a316d2d60
This commit is contained in:
zik.saleeba 2013-02-23 23:09:32 +00:00
parent 62fc9d4f9f
commit 3350152693
1 changed files with 22 additions and 14 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

36
platform/platform_msvc.c
View file

@ -4,11 +4,11 @@
/* mark where to end the program for platforms which require this */ /* mark where to end the program for platforms which require this */
jmp_buf PicocExitBuf; jmp_buf PicocExitBuf;
void PlatformInit() void PlatformInit(Picoc *pc)
{ {
} }
void PlatformCleanup() void PlatformCleanup(Picoc *pc)
{ {
} }
@ -36,45 +36,53 @@ void PlatformPutc(unsigned char OutCh, union OutputStreamInfo *Stream)
} }
/* read a file into memory */ /* read a file into memory */
char *PlatformReadFile(const char *FileName) char *PlatformReadFile(Picoc *pc, const char *FileName)
{ {
struct stat FileInfo; struct stat FileInfo;
char *ReadText; char *ReadText;
FILE *InFile; FILE *InFile;
int BytesRead; int BytesRead;
char *p;
if (stat(FileName, &FileInfo)) if (stat(FileName, &FileInfo))
ProgramFail(NULL, "can't read file %s\n", FileName); ProgramFailNoParser(pc, "can't read file %s\n", FileName);
ReadText = malloc(FileInfo.st_size + 1); ReadText = malloc(FileInfo.st_size + 1);
if (ReadText == NULL) if (ReadText == NULL)
ProgramFail(NULL, "out of memory\n"); ProgramFailNoParser(pc, "out of memory\n");
InFile = fopen(FileName, "r"); InFile = fopen(FileName, "r");
if (InFile == NULL) if (InFile == NULL)
ProgramFail(NULL, "can't read file %s\n", FileName); ProgramFailNoParser(pc, "can't read file %s\n", FileName);
BytesRead = fread(ReadText, 1, FileInfo.st_size, InFile); BytesRead = fread(ReadText, 1, FileInfo.st_size, InFile);
if (BytesRead == 0) if (BytesRead == 0)
ProgramFail(NULL, "can't read file %s\n", FileName); ProgramFailNoParser(pc, "can't read file %s\n", FileName);
ReadText[BytesRead] = '\0'; ReadText[BytesRead] = '\0';
fclose(InFile); fclose(InFile);
if ((ReadText[0] == '#') && (ReadText[1] == '!'))
{
for (p = ReadText; (*p != '\r') && (*p != '\n'); ++p)
{
*p = ' ';
}
}
return ReadText; return ReadText;
} }
/* read and scan a file for definitions */ /* read and scan a file for definitions */
void PicocPlatformScanFile(const char *FileName) void PicocPlatformScanFile(Picoc *pc, const char *FileName)
{ {
char *SourceStr = PlatformReadFile(FileName); char *SourceStr = PlatformReadFile(pc, FileName);
PicocParse(pc, FileName, SourceStr, strlen(SourceStr), TRUE, FALSE, TRUE, TRUE);
PicocParse(FileName, SourceStr, strlen(SourceStr), TRUE, FALSE, TRUE, TRUE);
} }
/* exit the program */ /* exit the program */
void PlatformExit(int RetVal) void PlatformExit(Picoc *pc, int RetVal)
{ {
PicocExitValue = RetVal; pc->PicocExitValue = RetVal;
longjmp(PicocExitBuf, 1); longjmp(pc->PicocExitBuf, 1);
} }