home *** CD-ROM | disk | FTP | other *** search
/ Black Box 4 / BlackBox.cdr / archiver / peek_221.arj / LOADCLRS.C < prev    next >
Text File  |  1992-01-25  |  707b  |  36 lines
  1. #include "peeker.h"
  2.  
  3. extern char buffer[256];
  4. extern char *home_dir;
  5. extern int colors[];
  6.  
  7. extern char * pascal myfgets (char *buf,size_t len,int handle);
  8.  
  9.  
  10. void pascal load_colors (void) {
  11.  
  12.   char *fn;
  13.   int  handle,x;
  14.  
  15.  
  16.   fn = searchpath("PEEKER.CLR");
  17.   if(!fn) {
  18.     fn = buffer;
  19.     sprintf(buffer,"%sPEEKER.CLR",home_dir);
  20.   }
  21.  
  22.   handle = _open(fn,O_RDONLY | O_NOINHERIT | O_BINARY);
  23.   if(handle != -1) {
  24.     if(myfgets(buffer,255,handle)) {
  25.       fn = buffer;
  26.       for(x = 0;x < MAXCOLORS;x++) {
  27.         if(atoi(fn)) colors[x] = atoi(fn);
  28.         fn = strchr(fn,' ');
  29.         if(!fn) break;
  30.         while(*fn == ' ') fn++;
  31.       }
  32.     }
  33.     _close(handle);
  34.   }
  35. }
  36.