tpips.h File Reference

This graph shows which files directly or indirectly include this file:

Go to the source code of this file.

Data Structures
struct	res_or_rule
	Storage for arguments of tpips commands. More...

Macros
#define	TPIPS_PRIMARY_PROMPT   "tpips> " /**prompt for readline */
#define	TPIPS_REQUEST_PROMPT   "tpips-request> "
#define	TPIPS_SECONDARY_PROMPT   "> "
#define	TPIPS_CONTINUATION_CHAR   '\\'
#define	TPIPS_HISTENV   "TPIPS_HISTORY" /**history file env variable */
#define	TPIPS_HISTORY_LENGTH   100 /**max length of history file */
#define	TPIPS_COMMENT_PREFIX   '#' /**comment prefix */
#define	TPIPS_HISTORY   ".tpips.history" /**default history file */
#define	SHELL_ESCAPE   "shell" /**! used for history reference */
#define	CHANGE_DIR   "cd"
#define	TPIPS_SOURCE   "source"
#define	SET_ENV   "setenv"
#define	GET_ENV   "getenv"
#define	SET_PROP   "setproperty"
#define	GET_PROP   "getproperty"
#define	QUIT   "quit"
#define	HELP   "help"
#define	ECHO_N   "echo"
	macro ECHO is reserved by flex More...
#define	skip_blanks(str)    while (*str && (*str==' ' || *str=='\t' || *str=='\n')) str++

Functions
int	tp_lex ()
int	tp_parse ()
void	tp_error ()
void	tp_init_lex ()
void	tp_begin_key ()
void	tp_begin_fname ()
string	tpips_current_file_name (void)
int	tpips_current_line_number (void)
void	tpips_next_line (void)
int	tpips_current_line (void)
string	tpips_current_name (void)
bool	tpips_behaves_like_a_shell (void)
FILE *	jpips_out_file (void)
void	jpips_begin_tag (string)
void	jpips_add_tag (string)
void	jpips_end_tag (void)
void	jpips_tag (string)
void	jpips_tag2 (string, string)
void	jpips_done (void)
void	jpips_string (const char *, va_list)
void	jpips_printf (const string,...)
char **	get_module_names (void)
	Build an array with the names of all available modules. More...
void	tpips_internal_error (const char *, const char *,...)
void	tpips_help (string)
void	tpips_close (void)
void	tpips_init (void)
void	tpips_process_a_file (FILE *, string, bool)
	processing command line per line. More...
int	tpips_main (int, char *[])
	MAIN: interactive loop and history management. More...
bool	phase_name_p (string)
bool	resource_name_p (string)
bool	property_name_p (string)
void	tpips_wrapper (void)
	wrapper.c More...
void	tpips_set_line_to_parse (char *)
	in lex file More...
char *	tpips_get_line_to_parse (void)
void	tpips_lex_print_pos (FILE *)
void	tp_restart (FILE *)
void	tp_pop_buffer_state (void)
int	tp_get_lineno (void)
FILE *	tp_get_in (void)
FILE *	tp_get_out (void)
int	tp_get_leng (void)
char *	tp_get_text (void)
void	tp_set_lineno (int)
void	tp_set_in (FILE *)
void	tp_set_out (FILE *)
int	tp_get_debug (void)
void	tp_set_debug (int)
int	tp_lex_destroy (void)
void *	tp_alloc (yy_size_t)
void *	tp_realloc (void *, yy_size_t)
void	tp_free (void *)
int	tp_wrap (void)
void	tp_error (const char *)

Variables
FILE *	tp_in
bool	tpips_execution_mode
	cproto-generated files More...
bool	tpips_is_interactive
bool	jpips_is_running
bool	tpips_init_done
	variable globale, utilisee par le parser helas More...
bool	consistency_enforced_p
	Pipsmake does not enforce consistency when properties are changed. More...
int	tp_char
	revisions.c More...
int	tp_nerrs
int	tp_leng
	tp_lex.c More...
FILE *	tp_out
int	tp_lineno
int	tp__flex_debug
char *	tp_text
string	tpips_unknown_string

