[moira.git] / update / inst_001.c

/*
 *	$Source$
 *	$Header$
 */

#ifndef lint
static char *rcsid_inst_001_c = "$Header$";
#endif	lint

#include <stdio.h>
#include <gdb.h>
#include "kludge.h"

STRING instructions = { 0, 0 };
extern CONNECTION conn;
extern int have_instructions;
extern int code;

/*
 * instruction sequence transmission:
 * syntax:
 *	>>> (STRING) "inst_001"
 *	<<< (int)0
 *	>>> (STRING) instructions
 *	<<< (int)0
 */

inst_001(str)
     char *str;
{
     if (send_ok())
	  lose("sending okay for inst_001");
     code = receive_object(conn, (char *)&instructions, STRING_T);
     if (code) {
	  report_error("reporting failure to receive instructions");
	  return;
     }
     have_instructions = 1;
     if (send_ok())
	  lose("sending okay after instructions");
#ifdef DEBUG
     printf("got instructions: %s\n", STRING_DATA(instructions));
#endif
}
Commit	Line	Data
de56407f	1	/*
	2	* $Source$
	3	* $Header$
	4	*/
	5
	6	#ifndef lint
	7	static char *rcsid_inst_001_c = "$Header$";
	8	#endif lint
	9
	10	#include <stdio.h>
dd2e131e	11	#include <gdb.h>
de56407f	12	#include "kludge.h"
de56407f	13
	14	STRING instructions = { 0, 0 };
	15	extern CONNECTION conn;
	16	extern int have_instructions;
	17	extern int code;
	18
	19	/*
	20	* instruction sequence transmission:
	21	* syntax:
	22	* >>> (STRING) "inst_001"
	23	* <<< (int)0
	24	* >>> (STRING) instructions
	25	* <<< (int)0
	26	*/
	27
	28	inst_001(str)
	29	char *str;
	30	{
	31	if (send_ok())
	32	lose("sending okay for inst_001");
	33	code = receive_object(conn, (char *)&instructions, STRING_T);
	34	if (code) {
	35	report_error("reporting failure to receive instructions");
	36	return;
	37	}
	38	have_instructions = 1;
	39	if (send_ok())
	40	lose("sending okay after instructions");
dd2e131e	41	#ifdef DEBUG
	42	printf("got instructions: %s\n", STRING_DATA(instructions));
	43	#endif
de56407f	44	}