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