Macro Definition Documentation

CHANGE_DIR

#define CHANGE_DIR   "cd"

Definition at line 65 of file tpips.h.

ECHO_N

#define ECHO_N   "echo"

macro ECHO is reserved by flex

Definition at line 77 of file tpips.h.

GET_ENV

#define GET_ENV   "getenv"

Definition at line 69 of file tpips.h.

GET_PROP

#define GET_PROP   "getproperty"

Definition at line 72 of file tpips.h.

HELP

#define HELP   "help"

Definition at line 75 of file tpips.h.

QUIT

#define QUIT   "quit"

Definition at line 74 of file tpips.h.

SET_ENV

#define SET_ENV   "setenv"

Definition at line 68 of file tpips.h.

SET_PROP

#define SET_PROP   "setproperty"

Definition at line 71 of file tpips.h.

SHELL_ESCAPE

#define SHELL_ESCAPE   "shell" /**! used for history reference */

Definition at line 64 of file tpips.h.

skip_blanks

#define skip_blanks

(

str

)

while (*str && (*str==' ' || *str=='\t' || *str=='\n')) str++

Definition at line 79 of file tpips.h.

TPIPS_COMMENT_PREFIX

#define TPIPS_COMMENT_PREFIX   '#' /**comment prefix */

Definition at line 61 of file tpips.h.

TPIPS_CONTINUATION_CHAR

#define TPIPS_CONTINUATION_CHAR   '\\'

Definition at line 57 of file tpips.h.

TPIPS_HISTENV

#define TPIPS_HISTENV   "TPIPS_HISTORY" /**history file env variable */

Definition at line 59 of file tpips.h.

TPIPS_HISTORY

#define TPIPS_HISTORY   ".tpips.history" /**default history file */

Definition at line 62 of file tpips.h.

TPIPS_HISTORY_LENGTH

#define TPIPS_HISTORY_LENGTH   100 /**max length of history file */

Definition at line 60 of file tpips.h.

TPIPS_PRIMARY_PROMPT

#define TPIPS_PRIMARY_PROMPT   "tpips> " /**prompt for readline */

Definition at line 54 of file tpips.h.

TPIPS_REQUEST_PROMPT

#define TPIPS_REQUEST_PROMPT   "tpips-request> "

Definition at line 55 of file tpips.h.

TPIPS_SECONDARY_PROMPT

#define TPIPS_SECONDARY_PROMPT   "> "

Definition at line 56 of file tpips.h.

TPIPS_SOURCE

#define TPIPS_SOURCE   "source"

Definition at line 66 of file tpips.h.

Function Documentation

get_module_names()

char** get_module_names

(

void

)

Build an array with the names of all available modules.

Free after a previous use:

By default, no available module:

Mainly inspired from wpips/emacs.c

Overkilling since most of time, the module list does not change but I guess there is no indicator in PIPS to tell some modules have been created or destroyed.

Note that since calloc initialize the memory to 0, this array will end with a NULL pointer as expected.

Definition at line 332 of file tpips.c.

{
  static char **names = NULL;
  static gen_array_t modules = NULL;
 
  if (names != NULL) {
    /* Free after a previous use: */
    free(names);
    gen_array_full_free(modules);
    /* By default, no available module: */
    names = NULL;
  }
 
  /* Mainly inspired from wpips/emacs.c
 
     Overkilling since most of time, the module list does not change but I
     guess there is no indicator in PIPS to tell some modules have been
     created or destroyed. */
  if (db_get_current_workspace_name() != NULL) {
    int module_list_length, i;
    modules = db_get_module_list();
    module_list_length = gen_array_nitems(modules);
    /* Note that since calloc initialize the memory to 0, this array will
       end with a NULL pointer as expected. */
    names = calloc(module_list_length + 1, sizeof(char *));
    for(i = 0; i < module_list_length; i++)
      names[i] = gen_array_item(modules, i);
  }
  return names;
}

References db_get_current_workspace_name(), db_get_module_list(), free(), gen_array_full_free(), gen_array_item(), and gen_array_nitems().

