Frozen Fish 1: Amiga/FrozenFish-Apr94.iso/bbs/alib/d3xx/d352/mg.lha/MG/src.LZH/mg/dired.c

C/C++ Source or Header | 1990-05-23 | 4KB | 223 lines

/* dired module for mg 2a     */
/* by Robert A. Larson         */

#include "no_dired.h"

#ifndef NO_DIRED

#include "def.h"
#include "line.h"
#include "buffer.h"
#include "window.h"

#ifdef    ANSI
#undef EOF
#include <stdio.h>
#include <fcntl.h>
#endif

struct buffer  *dired_ PROTO((char *));

/* ARGSUSED */
dired(f, n)
    int             f, n;
{
    char            dirname[NFILEN];
    struct buffer  *bp;

    dirname[0] = '\0';
    if (eread("Dired: ", dirname, NFILEN, EFNEW | EFCR) == ABORT)
        return ABORT;
    if ((bp = dired_(dirname)) == NULL)
        return FALSE;
    curbp = bp;
    return showbuffer(bp, curwp, WFHARD | WFMODE);
}

/* ARGSUSED */
d_otherwindow(f, n)
    int             f, n;
{
    char            dirname[NFILEN];
    struct buffer  *bp;
    struct window  *wp;

    dirname[0] = '\0';
    if (eread("Dired other window: ", dirname, NFILEN, EFNEW | EFCR) == ABORT)
        return ABORT;
    if ((bp = dired_(dirname)) == NULL)
        return FALSE;
    if ((wp = popbuf(bp)) == NULL)
        return FALSE;
    curbp = bp;
    curwp = wp;
    return TRUE;
}

/* ARGSUSED */
d_del(f, n)
    int             f, n;
{
    if (n < 0)
        return FALSE;
    while (n--) {
        if (llength(curwp->w_dotp) > 0)
            lputc(curwp->w_dotp, 0, 'D');
        if (lforw(curwp->w_dotp) != curbp->b_linep)
            curwp->w_dotp = lforw(curwp->w_dotp);
    }
    curwp->w_flag |= WFEDIT | WFMOVE;
    curwp->w_doto = 0;
    return TRUE;
}

/* ARGSUSED */
d_undel(f, n)
    int             f, n;
{
    if (n < 0)
        return d_undelbak(f, -n);
    while (n--) {
        if (llength(curwp->w_dotp) > 0)
            lputc(curwp->w_dotp, 0, ' ');
        if (lforw(curwp->w_dotp) != curbp->b_linep)
            curwp->w_dotp = lforw(curwp->w_dotp);
    }
    curwp->w_flag |= WFEDIT | WFMOVE;
    curwp->w_doto = 0;
    return TRUE;
}

/* ARGSUSED */
d_undelbak(f, n)
    int             f, n;
{
    if (n < 0)
        return d_undel(f, -n);
    while (n--) {
        if (llength(curwp->w_dotp) > 0)
            lputc(curwp->w_dotp, 0, ' ');
        if (lback(curwp->w_dotp) != curbp->b_linep)
            curwp->w_dotp = lback(curwp->w_dotp);
    }
    curwp->w_doto = 0;
    curwp->w_flag |= WFEDIT | WFMOVE;
    return TRUE;
}

/* ARGSUSED */
d_findfile(f, n)
    int             f, n;
{
    char            fname[NFILEN];
    register struct buffer *bp;
    register int    s;
    struct buffer  *findbuffer();

    if ((s = d_makename(curwp->w_dotp, fname)) == ABORT)
        return FALSE;
    if ((bp = (s ? dired_(fname) : findbuffer(fname))) == NULL)
        return FALSE;
    curbp = bp;
    if (showbuffer(bp, curwp, WFHARD) != TRUE)
        return FALSE;
    if (bp->b_fname[0] != 0)
        return TRUE;
    return readin(fname);
}

/* ARGSUSED */
d_ffotherwindow(f, n)
    int             f, n;
{
    char            fname[NFILEN];
    register struct buffer *bp;
    register int    s;
    register struct window *wp;
    struct buffer  *findbuffer();

    if ((s = d_makename(curwp->w_dotp, fname)) == ABORT)
        return FALSE;
    if ((bp = (s ? dired_(fname) : findbuffer(fname))) == NULL)
        return FALSE;
    if ((wp = popbuf(bp)) == NULL)
        return FALSE;
    curbp = bp;
    curwp = wp;
    if (bp->b_fname[0] != 0)
        return TRUE;    /* never true for dired buffers */
    return readin(fname);
}

/* ARGSUSED */
d_expunge(f, n)
    int             f, n;
{
    register struct line *lp, *nlp;
    char            fname[NFILEN];
    VOID            lfree();

    for (lp = lforw(curbp->b_linep); lp != curbp->b_linep; lp = nlp) {
        nlp = lforw(lp);
        if (llength(lp) && lgetc(lp, 0) == 'D') {
            switch (d_makename(lp, fname)) {
            case ABORT:
                ewprintf("Bad line in dired buffer");
                return FALSE;
            case FALSE:
                if (unlink(fname)) {
                    ewprintf("Could not delete '%s'", fname);
                    return FALSE;
                }
                break;
            case TRUE:
                if (unlinkdir(fname)) {
                    ewprintf("Could not delete directory '%s'", fname);
                    return FALSE;
                }
                break;
            }
            lfree(lp);
            curwp->w_flag |= WFHARD;
        }
    }
    return TRUE;
}

/* ARGSUSED */
d_copy(f, n)
    int             f, n;
{
    char            frname[NFILEN], toname[NFILEN];
    int             stat;

    if (d_makename(curwp->w_dotp, frname) != FALSE) {
        ewprintf("Not a file");
        return FALSE;
    }
    if ((stat = eread("Copy %s to: ", toname, NFILEN, EFNEW | EFCR, frname))
        != TRUE)
        return stat;
    return copy(frname, toname) >= 0;
}

/* ARGSUSED */
d_rename(f, n)
    int             f, n;
{
    char            frname[NFILEN], toname[NFILEN];
    int             stat;

    if (d_makename(curwp->w_dotp, frname) != FALSE) {
        ewprintf("Not a file");
        return FALSE;
    }
    if ((stat = eread("Rename %s to: ", toname, NFILEN, EFNEW | EFCR, frname))
        != TRUE)
        return stat;
    return rename(frname, toname) >= 0;
}
#else
#include "nullfile.h"
#endif