mille/varpush.c

   1 /*      $NetBSD: varpush.c,v 1.13 2016/06/05 18:39:02 christos Exp $    */
   2
   3 /*
   4  * Copyright (c) 1982, 1993
   5  *      The Regents of the University of California.  All rights reserved.
   6  *
   7  * Redistribution and use in source and binary forms, with or without
   8  * modification, are permitted provided that the following conditions
   9  * are met:
  10  * 1. Redistributions of source code must retain the above copyright
  11  *    notice, this list of conditions and the following disclaimer.
  12  * 2. Redistributions in binary form must reproduce the above copyright
  13  *    notice, this list of conditions and the following disclaimer in the
  14  *    documentation and/or other materials provided with the distribution.
  15  * 3. Neither the name of the University nor the names of its contributors
  16  *    may be used to endorse or promote products derived from this software
  17  *    without specific prior written permission.
  18  *
  19  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  20  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  21  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  22  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  23  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  24  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  25  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  26  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  27  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  28  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  29  * SUCH DAMAGE.
  30  */
  31
  32 #include <sys/cdefs.h>
  33 #ifndef lint
  34 #if 0
  35 static char sccsid[] = "@(#)varpush.c   8.1 (Berkeley) 5/31/93";
  36 #else
  37 __RCSID("$NetBSD: varpush.c,v 1.13 2016/06/05 18:39:02 christos Exp $");
  38 #endif
  39 #endif /* not lint */
  40
  41 #include <paths.h>
  42 #include "mille.h"
  43
  44 /*
  45  * @(#)varpush.c        1.1 (Berkeley) 4/1/82
  46  */
  47
  48 /*
  49  *      push variables around via the routine func() on the file
  50  * channel file.  func() is either read or write.
  51  */
  52 bool
  53 varpush(int file, ssize_t (*func)(int, const struct iovec *, int))
  54 {
  55         int             temp;
  56         const struct iovec vec[] = {
  57                 { (void *) &Debug, sizeof Debug },
  58                 { (void *) &Finished, sizeof Finished },
  59                 { (void *) &Order, sizeof Order },
  60                 { (void *) &End, sizeof End },
  61                 { (void *) &On_exit, sizeof On_exit },
  62                 { (void *) &Handstart, sizeof Handstart },
  63                 { (void *) &Numgos, sizeof Numgos },
  64                 { (void *) Numseen, sizeof Numseen },
  65                 { (void *) &Play, sizeof Play },
  66                 { (void *) &Window, sizeof Window },
  67                 { (void *) Deck, sizeof Deck },
  68                 { (void *) &Discard, sizeof Discard },
  69                 { (void *) Player, sizeof Player }
  70         };
  71
  72         if (((func)(file, vec, sizeof(vec) / sizeof(vec[0]))) < 0) {
  73                 error("%s", strerror(errno));
  74                 return FALSE;
  75         }
  76         if (func == readv) {
  77                 if ((read(file, (void *) &temp, sizeof temp)) < 0) {
  78                         error("%s", strerror(errno));
  79                         return FALSE;
  80                 }
  81                 Topcard = &Deck[temp];
  82 #ifdef DEBUG
  83                 if (Debug) {
  84                         char    buf[80], *bp;
  85 over:
  86                         printf("Debug file:");
  87                         fgets(buf, (int)sizeof(buf), stdin);
  88                         if ((bp = strchr(buf, '\n')) != NULL)
  89                                 *bp = '\0';
  90                         if ((outf = fopen(buf, "w")) == NULL) {
  91                                 warn("%s", buf);
  92                                 goto over;
  93                         }
  94                         if (strcmp(buf, _PATH_DEVNULL) != 0)
  95                                 setbuf(outf, NULL);
  96                 }
  97 #endif
  98         } else {
  99                 temp = Topcard - Deck;
 100                 if ((write(file, (void *) &temp, sizeof temp)) < 0) {
 101                         error("%s", strerror(errno));
 102                         return FALSE;
 103                 }
 104         }
 105         return TRUE;
 106 }