Referenced by param_generator().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_add_tag()

void jpips_add_tag

(

string

s

)

Definition at line 192 of file tpips.c.

{
  fprintf(out_to_jpips, " %s", s);
}

References fprintf(), and out_to_jpips.

Referenced by jpips_tag2(), and tp_some_info().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_begin_tag()

void jpips_begin_tag

(

string

s

)

Definition at line 187 of file tpips.c.

{
  fprintf(out_to_jpips, JPIPS_TAG " %s", s);
}

References fprintf(), JPIPS_TAG, and out_to_jpips.

Referenced by jpips_tag(), jpips_tag2(), and tp_some_info().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_done()

void jpips_done

(

void

)

Definition at line 216 of file tpips.c.

{
  jpips_tag("done");
}

References jpips_tag().

Referenced by tpips_process_a_file().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_end_tag()

void jpips_end_tag

(

void

)

Definition at line 197 of file tpips.c.

{
  fprintf(out_to_jpips, "\n");
  fflush(out_to_jpips);
}

References fprintf(), and out_to_jpips.

Referenced by jpips_tag(), jpips_tag2(), and tp_some_info().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_out_file()

FILE* jpips_out_file

(

void

)

Definition at line 182 of file tpips.c.

{
  return out_to_jpips;
}

References out_to_jpips.

jpips_printf()

void jpips_printf	(	const	string,
			...
	)

Parameters

string

ormat

Definition at line 229 of file tpips.c.

{
  va_list some_arguments;
  va_start(some_arguments, format);
  (void) vfprintf(out_to_jpips, format, some_arguments);
  va_end(some_arguments);
}

References out_to_jpips.

Referenced by tpips_user_error(), and tpips_user_request().

Here is the caller graph for this function:

jpips_string()

void jpips_string	(	const char *	a_message_format,
		va_list	some_arguments
	)

Parameters

a_message_format	_message_format
some_arguments	ome_arguments

Definition at line 221 of file tpips.c.

{
  vfprintf(out_to_jpips, a_message_format, some_arguments);
  fflush(out_to_jpips);
}

References out_to_jpips.

Referenced by tpips_user_error(), and tpips_user_request().

Here is the caller graph for this function:

jpips_tag()

void jpips_tag

(

string

s

)

Definition at line 203 of file tpips.c.

{
  jpips_begin_tag(s);
  jpips_end_tag();
}

References jpips_begin_tag(), and jpips_end_tag().

Referenced by jpips_done(), tpips_user_error(), and tpips_user_request().

Here is the call graph for this function:

Here is the caller graph for this function:

jpips_tag2()

void jpips_tag2	(	string	s1,
		string	s2
	)

Parameters

s1	1
s2	2

Definition at line 209 of file tpips.c.

{
  jpips_begin_tag(s1);
  jpips_add_tag(s2);
  jpips_end_tag();
}

References jpips_add_tag(), jpips_begin_tag(), jpips_end_tag(), and s1.

Referenced by display_a_resource(), and tp_some_info().

Here is the call graph for this function:

Here is the caller graph for this function:

phase_name_p()

bool phase_name_p

(

string

)

property_name_p()

bool property_name_p

(

string

)

resource_name_p()

bool resource_name_p

(

string

)

tp_alloc()

void* tp_alloc

(

yy_size_t

)

tp_begin_fname()

void tp_begin_fname

(

)

tp_begin_key()

void tp_begin_key

(

)

tp_error() [1/2]

void tp_error

(

)

tp_error() [2/2]

void tp_error

(

const char *

)

tp_free()

void tp_free

(

void *

)

tp_get_debug()

int tp_get_debug

(

void

)

tp_get_in()

FILE* tp_get_in

(

void

)

tp_get_leng()

int tp_get_leng

(

void

)

tp_get_lineno()

int tp_get_lineno

(

void

)

tp_get_out()

FILE* tp_get_out

(

void

)

tp_get_text()

char* tp_get_text

(

void

)

tp_init_lex()

void tp_init_lex

