home *** CD-ROM | disk | FTP | other *** search
/ GRIPS 2: Government Rast…rocessing Software & Data / GRIPS_2.cdr / dos / ncsa_tel / contribu / byu_tel2.hqx / tcpip / macutil.c < prev    next >
Text File  |  1990-04-11  |  11KB  |  526 lines
  1. /*  MACUTIL.C
  2. *   Utilities for the network library that are Macintosh 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. */
  17. #include "stdio.h"
  18.  
  19. #ifdef UNDERNOCIRCUMSTANCES
  20. #include "protocol.h"
  21. #include "data.h"
  22. #endif
  23.  
  24. #ifdef MPW
  25. #include "::main:mpw.h"
  26. #endif
  27.  
  28. #include <Files.h>
  29. #include <Types.h>
  30. #include <appletalk.h>
  31. #include <events.h>
  32. #include <OSutils.h>
  33.  
  34. /* Some globals for file lookup */
  35. int defaultv;
  36.  
  37. ParamBlockRec FLpb;
  38. CInfoPBRec HFLpb, tHFLpb;
  39. char FileName[256], FileTemplate[256];
  40. int DirTree[256];
  41. char *iobufptr=0L,*iobuf=0L,*iobufmax=0L, *malloc(), *index();
  42. int iobufsize,lastcr;
  43.  
  44. int getWDnum()
  45. {
  46.     WDPBRec pb;
  47.  
  48.     pb.ioNamePtr=0L;
  49.  
  50.     if (isHFS())  PBHGetVol(&pb,FALSE);
  51.         else PBGetVol(&pb,FALSE);
  52.     return(pb.ioWDVRefNum);        /* This proc returns the Vol reference */
  53. }
  54.  
  55. Str255 *getVname()
  56. {
  57.     WDPBRec pb;
  58.     char *temp;
  59.  
  60.     temp=malloc(256);
  61.  
  62.     pb.ioNamePtr=temp;
  63.     PBGetVol(&pb,FALSE);
  64.     (*temp)++;
  65.     temp[*temp]=':';
  66.     temp[*temp+1]=0;
  67.     return(temp);        /* This proc returns the Vol reference */
  68. }
  69.  
  70. Str255 *getWDname()
  71. {
  72.     WDPBRec pb;
  73.     CInfoPBRec cpb;
  74.     char tempst[100],*wdtemp,*wdout,*start,*store,*trav;
  75.     int i,j;
  76.  
  77.     if (!isHFS()) return(getVname()); /* if not HFS then only volume exists */
  78.  
  79.     wdout=malloc(256);
  80.     wdtemp=malloc(256);
  81.  
  82.     sprintf(tempst,"ioNamePtr = %lx",wdout);
  83.     putln (tempst);
  84.  
  85.     pb.ioNamePtr=wdout;
  86.     PBHGetVol(&pb,FALSE);
  87.  
  88. #ifdef WANNACOLON
  89.     (*wdout)++;
  90.     wdout[*wdout]=':';
  91. #endif WANNACOLON
  92.  
  93.     cpb.dirInfo.ioCompletion=0L;
  94.     cpb.dirInfo.ioVRefNum=pb.ioWDVRefNum;
  95.     cpb.dirInfo.ioDrDirID=pb.ioWDDirID;
  96.     trav=wdtemp;
  97.     DirTree[ (j=0) ]=pb.ioVRefNum;
  98.  
  99.     while(cpb.dirInfo.ioDrDirID!=0) {
  100.         cpb.hfileInfo.ioNamePtr=trav;
  101.         cpb.hfileInfo.ioFDirIndex=-1;
  102.         if (PBGetCatInfo(&cpb,FALSE)!=0)  {cpb.dirInfo.ioDrDirID=0; break;}
  103.         if (*trav==0) {cpb.dirInfo.ioDrDirID=0;break;}
  104.         i=*trav; *trav=0; start=trav+1;
  105.         trav+=i+1; *trav=0;
  106.         DirTree[j++]=cpb.dirInfo.ioDrDirID;
  107.         cpb.dirInfo.ioDrDirID=cpb.dirInfo.ioDrParID;
  108.         }
  109.  
  110.     *wdtemp=0;
  111.     store=wdout+*wdout+1;
  112.     if (trav-wdtemp) *wdout=(trav-wdtemp);
  113.     if (trav!=wdtemp) start=trav-1; else start=wdtemp;
  114.  
  115.     if (start!=wdtemp) {
  116.         while(*start) start--;        /* Go to beginning of string */
  117.         if (start!=wdtemp) start--;
  118.         }
  119.  
  120.     while(start!=wdtemp) {
  121.         while(*start) start--;        /* Go to beginning of string */
  122.         trav=start+1; *store='/';    /* Ready to move directory name */
  123.         store++;
  124.         while (*trav) {*store=*trav; store++;trav++; } /* store it */
  125.         if (start!=wdtemp) start --;
  126.         *store=0;
  127.         }
  128.     free(wdtemp);
  129.     return(wdout);
  130. }
  131.  
  132. setWDnum( num)
  133. int num;
  134. {
  135.     WDPBRec pb;
  136.  
  137.     pb.ioNamePtr=0L; 
  138.     pb.ioVRefNum=num;
  139.     pb.ioWDDirID=0L;
  140.     PBHSetVol(&pb,FALSE);
  141. }
  142.  
  143. /*
  144. *  setSFdir
  145. *  trick to set up the working directory from the last SFgetfile. TK
  146. */
  147.  
  148. #define SFSaveDisk  0x214
  149. #define CurDirStore 0x398
  150.  
  151. setSFdir( )
  152. {
  153.     WDPBRec pb;
  154.  
  155.     if (!isHFS()) {
  156.         defaultv = - (* (short *) SFSaveDisk);
  157.         return;
  158.     }
  159.     
  160.     pb.ioNamePtr=0L; 
  161.     pb.ioWDProcID=0L; 
  162.     pb.ioVRefNum=  - (* (short *) SFSaveDisk);        /* saved from last SF package call */
  163.     pb.ioWDDirID= (* (int *) CurDirStore);
  164.     PBOpenWD(&pb,FALSE);
  165.     
  166.     defaultv = pb.ioVRefNum;
  167.     SetVol(NULL, defaultv);            /* make working directory */
  168.  
  169. }
  170.  
  171. setWDname( num, name)
  172. int num;
  173. Str255 *name;
  174. {
  175.     WDPBRec pb;
  176.  
  177.     pb.ioNamePtr=0L; 
  178.     pb.ioVRefNum=num;
  179.     pb.ioWDDirID=0L;
  180.     PBHSetVol(&pb,FALSE);
  181. }
  182.  
  183. wccheck(file,template)
  184. char *template,*file;
  185. {
  186.     while(*template) {
  187.         if (*template=='*') {
  188.             template++;
  189.             if (*template) {
  190. /*                while((*file) && (*file!=*template)) file++;    /* BYU mod */
  191.                 while((*file) && !wccheck(file,template)) file++;    /* BYU mod */
  192.                 if ((*file)==0) return(0);
  193.                 }
  194.             else return(1);
  195.             continue;
  196.             }
  197.         else
  198.             if ((*template!='?') && (*template!=*file)) return(0);
  199.         template++;file++;
  200.         }
  201.     if (*file)            /* BYU mod */
  202.         return(0);        /* BYU mod */
  203.     else                /* BYU mod */
  204.         return(1);        /* BYU mod */
  205. }
  206.  
  207. /**********************************************************************/
  208. /*
  209. *   Find directory name -- return a code that indicates whether the
  210. *   directory exists or not.
  211. *   0 = dir name ok
  212. *   -1 = error
  213. *   > 0 = dos error code, no dir by this name
  214. *
  215. *   Accept certain unix conventions, like '/' for separator
  216. *
  217. *   Also, append a '\' to the name before returning
  218. * 
  219. *  Note:  There must be enough room in the string to append the '\'
  220. */
  221.  
  222. direxist(dirname)
  223.     char dirname[];
  224.     {
  225.     return(-1);
  226.     }
  227.  
  228. /**********************************************************************/
  229. /* firstname
  230. *  find the first name in the given directory which matches the wildcard
  231. *  specification
  232. *
  233. *  must malloc enough space for the path plus a full filename
  234. *
  235. *  expand '*' (unix) to '*.*' (dos)
  236. */
  237. char *firstname(spec)
  238. char *spec;
  239. {
  240.     char *loader;
  241.     int HFS;
  242.  
  243.     SetVol(0L, defaultv);                            /* Go to default Directory */
  244.  
  245.     if ( (HFS=isHFS()) )
  246.         PBHGetVol( &HFLpb, FALSE);
  247.     else
  248.          PBGetVol(&FLpb,FALSE);
  249.  
  250.     loader=FileTemplate;
  251.     while(*loader++=*spec++);
  252.     putln(spec);
  253.     putln(FileTemplate);
  254.     if ( HFS) {
  255.         HFLpb.hfileInfo.ioCompletion=0;
  256.         HFLpb.hfileInfo.ioNamePtr=FileName;
  257.         HFLpb.hfileInfo.ioFVersNum=0;
  258.         HFLpb.hfileInfo.ioFDirIndex=1;
  259.         tHFLpb=HFLpb;
  260.         if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  261.         }
  262.     else {
  263.         FLpb.fileParam.ioCompletion=0;
  264.         FLpb.fileParam.ioNamePtr=FileName;
  265.         FLpb.fileParam.ioFVersNum=0;
  266.         FLpb.fileParam.ioFDirIndex=1;
  267.         if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  268.         }
  269.     FileName[FileName[0]+1]=0;
  270.     while(!wccheck(&FileName[1],FileTemplate)) {
  271.         if (HFS) {
  272.             tHFLpb.hfileInfo.ioFDirIndex++;
  273.             HFLpb=tHFLpb;
  274.             if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  275.             }
  276.         else {
  277.             FLpb.fileParam.ioFDirIndex++;
  278.             if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  279.             }
  280.         FileName[FileName[0]+1]=0;
  281.         }
  282.  
  283.     if (isHFS() && (HFLpb.hfileInfo.ioFlAttrib & 16))  {
  284.         FileName[++FileName[0]]='/';
  285.         FileName[FileName[0]+1]=0;
  286.         }
  287.  
  288.     return(&FileName[1]);
  289. }
  290.  
  291. /**********************************************************************/
  292. /* nextname
  293. *  modify the path spec to contain the next file name in the
  294. *  sequence as given by DOS
  295. *
  296. *  if at the end of the sequence, return NULL
  297. */
  298. char *nextname()
  299. {
  300.     int HFS;
  301.  
  302.     if (isHFS() ) {
  303.         tHFLpb.hfileInfo.ioFDirIndex++;
  304.         HFLpb=tHFLpb;
  305.         if (HFLpb.hfileInfo.ioNamePtr!=FileName) return(0L);
  306.         if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  307.         FileName[FileName[0]+1]=0;
  308.         while(!wccheck(&FileName[1],FileTemplate)) {
  309.             putln(&FileName[1]);
  310.             tHFLpb.hfileInfo.ioFDirIndex++;
  311.             HFLpb=tHFLpb;
  312.             if (PBGetCatInfo(&HFLpb,FALSE)!=0)  return(0L);
  313.             FileName[FileName[0]+1]=0;
  314.             }
  315.         }
  316.     else {
  317.         if (FLpb.fileParam.ioNamePtr!=FileName) return(0L);
  318.         FLpb.fileParam.ioFDirIndex++;
  319.         if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  320.         FileName[FileName[0]+1]=0;
  321.         while(!wccheck(&FileName[1],FileTemplate)) {
  322.             FLpb.fileParam.ioFDirIndex++;
  323.             if(PBGetFInfo(&FLpb,FALSE)!=0) return(0L);
  324.             FileName[FileName[0]+1]=0;
  325.             }
  326.         }
  327.  
  328.     if (isHFS() && (HFLpb.hfileInfo.ioFlAttrib & 16))  {
  329.         FileName[++FileName[0]]='/';
  330.         FileName[FileName[0]+1]=0;
  331.         }
  332.  
  333.     return(&FileName[1]);
  334. }
  335.  
  336.  
  337. /************************************************************************/
  338. /* userabort
  339. *  check to see if the user wants to abort
  340. *  For the PC, just see if the user has pressed ESC
  341. *  return true if the user wants to abort
  342. */
  343. userabort()
  344. {
  345.     EventRecord theEvent;
  346.  
  347.     while (GetNextEvent(24,&theEvent)) {
  348.         if ((theEvent.modifiers & cmdKey) &&
  349.             (theEvent.message & 0xff) =='.') 
  350.             return(-1);
  351.         }
  352.     return(0);
  353. }
  354.  
  355. dopwd(where,howmuch)
  356. char *where;
  357. int howmuch;
  358. {
  359.     char *temp;
  360.     int i;
  361.  
  362.     if (howmuch<255) return(-1);
  363.     SetVol(0L, defaultv);                            /* Go to default Directory */
  364.     temp=getWDname();
  365.     where[0]='/';
  366.     for( i=1;i<=temp[0];i++) where[i]=temp[i];
  367.     where[temp[0]]=0;
  368.     putln(&temp[1]);
  369.     free(temp);
  370.     putln(where);
  371.     return(0);
  372. }
  373.  
  374.  
  375. chgdir( modifier)
  376. char *modifier;
  377. {
  378.     WDPBRec pb;
  379.     CInfoPBRec cpb;
  380.     char tempst[256], *nSlash, *start;
  381.     int i=0, j=0;
  382.  
  383.     if (! isHFS()) return(-1);
  384.  
  385.     SetVol(0L, defaultv);                            /* Go to default Directory */
  386.  
  387.     start=getWDname();
  388.     free(start);
  389.  
  390.     start=modifier;
  391.     tempst[0]=':';
  392.  
  393.     putln(start);
  394.  
  395.     if ( strcmp("..",modifier)==0) {
  396.         modifier[0]=0;
  397.         j++;
  398.         }
  399.     else
  400.     while ( (nSlash = index(modifier,'/') ) !=0L) {
  401.         if (( (nSlash -modifier) ==2) && (*modifier=='.') && (*(modifier+1) =='.') ) {
  402.             modifier +=3L;
  403.             start=modifier;
  404.             j++;
  405.             }
  406.         else {
  407.             *nSlash=':';
  408.             modifier=nSlash+1L;
  409.             }
  410.         }
  411.  
  412.     if ( *start==':') {
  413.         strcpy( tempst, start+1L);
  414.         j= strlen( tempst);
  415.         if (tempst[j-1] !=':') {
  416.             tempst[j] = ':';
  417.             tempst[j+1]='\000';
  418.             }
  419.         }
  420.     else
  421.         strcpy( tempst+1L, start);
  422.  
  423.     putln(tempst);
  424.  
  425.     pb.ioNamePtr=ctop(tempst);
  426. #ifdef MPW
  427.     c2pstr(tempst);
  428. #endif
  429.     pb.ioVRefNum=0;
  430.     pb.ioWDDirID=DirTree[j];
  431.     pb.ioCompletion=0L;
  432.     pb.ioWDProcID='NCSA';
  433.  
  434.     j = PBOpenWD( &pb,0);
  435.  
  436.     if ( (j==-35) || (j==-43) ) return(1);
  437.  
  438. #ifdef OLDM
  439.     SetVol(0L, (defaultv=getWDnum()) );
  440. #endif
  441.  
  442.     j = SetVol(0L, (defaultv=pb.ioVRefNum));
  443.  
  444.     if ( (j==-35) || (j==-43) ) return(1);
  445.  
  446.     return(0);
  447. }
  448.  
  449. /*
  450.  *
  451.  */
  452.  
  453. Scolorset( ip, s)
  454. char *s;
  455. unsigned int *ip;
  456. {
  457.     if (3==sscanf(s,"{%d,%d,%d}", &ip[0], &ip[1],&ip[2]) )
  458.         return(1);
  459.     return(0);
  460. }
  461.  
  462. long time(x)
  463. long x;
  464. {
  465.     return( TickCount()/60);
  466. }
  467.  
  468. int memcmp( a, b, len)
  469. char *a, *b;
  470. int len;
  471. {
  472.     while (len --)
  473.         if (*a!=*b) 
  474.             return(1);
  475.     return(0);
  476. }
  477.  
  478. /**************************************************************************/
  479. /*  defdir and sysdir
  480. *   Use to change to and from the system folder directory.
  481. */
  482. #define CurrentVersion 1            /* Last known SysEnvirons version */
  483.  
  484. sysdir()
  485. {
  486.     int err;
  487.     char s[50];
  488.     SysEnvRec theWorld;                /* System Environment record */
  489.     
  490.     err = SysEnvirons(CurrentVersion, &theWorld);
  491.     if (err == envSelTooBig) {
  492.         /* should post a message saying we need to be updated */
  493.         putln("SysEnvirons out of date - macutil.c");
  494.     }
  495.     if (err != noErr)                /* possibly not available assume nothing here! */
  496.         return(0);
  497.  
  498.     (void) SetVol(NULL, theWorld.sysVRefNum);    /* change default volume */
  499.     sprintf(s,"set sysdir: %d",theWorld.sysVRefNum);
  500.     putln(s);
  501.     
  502. }
  503.  
  504. setmydir()
  505. {
  506.     char s[50];
  507.     
  508.     (void) SetVol(NULL, defaultv);
  509.     sprintf(s,"set defdir: %d",defaultv);
  510.     putln(s);
  511.     return(defaultv);
  512. }
  513.  
  514. makemydir(dir)
  515.     int dir;
  516. {
  517.     char s[50];
  518.     
  519.     defaultv = dir;
  520.     SetVol(NULL, defaultv);
  521.     sprintf(s,"make dir: %d",defaultv);
  522.     putln(s);
  523.     return(defaultv);
  524.     
  525. }
  526.