/*

  $Id$

  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);
}