(

)

tp_lex()

int tp_lex

(

)

tp_lex_destroy()

int tp_lex_destroy

(

void

)

tp_parse()

int tp_parse

(

)

tp_pop_buffer_state()

void tp_pop_buffer_state

(

void

)

tp_realloc()

void* tp_realloc	(	void *	,
		yy_size_t
	)

tp_restart()

void tp_restart

(

FILE *

)

tp_set_debug()

void tp_set_debug

(

int

)

tp_set_in()

void tp_set_in

(

FILE *

)

tp_set_lineno()

void tp_set_lineno

(

int

)

tp_set_out()

void tp_set_out

(

FILE *

)

tp_wrap()

int tp_wrap

(

void

)

tpips_behaves_like_a_shell()

bool tpips_behaves_like_a_shell

(

void

)

Definition at line 143 of file tpips.c.

{
  return tpips_is_a_shell || get_bool_property(TPIPS_IS_A_SHELL) ||
    string_is_true(getenv(TPIPS_IS_A_SHELL));
}

References get_bool_property(), string_is_true(), tpips_is_a_shell, and TPIPS_IS_A_SHELL.

Here is the call graph for this function:

tpips_close()

void tpips_close

(

void

)

Definition at line 868 of file tpips.c.

{
  // close history: truncate list and write history file
  if (use_readline)
  {
    char *file_name = default_hist_file_name();
    stifle_history(TPIPS_HISTORY_LENGTH);
    write_history(file_name);
  }
 
  close_workspace_if_opened(true);
 
  if (logfile) {
    safe_fclose (logfile, "the log file");
    logfile = NULL;
  }
 
  // do not close yet!
  //close_xml_logfile();
}

References close_workspace_if_opened(), default_hist_file_name(), file_name, logfile, safe_fclose(), TPIPS_HISTORY_LENGTH, and use_readline.

Referenced by tpips_exec(), and tpips_main().

Here is the call graph for this function:

Here is the caller graph for this function:

tpips_current_file_name()

string tpips_current_file_name

(

void

)

Definition at line 76 of file tpips.c.

{
  return current_name;
}

References current_name.

tpips_current_line()

int tpips_current_line

(

void

)

Definition at line 91 of file tpips.c.

{
  return current_line;
}

References current_line.

Referenced by tpips_lex_print_pos().

Here is the caller graph for this function:

tpips_current_line_number()

int tpips_current_line_number

(

void

)

Definition at line 81 of file tpips.c.

{
  return current_line;
}

References current_line.

tpips_current_name()

string tpips_current_name

(

void

)

Definition at line 96 of file tpips.c.

{
  return current_name;
}

References current_name.

Referenced by tpips_lex_print_pos().

Here is the caller graph for this function:

tpips_get_line_to_parse()

char* tpips_get_line_to_parse

(

void

)

Definition at line 961 of file tp_lex.c.

{
  return line_to_parse;
}

References line_to_parse.

tpips_help()

void tpips_help

(

string

line

)

get the number of colunms for 80 chars

get the number of colunms for 80 chars

Parameters

line

ine

Definition at line 688 of file tpips.c.

