workbench/system/find/findgroup_class.c

   1 /*
   2     Copyright © 2016, The AROS Development Team. All rights reserved.
   3     $Id$
   4 */
   5
   6 #include <proto/dos.h>
   7 #include <proto/muimaster.h>
   8 #include <proto/intuition.h>
   9 #include <proto/asl.h>
  10 #include <proto/utility.h>
  11 #include <proto/workbench.h>
  12 #include <proto/alib.h>
  13
  14 #include <libraries/mui.h>
  15 #include <mui/NList_mcc.h>
  16 #include <mui/NListview_mcc.h>
  17
  18 //#define DEBUG 1
  19 #include <aros/debug.h>
  20 #include <zune/customclasses.h>
  21
  22 #include <stdio.h>
  23
  24 #include "findgroup_class.h"
  25 #include "locale.h"
  26
  27 #define PATHNAMESIZE (1024)
  28
  29
  30 struct FindGroup_DATA
  31 {
  32     Object *str_path, *str_pattern, *str_contents;
  33     Object *btn_start, *btn_stop, *btn_open, *btn_view, *btn_parent;
  34     Object *lst_result;
  35     Object *txt_status;
  36     Object *scanproc;
  37     struct Hook openwbobj_hook;
  38     struct Hook view_hook;
  39     struct Hook parent_hook;
  40     struct Hook activeentry_hook;
  41 };
  42
  43
  44 struct Listentry
  45 {
  46     STRPTR fullname;
  47     ULONG namebuflen;
  48     struct FileInfoBlock fib;
  49 };
  50
  51 static struct Hook list_display_hook, list_constr_hook, list_destr_hook, list_compare_hook;
  52
  53
  54 // =======================================================================================
  55
  56 static void display_doserror(Object *app, ULONG error)
  57 {
  58     TEXT buffer[255];
  59     Fault(error, NULL, buffer, sizeof buffer);
  60     MUI_Request(app, NULL, 0, _(MSG_APP_TITLE), _(MSG_OK), _(MSG_ERR_DOS), buffer);
  61 }
  62
  63 // =======================================================================================
  64
  65 static BOOL checkfile(Object *app, struct AnchorPath *anchorpath, STRPTR pattern, STRPTR content)
  66 {
  67     D(bug("[Find::checkfile] name %s pattern %s content %s\n", anchorpath->ap_Info.fib_FileName, pattern, content));
  68
  69     // warning: this function is called from a sub process
  70
  71     LONG retval = FALSE;
  72
  73     if (anchorpath->ap_Info.fib_DirEntryType > 0) // ignore directories
  74     {
  75         return FALSE;
  76     }
  77
  78     if ((pattern[0] == '\0') || MatchPatternNoCase(pattern, anchorpath->ap_Info.fib_FileName))
  79     {
  80         if (content && (content[0] != '\0'))
  81         {
  82             D(bug("[Find::checkfile] content search\n"));
  83
  84             BPTR fh;
  85             LONG searchlen = strlen(content);
  86             LONG textlen = anchorpath->ap_Info.fib_Size;
  87             TEXT *text, *oldtext;
  88             LONG i;
  89
  90             fh = Open(anchorpath->ap_Buf, MODE_OLDFILE);
  91             if (fh)
  92             {
  93                 text = oldtext = AllocVec(textlen, MEMF_ANY);
  94                 if (text)
  95                 {
  96                     if (Read(fh, text, textlen) == textlen)
  97                     {
  98                         textlen -= searchlen;
  99                         while (textlen >= 0)
 100                         {
 101                             for(i = 0; i < searchlen; i++)
 102                             {
 103                                 if (ToUpper(text[i]) != ToUpper(content[i]))
 104                                 {
 105                                     break;
 106                                 }
 107                             }
 108
 109                             if (i == searchlen)
 110                             {
 111                                 retval = TRUE;
 112                                 break;
 113                             }
 114                             text++;
 115                             textlen--;
 116                         }
 117                     }
 118                     else
 119                     {
 120                         // Read() failed
 121                         // app must be NULL to avoid deadlocks
 122                         display_doserror(NULL, IoErr());
 123                     }
 124                     FreeVec(oldtext);
 125                 }
 126                 else
 127                 {
 128                     MUI_Request(NULL, NULL, 0, _(MSG_APP_TITLE), _(MSG_OK), _(MSG_ERR_NO_MEM));
 129                 }
 130                 Close(fh);
 131             }
 132             else
 133             {
 134                 // Open() failed
 135                 // app must be NULL to avoid deadlocks
 136                 display_doserror(NULL, IoErr());
 137             }
 138         }
 139         else
 140         {
 141             retval = TRUE;
 142         }
 143     }
 144     return retval;
 145 }
 146
 147 // =======================================================================================
 148
 149 AROS_UFH3(APTR, list_constr_func,
 150     AROS_UFHA(struct Hook *, h, A0),
 151     AROS_UFHA(APTR, pool, A2),
 152     AROS_UFHA(struct Listentry *, li, A1))
 153 {
 154     AROS_USERFUNC_INIT
 155
 156     struct Listentry *newentry = AllocPooled(pool, sizeof(struct Listentry));
 157     ULONG buflen;
 158     if (newentry)
 159     {
 160         buflen = strlen(li->fullname) + 1;
 161         newentry->fullname = AllocPooled(pool, buflen);
 162         if (newentry->fullname)
 163         {
 164             newentry->namebuflen = buflen;
 165             CopyMem(li->fullname, newentry->fullname, buflen);
 166         }
 167         newentry->fib = li->fib;
 168     }
 169     return newentry;
 170
 171     AROS_USERFUNC_EXIT
 172 }
 173
 174 // =======================================================================================
 175
 176 AROS_UFH3(void, list_destr_func,
 177     AROS_UFHA(struct Hook *, h, A0),
 178     AROS_UFHA(APTR, pool, A2),
 179     AROS_UFHA(struct Listentry *, li, A1))
 180 {
 181     AROS_USERFUNC_INIT
 182
 183     FreePooled(pool, li->fullname, li->namebuflen);
 184     FreePooled(pool, li, sizeof(struct Listentry));
 185
 186     AROS_USERFUNC_EXIT
 187 }
 188
 189 // =======================================================================================
 190
 191 AROS_UFH3S(LONG, list_display_func,
 192     AROS_UFHA(struct Hook *, h, A0),
 193     AROS_UFHA(char **, array, A2),
 194     AROS_UFHA(struct Listentry *, li, A1))
 195 {
 196     AROS_USERFUNC_INIT
 197
 198     if (li)
 199     {
 200         static TEXT protbuf[8], sizebuf[20];
 201         static TEXT datebuf[20], timebuf[20];
 202         struct DateTime dt;
 203
 204         // Protection bits
 205         protbuf[0] = li->fib.fib_Protection & FIBF_SCRIPT  ? 's' : '-';
 206         protbuf[1] = li->fib.fib_Protection & FIBF_PURE    ? 'p' : '-';
 207         protbuf[2] = li->fib.fib_Protection & FIBF_ARCHIVE ? 'a' : '-';
 208
 209         // Not set means action is allowed!
 210         protbuf[3] = li->fib.fib_Protection & FIBF_READ    ? '-' : 'r';
 211         protbuf[4] = li->fib.fib_Protection & FIBF_WRITE   ? '-' : 'w';
 212         protbuf[5] = li->fib.fib_Protection & FIBF_EXECUTE ? '-' : 'e';
 213         protbuf[6] = li->fib.fib_Protection & FIBF_DELETE  ? '-' : 'd';
 214         protbuf[7] = '\0';
 215
 216         // Size
 217         snprintf(sizebuf, sizeof sizebuf, "%lu", (long unsigned int)li->fib.fib_Size);
 218
 219         // Date
 220         datebuf[0] = '\0';
 221         timebuf[0] = '\0';
 222         dt.dat_Stamp = li->fib.fib_Date;
 223         dt.dat_Format = FORMAT_DEF;
 224         dt.dat_Flags = 0;
 225         dt.dat_StrDay = NULL;
 226         dt.dat_StrDate = datebuf;
 227         dt.dat_StrTime = timebuf;
 228         DateToStr(&dt);
 229
 230         *array++ = li->fullname;
 231         *array++ = sizebuf;
 232         *array++ = protbuf;
 233         *array++ = datebuf;
 234         *array++ = timebuf;
 235         *array++ = li->fib.fib_Comment;
 236     }
 237     else
 238     {
 239         *array++ = (STRPTR)_(MSG_LST_FULLPATH);
 240         *array++ = (STRPTR)_(MSG_LST_SIZE);
 241         *array++ = (STRPTR)_(MSG_LST_ATTRIBUTES);
 242         *array++ = (STRPTR)_(MSG_LST_DATE);
 243         *array++ = (STRPTR)_(MSG_LST_TIME);
 244         *array++ = (STRPTR)_(MSG_LST_COMMENT);
 245     }
 246
 247     return 0;
 248
 249     AROS_USERFUNC_EXIT
 250 }
 251
 252 // =======================================================================================
 253
 254 AROS_UFH3(LONG, list_compare_func,
 255     AROS_UFHA(struct Hook *, h, A0),
 256     AROS_UFHA(struct Listentry *, li1, A2),
 257     AROS_UFHA(struct Listentry *, li2, A1))
 258 {
 259     AROS_USERFUNC_INIT
 260
 261     return stricmp(li2->fullname, li1->fullname);
 262
 263     AROS_USERFUNC_EXIT
 264 }
 265
 266
 267 // =======================================================================================
 268
 269 AROS_UFH3S(void, openwbobj_func,
 270     AROS_UFHA(struct Hook *, h, A0),
 271     AROS_UFHA(Object *, obj, A2),
 272     AROS_UFHA(APTR, msg, A1))
 273 {
 274     AROS_USERFUNC_INIT
 275
 276     D(bug("[Find::openwbobject_func] called\n"));
 277
 278     // struct FindGroup_DATA *data = h->h_Data;
 279     struct Listentry *entry;
 280     BPTR filelock = (BPTR)-1;
 281     BPTR parentdirlock = (BPTR)-1;
 282     BPTR olddirlock = (BPTR)-1;
 283
 284     DoMethod(obj, MUIM_NList_GetEntry, MUIV_NList_GetEntry_Active, &entry);
 285     if (entry)
 286     {
 287         D(bug("[Find::openwbobj_func] name %s\n", entry->fullname));
 288
 289         // trying to change directory to file's parent directory
 290         filelock = Lock(entry->fullname, SHARED_LOCK);
 291         if (filelock)
 292         {
 293             parentdirlock = ParentDir(filelock);
 294             olddirlock = CurrentDir(parentdirlock);
 295         }
 296
 297         D(bug("[Find::openwbobj_func] file %p parent %p olddir %p\n", filelock, parentdirlock, olddirlock));
 298
 299         // execute program even if directory change failed
 300         if (OpenWorkbenchObject(entry->fullname, TAG_DONE) == FALSE)
 301         {
 302             MUI_Request(_app(obj), _win(obj), 0, _(MSG_APP_TITLE), _(MSG_OK), _(MSG_ERR_NO_FILE), entry->fullname);
 303         }
 304
 305         if (olddirlock != (BPTR)-1)
 306         {
 307             CurrentDir(olddirlock);
 308         }
 309         if (parentdirlock != (BPTR)-1)
 310         {
 311             UnLock(parentdirlock);
 312         }
 313         if (filelock != (BPTR)-1)
 314         {
 315             UnLock(filelock);
 316         }
 317     }
 318
 319     AROS_USERFUNC_EXIT
 320 }
 321
 322 // =======================================================================================
 323
 324 AROS_UFH3S(void, view_func,
 325     AROS_UFHA(struct Hook *, h, A0),
 326     AROS_UFHA(Object *, obj, A2),
 327     AROS_UFHA(APTR, msg, A1))
 328 {
 329     AROS_USERFUNC_INIT
 330
 331     D(bug("[Find::view_func] called\n"));
 332
 333     // struct FindGroup_DATA *data = h->h_Data;
 334     struct Listentry *entry;
 335     TEXT command[PATHNAMESIZE];
 336     BPTR con;
 337
 338     DoMethod(obj, MUIM_NList_GetEntry, MUIV_NList_GetEntry_Active, &entry);
 339     if (entry)
 340     {
 341         D(bug("[Find::view_func] viewing %s\n", entry->fullname));
 342         con = Open("CON:////Find Output/CLOSE/AUTO/WAIT", MODE_OLDFILE);
 343         snprintf(command, sizeof command, "SYS:Utilities/Multiview \"%s\"", entry->fullname);
 344         if (SystemTags(command,
 345             SYS_Asynch, TRUE,
 346             SYS_Input,  con,
 347             SYS_Output, NULL,
 348             SYS_Error, NULL,
 349             TAG_DONE) == -1)
 350         {
 351             display_doserror(_app(obj), IoErr());
 352             Close(con); // an error occured, we must close con: ourselves
 353         }
 354     }
 355
 356     AROS_USERFUNC_EXIT
 357 }
 358
 359 // =======================================================================================
 360
 361 AROS_UFH3S(void, parent_func,
 362     AROS_UFHA(struct Hook *, h, A0),
 363     AROS_UFHA(Object *, obj, A2),
 364     AROS_UFHA(APTR, msg, A1))
 365 {
 366     AROS_USERFUNC_INIT
 367
 368     D(bug("[Find::parent_func] called\n"));
 369
 370     // struct FindGroup_DATA *data = h->h_Data;
 371     struct Listentry *entry;
 372     BPTR filelock;
 373     BPTR parentdirlock;
 374     TEXT buffer[PATHNAMESIZE];
 375
 376     DoMethod(obj, MUIM_NList_GetEntry, MUIV_NList_GetEntry_Active, &entry);
 377     if (entry)
 378     {
 379         D(bug("[Find::parent_func] name %s\n", entry->fullname));
 380
 381         filelock = Lock(entry->fullname, SHARED_LOCK);
 382         if (filelock)
 383         {
 384             parentdirlock = ParentDir(filelock);
 385             if (NameFromLock(parentdirlock, buffer, PATHNAMESIZE))
 386             {
 387                 D(bug("[Find::parent_func] parent %s\n", buffer));
 388
 389                 if (OpenWorkbenchObject(buffer, TAG_DONE) == FALSE)
 390                 {
 391                     MUI_Request(_app(obj), _win(obj), 0, _(MSG_APP_TITLE), _(MSG_OK),
 392                         _(MSG_ERR_NO_DIR), buffer);
 393                 }
 394             }
 395             UnLock(parentdirlock);
 396             UnLock(filelock);
 397         }
 398     }
 399
 400     AROS_USERFUNC_EXIT
 401 }
 402
 403 // =======================================================================================
 404
 405 AROS_UFH3S(void, activeentry_func,
 406     AROS_UFHA(struct Hook *, h, A0),
 407     AROS_UFHA(Object *, obj, A2),
 408     AROS_UFHA(APTR, msg, A1))
 409 {
 410     AROS_USERFUNC_INIT
 411
 412     D(bug("[activeentry_func] called\n"));
 413
 414     struct FindGroup_DATA *data = h->h_Data;
 415     LONG entry;
 416
 417     entry = XGET(obj, MUIA_List_Active);
 418     if (entry == MUIV_NList_Active_Off)
 419     {
 420         SET(data->btn_open, MUIA_Disabled, TRUE);
 421         SET(data->btn_view, MUIA_Disabled, TRUE);
 422         SET(data->btn_parent, MUIA_Disabled, TRUE);
 423     }
 424     else
 425     {
 426         SET(data->btn_open, MUIA_Disabled, FALSE);
 427         SET(data->btn_view, MUIA_Disabled, FALSE);
 428         SET(data->btn_parent, MUIA_Disabled, FALSE);
 429     }
 430
 431     AROS_USERFUNC_EXIT
 432 }
 433
 434 // =======================================================================================
 435
 436 Object *FindGroup__OM_NEW(Class *CLASS, Object *self, struct opSet *message)
 437 {
 438     Object *str_path, *str_pattern, *str_contents;
 439     Object *btn_start, *btn_stop, *btn_open, *btn_view, *btn_parent;
 440     Object *lst_result;
 441     Object *txt_status;
 442     STRPTR path = NULL;
 443     STRPTR pattern = NULL;
 444     STRPTR contents = NULL;
 445
 446     struct TagItem *tstate = message->ops_AttrList;
 447     struct TagItem *tag = NULL;
 448
 449     while ((tag = NextTagItem(&tstate)) != NULL)
 450     {
 451         switch (tag->ti_Tag)
 452         {
 453             case MUIA_FindGroup_Path:
 454                 path = (STRPTR)tag->ti_Data;
 455                 break;
 456
 457             case MUIA_FindGroup_Pattern:
 458                 pattern = (STRPTR)tag->ti_Data;
 459                 break;
 460
 461             case MUIA_FindGroup_Contents:
 462                 contents = (STRPTR)tag->ti_Data;
 463                 break;
 464         }
 465     }
 466
 467     if (path == NULL) path = "SYS:";
 468     if (pattern == NULL) pattern = "";
 469     if (contents == NULL) contents = "";
 470
 471     list_constr_hook.h_Entry = (HOOKFUNC)list_constr_func;
 472     list_destr_hook.h_Entry = (HOOKFUNC)list_destr_func;
 473     list_display_hook.h_Entry = (HOOKFUNC)list_display_func;
 474     list_compare_hook.h_Entry = (HOOKFUNC)list_compare_func;
 475
 476
 477     self = (Object *) DoSuperNewTags
 478     (
 479         CLASS, self, NULL,
 480         Child, HGroup,
 481             Child, VGroup,
 482                 Child, VGroup,
 483                     GroupFrame,
 484                     Child, ColGroup(2),
 485                         GroupFrame,
 486                         Child, Label(_(MSG_LBL_PATH)),
 487                         Child, PopaslObject,
 488                             MUIA_Popasl_Type , ASL_FileRequest,
 489                             ASLFR_TitleText, _(MSG_LBL_PATH),
 490                             MUIA_Popstring_String, str_path = StringObject,
 491                                 StringFrame,
 492                                 MUIA_String_Contents, path,
 493                                 MUIA_CycleChain, 1,
 494                             End,
 495                             MUIA_Popstring_Button, PopButton(MUII_PopFile),
 496                         End,
 497                         Child, Label(_(MSG_LBL_PATTERN)),
 498                         Child, str_pattern = StringObject,
 499                             StringFrame,
 500                             MUIA_String_Contents, pattern,
 501                             MUIA_CycleChain, 1,
 502                         End,
 503                         Child, Label(_(MSG_LBL_CONTENTS)),
 504                         Child, str_contents = StringObject,
 505                             StringFrame,
 506                             MUIA_String_Contents, contents,
 507                             MUIA_CycleChain, 1,
 508                         End,
 509                     End,
 510                     Child, HGroup,
 511                         GroupFrame,
 512                         Child, HVSpace,
 513                         Child, btn_start = SimpleButton(_(MSG_BTN_START)),
 514                         Child, HVSpace,
 515                         Child, btn_stop = SimpleButton(_(MSG_BTN_STOP)),
 516                         Child, HVSpace,
 517                     End,
 518                 End,
 519                 Child, lst_result = NListviewObject,
 520                     MUIA_NListview_NList, NListObject,
 521                         MUIA_NList_Format, "BAR,P=\33r BAR,BAR,BAR,BAR,",
 522                         MUIA_NList_Title, TRUE,
 523                         MUIA_Frame, MUIV_Frame_InputList,
 524                         MUIA_NList_DisplayHook, &list_display_hook,
 525                         MUIA_NList_ConstructHook, &list_constr_hook,
 526                         MUIA_NList_DestructHook, &list_destr_hook,
 527                         MUIA_NList_CompareHook, &list_compare_hook,
 528                     End,
 529                 End,
 530                 Child, HGroup,
 531                     GroupFrame,
 532                     Child, HVSpace,
 533                     Child, btn_open = SimpleButton(_(MSG_BTN_OPEN)),
 534                     Child, HVSpace,
 535                     Child, btn_view = SimpleButton(_(MSG_BTN_VIEW)),
 536                     Child, HVSpace,
 537                     Child, btn_parent = SimpleButton(_(MSG_BTN_DRAWER)),
 538                     Child, HVSpace,
 539                 End,
 540                 Child, txt_status = TextObject,
 541                     TextFrame,
 542                 End,
 543             End,
 544         End,
 545         TAG_MORE, (IPTR)message->ops_AttrList,
 546         TAG_DONE
 547     );
 548
 549     if (self)
 550     {
 551         struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 552
 553         // embed the process object
 554         data->scanproc = MUI_NewObject(MUIC_Process,
 555             MUIA_Process_SourceClass , CLASS,
 556             MUIA_Process_SourceObject, self,
 557             MUIA_Process_Priority    , -1,
 558             MUIA_Process_AutoLaunch  , FALSE,
 559             TAG_DONE);
 560
 561         data->str_path          = str_path;
 562         data->str_pattern       = str_pattern;
 563         data->str_contents      = str_contents;
 564         data->btn_start         = btn_start;
 565         data->btn_stop          = btn_stop;
 566         data->btn_open          = btn_open;
 567         data->btn_view          = btn_view;
 568         data->btn_parent        = btn_parent;
 569         data->lst_result        = lst_result;
 570         data->txt_status        = txt_status;
 571
 572         data->openwbobj_hook.h_Entry = (HOOKFUNC)openwbobj_func;
 573         data->openwbobj_hook.h_Data = data;
 574
 575         data->view_hook.h_Entry = (HOOKFUNC)view_func;
 576         data->view_hook.h_Data = data;
 577
 578         data->parent_hook.h_Entry = (HOOKFUNC)parent_func;
 579         data->parent_hook.h_Data = data;
 580
 581         data->activeentry_hook.h_Entry = (HOOKFUNC)activeentry_func;
 582         data->activeentry_hook.h_Data = data;
 583
 584         SET(data->btn_open, MUIA_Disabled, TRUE);
 585         SET(data->btn_view, MUIA_Disabled, TRUE);
 586         SET(data->btn_parent, MUIA_Disabled, TRUE);
 587
 588         DoMethod
 589         (
 590             data->btn_start, MUIM_Notify, MUIA_Pressed, FALSE,
 591             self, 1, MUIM_FindGroup_Start
 592         );
 593
 594         DoMethod
 595         (
 596             data->btn_stop, MUIM_Notify, MUIA_Pressed, FALSE,
 597             self, 1, MUIM_FindGroup_Stop
 598         );
 599
 600         DoMethod
 601         (
 602             data->btn_open, MUIM_Notify, MUIA_Pressed, FALSE,
 603             self, 2, MUIM_CallHook, &data->openwbobj_hook
 604         );
 605
 606         DoMethod
 607         (
 608             data->btn_view, MUIM_Notify, MUIA_Pressed, FALSE,
 609             self, 2, MUIM_CallHook, &data->view_hook
 610         );
 611
 612         DoMethod
 613         (
 614             data->btn_parent, MUIM_Notify, MUIA_Pressed, FALSE,
 615             self, 2, MUIM_CallHook, &data->parent_hook
 616         );
 617
 618         DoMethod
 619         (
 620             data->lst_result, MUIM_Notify, MUIA_NList_DoubleClick, MUIV_EveryTime,
 621             self, 2, MUIM_CallHook, &data->openwbobj_hook
 622         );
 623
 624         DoMethod
 625         (
 626             data->lst_result, MUIM_Notify, MUIA_NList_Active, MUIV_EveryTime,
 627             self, 2, MUIM_CallHook, &data->activeentry_hook
 628         );
 629     }
 630     return self;
 631 }
 632
 633 // =======================================================================================
 634
 635 IPTR FindGroup__OM_DISPOSE(Class *CLASS, Object *self, Msg msg)
 636 {
 637     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 638     MUI_DisposeObject(data->scanproc);
 639     return DoSuperMethodA(CLASS, self, msg);
 640 }
 641
 642 // =======================================================================================
 643
 644 IPTR FindGroup__MUIM_Cleanup(Class *CLASS, Object *self, Msg msg)
 645 {
 646     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 647
 648     DoMethod(data->scanproc, MUIM_Process_Kill, 0);
 649
 650     return DoSuperMethodA(CLASS, self, msg);
 651 }
 652
 653 // =======================================================================================
 654
 655 IPTR FindGroup__MUIM_Process_Process(Class *CLASS, Object *self, struct MUIP_Process_Process *msg)
 656 {
 657     // this is our sub process
 658
 659     D(bug("[Find::search process] called\n"));
 660
 661     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 662
 663     struct AnchorPath *anchorpath;
 664     LONG error;
 665     ULONG destlen;
 666     STRPTR destpattern;
 667     ULONG methodid1 = 0, methodid2 = 0;
 668
 669     STRPTR path = (STRPTR)XGET(data->str_path, MUIA_String_Contents);
 670     STRPTR srcpattern = (STRPTR)XGET(data->str_pattern, MUIA_String_Contents);
 671     STRPTR content = (STRPTR)XGET(data->str_contents, MUIA_String_Contents);
 672
 673     destlen = strlen(srcpattern) * 2 + 2;
 674     destpattern = AllocVec(destlen, MEMF_ANY);
 675     if (destpattern)
 676     {
 677         if (ParsePatternNoCase(srcpattern, destpattern, destlen) < 0) // error
 678         {
 679             // app must be NULL to avoid deadlocks
 680             MUI_Request(NULL, NULL, 0, _(MSG_APP_TITLE), _(MSG_OK), _(MSG_ERR_PATTERN));
 681             FreeVec(destpattern);
 682             return 0;
 683         }
 684     }
 685
 686     // we must use PushMethod because we are in a sub process
 687     methodid1 = DoMethod(_app(self), MUIM_Application_PushMethod,  data->lst_result, 1, MUIM_NList_Clear);
 688
 689     if (anchorpath = AllocMem(sizeof(struct AnchorPath) + PATHNAMESIZE, MEMF_CLEAR))
 690     {
 691         anchorpath->ap_Strlen = PATHNAMESIZE;
 692         anchorpath->ap_Flags = APF_DODIR;
 693
 694         if ((error = MatchFirst(path, anchorpath)) == 0)
 695         {
 696             do
 697             {
 698                 if (*msg->kill)
 699                 {
 700                     // process stopped by user
 701                     break;
 702                 }
 703
 704                 if (anchorpath->ap_Flags & APF_DIDDIR)
 705                 {
 706                     anchorpath->ap_Flags &= ~(APF_DODIR | APF_DIDDIR);
 707                 }
 708                 else
 709                 {
 710                     struct Listentry *entry;
 711                     D(bug("found %s\n", anchorpath->ap_Buf));
 712                     if (checkfile(_app(self), anchorpath, destpattern, content))
 713                     {
 714                         entry = AllocVec(sizeof (struct Listentry), MEMF_CLEAR);
 715                         if (entry)
 716                         {
 717                             entry->fullname = StrDup(anchorpath->ap_Buf);
 718                             CopyMem(&anchorpath->ap_Info, &entry->fib,  sizeof (entry->fib));
 719
 720                             // we must use PushMethod because we are in a sub process
 721                             methodid2 = DoMethod(_app(self), MUIM_Application_PushMethod,
 722                                 self, 2, MUIM_FindGroup_AddEntry, entry);
 723                             if (!methodid2)
 724                             {
 725                                 FreeVec(entry->fullname);
 726                                 FreeVec(entry);
 727                             }
 728                         }
 729                     }
 730                     anchorpath->ap_Flags = APF_DODIR;
 731                 }
 732             } while ((error = MatchNext(anchorpath)) == 0);
 733         }
 734
 735         MatchEnd(anchorpath);
 736
 737         if (!*msg->kill && error != ERROR_NO_MORE_ENTRIES)
 738         {
 739             // app must be NULL to avoid deadlocks
 740             display_doserror(NULL, error);
 741         }
 742
 743         FreeMem(anchorpath, sizeof(struct AnchorPath) + PATHNAMESIZE);
 744     }
 745
 746     FreeVec(destpattern);
 747
 748     // prevent method execution after task has been killed
 749     DoMethod(_app(self), MUIM_Application_UnpushMethod, self, methodid1, 0);
 750     DoMethod(_app(self), MUIM_Application_UnpushMethod, self, methodid2, 0);
 751
 752     return 0;
 753 }
 754
 755 // =======================================================================================
 756
 757 IPTR FindGroup__MUIM_FindGroup_Start(Class *CLASS, Object *self, Msg msg)
 758 {
 759     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 760
 761     DoMethod(data->scanproc, MUIM_Process_Launch);
 762
 763     return 0;
 764 }
 765
 766 // =======================================================================================
 767
 768 IPTR FindGroup__MUIM_FindGroup_Stop(Class *CLASS, Object *self, Msg msg)
 769 {
 770     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 771
 772     DoMethod(data->scanproc, MUIM_Process_Kill, 4);
 773
 774     return 0;
 775 }
 776
 777 // =======================================================================================
 778
 779 IPTR FindGroup__MUIM_FindGroup_AddEntry(Class *CLASS, Object *self, struct MUIP_FindGroup_AddEntry *msg)
 780 {
 781     D(bug("[Find::MUIM_FindGroup_AddEntry] started\n"));
 782     struct FindGroup_DATA *data = INST_DATA(CLASS, self);
 783
 784     DoMethod(data->lst_result, MUIM_List_InsertSingle, msg->entry, MUIV_List_Insert_Sorted);
 785
 786     // we were called with PushMethod. After inserting the entry we can release the data
 787     FreeVec(msg->entry->fullname);
 788     FreeVec(msg->entry);
 789
 790     return TRUE;
 791 }
 792
 793 // =======================================================================================
 794
 795 ZUNE_CUSTOMCLASS_7
 796 (
 797     FindGroup, NULL, MUIC_Group, NULL,
 798     OM_NEW,                     struct opSet *,
 799     OM_DISPOSE,                 Msg,
 800     MUIM_Cleanup,               Msg,
 801     MUIM_Process_Process,       struct MUIP_Process_Process *,
 802     MUIM_FindGroup_Start,       Msg,
 803     MUIM_FindGroup_Stop,        Msg,
 804     MUIM_FindGroup_AddEntry,    struct MUIP_FindGroup_AddEntry *
 805 );