workbench/libs/openurl/library/amigaos4.c

   1 /*
   2 **  openurl.library - universal URL display and browser
   3 **  launcher library
   4 **
   5 **  AmigaOS4 Specific funcctions - Provides interface aware functions
   6 **
   7 **  Written by Alexandre Balaban <alexandre@balaban.name>
   8 */
   9
  10 #undef __USE_INLINE__
  11
  12 #include "lib.h"
  13
  14 #if !defined(__amigaos4__)
  15 #  error This file is AmigaOS4 specific and should not be used/compiled on other platforms
  16 #endif
  17
  18 #include <proto/exec.h>
  19
  20 struct Library * SAVEDS ASM initLib (REG(a0,ULONG segList), REG(a6,struct ExecBase *sys), REG(d0, struct Library *base));
  21 struct Library * SAVEDS ASM openLib (REG(a6,struct Library *base));
  22 ULONG SAVEDS ASM expungeLib (REG(a6,struct Library *base));
  23 ULONG SAVEDS ASM closeLib(REG(a6,struct Library *base));
  24
  25 /* amigaos4 *****************************************************************/
  26
  27 #include <stdarg.h>
  28
  29 ULONG VARARGS68K OS4_URL_OpenA ( struct OpenURLIFace * Self, STRPTR url, struct TagItem *attrs )
  30 {
  31     return URL_OpenA( url, attrs );
  32 }
  33
  34 /* amigaos4 *****************************************************************/
  35
  36 ULONG VARARGS68K OS4_URL_Open ( struct OpenURLIFace * Self, STRPTR url, ... )
  37 {
  38     va_list ap;
  39     struct TagItem *tags;
  40
  41     va_startlinear(ap, url);
  42     tags = va_getlinearva(ap, struct TagItem *);
  43
  44     return URL_OpenA( url, tags );
  45 }
  46
  47 /* amigaos4 *****************************************************************/
  48
  49 struct URL_Prefs * VARARGS68K OS4_URL_GetPrefsA ( struct OpenURLIFace * Self, struct TagItem *attrs )
  50 {
  51     return URL_GetPrefsA( attrs );
  52 }
  53
  54 /* amigaos4 *****************************************************************/
  55
  56 struct URL_Prefs * VARARGS68K OS4_URL_GetPrefs ( struct OpenURLIFace * Self, ... )
  57 {
  58     va_list ap;
  59     struct TagItem *tags;
  60
  61     va_startlinear(ap, Self);
  62     tags = va_getlinearva(ap, struct TagItem *);
  63
  64     return URL_GetPrefsA( tags );
  65 }
  66
  67 /* amigaos4 *****************************************************************/
  68
  69 struct URL_Prefs * VARARGS68K OS4_URL_OldGetPrefs ( struct OpenURLIFace * Self )
  70 {
  71     return URL_OldGetPrefs();
  72 }
  73
  74 /* amigaos4 *****************************************************************/
  75
  76 void VARARGS68K OS4_URL_FreePrefsA ( struct OpenURLIFace * Self, struct URL_Prefs *up , struct TagItem *attrs )
  77 {
  78     URL_FreePrefsA( up, attrs );
  79 }
  80
  81 /* amigaos4 *****************************************************************/
  82
  83 void VARARGS68K OS4_URL_FreePrefs ( struct OpenURLIFace * Self, struct URL_Prefs *up, ... )
  84 {
  85     va_list ap;
  86     struct TagItem *tags;
  87
  88     va_startlinear(ap, up);
  89     tags = va_getlinearva(ap, struct TagItem *);
  90
  91     URL_FreePrefsA( up, tags );
  92 }
  93
  94 /* amigaos4 *****************************************************************/
  95
  96 void VARARGS68K OS4_URL_OldFreePrefs ( struct OpenURLIFace * Self, struct URL_Prefs *up )
  97 {
  98     URL_OldFreePrefs( up );
  99 }
 100
 101 /* amigaos4 *****************************************************************/
 102
 103 ULONG VARARGS68K OS4_URL_SetPrefsA ( struct OpenURLIFace * Self, struct URL_Prefs *p, struct TagItem *attrs )
 104 {
 105     return URL_SetPrefsA( p, attrs );
 106 }
 107
 108 /* amigaos4 *****************************************************************/
 109
 110 ULONG VARARGS68K OS4_URL_SetPrefs ( struct OpenURLIFace * Self, struct URL_Prefs *p, ... )
 111 {
 112     va_list ap;
 113     struct TagItem *tags;
 114
 115     va_startlinear(ap, p);
 116     tags = va_getlinearva(ap, struct TagItem *);
 117
 118     return URL_SetPrefsA( p, tags );
 119 }
 120
 121 /* amigaos4 *****************************************************************/
 122
 123 ULONG VARARGS68K OS4_URL_OldSetPrefs ( struct OpenURLIFace * Self, struct URL_Prefs *p , ULONG permanent )
 124 {
 125     return URL_OldSetPrefs( p, permanent );
 126 }
 127
 128 /* amigaos4 *****************************************************************/
 129
 130 struct URL_Prefs * VARARGS68K OS4_URL_OldGetDefaultPrefs ( struct OpenURLIFace * Self )
 131 {
 132     return URL_OldGetDefaultPrefs();
 133 }
 134
 135 /* amigaos4 *****************************************************************/
 136
 137 ULONG VARARGS68K OS4_URL_LaunchPrefsAppA ( struct OpenURLIFace * Self, struct TagItem *attrs )
 138 {
 139     return URL_LaunchPrefsAppA( attrs );
 140 }
 141
 142 /* amigaos4 *****************************************************************/
 143
 144 ULONG VARARGS68K OS4_URL_LaunchPrefsApp ( struct OpenURLIFace * Self, ... )
 145 {
 146     va_list ap;
 147     struct TagItem *tags;
 148
 149     va_startlinear(ap, Self);
 150     tags = va_getlinearva(ap, struct TagItem *);
 151
 152     return URL_LaunchPrefsAppA( tags );
 153 }
 154
 155 /* amigaos4 *****************************************************************/
 156
 157 ULONG VARARGS68K OS4_URL_OldLaunchPrefsApp ( struct OpenURLIFace * Self )
 158 {
 159     return URL_OldLaunchPrefsApp();
 160 }
 161
 162 /* amigaos4 *****************************************************************/
 163
 164 ULONG VARARGS68K OS4_URL_GetAttr ( struct OpenURLIFace * Self, ULONG attr , ULONG *storage )
 165 {
 166     return URL_GetAttr( attr, storage );
 167 }
 168
 169 /* amigaos4 *****************************************************************/
 170
 171 LONG VARARGS68K OS4_dispatch ( struct OpenURLIFace * Self, struct RexxMsg *msg, UBYTE ** resPtr )
 172 {
 173          return dispatch( msg, resPtr );
 174 }
 175
 176 /* amigaos4 *****************************************************************/
 177
 178 struct Library * mgr_Init (struct Library *base, BPTR segList, struct ExecIFace *ISys)
 179 {
 180         base->lib_Node.ln_Type = NT_LIBRARY;
 181         base->lib_Node.ln_Pri = 0;
 182         base->lib_Node.ln_Name = lib_name;
 183         base->lib_Flags = LIBF_SUMUSED|LIBF_CHANGED;
 184         base->lib_Version = lib_version;
 185         base->lib_Revision = lib_revision;
 186         base->lib_IdString = lib_ver;
 187
 188         IExec = ISys;
 189         SysBase = (struct ExecBase*)ISys->Data.LibBase;
 190
 191         return initLib( segList, SysBase, base );
 192 }
 193
 194 /* amigaos4 *****************************************************************/
 195
 196 struct Library *mgr_Open( struct LibraryManagerInterface *Self, uint32 version )
 197 {
 198         return openLib( Self->Data.LibBase );
 199 }
 200
 201 /* amigaos4 *****************************************************************/
 202
 203 APTR mgr_Close( struct LibraryManagerInterface *Self )
 204 {
 205         return (APTR)closeLib( Self->Data.LibBase );
 206 }
 207
 208 /* amigaos4 *****************************************************************/
 209
 210 APTR mgr_Expunge( struct LibraryManagerInterface *Self )
 211 {
 212         return (APTR)expungeLib( Self->Data.LibBase );
 213 }
 214
 215 /* amigaos4 *****************************************************************/
 216
 217 uint32 mgr_Obtain( struct LibraryManagerInterface *Self ) {
 218    return( Self->Data.RefCount++ );
 219 }
 220
 221 /* amigaos4 *****************************************************************/
 222
 223 uint32 mgr_Release( struct LibraryManagerInterface *Self ) {
 224    return( Self->Data.RefCount-- );
 225 }
 226
 227 /* amigaos4 *****************************************************************/
 228
 229 uint32 VARARGS68K OS4_URL_Obtain( struct OpenURLIFace *Self ) {
 230    return( Self->Data.RefCount++ );
 231 }
 232
 233 /* amigaos4 *****************************************************************/
 234
 235 uint32 VARARGS68K OS4_URL_Release( struct OpenURLIFace *Self ) {
 236    return( Self->Data.RefCount-- );
 237 }
 238
 239 /* amigaos4 *****************************************************************/
 240
 241 /// _start
 242 /*
 243  * The system (and compiler) rely on a symbol named _start which marks
 244  * the beginning of execution of an ELF file. To prevent others from
 245  * executing this library, and to keep the compiler/linker happy, we
 246  * define an empty _start symbol here.
 247  *
 248  * On the classic system (pre-AmigaOS4) this was usually done by
 249  * moveq #0,d0
 250  * rts
 251  *
 252  */
 253
 254 int32 _start( STRPTR argstring, int32 arglen, APTR SysBase )
 255 {
 256
 257     /* If you feel like it, open DOS and print something to the user */
 258
 259     return( RETURN_OK );
 260 }
 261
 262 /* amigaos4 *****************************************************************/
 263