{
  skip_blanks(line);
 
  printf("\n");
  TP_HELP("readline", "* readline interaction facilities\n",
          "\ttry <tab><tab> for automatic completion\n"
          "\temacs-tyle editing capabilities (see man readline)\n");
  TP_HELP("create", "create   <workspace-name> <file-name>...\n",
          "\tcreate a new worspace from a list of fortran files\n"
          "\tfirst delete the workspace if it exists\n");
  TP_HELP("open", "open     <workspace-name>\n",
          "\topen an existing workspace\n");
  TP_HELP("checkactive", "checkactive <resourcename>\n",
          "\ttell which phase would produce this resource.\n");
  TP_HELP("checkpoint", "checkpoint\n",
          "\tcheckpoint the current workspace\n");
  TP_HELP("close", "close\n",
          "\tclose the current opened workspace\n");
  TP_HELP("delete", "delete   <workspace-name>\n",
          "\tdelete an existing workspace\n");
  TP_HELP("module", "module   <module-name>\n",
          "\tselect a module from an opened workspace\n");
  TP_HELP("activate", "activate <rule-name>\n",
          "\ttell a rule to be active\n");
  TP_HELP("make", "make     <resourcename([OWNER])>\n",
          "\tbuild a resource\n"
          "\n\tExamples:\n\n"
          "\t\t make PRINTED_FILE\n"
          "\t\t make CALLGRAPH_FILE[my_module]\n"
          "\t\t make DG_FILE[%%ALL]\n"
          "\t\t make ICFG_FILE[%%CALLEES]\n\n");
  TP_HELP("apply", "apply    <rulename[(OWNER)]>\n",
          "\tmake the produced resources of a rule\n"
          "\n\tExamples:\n\n"
          "\t\t apply PRINT_SOURCE_WITH_REGIONS\n"
          "\t\t apply HPFC_CLOSE[my_module]\n"
          "\t\t apply PRINT_CODE[%%ALL]\n"
          "\t\t apply PRINT_ICFG[%%CALLEES]\n");
  TP_HELP("capply", "capply    <rulename[(OWNER)]>\n",
          "\tconcurrently apply a transformation rule\n"
          "\n\tExamples:\n\n"
          "\t\t apply SUPPRESS_DEAD_CODE[%%ALL]\n"
          "\t\t apply PARTIAL_EVAL[%%CALLEES]\n");
  TP_HELP("display", "display  <fileresourcename([OWNER])>\n",
          "\tprint a file resource\n"
          "\n\tExamples:\n\n"
          "\t\t display PRINTED_FILE\n"
          "\t\t display CALLGRAPH_FILE[my_module]\n"
          "\t\t display DG_FILE[%%ALL]\n"
          "\t\t display ICFG_FILE[%%CALLEES]\n\n");
  TP_HELP("remove", "remove  <resourcename([OWNER])>\n",
          "\tremove a resource from the database.\n");
  TP_HELP("cd", "cd       <dirname>\n",
          "\tchange directory\n");
  TP_HELP("pwd", "pwd\n", "\tprint current working directory\n");
  TP_HELP("setenv", "setenv    <name>=<value>\n",
          "\tchange environment\n");
  TP_HELP("unsetenv", "unsetenv    <name>\n",
          "\tremove variable from environment\n");
  TP_HELP("getenv", "getenv   <name>\n",
          "\tprint from environment (echo ${<name>} also ok)\n");
  TP_HELP("setproperty", "setproperty <name>=<value>\n",
          "\tchange property\n");
  TP_HELP(GET_PROP, GET_PROP " <name>\n",
          "\t print property\n");
  TP_HELP("echo", "echo     <string>\n",
          "\tprint the string\n");
  TP_HELP("quit", "quit\n",
          "\texit tpips (you should close the workspace before\n");
  TP_HELP("exit", "exit\n",
          "\texit tpips quickly (rhough!)\n");
  TP_HELP("source", "source <filenames...>\n",
          "\tread tpips commands from files.\n");
  TP_HELP("help", "help     (<help-item>)\n",
          "\tprint a list of all the commands or a \"detailled\""
          " description of one\n");
  TP_HELP("show", "show     <resourcename([OWNER])>\n",
          "\treturns the file of this resource\n");
  TP_HELP("timeout", "timeout <delay>\n",
          "\tset pips timeout in seconds\n");
  TP_HELP("info", "info <name>\n",
          "\tprint information about <name>\n"
          "\tname: module, modules, workspace, directory\n");
  TP_HELP("shell", "shell   [<shell-function>]\n",
          "\tallow shell functions call\n");
  TP_HELP("version", "version\n",
          "\tshow tpips version informations, such as:\n"
          "\t\trepository revisions used by the compilation\n"
          "\t\tdate of compilation\n"
          "\t\tcompiler used\n");
  TP_HELP("owner", "- owner : variable*\n",
          "\tList of available owners:\n"
          "\t\t%%MODULE\n"
          "\t\t%%ALL\n"
          "\t\t%%ALLFUNC\n"
          "\t\t%%PROGRAM\n"
          "\t\t%%CALLEES\n"
          "\t\t%%CALLERS\n"
          "\t\t<module_name>\n");
  TP_HELP("*", "* default rule...\n",
          "\tan implicit \"shell\" is assumed.\n");
 
  if (!*line || prefix_equal_p(line,"rulename") ||
      prefix_equal_p(line,"rule")) {
    printf("* rulename : variable*\n");
    if (*line) {
      char ** ps = tp_phase_names;
      int big_size = 0;
      int current_size;
      int columns, count;
 
      while (*ps) {
        current_size = strlen (*ps);
        if (big_size < current_size)
          big_size = current_size;
        ps++;
      }
      big_size++;
      /* get the number of colunms for 80 chars */
      columns = tgetnum ("co");
      pips_debug (1, "number of columns is %d\n", columns);
      columns = (columns > 0) ? columns /big_size : 1;
      count = 1;
      printf("\tList of available rules\n");
      ps = tp_phase_names;
      while (*ps)
      {
        printf("%-*s",big_size,*ps);
        if ((count % columns) == 0)
          printf("\n");
        ps++;
        count++;
      }
    }
  }
  if (!*line || prefix_equal_p(line,"resourcename") ||
      prefix_equal_p(line,"resource")) {
    printf("* resourcename : variable*\n");
    if (*line) {
      char ** ps = tp_resource_names;
      int big_size = 0;
      int current_size;
      int columns, count;
 
      while (*ps)
      {
        current_size = strlen (*ps);
        if (big_size < current_size)
          big_size = current_size;
        ps++;
      }
      /* get the number of colunms for 80 chars */
      columns = tgetnum ("co");
      big_size++;
      pips_debug (1, "number of columns is %d\n", columns);
      columns = (columns > 0) ? columns /big_size : 1;
      count = 1;
      printf("\tList of available resources\n");
      ps = tp_resource_names;
      while (*ps)
      {
        printf("%-*s",big_size,*ps);
        if ((count % columns) == 0)
          printf("\n");
        ps++;
        count++;
      }
    }
  }
  printf("\n");
  fflush(stdout);
}

