Return to dynlib2.c CVS log

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

Annotation of os2sdk/demos/examples/dynlink/dynlib2.c, revision 1.1

1.1     ! root        1: /*
        !             2:  * dynlib2.c
        !             3:  *
        !             4:  *   Created 17 August 1987 by Kevin Ruddell, Microsoft Corp
        !             5:  *
        !             6:  * Dynamic link library demo module with shared data.
        !             7:  *
        !             8:  */
        !             9: 
        !            10: #include <doscalls.h>
        !            11: #include "dynlib.h"        /* calling conventions                           */
        !            12: 
        !            13: unsigned count=0;          /* shared process count                          */
        !            14: 
        !            15: int far pascal             /* This routine is called by the initialization  */
        !            16: initroutine()              /* asm module to actually do the per-process     */
        !            17:                            /* initialization.                               */
        !            18: {
        !            19:     static char beg[]="I am number ";
        !            20:     static char First[]="First time initialization.\n\r";
        !            21:     static char NotFirst[]="Not first time initialization.\n\r";
        !            22:     char c;
        !            23:     int Written=0;
        !            24: 
        !            25:     if (count++ == 0)
        !            26:     {
        !            27:        DOSWRITE(1, First, sizeof(First)-1, &Written);         /* first time */
        !            28:     }
        !            29:     else
        !            30:     {
        !            31:        DOSWRITE(1, NotFirst, sizeof(NotFirst)-1, &Written);   /* not first  */
        !            32:     }
        !            33:     DOSWRITE(1, beg, sizeof(beg)-1, &Written);     /* show new count        */
        !            34:     c = count + '0';
        !            35:     DOSWRITE(1, &c, sizeof(char), &Written);
        !            36:     DOSWRITE(1, ".\n\r", 3, &Written);
        !            37:     INIT_ID( (unsigned far *) &count);             /* store count as id     */
        !            38:                                                    /* and pointer to count  */
        !            39:     return(1);                                     /* indicate success      */
        !            40: }

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