Return to dynlib2.c CVS log

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

Annotation of os2sdk/demos/examples/dynlink/far/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: extern unsigned far id;     /* non-shared id                                */
        !            14: unsigned count=0;          /* shared process count, first-time switch       */
        !            15: 
        !            16: int far pascal             /* This routine is called by the initialization  */
        !            17: initroutine()              /* asm module to actually do the per-process     */
        !            18:                            /* initialization.                               */
        !            19: {
        !            20:     static char beg[]="I am number ";
        !            21:     static char First[]="First time initialization.\n\r";
        !            22:     static char NotFirst[]="Not first time initialization.\n\r";
        !            23:     char c;
        !            24:     int Written=0;
        !            25: 
        !            26:     if (count++ == 0)
        !            27:     {
        !            28:        DOSWRITE(1, First, sizeof(First)-1, &Written);         /* first time */
        !            29:     }
        !            30:     else
        !            31:     {
        !            32:        DOSWRITE(1, NotFirst, sizeof(NotFirst)-1, &Written);   /* not first  */
        !            33:     }
        !            34:     DOSWRITE(1, beg, sizeof(beg)-1, &Written);
        !            35:     c = count + '0';                           /* show new count            */
        !            36:     DOSWRITE(1, &c, sizeof(char), &Written);
        !            37:     DOSWRITE(1, ".\n\r", 3, &Written);
        !            38:     id = count;                                /* store new non-shared id   */
        !            39:     return(1);                                 /* indicates success         */
        !            40: }

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