References count, current_size, GET_PROP, line, pips_debug, prefix_equal_p(), printf(), skip_blanks, tgetnum(), TP_HELP, tp_phase_names, and tp_resource_names.

Here is the call graph for this function:

tpips_init()

void tpips_init

(

void

)

set_exception_callbacks(push_pips_context, pop_pips_context);

initialize_signal_catcher();

???

Definition at line 970 of file tpips.c.

{
  if (tpips_init_done) return;
 
  in_from_jpips = stdin;
  out_to_jpips = stdout;
 
  pips_checks();
 
  initialize_newgen();
  initialize_sc((char*(*)(Variable))entity_local_name);
  /* set_exception_callbacks(push_pips_context, pop_pips_context); */
  /* initialize_signal_catcher(); */
 
  set_bool_property("ABORT_ON_USER_ERROR", false); /* ??? */
  consistency_enforced_p = get_bool_property("CONSISTENCY_ENFORCED_P");
 
  pips_request_handler = tpips_user_request;
  pips_error_handler = tpips_user_error;
  pips_internal_error_handler = tpips_internal_error;
 
  tpips_init_done = true;
}

References consistency_enforced_p, entity_local_name(), get_bool_property(), in_from_jpips, initialize_newgen(), initialize_sc(), out_to_jpips, pips_checks(), pips_error_handler, pips_internal_error_handler, pips_request_handler, set_bool_property(), tpips_init_done, tpips_internal_error(), tpips_user_error(), and tpips_user_request().

Referenced by tp_substitutions(), and tpips_exec().

Here is the call graph for this function:

Here is the caller graph for this function:

tpips_internal_error()

void tpips_internal_error	(	const char *	,
		const char *	,
			...
	)

tpips_lex_print_pos()

void tpips_lex_print_pos

(

FILE *

fout

)

