home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #6 / amigamamagazinepolishissue1998.iso / packery / xpk_develop / include / c / inline / xpk.h next >
C/C++ Source or Header  |  1996-10-19  |  5KB  |  174 lines
  1. #ifndef _INLINE_XPK_H
  2. #define _INLINE_XPK_H
  3.  
  4. #if __GNUC__ < 2
  5. #error Bad luck guy, get a better compiler!
  6. #endif
  7.  
  8. #include <sys/cdefs.h>
  9. #include <inline/stubs.h>
  10.  
  11. #include <stdarg.h>
  12.  
  13. __BEGIN_DECLS
  14.  
  15. #ifndef BASE_EXT_DECL
  16. #define BASE_EXT_DECL extern struct Library *XpkBase;
  17. #endif
  18. #ifndef BASE_PAR_DECL
  19. #define BASE_PAR_DECL
  20. #define BASE_PAR_DECL0 void
  21. #endif
  22. #ifndef BASE_NAME
  23. #define BASE_NAME XpkBase
  24. #endif
  25.  
  26. #include <xpk/xpk.h>
  27.  
  28. static __inline LONG XpkClose (BASE_PAR_DECL struct XpkFib *xbuf)
  29. {
  30.   BASE_EXT_DECL
  31.   register LONG _res __asm("d0");
  32.   register struct Library* a6 __asm("a6") = BASE_NAME;
  33.   register struct XpkFib *a0 __asm("a0") = xbuf;
  34.   __asm __volatile ("jsr a6@(-0x54)"
  35.   : "=r" (_res)
  36.   : "r" (a6), "r" (a0)
  37.   : "a0","a1","d0","d1");
  38.   *(char *)a0 = *(char *)a0;
  39.   return _res;
  40. }
  41. static __inline LONG XpkExamine (BASE_PAR_DECL struct XpkFib *tag,
  42. struct TagItem *fib)
  43. {
  44.   BASE_EXT_DECL
  45.   register LONG  _res  __asm("d0");
  46.   register struct Library* a6 __asm("a6") = BASE_NAME;
  47.   register struct XpkFib *a0 __asm("a0") = tag;
  48.   register struct TagItem *a1 __asm("a1") = fib;
  49.   __asm __volatile ("jsr a6@(-0x24)"
  50.   : "=r" (_res)
  51.   : "r" (a6), "r" (a0), "r" (a1)
  52.   : "a0","a1","d0","d1");
  53.   *(char *)a0 = *(char *)a0;  *(char *)a1 = *(char *)a1;
  54.   return _res;
  55. }
  56. static __inline LONG  XpkOpen(BASE_PAR_DECL struct XpkFib **xbuf,
  57. struct TagItem *tags)
  58. {
  59.   BASE_EXT_DECL
  60.   register LONG  _res  __asm("d0");
  61.   register struct Library* a6 __asm("a6") = BASE_NAME;
  62.   register struct XpkFib **a0 __asm("a0") = xbuf;
  63.   register struct TagItem *a1 __asm("a1") = tags;
  64.   __asm __volatile ("jsr a6@(-0x36)"
  65.   : "=r" (_res)
  66.   : "r" (a6), "r" (a0), "r" (a1)
  67.   : "a0","a1","d0","d1");
  68.   *(char *)a0 = *(char *)a0;  *(char *)a1 = *(char *)a1;
  69.   return _res;
  70. }
  71. static __inline LONG XpkPack (BASE_PAR_DECL struct TagItem *tags)
  72. {
  73.   BASE_EXT_DECL
  74.   register LONG  _res  __asm("d0");
  75.   register struct Library* a6 __asm("a6") = BASE_NAME;
  76.   register struct TagItem *a0 __asm("a0") = tags;
  77.   __asm __volatile ("jsr a6@(-0x2a)"
  78.   : "=r" (_res)
  79.   : "r" (a6), "r" (a0)
  80.   : "a0","a1","d0","d1");
  81.   *(char *)a0 = *(char *)a0;
  82.   return _res;
  83. }
  84. static __inline LONG XpkRead (BASE_PAR_DECL struct XpkFib *xbuf,
  85. UBYTE *buf, LONG len)
  86. {
  87.   BASE_EXT_DECL
  88.   register LONG  _res  __asm("d0");
  89.   register struct Library* a6 __asm("a6") = BASE_NAME;
  90.   register struct XpkFib *a0 __asm("a0") = xbuf;
  91.   register UBYTE *a1 __asm("a1") = buf;
  92.   register LONG d0 __asm("d0") = len;
  93.   __asm __volatile ("jsr a6@(-0x3c)"
  94.   : "=r" (_res)
  95.   : "r" (a6), "r" (a0), "r" (a1), "r" (d0)
  96.   : "a0","a1","d0","d1");
  97.   *(char *)a0 = *(char *)a0;  *(char *)a1 = *(char *)a1;
  98.   return _res;
  99. }
  100. static __inline LONG XpkSeek (BASE_PAR_DECL struct XpkFib *xbuf,
  101. LONG len, LONG mode)
  102. {
  103.   BASE_EXT_DECL
  104.   register LONG  _res  __asm("d0");
  105.   register struct Library* a6 __asm("a6") = BASE_NAME;
  106.   register struct XpkFib *a0 __asm("a0") = xbuf;
  107.   register LONG d0 __asm("d0") = len;
  108.   register LONG d1 __asm("d1") = mode;
  109.   __asm __volatile ("jsr a6@(-0x48)"
  110.   : "=r" (_res)
  111.   : "r" (a6), "r" (a0), "r" (d0), "r" (d1)
  112.   : "a0","a1","d0","d1");
  113.   *(char *)a0 = *(char *)a0;
  114.   return _res;
  115. }
  116. static __inline LONG XpkUnpack (BASE_PAR_DECL struct TagItem *tags)
  117. {
  118.   BASE_EXT_DECL
  119.   register LONG  _res  __asm("d0");
  120.   register struct Library* a6 __asm("a6");
  121.   register struct TagItem *a0 __asm("a0");
  122.  
  123.   a6 = BASE_NAME;
  124.   a0  = tags;
  125.   __asm __volatile ("jsr a6@(-0x30)"
  126.   : "=r" (_res)
  127.   : "r" (a6), "r" (a0)
  128.   : "a0","a1","d0","d1");
  129.   *(char *)a0 = *(char *)a0;
  130.   return _res;
  131. }
  132. static __inline LONG XpkWrite (BASE_PAR_DECL struct XpkFib *xbuf,
  133. UBYTE *buf, LONG len)
  134. {
  135.   BASE_EXT_DECL
  136.   register LONG  _res  __asm("d0");
  137.   register struct Library* a6 __asm("a6") = BASE_NAME;
  138.   register struct XpkFib *a0 __asm("a0") = xbuf;
  139.   register UBYTE *a1 __asm("a1") = buf;
  140.   register LONG d0 __asm("d0") = len;
  141.   __asm __volatile ("jsr a6@(-0x42)"
  142.   : "=r" (_res)
  143.   : "r" (a6), "r" (a0), "r" (a1), "r" (d0)
  144.   : "a0","a1","d0","d1");
  145.   *(char *)a0 = *(char *)a0;  *(char *)a1 = *(char *)a1;
  146.   return _res;
  147. }
  148.  
  149. /* those two are not really inlineable, because they take varargs parameter.
  150.    Well... perhaps they can be inlined some day .. */
  151.  
  152. #ifndef NO_VARARGS_INLINE
  153.  
  154. static __inline LONG XpkPackTags (ULONG tag, ...)
  155. {
  156.   return XpkPack ((struct TagItem *) & tag);
  157. }
  158.  
  159. static __inline LONG XpkUnpackTags (ULONG tag, ...)
  160. {
  161.   return XpkUnpack ((struct TagItem *) & tag);
  162. }
  163.  
  164. #endif
  165.  
  166. #undef BASE_EXT_DECL
  167. #undef BASE_PAR_DECL
  168. #undef BASE_PAR_DECL0
  169. #undef BASE_NAME
  170.  
  171. __END_DECLS
  172.  
  173. #endif /* _INLINE_XPK_H */
  174.