File: convpath.c

package info (click to toggle)
fsp 2.81.b3-2
  • links: PTS
  • area: main
  • in suites: potato
  • size: 1,072 kB
  • ctags: 1,264
  • sloc: ansic: 7,764; makefile: 357; sh: 312
file content (128 lines) | stat: -rw-r--r-- 3,406 bytes parent folder | download | duplicates (4)
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
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
/* convpath.c
 *
 * Some awful Unix to VMS-directory conversion routines for use with
 * VMS-fsp.
 *
 * 28-DEC-92 First version for VMS-FSP 2.6.5 <S.A.Pechler@bdk.tue.nl>
 * 22-JAN-93 Added convdots routine <S.A.Pechler@bdk.tue.nl>
 * 07-FEB-93 Optimized with SHELL$-routine <S.A.Pechler@bdk.tue.nl>
 */

#include "common_def.h"

char *vms_name; /* global namespec */

int do_shell_filespec(fs)
char *fs;
{
  vms_name=fs;
  return(1);
}

char *unixtovms(unixpath)
char *unixpath;
{
  if (SHELL$TO_VMS(unixpath, do_shell_filespec, 1)) return(vms_name);
  else return(NULL);
}

#ifdef TEST
/*
 * convert unixpath to absolute VMS-path
 * args: dest: vms-pathname
 *       path: unix-style pathname
 * ret:     0: conversion ok
 *         -1: error.
 */
int convpath(dest,path)
char *dest,*path;
{
 char *trans,*here;

 strcpy(dest,home_dir);     /* add home_dir always (absolute path) */
 if (*path)                 /* something to convert? */
 {
   here=dest+strlen(dest);  /* find last char of string */
   strcpy(here,path);       /* add path to it */
   if (trans=unixtovms(here))  /* if conversion ok, */
       strcpy(here-1,trans+1); /* put it back, strip trailing ']'
                                  from trans and leading '[' from here */
   else return(-1);            /* otherwise return error */
 }
 return(0);
}


/*
 * convert unixdir to VMS-dirname
 * args: dest: name of vms-directoryfile
 *       path: unix-style directoryname
 * ret:     0: conversion ok
 *         -1: error.
 */
int convdir(dest,path)
char *dest,*path;

{
 char *trans,*here;

 if (*path)                 /* something to convert? */
 {
   strcpy(dest,path);       /* add path to it */
   strcat(dest,".dir.1");   /* concatenate .dir.1 extension, so that it will
                               be converted to a directory-filename */
   if (trans=unixtovms(dest)) strcpy(dest,trans);   /* conv.ok? put it back */
   else return(-1);           /* otherwise return error */
 }
 else                         /* empty path, so only home-directory */
 {
   if (getcwd(dest,512,0)) strcat(dest,".dir.1");
   else return(-1);
   if (trans=unixtovms(dest)) strcpy(dest,trans);
   else return(-1);
 }
 return(0);
}
#endif

/*
 * convert unixfilepath to VMS-filepath
 * args: dest: name of vms-directoryfile
 *       path: unix-style filepath
 * ret:     0: conversion ok
 *         -1: error.
 */
int convfile(dest,path)
char *dest,*path;
{
 char *trans;

 if (!*path) return(-1);                 /* something to convert? */
 if (!(trans=unixtovms(path))) return (-1); /* error during conversion */
 strcpy(dest,trans);                     /* put it back */
 return(0);
}

/* convdots
 * If more then 1 dot in filename, convert them to an underscore.
 * If any invalid character in filename (exclamation marks, question marks,
 * colons, etc.) , then convert it also to an underscore.
 */
int convdots(target,source)
char *target,*source;

{ char *dot,*here;

  strcpy(target,source);              /* make a copy first */
  if (dot=strchr(target,'.'))       /* is there a dot present?*/
     while (here=strchr(dot+1,'.')) /* look for more dots */
     {
       *here='_';                   /* replace with '_' */
       dot=here;                    /* find next dot */
     }
  /* Convert invalid characters to an underscore */
  here=target;
  while (here=strpbrk(here,"?!:")) *here++='_';

  return(0); /* can't go wrong */
}