Parameters

fout

out

Definition at line 968 of file tp_lex.c.

{
  int shift = (int)((long) line_to_parse - (long)line_parsed) - back;
  fprintf(fout,
          "%s\n"
          "%*s^\n"
          "at line %d in \"%s\"\n", line_parsed, shift, "",
          tpips_current_line(), tpips_current_name());
}

References back, fprintf(), int, line_parsed, line_to_parse, tpips_current_line(), and tpips_current_name().

Here is the call graph for this function:

tpips_main()

int tpips_main	(	int	argc,
		char *	argv[]
	)

MAIN: interactive loop and history management.

I need this one right now, as tpips init may be called too late.

Parameters

argc	rgc
argv	rgv

Definition at line 1298 of file tpips.c.

{
  // what about initialize_sc?
  variable_debug_name = (char * (*)(Variable)) entity_local_name;
  debug_on("TPIPS_DEBUG_LEVEL");
  initialize_signal_catcher();
  /* I need this one right now, as tpips init may be called too late. */
  set_exception_callbacks(push_pips_context, pop_pips_context);
  set_pips_meta_informations(soft_revisions, soft_date, cc_version);
 
  {
    char *pid = NULL;
    asprintf(&pid, "PID=%d", (int) getpid());
    putenv(pid);
  }
 
  parse_arguments(argc, argv);
  fprintf(stdout, "\n");  // for Ctrl-D terminations
  tpips_close();
  pips_stop(info_log, 0, "tpips end of main");
  return 0; // not reached
}

References asprintf, cc_version, debug_on, entity_local_name(), fprintf(), info_log, initialize_signal_catcher(), parse_arguments(), pips_stop, pop_pips_context(), push_pips_context(), set_exception_callbacks(), set_pips_meta_informations(), soft_date, soft_revisions, tpips_close(), and variable_debug_name.

Here is the call graph for this function:

tpips_next_line()

void tpips_next_line

(

void

)

Definition at line 86 of file tpips.c.

{
  current_line++;
}

References current_line.

Referenced by get_next_line().

Here is the caller graph for this function:

tpips_process_a_file()

void tpips_process_a_file	(	FILE *	file,
		string	name,
		bool	use_rl
	)

processing command line per line.

might be called recursively thru source.

push globals

interactive loop

Parameters

file	ile
name	ame
use_rl	se_rl

Definition at line 1062 of file tpips.c.

{
  static bool readline_initialized = false;
  char * line;
 
  // PUSH
  FILE * saved_file = current_file;
  string saved_name = current_name;
  int saved_line = current_line;
  bool saved_use_rl = use_readline;
 
  /* push globals */
  current_file = file;
  current_name = name;
  current_line = 0;
  use_readline = use_rl;
 
  if (use_readline && !readline_initialized)
  {
    initialize_readline();
    initialize_tpips_history();
    readline_initialized = true;
  }
 
  /* interactive loop
   */
  while ((line = tpips_read_a_line(TPIPS_PRIMARY_PROMPT)))
  {
    tpips_exec(line);
    free(line);
    if (jpips_is_running && file==stdin) jpips_done();
  }
 
  // POP
  current_file = saved_file;
  current_name = saved_name;
  current_line = saved_line;
  use_readline = saved_use_rl;
}

References current_file, current_line, current_name, free(), initialize_readline(), initialize_tpips_history(), jpips_done(), jpips_is_running, line, tpips_exec(), TPIPS_PRIMARY_PROMPT, tpips_read_a_line(), and use_readline.

Referenced by parse_arguments(), and process_file_list().

Here is the call graph for this function:

Here is the caller graph for this function:

tpips_set_line_to_parse()

void tpips_set_line_to_parse

(

char *

line

)

in lex file

store line pointer

Parameters

line

ine

Definition at line 953 of file tp_lex.c.

{
  skip_blanks(line);
  /* store line pointer */
  line_parsed = line_to_parse = line;
  cr_not_returned = true;
}

References cr_not_returned, line, line_parsed, line_to_parse, and skip_blanks.

