#include <perms.h>

//          Edinburgh IMP77 Compiler - Version 8.4
//
//     1      %record %format impstream ( %integer empty,lookahead, flags, %string(255) file name, %integer handle )

struct IMPSTREAM {
  union {
    struct {
      int EMPTY;
      int LOOKAHEAD;
      int FLAGS;
      _imp_string255 FILENAME;
      int HANDLE;
    };
  };
};

//     2      %routine initialise stream( %record(impstream) %name s )

static void INITIALISESTREAM(struct IMPSTREAM *S) {
  //     3          s_handle = 0

  S->HANDLE = 0;

  //     4          length(s_file name) = 0

  *_imp_LENGTH((_imp_string255 *)/*p*/ /*?*/ &S->FILENAME) = 0;

  //     5          s_flags = 0

  S->FLAGS = 0;

  //     6          s_lookahead = -1

  S->LOOKAHEAD = -1;

  //     7          s_empty = 1

  S->EMPTY = 1;

  //     8      %end { of "initialise stream" }

  return;
} /* end of INITIALISESTREAM */

//     9
//    10  %endoffile