Wild Life: templates.c Source File

Wild Life 2.29

- Main Page
- Data Structures
- Files

- File List
- Globals

All Data Structures Files Functions Variables Typedefs Macros
templates.c
Go to the documentation of this file.
1 /* Copyright 1991 Digital Equipment Corporation.
2 * All Rights Reserved.
3 *****************************************************************/
4 /* $Id: templates.c,v 1.2 1994/12/08 23:33:53 duchier Exp $ */
5
6 #include "defs.h"
7
8
9 /******** next things have to be defined in a header file
10 */
11
12
13
14 /******** GET_ARG
15
16 assign the argument "number" of the goal "g" in "arg".
17 return FALSE if bad argument.
18 */
19
20 long get_arg (g, arg, number)
21
22 ptr_psi_term g, *arg;
23 char *number;
24 {
25 ptr_node n;
26
27
28 if ((n = find (FEATCMP, number, g->attr_list)))
29 return (*arg = (ptr_psi_term) n->data) ? TRUE: FALSE;
30 else
31 return FALSE;
32 }
33
34
35
FEATCMP
#define FEATCMP
Definition: def_const.h:257
defs.h
wl_psi_term
Definition: def_struct.h:161
wl_node::data
GENERIC data
Definition: def_struct.h:185
get_arg
long get_arg(ptr_psi_term g, ptr_psi_term *arg, char *number)
Definition: templates.c:20
TRUE
#define TRUE
Definition: def_const.h:127
FALSE
#define FALSE
Definition: def_const.h:128
find
ptr_node find(long comp, char *keystr, ptr_node tree)
Definition: trees.c:341
wl_node
Definition: def_struct.h:181