Amiga ISO Collection/AmigaUtilCD2.iso/Misc/FTPMOUNT.LZX/FTPMount-0.7/Source/split.c

C/C++ Source or Header | 1995-09-06 | 4.5 KB | 264 lines

/*
 * This source file is Copyright 1995 by Evan Scott.
 * All rights reserved.
 * Permission is granted to distribute this file provided no
 * fees beyond distribution costs are levied.
 */

#include <exec/types.h>
#include <exec/memory.h>
#include <exec/alerts.h>

#include <dos/dos.h>
#include <dos/dosextens.h>
#include <dos/dostags.h>

#include <proto/exec.h>
#include <proto/dos.h>

#include <stdio.h>
#include <stdlib.h>
#include <string.h>

#include "evtypes.h"
#include "verify.h"
#include "tcp.h"

#include "site.h"
#include "ftp.h"
#include "split.h"

#include "globals.h"

boolean collapse(b8 *s)
{
    b8 *t, *u;

    t = s;
    u = s;

    /* . & .. are illegal */
    if (u[0] == '.') {
        if (u[1] == 0) return false;
        if (u[1] == '/') return false;
        if (u[1] == '.') {
            if (u[2] == 0) return false;
            if (u[2] == '/') return false;
        }
    }

    while (*u) {
        if (t == s && u[0] == '/') return false;

        if (u[0] == '/' && u[1] == '.') {
            if (u[2] == 0) return false;
            if (u[2] == '/') return false;
            if (u[2] == '.') {
                if (u[3] == 0) return false;
                if (u[3] == '/') return false;
            }
        }

        if (u[0] == '/' && u[1] == '/') {
            while (--t > s) {
                if (*t == '/') break;
            }
            u++;
            if (t == s) u++;
        } else {
            *t++ = *u++;
        }
    }

    if (t > s && t[-1] == '/') t[-1] = 0;    /* cull the trailing '/' */

    *t = 0;

    return true;
}

boolean split_data(lock *l, b8 *z, split *sd)
{
    b8 *s, *t;
    int len1, len2, len3;
    /*
     * sigh ... all that work to separate the libs to processes ... just
     * given up and used the global DosBase here
     */
    struct DevProc *dp;

    truth(z != nil);

    if (!l && z[0] == 0) {

        sd->port = local_port;
        sd->path = nil;

        sd->work = nil;

        return true;
    }

    s = (b8 *)allocate(z[0] + 1, V_cstr);
    if (!s) {
        sd->work = nil;
        return false;
    }

    if (z[0])
        memcpy(s, &z[1], z[0]);

    s[z[0]] = 0;

    sd->work = s;

    for (; ; s++) {
        if (!*s) {
            z = sd->work;
            break;
        }

        if (*s == ':') {
            s++;
            dp = GetDeviceProc(sd->work, nil);
            if (!dp) {
                deallocate(sd->work, V_cstr);
                sd->work = nil;
                return false;
            }

            l = (lock *)(dp->dvp_Lock << 2);

            FreeDeviceProc(dp);

            z = s;

            break;
        }
    }

    /* have to look at lock to see where we are relative to */

    if (!l || (l->port == local_port && l->rfsl == ftphosts_lock)) {
        s = z;
        goto resolve;
    }

    verify(l, V_lock);

    if (l->port == local_port) {    /* most handlers might allow this, but there's no point */
        show_string("Split Fail B");
        deallocate(sd->work, V_cstr);
        sd->work = nil;
        return false;
    }

    /* construct a full path name so we can collapse it sensibly */

    if (l->fname[0] == 0) {
        len1 = strlen(l->port->mp_Node.ln_Name);
        len2 = strlen(z);

        s = (b8 *)allocate(len1 + len2 + 2, V_cstr);
        if (!s) {
            deallocate(sd->work, V_cstr);
            sd->work = nil;
            return false;
        }

        strcpy(s, l->port->mp_Node.ln_Name);

        if (sd->work[0]) {
            s[len1] = '/';
            strcpy(&s[len1 + 1], z);
        } else {
            s[len1] = 0;
        }

        deallocate(sd->work, V_cstr);
        sd->work = s;
    } else {
        len1 = strlen(l->port->mp_Node.ln_Name);
        len2 = strlen(l->fname);
        len3 = strlen(z);

        s = (b8 *)allocate(len1 + len2 + len3 + 3, V_cstr);
        if (!s) {
            deallocate(sd->work, V_cstr);
            sd->work = nil;
            return false;
        }

        strcpy(s, l->port->mp_Node.ln_Name);
        s[len1] = '/';
        strcpy(&s[len1 + 1], l->fname);
        if (sd->work[0]) {
            s[len1 + len2 + 1] = '/';
            strcpy(&s[len1 + len2 + 2], z);
        } else {
            s[len1 + len2 + 1] = 0;
        }
        deallocate(sd->work, V_cstr);
        sd->work = s;
    }

resolve:
    if (!collapse(s)) {
        deallocate(sd->work, V_cstr);
        sd->work = nil;
        return false;
    }

    for (t = s; *t; t++) {
        if (*t == '/') {
            *t++ = 0;
            sd->port = get_site(s);
            if (!sd->port) {
                deallocate(sd->work, V_cstr);
                sd->work = nil;
                return false;
            }
            if (t[0])
                sd->path = t;
            else
                sd->path = nil;
            return true;
        }
    }

    if (s[0] == 0) {
        deallocate(sd->work, V_cstr);
        sd->work = nil;
        sd->path = nil;
        sd->port = local_port;
        return true;
    }

    /* ok, we don't have a '/' so check for .info or Unnamed or
       Disk ... they are "special" */
    if (stricmp(s, "Disk") == 0 ||
            strnicmp(s, "Unnamed", 7) == 0 ||
            stricmp(s, ".backdrop") == 0 ||
            stricmp(&s[strlen(s) - 5], ".info") == 0) {
        sd->port = local_port;
        sd->path = s;
        return true;
    }

    sd->port = get_site(s);
    deallocate(sd->work, V_cstr);
    sd->work = nil;
    sd->path = nil;

    if (!sd->port) return false;
    return true;
}

void end_split(split *sd)
{
    if (sd->work) {
        deallocate(sd->work, V_cstr);
        sd->work = nil;
    }
}