split_file.c File Reference

#include <stdio.h>
#include "genC.h"
#include "misc.h"
#include "pipsdbm.h"
#include <stdlib.h>
#include <ctype.h>
#include <unistd.h>
#include <string.h>
#include <sys/types.h>
#include <sys/stat.h>

Include dependency graph for split_file.c:

Go to the source code of this file.

Macros
#define	isbegincomment(c)    ((c)=='!' || (c)=='*' || (c)=='c' || (c)=='C' || (c)=='#')
	added macros More...
#define	issquote(c)   ((c)=='\'')
#define	isdquote(c)   ((c)=='\"')
#define	ishH(c)   ((c)=='h' || (c)=='H')
#define	char2int(c)   ((int)((c)-'0'))
#define	LINESIZE   200
#define	BSZ   512
	not lint More...
#define	true   1
#define	false   0
#define	trim(p)   while (*p == ' ' || *p == '\t') p++
#define	allowed_first_char(c)    (((c)>='a' && (c)<='z') || ((c)>='A' && (c)<='Z') || ((c)=='_'))
#define	allowed_char(c)    (allowed_first_char(c) || ((c)>='0' && (c)<='9'))
#define	skippable_char(c)    ((c)==' ' || (c)=='\t' || (c)=='\r')
#define	FREE_STRINGS
#define	HOLL_ERROR

Functions
static char *	hollerith_and_bangcomments (char *)
static char *	look ()
static char *	skiplab ()
static char *	functs ()
static int	scan_name ()
static void	get_name ()
static char *	full_name (char *dir, char *name)
static void	get_name (char *name)
static int	GetLine ()
	getline does not handle continuations... More...
