home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 2 BBS / 02-BBS.zip / lora299s.zip / MISC.CPP < prev    next >
Encoding:
C/C++ Source or Header  |  1998-05-12  |  19.8 KB  |  609 lines
  1.  
  2. // LoraBBS Version 2.99 Free Edition
  3. // Copyright (C) 1987-98 Marco Maccaferri
  4. //
  5. // This program is free software; you can redistribute it and/or modify
  6. // it under the terms of the GNU General Public License as published by
  7. // the Free Software Foundation; either version 2 of the License, or
  8. // (at your option) any later version.
  9. //
  10. // This program is distributed in the hope that it will be useful,
  11. // but WITHOUT ANY WARRANTY; without even the implied warranty of
  12. // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13. // GNU General Public License for more details.
  14. //
  15. // You should have received a copy of the GNU General Public License
  16. // along with this program; if not, write to the Free Software
  17. // Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
  18.  
  19. #include "_ldefs.h"
  20. #if defined(__DOS__)
  21. #include "cxl.h"
  22. #elif defined(__LINUX__)
  23. #include <curses.h>
  24. #endif
  25.  
  26. ULONG cr3tab[] = {
  27.    0x00000000L, 0x77073096L, 0xee0e612cL, 0x990951baL, 0x076dc419L, 0x706af48fL, 0xe963a535L, 0x9e6495a3L,
  28.    0x0edb8832L, 0x79dcb8a4L, 0xe0d5e91eL, 0x97d2d988L, 0x09b64c2bL, 0x7eb17cbdL, 0xe7b82d07L, 0x90bf1d91L,
  29.    0x1db71064L, 0x6ab020f2L, 0xf3b97148L, 0x84be41deL, 0x1adad47dL, 0x6ddde4ebL, 0xf4d4b551L, 0x83d385c7L,
  30.    0x136c9856L, 0x646ba8c0L, 0xfd62f97aL, 0x8a65c9ecL, 0x14015c4fL, 0x63066cd9L, 0xfa0f3d63L, 0x8d080df5L,
  31.    0x3b6e20c8L, 0x4c69105eL, 0xd56041e4L, 0xa2677172L, 0x3c03e4d1L, 0x4b04d447L, 0xd20d85fdL, 0xa50ab56bL,
  32.    0x35b5a8faL, 0x42b2986cL, 0xdbbbc9d6L, 0xacbcf940L, 0x32d86ce3L, 0x45df5c75L, 0xdcd60dcfL, 0xabd13d59L,
  33.    0x26d930acL, 0x51de003aL, 0xc8d75180L, 0xbfd06116L, 0x21b4f4b5L, 0x56b3c423L, 0xcfba9599L, 0xb8bda50fL,
  34.    0x2802b89eL, 0x5f058808L, 0xc60cd9b2L, 0xb10be924L, 0x2f6f7c87L, 0x58684c11L, 0xc1611dabL, 0xb6662d3dL,
  35.    0x76dc4190L, 0x01db7106L, 0x98d220bcL, 0xefd5102aL, 0x71b18589L, 0x06b6b51fL, 0x9fbfe4a5L, 0xe8b8d433L,
  36.    0x7807c9a2L, 0x0f00f934L, 0x9609a88eL, 0xe10e9818L, 0x7f6a0dbbL, 0x086d3d2dL, 0x91646c97L, 0xe6635c01L,
  37.    0x6b6b51f4L, 0x1c6c6162L, 0x856530d8L, 0xf262004eL, 0x6c0695edL, 0x1b01a57bL, 0x8208f4c1L, 0xf50fc457L,
  38.    0x65b0d9c6L, 0x12b7e950L, 0x8bbeb8eaL, 0xfcb9887cL, 0x62dd1ddfL, 0x15da2d49L, 0x8cd37cf3L, 0xfbd44c65L,
  39.    0x4db26158L, 0x3ab551ceL, 0xa3bc0074L, 0xd4bb30e2L, 0x4adfa541L, 0x3dd895d7L, 0xa4d1c46dL, 0xd3d6f4fbL,
  40.    0x4369e96aL, 0x346ed9fcL, 0xad678846L, 0xda60b8d0L, 0x44042d73L, 0x33031de5L, 0xaa0a4c5fL, 0xdd0d7cc9L,
  41.    0x5005713cL, 0x270241aaL, 0xbe0b1010L, 0xc90c2086L, 0x5768b525L, 0x206f85b3L, 0xb966d409L, 0xce61e49fL,
  42.    0x5edef90eL, 0x29d9c998L, 0xb0d09822L, 0xc7d7a8b4L, 0x59b33d17L, 0x2eb40d81L, 0xb7bd5c3bL, 0xc0ba6cadL,
  43.    0xedb88320L, 0x9abfb3b6L, 0x03b6e20cL, 0x74b1d29aL, 0xead54739L, 0x9dd277afL, 0x04db2615L, 0x73dc1683L,
  44.    0xe3630b12L, 0x94643b84L, 0x0d6d6a3eL, 0x7a6a5aa8L, 0xe40ecf0bL, 0x9309ff9dL, 0x0a00ae27L, 0x7d079eb1L,
  45.    0xf00f9344L, 0x8708a3d2L, 0x1e01f268L, 0x6906c2feL, 0xf762575dL, 0x806567cbL, 0x196c3671L, 0x6e6b06e7L,
  46.    0xfed41b76L, 0x89d32be0L, 0x10da7a5aL, 0x67dd4accL, 0xf9b9df6fL, 0x8ebeeff9L, 0x17b7be43L, 0x60b08ed5L,
  47.    0xd6d6a3e8L, 0xa1d1937eL, 0x38d8c2c4L, 0x4fdff252L, 0xd1bb67f1L, 0xa6bc5767L, 0x3fb506ddL, 0x48b2364bL,
  48.    0xd80d2bdaL, 0xaf0a1b4cL, 0x36034af6L, 0x41047a60L, 0xdf60efc3L, 0xa867df55L, 0x316e8eefL, 0x4669be79L,
  49.    0xcb61b38cL, 0xbc66831aL, 0x256fd2a0L, 0x5268e236L, 0xcc0c7795L, 0xbb0b4703L, 0x220216b9L, 0x5505262fL,
  50.    0xc5ba3bbeL, 0xb2bd0b28L, 0x2bb45a92L, 0x5cb36a04L, 0xc2d7ffa7L, 0xb5d0cf31L, 0x2cd99e8bL, 0x5bdeae1dL,
  51.    0x9b64c2b0L, 0xec63f226L, 0x756aa39cL, 0x026d930aL, 0x9c0906a9L, 0xeb0e363fL, 0x72076785L, 0x05005713L,
  52.    0x95bf4a82L, 0xe2b87a14L, 0x7bb12baeL, 0x0cb61b38L, 0x92d28e9bL, 0xe5d5be0dL, 0x7cdcefb7L, 0x0bdbdf21L,
  53.    0x86d3d2d4L, 0xf1d4e242L, 0x68ddb3f8L, 0x1fda836eL, 0x81be16cdL, 0xf6b9265bL, 0x6fb077e1L, 0x18b74777L,
  54.    0x88085ae6L, 0xff0f6a70L, 0x66063bcaL, 0x11010b5cL, 0x8f659effL, 0xf862ae69L, 0x616bffd3L, 0x166ccf45L,
  55.    0xa00ae278L, 0xd70dd2eeL, 0x4e048354L, 0x3903b3c2L, 0xa7672661L, 0xd06016f7L, 0x4969474dL, 0x3e6e77dbL,
  56.    0xaed16a4aL, 0xd9d65adcL, 0x40df0b66L, 0x37d83bf0L, 0xa9bcae53L, 0xdebb9ec5L, 0x47b2cf7fL, 0x30b5ffe9L,
  57.    0xbdbdf21cL, 0xcabac28aL, 0x53b39330L, 0x24b4a3a6L, 0xbad03605L, 0xcdd70693L, 0x54de5729L, 0x23d967bfL,
  58.    0xb3667a2eL, 0xc4614ab8L, 0x5d681b02L, 0x2a6f2b94L, 0xb40bbe37L, 0xc30c8ea1L, 0x5a05df1bL, 0x2d02ef8dL
  59. };
  60.  
  61. USHORT crctab[256] = {
  62.    0x0000, 0x1021, 0x2042, 0x3063, 0x4084, 0x50a5, 0x60c6, 0x70e7,
  63.    0x8108, 0x9129, 0xa14a, 0xb16b, 0xc18c, 0xd1ad, 0xe1ce, 0xf1ef,
  64.    0x1231, 0x0210, 0x3273, 0x2252, 0x52b5, 0x4294, 0x72f7, 0x62d6,
  65.    0x9339, 0x8318, 0xb37b, 0xa35a, 0xd3bd, 0xc39c, 0xf3ff, 0xe3de,
  66.    0x2462, 0x3443, 0x0420, 0x1401, 0x64e6, 0x74c7, 0x44a4, 0x5485,
  67.    0xa56a, 0xb54b, 0x8528, 0x9509, 0xe5ee, 0xf5cf, 0xc5ac, 0xd58d,
  68.    0x3653, 0x2672, 0x1611, 0x0630, 0x76d7, 0x66f6, 0x5695, 0x46b4,
  69.    0xb75b, 0xa77a, 0x9719, 0x8738, 0xf7df, 0xe7fe, 0xd79d, 0xc7bc,
  70.    0x48c4, 0x58e5, 0x6886, 0x78a7, 0x0840, 0x1861, 0x2802, 0x3823,
  71.    0xc9cc, 0xd9ed, 0xe98e, 0xf9af, 0x8948, 0x9969, 0xa90a, 0xb92b,
  72.    0x5af5, 0x4ad4, 0x7ab7, 0x6a96, 0x1a71, 0x0a50, 0x3a33, 0x2a12,
  73.    0xdbfd, 0xcbdc, 0xfbbf, 0xeb9e, 0x9b79, 0x8b58, 0xbb3b, 0xab1a,
  74.    0x6ca6, 0x7c87, 0x4ce4, 0x5cc5, 0x2c22, 0x3c03, 0x0c60, 0x1c41,
  75.    0xedae, 0xfd8f, 0xcdec, 0xddcd, 0xad2a, 0xbd0b, 0x8d68, 0x9d49,
  76.    0x7e97, 0x6eb6, 0x5ed5, 0x4ef4, 0x3e13, 0x2e32, 0x1e51, 0x0e70,
  77.    0xff9f, 0xefbe, 0xdfdd, 0xcffc, 0xbf1b, 0xaf3a, 0x9f59, 0x8f78,
  78.    0x9188, 0x81a9, 0xb1ca, 0xa1eb, 0xd10c, 0xc12d, 0xf14e, 0xe16f,
  79.    0x1080, 0x00a1, 0x30c2, 0x20e3, 0x5004, 0x4025, 0x7046, 0x6067,
  80.    0x83b9, 0x9398, 0xa3fb, 0xb3da, 0xc33d, 0xd31c, 0xe37f, 0xf35e,
  81.    0x02b1, 0x1290, 0x22f3, 0x32d2, 0x4235, 0x5214, 0x6277, 0x7256,
  82.    0xb5ea, 0xa5cb, 0x95a8, 0x8589, 0xf56e, 0xe54f, 0xd52c, 0xc50d,
  83.    0x34e2, 0x24c3, 0x14a0, 0x0481, 0x7466, 0x6447, 0x5424, 0x4405,
  84.    0xa7db, 0xb7fa, 0x8799, 0x97b8, 0xe75f, 0xf77e, 0xc71d, 0xd73c,
  85.    0x26d3, 0x36f2, 0x0691, 0x16b0, 0x6657, 0x7676, 0x4615, 0x5634,
  86.    0xd94c, 0xc96d, 0xf90e, 0xe92f, 0x99c8, 0x89e9, 0xb98a, 0xa9ab,
  87.    0x5844, 0x4865, 0x7806, 0x6827, 0x18c0, 0x08e1, 0x3882, 0x28a3,
  88.    0xcb7d, 0xdb5c, 0xeb3f, 0xfb1e, 0x8bf9, 0x9bd8, 0xabbb, 0xbb9a,
  89.    0x4a75, 0x5a54, 0x6a37, 0x7a16, 0x0af1, 0x1ad0, 0x2ab3, 0x3a92,
  90.    0xfd2e, 0xed0f, 0xdd6c, 0xcd4d, 0xbdaa, 0xad8b, 0x9de8, 0x8dc9,
  91.    0x7c26, 0x6c07, 0x5c64, 0x4c45, 0x3ca2, 0x2c83, 0x1ce0, 0x0cc1,
  92.    0xef1f, 0xff3e, 0xcf5d, 0xdf7c, 0xaf9b, 0xbfba, 0x8fd9, 0x9ff8,
  93.    0x6e17, 0x7e36, 0x4e55, 0x5e74, 0x2e93, 0x3eb2, 0x0ed1, 0x1ef0
  94. };
  95.  
  96. USHORT Crc16 (UCHAR Byte, USHORT Crc)
  97. {
  98.    return ((USHORT)(crctab[((Crc >> 8) & 255) ^ Byte] ^ (Crc << 8)));
  99. }
  100.  
  101. ULONG Crc32 (UCHAR Byte, ULONG Crc)
  102. {
  103.    return (cr3tab[((int) Crc ^ Byte) & 0xff] ^ ((Crc >> 8) & 0x00FFFFFFL));
  104. //   return ((ULONG)(cr3tab[((ULONG)Crc ^ Byte) & 0xFF] ^ ((Crc >> 8) & 0x00FFFFFFL)));
  105. }
  106.  
  107. USHORT StringCrc16 (CHAR *String, USHORT Crc)
  108. {
  109.    while (*String)
  110.       Crc = Crc16 ((UCHAR)*String++, Crc);
  111.  
  112.    return (Crc);
  113. }
  114.  
  115. ULONG StringCrc32 (CHAR *String, ULONG Crc)
  116. {
  117.    while (*String)
  118.       Crc = Crc32 ((UCHAR)*String++, Crc);
  119.  
  120.    return (Crc);
  121. }
  122.  
  123. // ----------------------------------------------------------------------
  124.  
  125. #define PER_WEEK    60480000L
  126. #define PER_DAY      8640000L
  127. #define PER_HOUR      360000L
  128. #define PER_MINUTE      6000L
  129. #define PER_SECOND       100L
  130.  
  131. LONG TimerSet (LONG lHund)
  132. {
  133.    LONG l;
  134.    struct dostime_t dt;
  135.  
  136.    _dos_gettime (&dt);
  137.    l = (dt.minute % 60) * PER_MINUTE + (dt.second % 60) * PER_SECOND + dt.hsecond;
  138.    l += lHund;
  139.  
  140.    return (l);
  141. }
  142.  
  143. USHORT TimeUp (LONG lEndtime)
  144. {
  145.    LONG l;
  146.    struct dostime_t dt;
  147.  
  148.    _dos_gettime (&dt);
  149.    l = (dt.minute % 60) * PER_MINUTE + (dt.second % 60) * PER_SECOND + dt.hsecond;
  150.    if (l < (lEndtime - 65536L))
  151.       l += PER_HOUR;
  152.  
  153.    return ((USHORT)(((l - lEndtime) >= 0L) ? TRUE : FALSE));
  154. }
  155.  
  156. VOID Pause (LONG lHund)
  157. {
  158.    LONG Endtime;
  159.  
  160.    Endtime = TimerSet (lHund);
  161.    while (TimeUp (Endtime) == FALSE) {
  162. #if defined(__OS2__)
  163.       DosSleep (1L);
  164. #elif defined(__NT__)
  165.       Sleep (1L);
  166. #endif
  167.    }
  168. }
  169.  
  170. // ----------------------------------------------------------------------
  171.  
  172. PSZ AdjustPath (PSZ pszPath)
  173. {
  174. #if defined(__LINUX__)
  175.    PSZ p;
  176.  
  177.    p = pszPath;
  178.    while ((p = strchr (p, '\\')) != NULL)
  179.       *p++ = '/';
  180. #endif
  181.  
  182.    return (pszPath);
  183. }
  184.  
  185. USHORT BuildPath (PSZ pszPath)
  186. {
  187.    USHORT RetVal = TRUE;
  188.    CHAR Dir[128], *p, Final[128];
  189.  
  190.    AdjustPath (pszPath);
  191.  
  192.    strcpy (Final, "");
  193. #if defined(__LINUX__)
  194.    if (pszPath[0] == '/')
  195.       strcat (Final, "/");
  196. #else
  197.    if (pszPath[0] == '\\')
  198.       strcat (Final, "\\");
  199. #endif
  200.    strcpy (Dir, pszPath);
  201.  
  202. // ----------------------------------------------------------------------
  203. // Build a complete directory tree by extracting the single directory
  204. // names from the pathname.
  205. // ----------------------------------------------------------------------
  206.    if ((p = strtok (Dir, "\\/")) != NULL)
  207.       do {
  208.          strcat (Final, p);
  209.          if (p[1] != ':' && p[0] != '.') {
  210. // ----------------------------------------------------------------------
  211. // If the directory cannot be created, stops the process immediately.
  212. // The global variable errno is set to zero after an error only if the
  213. // directory already exists.
  214. // ----------------------------------------------------------------------
  215. #if defined(__LINUX__)
  216.             mkdir (Final, 0666);
  217. #else
  218.             mkdir (Final);
  219. #endif
  220.          }
  221. #if defined(__LINUX__)
  222.          strcat (Final, "/");
  223. #else
  224.          strcat (Final, "\\");
  225. #endif
  226.       } while (RetVal == TRUE && (p = strtok (NULL, "\\/")) != NULL);
  227.  
  228.    return (RetVal);
  229. }
  230.  
  231. USHORT BuildEmptyPath (PSZ pszPath)
  232. {
  233.    DIR *dir;
  234.    USHORT RetVal = TRUE;
  235.    CHAR Dir[128], *p, Final[128];
  236.    struct dirent *ent;
  237.  
  238.    strcpy (Final, "");
  239. #if defined(__LINUX__)
  240.    if (pszPath[0] == '/')
  241.       strcat (Final, "/");
  242. #else
  243.    if (pszPath[0] == '\\')
  244.       strcat (Final, "\\");
  245. #endif
  246.    strcpy (Dir, pszPath);
  247.  
  248. // ----------------------------------------------------------------------
  249. // Build a complete directory tree by extracting the single directory
  250. // names from the pathname.
  251. // ----------------------------------------------------------------------
  252.    if ((p = strtok (Dir, "\\/")) != NULL)
  253.       do {
  254.          strcat (Final, p);
  255.          if (p[1] != ':' && p[0] != '.') {
  256. // ----------------------------------------------------------------------
  257. // If the directory cannot be created, stops the process immediately.
  258. // The global variable errno is set to zero after an error only if the
  259. // directory already exists.
  260. // ----------------------------------------------------------------------
  261. #if defined(__LINUX__)
  262.             mkdir (Final, 0666);
  263. #else
  264.             mkdir (Final);
  265. #endif
  266.          }
  267. #if defined(__LINUX__)
  268.          strcat (Final, "/");
  269. #else
  270.          strcat (Final, "\\");
  271. #endif
  272.       } while (RetVal == TRUE && (p = strtok (NULL, "\\/")) != NULL);
  273.  
  274.    if (RetVal == TRUE) {
  275. // ----------------------------------------------------------------------
  276. // The directory was successfully created, now we clean the directory
  277. // just in case it was already here with some trash in it.
  278. // ----------------------------------------------------------------------
  279.       strcpy (Dir, pszPath);
  280.       if (Dir[strlen (Dir) - 1] == '\\' || Dir[strlen (Dir) - 1] == '/')
  281.          Dir[strlen (Dir) - 1] = '\0';
  282.       if ((dir = opendir (Dir)) != NULL) {
  283.          while ((ent = readdir (dir)) != NULL) {
  284.             sprintf (Final, "%s%s", pszPath, ent->d_name);
  285.             unlink (Final);
  286.          }
  287.          closedir (dir);
  288.       }
  289.    }
  290.  
  291.    return (RetVal);
  292. }
  293.  
  294. // ----------------------------------------------------------------------
  295.  
  296. char *strinc (char *str1, char *str2)
  297. {
  298.    int max;
  299.    char *p;
  300.  
  301.    max = strlen (str1);
  302.  
  303.    for (p = str2; *p; p++) {
  304.       if (!strncmp (str1, p, max))
  305.          return (p);
  306.    }
  307.  
  308.    return (NULL);
  309. }
  310.  
  311. char *strdel (char *substr, char *str)
  312. {
  313.    char *src, *dest;
  314.  
  315.    dest = strinc (substr, str);
  316.    if (!dest)
  317.       return (NULL);
  318.  
  319.    src = dest + strlen (substr);
  320.    strcpy (dest, src);
  321.  
  322.    return (str);
  323. }
  324.  
  325. char *strins (char *instr, char *str, int st_pos)
  326. {
  327.    int i, leninstr;
  328.  
  329.    /* get length of string to insert */
  330.    leninstr = strlen (instr);
  331.  
  332.    /* shift affected portion of str text to the right */
  333.    for (i = strlen (str); i >= st_pos; i--)
  334.       *(str + leninstr + i) = *(str + i);
  335.  
  336.    /* insert instr text */
  337.    for (i = 0; i < leninstr; i++)
  338.       *(str + st_pos + i) = *(instr + i);
  339.  
  340.    /* return address of modified string */
  341.    return (str);
  342. }
  343.  
  344. char * DLL_EXPORT strsrep (char *str, char *search, char *replace)
  345. {
  346.    char *p;
  347.  
  348.    if ((p = strinc (search, str)) != NULL) {
  349.       strdel (search, str);
  350.       strins (replace, str, (int)((unsigned long)p - (unsigned long)str));
  351.       p=str;
  352.    }
  353.  
  354.    return (p);
  355. }
  356.  
  357. VOID DLL_EXPORT RunExternal (PSZ Command, USHORT TimeLimit)
  358. {
  359. #if defined(__OS2__)
  360.    int rc;
  361.    CHAR Args[256], Pathname[_MAX_PATH], Name[128], *p;
  362.    CHAR ObjBuf[64], Terminated, isCmd;
  363.    ULONG id;
  364.    STARTDATA StartData;
  365.    PID Pid;
  366.    STATUSDATA sd;
  367. #elif defined(__NT__)
  368.    STARTUPINFO si;
  369.    PROCESS_INFORMATION pi;
  370.    DWORD exitcode;
  371. #endif
  372.    ULONG timeout;
  373.  
  374. #if defined(__OS2__)
  375.    if (Command[0] != '\0') {
  376.       isCmd = FALSE;
  377.  
  378.       strcpy (Args, Command);
  379.       strcpy (Name, strtok (Args, " "));
  380.       if ((p = strtok (NULL, "")) != NULL) {
  381.          while (*p == ' ')
  382.             p++;
  383.          strcpy (Args, p);
  384.       }
  385.       else
  386.          Args[0] = '\0';
  387.  
  388.       strlwr (Name);
  389.       if (strstr (Name, ".cmd") != NULL || strstr (Name, ".bat") != NULL) {
  390.          strcpy (Args, "/C ");
  391.          strcat (Args, Command);
  392.          if ((p = getenv ("COMSPEC")) == NULL)
  393.             p = "CMD.EXE";
  394.          strcpy (Pathname, p);
  395.          isCmd = TRUE;
  396.       }
  397.       else if (strchr (Name, '\\') == NULL && strchr (Name, ':') == NULL) {
  398.          _searchenv (Name, "PATH", Pathname);
  399.          if (Pathname[0] == '\0' && strchr (Name, '.') == NULL) {
  400.             strcat (Name, ".com");
  401.             _searchenv (Name, "PATH", Pathname);
  402.             if (Pathname[0] == '\0') {
  403.                strcpy (&Name[strlen (Name) - 4], ".exe");
  404.                _searchenv (Name, "PATH", Pathname);
  405.                if (Pathname[0] == '\0') {
  406.                   strcpy (Args, "/C ");
  407.                   strcat (Args, Command);
  408.                   if ((p = getenv ("COMSPEC")) == NULL)
  409.                      p = "CMD.EXE";
  410.                   strcpy (Pathname, p);
  411.                   isCmd = TRUE;
  412.                }
  413.             }
  414.          }
  415.       }
  416.       else
  417.          strcpy (Pathname, Name);
  418.  
  419.       memset (&StartData, 0, sizeof (STARTDATA));
  420.       StartData.Length = sizeof (STARTDATA);
  421.       StartData.Related = SSF_RELATED_CHILD;
  422.       StartData.FgBg = SSF_FGBG_BACK;
  423.       StartData.TraceOpt = SSF_TRACEOPT_NONE;
  424.       StartData.PgmName = Pathname;
  425.       StartData.PgmInputs = Args;
  426.       StartData.TermQ = NULL;
  427.       StartData.Environment = 0;
  428.       StartData.InheritOpt = SSF_INHERTOPT_PARENT;
  429.       StartData.SessionType = SSF_TYPE_FULLSCREEN;
  430.       StartData.IconFile = 0;
  431.       StartData.PgmHandle = 0;
  432.       StartData.PgmControl = SSF_CONTROL_VISIBLE;
  433.       StartData.InitXPos = 30;
  434.       StartData.InitYPos = 40;
  435.       StartData.InitXSize = 200;
  436.       StartData.InitYSize = 140;
  437.       StartData.Reserved = 0;
  438.       StartData.ObjectBuffer = ObjBuf;
  439.       StartData.ObjectBuffLen = sizeof (ObjBuf);
  440.       if ((rc = DosStartSession (&StartData, &id, &Pid)) != 0 && isCmd == FALSE) {
  441.          strcpy (Args, "/C ");
  442.          strcat (Args, Command);
  443.          if ((p = getenv ("COMSPEC")) == NULL)
  444.             p = "CMD.EXE";
  445.          strcpy (Pathname, p);
  446.          rc = DosStartSession (&StartData, &id, &Pid);
  447.       }
  448.  
  449.       if (rc == 0) {
  450.          Terminated = FALSE;
  451.          if (TimeLimit != 0)
  452.             timeout = time (NULL) + ((ULONG)TimeLimit * 60L);
  453.          while (Terminated == FALSE) {
  454.             sd.Length = sizeof (STATUSDATA);
  455.             sd.SelectInd = SET_SESSION_UNCHANGED;
  456.             sd.BondInd = SET_SESSION_UNCHANGED;
  457.             if (DosSetSession (id, &sd) != 0 || (TimeLimit != 0 && time (NULL) > timeout))
  458.                Terminated = TRUE;
  459.             DosSleep (1L);
  460.          }
  461.  
  462.          DosStopSession (STOP_SESSION_SPECIFIED, id);
  463.       }
  464.    }
  465. /*
  466. #elif defined(__NT__)
  467.    if (Command[0] != '\0') {
  468.       memset (&si, 0, sizeof (STARTUPINFO));
  469.       si.cb = sizeof (STARTUPINFO);
  470.  
  471.       if (CreateProcess (NULL, Command, NULL, NULL, FALSE, CREATE_DEFAULT_ERROR_MODE|NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi) == TRUE) {
  472.          do {
  473.             GetExitCodeProcess (pi.hProcess, &exitcode);
  474.          } while (exitcode == STILL_ACTIVE);
  475.       }
  476.    }
  477. */
  478. #else
  479. #if defined(__DOS__)
  480.    wopen (0, 0, 24, 79, 5, LGREY|_BLACK, LGREY|_BLACK);
  481. #endif
  482.    system (Command);
  483. #if defined(__DOS__)
  484.    wclose ();
  485. #endif
  486. #endif
  487. }
  488.  
  489. VOID DLL_EXPORT SpawnExternal (PSZ Command)
  490. {
  491. #if defined(__OS2__)
  492.    CHAR Args[256], Pathname[_MAX_PATH], Name[128], *p;
  493.    CHAR ObjBuf[64], isCmd;
  494.    ULONG id;
  495.    STARTDATA StartData;
  496.    PID Pid;
  497. #elif defined(__NT__)
  498.    STARTUPINFO si;
  499.    PROCESS_INFORMATION pi;
  500.    DWORD exitcode;
  501. #endif
  502.  
  503. #if defined(__OS2__)
  504.    if (Command[0] != '\0') {
  505.       isCmd = FALSE;
  506.  
  507.       strcpy (Args, Command);
  508.       strcpy (Name, strtok (Args, " "));
  509.       if ((p = strtok (NULL, "")) != NULL) {
  510.          while (*p == ' ')
  511.             p++;
  512.          strcpy (Args, p);
  513.       }
  514.       else
  515.          Args[0] = '\0';
  516.  
  517.       strlwr (Name);
  518.       if (strstr (Name, ".cmd") != NULL || strstr (Name, ".bat") != NULL) {
  519.          strcpy (Args, "/C ");
  520.          strcat (Args, Command);
  521.          if ((p = getenv ("COMSPEC")) == NULL)
  522.             p = "CMD.EXE";
  523.          strcpy (Pathname, p);
  524.          isCmd = TRUE;
  525.       }
  526.       else if (strchr (Name, '\\') == NULL && strchr (Name, ':') == NULL) {
  527.          _searchenv (Name, "PATH", Pathname);
  528.          if (Pathname[0] == '\0' && strchr (Name, '.') == NULL) {
  529.             strcat (Name, ".com");
  530.             _searchenv (Name, "PATH", Pathname);
  531.             if (Pathname[0] == '\0') {
  532.                strcpy (&Name[strlen (Name) - 4], ".exe");
  533.                _searchenv (Name, "PATH", Pathname);
  534.                if (Pathname[0] == '\0') {
  535.                   strcpy (Args, "/C ");
  536.                   strcat (Args, Command);
  537.                   if ((p = getenv ("COMSPEC")) == NULL)
  538.                      p = "CMD.EXE";
  539.                   strcpy (Pathname, p);
  540.                   isCmd = TRUE;
  541.                }
  542.             }
  543.          }
  544.       }
  545.       else
  546.          strcpy (Pathname, Name);
  547.  
  548.       memset (&StartData, 0, sizeof (STARTDATA));
  549.       StartData.Length = sizeof (STARTDATA);
  550.       StartData.Related = SSF_RELATED_CHILD;
  551.       StartData.FgBg = SSF_FGBG_BACK;
  552.       StartData.TraceOpt = SSF_TRACEOPT_NONE;
  553.       StartData.PgmName = Pathname;
  554.       StartData.PgmInputs = Args;
  555.       StartData.TermQ = NULL;
  556.       StartData.Environment = 0;
  557.       StartData.InheritOpt = SSF_INHERTOPT_PARENT;
  558.       StartData.SessionType = SSF_TYPE_FULLSCREEN;
  559.       StartData.IconFile = 0;
  560.       StartData.PgmHandle = 0;
  561.       StartData.PgmControl = SSF_CONTROL_VISIBLE;
  562.       StartData.InitXPos = 30;
  563.       StartData.InitYPos = 40;
  564.       StartData.InitXSize = 200;
  565.       StartData.InitYSize = 140;
  566.       StartData.Reserved = 0;
  567.       StartData.ObjectBuffer = ObjBuf;
  568.       StartData.ObjectBuffLen = sizeof (ObjBuf);
  569.       if (DosStartSession (&StartData, &id, &Pid) != 0 && isCmd == FALSE) {
  570.          strcpy (Args, "/C ");
  571.          strcat (Args, Command);
  572.          if ((p = getenv ("COMSPEC")) == NULL)
  573.             p = "CMD.EXE";
  574.          strcpy (Pathname, p);
  575.          DosStartSession (&StartData, &id, &Pid);
  576.       }
  577.    }
  578. #elif defined(__NT__)
  579.    if (Command[0] != '\0') {
  580.       memset (&si, 0, sizeof (STARTUPINFO));
  581.       si.cb = sizeof (STARTUPINFO);
  582.       CreateProcess (NULL, Command, NULL, NULL, FALSE, CREATE_DEFAULT_ERROR_MODE|NORMAL_PRIORITY_CLASS, NULL, NULL, &si, &pi);
  583.    }
  584. #else
  585. #if defined(__DOS__)
  586.    wopen (0, 0, 24, 79, 5, LGREY|_BLACK, LGREY|_BLACK);
  587. #endif
  588.    system (Command);
  589. #if defined(__DOS__)
  590.    wclose ();
  591. #endif
  592. #endif
  593. }
  594.  
  595. ULONG DLL_EXPORT AvailableMemory (VOID)
  596. {
  597.    ULONG Value = 0L;
  598.  
  599. #if defined(__OS2__)
  600.    DosQuerySysInfo (20, 20, (UCHAR *)&Value, sizeof (Value));
  601. #elif defined(__NT__)
  602. #elif defined(__LINUX__)
  603. #else
  604. #endif
  605.  
  606.    return (Value);
  607. }
  608.  
  609.