new
This commit is contained in:
Oliver Lehmann
parent
47686fbb09
commit
d601096349
|
|
@ -0,0 +1,305 @@
|
||||||
|
/**************************************************************************
|
||||||
|
***************************************************************************
|
||||||
|
|
||||||
|
W E G A - Quelle (C) TU KMSt / ZFT/KEAW Abt. WAE - 1988
|
||||||
|
Programm: dosin.c
|
||||||
|
|
||||||
|
Bearbeiter : P. Hoge
|
||||||
|
Datum : 24.11.89
|
||||||
|
Version : 1.3
|
||||||
|
|
||||||
|
***************************************************************************
|
||||||
|
**************************************************************************/
|
||||||
|
|
||||||
|
#include "dos.h"
|
||||||
|
#include <time.h>
|
||||||
|
#include <sys/types.h>
|
||||||
|
#include <sys/stat.h>
|
||||||
|
|
||||||
|
/* dosin
|
||||||
|
* Schreibt das WEGA-File 'in' auf den
|
||||||
|
* Datentraeger dp unter dem Namen fn.
|
||||||
|
* Ist fn schon vorhanden wird die alte
|
||||||
|
* Version geloescht.
|
||||||
|
* Liefert 0 falls das uebergeordnete
|
||||||
|
* Verzeichnis nicht existiert,
|
||||||
|
* -1 bei Lesefehler,
|
||||||
|
* -2 bei Schreibfehler und
|
||||||
|
* -3 falls fn ein Verzeichnis oder
|
||||||
|
* schreibgeschuetzt ist.
|
||||||
|
* -4 Lesefehler in wega
|
||||||
|
*/
|
||||||
|
dosin(in, fn, dp, conv)
|
||||||
|
char *in, *fn;
|
||||||
|
register struct dosdisc *dp;
|
||||||
|
int conv;
|
||||||
|
{
|
||||||
|
register clustsiz = dp->clustsiz;
|
||||||
|
register i, j, res;
|
||||||
|
int infd, len, nl, mode, z;
|
||||||
|
long adr, depos;
|
||||||
|
int free, follow;
|
||||||
|
unsigned dnum, nxt, dosnxt();
|
||||||
|
int dmax, dcnt = 0;
|
||||||
|
struct stat instat;
|
||||||
|
struct dostat fnrec, dirrec;
|
||||||
|
struct tm *sttime, *localtime();
|
||||||
|
char *p, *file, s[LMAX];
|
||||||
|
char *strchr(), *strrchr();
|
||||||
|
char *buf, *outbuf, *malloc();
|
||||||
|
|
||||||
|
buf = malloc(clustsiz);
|
||||||
|
outbuf = buf;
|
||||||
|
if (conv)
|
||||||
|
outbuf = malloc(clustsiz);
|
||||||
|
|
||||||
|
strcpy(s, fn);
|
||||||
|
fn = s;
|
||||||
|
z = 1;
|
||||||
|
if ((res = dosopn(fn, dp, &fnrec)) < 0)
|
||||||
|
return(res);
|
||||||
|
|
||||||
|
/* Das DCP-File wird geloescht, falls es bereits existiert */
|
||||||
|
if (res > 0) {
|
||||||
|
if ((res = dosdel(fn, dp)) < 1)
|
||||||
|
return(res);
|
||||||
|
}
|
||||||
|
if ((file=strrchr(fn, '/')) == 0) { /* main directory */
|
||||||
|
file = fn;
|
||||||
|
dmax = dnum = dp->dirnum;
|
||||||
|
adr = dp->maindir;
|
||||||
|
nxt = 0;
|
||||||
|
}
|
||||||
|
else { /* sub directory */
|
||||||
|
fn[strlen(fn)-strlen(file)] = '\0';
|
||||||
|
file++;
|
||||||
|
|
||||||
|
if ((res = dosopn(fn, dp, &dirrec)) < 1)
|
||||||
|
return(res);
|
||||||
|
if (dirrec.mode != _SDIR)
|
||||||
|
return(0);
|
||||||
|
adr = DOSADR(dirrec.first, clustsiz) + dp->data;
|
||||||
|
/* Bestimmen der Anzahl von Verzeichniseintraegen */
|
||||||
|
nxt = dirrec.first;
|
||||||
|
while ((nxt = dosnxt(dp->fd, nxt, dp->fat1, dp->fatlen)) > 0)
|
||||||
|
z++;
|
||||||
|
dnum = clustsiz / 32;
|
||||||
|
dmax = z * dnum;
|
||||||
|
nxt = dirrec.first;
|
||||||
|
}
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
/* Suche des ersten freien Eintrages */
|
||||||
|
for (i = 0; i < z; i++) {
|
||||||
|
j = 1;
|
||||||
|
while (j++ <= dnum && (res = getde(dp->fd, &fnrec)) > 0) {
|
||||||
|
dcnt++;
|
||||||
|
if (fnrec.name[0] == 0xe5) {
|
||||||
|
i = z;
|
||||||
|
depos = lseek(dp->fd, (long)-32, 1);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (res == 0) {
|
||||||
|
depos = lseek(dp->fd, (long)-32, 1);
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (nxt != 0) {
|
||||||
|
nxt = dosnxt(dp->fd, nxt, dp->fat1, dp->fatlen);
|
||||||
|
if (nxt < 1)
|
||||||
|
break;
|
||||||
|
else { /* Naechsten Cluster lesen */
|
||||||
|
adr = DOSADR(nxt, clustsiz) + dp->data;
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
dirrec.first = nxt;
|
||||||
|
}
|
||||||
|
}
|
||||||
|
}
|
||||||
|
if (res < 0)
|
||||||
|
return(res);
|
||||||
|
if (fn == file && dcnt >= dmax)
|
||||||
|
return(-2); /* Stammverzeichnis voll */
|
||||||
|
if (dcnt >= dmax) { /* Verzeichniscluster voll */
|
||||||
|
if ((free = fatfree(dp)) < 0)
|
||||||
|
return(free);
|
||||||
|
if ((res = fatput(dirrec.first, free, dp)) < 0)
|
||||||
|
return(res);
|
||||||
|
if ((res = fatput(free, 0xffff, dp)) < 0)
|
||||||
|
return(res);
|
||||||
|
adr = DOSADR(free, clustsiz) + dp->data;
|
||||||
|
|
||||||
|
for (i = 0; i < 512; i++)
|
||||||
|
buf[i] = 0x00;
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
z = clustsiz / 512;
|
||||||
|
for (i = 0; i < z; i++)
|
||||||
|
if (write(dp->fd, buf, 512) != 512)
|
||||||
|
return(-2);
|
||||||
|
/* depos zeigt auf den zu belegenden Eintrag */
|
||||||
|
depos = lseek(dp->fd, adr, 0);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* Oeffnen des WEGA-Files */
|
||||||
|
if ((infd = open(in, 0)) < 0)
|
||||||
|
return(-4);
|
||||||
|
if (fstat(infd, &instat) < 0)
|
||||||
|
return(-4);
|
||||||
|
mode = instat.st_mode;
|
||||||
|
if ((mode & S_IFMT) == S_IFDIR)
|
||||||
|
return(-4);
|
||||||
|
|
||||||
|
/* fnrec wird mit Werten von infd belegt */
|
||||||
|
if ((p = strchr(file, '.')) != 0) {
|
||||||
|
p++;
|
||||||
|
file[strlen(file) - strlen(p) - 1] = '\0';
|
||||||
|
for (i = 0; i < 8; i++)
|
||||||
|
if (i >= strlen(file))
|
||||||
|
fnrec.name[i] = 0x20;
|
||||||
|
else
|
||||||
|
fnrec.name[i] = file[i];
|
||||||
|
|
||||||
|
for (i = 8; i < 11; i++)
|
||||||
|
if (i - 7 > strlen(p))
|
||||||
|
fnrec.name[i] = 0x20;
|
||||||
|
else
|
||||||
|
fnrec.name[i] = p[i - 8];
|
||||||
|
}
|
||||||
|
else {
|
||||||
|
for (i = 0; i < 11; i++)
|
||||||
|
if (i >= strlen(file) || i > 7)
|
||||||
|
fnrec.name[i] = 0x20;
|
||||||
|
else
|
||||||
|
fnrec.name[i] = file[i];
|
||||||
|
}
|
||||||
|
fnrec.mode = _FILE;
|
||||||
|
fnrec.flag = RW;
|
||||||
|
sttime = localtime(&(instat.st_mtime));
|
||||||
|
|
||||||
|
fnrec.time.sec = sttime->tm_sec;
|
||||||
|
fnrec.time.min = sttime->tm_min;
|
||||||
|
fnrec.time.hour = sttime->tm_hour;
|
||||||
|
|
||||||
|
fnrec.date.day = sttime->tm_mday;
|
||||||
|
fnrec.date.month = sttime->tm_mon + 1;
|
||||||
|
fnrec.date.year = sttime->tm_year;
|
||||||
|
free = fatfree(dp);
|
||||||
|
if (free < 0)
|
||||||
|
return(free);
|
||||||
|
fnrec.first = free;
|
||||||
|
fatput(free, 0xffff, dp);
|
||||||
|
fnrec.dim = instat.st_size;
|
||||||
|
|
||||||
|
/* Uebertragen der Daten */
|
||||||
|
adr = DOSADR(free, clustsiz) + dp->data;
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
|
||||||
|
j = nl = 0;
|
||||||
|
|
||||||
|
while ((len = read(infd, buf, clustsiz)) > 0) {
|
||||||
|
if (conv) { /* ASCII-Copy */
|
||||||
|
|
||||||
|
for (i = 0; i < len; i++) {
|
||||||
|
if (buf[i] == 0x0a) { /* CR einfuegen */
|
||||||
|
outbuf[j++] = 0x0d;
|
||||||
|
fnrec.dim++;
|
||||||
|
nl++;
|
||||||
|
}
|
||||||
|
if (nl == 0)
|
||||||
|
lf:
|
||||||
|
outbuf[j++] = buf[i];
|
||||||
|
if (j == clustsiz) {
|
||||||
|
j = 0;
|
||||||
|
if (write(dp->fd, outbuf, clustsiz) != clustsiz) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(-2);
|
||||||
|
}
|
||||||
|
if ((follow = fatfree(dp)) < 0) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(follow);
|
||||||
|
}
|
||||||
|
fatput(free, follow, dp);
|
||||||
|
fatput(follow, 0xffff, dp);
|
||||||
|
free = follow;
|
||||||
|
adr = DOSADR(free, clustsiz)+dp->data;
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
}
|
||||||
|
if (nl) {
|
||||||
|
nl = 0;
|
||||||
|
goto lf;
|
||||||
|
}
|
||||||
|
} /* for */
|
||||||
|
} else { /* Binary Copy */
|
||||||
|
if (len != clustsiz) {
|
||||||
|
j = len;
|
||||||
|
break;
|
||||||
|
}
|
||||||
|
if (write(dp->fd, outbuf, clustsiz) != clustsiz) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(-2);
|
||||||
|
}
|
||||||
|
if ((follow = fatfree(dp)) < 0) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(follow);
|
||||||
|
}
|
||||||
|
fatput(free, follow, dp);
|
||||||
|
fatput(follow, 0xffff, dp);
|
||||||
|
free = follow;
|
||||||
|
adr = DOSADR(free, clustsiz)+dp->data;
|
||||||
|
lseek(dp->fd, adr, 0);
|
||||||
|
}
|
||||||
|
} /* while */
|
||||||
|
if (len < 0) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(-4);
|
||||||
|
}
|
||||||
|
if (j)
|
||||||
|
if (write(dp->fd, outbuf, j) != j) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(-2);
|
||||||
|
}
|
||||||
|
close(infd);
|
||||||
|
|
||||||
|
/* Schreiben eines Verzeichniseintrages */
|
||||||
|
lseek(dp->fd, depos, 0);
|
||||||
|
if (putde(&fnrec, dp) < 0) {
|
||||||
|
fatdel(&fnrec, dp);
|
||||||
|
return(-2);
|
||||||
|
}
|
||||||
|
return(1);
|
||||||
|
}
|
||||||
|
|
||||||
|
/* putde
|
||||||
|
* Schreibt fuer das File stp auf dem
|
||||||
|
* Datentraeger dp einen 32-Byte
|
||||||
|
* Verzeichniseintrag.
|
||||||
|
* Liefert -2 bei Schreibfehler.
|
||||||
|
*/
|
||||||
|
putde(stp, dp)
|
||||||
|
register struct dostat *stp;
|
||||||
|
register struct dosdisc *dp;
|
||||||
|
{
|
||||||
|
register i;
|
||||||
|
register unsigned tv;
|
||||||
|
unsigned char buf[32];
|
||||||
|
|
||||||
|
for (i = 0; i < 11; i++)
|
||||||
|
buf[i] = stp->name[i];
|
||||||
|
buf[11] = 0x20; /* Attribut */
|
||||||
|
for (i = 12; i < 22; i++)
|
||||||
|
buf[i] = '\0';
|
||||||
|
|
||||||
|
tv = stp->time.hour * 2045 + stp->time.min * 32 + stp->time.sec / 2;
|
||||||
|
buf[22] = tv % 256;
|
||||||
|
buf[23] = tv / 256;
|
||||||
|
tv = (stp->date.year - 80) * 512 + stp->date.month * 32 + stp->date.day;
|
||||||
|
buf[24] = tv % 256;
|
||||||
|
buf[25] = tv / 256;
|
||||||
|
buf[26] = stp->first % 256;
|
||||||
|
buf[27] = stp->first / 256;
|
||||||
|
buf[28] = stp->dim % 256;
|
||||||
|
buf[29] = (stp->dim % 65536) / 256;
|
||||||
|
buf[30] = (stp->dim % 16777216) / 65536;
|
||||||
|
buf[31] = stp->dim / 16777216;
|
||||||
|
if (write(dp->fd, buf, 32) != 32)
|
||||||
|
return(-2);
|
||||||
|
return(1);
|
||||||
|
}
|
||||||
Loading…
Reference in New Issue