pips.h File Reference

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

Go to the source code of this file.

Functions
int	pips_main (int, char **)
	Warning! Do not modify this file that is automatically generated! More...

Function Documentation

pips_main()

int pips_main	(	int	argc,
		char **	argv
	)

Warning! Do not modify this file that is automatically generated!

Modify src/Libs/pips/pips-local.h instead, to add your own modifications. header file built by cproto pips-local.h cproto-generated files pips.c

Parameters

argc	rgc
argv	rgv

Definition at line 160 of file pips.c.

{
  volatile bool success = true;
  pips_checks();
  set_pips_meta_informations(soft_revisions, soft_date, cc_version);
 
  initialize_newgen();
  initialize_sc((char*(*)(Variable)) entity_local_name);
  set_exception_callbacks(push_pips_context, pop_pips_context);
 
  pips_parse_arguments(argc, argv);
 
  debug_on("PIPS_DEBUG_LEVEL");
  initialize_signal_catcher();
 
  CATCH(any_exception_error)
  {
    // no need to pop_pips_context() at top-level
    // FI: are you sure make_close_program() cannot call user_error() ?
    close_workspace(true);
    success = false;
  }
  TRY
  {
    // Initialize workspace
    if (gen_array_nitems(source_files)>0) {
            if(db_create_workspace(wspace)) {
        create_workspace(source_files);
            }
            else {
        user_log("Cannot create workspace %s!\n", wspace);
        exit(1);
            }
    } else {
            // Workspace must be opened
            if (!open_workspace(wspace)) {
        user_log("Cannot open workspace %s!\n", wspace);
        exit(1);
            }
    }
 
    // Open module
    if (module != NULL)
            open_module(module);
    else
            open_module_if_unique();
 
    // Activate rules
    if (success && selected_rules)
    {
      FOREACH(STRING, r, selected_rules) select_rule(r);
    }
 
    // Perform applies
    if (success && performed_rule && module)
    {
            success = safe_apply(performed_rule, module);
            if (success) {
        user_log("%s performed for %s.\n", performed_rule, module);
            }
            else {
        user_log("Cannot perform %s for %s.\n", performed_rule, module);
            }
    }
 
    // Build resources
    if (success && build_resource_names && module)
    {
            FOREACH(STRING, build_resource_name, build_resource_names)
      {
        success = safe_make(build_resource_name, module);
        if (!success)
        {
          user_log("Cannot build %s for %s.\n", build_resource_name, module);
          break;
        }
      }
    }
    // whether success or not...
    close_workspace(true);
 
    UNCATCH(any_exception_error);
  }
 
  debug_off();
 
  return !success;
}