pipsmake-local.h File Reference

#include "makefile.h"

Include dependency graph for pipsmake-local.h:

Go to the source code of this file.

Typedefs
typedef bool(*	pipsmake_callback_handler_type) (void)

Functions
void	pipsmake_error (const char *)
	symbols exported by lex / yacc More...
int	pipsmake_lex (void)
int	pipsmake_parse (void)
void	yyerror (const char *)
	work around cproto 4.7t issue More...
void	fprint_virtual_resources (FILE *, const char *, list)
void	fprint_makefile (FILE *, makefile)
makefile	parse_makefile (void)
rule	find_rule_by_phase (const char *)
	this function returns the rule that defines builder pname More...
void	add_rule (rule)
makefile	open_makefile (const char *)
void	save_makefile (const char *)
bool	close_makefile (const char *)
int	yywrap (void)
	symbols form lexer.l More...
int	init_lex (void)
void	yyerror_lex_part (const char *)

Variables
FILE *	pipsmake_in

Typedef Documentation

pipsmake_callback_handler_type

typedef bool(* pipsmake_callback_handler_type) (void)

Definition at line 25 of file pipsmake-local.h.

Function Documentation

add_rule()

void add_rule

(

rule

r

)

Definition at line 1704 of file readmakefile.c.

{
  string pn = rule_phase(r);
  bool   active_phase = false;
 
  // Check resources produced by this rule
  FOREACH(VIRTUAL_RESOURCE, vr, rule_produced(r)) {
    string vrn = virtual_resource_name(vr);
    string phase;
 
    // We activated this rule to produce this resource only if
    // this resource is not already produced
    if ((phase = hash_get(activated, vrn)) == HASH_UNDEFINED_VALUE) {
            pips_debug(1, "Default function for %s is %s\n", vrn, pn);
 
            active_phase = true;
            hash_put(activated, vrn, pn);
 
            makefile_active_phases(pipsmakefile) =
        CONS(STRING, strdup(pn), makefile_active_phases(pipsmakefile));
    }
    else pips_debug(1, "Function %s not activated\n", pn);
  }
 
  // Check resources required for this rule if it is an active one
  if (active_phase) {
    FOREACH(VIRTUAL_RESOURCE, vr, rule_required(r)) {
            string vrn = virtual_resource_name(vr);
            owner vro = virtual_resource_owner(vr);
            string phase;
 
            // We must use a resource already defined
            if ( owner_callers_p(vro) || owner_callees_p(vro) ) {}
            else {
        phase = hash_get(activated, vrn);
        if (phase == HASH_UNDEFINED_VALUE)
        {
          if (get_bool_property("PIPSMAKE_WARNINGS"))
            pips_user_warning(
              "%s: phase %s requires an undefined resource %s\n",
              PIPSMAKE_RC, pn, vrn);
        }
        // If we use a resource, another function should have produced it
        else if (strcmp(phase, pn) == 0) {
          pips_internal_error(
            "%s: phase %s cannot be active for the %s resource\n",
            PIPSMAKE_RC, phase, vrn);
        }
        else
          pips_debug(1, "Required resource %s is checked OK for Function %s\n",
                     vrn, pn);
            }
    }
  }
 
  // FI: no check of rule name unicity; e.g. double declaration of sesamify
  rule or = find_rule_by_phase(rule_phase(r));
  if(rule_undefined_p(or))
    makefile_rules(pipsmakefile) = gen_nconc(makefile_rules(pipsmakefile),
                                             CONS(RULE, r, NIL));
  else
    pips_internal_error("Double declaration of phase \"%s\"\n"
                        "Check pipsmake-rc.tex or pipsmake.rc\n",
                        rule_phase(r));
}

References activated, CONS, find_rule_by_phase(), FOREACH, gen_nconc(), get_bool_property(), hash_get(), hash_put(), HASH_UNDEFINED_VALUE, makefile_active_phases, makefile_rules, NIL, owner_callees_p, owner_callers_p, pips_debug, pips_internal_error, pips_user_warning, pipsmakefile, RULE, rule_phase, rule_produced, rule_required, rule_undefined_p, strdup(), STRING, VIRTUAL_RESOURCE, virtual_resource_name, and virtual_resource_owner.

