new
This commit is contained in:
Oliver Lehmann
parent
9583f06e4d
commit
47686fbb09
|
|
@ -0,0 +1,271 @@
|
|||
/**************************************************************************
|
||||
***************************************************************************
|
||||
|
||||
W E G A - Quelle (C) TU KMSt / ZFT/KEAW Abt. WAE - 1988
|
||||
Programm: doscp.c
|
||||
|
||||
Bearbeiter : P. Hoge
|
||||
Datum : 24.11.89
|
||||
Version : 1.3
|
||||
|
||||
***************************************************************************
|
||||
|
||||
Kopieren von DCP-Dateien in WEGA-Files und umgekehrt
|
||||
|
||||
***************************************************************************
|
||||
**************************************************************************/
|
||||
|
||||
#include <stdio.h>
|
||||
#include <ctype.h>
|
||||
#include <sys/types.h>
|
||||
#include <sys/stat.h>
|
||||
#include "dos.h"
|
||||
|
||||
main(argc, argv)
|
||||
register char **argv;
|
||||
{
|
||||
register char *arg0 = argv[0];
|
||||
char *argl; /* letztes Argumentes */
|
||||
register int status = 0, res;
|
||||
int conv = 1; /* Newlinekonvertierung */
|
||||
int fd; /* WEGA-Filedeskriptor */
|
||||
char upath[LMAX], dpath[LMAX];
|
||||
char *p, t[2*LMAX];
|
||||
char *strrchr(), *strcat();
|
||||
struct dosdisc dos;
|
||||
struct dostat dstat;
|
||||
struct stat mstat;
|
||||
int dtm = 1; /* DCP -> WEGA */
|
||||
int dir = 0; /* letztes Argument ist Verzeichnis */
|
||||
|
||||
argc--;
|
||||
argl = argv[argc];
|
||||
for (; argc > 0 && argv[1][0] == '-'; argc--, argv++) {
|
||||
switch (argv[1][1]) {
|
||||
case '\0':
|
||||
break;
|
||||
case 'r':
|
||||
--conv; /* keine Newlinekonv. */
|
||||
break;
|
||||
default:
|
||||
fprintf(stderr,"%s: falsche Option %c\n",arg0,argv[1][1]);
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
if (argc < 2)
|
||||
usage();
|
||||
if ((p = strrchr(argl, ':')) != 0) {
|
||||
dtm--; /* WEGA -> DCP */
|
||||
if (dosplit(argl, upath, dpath) < 0)
|
||||
exit(1);
|
||||
if (dosdev(upath, 2, &dos) < 0) {
|
||||
fprintf(stderr, "%s: Fehler in %s\n", arg0, upath);
|
||||
exit(1);
|
||||
}
|
||||
if (*dpath == '\0')
|
||||
dir++;
|
||||
else {
|
||||
res = dosopn(dpath, &dos, &dstat);
|
||||
if (res == 0 && argc > 2) {
|
||||
fprintf(stderr, "%s: %s nicht gefunden\n", arg0, dpath);
|
||||
exit(1);
|
||||
}
|
||||
if (res < 0) {
|
||||
fprintf(stderr, "%s: %s - Lesefehler\n", arg0, upath);
|
||||
exit(1);
|
||||
}
|
||||
if (dstat.mode == _SDIR)
|
||||
dir++;
|
||||
}
|
||||
}
|
||||
else { /* letztes Argument ist kein DCP-Pfad */
|
||||
if (stat(argl, &mstat) < 0) {
|
||||
if (argc > 2) {
|
||||
fprintf(stderr, "%s: %s nicht gefunden\n", arg0, argl);
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
else
|
||||
if ((mstat.st_mode & S_IFMT) == S_IFDIR)
|
||||
dir++;
|
||||
}
|
||||
if (!dir) {
|
||||
if (argc != 2)
|
||||
usage();
|
||||
argv++;
|
||||
if (dtm) {
|
||||
if ((fd = creat(argl, 0664)) < 0) {
|
||||
fprintf(stderr, "%s: %s nicht erstellbar\n", arg0, argl);
|
||||
exit(1);
|
||||
}
|
||||
if ((res = dosplit(*argv, upath, dpath)) < 0)
|
||||
exit(1);
|
||||
if (res == 2) {
|
||||
strcpy(t, "/bin/cp ");
|
||||
strcat(t, *argv);
|
||||
strcat(t, " "),
|
||||
strcat(t, argl);
|
||||
exit(system(t));
|
||||
}
|
||||
if (*dpath == '\0') {
|
||||
fprintf(stderr, "%s: keine DCP-Datei\n", arg0);
|
||||
exit(1);
|
||||
}
|
||||
if ((dosdev(upath, 0, &dos)) < 0) {
|
||||
fprintf(stderr, "%s: Fehler in %s\n", arg0, upath);
|
||||
exit(1);
|
||||
}
|
||||
res = dosopn(dpath, &dos, &dstat);
|
||||
if (res == 0) {
|
||||
fprintf(stderr, "%s: %s nicht gefunden\n", arg0, dpath);
|
||||
exit(1);
|
||||
}
|
||||
if (res < 0) {
|
||||
fprintf(stderr, "%s: %s Lesefehler\n", arg0, upath);
|
||||
exit(1);
|
||||
}
|
||||
switch (dosout(&dstat, fd, &dos, conv)) {
|
||||
case -1:
|
||||
fprintf(stderr, "%s: %s - Lesefehler\n", arg0, upath);
|
||||
exit(1);
|
||||
case -2:
|
||||
fprintf(stderr, "%s: Schreibfehler in %s\n", arg0,argl);
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
else { /* WEGA -> DCP */
|
||||
if (strrchr(*argv, ':') != 0)
|
||||
usage();
|
||||
switch (dosin(*argv, dpath, &dos, conv)) {
|
||||
case 0:
|
||||
fprintf(stderr,"%s: Verzeichnis nicht gefunden\n",arg0);
|
||||
exit(1);
|
||||
case -1:
|
||||
fprintf(stderr,"%s: Lesefehler in %s\n",arg0,upath);
|
||||
exit(1);
|
||||
case -2:
|
||||
fprintf(stderr,"%s: Schreibfehler in %s\n",arg0,upath);
|
||||
exit(1);
|
||||
case -3:
|
||||
fprintf(stderr,"%s: %s ist Verzeichnis oder schreibgeschuetzt\n",arg0,dpath);
|
||||
exit(1);
|
||||
case -4:
|
||||
fprintf(stderr,"%s: Lesefehler in %s\n",arg0,*argv);
|
||||
exit(1);
|
||||
}
|
||||
}
|
||||
}
|
||||
else { /* Kopieren in ein Verzeichnis */
|
||||
if (dtm) {
|
||||
while (--argc) {
|
||||
argv++;
|
||||
strcpy(t, argl); /* Zielverzeichnis */
|
||||
strcat(t, "/");
|
||||
if ((res = dosplit(*argv, upath, dpath)) < 0)
|
||||
exit(1);
|
||||
if (res == 2) {
|
||||
strcpy(t, "cp ");
|
||||
strcat(t, *argv);
|
||||
strcat(t, " "),
|
||||
strcat(t, argl);
|
||||
system(t);
|
||||
continue;
|
||||
}
|
||||
if (*dpath == '\0') {
|
||||
fprintf(stderr, "%s: kein DCP Pfad\n", arg0);
|
||||
status = 2;
|
||||
continue;
|
||||
}
|
||||
if (dosdev(upath, 0, &dos) < 0) {
|
||||
fprintf(stderr,"%s: Fehler in %s\n",arg0,upath);
|
||||
status = 2;
|
||||
continue;
|
||||
}
|
||||
res = dosopn(dpath, &dos, &dstat);
|
||||
if (res == 0) {
|
||||
fprintf(stderr, "%s: %s nicht gefunden\n", arg0, dpath);
|
||||
status = 2;
|
||||
continue;
|
||||
}
|
||||
if (res < 0) {
|
||||
fprintf(stderr, "%s: %s - Lesefehler\n", arg0, upath);
|
||||
status = 2;
|
||||
continue;
|
||||
}
|
||||
if ((p = strrchr(dpath, '/')) != 0) /* letzter Teil DCP-Pfad */
|
||||
p++;
|
||||
else
|
||||
p = dpath;
|
||||
p = strcat(t, p);
|
||||
while (*p != '\0')
|
||||
*p++ = isupper(*p) ? tolower(*p) : *p;
|
||||
if ((fd = creat(t, 0664)) < 0) {
|
||||
fprintf(stderr, "%s: %s nicht erzeugbar\n", arg0, t);
|
||||
status = 2;
|
||||
continue;
|
||||
}
|
||||
switch (dosout(&dstat, fd, &dos, conv)) {
|
||||
case -1:
|
||||
fprintf(stderr,"%s: %s Lesefehler\n",arg0,upath);
|
||||
status = 2;
|
||||
break;
|
||||
case -2:
|
||||
fprintf(stderr,"%s: %s Schreibfehler\n",arg0,t);
|
||||
status = 2;
|
||||
break;
|
||||
}
|
||||
close(fd);
|
||||
} /* while */
|
||||
}
|
||||
else { /* WEGA -> DCP */
|
||||
while (--argc) {
|
||||
argv++;
|
||||
strcpy(t, dpath);
|
||||
if (*t != '\0')
|
||||
strcat(t, "/");
|
||||
if (strrchr(*argv, ':') != 0)
|
||||
usage();
|
||||
if ((p = strrchr(*argv, '/')) != 0)
|
||||
p++;
|
||||
else
|
||||
p = *argv;
|
||||
p = strcat(t, p);
|
||||
while (*p != '\0')
|
||||
*p++ = islower(*p) ? toupper(*p) : *p;
|
||||
|
||||
switch (dosin(*argv, t, &dos, conv)) {
|
||||
case 0:
|
||||
fprintf(stderr,"%s: Verzeichnis nicht gefunden\n",arg0);
|
||||
status = 2;
|
||||
break;
|
||||
case -1:
|
||||
fprintf(stderr, "%s: Lesefehler in %s\n", arg0,upath);
|
||||
status = 2;
|
||||
break;
|
||||
case -2:
|
||||
fprintf(stderr,"%s: Schreibfehler in %s\n",arg0,upath);
|
||||
status = 2;
|
||||
break;
|
||||
case -3:
|
||||
fprintf(stderr,"%s: %s ist schreibgeschuetzt\n",arg0,t);
|
||||
status = 2;
|
||||
break;
|
||||
case -4:
|
||||
fprintf(stderr, "%s: Lesefehler in %s\n", arg0, *argv);
|
||||
status = 2;
|
||||
break;
|
||||
}
|
||||
} /* while */
|
||||
}
|
||||
}
|
||||
exit(status);
|
||||
}
|
||||
|
||||
usage()
|
||||
{
|
||||
fprintf(stderr,"usage: doscp [-r] dosdev:filename wegafilename\n");
|
||||
fprintf(stderr," doscp [-r] dosdev:filename [dosdev:filename] [...] wegadirname\n");
|
||||
fprintf(stderr," doscp [-r] wegafilename dosdev:filename\n");
|
||||
fprintf(stderr," doscp [-r] wegafilename [wegafilename] [...] dosdev:dirname\n");
|
||||
exit(1);
|
||||
}
|
||||
|
|
@ -0,0 +1,81 @@
|
|||
/**************************************************************************
|
||||
***************************************************************************
|
||||
|
||||
W E G A - Quelle (C) TU KMSt / ZFT/KEAW Abt. WAE - 1988
|
||||
Programm: dosout.c
|
||||
|
||||
Bearbeiter : P. Hoge
|
||||
Datum : 24.11.89
|
||||
Version : 1.3
|
||||
|
||||
***************************************************************************
|
||||
**************************************************************************/
|
||||
|
||||
#include "dos.h"
|
||||
|
||||
/* dosout
|
||||
* Gibt die Datei, welche durch 'file'
|
||||
* gekennzeichnet wird, in das File 'out' aus.
|
||||
* 'conv' zeigt Newlinekonvertierung an.
|
||||
* dosout liefert -1 bei Lesefehler und
|
||||
* -2 bei Schreibfehler
|
||||
*/
|
||||
dosout(file,out,dp,conv)
|
||||
struct dostat *file;
|
||||
int out;
|
||||
register struct dosdisc *dp;
|
||||
int conv;
|
||||
{
|
||||
register clustsiz = dp->clustsiz;
|
||||
register i, j, len;
|
||||
long adr, z;
|
||||
unsigned next = file->first;
|
||||
char last = 0;
|
||||
char *buf, *outbuf, *malloc();
|
||||
|
||||
outbuf = malloc(clustsiz+1);
|
||||
buf = &outbuf[1];
|
||||
adr = DOSADR(next,clustsiz) + dp->data;
|
||||
lseek(dp->fd,adr,0);
|
||||
z = 0;
|
||||
|
||||
while (next) {
|
||||
len = clustsiz;
|
||||
if ((long)len > file->dim - z)
|
||||
len = file->dim - z;
|
||||
if (len == 0)
|
||||
break;
|
||||
|
||||
if (read(dp->fd,buf,clustsiz) != clustsiz)
|
||||
return(-1);
|
||||
|
||||
if (conv) { /* CR LF -> LF */
|
||||
for (i=0, j=0; i<len; i++) {
|
||||
if (last && buf[i] != 0x0a)
|
||||
outbuf[j++] = last;
|
||||
last = 0;
|
||||
if (buf[i] == 0x1a)
|
||||
break; /* Dateiende */
|
||||
if (buf[i] == 0x0d) {
|
||||
last++;
|
||||
continue;
|
||||
}
|
||||
outbuf[j++] = buf[i];
|
||||
}
|
||||
if (write(out, outbuf, j) != j)
|
||||
return(-2);
|
||||
}
|
||||
else { /* Binary-Copy */
|
||||
if (write(out, buf, len) != len)
|
||||
return(-2);
|
||||
}
|
||||
z += len;
|
||||
if (z >= file->dim)
|
||||
break;
|
||||
|
||||
next = dosnxt(dp->fd,next,dp->fat1,dp->fatlen);
|
||||
adr = DOSADR(next,clustsiz) + dp->data;
|
||||
lseek(dp->fd,adr,0);
|
||||
}
|
||||
return(1);
|
||||
}
|
||||
Loading…
Reference in New Issue