modules/src/em_mes/C_ms_src.c

   1 /* $Id: C_ms_src.c,v 1.6 1994/06/24 11:13:15 ceriel Exp $ */
   2 /*
   3  * (c) copyright 1987 by the Vrije Universiteit, Amsterdam, The Netherlands.
   4  * See the copyright notice in the ACK home directory, in the file "Copyright".
   5  */
   6 #include <em.h>
   7 #include <em_mes.h>
   8
   9 void
  10 C_ms_src(nlines, filnam)
  11         int nlines;
  12         char *filnam;
  13 {
  14         C_mes_begin(ms_src);
  15         C_cst((arith)nlines);
  16         C_scon(filnam, (arith)(strlen(filnam) + 1));
  17         C_mes_end();
  18 }