Return to dynlink2.c CVS log

Up to [OS/2 SDKs] / os2sdk / demos / examples / dynlink

Annotation of os2sdk/demos/examples/dynlink/dynlink2.c, revision 1.1.1.1

1.1       root        1: /*
                      2:  * dynlink2.c
                      3:  *
                      4:  *     Created 17 August 1987 by Kevin Ruddell, Microsoft Corp
                      5:  *
                      6:  * This example illustrates the use of run time dynamic linking.
                      7:  * A call to the procedure PRINTDATA is made in the dynamic link library DYNLIB.
                      8:  *
                      9:  * NB - The DYNLIB.DLL file must be located in the LIBPATH specified in your
                     10:  *     config.sys.  You can place your current directory at the beginning
                     11:  *     of the LIBPATH by saying libpath=.;c:\; etc.
                     12:  */
                     13: 
                     14: #include <stdio.h>
                     15: #include <doscalls.h>
                     16: 
                     17: #define        MODULE          "DYNLIB"        /* Name of dynamic link module */
                     18: #define PROCNAME       "PRINTDATA"     /* Name of routine in dynamic module */
                     19: #define FBSZ           32              /* size of failure buffer */
                     20: 
                     21: main(argc, argv)
                     22:        int     argc;
                     23:        char    *argv[];
                     24: {
                     25:        unsigned        ModHdl;                 /* dynamic link module handle */
                     26:        unsigned        rc;                     /* return code */
                     27:        char            fbuf[FBSZ];             /* failure obj name buffer */
                     28:        void            (far pascal * DynamicProc)();
                     29: 
                     30: 
                     31:        /* Load dynamic link module */
                     32: 
                     33:        if (rc = DOSLOADMODULE( fbuf, FBSZ, MODULE, &ModHdl))
                     34:        {
                     35:                printf("module %s not found, failing obj %s error: %d\n",
                     36:                        MODULE, fbuf, rc);
                     37:                DOSEXIT(1,1);   /* exit with error */
                     38:        }
                     39:        
                     40:        /* Get the address of procedure PROCNAME in the dynamic link module */
                     41: 
                     42:        if (rc = DOSGETPROCADDR( ModHdl, PROCNAME,
                     43:                                 (unsigned long far *) &DynamicProc))
                     44:        {
                     45:                printf("procedure %s not found, error: %d\n", PROCNAME, rc);
                     46:                DOSEXIT(1,1);   /* exit with error */
                     47:        }
                     48: 
                     49:        while(1)
                     50:        {
                     51:                (*DynamicProc)();   /* display shared and non-shared data   */
                     52:                DOSSLEEP(100L);     /* yield the processor                */
                     53:        }
                     54: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.