|
111
|
1 /* Fundamental definitions for emulating mocklisp.
|
|
|
2 Copyright (C) 1985, 1986, 1987 Free Software Foundation, Inc.
|
|
|
3
|
|
|
4 This file is part of GNU Emacs.
|
|
|
5
|
|
|
6 GNU Emacs is free software; you can redistribute it and/or modify
|
|
|
7 it under the terms of the GNU General Public License as published by
|
|
|
8 the Free Software Foundation; either version 1, or (at your option)
|
|
|
9 any later version.
|
|
|
10
|
|
|
11 GNU Emacs is distributed in the hope that it will be useful,
|
|
|
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
|
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
|
14 GNU General Public License for more details.
|
|
|
15
|
|
|
16 You should have received a copy of the GNU General Public License
|
|
|
17 along with GNU Emacs; see the file COPYING. If not, write to
|
|
|
18 the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */
|
|
|
19
|
|
|
20 /* This is the main entry point to mocklisp execution.
|
|
|
21 When eval sees a mocklisp function being called, it calls here
|
|
|
22 with the unevaluated argument list */
|
|
|
23
|
|
|
24 extern Lisp_Object ml_apply ();
|
|
112
|
25 extern Lisp_Object Fml_if ();
|
|
|
26 extern Lisp_Object Fml_nargs ();
|
|
|
27 extern Lisp_Object Fml_arg ();
|
|
|
28 extern Lisp_Object Fml_interactive ();
|
|
|
29 extern Lisp_Object Fml_provide_prefix_argument ();
|
|
|
30 extern Lisp_Object Fml_prefix_argument_loop ();
|
|
484
|
31 extern Lisp_Object Finsert_string ();
|
