/* -*-c,save-*- */
/*
 * lureorg.c - Library reorganize function
 * Robert Heller. Created: Sun Nov 9, 1986 20:36:51.22
 * Last Mod: 
 * 
 * (c) Copyright 1986 by Robert Heller
 *     All Rights Reserved
 * 
 * 
 */

#include <stdio.h>		/* STD I/O defs */
#include <ctype.h>		/* char type defs */

#include "ludef.h"		/* ludefs */

#include "luvars.h"		/* lu variables */

lu_reorg(argcc,argvv)
FAST int *argcc;
FAST char ***argvv;
{
    LOCAL LUDIR newdir[MAXFILES];
    FAST int newslots;
    FAST int new_fd,i,j,k,bytes;
    FAST long int offset;
    LOCAL char sectbuff[SECTSIZE];
    FAST int osect,nsect,isect,active;
    LOCAL char tname[20];
    LOCAL char answer[64];
    char *p,*gets();
#ifdef CRCCHEKC
    unsigned short int crc,calcrc();
#endif

    while (*argcc > 0 && ***argvv != '-') {
	*argcc -= 1;
	*argvv += 1;
	}
    if (!lu_openp) {
	fprintf(stderr,"lu: library not open!\n");
	return;
	}
    for (i=1, active=1; i<lu_slots && lu_dire[i].lu_stat != UNUSED; i++)
	if (lu_dire[i].lu_stat == ACTIVE) active++;
    strcpy(tname,mktemp("luxxxxxx"));
    strcat(tname,".$$$");
    new_fd = lcreat(tname,OPEN_RW);
    if (new_fd == FAILURE) {
	perror("lu: temp file creat");
	fprintf(stderr,"lu: cannot open temp file %s\n",tname);
	return;
	}
    printf("lu: new library %s opened. ",tname);
    do {
	printf("Reserve how many entries? ");
	p = gets(answer);
	if (p == NULL) {
	    if (!isatty(fileno(stdin))) printf("\n");
	    return(FAILURE);
	    }
	if (!isatty(fileno(stdin))) printf("%s\n",answer);
	newslots = atoi(answer);
	} while (newslots < active && newslots >= MAXFILES);
    newslots++;	/* allow for directory */
    /* adjust size to sector boundary */
    newslots += (SECTSIZE / sizeof(LUDIR)) - 1;
    i = newslots % (SECTSIZE / sizeof(LUDIR));
    newslots -= i;
    /* initialize directory entry */
    newdir[0].lu_stat = ACTIVE;
    strncpy(newdir[0].lu_name,"           ",11);
    newdir[0].lu_off = 0;
    newdir[0].lu_len = ((newslots * sizeof(LUDIR)) / SECTSIZE);
    newdir[0].lu_crc = 0;
    for (p = newdir[0].lu_fill, i=0; i<14; i++, p++) *p = '\0';
    for (i = 1; i < newslots; i++) newdir[i].lu_stat = UNUSED;
#ifdef CRCCHECK
    crc = calcrc(0,&newdir[0],newslots * sizeof(LUDIR));
    newdir[0].lu_crc = crc;
#else
    newdir[0].lu_crc = 0;
#endif
    printf("lu: new library file %s has %d entries, %d free\n",tname,newslots,
	   newslots-1);
#ifdef CPM68K
    for (i=0;i<newslots && newdir[i].lu_stat != UNUSED; i++) {
	if (newdir[i].lu_stat == ACTIVE) {
	    newdir[i].lu_off = swapw(newdir[i].lu_off);
	    newdir[i].lu_len = swapw(newdir[i].lu_len);
	    newdir[i].lu_crc = swapw(newdir[i].lu_crc);
	    }
	}
#endif
    lseek(new_fd,0L,0);
    j = newslots * sizeof(LUDIR);
    i = write(new_fd,&newdir[0],j);
    if (i != j) perror("lu: directory write error");
#ifdef CPM68K
    for (i=0;i<newslots && newdir[i].lu_stat != UNUSED; i++) {
	if (newdir[i].lu_stat == ACTIVE) {
	    newdir[i].lu_off = swapw(newdir[i].lu_off);
	    newdir[i].lu_len = swapw(newdir[i].lu_len);
	    newdir[i].lu_crc = swapw(newdir[i].lu_crc);
	    }
	}
#endif
    j = 0;
    for (i=1; i<lu_slots && lu_dire[i].lu_stat != UNUSED; i++) {
	if (lu_dire[i].lu_stat == ACTIVE) {
	    j++;
	    offset = tell(new_fd);
	    newdir[j].lu_off = isect = offset / SECTSIZE;
	    osect = lu_dire[i].lu_off;
	    newdir[j].lu_len = nsect = lu_dire[i].lu_len;
	    strncpy(newdir[j].lu_name,lu_dire[i].lu_name,11);
	    newdir[j].lu_crc = lu_dire[i].lu_crc;
	    offset = osect;
	    offset *= SECTSIZE;
	    lseek(lu_fd,offset,0);
	    for (k=0; k<nsect; k++) {
		bytes = read(lu_fd,sectbuff,SECTSIZE);
		if (bytes != SECTSIZE) {
		    perror("lu: old library read error");
		    close(new_fd);
		    unlink(tname);
		    }
		bytes = write(new_fd,sectbuff,SECTSIZE);
		if (bytes != SECTSIZE) {
		    perror("lu: new library rwrite error");
		    close(new_fd);
		    unlink(tname);
		    }
		}
	    newdir[j].lu_stat = ACTIVE;
	    }
	}
#ifdef CRCCHECK
    crc = calcrc(0,&newdir[0],newslots * sizeof(LUDIR));
    newdir[0].lu_crc = crc;
#else
    newdir[0].lu_crc = 0;
#endif
#ifdef CPM68K
    for (i=0;i<newslots && newdir[i].lu_stat != UNUSED; i++) {
	if (newdir[i].lu_stat == ACTIVE) {
	    newdir[i].lu_off = swapw(newdir[i].lu_off);
	    newdir[i].lu_len = swapw(newdir[i].lu_len);
	    newdir[i].lu_crc = swapw(newdir[i].lu_crc);
	    }
	}
#endif
    lseek(new_fd,0L,0);
    j = newslots * sizeof(LUDIR);
    i = write(new_fd,&newdir[0],j);
    if (i != j) perror("lu: directory write error");
#ifdef CPM68K
    for (i=0;i<newslots && newdir[i].lu_stat != UNUSED; i++) {
	if (newdir[i].lu_stat == ACTIVE) {
	    newdir[i].lu_off = swapw(newdir[i].lu_off);
	    newdir[i].lu_len = swapw(newdir[i].lu_len);
	    newdir[i].lu_crc = swapw(newdir[i].lu_crc);
	    }
	}
#endif
    close(new_fd);
    close(lu_fd);
    lu_openp = FALSE;
    p = strchr(lu_libr,':');
    if (p == NULL) {
	p = lu_libr;
	unlink(lu_libr);
	}
    else p++;
    rename(tname,p);
    lu_modp = FALSE;
    lu_fd = lopen(p,OPEN_RW);
    if (lu_fd == FAILURE) {
	perror("lu: library open error");
	return;
	}
    getname(lu_fd,lu_libr);
    if (old_dire() == FAILURE) {
	close(lu_fd);
	fprintf(stderr,"lu: error reading or bad format library %s\n",lu_libr);
	return;
	}
    lu_openp = TRUE;
    }