Return to test.c.mes CVS log

Up to [XINU] / xinu / sys / TEST

Annotation of xinu/sys/TEST/test.c.mes, revision 1.1.1.1

1.1       root        1: /* test.c - main */
                      2: 
                      3: #include <conf.h>
                      4: #include <kernel.h>
                      5: 
                      6: /*------------------------------------------------------------------------
                      7:  *  main  --  current test routines
                      8:  *------------------------------------------------------------------------
                      9:  */
                     10: main()
                     11: {
                     12:        int prhello(), sender(), receiver();
                     13:        int i, isend, irecv;
                     14: 
                     15:        prhello();
                     16:        for (i=0; i<(NPROC-2)/2; i++) {
                     17:                irecv = create (receiver,12000, 19, "receiv", 1, i);
                     18:                if (irecv == SYSERR) {
                     19:                        kprintf ("main: create failed\n");
                     20:                        break;
                     21:                        }
                     22:                else
                     23:                        resume (irecv);
                     24:                isend = create (sender, 12000, 19, "sender", 2, i, irecv);
                     25:                if (isend != SYSERR)
                     26:                        resume (isend);
                     27:                else {
                     28:                        kprintf ("main: create failed\n");
                     29:                        break;
                     30:                        }
                     31:                }
                     32: }
                     33: 
                     34: prhello()
                     35: {
                     36:        kprintf("hello world\n");
                     37: }
                     38: 
                     39: sender(isend, irecv)
                     40: int isend, irecv;
                     41: {
                     42:        kprintf ("sender #%d: about to send message %d\n", isend, irecv);
                     43:        send (irecv, isend);    /* send my partner its message */
                     44: }
                     45: 
                     46: receiver(irecv)
                     47: int irecv;
                     48: {
                     49:        int     mes = recvclr();
                     50: 
                     51:        kprintf ("receiver #%d: waiting for my message, using %s\n", irecv,
                     52:                  (irecv % 2)?"recvclr":"receive");
                     53:        while (mes != irecv) {
                     54:                if (irecv % 2) {
                     55:                        mes = recvclr();
                     56:                        sleep (0);
                     57:                        }
                     58:                else
                     59:                        mes = receive();
                     60:                }
                     61:        kprintf ("receiver #%d: got my message\n",irecv);
                     62: }

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