Category : C Source Code
Archive   : AXMSLIB.ZIP
Filename : XMSTEST.C

 
Output of file : XMSTEST.C contained in archive : AXMSLIB.ZIP
/* X M S T E S T . c -- Demonstration of the XMSLIB functions
* ---------------------------------------------------------------
* Michael G.A. Wilson February 1992
* ---------------------------------------------------------------
*/

/* ------------------------ Pragmas -------------------------- */

/* ---------------------- Include files ----------------------- */
#include // for FILE, etc
#include // for calloc()
#include // for strlen()

#include "xmslib.h" // for XMS functions

/* -------------------- Local definitions --------------------- */
#define MAX_LINES 10000 // Longest file allowed (small model)
#define LONGEST_LINE 128 // Longest line allowed in file

/* ------------------- Function prototypes -------------------- */

/* ------------------------- Globals -------------------------- */

/* ------------------------------------------------------------ */

// m a i n
// -------
// Program mainline. List some text files on stdout, after buffering the
// contents in XMS memory. Illustrates use of some XMSLIB functions.
//
// Arguments:
// Number of command line arguments given + 1
// Expected to hold one or more file names: list these files
// on standard output, after reading them into extended memory.
//
void main (int argc, char **argv)
{
if (XMSinstalled() && XMSopen(0))
{
// Make a table to store the handles to the strings we'll put in XMS memory
XMSHANDLE ** HandleBuf = (XMSHANDLE**)calloc(MAX_LINES,sizeof(XMSHANDLE));

if (HandleBuf != NULL)
{
while (argc-- > 1) // For each file...
{
FILE * fp = fopen(*++argv, "r");

if (fp != NULL)
{
XMSHANDLE * pH = (XMSHANDLE *)HandleBuf;
char szLine[LONGEST_LINE];
unsigned uLineCount = 0;

puts(strupr(*argv));
while (fgets(szLine, LONGEST_LINE, fp) != NULL) // For each line...
{
XMSHANDLE hXM;
size_t uLen = strlen(szLine) + 1;

if ((hXM = XMSalloc(uLen)) != XMSHNULL && // Make XMS space
XMSput(hXM, szLine, uLen)) // Copy to XMS
*pH++ = hXM; // Store handle
else
{
printf("\n\aXMSalloc() or XMSput() failed.\n");
break;
}
printf("%u\r", ++uLineCount); // Show progress
}

printf("\n%u lines stored.\n\n", uLineCount);
fclose(fp);

pH = (XMSHANDLE *)HandleBuf; // Rewind to start

while (uLineCount-- > 0)
{
if (XMSget(szLine, *pH) && XMSfree(*pH++)) // Read line back
printf("%s", szLine); // and free XMS
else
{
printf("\n\aXMSget() or XMSfree() failed.\n");
break;
}
}
printf("\n----- END OF %s -----\n\n", *argv);
}
}
free(HandleBuf);
}
else
printf("Insufficient memory");

XMSclose();
}
else
printf("Can't access extended memory.\n");
}


  3 Responses to “Category : C Source Code
Archive   : AXMSLIB.ZIP
Filename : XMSTEST.C
”

  1. Daniel says:
    January 27, 2013 at 3:59 pm

    Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. Joshie says:
    March 18, 2014 at 4:57 pm

    This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. DiskingRound says:
    January 14, 2015 at 10:57 pm

    But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/