update/inst_001.c

   1 /*
   2  *      $Source$
   3  *      $Header$
   4  */
   5 /*  (c) Copyright 1988 by the Massachusetts Institute of Technology. */
   6 /*  For copying and distribution information, please see the file */
   7 /*  <mit-copyright.h>. */
   8
   9 #ifndef lint
  10 static char *rcsid_inst_001_c = "$Header$";
  11 #endif  lint
  12
  13 #include <mit-copyright.h>
  14 #include <stdio.h>
  15 #include <gdb.h>
  16
  17 STRING instructions = { 0, 0 };
  18 extern CONNECTION conn;
  19 extern int have_instructions;
  20 extern int code;
  21
  22 /*
  23  * instruction sequence transmission:
  24  * syntax:
  25  *      >>> (STRING) "inst_001"
  26  *      <<< (int)0
  27  *      >>> (STRING) instructions
  28  *      <<< (int)0
  29  */
  30
  31 inst_001(str)
  32      char *str;
  33 {
  34      if (send_ok())
  35           lose("sending okay for inst_001");
  36      code = receive_object(conn, (char *)&instructions, STRING_T);
  37      if (code) {
  38           report_error("reporting failure to receive instructions");
  39           return;
  40      }
  41      have_instructions = 1;
  42      if (send_ok())
  43           lose("sending okay after instructions");
  44 #ifdef DEBUG
  45      printf("got instructions: %s\n", STRING_DATA(instructions));
  46 #endif
  47 }