view.c

Go to the documentation of this file.

/*
 
  $Id: view.c 23065 2016-03-02 09:05:50Z coelho $
 
  Copyright 1989-2016 MINES ParisTech
 
  This file is part of PIPS.
 
  PIPS is free software: you can redistribute it and/or modify it
  under the terms of the GNU General Public License as published by
  the Free Software Foundation, either version 3 of the License, or
  any later version.
 
  PIPS is distributed in the hope that it will be useful, but WITHOUT ANY
  WARRANTY; without even the implied warranty of MERCHANTABILITY or
  FITNESS FOR A PARTICULAR PURPOSE.
 
  See the GNU General Public License for more details.
 
  You should have received a copy of the GNU General Public License
  along with PIPS.  If not, see <http://www.gnu.org/licenses/>.
 
*/
#ifdef HAVE_CONFIG_H
    #include "pips_config.h"
#endif
 
#include <stdlib.h>
#include <stdio.h>
#include <string.h>
 
#include <dirent.h>
 
#include <sys/stat.h>
#include <ctype.h>
#include <setjmp.h>
#include <unistd.h>
#include <errno.h>
 
#include "linear.h"
#include "genC.h"
 
#include "misc.h"
#include "ri-util.h"
 
#include "pipsdbm.h"
#include "pipsmake.h" // safe_make()
 
#include "top-level.h"
 
/* returns the allocated full path name.
 * the database is added if it is relative...
 */
static string get_view_file(const char* print_type, bool displayable)
{
    const char* module_name = db_get_current_module_name();
 
   if(displayable && !displayable_file_p(print_type)) {
       pips_user_error("resource %s cannot be displayed\n", print_type);
   }
 
   if (module_name != NULL)
   {
      if (safe_make(print_type, module_name)) 
      {
         string file_name = 
             db_get_file_resource(print_type, module_name, true);
 
         if (file_name[0]!='.' && file_name[0]!='/')
         {
             /* the file name is relative to the database.
              * thus the workspace directory name is prefixed.
              */
             string pgm_wd, file_name_in_database;
 
             pgm_wd = build_pgmwd(db_get_current_workspace_name());
             file_name_in_database = 
                 strdup(concatenate(pgm_wd, "/", file_name, NULL));
 
             free(pgm_wd); 
             return file_name_in_database;
         }
         else
         {
             /* it is relative to pips pwd, or absolute. */
             return strdup(file_name);
         }
      }
   }
   else {
      /* should be show_message */
      user_log("No current module; select a module\n");
   }
   return NULL;
}
 
string build_view_file(const char* print_type)
{
    return get_view_file(print_type, true);
}
 
string get_dont_build_view_file(const char* print_type)
{
    return get_view_file(print_type, false);
}