/*-
 * getdevinfo.c - get filesystem information about a disk device
 *
 * DiskChecker 1.0 Copyright 1989 C. Harald Koch. All Rights Reserved.
 *
-*/

#include        "libraries/dos.h"
#include        "libraries/dosextens.h"
#include        "libraries/filehandler.h"
#include        <exec/memory.h>

#include        <ctype.h>
#include        <stdio.h>

#include        "devinfo.h"

extern struct DosLibrary *DOSBase;
extern void    *AllocMem();

#define CTOB(x) (void *)(((long)(x))>>2)        /* BCPL conversion */
#define BTOC(x) (void *)(((long)(x))<<2)

touppers(s)
char           *s;
{
    while (*s) {
        *s = (islower(*s)) ? toupper(*s) : *s;
        s++;
    }
}

void
BtoCStr(cstr, bstr)
char           *cstr;
BPTR            bstr;
{
    char           *bstr2;
    int             i;

    bstr2 = BTOC(bstr);
    for (i = 0; i < bstr2[0]; i++) {
        cstr[i] = bstr2[i + 1];
    }
    cstr[i] = '\0';
}


struct MyDevInfo *
getDevInfo(name)
char           *name;
{
    struct RootNode *root;
    struct DosInfo *info;
    struct DeviceNode *dnode;
    struct FileSysStartupMsg *fsmsg;
    struct DosEnvec *env;
    long            unit;
    char            dosname[20];
    char            execname[256];
    long            flags;
    struct MyDevInfo *mdi;
    root = (struct RootNode *) DOSBase->dl_Root;
    info = (struct DosInfo *) BTOC(root->rn_Info);
    dnode = (struct DeviceNode *) BTOC(info->di_DevInfo);

    for (; dnode != NULL;) {
        if (dnode->dn_Type == DLT_DEVICE) {
            BtoCStr(dosname, dnode->dn_Name);
            if (strcmp(name, dosname) == 0) {
                /* found it! */
                fsmsg = (struct FileSysStartupMsg *) BTOC(dnode->dn_Startup);
                if (fsmsg != NULL) {
                    char           *bcplname;
                    long            namelen;

                    mdi = AllocMem(sizeof(*mdi), MEMF_CLEAR);
                    bcplname = BTOC(fsmsg->fssm_Device);
                    namelen = bcplname[0] + 1;
                    mdi->DeviceName = AllocMem(namelen, 0L);
                    BtoCStr(mdi->DeviceName, fsmsg->fssm_Device);
                    mdi->Unit = fsmsg->fssm_Unit;
                    mdi->DeviceFlags = fsmsg->fssm_Flags;
                    env = BTOC(fsmsg->fssm_Environ);
                    mdi->BlockSize = env->de_SizeBlock * 4;
                    mdi->Surfaces = env->de_Surfaces;
                    mdi->BlocksPerTrack = env->de_BlocksPerTrack;
                    mdi->Reserved = env->de_Reserved;
                    mdi->PreAlloc = env->de_PreAlloc;
                    mdi->LowCyl = env->de_LowCyl;
                    mdi->HighCyl = env->de_HighCyl;
                    if (env->de_TableSize >= 12) {
                        mdi->BufMemType = env->de_BufMemType;
                    }
                    else {
                        mdi->BufMemType = MEMF_CHIP;
                    }
                    if (env->de_TableSize >= 16) {
                        mdi->DosType = env->de_DosType;
                    }
                    else {
                        mdi->DosType = 0x444f5300;
                    }

                    return mdi;
                }
            }
        }
        dnode = (struct DeviceNode *) BTOC(dnode->dn_Next);
    }
    return NULL;
}