home *** CD-ROM | disk | FTP | other *** search
- /* t.c -- elib test caller */
-
- #include <exec/types.h>
- #include <stdio.h>
- #include <functions.h>
-
- #define RTC printf("return to continue - ");fflush(stdout);getchar()
-
- APTR libbase;
- /* this name of this variable is important,
- * since interface routines need to access
- * its contents.
- */
-
- /* life is simple if library routines return LONG integers */
- LONG GetDown();
- LONG Double();
-
- #define DOUBARG 19
-
- main()
- {
- LONG retval;
-
- printf("here we go\n");
- libbase = (APTR) OpenLibrary("mylib.library", 0L);
- printf("openlib returns base: %lx\n", libbase);
-
- RTC;
-
- if (libbase)
- {
- /* test function GetDown() */
- retval = GetDown();
- printf("called getdown, %ld returned\n", retval);
- RTC;
-
- /* test function Double() */
- printf("double of %d = %ld\n", DOUBARG, Double((LONG)DOUBARG));
- RTC;
-
- CloseLibrary(libbase);
- }
- }
-