C99/src/c99.c

/* $Id$ */
/* Copyright (c) 2008 Pierre Pronchery <khorben@defora.org> */
/* This file is part of DeforaOS Devel c99 */
/* c99 is not free software; you can redistribute it and/or modify it under the
 * terms of the Creative Commons Attribution-NonCommercial-ShareAlike 3.0
 * Unported as published by the Creative Commons organization.
 *
 * c99 is distributed in the hope that it will be useful, but WITHOUT ANY
 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR
 * A PARTICULAR PURPOSE.  See the Creative Commons Attribution-NonCommercial-
 * ShareAlike 3.0 Unported license for more details.
 *
 * You should have received a copy of the Creative Commons Attribution-
 * NonCommercial-ShareAlike 3.0 along with c99; if not, browse to
 * http://creativecommons.org/licenses/by-nc-sa/3.0/ */



#include <unistd.h>
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <errno.h>
#include <cpp.h>
#include "../config.h"


/* private */
/* types */
typedef struct _Prefs
{
	int flags;
	char const * outfile;
} Prefs;
#define PREFS_c 0x1
#define PREFS_E 0x2
#define PREFS_g 0x4
#define PREFS_s 0x8


/* prototypes */
static int _c99(Prefs * prefs, int filec, char * filev[]);


/* functions */
/* c99 */
static int _c99_do(Prefs * prefs, FILE * outfp, char const * infile);

static int _c99(Prefs * prefs, int filec, char * filev[])
{
	FILE * fp = stdout;
	int ret = 0;
	int i;

	if(prefs->outfile != NULL && (fp = fopen(prefs->outfile, "w")) == NULL)
		return error_set_print(PACKAGE, 1, "%s: %s", prefs->outfile,
				strerror(errno));
	for(i = 0; i < filec; i++)
		ret |= _c99_do(prefs, fp, filev[i]);
	if(fp != NULL && fclose(fp) != 0)
		return error_set_print(PACKAGE, 1, "%s: %s", prefs->outfile,
				strerror(errno));
	if(ret != 0)
		error_print(PACKAGE);
	return ret;
}

static int _c99_do_c(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp);
static int _c99_do_E(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp);
static int _c99_do_o(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp);
static int _c99_do(Prefs * prefs, FILE * outfp, char const * infile)
{
	FILE * infp;
	int ret;

	if((infp = fopen(infile, "r")) == NULL)
		return error_set_code(1, "%s: %s", infile, strerror(errno));
	if(prefs->flags & PREFS_c)
		ret = _c99_do_c(prefs, outfp, infile, infp);
	else if(prefs->flags & PREFS_E)
		ret = _c99_do_E(prefs, outfp, infile, infp);
	else
		ret = _c99_do_o(prefs, outfp, infile, infp);
	/* FIXME implement */
	if(fclose(infp) != 0 && ret == 0)
		return error_set_code(1, "%s: %s", infile, strerror(errno));
	return ret;
}

static int _c99_do_c(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp)
	/* FIXME outfp should probably be opened only here */
{
	int ret = 0;
	size_t len;
	char * o = NULL;

	if(prefs->outfile == NULL)
	{
		if((len = strlen(infile)) < 3 || infile[len - 2] != '.'
				|| infile[len - 1] != 'c')
			return error_set_code(1, "%s", strerror(EINVAL));
		if((o = strdup(infile)) == NULL)
			return error_set_code(1, "%s", strerror(errno));
		o[len - 1] = 'o';
		if((outfp = fopen(o, "w")) == NULL)
		{
			error_set_code(1, "%s: %s", o, strerror(errno));
			free(o);
			return 1;
		}
	}
	/* FIXME implement */
	if(o != NULL)
	{
		if(fclose(outfp) != 0)
			ret = error_set_code(1, "%s: %s", o, strerror(errno));
		free(o);
	}
	return ret;
}

static int _c99_do_E(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp)
	/* FIXME infp is useless here */
{
	int ret;
	Cpp * cpp;
	Token * token;
	int code;

	if((cpp = cpp_new(infile, CPP_FILTER_TRIGRAPH)) == NULL)
		return 1;
	while((ret = cpp_scan(cpp, &token)) == 0
			&& token != NULL)
	{
		if((code = token_get_code(token)) == CPP_CODE_META_ERROR
				|| code == CPP_CODE_META_WARNING)
			fprintf(stderr, "%s%s%s%s%u%s%s\n",
					code == CPP_CODE_META_ERROR
					? "Error" : "Warning", " in ",
					token_get_filename(token), ":",
					token_get_line(token), ": ",
					token_get_string(token));
		else if(code >= CPP_CODE_META_FIRST && code <= CPP_CODE_META_LAST)
			fprintf(outfp, "%s\n", token_get_string(token));
		else
			fputs(token_get_string(token), outfp);
	}
	cpp_delete(cpp);
	return ret;
}

static int _c99_do_o(Prefs * prefs, FILE * outfp, char const * infile,
		FILE * infp)
{
	/* FIXME implement */
	return error_set_code(1, "%s", strerror(ENOSYS));
}


/* usage */
static int _usage(void)
{
	fputs("Usage: c99 [-c][-D name[=value]]...[-E][-g][-I directory]"
"[-L directory][-o outfile][-Ooptlevel][-s][-U name]... operand ...\n", stderr);
	return 1;
}


/* public */
/* main */
int main(int argc, char * argv[])
{
	Prefs prefs;
	int o;

	memset(&prefs, 0, sizeof(prefs));
	while((o = getopt(argc, argv, "cD:EgI:L:o:O123sU:")) != -1)
		switch(o)
		{
			case 'c':
				prefs.flags |= PREFS_c;
				break;
			case 'E':
				prefs.flags |= PREFS_E;
				break;
			case 'g':
				prefs.flags |= PREFS_g;
				break;
			case 'o':
				prefs.outfile = optarg;
				break;
			case 's':
				prefs.flags |= PREFS_s;
				break;
			default:
				return _usage();
		}
	if(optind == argc)
		return _usage();
	if(prefs.flags & PREFS_c && prefs.outfile != NULL && optind + 1 != argc)
		return _usage();
	return _c99(&prefs, argc - optind, &argv[optind]) == 0 ? 0 : 2;
}