external/openurl/prefs/popport.c

   1 /***************************************************************************
   2
   3  openurl.library - universal URL display and browser launcher library
   4  Copyright (C) 1998-2005 by Troels Walsted Hansen, et al.
   5  Copyright (C) 2005-2013 by openurl.library Open Source Team
   6
   7  This library is free software; it has been placed in the public domain
   8  and you can freely redistribute it and/or modify it. Please note, however,
   9  that some components may be under the LGPL or GPL license.
  10
  11  This library is distributed in the hope that it will be useful,
  12  but WITHOUT ANY WARRANTY; without even the implied warranty of
  13  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
  14
  15  openurl.library project: http://sourceforge.net/projects/openurllib/
  16
  17  $Id$
  18
  19 ***************************************************************************/
  20
  21 #include "openurl.h"
  22
  23 #include <libraries/openurl.h>
  24 #include <exec/execbase.h>
  25
  26 #include "SDI_hook.h"
  27 #include "macros.h"
  28
  29 #include "debug.h"
  30
  31 /**************************************************************************/
  32 /*
  33 ** Public ports list
  34 */
  35
  36 static struct MUI_CustomClass *listClass = NULL;
  37 #define listObject NewObject(listClass->mcc_Class,NULL
  38
  39 static IPTR mListNew(struct IClass *cl, Object *obj, struct opSet *msg)
  40 {
  41     return (IPTR)DoSuperNew(cl,obj,
  42       MUIA_Frame,              MUIV_Frame_InputList,
  43       MUIA_Background,         MUII_ListBack,
  44       MUIA_List_AutoVisible,   TRUE,
  45       MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
  46       MUIA_List_DestructHook,  MUIV_List_DestructHook_String,
  47       TAG_MORE,(IPTR)msg->ops_AttrList);
  48 }
  49
  50 /**************************************************************************/
  51
  52 static IPTR mListSetup(struct IClass *cl, Object *obj, Msg msg)
  53 {
  54   IPTR success = FALSE;
  55
  56   ENTER();
  57
  58   if(DoSuperMethodA(cl, obj, msg))
  59   {
  60     struct List *portList;
  61     struct PortNode
  62     {
  63         struct Node node;
  64         STRPTR name;
  65     };
  66
  67     DoSuperMethod(cl, obj, MUIM_List_Clear);
  68
  69     #if defined(__amigaos4__)
  70     portList = AllocSysObjectTags(ASOT_LIST, TAG_DONE);
  71     #else
  72     portList = AllocVec(sizeof(*portList), MEMF_ANY);
  73     #endif
  74
  75     if(portList != NULL)
  76     {
  77       struct Node *mstate;
  78       struct PortNode *portNode;
  79
  80       #if !defined(__amigaos4__)
  81       NewList(portList);
  82       #endif
  83
  84       Forbid();
  85
  86       for(mstate = SysBase->PortList.lh_Head; mstate->ln_Succ; mstate = mstate->ln_Succ)
  87       {
  88         // don't distinguish between OS4 and other systems here, because AllocSysObject()
  89         // might do things which break the surrounding Forbid(), which AllocVec() is
  90         // guaranteed *NOT* to do.
  91         if((portNode = AllocVecShared(sizeof(*portNode), MEMF_CLEAR)) != NULL)
  92         {
  93           if((portNode->name = AllocVecShared(strlen(mstate->ln_Name)+1, MEMF_ANY)) != NULL)
  94           {
  95             strcpy(portNode->name, mstate->ln_Name);
  96             AddTail(portList, &portNode->node);
  97           }
  98           else
  99             FreeVec(portNode);
 100         }
 101       }
 102
 103       Permit();
 104
 105       // now that the port names have been copied we can insert them into the list
 106       while((portNode = (struct PortNode *)RemHead(portList)) != NULL)
 107       {
 108         DoSuperMethod(cl, obj, MUIM_List_InsertSingle, portNode->name, MUIV_List_Insert_Sorted);
 109
 110         // free the complete node, the name was already copied during MUIM_List_InsertSingle
 111         // due to the given construct hook
 112         FreeVec(portNode->name);
 113         FreeVec(portNode);
 114       }
 115
 116       #if defined(__amigaos4__)
 117       FreeSysObject(ASOT_LIST, portList);
 118       #else
 119       FreeVec(portList);
 120       #endif
 121     }
 122
 123     // signal success, even if copying the list failed for some reason
 124     // but the MUIM_Setup invocation of the super class succeeded.
 125     success = TRUE;
 126   }
 127
 128   RETURN(success);
 129   return success;
 130 }
 131
 132 /**************************************************************************/
 133
 134 SDISPATCHER(listDispatcher)
 135 {
 136     switch (msg->MethodID)
 137     {
 138         case OM_NEW:     return mListNew(cl,obj,(APTR)msg);
 139
 140         case MUIM_Setup: return mListSetup(cl,obj,(APTR)msg);
 141
 142         default:         return DoSuperMethodA(cl,obj,msg);
 143     }
 144 }
 145
 146 /**************************************************************************/
 147
 148 static BOOL initListClass(void)
 149 {
 150     BOOL success = FALSE;
 151
 152     ENTER();
 153
 154     if((listClass = MUI_CreateCustomClass(NULL, MUIC_List, NULL, 0, ENTRY(listDispatcher))) != NULL)
 155         success = TRUE;
 156
 157     RETURN(success);
 158     return success;
 159 }
 160
 161 /**************************************************************************/
 162
 163 static void disposeListClass(void)
 164 {
 165     ENTER();
 166
 167     if(listClass != NULL)
 168        MUI_DeleteCustomClass(listClass);
 169
 170     LEAVE();
 171 }
 172
 173 /**************************************************************************/
 174
 175 HOOKPROTONH(windowFun, void, Object *pop, Object *win)
 176 {
 177   set(win,MUIA_Window_DefaultObject,pop);
 178 }
 179 MakeStaticHook(windowHook, windowFun);
 180
 181 /***********************************************************************/
 182
 183 HOOKPROTONH(openFun, ULONG, Object *list, Object *str)
 184 {
 185     STRPTR s, x;
 186     int   i;
 187
 188     s = (STRPTR)xget(str,MUIA_String_Contents);
 189
 190     for (i = 0; ;i++)
 191     {
 192         DoMethod(list,MUIM_List_GetEntry,i,(IPTR)&x);
 193         if (!x)
 194         {
 195             set(list,MUIA_List_Active,MUIV_List_Active_Off);
 196             break;
 197         }
 198         else
 199             if (!stricmp(x,s))
 200             {
 201                 set(list,MUIA_List_Active,i);
 202                 break;
 203             }
 204     }
 205
 206     return TRUE;
 207 }
 208 MakeStaticHook(openHook, openFun);
 209
 210 /***********************************************************************/
 211
 212 HOOKPROTONH(closeFun, void, Object *list, Object *str)
 213 {
 214     STRPTR port;
 215
 216     DoMethod(list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,(IPTR)&port);
 217     if (port)
 218     {
 219         TEXT buf[PORT_LEN], *dot, *digit;
 220
 221         dot = strrchr(port,'.');
 222
 223         if (dot)
 224         {
 225             dot++;
 226
 227             for (digit = dot; *digit; digit++)
 228                 if (!isdigit(*digit))
 229                 {
 230                     dot = NULL;
 231                     break;
 232                 }
 233
 234             if (dot)
 235             {
 236                 strlcpy(buf, port, dot-port);
 237                 port = buf;
 238             }
 239         }
 240     }
 241
 242     set(str,MUIA_String_Contents,port);
 243 }
 244 MakeStaticHook(closeHook, closeFun);
 245
 246 /***********************************************************************/
 247
 248 static IPTR mNew(struct IClass *cl, Object *obj, struct opSet *msg)
 249 {
 250     Object *lv;
 251
 252     if((obj = (Object *)DoSuperNew(cl,obj,
 253
 254             MUIA_Popstring_String, ostring(GetTagData(MUIA_Popport_Len,64,msg->ops_AttrList),GetTagData(MUIA_Popport_Key,0,msg->ops_AttrList),0),
 255             MUIA_Popstring_Button, opopbutton(MUII_PopUp,0),
 256
 257             MUIA_Popobject_Object, lv = ListviewObject,
 258                 MUIA_Listview_List, listObject, End,
 259             End,
 260             MUIA_Popobject_WindowHook, &windowHook,
 261             MUIA_Popobject_StrObjHook, &openHook,
 262             MUIA_Popobject_ObjStrHook, &closeHook,
 263
 264             TAG_MORE,(IPTR)msg->ops_AttrList)) != NULL)
 265     {
 266         DoMethod(lv,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,(IPTR)obj,2,MUIM_Popstring_Close,TRUE);
 267     }
 268
 269     return (IPTR)obj;
 270 }
 271
 272 /***********************************************************************/
 273
 274 SDISPATCHER(dispatcher)
 275 {
 276     switch (msg->MethodID)
 277     {
 278         case OM_NEW: return mNew(cl,obj,(APTR)msg);
 279         default:     return DoSuperMethodA(cl,obj,msg);
 280     }
 281 }
 282
 283 /***********************************************************************/
 284
 285 BOOL initPopportClass(void)
 286 {
 287     BOOL success = FALSE;
 288
 289     ENTER();
 290
 291     if(initListClass() == TRUE)
 292     {
 293         if((g_popportClass = MUI_CreateCustomClass(NULL, MUIC_Popobject, NULL, 0, ENTRY(dispatcher))) != NULL)
 294             success = TRUE;
 295         else
 296             disposeListClass();
 297     }
 298
 299     RETURN(success);
 300     return success;
 301 }
 302
 303 /**************************************************************************/
 304
 305 void disposePopportClass(void)
 306 {
 307     ENTER();
 308
 309     disposeListClass();
 310     if(g_popportClass != NULL)
 311         MUI_DeleteCustomClass(g_popportClass);
 312
 313     LEAVE();
 314 }
 315
 316 /**************************************************************************/
 317