picoc/picoc.c

#include <stdio.h>
#include <stdlib.h>
#include <stdarg.h>
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>

#include "picoc.h"

/* all platform-dependent code is in this file */

void Fail(const char *Message, ...)
{
    va_list Args;
    
    va_start(Args, Message);
    vStrPrintf(Message, Args);
    exit(1);
}

void ProgramFail(struct LexState *Lexer, const char *Message, ...)
{
    va_list Args;

    StrPrintf("%S:%d: ", Lexer->FileName, Lexer->Line);   
    va_start(Args, Message);
    vStrPrintf(Message, Args);
    StrPrintf("\n");
    exit(1);
}

/* read a file into memory. this is the only function using malloc().
 * do it differently for embedded devices without malloc */
Str ReadFile(const Str *FileName)
{
    struct stat FileInfo;
    char *ReadText;
    Str Text;
    FILE *InFile;
    char CFileName[PATH_MAX];
    
    StrToC(CFileName, PATH_MAX, FileName);
    
    if (stat(CFileName, &FileInfo))
        Fail("can't read file %s\n", CFileName);
    
    ReadText = malloc(FileInfo.st_size);
    if (ReadText == NULL)
        Fail("out of memory\n");
        
    InFile = fopen(CFileName, "r");
    if (InFile == NULL)
        Fail("can't read file %s\n", CFileName);
    
    if (fread(ReadText, 1, FileInfo.st_size, InFile) != FileInfo.st_size)
        Fail("can't read file %s\n", CFileName);

    Text.Str = ReadText;
    Text.Len = FileInfo.st_size;
    fclose(InFile);
    
    return Text;    
}

/* read and scan a file for definitions */
void ScanFile(const Str *FileName)
{
    Str SourceStr = ReadFile(FileName);
    Parse(FileName, &SourceStr, TRUE);
}

int main(int argc, char **argv)
{
    Str FileName;
    
    if (argc < 2)
        Fail("Format: picoc <program.c> <args>...\n");
    
    ParseInit();
    
    StrFromC(&FileName, argv[1]);
    ScanFile(&FileName);
    
    return 0;
}