Club Amiga de Montreal - CAM/CAM_CD_1.iso/files/375.lha/ARPTools_v1.0/src/Cwin.c

C/C++ Source or Header | 1990-05-02 | 5KB | 224 lines

/*
          Cwin - Size the CLI window.

          Original effort by Fabio Rossetti.

          (c) 1989 by Fabio Rossetti

      To compile under Lattice C v5.0x use:

        lc -O -cus -v cwin.c
        blink from lib:cres.o cwin.o to cwin lib lib:a.lib lib:lc.lib sd nd

*/

#include <exec/types.h>
#include <exec/ports.h>
#include <exec/io.h>
#include <exec/memory.h>
#include <exec/libraries.h>

#include <devices/console.h>
#include <devices/conunit.h>
#include <libraries/dos.h>
#include <libraries/dosextens.h>
#include <libraries/arpbase.h>

#include <intuition/intuitionbase.h>
#include <intuition/intuition.h>

#include <arpfunctions.h>
#include <proto/exec.h>
#include <proto/intuition.h>

struct MsgPort iorp = {
    {0, 0, NT_MSGPORT, 0, 0}, 0,
    -1,                /* initialize signal to -1 */
    0,
                /* start with empty list */
    {&iorp.mp_MsgList.lh_Tail, 0, &iorp.mp_MsgList.lh_Head, 0, 0}
};

struct IOStdReq ior = {
    {{0, 0, 0, 0, 0}, &iorp, 0},
    0                /* device is zero */
};

struct Window *W;
struct ArpBase *ArpBase;
struct IntuitionBase *IntuitionBase;

VOID Cleanup(code)
{
    if (ior.io_Device != 0) {
    if (iorp.mp_SigBit != -1) {
        FreeSignal(iorp.mp_SigBit);
    }
    CloseDevice(&ior);
    }
    CloseLibrary((struct Library*)ArpBase);
    exit(code);
}

/* bulletproofly obtain a pointer to the CLI window sending a ACTION_DISK_INFO
   packet to the console process and looking into InfoData */
struct Window *GetWin()

{
    struct MsgPort *con;
    struct StandardPacket *packet=NULL;
    struct InfoData *id=NULL;

    /* open the console device */
    if ((OpenDevice("console.device", -1, &ior, 0)) != 0) {
    Cleanup(RETURN_FAIL);
    }

    /* set up the message port in the I/O request */
    if ((iorp.mp_SigBit = AllocSignal(-1)) < 0) {
    Cleanup(RETURN_FAIL);
    }
    iorp.mp_SigTask = (struct Task*)FindTask(NULL);

    /* try to find console associated with calling process */
    /* if started from CLI, than is  */
    if ((iorp.mp_SigTask->tc_Node.ln_Type == NT_PROCESS)) {
    con = (struct MsgPort *)
        ((struct Process *) iorp.mp_SigTask) -> pr_ConsoleTask;
    if (con != 0) {
        if ((packet = (struct StandardPacket *)
            ArpAlloc(sizeof(*packet)))) {
        if ((id = (struct id *) ArpAlloc(sizeof(*id)))) {
            /* this is the console handlers packet port */
            packet->sp_Msg.mn_Node.ln_Name = &(packet->sp_Pkt);
            packet->sp_Pkt.dp_Link = &(packet->sp_Msg);
            packet->sp_Pkt.dp_Port = &iorp;
            packet->sp_Pkt.dp_Type = ACTION_DISK_INFO;
            packet->sp_Pkt.dp_Arg1 = ((ULONG) id) >> 2;
            PutMsg(con, packet);
             WaitPort(&iorp);
            /* Pointer to console window, all we need..*/
            return( (struct Window*)(id->id_VolumeNode));
        }
    }
    }
    /* error */
    return((struct Window *)-1);
}
}

VOID MemCleanup()
{
}

VOID _main(Line)

STRPTR Line;

{



    LONG argc,val;
    STRPTR argv[7];
    WORD sdx=0,sdy=0,mdx=0,mdy=0;

    if(!(ArpBase = (struct ArpBase*)OpenLibrary(ArpName,ArpVersion))) exit(20);

    IntuitionBase = ArpBase->IntuiBase;

    /* parse command line */
    for (argc=0;argc < 7;++argc)
        argv[argc] = (STRPTR) NULL;

    while(*Line > ' ')
        ++Line;

    argc = GADS(++Line,
            strlen(Line),
"\nUsage: Cwin BIG=B | SMALL=S | INFO=I\n       Cwin LeftEdge|# TopEdge|# Width|MAX|# Height|MAX|#\n",
            argv,
"BIG=B/S,SMALL=S/S,INFO=I/S,LEFTEDGE,TOPEDGE,WIDTH,HEIGHT");

    if ((W = GetWin()) == (struct Window *)-1) Cleanup(RETURN_FAIL);

        if (argv[2]) {
        /* There will be a 16384^2 Amiga :) ?
           Cwin will be there anyway...*/
        Printf("%05ld %05ld %05ld %05ld %s\n",
            W->LeftEdge,
            W->TopEdge,
            W->Width,
            W->Height,
            W->Title);
        Cleanup(RETURN_OK);
            }


        /* expand window */
        if (argv[0]) {
        MoveWindow(W,(-W->LeftEdge),(-W->TopEdge));
        Delay(7);
        SizeWindow(W,(((W->WScreen)->Width)-(W->Width)),
            (((W->WScreen)->Height)-(W->Height)));

        WindowToFront(W);
        Cleanup(RETURN_OK);

        }

        /* iconify window */
        if (argv[1])

        {

        SizeWindow(W,((W->MinWidth)-(W->Width)),
            ((W->MinHeight)-(W->Height)));
    Cleanup(RETURN_OK);

        }

    /* size window */
    if (argc > 3) {

        /* leftedge */
        val = Atol(argv[3]);
        if (!(Errno==ERRBADINT) && (val >= 0) &&
            (val+W->Width <= W->WScreen->Width))
            mdx = val-W->LeftEdge;
            Errno = NULL;

        val = Atol(argv[4]);
        if (!(Errno==ERRBADINT) && (val >= 0) &&
            (val+W->Height <= W->WScreen->Height))
            mdy = val-W->TopEdge;
            Errno = NULL;

        if (Strcmp(argv[5],"MAX")) {
        val = Atol(argv[5]);
        if (!(Errno==ERRBADINT) && (val >= W->MinWidth) &&
            (val+W->LeftEdge <= W->WScreen->Width))
            sdx = val-W->Width;
        Errno = NULL;
            }
        else sdx = (((W->WScreen)->Width)-(W->Width));

    if (Strcmp(argv[6],"MAX")) {
        val = Atol(argv[6]);
    if (!(Errno==ERRBADINT) && (val >= W->MinHeight) &&
            (val+W->TopEdge <= W->WScreen->Height))
            sdy = val-W->Height;
        Errno = NULL;
            }
    else sdy = (((W->WScreen)->Height)-(W->Height));
        MoveWindow(W,mdx,mdy);
        Delay(7);
        SizeWindow(W,sdx,sdy);

         }
        else Puts("Error: Too few arguments");

    Cleanup(RETURN_OK);
}