diff options
Diffstat (limited to 'packages/amunits/src/otherlibs')
19 files changed, 41 insertions, 186 deletions
diff --git a/packages/amunits/src/otherlibs/ahi.pas b/packages/amunits/src/otherlibs/ahi.pas index ce499bce2c..4235d08873 100644 --- a/packages/amunits/src/otherlibs/ahi.pas +++ b/packages/amunits/src/otherlibs/ahi.pas @@ -27,6 +27,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } +{$PACKRECORDS 2} {$mode objfpc} {$I useamigasmartlink.inc} @@ -548,7 +549,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/ahi_sub.pas b/packages/amunits/src/otherlibs/ahi_sub.pas index f39b197305..cc7f482c00 100644 --- a/packages/amunits/src/otherlibs/ahi_sub.pas +++ b/packages/amunits/src/otherlibs/ahi_sub.pas @@ -28,6 +28,7 @@ nils.sjoholm@mailbox.swipnet.se Nils Sjoholm } +{$PACKRECORDS 2} {$I useamigasmartlink.inc} {$ifdef use_amiga_smartlink} @@ -171,7 +172,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/amarquee.pas b/packages/amunits/src/otherlibs/amarquee.pas index 2eec31f658..44e06be465 100644 --- a/packages/amunits/src/otherlibs/amarquee.pas +++ b/packages/amunits/src/otherlibs/amarquee.pas @@ -311,7 +311,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc,tagsarray; diff --git a/packages/amunits/src/otherlibs/cybergraphics.pas b/packages/amunits/src/otherlibs/cybergraphics.pas index 38c85f2187..0fdf5f77ba 100644 --- a/packages/amunits/src/otherlibs/cybergraphics.pas +++ b/packages/amunits/src/otherlibs/cybergraphics.pas @@ -37,7 +37,7 @@ UNIT CYBERGRAPHICS; INTERFACE -USES Exec,graphics,utility; +USES Exec,agraphics,utility; VAR CyberGfxBase : pLibrary; @@ -273,7 +273,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/gtlayout.pas b/packages/amunits/src/otherlibs/gtlayout.pas index e3e04ea488..54a17c4eb1 100644 --- a/packages/amunits/src/otherlibs/gtlayout.pas +++ b/packages/amunits/src/otherlibs/gtlayout.pas @@ -51,7 +51,7 @@ UNIT GTLAYOUT; INTERFACE -USES Exec,intuition,utility, gadtools,graphics; +USES Exec,intuition,utility, gadtools,agraphics; @@ -635,7 +635,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/guigfx.pas b/packages/amunits/src/otherlibs/guigfx.pas index ffe2b4ab02..27745ff06a 100644 --- a/packages/amunits/src/otherlibs/guigfx.pas +++ b/packages/amunits/src/otherlibs/guigfx.pas @@ -37,7 +37,7 @@ UNIT GUIGFX; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR GuiGFXBase : pLibrary; @@ -220,7 +220,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,longarray; diff --git a/packages/amunits/src/otherlibs/identify.pas b/packages/amunits/src/otherlibs/identify.pas index a7aa1a8e48..3d885c1178 100644 --- a/packages/amunits/src/otherlibs/identify.pas +++ b/packages/amunits/src/otherlibs/identify.pas @@ -459,7 +459,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/lucyplay.pas b/packages/amunits/src/otherlibs/lucyplay.pas index dc2b28d5bb..0e7e465064 100644 --- a/packages/amunits/src/otherlibs/lucyplay.pas +++ b/packages/amunits/src/otherlibs/lucyplay.pas @@ -127,7 +127,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} PROCEDURE lucAudioFree(smp : pLucyPlaySample); diff --git a/packages/amunits/src/otherlibs/mui.pas b/packages/amunits/src/otherlibs/mui.pas index 81ecba9896..471ab19ca3 100644 --- a/packages/amunits/src/otherlibs/mui.pas +++ b/packages/amunits/src/otherlibs/mui.pas @@ -147,7 +147,7 @@ interface Items marked with "Custom Class" are for use in custom classes only! } -uses exec, intuition,utility,graphics,iffparse; +uses exec, intuition,utility,agraphics,iffparse; const @@ -3598,7 +3598,7 @@ implementation uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,longarray; diff --git a/packages/amunits/src/otherlibs/mysticview.pas b/packages/amunits/src/otherlibs/mysticview.pas index 556d407683..e1f716e29c 100644 --- a/packages/amunits/src/otherlibs/mysticview.pas +++ b/packages/amunits/src/otherlibs/mysticview.pas @@ -36,7 +36,7 @@ UNIT MYSTICVIEW; INTERFACE -USES Exec,graphics,utility,intuition; +USES Exec,agraphics,utility,intuition; VAR MysticBase : pLibrary; @@ -183,7 +183,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/picasso96api.pas b/packages/amunits/src/otherlibs/picasso96api.pas index 983d587f0b..65a08cd5f4 100644 --- a/packages/amunits/src/otherlibs/picasso96api.pas +++ b/packages/amunits/src/otherlibs/picasso96api.pas @@ -43,7 +43,7 @@ UNIT PICASSO96API; INTERFACE -USES Exec, utility, graphics, intuition; +USES Exec, utility, agraphics, intuition; { Picasso96.h -- include File (C) Copyright 1996-98 Alexander Kneer & Tobias Abt @@ -461,7 +461,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/preferences.pas b/packages/amunits/src/otherlibs/preferences.pas index a20b0fb527..6f54480c82 100644 --- a/packages/amunits/src/otherlibs/preferences.pas +++ b/packages/amunits/src/otherlibs/preferences.pas @@ -160,7 +160,7 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} FUNCTION AllocPrefsHandle(name : pCHAR) : POINTER; diff --git a/packages/amunits/src/otherlibs/ptreplay.pas b/packages/amunits/src/otherlibs/ptreplay.pas index 3058bc0192..10e775618e 100644 --- a/packages/amunits/src/otherlibs/ptreplay.pas +++ b/packages/amunits/src/otherlibs/ptreplay.pas @@ -107,7 +107,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} pastoc; diff --git a/packages/amunits/src/otherlibs/render.pas b/packages/amunits/src/otherlibs/render.pas index f2dccd6046..9ddf9dc9f8 100644 --- a/packages/amunits/src/otherlibs/render.pas +++ b/packages/amunits/src/otherlibs/render.pas @@ -37,7 +37,7 @@ UNIT RENDER; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR RenderBase : pLibrary; @@ -448,7 +448,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/reqtools.pas b/packages/amunits/src/otherlibs/reqtools.pas index 1b114868a7..568001856c 100644 --- a/packages/amunits/src/otherlibs/reqtools.pas +++ b/packages/amunits/src/otherlibs/reqtools.pas @@ -47,7 +47,7 @@ UNIT REQTOOLS; INTERFACE -USES Exec, intuition, amigados, diskfont, graphics, utility; +USES Exec, intuition, amigados, diskfont, agraphics, utility; @@ -689,7 +689,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/triton.pas b/packages/amunits/src/otherlibs/triton.pas index b6a430c6ae..7ad77a1a00 100644 --- a/packages/amunits/src/otherlibs/triton.pas +++ b/packages/amunits/src/otherlibs/triton.pas @@ -43,7 +43,7 @@ UNIT TRITON; INTERFACE -uses exec, intuition, graphics, utility; +uses exec, intuition, agraphics, utility; {* ------------------------------------------------------------------------------ *} @@ -792,7 +792,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray,pastoc; diff --git a/packages/amunits/src/otherlibs/ttengine.pas b/packages/amunits/src/otherlibs/ttengine.pas index 83216bf6f3..57aaf0a7dd 100644 --- a/packages/amunits/src/otherlibs/ttengine.pas +++ b/packages/amunits/src/otherlibs/ttengine.pas @@ -37,7 +37,7 @@ UNIT TTENGINE; INTERFACE -USES Exec,utility,graphics; +USES Exec,utility,agraphics; VAR TTEngineBase : pLibrary; @@ -235,7 +235,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/xadmaster.pas b/packages/amunits/src/otherlibs/xadmaster.pas index 3d012a0c5b..3ea22bec37 100644 --- a/packages/amunits/src/otherlibs/xadmaster.pas +++ b/packages/amunits/src/otherlibs/xadmaster.pas @@ -1245,7 +1245,7 @@ IMPLEMENTATION uses {$ifndef dont_use_openlib} -msgbox, +amsgbox, {$endif dont_use_openlib} tagsarray; diff --git a/packages/amunits/src/otherlibs/zlib.pas b/packages/amunits/src/otherlibs/zlib.pas index 47492530c4..24520baba0 100644 --- a/packages/amunits/src/otherlibs/zlib.pas +++ b/packages/amunits/src/otherlibs/zlib.pas @@ -28,12 +28,6 @@ nils.sjoholm@mailbox.swipnet.se } - -{$I useamigasmartlink.inc} -{$ifdef use_amiga_smartlink} - {$smartlink on} -{$endif use_amiga_smartlink} - UNIT ZLIB; INTERFACE @@ -56,16 +50,16 @@ const GZ_COMPRESS_BEST = 9; -FUNCTION GZ_Close(handle : POINTER) : LONGINT; -FUNCTION GZ_CompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword; strategy : longword; level : longword; VAR poutlen : longword) : LONGINT; -FUNCTION GZ_DecompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword) : LONGINT; -FUNCTION GZ_FGetC(handle : POINTER) : pLONGINT; -FUNCTION GZ_FGetS(handle : POINTER; buf : pCHAR; len : longword) : pCHAR; -FUNCTION GZ_FileLength(handle : POINTER) : longword; -FUNCTION GZ_Open(filename : pCHAR; openmode : longword; strategy : longword; level : longword) : POINTER; -FUNCTION GZ_OpenFromFH(fh : LONGINT; openmode : longword; strategy : longword; level : longword) : POINTER; -FUNCTION GZ_Read(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -FUNCTION GZ_Write(handle : POINTER; buf : POINTER; len : longword) : LONGINT; +FUNCTION GZ_Close(handle : POINTER location 'a0') : LONGINT; syscall ZLibBase 042; +FUNCTION GZ_CompressMem(srcbuf : POINTER location 'a0'; srclen : longword location 'd0'; destbuf : POINTER location 'a1'; destlen : longword location 'd1'; strategy : longword location 'd2'; level : longword location 'd3'; VAR poutlen : longword location 'a2') : LONGINT; syscall ZLibBase 114; +FUNCTION GZ_DecompressMem(srcbuf : POINTER location 'a0'; srclen : longword location 'd0'; destbuf : POINTER location 'a1'; destlen : longword location 'd1') : LONGINT; syscall ZLibBase 120; +FUNCTION GZ_FGetC(handle : POINTER location 'a0') : pLONGINT; syscall ZLibBase 060; +FUNCTION GZ_FGetS(handle : POINTER location 'a0'; buf : pCHAR location 'a1'; len : longword location 'd0') : pCHAR; syscall ZLibBase 054; +FUNCTION GZ_FileLength(handle : POINTER location 'a0') : longword; syscall ZLibBase 138; +FUNCTION GZ_Open(filename : pCHAR location 'a0'; openmode : longword location 'd0'; strategy : longword location 'd1'; level : longword location 'd2') : POINTER; syscall ZLibBase 030; +FUNCTION GZ_OpenFromFH(fh : LONGINT location 'a0'; openmode : longword location 'd0'; strategy : longword location 'd1'; level : longword location 'd2') : POINTER; syscall ZLibBase 036; +FUNCTION GZ_Read(handle : POINTER location 'a0'; buf : POINTER location 'a1'; len : longword location 'd0') : LONGINT; syscall ZLibBase 048; +FUNCTION GZ_Write(handle : POINTER location 'a0'; buf : POINTER location 'a1'; len : longword location 'd0') : LONGINT; syscall ZLibBase 066; {You can remove this include and use a define instead} {$I useautoopenlib.inc} @@ -80,150 +74,9 @@ var IMPLEMENTATION {$ifndef dont_use_openlib} -uses msgbox; +uses amsgbox; {$endif dont_use_openlib} -FUNCTION GZ_Close(handle : POINTER) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -042(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_CompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword; strategy : longword; level : longword; VAR poutlen : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L srcbuf,A0 - MOVE.L srclen,D0 - MOVEA.L destbuf,A1 - MOVE.L destlen,D1 - MOVE.L strategy,D2 - MOVE.L level,D3 - MOVEA.L poutlen,A2 - MOVEA.L ZLibBase,A6 - JSR -114(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_DecompressMem(srcbuf : POINTER; srclen : longword; destbuf : POINTER; destlen : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L srcbuf,A0 - MOVE.L srclen,D0 - MOVEA.L destbuf,A1 - MOVE.L destlen,D1 - MOVEA.L ZLibBase,A6 - JSR -120(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FGetC(handle : POINTER) : pLONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -060(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FGetS(handle : POINTER; buf : pCHAR; len : longword) : pCHAR; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -054(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_FileLength(handle : POINTER) : longword; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L ZLibBase,A6 - JSR -138(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Open(filename : pCHAR; openmode : longword; strategy : longword; level : longword) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L filename,A0 - MOVE.L openmode,D0 - MOVE.L strategy,D1 - MOVE.L level,D2 - MOVEA.L ZLibBase,A6 - JSR -030(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_OpenFromFH(fh : LONGINT; openmode : longword; strategy : longword; level : longword) : POINTER; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L fh,A0 - MOVE.L openmode,D0 - MOVE.L strategy,D1 - MOVE.L level,D2 - MOVEA.L ZLibBase,A6 - JSR -036(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Read(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -048(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - -FUNCTION GZ_Write(handle : POINTER; buf : POINTER; len : longword) : LONGINT; -BEGIN - ASM - MOVE.L A6,-(A7) - MOVEA.L handle,A0 - MOVEA.L buf,A1 - MOVE.L len,D0 - MOVEA.L ZLibBase,A6 - JSR -066(A6) - MOVEA.L (A7)+,A6 - MOVE.L D0,@RESULT - END; -END; - const { Change VERSION and LIBVERSION to proper values } |