Return to test.c.fr2 CVS log

Up to [XINU] / xinu / sys / TEST

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

1.1       root        1: /* test.c - main */
                      2: 
                      3: #include <conf.h>
                      4: #include <kernel.h>
                      5: #include <frame.h>
                      6: 
                      7: /*------------------------------------------------------------------------
                      8:  *  main  --  test frame I/O
                      9:  *------------------------------------------------------------------------
                     10:  */
                     11: main()
                     12: {
                     13:        struct  frame   *fptr;
                     14:        int     i, len, pr();
                     15:        char    ch;
                     16: 
                     17:        kprintf("\nTesting frames - PLEASE USE 1 FOR MACHINE ID\n");
                     18:        fptr = getbuf(frbpool);
                     19:        kprintf("Creating a process to print incoming messages\n");
                     20:        resume( create(pr,200,19,"print",1,0) );
                     21:        kprintf("\nType a message at each prompt.\n");
                     22:        while(TRUE) {
                     23:                kprintf("Message to send: ");
                     24:                gets(fptr->frdata);
                     25:                if ( (i = strlen(fptr->frdata)+3) > 120 )
                     26:                        i = 120;
                     27:                fptr->frlen = i;
                     28:                fsend(0,1,fptr);
                     29:                fptr = getbuf(frbpool);
                     30:        }
                     31: }
                     32: pr(netid)
                     33: int netid;
                     34: {
                     35:        struct  frame   *fptr;
                     36:        int     i;
                     37: 
                     38:        kprintf("\n P: Starting with netid=%d\n",netid);
                     39:        while (TRUE) {
                     40:                fptr = freceive(netid);
                     41:                i = getflen(fptr);
                     42:                fptr->frdata[i-3] = '\0';
                     43:                kprintf(" P: received %s\n", fptr->frdata);
                     44:                freebuf(fptr);
                     45:        }
                     46: }
                     47: 
                     48: P()
                     49: {
                     50:        prdumph();
                     51:        qdumph();
                     52: }

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