ex/ex_source.c

   1 /*-
   2  * Copyright (c) 1992, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * %sccs.include.redist.c%
   6  */
   7
   8 #ifndef lint
   9 static char sccsid[] = "$Id: ex_source.c,v 8.3 1993/12/02 10:53:22 bostic Exp $ (Berkeley) $Date: 1993/12/02 10:53:22 $";
  10 #endif /* not lint */
  11
  12 #include <sys/types.h>
  13
  14 #include "vi.h"
  15 #include "excmd.h"
  16
  17 /*
  18  * ex_source -- :source file
  19  *      Execute ex commands from a file.
  20  */
  21 int
  22 ex_source(sp, ep, cmdp)
  23         SCR *sp;
  24         EXF *ep;
  25         EXCMDARG *cmdp;
  26 {
  27         return (ex_cfile(sp, ep, cmdp->argv[0]->bp));
  28 }