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);
    vprintf(Message, Args);
    exit(1);
}

void ProgramError(const Str *FileName, int Line, const char *Message, ...)
{
    va_list Args;

    StrPrintf("%S:%d: ", FileName, Line)    
    va_start(Args, Message);
    vprintf(Message, Args);
    printf("\n");
    exit(1);
}

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

    fclose(InFile);
    
    return Text;    
}

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

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