cluni0.c File Reference

#include <stdio.h>
#include <string.h>
#include "core_math.h"
#include "Os_specific.h"

Include dependency graph for cluni0.c:

Go to the source code of this file.

Defines
#define	MAX_ENV   256
Functions
void GetenvB	__PARAMS ((char *name, char *env, int len))
static int Cluni0	__PARAMS ((char *env, char **alias, char *in_name, char *out_name, long int lin))
int C2F()	cluni0 (char *in_name, char *out_name, int *out_n, long int lin, long int lout)
void	GetenvB (char *name, char *env, int len)
static int	Cluni0 (char *env, char **alias, char *in_name, char *out_name, long int lin)
Variables
static char *	SCI_a [] = { "SCI/", "sci/", "$SCI", "SCI\\", "sci\\", (char *) 0 }
static char *	HOME_a [] = { "HOME/", "home/", "~/" , "HOME\\", "home\\", "~\\" ,"$HOME", (char *) 0}
static char *	TMP_a [] = { "TMPDIR/", "tmpdir/","TMPDIR\\", "tmpdir\\", "$TMPDIR", (char *) 0}
int	UpdateEnvVar
static int	n = 0

---

Define Documentation

#define MAX_ENV   256

Definition at line 8 of file cluni0.c.

---

Function Documentation

static int Cluni0 __PARAMS

(

(char *env, char **alias, char *in_name, char *out_name, long int lin)

)

[static]

void GetenvB __PARAMS

(

(char *name, char *env, int len)

)

static int Cluni0	(	char *	env,
		char **	alias,
		char *	in_name,
		char *	out_name,
		long int	lin
	)			[static]

Definition at line 83 of file cluni0.c.

References i.

Referenced by cluni0().

{
  int i=0;
  if ( env[0] == '\0' ) return(0);
  while ( alias[i] != (char *) 0) 
    {
      if ( strncmp(alias[i],in_name,strlen(alias[i])) == 0)
        {
          strcpy(out_name,env);
          strncat(out_name,in_name+strlen(alias[i])-1,
                  (size_t)(lin-strlen(alias[i]+1)));
          /*sprintf(out_name,"%s/%s",env,in_name+strlen(alias[i]));*/
          return(1);
        }
      i++;
    }
  return(0);
}

Here is the caller graph for this function:

int C2F() cluni0	(	char *	in_name,
		char *	out_name,
		int *	out_n,
		long int	lin,
		long int	lout
	)

Definition at line 23 of file cluni0.c.

References Cluni0(), GetenvB(), HOME, MAX_ENV, nc, SCI, and SCI_a.

Referenced by C2F(), getfilenamehistory(), GetIndexLastModifiedFileInList(), intopenxls(), and xgetfile().

{
  int  nc= MAX_ENV;
  static char SCI[MAX_ENV],HOME[MAX_ENV],TMP[MAX_ENV];
  static int k;
  
  if ( ( n==0 ) || (UpdateEnvVar == 1) )
  {
          GetenvB("SCI",SCI,nc);
          GetenvB("HOME",HOME,nc);
      GetenvB("TMPDIR",TMP,nc);
          n=n+1;
          UpdateEnvVar=0;
  }
  /* in_name[lin]='\0';*/
  if ( Cluni0(SCI,SCI_a,in_name,out_name,lin) == 0 )
    if ( Cluni0(HOME,HOME_a,in_name,out_name,lin) == 0 )
      if ( Cluni0(TMP,TMP_a,in_name,out_name,lin) == 0 ){
        strncpy(out_name,in_name,(size_t)lin);
        out_name[lin]='\0';
      }
  /*strncpy(out_name,in_name,lout); */
  *out_n = strlen(out_name);
#if defined(_MSC_VER)
  for (k=0 ; k < *out_n ;k++) if ( out_name[k]=='/') out_name[k]='\\';
#else
  for (k=0 ; k < *out_n ;k++) if ( out_name[k]=='\\') out_name[k]='/';
#endif


  return(0);
}

Here is the call graph for this function:

Here is the caller graph for this function:

void GetenvB	(	char *	name,
		char *	env,
		int	len
	)

Definition at line 61 of file cluni0.c.

References C2F, getenvc(), ierr, and last.

Referenced by BuildName(), and cluni0().

{
  int ierr,un=1;
  C2F(getenvc)(&ierr,name,env,&len,&un);
  if( ierr == 0) 
    {
      char *last = &env[len-1];
      while ( *last == ' ' ) { last = '\0' ; } last--;
    }
  else 
    {
      env[0] = '\0' ;
    }  
}

Here is the call graph for this function:

Here is the caller graph for this function:

---

Variable Documentation

char* HOME_a[] = { "HOME/", "home/", "~/" , "HOME\\", "home\\", "~\\" ,"$HOME", (char *) 0} [static]

Definition at line 11 of file cluni0.c.

int n = 0 [static]

Definition at line 17 of file cluni0.c.

char* SCI_a[] = { "SCI/", "sci/", "$SCI", "SCI\\", "sci\\", (char *) 0 } [static]

Definition at line 10 of file cluni0.c.

Referenced by cluni0().

char* TMP_a[] = { "TMPDIR/", "tmpdir/","TMPDIR\\", "tmpdir\\", "$TMPDIR", (char *) 0} [static]

Definition at line 12 of file cluni0.c.

int UpdateEnvVar

Definition at line 16 of file setenvc.c.

Referenced by setenvc().

---