Return to getutim.c CVS log

Up to [XINU] / xinu / sys

Annotation of xinu/sys/getutim.c, revision 1.1.1.1

1.1       root        1: /* getutim.c - getutim */
                      2: 
                      3: #include <conf.h>
                      4: #include <kernel.h>
                      5: #include <sleep.h>
                      6: #include <date.h>
                      7: #include <network.h>
                      8: 
                      9: /*------------------------------------------------------------------------
                     10:  * getutim  --  obtain time in seconds past Jan 1, 1970, ut (gmt)
                     11:  *------------------------------------------------------------------------
                     12:  */
                     13: SYSCALL        getutim(timvar)
                     14: long   *timvar;
                     15: {
                     16:        int     dev;
                     17:        int     len;
                     18:        int     ret;
                     19:        long    now;
                     20:        long    utnow;
                     21:        char    *msg = "No time server response";
                     22: 
                     23:        wait(clmutex);
                     24:        ret = OK;
                     25:        if (clktime < SECPERHR) {       /* assume small numbers invalid */
                     26:                if ((dev=open(INTERNET, TSERVER, ANYLPORT)) == SYSERR ||
                     27:                    control(dev,DG_SETMODE,DG_TMODE|DG_DMODE) == SYSERR) {
                     28:                        panic(msg);
                     29:                        ret = SYSERR;
                     30:                }
                     31:                write(dev, msg, 2);     /* send junk packet to prompt */
                     32:                if (read(dev,&utnow,4) != 4) {
                     33:                        panic(msg);
                     34:                        ret = SYSERR;
                     35:                } else
                     36:                        clktime = net2xt( net2hl(utnow) );
                     37:                close(dev);
                     38:        }
                     39:        *timvar = clktime;
                     40:        signal(clmutex);
                     41:        return(ret);
                     42: }

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