Function:     gip_lock

Purpose:      Uses the GIPSY lockserver (see lckserver.doc) to put
              a lock on a file. The file does not have to exist.

Category:     SYSTEM

File:         gip_lock.c

Author:       K.G. Begeman

Call:         int gip_lock( char *path )

              gip_lock       returns 0 on success, or
                             -1  empty path
                             -2  cannot get current working directory
                             -3  unable to read .glock file
                             -4  cannot create socket
                             -5  cannot obtain hostbyname
                             -6  cannot connect to lskserver
                             -7  cannot obtain acknowledgement from lckserver
                             -8  wrong acknowledgement from lckserver
                             -9  cannot start lckserver
                             -10 sudden death of lckserver
                             -11 bad lskserver
                             -12 file was not locked (gip_unlock)
                             -13 file was already locked (gip_lock)
                             -14 lckserver out of sockets
                             -15 bad client
                             -16 unknown error
              path           name of the file

Updates:      Jan  5, 1993:  KGB Document created
              Dec  5, 2000:  JPT Fixed redundant close bug