workbench/libs/openurl/prefs/popport.c

   1 /*
   2 **  OpenURL - MUI preferences for openurl.library
   3 **
   4 **  Written by Troels Walsted Hansen <troels@thule.no>
   5 **  Placed in the public domain.
   6 **
   7 **  Developed by:
   8 **  - Alfonso Ranieri <alforan@tin.it>
   9 **  - Stefan Kost <ensonic@sonicpulse.de>
  10 **
  11 **  Ported to OS4 by Alexandre Balaban <alexandre@balaban.name>
  12 **
  13 **  Pop public ports object
  14 */
  15
  16
  17 #include "OpenURL.h"
  18 #include "libraries/openurl.h"
  19 #include <exec/execbase.h>
  20
  21 /**************************************************************************/
  22 /*
  23 ** Public ports list
  24 */
  25
  26 static struct MUI_CustomClass *listClass = NULL;
  27 #ifdef __AROS__
  28 #define listObject BOOPSIOBJMACRO_START(listClass->mcc_Class)
  29 #else
  30 #define listObject NewObject(listClass->mcc_Class,NULL
  31 #endif
  32
  33 static ULONG
  34 mListNew(struct IClass *cl,Object *obj,struct opSet *msg)
  35 {
  36     return (ULONG)DoSuperNew(cl,obj,
  37       MUIA_Frame,              MUIV_Frame_InputList,
  38       MUIA_Background,         MUII_ListBack,
  39       MUIA_List_AutoVisible,   TRUE,
  40       MUIA_List_ConstructHook, MUIV_List_ConstructHook_String,
  41       MUIA_List_DestructHook,  MUIV_List_DestructHook_String,
  42       TAG_MORE,(ULONG)msg->ops_AttrList);
  43 }
  44
  45 /**************************************************************************/
  46
  47 static ULONG
  48 mListSetup(struct IClass *cl,Object *obj,Msg msg)
  49 {
  50     struct Node *mstate;
  51
  52     if (!DoSuperMethodA(cl,obj,msg)) return FALSE;
  53
  54     DoSuperMethod(cl,obj,MUIM_List_Clear);
  55
  56     Forbid();
  57
  58     for (mstate = SysBase->PortList.lh_Head; mstate->ln_Succ; mstate = mstate->ln_Succ)
  59 #ifdef __AROS__
  60         // Zune Listclass doesn't support Insert_Sorted
  61         DoSuperMethod(cl,obj,MUIM_List_InsertSingle,(ULONG)mstate->ln_Name,MUIV_List_Insert_Bottom);
  62 #else
  63         DoSuperMethod(cl,obj,MUIM_List_InsertSingle,(ULONG)mstate->ln_Name,MUIV_List_Insert_Sorted);
  64 #endif
  65
  66     Permit();
  67
  68     return TRUE;
  69 }
  70
  71 /**************************************************************************/
  72
  73 M_DISP(listDispatcher)
  74 {
  75     M_DISPSTART
  76
  77     switch (msg->MethodID)
  78     {
  79         case OM_NEW:     return mListNew(cl,obj,(APTR)msg);
  80
  81         case MUIM_Setup: return mListSetup(cl,obj,(APTR)msg);
  82
  83         default:         return DoSuperMethodA(cl,obj,msg);
  84     }
  85 }
  86
  87 M_DISPEND(listDispatcher)
  88
  89 /**************************************************************************/
  90
  91 static ULONG
  92 initListClass(void)
  93 {
  94     return (ULONG)(listClass = MUI_CreateCustomClass(NULL,MUIC_List,NULL,0,DISP(listDispatcher)));
  95 }
  96
  97 /**************************************************************************/
  98
  99 static void
 100 disposeListClass(void)
 101 {
 102     if (listClass) MUI_DeleteCustomClass(listClass);
 103 }
 104
 105 /**************************************************************************/
 106
 107 #ifdef __MORPHOS__
 108 static void
 109 windowFun(void)
 110 {
 111     //struct Hook *hook = (struct Hook *)REG_A0;
 112     Object      *pop = (Object *)REG_A2;
 113     Object      *win = (Object *)REG_A1;
 114 #elif defined(__AROS__)
 115 AROS_UFH3S(void, windowFun,
 116 AROS_UFHA(struct Hook *, hook, A0),
 117 AROS_UFHA(Object *     , pop , A2),
 118 AROS_UFHA(Object *     , win , A1))
 119 {
 120     AROS_USERFUNC_INIT
 121 #else
 122 static void SAVEDS ASM
 123 windowFun(REG(a0,struct Hook *hook),REG(a2,Object *pop),REG(a1,Object *win))
 124 {
 125 #endif
 126     set(win,MUIA_Window_DefaultObject,pop);
 127 #ifdef __AROS__
 128     AROS_USERFUNC_EXIT
 129 #endif
 130 }
 131
 132 #ifdef __MORPHOS__
 133 static struct EmulLibEntry windowTrap = {TRAP_LIB,0,(void (*)(void))windowFun};
 134 static struct Hook windowHook = {0,0,(HOOKFUNC)&windowTrap};
 135 #else
 136 static struct Hook windowHook = {0,0,(HOOKFUNC)&windowFun};
 137 #endif
 138
 139 /***********************************************************************/
 140
 141 #ifdef __MORPHOS__
 142 static ULONG
 143 openFun(void)
 144 {
 145     //struct Hook *hook = (struct Hook *)REG_A0;
 146     Object      *list = (Object *)REG_A2;
 147     Object      *str = (Object *)REG_A1;
 148 #elif defined(__AROS__)
 149 AROS_UFH3S(ULONG, openFun,
 150 AROS_UFHA(struct Hook *, hook, A0),
 151 AROS_UFHA(Object *     , list, A2),
 152 AROS_UFHA(Object *     , str , A1))
 153 {
 154     AROS_USERFUNC_INIT
 155 #else
 156 static ULONG SAVEDS ASM
 157 openFun(REG(a0,struct Hook *hook),REG(a2,Object *list),REG(a1,Object *str))
 158 {
 159 #endif
 160     STRPTR s, x;
 161     int   i;
 162
 163     s = (STRPTR)xget(str,MUIA_String_Contents);
 164
 165     for (i = 0; ;i++)
 166     {
 167         DoMethod(list,MUIM_List_GetEntry,i,(ULONG)&x);
 168         if (!x)
 169         {
 170             set(list,MUIA_List_Active,MUIV_List_Active_Off);
 171             break;
 172         }
 173         else
 174             if (!stricmp(x,s))
 175             {
 176                 set(list,MUIA_List_Active,i);
 177                 break;
 178             }
 179     }
 180
 181     return TRUE;
 182 #ifdef __AROS__
 183     AROS_USERFUNC_EXIT
 184 #endif
 185 }
 186
 187 #ifdef __MORPHOS__
 188 static struct EmulLibEntry openTrap = {TRAP_LIB,0,(void (*)(void))openFun};
 189 static struct Hook openHook = {0,0,(HOOKFUNC)&openTrap};
 190 #else
 191 static struct Hook openHook = {0,0,(HOOKFUNC)&openFun};
 192 #endif
 193
 194 /***********************************************************************/
 195
 196 #ifdef __MORPHOS__
 197 static void closeFun(void)
 198 {
 199     //struct Hook *hook = (struct Hook *)REG_A0;
 200     Object      *list = (Object *)REG_A2;
 201     Object      *str = (Object *)REG_A1;
 202 #elif defined(__AROS__)
 203 AROS_UFH3S(void, closeFun,
 204 AROS_UFHA(struct Hook *, hook, A0),
 205 AROS_UFHA(Object *     , list, A2),
 206 AROS_UFHA(Object *     , str , A1))
 207 {
 208     AROS_USERFUNC_INIT
 209 #else
 210 static void SAVEDS ASM
 211 closeFun(REG(a0,struct Hook *hook),REG(a2,Object *list),REG(a1,Object *str))
 212 {
 213 #endif
 214     STRPTR port;
 215
 216     DoMethod(list,MUIM_List_GetEntry,MUIV_List_GetEntry_Active,(ULONG)&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                     stccpy(buf,port,dot-port);
 237                     port = buf;
 238                 }
 239         }
 240     }
 241
 242     set(str,MUIA_String_Contents,port);
 243 #ifdef __AROS__
 244     AROS_USERFUNC_EXIT
 245 #endif
 246 }
 247
 248 #ifdef __MORPHOS__
 249 static struct EmulLibEntry closeTrap = {TRAP_LIB,0,(void (*)(void))closeFun};
 250 static struct Hook closeHook = {0,0,(HOOKFUNC)&closeTrap};
 251 #else
 252 static struct Hook closeHook = {0,0,(HOOKFUNC)&closeFun};
 253 #endif
 254
 255 /***********************************************************************/
 256
 257 static ULONG
 258 mNew(struct IClass *cl,Object *obj,struct opSet *msg)
 259 {
 260     Object *lv;
 261
 262     if (obj = (Object *)DoSuperNew(cl,obj,
 263
 264             MUIA_Popstring_String, ostring(GetTagData(MUIA_Popport_Len,64,msg->ops_AttrList),GetTagData(MUIA_Popport_Key,0,msg->ops_AttrList),0),
 265             MUIA_Popstring_Button, opopbutton(MUII_PopUp,0),
 266
 267             MUIA_Popobject_Object, lv = ListviewObject,
 268                 MUIA_Listview_List, listObject, End,
 269             End,
 270             MUIA_Popobject_WindowHook, &windowHook,
 271             MUIA_Popobject_StrObjHook, &openHook,
 272             MUIA_Popobject_ObjStrHook, &closeHook,
 273
 274             TAG_MORE,(ULONG)msg->ops_AttrList))
 275     {
 276         DoMethod(lv,MUIM_Notify,MUIA_Listview_DoubleClick,TRUE,(ULONG)obj,2,MUIM_Popstring_Close,TRUE);
 277     }
 278
 279     return (ULONG)obj;
 280 }
 281
 282 /***********************************************************************/
 283
 284 M_DISP(dispatcher)
 285 {
 286     M_DISPSTART
 287
 288     switch (msg->MethodID)
 289     {
 290         case OM_NEW: return mNew(cl,obj,(APTR)msg);
 291         default:     return DoSuperMethodA(cl,obj,msg);
 292     }
 293 }
 294
 295 M_DISPEND(dispatcher)
 296
 297 /***********************************************************************/
 298
 299 ULONG
 300 initPopportClass(void)
 301 {
 302     if (initListClass())
 303     {
 304         if (g_popportClass = MUI_CreateCustomClass(NULL,MUIC_Popobject,NULL,0,DISP(dispatcher)))
 305             return TRUE;
 306
 307         disposeListClass();
 308     }
 309
 310     return FALSE;
 311 }
 312
 313 /**************************************************************************/
 314
 315 void
 316 disposePopportClass(void)
 317 {
 318     disposeListClass();
 319     if (g_popportClass) MUI_DeleteCustomClass(g_popportClass);
 320 }
 321
 322 /**************************************************************************/
 323