char *scriptname
= "UNPACK.COM";
char *altscript
= "/tmp/UNPACK.COMXXXXXX";
char *startname
= "AAAAAAAAA";
mover
= fopen("vmsprep.namelist","w");
strcpy(tapename
,startname
);
script
= fopen(altscript
,"w");
script
= fopen(scriptname
,"w");
fprintf(script
,"$ SET NOON\n");
if(j
==1 && *argv
[j
]=='-') continue;
for(k
=index(dirname
,'/');k
;k
=index(k
+1,'/')) {
fprintf(script
,"$ CREATE/DIR [.%s] \n",dirname
);
"find %s \\! \\( -name RCS -o -name \\*,v -o -name SCCS -o -name s.\\* \\) -type d -print\n", release
);
fscanf(dirs
," %s ",dirname
);
if(*dirname
== NULL
) continue;
for(i
=0;i
<strlen(dirname
);i
++) {
} else if (dirname
[i
]=='.') {
fprintf(stderr
,"vmsprep: warning - dot in filename illegal-");
fprintf(stderr
,"dot replaced by 'Z' %s\n",filename
);
} else if (!(isalpha(dirname
[i
]) || isdigit(dirname
[i
]))) {
fprintf(stderr
," error: bad character in directory name %s\n",
} else if(islower(dirname
[i
])) {
dirname
[i
]=toupper(dirname
[i
]);
fprintf(script
,"$ CREATE/DIR [.%s] \n",dirname
);
"find %s \\! \\( -name RCS -o -name \\*,v -o -name SCCS -o -name s.\\* \\) -type f -print\n", release
);
fscanf(files
," %s ",filename
);
if(*filename
== NULL
) continue;
k
= rindex(filename
,'/') ;
strncpy(fixedpath
,filename
,pathlen
);
} else if (fixedpath
[i
]=='.') {
} else if (!(isalpha(fixedpath
[i
]) || isdigit(fixedpath
[i
]))) {
fprintf(stderr
," error: bad character in file name %s\n",
} else if(islower(fixedpath
[i
])) {
fixedpath
[i
]=toupper(fixedpath
[i
]);
for(i
=0;i
<strlen(fixedname
);i
++) {
} else if (fixedname
[i
]=='.') {
if(dot
!= 1) fixedname
[i
]='Z';
} else if (!(isalpha(fixedname
[i
]) || isdigit(fixedname
[i
]))) {
fprintf(stderr
," error: bad character in file name %s\n",
} else if(islower(fixedname
[i
])) {
fixedname
[i
]=toupper(fixedname
[i
]);
fprintf(stderr
,"error: too many dots in filename %s \n",
sprintf(cmd
,"%s %s.MOV\n", filename
,tapename
);
fprintf(script
,"$ RENAME %s.MOV [.%s]%s%s\n",tapename
,fixedpath
,
fixedname
,dot
==0?".":"");
fprintf(script
,"$ RENAME %s.MOV []%s%s\n",tapename
,fixedname
,
if(pipeout
) fprintf(mover
,"%s ",altscript
);
fprintf(mover
,"%s\n",scriptname
);
fprintf(stderr
,"vmsprep: usage: vmsprep dirname [dirname...] \n");