tpips_wrapper()

void tpips_wrapper

(

void

)

wrapper.c

wrapper.c

the child is a new tpips, it keeps on executing... the parent just acts as a wrapper, it never returns from here.

CHILD is tpips and returns.

code for the WRAPPER starts here. the PARENT.

special handlers.

forward to tpips. how to ensure that tpips is alive? SIGCHLD and SIGPIPE are caught.

handle signals.

stop tpips on EOF.

wrapper mission done.

Definition at line 270 of file wrapper.c.

{
    char * line;
 
    tpips_pid = tpw_fork_inout();
 
    /* the child is a new tpips, it keeps on executing...
     * the parent just acts as a wrapper, it never returns from here.
     */
    if (tpips_pid==0) return; /* CHILD is tpips and returns. */
 
    /* code for the WRAPPER starts here. the PARENT.
     */
 
    /* special handlers.
     */
    tpw_set_sig_handlers();
 
    while ((line = tpw_read_line(stdin)))
    {
        /* forward to tpips.
         * how to ensure that tpips is alive?
         * SIGCHLD and SIGPIPE are caught.
         */
        tpw_send_string_to_tpips(line);
 
        /* handle signals.
         */
        if (starts_with(line, SIGNAL_TAG))
        {
            line += strlen(SIGNAL_TAG);
 
            if (starts_with(line, CHECKPOINT)) {
                KILL(tpips_pid, SIGUSR1);
            } else if (starts_with(line, INTERRUPT)) {
                KILL(tpips_pid, SIGINT);
            } else if (starts_with(line, ABORTIT)) {
                KILL(tpips_pid, SIGABRT);
            } else if (starts_with(line, KILLNOW)) {
                KILL(tpips_pid, SIGUSR2);
            } else {
                tpw_fatal_error(line);
            }
        }
    }
 
    /* stop tpips on EOF.
     */
    tpw_log("exiting...");
    fputs("exit\n", stdout);
    fclose(stdout);
    KILL(tpips_pid, SIGKILL);
 
    exit(0); /* wrapper mission done. */
}

References ABORTIT, CHECKPOINT, exit, INTERRUPT, KILL, KILLNOW, line, SIGNAL_TAG, starts_with, tpips_pid, tpw_fatal_error(), tpw_fork_inout(), tpw_log(), tpw_read_line(), tpw_send_string_to_tpips(), and tpw_set_sig_handlers().

Referenced by parse_arguments().

Here is the call graph for this function:

Here is the caller graph for this function:

Variable Documentation

consistency_enforced_p

bool consistency_enforced_p

extern

Pipsmake does not enforce consistency when properties are changed.

The consistency can be enforced by forbidding setproperty during a processing phase.

Definition at line 968 of file tpips.c.

Referenced by tpips_init().

jpips_is_running

bool jpips_is_running

extern

Definition at line 97 of file tpips.h.

Referenced by parse_arguments(), tpips_process_a_file(), tpips_user_error(), and tpips_user_request().

tp__flex_debug

int tp__flex_debug

extern

tp_char

int tp_char

extern

revisions.c

tp_yacc.c

tp_in

FILE* tp_in

extern

Definition at line 128 of file tpips.h.

tp_leng

int tp_leng

extern

tp_lex.c

tp_lineno

int tp_lineno

extern

tp_nerrs

int tp_nerrs

extern

tp_out

FILE* tp_out

extern

tp_text

char* tp_text

extern

tpips_execution_mode

bool tpips_execution_mode

extern

cproto-generated files

tpips.c

cproto-generated files

Definition at line 89 of file tpips.h.

Referenced by parse_arguments().

tpips_init_done

bool tpips_init_done

extern

variable globale, utilisee par le parser helas

Definition at line 111 of file tpips.h.

Referenced by tpips_exec(), and tpips_init().

tpips_is_interactive

bool tpips_is_interactive

extern

Definition at line 90 of file tpips.h.

Referenced by parse_arguments().

tpips_unknown_string

string tpips_unknown_string

extern

Definition at line 948 of file tp_lex.c.