1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
/* Copyright INRIA */
#include <stdio.h>
#include <string.h>
#include "../graphics/Math.h"
#define MAX_ENV 256
extern void C2F(getenvc)
_PARAMS((int *ierr,char *var,char *buf,int *buflen,int *iflag));
static char *SCI_a[] = { "SCI/", "sci/", "$SCI", (char *) 0 };
static char *HOME_a[] = { "HOME/", "home/", "~/" , "$HOME", (char *) 0};
void GetenvB _PARAMS(( char *name,char *env, int len));
static int Cluni0 _PARAMS((char *env,char **alias,char* in_name,char *out_name));
/************************************************
* expand in_name to produce out_name
*
************************************************/
int C2F(cluni0)( in_name, out_name, out_n,lin,lout)
char * in_name, *out_name ;
int *out_n;
long int lin,lout;
{
int nc= MAX_ENV;
static char SCI[MAX_ENV],HOME[MAX_ENV];
static int firstentry=0;
if ( firstentry == 0 )
{
GetenvB("SCI",SCI,nc);
GetenvB("HOME",HOME,nc);
firstentry++;
}
in_name[lin]='\0';
if ( Cluni0(SCI,SCI_a,in_name,out_name) == 0 )
if ( Cluni0(HOME,HOME_a,in_name,out_name) == 0 )
strncpy(out_name,in_name,lout);
*out_n = strlen(out_name);
#if defined(THINK_C)||defined(__MWERKS__)
for (k=0 ; k < *out_n ;k++) if ( out_name[k]=='/') out_name[k]=':';
#endif
/** sciprint( "out [%s] [%d]\r\n",out_name,*out_n); **/
return(0);
}
/************************************************
* getenv + squash trailing white spaces
************************************************/
void GetenvB(name,env,len)
char *name,*env;
int len;
{
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' ;
}
}
/************************************************
* expand in_name to produce out_name
* try to find alias[i] at the begining of in_name
* and replaces it by env in out_name
* out_name must be large enough to get the result
************************************************/
static int Cluni0(env,alias, in_name,out_name)
char *env,**alias,*in_name, *out_name ;
{
int i=0;
if ( env[0] == '\0' ) return(0);
while ( alias[i] != (char *) 0)
{
if ( strncmp(alias[i],in_name,strlen(alias[i])) == 0)
{
sprintf(out_name,"%s/%s",env,in_name+strlen(alias[i]));
return(1);
}
i++;
}
return(0);
}
|
