home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / ncsa_tel / tel_2_2_ / source / pcutil.c < prev    next >
C/C++ Source or Header  |  1988-07-15  |  5KB  |  281 lines
  1. /*  PCUTIL.C
  2. *   Utilities for the network library that are PC specific
  3. ****************************************************************************
  4. *                                                                          *
  5. *      part of:                                                            *
  6. *      TCP/UDP/ICMP/IP Network kernel for NCSA Telnet                      *
  7. *      by Tim Krauskopf                                                    *
  8. *                                                                          *
  9. *      National Center for Supercomputing Applications                     *
  10. *      152 Computing Applications Building                                 *
  11. *      605 E. Springfield Ave.                                             *
  12. *      Champaign, IL  61820                                                *
  13. *                                                                          *
  14. ****************************************************************************
  15. */
  16. #include "stdio.h"
  17. #include "whatami.h"
  18. unsigned char *malloc();
  19.  
  20. /**********************************************************************/
  21. /*
  22. *   Find directory name -- return a code that indicates whether the
  23. *   directory exists or not.
  24. *   0 = dir name ok
  25. *   -1 = error
  26. *   > 0 = dos error code, no dir by this name
  27. *
  28. *   Accept certain unix conventions, like '/' for separator
  29. *
  30. *   Also, append a '\' to the name before returning
  31. * 
  32. *  Note:  There must be enough room in the string to append the '\'
  33. */
  34.  
  35. struct dosdta {
  36.     char junk[21];
  37.     char att;
  38.     int time,date;
  39.     long int size;
  40.     char name[13];
  41. };
  42.  
  43. extern struct dosdta *dtaptr;
  44.  
  45. direxist(dirname)
  46.     char dirname[];
  47.     {
  48.     int i,ret;
  49.     char *p;
  50.  
  51.     if (!strcmp(dirname,".") || !dirname[0]) {
  52.         dirname[0] = '\0';
  53.         return(0);
  54.     }
  55.  
  56.     if (!strcmp(dirname,"\\"))
  57.         return(0);
  58.  
  59.     p = dirname;
  60.     while (*p) {
  61.         switch (*p) {
  62.             case '*':
  63.             case '?':
  64.                 return(-1);
  65.             case '/':
  66.                 *p = '\\';
  67.             default:
  68.                 break;
  69.         }
  70.         p++;
  71.     }
  72.  
  73. /*
  74. *  n_findfirst  will return normal files AND directories
  75. *  must check attribute to see if it is really a directory
  76. */
  77.     ret = n_findfirst(dirname,0x10);        /* find name */
  78.  
  79.     if (ret)
  80.         return(ret);
  81.  
  82.     if (!(dtaptr->att & 0x10))
  83.         return(-2);                            /* is a normal file */
  84.  
  85.     i = strlen(dirname);
  86.     dirname[i] = '\\';                        /* extend with '\' */
  87.     dirname[++i] = '\0';
  88.     
  89.     return(0);
  90. }
  91.  
  92. /**********************************************************************/
  93. /* firstname
  94. *  find the first name in the given directory which matches the wildcard
  95. *  specification
  96. *
  97. *  must malloc enough space for the path plus a full filename
  98. *
  99. *  expand '*' (unix) to '*.*' (dos)
  100. */
  101. static char *savepath;
  102. static int rootlen;
  103.  
  104. char *firstname(path)
  105.     char path[];
  106.     {
  107.     int i,len;
  108.     char *p,*q;
  109.  
  110.     if (!*path)
  111.         return(NULL);
  112.  
  113.     len = strlen(path);
  114.     savepath = malloc(len+16);
  115.  
  116.     i = 0;
  117.     rootlen = 0;
  118.     q = savepath;
  119.     p = path;
  120.     while (*q = *p) {                /* basic string copy with extras */
  121.         if (*p == '\\')
  122.             rootlen = i+1;            /* rootlen = position of last \ */
  123.         p++;
  124.         q++;
  125.         i++;
  126.     }
  127.  
  128.     if (savepath[len-1] == '*' && rootlen == len-1) {
  129.         savepath[len++] = '.';
  130.         savepath[len++] = '*';
  131.         savepath[len++] = '\0';
  132.     }
  133.  
  134.     if (n_findfirst(savepath,0))
  135.         return(NULL);
  136.  
  137. /*
  138. *  copy file name, translate to lower case 
  139. */
  140.     q = &savepath[rootlen];
  141.     p = dtaptr->name;
  142.     while (*p) {
  143.         if (*p >= 'A' && *p <= 'Z')
  144.             *q++ = *p++ + 32;
  145.         else
  146.             *q++ = *p++;
  147.     }
  148.     *q = '\0';
  149.  
  150.     return(savepath);
  151. }
  152.  
  153. /**********************************************************************/
  154. /* nextname
  155. *  modify the path spec to contain the next file name in the
  156. *  sequence as given by DOS
  157. *
  158. *  if at the end of the sequence, return NULL
  159. */
  160. char *nextname()
  161.     {
  162.     char *p,*q;
  163.  
  164.     if (NULL == savepath)
  165.         return(NULL);
  166.  
  167.     if (n_findnext()) {
  168.         free(savepath);
  169.         savepath = NULL;
  170.         return(NULL);
  171.     }
  172.  
  173. /*
  174. *  copy file name, translate to lower case 
  175. */
  176.     q = &savepath[rootlen];
  177.     p = dtaptr->name;
  178.     while (*p) {
  179.         if (*p >= 'A' && *p <= 'Z')
  180.             *q++ = *p++ + 32;
  181.         else
  182.             *q++ = *p++;
  183.     }
  184.     *q = '\0';
  185.  
  186.  
  187.     return(savepath);
  188.  
  189. }
  190.  
  191. /**********************************************************************/
  192. /*  dopwd
  193. *   get the current directory, including disk drive letter
  194. */
  195. dopwd(p,l)
  196.     char *p;
  197.     int l;
  198.     {
  199.     *p++ = 'A'+getdsk();        /* current disk drive */
  200.     *p++ = ':';
  201.     *p++ = '\\';
  202.     getcwd(p,l-2);                /* get dir */
  203.  
  204. }
  205.  
  206. /**********************************************************************/
  207. /*  chgdir
  208. *  change directory, including disk drive letter
  209. */
  210. #include <string.h>
  211.  
  212. chgdir(d)
  213.     char *d;
  214.     {
  215.  
  216.     while (*d && *d < 33)
  217.         d++;
  218.  
  219.     if (!(*d))
  220.         return(-1);
  221.  
  222.     *d = toupper(*d);
  223.  
  224.     if (*(d+1) == ':') {
  225.         chgdsk((*d)-'A');
  226.         d += 2;
  227.     }
  228.  
  229.     if (!(*d))
  230.         return(0);                /* just changed disk */
  231.  
  232.     return(chdir(d));
  233.  
  234. }
  235.  
  236. /**********************************************************************/
  237. /*  Scolorset
  238. *  setup the color value from the config file string
  239. */
  240. Scolorset(thecolor,st)
  241.     int thecolor[3];
  242.     char *st;
  243.     {
  244.     thecolor[0] = lookcolor(st);
  245.  
  246.     return(1);
  247. }
  248.  
  249. /**********************************************************************/
  250. /* lookcolor
  251. *  search a list for the given color name
  252. */
  253.  
  254. static char *colist[] = {
  255.     "black",
  256.     "blue",
  257.     "green",
  258.     "cyan",
  259.     "red",
  260.     "magenta",
  261.     "yellow",
  262.     "white" };
  263.  
  264. lookcolor(s)
  265.     char *s;
  266.     {
  267.     int i;
  268.  
  269.     for (i=0; i<7; i++)
  270.         if (!ncstrcmp(colist[i],s))
  271.             return(i);
  272.  
  273.     return(7);
  274. }
  275.  
  276. char *colorlook(cl)
  277.     int cl;
  278.     {
  279.     return(colist[cl]);
  280. }
  281.