home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / misc / emu / AROSdev.lha / AROS / workbench / demos / librarytest.c < prev    next >
Encoding:
C/C++ Source or Header  |  1997-01-27  |  1.0 KB  |  57 lines
  1. /*
  2.     (C) 1995-96 AROS - The Amiga Replacement OS
  3.     $Id: librarytest.c,v 1.5 1997/01/27 00:22:39 ldp Exp $
  4.     $Log: librarytest.c,v $
  5.     Revision 1.5  1997/01/27 00:22:39  ldp
  6.     Include proto instead of clib
  7.  
  8.     Revision 1.4  1996/09/17 16:43:00  digulla
  9.     Use general startup code
  10.  
  11.     Revision 1.3  1996/09/12 14:48:55  digulla
  12.     Tests why it didn´t work
  13.  
  14.     Revision 1.2  1996/08/01 17:40:44  digulla
  15.     Added standard header for all files
  16.  
  17.     Desc:
  18.     Lang:
  19. */
  20. #include <proto/exec.h>
  21. #include <proto/dos.h>
  22. #include <proto/aros.h>
  23. #include "dummylib_gcc.h"
  24.  
  25. int main (int argc, char ** argv)
  26. {
  27.     int a=1,b=2,c=0,d=0;
  28.     struct dummybase *dummybase;
  29.  
  30.     dummybase=(struct dummybase *)OpenLibrary("dummy.library",0);
  31.  
  32.     if(dummybase!=NULL)
  33.     {
  34.     ULONG vec[3];
  35.  
  36.     c=add(a,b);
  37.  
  38.     d=asl(a,b);
  39.  
  40.     vec[0]=a;
  41.     vec[1]=b;
  42.     vec[2]=c;
  43.     VPrintf("%ld+%ld=%ld\n",vec);
  44.  
  45.     vec[0]=a;
  46.     vec[1]=b;
  47.     vec[2]=d;
  48.     VPrintf("%ld<<%ld=%ld\n",vec);
  49.  
  50.     Flush (Output ());
  51.  
  52.     CloseLibrary((struct Library *)dummybase);
  53.     }
  54.  
  55.     return 0;
  56. }
  57.