C++ (Cpp) vt_pform_gdir示例

示例#1

文件： vt_env.c 项目： gzt200361/ThirdParty-2.0.0

char* vt_env_gdir()
{
  static char* gdir = NULL;
  char* tmp;

  if (! gdir)
    {
      tmp = getenv("VT_PFORM_GDIR");
      if (tmp != NULL && strlen(tmp) > 0)
        {
          gdir = replace_vars(tmp);
        }
      else
        {
          gdir = replace_vars(vt_pform_gdir());
        } 
    }
  return gdir;
}

示例#2

文件： vt_env.c 项目： hpc/cce-mpi-openmpi-1.7.1

char* vt_env_gdir()
{
  static char* gdir = NULL;
  char* tmp;

  if (! gdir)
    {
      tmp = getenv("VT_PFORM_GDIR");
      if (tmp != NULL && strlen(tmp) > 0)
        {
          vt_cntl_msg(2, "VT_PFORM_GDIR=%s", tmp);

          gdir = replace_vars(tmp);
        }
      else
        {
          gdir = replace_vars(vt_pform_gdir());
        }

#if defined(VT_IOFSL)
      if (vt_env_iofsl_servers())
      {
        char* gdir_abs = realpath(gdir, NULL);
        if (gdir_abs == NULL)
          {
            vt_error_msg("Could not retrieve the absolute path of %s:",
                         gdir, strerror(errno));
          }
        else
          {
            gdir = gdir_abs;
          }
      }
#endif /* VT_IOFSL */
    }
  return gdir;
}