Here is the call graph for this function:

close_makefile()

bool close_makefile

(

const char *

name

)

Parameters

name

ame

Definition at line 1812 of file readmakefile.c.

{
    save_makefile(name);
    free_makefile(pipsmakefile), pipsmakefile = makefile_undefined;
    return true;
}

References free_makefile(), makefile_undefined, pipsmakefile, and save_makefile().

Referenced by check_delete_workspace(), and make_close_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

find_rule_by_phase()

rule find_rule_by_phase

(

const char *

pname

)

this function returns the rule that defines builder pname

walking thru rules

Parameters

pname

name

Definition at line 1686 of file readmakefile.c.

{
  rule fr = rule_undefined;
  makefile m = parse_makefile();
 
  pips_debug(9, "searching rule for phase %s\n", pname);
 
  /* walking thru rules */
  FOREACH(RULE, r, makefile_rules(m)) {
    if (same_string_p(rule_phase(r), pname)) {
      fr = r;
      break;
    }
  }
 
  return fr;
}

References FOREACH, makefile_rules, parse_makefile(), pips_debug, RULE, rule_phase, rule_undefined, and same_string_p.

Referenced by activate_phase(), apply_without_reseting_up_to_date_resources(), concurrent_apply(), get_more_derived_resources(), safe_apply(), and safe_concurrent_apply().

Here is the call graph for this function:

Here is the caller graph for this function:

fprint_makefile()

void fprint_makefile	(	FILE *	fd,
		makefile	m
	)

Parameters

fd

d

Definition at line 1649 of file readmakefile.c.

{
  FOREACH(RULE, r, makefile_rules(m))
  {
    fprintf(fd, "%s\n", rule_phase(r));
    fprint_virtual_resources(fd, "\t!", rule_pre_transformation(r));
    fprint_virtual_resources(fd, "\t<", rule_required(r));
    fprint_virtual_resources(fd, "\t>", rule_produced(r));
    fprint_virtual_resources(fd, "\t=", rule_preserved(r));
    fprint_virtual_resources(fd, "\t#", rule_modified(r));
  }
}

References FOREACH, fprint_virtual_resources(), fprintf(), makefile_rules, RULE, rule_modified, rule_phase, rule_pre_transformation, rule_preserved, rule_produced, and rule_required.

Here is the call graph for this function:

fprint_virtual_resources()

void fprint_virtual_resources	(	FILE *	fd,
		const char *	dir,
		list	lrv
	)

Parameters

fd	d
dir	ir
lrv	rv

Definition at line 1611 of file readmakefile.c.

{
  FOREACH(VIRTUAL_RESOURCE, vr, lrv)
  {
    owner o = virtual_resource_owner(vr);
    string n = virtual_resource_name(vr);
 
    switch (owner_tag(o)) {
    case is_owner_program:
            fprintf(fd, "    %s program.%s\n", dir, n);
            break;
    case is_owner_module:
            fprintf(fd, "    %s module.%s\n", dir, n);
            break;
    case is_owner_main:
            fprintf(fd, "    %s main.%s\n", dir, n);
            break;
    case is_owner_callees:
            fprintf(fd, "    %s callees.%s\n", dir, n);
            break;
    case is_owner_callers:
            fprintf(fd, "    %s callers.%s\n", dir, n);
            break;
    case is_owner_all:
            fprintf(fd, "    %s all.%s\n", dir, n);
            break;
    case is_owner_select:
            fprintf(fd, "    %s select.%s\n", dir, n);
            break;
    case is_owner_compilation_unit:
            fprintf(fd, "    %s compilation_unit.%s\n", dir, n);
            break;
    default:
            pips_internal_error("bad owner tag (%d)\n", owner_tag(o));
    }
  }
}

References FOREACH, fprintf(), is_owner_all, is_owner_callees, is_owner_callers, is_owner_compilation_unit, is_owner_main, is_owner_module, is_owner_program, is_owner_select, owner_tag, pips_internal_error, VIRTUAL_RESOURCE, virtual_resource_name, and virtual_resource_owner.

Here is the call graph for this function:

