#ifndef lint static char sccsid[] = "@(#)varpush.c 4.1 12/24/82"; #endif # include "mille.h" int read(), write(); /* * push variables around via the routine func() on the file * channel file. func() is either read or write. */ varpush(file, func) reg int file; reg int (*func)(); { int temp; (*func)(file, &Debug, sizeof Debug); (*func)(file, &Finished, sizeof Finished); (*func)(file, &Order, sizeof Order); (*func)(file, &End, sizeof End); (*func)(file, &On_exit, sizeof On_exit); (*func)(file, &Handstart, sizeof Handstart); (*func)(file, &Numgos, sizeof Numgos); (*func)(file, Numseen, sizeof Numseen); (*func)(file, &Play, sizeof Play); (*func)(file, &Window, sizeof Window); (*func)(file, Deck, sizeof Deck); (*func)(file, &Discard, sizeof Discard); (*func)(file, Player, sizeof Player); if (func == read) { read(file, &temp, sizeof temp); Topcard = &Deck[temp]; if (Debug) { char buf[80]; over: printf("Debug file:"); gets(buf); if ((outf = fopen(buf, "w")) == NULL) { perror(buf); goto over; } if (strcmp(buf, "/dev/null") != 0) setbuf(outf, 0); } } else { temp = Topcard - Deck; write(file, &temp, sizeof temp); } }