parsing.c

/** This is a -*-c-*- file **/
/*
 * Copyright (c) 1994-2004 LAAS/CNRS
 * Christophe Dousson - Thu Jun 16 1994
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 *
 *    - Redistributions of source code must retain the above copyright
 *      notice, this list of conditions and the following disclaimer.
 *    - Redistributions in binary form must reproduce the above
 *      copyright notice, this list of conditions and the following
 *      disclaimer in the documentation and/or other materials provided
 *      with the distribution.
 *
 * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
 * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
 * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
 * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
 * COPYRIGHT HOLDERS OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
 * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
 * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER
 * CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN
 * ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
 * POSSIBILITY OF SUCH DAMAGE.
 *
 */

#include <ctype.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include "mkdep.h"

static char * preprocessor = NULL;


void define_preprocessor(const char * name)
{
    size_t len;

    if (preprocessor) {
	free(preprocessor);
	preprocessor = NULL;
    }
    if (name != NULL) {
	len = strlen(name)+4;
	preprocessor = (char*) malloc(len);
	snprintf(preprocessor, len, "%s -E", name);
    }
}

void add_preprocessor_arg(char opt, const char *arg)
{
    size_t len;

    if (preprocessor == NULL) {
	define_preprocessor(CC); /* CC = MACRO */
    }
    len = strlen(arg)+4;
    preprocessor = (char*) realloc(preprocessor, strlen(preprocessor)+len);
    snprintf(preprocessor+strlen(preprocessor), len,
	    " -%c%s", opt, arg);
}

FILE * run_preprocessor(const char* file, const char *vpath)
{
    FILE * fin;
    char * command;
    size_t len;

    if (preprocessor == NULL) {
	define_preprocessor(CC); /* CC = MACRO */
    }
    if (vpath == NULL) {
	len = strlen(preprocessor)+strlen(file)+20;
	command = (char*) malloc(len);
	snprintf(command, len, "exec env LC_ALL=C %s %s", preprocessor, file);
    } else {
	len = strlen(preprocessor)+strlen(vpath)+strlen(file)+21;
	command = (char*) malloc(len);
	snprintf(command, len, "exec env LC_ALL=C %s %s/%s", preprocessor, vpath, file);
    }
    fin = popen(command, "r");
    free(command);
    return fin;
}

/*
 * Les dependances se trouve avec les lignes de preprocesseur
 * de format: # 23 "titi.c"
 */
void parse_preprocessed_data(FILE * fin, const char * vpath)
{
    char buffer[256];
    int len = 0;
    int c = '\n';
    if (vpath != NULL) {
	len = strlen(vpath);
    }
    while (c != EOF) {
	if (c == '\n') {
	    c = getc(fin);
	    /* ligne du preprocesseur, commence par '#' */
	    if (c == '#') {
		/* on supprimme les blancs */
		do { c = getc(fin); } while (c == ' ');
		/* on verifie que c'est bien un numero de ligne */
		if (isdigit(c)) {
		    /* on supprimme les chiffres puis les blancs */
		    while (isdigit(c)) {
			c = getc(fin);
		    }
		    if (c != ' ') {
			/* il faut un blanc la` !
			   s'il y a autre chose c'est dans le programme
			   et des fois ca commence par "...." */
			continue;
		    }
		    while (c == ' ') {
			c = getc(fin);

		    }
		    /* on doit avoir une double quote sinon c'est que
		       c'est pas la ligne qu'on croyait */
		    if (c == '"') {
			int pos = 0;
			do {
			    c = getc(fin);
			    buffer[pos++] = c;
			} while (c != '"' && c != '\n' && c != EOF);
			if (c == '"') {
			    /* tout s'est bien passe */
			    buffer[pos-1] = 0;
			    /* printf("buffer: %s\n", buffer); */
			    if (strcmp(buffer, "<command line>") != 0 &&
				strcmp(buffer, "<command-line>") != 0 &&
				strcmp(buffer, "<built-in>") != 0 &&
				strcmp(buffer, "<stdout>") != 0 &&
				strcmp(buffer, "<stdin>") != 0)
				    add_dependency(buffer, sizeof(buffer),
					vpath, len);
			} else {
			    /* probleme mais quoi ??? */
			}
		    } /* fin de (c == '"') */
		} /* fin de (c == '1') */
	    } /* fin de (c == '#') */
	} else {
	    c = getc(fin);
	}
    } /* fin du while */
}