home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Misc / JOE_SOUR.LHA / Sources.lha / s!x / id-stripper / stripper3.c < prev    next >
Encoding:
C/C++ Source or Header  |  1996-02-15  |  6.7 KB  |  268 lines
  1. /************************************************/
  2.                                              /***/
  3. #define REVISION "V1.02"                     /***/
  4. #define REVDATE  "18.01.95"                     /***/
  5. #define PROGNAME "Waltari - Strip ID"         /***/
  6. #define NAME     "STRIPID"                     /***/
  7. #define AUTHOR   "Joe Cool"                     /***/
  8.                                              /***/
  9. /************************************************/
  10.  
  11. #include <stdio.h>
  12. #include <stdlib.h>
  13. #include <string.h>
  14. #include <libraries/aedoor.h>
  15. #include <libraries/dos.h>
  16. #include <proto/aedoor.h>
  17. #include <proto/dos.h>
  18. #include <proto/exec.h>
  19.  
  20. #define ws WriteStr
  21. extern struct Library *SysBase;
  22. static const char VersionTag[] = "\0$VER: "PROGNAME" "REVISION" ("REVDATE")";
  23. char version[]= PROGNAME " " REVISION ;
  24. char author[20]= AUTHOR ;
  25.  
  26. struct  Library *AEDBase;
  27. struct  DIFace  *d;
  28. char    *strf;
  29.  
  30. int strip(char *);
  31. int Node;
  32. /****************************************************************************/
  33. void OpenLibs(void) 
  34. {
  35.         if((AEDBase=(struct Library *)OpenLibrary(AEDoorName,0))==NULL)
  36.         {
  37.                 printf("Needs AEDoor.library V1.10+ to run\n");
  38.                 exit(10);
  39.         }
  40.         DOSBase=(struct DosLibrary *)OpenLibrary("dos.library",37L);
  41.         if (!DOSBase)
  42.         {
  43.                 printf("Needs dos.library V37+\n");
  44.                 exit(10);
  45.         }
  46.         SysBase=OpenLibrary("exec.library",0L);
  47.         if (!SysBase)
  48.         {
  49.                 printf("Needs any exec.library\n");
  50.                 exit(10);
  51.         }
  52.         
  53. }
  54. /****************************************************************************/
  55. void CloseLibs(void) 
  56. {
  57.         CloseLibrary(AEDBase);
  58. }
  59. /****************************************************************************/
  60. void start(int node)
  61. { 
  62.     char    prompt[100],
  63.             filename[13],
  64.             buffer[100],
  65.             workpath[100],
  66.             *ptr=NULL;
  67.     int        stripped=0;
  68.     
  69.     
  70.     ws(d,"Stripper V1.02 Active....",0);
  71.     GetDT(d,BB_MAINLINE,0);
  72.     strcpy(prompt,strf);
  73.     ptr=strrchr(prompt,'/');
  74.     strcpy(filename,ptr+1);
  75.     strcpy(workpath,strchr(prompt,' ')+1);
  76.     ptr=strrchr(workpath,'/');
  77.     strcpy(ptr,"\0");
  78.     ptr=strrchr(workpath,'/');
  79.     strcpy(ptr,"\0");
  80.     sprintf(buffer,"%s/work/%s",workpath,filename);
  81.     stripped=strip(buffer); /* diese zeile ruf den stripper auf */
  82.                             /* einfach strip(filename des file_ids */
  83.     if (stripped)
  84.     {
  85.         sprintf(buffer,"Stripped %d FileID lines!",stripped);
  86.         ws(d,buffer,1);
  87.     }
  88.     else
  89.         ws(d,"Nothing stripped!",1);
  90.         
  91.     ws(d,"",1);
  92.  
  93. }
  94.  
  95. int strip(char *ptr)
  96. {
  97.     BPTR    fileread=NULL,
  98.             filewrite=NULL,
  99.             stripread=NULL,
  100.             lock=NULL;
  101.     char    buffer[100],
  102.             **main_strip=NULL,
  103.             **main_strip2=NULL,
  104.             **main_fileid=NULL,
  105.             **main_newid=NULL;
  106.     BOOL    strip=FALSE;
  107.     int        pos=0,
  108.             pos1=0,
  109.             pos2=0,
  110.             len=0,
  111.             stripnr=0;
  112.             
  113.     lock = GetProgramDir();
  114.     NameFromLock(lock, buffer, 89);
  115.  
  116. /* oeffnen des stripfiles striplist.normal ins ram: */
  117. /* striplist normal vergleicht zeichen fuer zeichen dieser zeile */
  118. /* WEnn striplist z.b. 
  119.    Name:
  120.    drin hat dann wird folgendes alles deleted:
  121.    Name: blabla... wiauchimmer
  122.    Name:
  123.    Name: ich bin doof
  124.    aber nicht:
  125.    NAME: flkjfh
  126.    nAME: olkjhflfkjh
  127.      Name: fookf 
  128.    */
  129.     strcat(buffer,"/striplist.normal");
  130.     stripread=Open(buffer,MODE_OLDFILE);
  131.     for (pos=0;FGets(stripread,buffer,100);pos++)
  132.     {
  133.         main_strip=(char **) realloc(main_strip,(pos+1)*sizeof(char *));
  134.         main_strip[pos]=NULL;
  135.         len=strlen(buffer);
  136.         main_strip[pos]=(char *) malloc (len+1);
  137.         if (main_strip[pos]!=NULL)
  138.             strcpy(main_strip[pos],buffer);
  139.     }
  140.     Close(stripread);
  141.     main_strip=(char **) realloc(main_strip,(pos+1)*sizeof(char *));
  142.     main_strip[pos]=NULL;
  143.  
  144. /* oeffnen des stripfiles striplist.pattern ins ram: */
  145. /* wenn man folgende zeile drin hat 
  146.     [ds9bbs]
  147.     dann isses wie wenn man in der shell 
  148.     delete #?[ds9bbs]#?
  149.     eingibt.. er such halt ob er genau diese zeile bis zum letzten zeichen
  150.     irgendwo in der file_Id findet
  151.     */
  152.  
  153.  
  154.     lock = GetProgramDir();
  155.     NameFromLock(lock, buffer, 89);
  156.     strcat(buffer,"/striplist.pattern");
  157.     stripread=Open(buffer,MODE_OLDFILE);
  158.     for (pos=0;FGets(stripread,buffer,100);pos++)
  159.     {
  160.         main_strip2=(char **) realloc(main_strip2,(pos+1)*sizeof(char *));
  161.         main_strip2[pos]=NULL;
  162.         len=strlen(buffer);
  163.         main_strip2[pos]=(char *) malloc (len+1);
  164.         if (main_strip2[pos]!=NULL)
  165.             strcpy(main_strip2[pos],buffer);
  166.     }
  167.     Close(stripread);
  168.     main_strip2=(char **) realloc(main_strip2,(pos+1)*sizeof(char *));
  169.     main_strip2[pos]=NULL;
  170.  
  171.  
  172. /*   Jetzt liesst er die eigentliche File id ins ram: */
  173.  
  174.  
  175.     fileread=Open(ptr,MODE_OLDFILE);
  176.     for (pos=0;FGets(fileread,buffer,100);pos++)
  177.     {
  178.         main_fileid=(char **) realloc(main_fileid,(pos+1)*sizeof(char *));
  179.         main_fileid[pos]=NULL;
  180.         len=strlen(buffer);
  181.         main_fileid[pos]=(char *) malloc (len+1);
  182.         if (main_fileid[pos]!=NULL)
  183.             strcpy(main_fileid[pos],buffer);
  184.     }
  185.     Close (fileread);
  186.     main_fileid=(char **) realloc(main_fileid,(pos+1)*sizeof(char *));
  187.     main_fileid[pos]=NULL;
  188.  
  189. /* eigentliche strip routine... rann man bestimmt noch verschoenern */
  190.  
  191.     for (pos=0;main_fileid[pos]!=NULL;pos++ )
  192.      {    
  193.         strip=FALSE;
  194.         for (pos1=0;main_strip[pos1]!=NULL;pos1++)
  195.         {
  196.             if (!strncmp(main_fileid[pos],main_strip[pos1],(strlen(main_strip[pos1])-1)))
  197.                 strip=TRUE;
  198.         }
  199.         
  200.         
  201.         if (strip==FALSE)
  202.             for (pos1=0;main_strip2[pos1]!=NULL;pos1++)
  203.             {    
  204.                 main_strip2[pos1][strlen(main_strip2[pos1])-1]='\0';
  205.                 if (strstr(main_fileid[pos],main_strip2[pos1]))
  206.                     strip=TRUE;
  207.             }
  208.         
  209.             
  210.         if (strip==FALSE) 
  211.         {
  212.             main_newid=(char **) realloc(main_newid,(pos2+1)*sizeof(char *));
  213.             main_newid[pos2]=NULL;
  214.             len=strlen(main_fileid[pos]);
  215.             main_newid[pos2]=(char *) malloc (len+1);
  216.             if (main_newid[pos2]!=NULL)
  217.                 strcpy(main_newid[pos2],main_fileid[pos]);
  218.             pos2++;    
  219.         }
  220.         else stripnr++;
  221.     }
  222.     main_newid=(char **) realloc(main_newid,(pos2+1)*sizeof(char *));
  223.     main_newid[pos2]=NULL;
  224. /* main_newid[0-bla] sind die einzelnen zeilen der neuen file ID*/
  225. /* wenn nichts in der file_id gestripped wurde ist hier 
  226.    stripnr==0 ansonsten isses die anzahl von zeilen die gestripped wurden*/
  227. /* Als naechstes wird die neue file id geschrieben */
  228.     if (stripnr)
  229.     {
  230.         filewrite=Open(ptr,MODE_NEWFILE);
  231.         for (pos=0;main_newid[pos]!=NULL;pos++)
  232.             FPuts(filewrite,main_newid[pos]);
  233.         Close(filewrite);
  234.     }
  235.     for (pos=0;main_newid[pos]!=NULL;pos++)
  236.         free(main_newid[pos]);
  237.     free (main_newid);
  238.     for (pos=0;main_strip[pos]!=NULL;pos++)
  239.         free(main_strip[pos]);
  240.     free (main_strip);
  241.     for (pos=0;main_fileid[pos]!=NULL;pos++)
  242.         free(main_fileid[pos]);
  243.     free (main_fileid);
  244.     return (stripnr);
  245. }
  246.  
  247. /****************************************************************************/
  248. main(argc, argv)
  249. int argc;
  250. char *argv[];
  251. {
  252.         if(argc!=2)
  253.         {
  254.                 printf("\n%s: XIM-DOOR for S-Express!\n\n",version);
  255.                 exit(0);
  256.         }
  257.         Node=atoi(argv[1]);
  258.  
  259.         OpenLibs();
  260.         d=CreateComm(argv[1][0]);
  261.         strf= GetString(d);
  262.  
  263.         start(Node);
  264.  
  265.         CloseLibs();
  266.         DeleteComm(d);
  267. }
  268.