/*  Express System

    Copyright (c) Express Software 1997.
    All Rights Reserved.
    Version 1.0
    
    Created by: Joseph Cosentino.
    
*/

// I N C L U D E S //////////////////////////////////////////////////////////

#include <dos.h>
#include <bios.h>
#include <conio.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>

// D E F I N E S ////////////////////////////////////////////////////////////

#define LPT1 0

// P R O T O T Y P E S //////////////////////////////////////////////////////

int classify_args(int narg, char *rawargs[], char *fileargs[], char *optargs[]);

// F U N C T I O N S ////////////////////////////////////////////////////////

int classify_args(int narg, char *rawargs[], char *fileargs[], char *optargs[])
{
    int index, jndex, kndex;
    char *argptr;

    for (index=0,jndex=0,kndex=0;index<narg;index++)
        {
        argptr = rawargs[index];
        if (*argptr == '/')
            {
            argptr++;
            optargs[kndex++] = argptr;
            } // end if.
        else
            {
            fileargs[jndex++] = argptr;
            } // end else.

        } // end for.

   return kndex;

} // end classify_args.

/////////////////////////////////////////////////////////////////////////////

void main(int argc, char *argv[])
{
    char *fileargs[64], *optargs[64];
    int n_options, n_files, index, help_flag=0, version;
    struct _diskfree_t drvinfo;
    unsigned drive, drivecount, pstatus;

    n_options = classify_args(argc, argv, fileargs, optargs);
    n_files = argc - n_options;

    for (index=0;index<n_options;index++)
        {
        if (optargs[index][0] == '?') help_flag=1;
        else
            {
            printf("Invalid parameter - /%s\n", strupr(optargs[index]));
            exit(1);
            } // end else.
            
        } // end for.

    if (help_flag)
        {
        printf("Displays information about your system.\n\n"
               "Syntax: EXS [/?]\n"
               "  /?    Displays this help message\n");
        exit(1);
        } // end if.
    else
        {
        union
            {                           // Access equiment either as
            unsigned u;                 // unsigned or bit fields.
            struct
                {
                unsigned diskflag: 1;   // Diskette drive installed?
                unsigned coprocessor: 1;// Coprocessor? (except on PC).
                unsigned sysram: 2;     // RAM on system board.
                unsigned video: 2;      // Startup video mode.
                unsigned disks: 2;      // Drives 00=1, 01=2, 10=3, 11=4
                unsigned dma: 1;        // 0=Yes, 1=No (1 for PC Jr.)
                unsigned comports: 3;   // Serial ports.
                unsigned game: 1;       // Game adapter installed?
                unsigned modem: 1;      // Internal modem?
                unsigned printers: 2;   // Number of printers.
                } bits;
            } equip;
        char y[] = "Yes", n[] = "No";
        char Off[] = "Off", On[] = "On";
        char i[] = "Installed", ni[] = "Not installed";
        char ext[] = "External", inte[] = "Internal";

        printf("Express System\nCopyright (c) Express Software 1997.\nAll Rights Reserved.\n\n");

        // Get OS info.
        version = bdos(0x30, 0, 0);
        printf("EX-DOS is in %s mode\n", (_osmode) ? "Protected" : "Real");
        printf("EX-DOS Version %d.%d\n", version &0xFF, version >> 8);

        // Get current drive.
        _dos_getdrive(&drive);
        printf("Current drive:\t\t%c:\n", 'A' + drive - 1);

        // Set drive to current drive in order to get number of drives.
        _dos_setdrive(drive, &drivecount);

        _dos_getdiskfree(drive, &drvinfo);
        printf("Disk space free:\t%ld\n", (long)drvinfo.avail_clusters * drvinfo.sectors_per_cluster * drvinfo.bytes_per_sector);
        printf("Memory:\t\t\t%uK\n", _bios_memsize);

        equip.u = _bios_equiplist();
        printf("Coprocessor:\t\t%s\n", equip.bits.coprocessor ? i : ni);
        printf("Game adapter:\t\t%s\n", equip.bits.game ? y : n);
        printf("Serial ports:\t\t%d\n", equip.bits.comports);
        printf("Number of printers:\t%d\n", equip.bits.printers);

        // Fail if any error bit is on, or if either operation bit is off.
        pstatus = _bios_printer( _PRINTER_STATUS, LPT1, 0 );
        if((pstatus & 0x29) || !(pstatus & 0x80) || !(pstatus & 0x10))
            pstatus=0;
        else
            pstatus=1;

        printf("Printer is:\t\t%s\n", pstatus ? On : Off );
        printf("Modem:\t\t\t%s\n", equip.bits.modem ? ext : inte);
        
    } // end else.

} // end main.