maind.c File Reference

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>
#include "pip__type.h"
#include "pip__sol.h"
#include "pip__tab.h"
#include <sys/types.h>

Include dependency graph for maind.c:

Go to the source code of this file.

Macros
#define	INLENGTH   1024
	This file comes directly from maind.c, from which main() has been removed. More...

Functions
Tableau *	expanser ()
int	dgetc (FILE *foo)
int	dscanf (FILE *foo, char *format, Entier *val)
void	balance (FILE *foo, FILE *bar)
void	escape (FILE *foo, FILE *bar, int level)

Variables
long int	cross_product
long int	limit
int	allocation
	External variables for direct call to PIP. More...
int	comptage
char	inbuff []
int	inptr
int	proviso
int	verbose
FILE *	dump
	Should not be used : put here for Pip copatibility. More...
char	dump_name []

Macro Definition Documentation

INLENGTH

#define INLENGTH   1024

This file comes directly from maind.c, from which main() has been removed.

All globals definitions has also been removed. This file is necessary for compilation. AL 9/12/93

Definition at line 41 of file maind.c.

Function Documentation

balance()

void balance	(	FILE *	foo,
		FILE *	bar
	)

Definition at line 98 of file maind.c.

{
 int level = 0;
 int c;
 while((c = dgetc(foo)) != EOF)
     {putc(c, bar);
      switch(c)
          {case '(' : level++; break;
           case ')' : if(--level == 0) return;
          }
     }
}

References dgetc(), and level.

Here is the call graph for this function:

dgetc()

int dgetc

(

FILE *

foo

)

Definition at line 52 of file maind.c.

{
 char *p;
 if(inptr >= proviso)
   {p = fgets(inbuff, INLENGTH, foo);
    if(p == NULL) return EOF;
    proviso = strlen(inbuff);
    if(INLENGTH - proviso <= 1) {
      fprintf(stderr, "troncature %d\n",proviso);
      exit(12);
    }
    inptr = 0;
    if(verbose > 0) fprintf(dump, "-- %s", inbuff);
  }
 return inbuff[inptr++];
}

References dump, exit, fprintf(), inbuff, INLENGTH, inptr, proviso, and verbose.

Referenced by balance(), escape(), and tab_get().

Here is the call graph for this function:

Here is the caller graph for this function:

dscanf()

int dscanf	(	FILE *	foo,
		char *	format,
		Entier *	val
	)

Definition at line 70 of file maind.c.

{
 char * p;
 int c;
 for(;inptr < proviso; inptr++)
   if(inbuff[inptr] != ' ' && inbuff[inptr] != '\n' && inbuff[inptr] != '\t')
                                break;
 while(inptr >= proviso)
   {p = fgets(inbuff, 256, foo);
    if(p == NULL) return EOF;
    proviso = strlen(inbuff);
    if(verbose > 0) {
      fprintf(dump, ".. %s", inbuff);
      fflush(dump);
    }
    for(inptr = 0; inptr < proviso; inptr++)
       if(inbuff[inptr] != ' ' && inbuff[inptr] != '\n' && inbuff[inptr] != '\t')
                                break;
  }
 if(sscanf(inbuff+inptr, format, val) != 1) return -1;
 for(; inptr < proviso; inptr++)
        if((c = inbuff[inptr]) != '-' && !isdigit(c)) break;
 return 0;
}

References dump, fprintf(), inbuff, inptr, proviso, and verbose.

Referenced by tab_get().

Here is the call graph for this function:

Here is the caller graph for this function:

escape()

void escape	(	FILE *	foo,
		FILE *	bar,
		int	level
	)

Definition at line 112 of file maind.c.

{int c;
 while((c = dgetc(foo)) != EOF)
   switch(c)
     {case '(' : level ++; break;
     case ')' : if(--level == 0)
                     { fprintf(bar, "\nerror\n)\n");
                       return;
                     }
     }
}

References dgetc(), fprintf(), and level.

Here is the call graph for this function:

expanser()

Tableau* expanser

(

)

Variable Documentation

allocation

int allocation

extern

External variables for direct call to PIP.

Definition at line 92 of file pip.c.

Referenced by dag_vertex_pred_imagelets(), and freia_terapix_call().

comptage

int comptage

Definition at line 43 of file maind.c.

cross_product

long int cross_product

extern

Definition at line 91 of file pip.c.

Referenced by choisir_piv(), integrer(), pivoter(), and traiter().

dump

FILE* dump

extern

Should not be used : put here for Pip copatibility.

Definition at line 97 of file pip.c.

Referenced by dgetc(), dscanf(), and pivoter().

dump_name

char dump_name[]

extern

Definition at line 98 of file pip.c.

inbuff

char inbuff[]

extern

Definition at line 93 of file pip.c.

Referenced by dgetc(), and dscanf().

inptr

int inptr

extern

Definition at line 94 of file pip.c.

Referenced by dgetc(), and dscanf().

limit

long int limit

Definition at line 42 of file maind.c.

proviso

int proviso

Definition at line 45 of file maind.c.

Referenced by dgetc(), and dscanf().

verbose

int verbose

Definition at line 45 of file maind.c.

Referenced by dgetc(), dscanf(), and pivoter().