init_lex()

int init_lex

(

void

)

Referenced by parse_makefile().

Here is the caller graph for this function:

open_makefile()

makefile open_makefile

(

const char *

name

)

Parameters

name

ame

Definition at line 1770 of file readmakefile.c.

{
    FILE * fd;
    char * mkf_name;
 
    mkf_name = build_pgm_makefile(name);
    fd = fopen(mkf_name, "r");
 
    if (!makefile_undefined_p(pipsmakefile))
    {
      free_makefile(pipsmakefile);
      pipsmakefile = makefile_undefined;
      pips_debug(1, "current makefile erased\n");
    }
 
    if (fd)
    {
      pipsmakefile = read_makefile(fd);
      safe_fclose(fd, mkf_name);
    }
    else
    {
      pips_user_warning("pipsmake file not found in database...\n");
      pipsmakefile = parse_makefile();
    }
 
    free(mkf_name);
    return pipsmakefile;
}

References build_pgm_makefile(), free(), free_makefile(), makefile_undefined, makefile_undefined_p, parse_makefile(), pips_debug, pips_user_warning, pipsmakefile, read_makefile(), and safe_fclose().

Referenced by make_open_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

parse_makefile()

makefile parse_makefile

(

void

)

Definition at line 1663 of file readmakefile.c.

{
  // do it only once
  if (pipsmakefile == makefile_undefined)
  {
    debug_on("PIPSMAKE_DEBUG_LEVEL");
 
    pipsmake_in = fopen_config(PIPSMAKE_RC, NULL, "PIPS_PIPSMAKERC");
 
    init_lex();
    yyparse();
    safe_fclose(pipsmake_in, "PIPS_PIPSMAKERC");
 
    ifdebug(8) fprint_makefile(stderr, pipsmakefile);
 
    debug_off();
  }
 
  return pipsmakefile;
}

References debug_off, debug_on, fopen_config(), fprint_makefile(), ifdebug, init_lex(), makefile_undefined, pipsmake_in, pipsmakefile, safe_fclose(), and yyparse.

Referenced by activate_phase(), active_phase_p(), build_options_menu_and_panel(), find_rule_by_resource(), fprint_activated(), get_more_derived_resources(), open_module_if_unique(), retrieve_active_phases(), and save_active_phases().

Here is the call graph for this function:

Here is the caller graph for this function:

pipsmake_error()

void pipsmake_error

(

const char *

)

symbols exported by lex / yacc

pipsmake_lex()

int pipsmake_lex

(

void

)

pipsmake_parse()

int pipsmake_parse

(

void

)

save_makefile()

void save_makefile

(

const char *

name

)

Parameters

name

ame

Definition at line 1801 of file readmakefile.c.

{
    char * mkf_name = build_pgm_makefile(name);
    FILE * fd = safe_fopen(mkf_name, "w");
    write_makefile(fd, pipsmakefile);
    safe_fclose(fd, mkf_name);
    pips_debug(1, "makefile written on %s\n", mkf_name);
    free(mkf_name);
}

References build_pgm_makefile(), free(), pips_debug, pipsmakefile, safe_fclose(), safe_fopen(), and write_makefile().

Referenced by checkpoint_workspace().

Here is the call graph for this function:

Here is the caller graph for this function:

yyerror()

void yyerror

(

const char *

s

)

work around cproto 4.7t issue

symbols from readmakefile.y

work around cproto 4.7t issue

Definition at line 1927 of file genread_yacc.c.

{
  int c, n=40;
  newgen_lexer_position(stderr);
  fprintf(stderr, "%s before ", s);
 
  while (n-->0  && ((c=genread_input()) != EOF))
    putc(c, stderr);
 
  fprintf(stderr, "\n\n");
 
  fatal("Incorrect object written by GEN_WRITE\n", (char *) NULL);
}

yyerror_lex_part()

void yyerror_lex_part

(

const char *

)

yywrap()

int yywrap

(

void

)

symbols form lexer.l

Variable Documentation

pipsmake_in

FILE * pipsmake_in

extern

Definition at line 142 of file pipsmake.h.

Referenced by parse_makefile(), and yyerror().