static char *	skip_comment_if_any (char *lines)
static int	lend ()
	return 1 for 'end' alone on card (up to col. More...
static int	lname (char *s, int look_for_entry)
	check for keywords for subprograms return 0 if comment card, 1 if found name and put in arg string. More...
static int	scan_name (char *s, char *ptr)
static char *	functs (char *p)
static char *	skiplab (char *p)
	if first 6 col. More...
static char *	look (char *s, char *m)
	return 0 if m doesn't match initial part of s; otherwise return ptr to next char after m in s More...
static void	put_upper_from_slash_till_dot_or_end (char *what, FILE *where)
static void	print_name (FILE *o, char *name, int n, int upper)
	FC. More...
char *	fsplit (char *dir_name, char *file_name, FILE *out)
static int	blank_line_p (char *line)
char *	process_bang_comments_and_hollerith (FILE *in, FILE *out)
	processing extracted for includes... More...

Variables
char	fsplit_copyright []
	split_file.c More...
char	fsplit_sccsid [] = "@(#)fsplit.c 5.5 (Berkeley) 3/12/91"
	not lint More...
static char	buf [BSZ]
static FILE *	ifp
static char *	x
static char *	mainp
static char *	blkp
static struct stat	sbuf
static int	current_line_number = 0
static int	implicit_program
static int	implicit_blockdata_name
	FC. More...
static int	implicit_program_name
	FC. More...
static int	it_is_a_main
	FC. More...
static int	it_is_an_entry
	FC. More...
static int	in_squotes =0
	ADDITION: basic Hollerith constants handling FC 11 Apr 1997. More...
static int	in_dquotes =0
static int	in_id =0
static int	in_hollerith =0

Macro Definition Documentation

allowed_char

#define allowed_char

(

c

)

(allowed_first_char(c) || ((c)>='0' && (c)<='9'))

Definition at line 356 of file split_file.c.

allowed_first_char

#define allowed_first_char

(

c

)

(((c)>='a' && (c)<='z') || ((c)>='A' && (c)<='Z') || ((c)=='_'))

Definition at line 353 of file split_file.c.

BSZ

#define BSZ   512

not lint

Definition at line 156 of file split_file.c.

char2int

#define char2int

(

c

)

((int)((c)-'0'))

Definition at line 72 of file split_file.c.

false

#define false   0

Definition at line 162 of file split_file.c.

FREE_STRINGS

#define FREE_STRINGS

Value:

  if (main_list) free(main_list), main_list = NULL;     \
  if (x) free(x), x = NULL;                             \
  if (mainp) free(mainp), mainp = NULL;                 \
  if (blkp) free(blkp), blkp = NULL;

Definition at line 468 of file split_file.c.

HOLL_ERROR

#define HOLL_ERROR

Value:

  "pips internal error: cannot process " \
  "hollerith constants on continued lines (line %d)"

Definition at line 669 of file split_file.c.

isbegincomment

#define isbegincomment

(

c

)

((c)=='!' || (c)=='*' || (c)=='c' || (c)=='C' || (c)=='#')

added macros

Definition at line 67 of file split_file.c.

isdquote

#define isdquote

(

c

)

((c)=='\"')

Definition at line 70 of file split_file.c.

ishH

#define ishH

(

c

)

((c)=='h' || (c)=='H')

Definition at line 71 of file split_file.c.

issquote

#define issquote

(

c

)

((c)=='\'')

Definition at line 69 of file split_file.c.

LINESIZE

#define LINESIZE   200

Definition at line 75 of file split_file.c.

skippable_char

#define skippable_char

(

c

)

((c)==' ' || (c)=='\t' || (c)=='\r')

Definition at line 359 of file split_file.c.

trim

#define trim

(

p

)

while (*p == ' ' || *p == '\t') p++

Definition at line 169 of file split_file.c.

true

#define true   1

Definition at line 161 of file split_file.c.

Function Documentation

blank_line_p()

static int blank_line_p ( char *  line )

static

Definition at line 660 of file split_file.c.

{
    if (!line) return 1;
    while (*line)
        if (!isspace((int) *line++))
            return 0;
    return 1;
}

References line.

Referenced by hollerith_and_bangcomments().

Here is the caller graph for this function:

fsplit()

char* fsplit	(	char *	dir_name,
		char *	file_name,
		FILE *	out
	)

output file

1 if got card in output file, 0 otherwise

1 if got name of subprog., 0 otherwise

??? 20 -> 80 because not checked... smaller than a line is ok ? FC

MALLOC STRINGS

look for a temp file that doesn't correspond to an existing file

FC

if no name yet, try and find one

FC: some hack to deal with entry...

FC again

now we gave it a name!

a new module name is appended to the current line...

look for an 'end' statement

while

no lines in file, forget the file

rename the file

out?

for(;;)

Parameters

dir_name	ir_name
file_name	ile_name
out	ut

Definition at line 474 of file split_file.c.

{
  FILE *ofp;    /* output file */
  int rv;       /* 1 if got card in output file, 0 otherwise */
  int nflag,            /* 1 if got name of subprog., 0 otherwise */
    someentry, newname;
  /* ??? 20 -> 80 because not checked... smaller than a line is ok ? FC */
  char name[80];
  char tmpname[80];
 
  /* MALLOC STRINGS
   */
  char * main_list = full_name(dir_name, MAIN_FILE_NAMES);
  x = full_name(dir_name, "###000.f");
  mainp = full_name(dir_name, "main000.f");
  blkp = full_name(dir_name, "data000.f");
 
  current_line_number = 0;
 
  if ((ifp = fopen(file_name, "r")) == NULL) {
    fprintf(stderr, "fsplit: cannot open %s\n", file_name);
    FREE_STRINGS;
    return "cannot open file";
  }
 
  for(;;) {
 
    /* look for a temp file that doesn't correspond to an existing file */
    get_name(x);
    ofp = fopen(x, "w");
    if (ofp==NULL) {
            fprintf(stderr, "%s %s -> %s\n", dir_name, file_name, x);
            fprintf(stderr, "fopen(\"%s\", ...) failed\n", x);
            abort();
    }
 
    nflag = 0;
    rv = 0;
    newname = 0;
    someentry = 0;
 
    while (GetLine() > 0)
    {
      char * error = hollerith_and_bangcomments(buf); /* FC */
      if (error) {
        fclose(ofp);
        fclose(ifp);
        FREE_STRINGS;
        return error;
      }
 
      if (nflag == 0) /* if no name yet, try and find one */
        nflag = lname(name, 0), newname=nflag;
      else { /* FC: some hack to deal with entry... */
        lname(tmpname, 1);
        newname = it_is_an_entry;
        someentry = it_is_an_entry;
        implicit_program = 0;
        it_is_a_main = 0;
        it_is_an_entry = 0;
      }
 
      if (it_is_a_main) {
        FILE * fm = fopen(main_list, "a");
        if (fm==NULL) {
          fprintf(stderr, "fopen(\"%s\", ...) failed\n", main_list);
          // FI: not user friendly...
          abort();
        }
        if (implicit_program_name==1 || implicit_program==1)
          print_name(fm, name, 7, 1);
        else
          put_upper_from_slash_till_dot_or_end(name, fm);
        putc('\n', fm);
        fclose(fm);
        it_is_a_main = 0;
      }
 
      if (implicit_program==1) /* FC again */
            {
        fprintf(ofp,
                "! next line added by fsplit() in pips\n"
                "      PROGRAM ");
        print_name(ofp, name, 7, 0);
        putc('\n', ofp);
        implicit_program = 0; /* now we gave it a name! */
            }
 
            if (implicit_blockdata_name==1 || implicit_program_name==1)
            {
        fprintf(ofp,
                "! next line modified by fsplit() in pips\n"
                "      %s ", 
                implicit_program_name==1? "PROGRAM": "BLOCK DATA");
        print_name(ofp, name, 7, 0);
        putc('\n', ofp);
        implicit_blockdata_name = 0;
        implicit_program_name = 0;
            }
            else
        fprintf(ofp, "%s", buf);
 
            /* a new module name is appended to the current line... */
            if (newname)
            {
        if ((someentry && tmpname[0]) || (!someentry && name[0]))
        {
          put_upper_from_slash_till_dot_or_end
            (someentry? tmpname: name, out);
          putc(' ', out);
        }
        newname = 0;
        someentry = 0;
        tmpname[0] = '\0';
            }
 
            rv = 1;
 
            if (lend())         /* look for an 'end' statement */
        break;
    } /* while */
 
    if (fclose(ofp)) {
            fprintf(stderr, "fclose(ofp) failed\n");
            exit(2);
    }
    if (rv == 0) {                      /* no lines in file, forget the file */
      safe_unlink(x);
      if (fclose(ifp)) {
        fprintf(stderr, "fclose(ifp) failed\n");
        exit(2);
      }
      FREE_STRINGS; return NULL;
    }
    if (nflag)                  /* rename the file */
    {
      if (strncmp(dir_name, name, strlen(dir_name))!=0)
      {
        char * full = full_name(dir_name, name);
        strcpy(name, full);
        free(full);
      }
      if (strcmp(name, x) == 0) {
        printf(/* out? */ "%s\n", x);
      }
      else if (stat(name, &sbuf) < 0 )
      {
        int ok = link(x, name);
        // FC: link() may fail but it is ok?
        if (ok != 0 && ok != -1) abort();
        safe_unlink(x);
        fprintf(out, "%s\n", name);
      }
      else
        printf("%s already exists, put in %s\n", name, x);
      continue;
    }
    fprintf(out, "%s\n", x);
  } /* for(;;) */
 
  if (fclose(ifp)) {
    fprintf(stderr, "fclose(ifp) failed\n");
    exit(2);
  }
  FREE_STRINGS;
  return "bad fsplit() terminaison.";
}

Referenced by pips_split_file().

Here is the caller graph for this function:

full_name()

static char* full_name ( char *  dir, char *  name  )

static

Definition at line 171 of file split_file.c.

{
  char * full = (char*) malloc(sizeof(char)*(strlen(dir)+strlen(name)+2));
  sprintf(full, "%s/%s", dir, name);
  return full;
}

functs() [1/2]

static char * functs

(

)

functs() [2/2]

static char* functs ( char *  p )

static

look for typed functions such as: real*8 function, character*16 function, character*(*) function

Definition at line 391 of file split_file.c.

{
  register char *ptr;
 
/*      look for typed functions such as: real*8 function,
        character*16 function, character*(*) function  */
 
  if((ptr = look(p,"character")) != 0 ||
     (ptr = look(p,"logical")) != 0 ||
     (ptr = look(p,"real")) != 0 ||
     (ptr = look(p,"integer")) != 0 ||
     (ptr = look(p,"doubleprecision")) != 0 ||
     (ptr = look(p,"complex")) != 0 ||
     (ptr = look(p,"doublecomplex")) != 0 ) {
    while ( *ptr == ' ' || *ptr == '\t' || *ptr == '*'
            || (*ptr >= '0' && *ptr <= '9')
            || *ptr == '(' || *ptr == ')') ptr++;
    ptr = look(ptr,"function");
    return(ptr);
  }
  else
    return(0);
}

get_name() [1/2]

static void get_name ( )

static

get_name() [2/2]

static void get_name ( char *  name )

static

Definition at line 178 of file split_file.c.

{
  register char *ptr;
  
  while (stat(name, &sbuf) >= 0) 
  {
    ptr = name + strlen(name) - 1;
    while (!isdigit((int) *ptr--) && ptr>name);
    for (ptr++; isdigit((int) *ptr) && ptr>name; ptr--) {
      (*ptr)++;
      if (*ptr <= '9')
        break;
      *ptr = '0';
    }
    if(ptr < name ) {
      fprintf( stderr, "fsplit: ran out of file names\n");
      exit(1);
    }
  }
}

GetLine()

static int GetLine ( )

static

getline does not handle continuations...

fix for the last line that may not have a
. It is returned however and lend handles it correctly.

Definition at line 204 of file split_file.c.

{
  register char *ptr;
  
  current_line_number++;
  
  if (feof(ifp)) return -1;
  
  for (ptr = buf; ptr < &buf[BSZ]; ) {
    *ptr = getc(ifp);
    /* fix for the last line that may not have a \n.
     * It is returned however and lend handles it correctly.
     */
    if (feof(ifp) || *ptr++ == '\n')
    {
      *ptr = 0;
      return (1);
    }
  }
  while (getc(ifp) != '\n' && feof(ifp) == 0) ;
  fprintf(stderr, "line truncated to %d characters\n", BSZ);
  return (1);
}

Referenced by process_bang_comments_and_hollerith().

Here is the caller graph for this function:

hollerith_and_bangcomments()

static char * hollerith_and_bangcomments ( char *  line )

static

RESET

first column to analyze

RESET

73.. ignored

hack for real*8 hollerith

looks for [0-9 ]+[hH]

YEAH, here it is!

rm potential 73-80 text

should look for a continuation OR pad.

padding

must insert tmp[<j] in line[ni..] first, shift the line...

to the left

to the right

bang comment in the middle of a line.

stop while loop

the new line may exceed the 72 column

caution, len includes cr...

the dilatation cannot exceed one line (?)

then shift and continuation...

the bang comment is moved to the preceding line.

Definition at line 673 of file split_file.c.

{
  int i,j,initial, touched=0, bang=0;
  char bangcomment[BSZ];
  
  bangcomment[0] = '\0';
  
  if (!line) {
    in_squotes=0, in_dquotes=0, in_id=0, in_hollerith=0; /* RESET */
    return NULL;
  }
  
  if (blank_line_p(line))
    return NULL;
  
  if (isbegincomment(line[0]))
    return NULL;
  
  i = (line[0]=='\t')? 1: 6; /* first column to analyze */
  
  for (j=0; j<i; j++)
    if (!line[j]) return NULL;
  
  if (isspace((int) line[i-1]))
    in_squotes=0, in_dquotes=0, in_id=0, in_hollerith=0; /* RESET */
  
  initial=i;
  
  while (line[i] && initial<72) /* 73.. ignored */
  {
    if (!in_dquotes && issquote(line[i])) 
      in_squotes = !in_squotes, in_id=0;
    if (!in_squotes && isdquote(line[i])) 
      in_dquotes = !in_dquotes, in_id=0;
    if (!in_squotes && !in_dquotes)
    {
      if (isalpha((int) line[i]))
        in_id=1;
      else if (!isalnum((int) line[i]) && !isspace((int) line[i]) 
               && line[i]!='*') /* hack for real*8 hollerith */
        in_id=0;
    }
    
    if (!in_squotes && !in_dquotes && !in_id && isdigit((int) line[i]))
    {
      /* looks for [0-9 ]+[hH] 
       */
      int len=char2int(line[i]), ni=i;
      i++, initial++;
      
      while (line[i] && initial<72
             && (isdigit((int) line[i]) || isspace((int) line[i])))
      {
        if (isdigit((int) line[i]))
          len=10*len+char2int(line[i]);
        i++, initial++;
      }
      
      if (!line[i] || initial>=72) return NULL;
      
      if (ishH(line[i])) /* YEAH, here it is! */
      {
        char tmp[200];
        int k;
        
        if (!touched) { /* rm potential 73-80 text */
          touched=1;
          line[72]='\n';
          line[73]='\0';
        }
        
        j=1;
        
        tmp[0] = '\''; i++, initial++;
        while (j<200 && line[i] && initial<72 && 
               line[i]!='\n' && len>0)
        {
          len--;
          if (line[i]=='\'')
            tmp[j++]='\'';
          tmp[j++] = line[i++];
          initial++;
        }
        
        if (len!=0)       /* should look for a continuation OR pad. */
        {
          if (initial==72)
          {
            char * msg = (char*) malloc((strlen(HOLL_ERROR)+10)*sizeof(char*));
            (void) sprintf(msg, HOLL_ERROR, current_line_number);
            return msg;
          }
          else
          {
            while (j<199 && len>0) /* padding */
              tmp[j++]=' ', len--;
          }
        }
        
        tmp[j]='\'';
        
        /* must insert tmp[<j] in line[ni..]
         * first, shift the line...
         */
        
        {
          int ll = strlen(line), shift = i-(ni+j+1);
          
          if (shift>0) /* to the left */
            for (k=0; i+k<=ll; k++) 
              line[ni+j+1+k] = line[i+k];
          else /* to the right */
            for (k=ll-i; k>=0; k--)
              line[ni+j+1+k] = line[i+k];
        }
        
        i=ni+j+1;
        
        while(j>=0)
          line[ni+j]=tmp[j], j--;
        
      }
    }
    
    /* bang comment in the middle of a line. */
        if (!in_squotes && !in_dquotes && line[i]=='!')
        {
            strcpy(bangcomment,&line[i]);
            line[i]='\n', line[i+1]='\0'; /* stop while loop */
            bang=1;
        }
 
        i++, initial++;
    }
 
    if (touched) 
    {
        int len = strlen(line); /* the new line may exceed the 72 column */
        /* caution, len includes cr... */
        /* the dilatation cannot exceed one line (?) */
        if (len-1>72) /* then shift and continuation... */
        {
            for (i=len; i>=72; i--) line[i+7] = line[i];
            line[72]='\n'; line[73]=' '; line[74]=' ';
            line[75]=' '; line[76]=' '; line[77]=' '; line[78]='x';
        }
    }
 
    /* the bang comment is moved to the preceding line.
     */
    if (bang) 
    {
        char tmp[BSZ];
        strcpy(tmp,line);
        strcpy(line,bangcomment);
        strcat(line,tmp);
    }
 
    return NULL;
}

References blank_line_p(), BSZ, char2int, current_line_number, HOLL_ERROR, in_dquotes, in_hollerith, in_id, in_squotes, isbegincomment, isdquote, ishH, issquote, line, and malloc().

Referenced by process_bang_comments_and_hollerith().

Here is the call graph for this function:

Here is the caller graph for this function:

lend()

static int lend ( )

static

return 1 for 'end' alone on card (up to col.

72), 0 otherwise

a continuation

Definition at line 242 of file split_file.c.

{
  register char *p, * lbuf;
  int tab = false;
  
  lbuf = skip_comment_if_any(buf);
  
  for (p=lbuf; p<&lbuf[6] && !tab; p++)
  {
    if (*p=='\0') return 0;
    if (*p=='\t') tab=true;
  }
  
  if (!tab && (lbuf[5]!=' ' && lbuf[5]!='\t')) 
    return 0; /* a continuation */
  
  trim(p);
  if (*p != 'e' && *p != 'E') return(0);
  p++;
  trim(p);
  if (*p != 'n' && *p != 'N') return(0);
  p++;
  trim(p);
  if (*p != 'd' && *p != 'D') return(0);
  p++;
  trim(p);
  if (p - buf >= 72 || *p == '\n' || *p == '\r' || *p == '\0')
    return (1);
  return (0);
}

Referenced by freia_migrate_statements().

Here is the caller graph for this function:

lname()

static int lname ( char *  s, int  look_for_entry  )

static

check for keywords for subprograms
return 0 if comment card, 1 if found name and put in arg string.

invent name for unnamed block datas and main programs.

first check for comment cards

copy to buffer and converting to lower case

entry is looked for within a something...

Definition at line 283 of file split_file.c.

{
  register char *ptr, *p;
  char  line[LINESIZE], *iptr = line, * lbuf;
  
  implicit_program = 0;
  implicit_blockdata_name = 0;
  implicit_program_name = 0;
  it_is_a_main = 0;
  it_is_an_entry = 0;
  
  lbuf = skip_comment_if_any(buf);
  
  /* first check for comment cards */
  if(isbegincomment(lbuf[0]))
    return 0;
  ptr = lbuf;
  while (*ptr == ' ' || *ptr == '\t') ptr++;
  if(*ptr == '\n') return(0);
  
  ptr = skiplab(lbuf);
  if (ptr == 0) return (0);
  
  /*  copy to buffer and converting to lower case */
  p = ptr;
  while (*p && p <= &lbuf[71] ) {
    *iptr = isupper((int) *p) ? tolower(*p) : *p;
    iptr++;
    p++;
  }
  *iptr = '\n';
  
  if (look_for_entry) {
    /* entry is looked for within a something... */
    if ((ptr = look(line, "entry")) != 0) 
      if(scan_name(s, ptr))
        it_is_an_entry = 1;
  } else {
    if ((ptr = look(line, "subroutine")) != 0 ||
        (ptr = look(line, "function")) != 0 ||
        (ptr = functs(line)) != 0) {
      if(!scan_name(s, ptr)) 
        strcpy( s, x);
    } else if((ptr = look(line, "program")) != 0) {
      it_is_a_main = 1;
      if(!scan_name(s, ptr)) {
        implicit_program_name = 1;
        get_name( mainp);
        strcpy( s, mainp);
      }
    } else if((ptr = look(line, "blockdata")) != 0) {
      if(!scan_name(s, ptr)) {
        implicit_blockdata_name = 1;
        get_name( blkp);
        strcpy( s, blkp);
      }
    } else if((ptr = functs(line)) != 0) {
      if(!scan_name(s, ptr)) 
        strcpy( s, x);
    } else {
      implicit_program = 1;
      it_is_a_main = 1;
      get_name(mainp);
      strcpy(s, mainp);
    }
  }
  
  return(1);
}

Referenced by binary_to_nary(), c_text_related_entities(), language_module_p(), make_bound(), nary_operator_p(), set_control_to_label(), statement_remove_omp_clauses(), what_operator(), and words_basic().

Here is the caller graph for this function:

look() [1/2]

static char* look ( )

static

look() [2/2]

static char* look ( char *  s, char *  m  )

static

return 0 if m doesn't match initial part of s; otherwise return ptr to next char after m in s

Definition at line 438 of file split_file.c.

{
  register char *sp, *mp;
  
  sp = s; mp = m;
  while (*mp) {
    trim(sp);
    if (*sp++ != *mp++)
      return (0);
  }
  return (sp);
}

print_name()

static void print_name ( FILE *  o, char *  name, int  n, int  upper  )

static

FC.

Definition at line 462 of file split_file.c.

{
    name = name + strlen(name) - n - 2;
    while (n-->0) putc(upper? toupper(*name++): *name++, o);
}

process_bang_comments_and_hollerith()

char* process_bang_comments_and_hollerith	(	FILE *	in,
		FILE *	out
	)

processing extracted for includes...

Parameters

in	n
out	ut

Definition at line 836 of file split_file.c.

{
  char * error;
  ifp = in;
  current_line_number = 0;
  while (GetLine()>0) 
  {
    error = hollerith_and_bangcomments(buf);
    if (error) return error;
    fputs(buf, out);
  }
  ifp = NULL;
  return NULL;
}

References buf, current_line_number, error, GetLine(), hollerith_and_bangcomments(), ifp, and out.

Referenced by handle_include_file().

Here is the call graph for this function:

Here is the caller graph for this function:

put_upper_from_slash_till_dot_or_end()

static void put_upper_from_slash_till_dot_or_end ( char *  what, FILE *  where  )

static

Definition at line 452 of file split_file.c.

{
    if (*what=='.') {
        char * tmp = what+strlen(what);
        while (tmp>what && *tmp!='/') tmp--;
        if (what!=tmp) what=tmp+1;
    }
    while (*what && *what!='.') putc(toupper(*what++), where);
}

scan_name() [1/2]

static int scan_name ( )

static

scan_name() [2/2]

static int scan_name ( char *  s, char *  ptr  )

static

scan off the name

must have a valid first char.

next char should be a ( or

Definition at line 362 of file split_file.c.

{
  char *sptr;
  
  /* scan off the name */
  trim(ptr);
  sptr = s;
  
  /* must have a valid first char. */
  if (!allowed_first_char(*ptr)) return 0;
  
  while (allowed_char(*ptr) || skippable_char(*ptr)) {
    if (!skippable_char(*ptr))
      *sptr++ = *ptr;
    ptr++;
  }
  
  if (sptr == s) return(0);
  
  /* next char should be a ( or \n */
  if (*ptr!='(' && *ptr!='\n') return 0;
  
  *sptr++ = '.';
  *sptr++ = 'f';
  *sptr++ = 0;
  return(1);
}

skip_comment_if_any()

static char* skip_comment_if_any ( char *  lines )

static

Definition at line 228 of file split_file.c.

{
  int i = 0;
  
  while (isbegincomment(lines[i]))
  {
    while (lines[i]!='\0' && lines[i]!='\n') i++;
    if (lines[i]=='\n') i++;
  }
  
  return lines+i;
}

skiplab() [1/2]

static char * skiplab

(

)

skiplab() [2/2]

static char* skiplab ( char *  p )

static

if first 6 col.

blank, return ptr to col. 7, if blanks and then tab, return ptr after tab, else return 0 (labelled statement, comment or continuation

Definition at line 419 of file split_file.c.

{
  register char *ptr;
  
  for (ptr = p; ptr < &p[6]; ptr++) {
    if (*ptr == ' ')
      continue;
    if (*ptr == '\t') {
      ptr++;
      break;
    }
    return (0);
  }
  return (ptr);
}

Variable Documentation

blkp

char * blkp

static

Definition at line 159 of file split_file.c.

buf

char buf[BSZ]

static

Definition at line 157 of file split_file.c.

Referenced by dbll_stat_file(), directory_exists_p(), do_simplify_constant_address_expression(), file_exists_p(), file_readable_p(), gen_read_string(), generate_a_directory_menu(), html_print_area(), html_print_basic(), html_print_constant(), html_print_formal(), html_print_ram(), i2a(), loop_annotate(), make_packing_function(), old_reductions(), print_entity_task_buffers(), print_sesam_tasks_buffers_header(), process_bang_comments_and_hollerith(), put_summary(), read_token(), reductions_get_omp_pragma_str(), safe_readfile(), safe_readline(), set_property(), st_one_message(), string_buffer_to_string_internal(), Value_to_string(), and VASNPRINTF().

current_line_number

int current_line_number = 0

static

Definition at line 200 of file split_file.c.

Referenced by hollerith_and_bangcomments(), and process_bang_comments_and_hollerith().

fsplit_copyright

char fsplit_copyright[]

Initial value:

=
  "@(#) Copyright (c) 1983 The Regents of the University of California.\n\
 All rights reserved.\n"

split_file.c

Definition at line 114 of file split_file.c.

fsplit_sccsid

char fsplit_sccsid[] = "@(#)fsplit.c 5.5 (Berkeley) 3/12/91"

not lint

Definition at line 120 of file split_file.c.

ifp

FILE* ifp

static

Definition at line 158 of file split_file.c.

Referenced by process_bang_comments_and_hollerith().

implicit_blockdata_name

int implicit_blockdata_name

static

FC.

Definition at line 274 of file split_file.c.

implicit_program

int implicit_program

static

Definition at line 273 of file split_file.c.

implicit_program_name

int implicit_program_name

static

FC.

Definition at line 275 of file split_file.c.

in_dquotes

int in_dquotes =0

static

Definition at line 658 of file split_file.c.

Referenced by hollerith_and_bangcomments().

in_hollerith

int in_hollerith =0

static

Definition at line 658 of file split_file.c.

Referenced by hollerith_and_bangcomments().

in_id

int in_id =0

static

Definition at line 658 of file split_file.c.

Referenced by hollerith_and_bangcomments().

in_squotes

int in_squotes =0

static

ADDITION: basic Hollerith constants handling FC 11 Apr 1997.

bugs:

• under special circonstances, the dilatation of the transformation may lead continuations to exceed the 19 lines limit.

to improve:

• hack for "real*8 hollerith", but should just forbids start after *? maybe some other characters? global state

Definition at line 658 of file split_file.c.

Referenced by hollerith_and_bangcomments().

it_is_a_main

int it_is_a_main

static

FC.

Definition at line 276 of file split_file.c.

it_is_an_entry

int it_is_an_entry

static

FC.

Definition at line 277 of file split_file.c.

mainp

char * mainp

static

Definition at line 159 of file split_file.c.

sbuf

struct stat sbuf

static

Definition at line 159 of file split_file.c.

x

char* x

static

Definition at line 159 of file split_file.c.

Referenced by add_bounding_box_constraints(), add_remapping_as_used(), allocate_bucket(), array_dimension_bound_test_undefined_p(), array_test_undefined_p(), average_probability_matrix(), bezout(), bezout_grl(), build_contraction_matrices(), build_convex_constraints_from_vertices(), check_coefficient_reduction(), check_if_direct_reference(), choisir_piv(), compare_attachment_for_qsort(), compare_option_type_for_qsort(), constant_constraint_check(), contrainte_make_1D(), convert_pointer_to_array(), cool_enough_for_a_last_substitution(), corr(), dilate_1d_h(), dilate_1d_v(), dprint(), eligible_for_coefficient_reduction_with_bounding_box_p(), erode_1d_h(), erode_1d_v(), eval_2D_vecteur(), exam_coef(), exponentiate(), expression_try_find_size(), find_eg(), find_first_integer_point_in_between(), find_integer_point_to_the_left(), find_integer_point_to_the_right(), find_intermediate_constraints(), find_intermediate_constraints_recursively(), find_or_allocate(), float_to_frac(), frac_div(), frac_mul(), free_bucket(), free_buckets(), gather_local_indices(), gaussian_noise_reduce(), gen_chunk_identity(), gen_identity(), gen_list_patch(), gen_set_closure_iterate(), gram_param(), include_trans_on_LC_in_ref(), initialization(), integrer(), llog(), loop_flt(), main(), MakeParameter(), MakeStatementLike(), mat_maj_col(), mat_maj_lig(), matrice_hermite(), matrice_smith(), matrice_soustraction_colonne(), matrice_soustraction_ligne(), matrice_unimodulaire_triangulaire_inversion(), matrix_hermite(), matrix_maj_col(), matrix_maj_line(), matrix_smith(), matrix_subtraction_column(), matrix_subtraction_line(), matrix_unimodular_triangular_inversion(), monome_sprint(), monome_to_expression(), my_matrices_to_constraints_with_sym_cst(), my_matrices_to_constraints_with_sym_cst_2(), new_constraint_for_coefficient_reduction_with_bounding_box(), number_of_buckets(), number_of_ordered_statements(), outliner_patch_parameters(), pipsdbm_consistent_statement_function(), pipsdbm_write_statement_function(), pivoter(), printfrac(), reduce_coefficients_with_bounding_box(), remapping_already_computed_p(), sc_min(), schoose_create_abbrev_menu_with_text(), signed_integer_constant_expression_value(), simplify_float_constraint(), small_positive_slope_reduce_coefficients_with_bounding_box(), sol_mod(), sol_pgcd(), sol_ppcm(), stack_head(), stack_map(), stack_pop(), stack_push(), stack_replace(), statement_arrows(), tab_display(), terapix_gram_allocate(), terapix_init_row(), term(), text_loop_craft(), traiter(), transformer_add_equality_with_affine_term(), transformer_add_inequality_with_affine_term(), transformer_add_inequality_with_linear_term(), update_coefficient_signs_in_constraints(), update_coefficient_signs_in_vector(), update_iterator_upward(), vect_cl_ofl_ctrl(), vect_div(), vect_in_p(), vect_make_1D(), vect_make_line(), vect_multiply(), vecteur_bezout(), and x_language_module_p().