projects
/
egate.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
2303dcc
)
Removed .depend from cvs. Removed function fml_mk_list.
author
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 9 Feb 1995 14:37:18 +0000
(14:37 +0000)
committer
Adam Dickmeiss
<adam@indexdata.dk>
Thu, 9 Feb 1995 14:37:18 +0000
(14:37 +0000)
fml/fmlmem.c
patch
|
blob
|
history
fml/fmlp.h
patch
|
blob
|
history
diff --git
a/fml/fmlmem.c
b/fml/fmlmem.c
index
5ec4a7b
..
ce82b69
100644
(file)
--- a/
fml/fmlmem.c
+++ b/
fml/fmlmem.c
@@
-2,7
+2,10
@@
* FML interpreter. Europagate, 1995
*
* $Log: fmlmem.c,v $
* FML interpreter. Europagate, 1995
*
* $Log: fmlmem.c,v $
- * Revision 1.4 1995/02/09 14:33:37 adam
+ * Revision 1.5 1995/02/09 14:37:18 adam
+ * Removed .depend from cvs. Removed function fml_mk_list.
+ *
+ * Revision 1.4 1995/02/09 14:33:37 adam
* Split source fml.c and define relevant build-in functions in separate
* files. New operators mult, div, not, llen implemented.
*
* Split source fml.c and define relevant build-in functions in separate
* files. New operators mult, div, not, llen implemented.
*
@@
-127,21
+130,6
@@
struct fml_atom *fml_atom_alloc (Fml fml, char *str)
return a0;
}
return a0;
}
-struct fml_node *fml_mk_list (Fml fml, struct fml_node *fn)
-{
- if (fn->is_atom)
- {
- struct fml_node *fn2;
-
- fn2 = fml_node_alloc (fml);
- fn2->is_atom = 1;
- fn2->p[0] = fn->p[0];
- return fn2;
- }
- else
- return fn->p[0];
-}
-
int fml_atom_str (struct fml_atom *a, char *str)
{
int len = 0;
int fml_atom_str (struct fml_atom *a, char *str)
{
int len = 0;
diff --git
a/fml/fmlp.h
b/fml/fmlp.h
index
4a77ccf
..
6a2552e
100644
(file)
--- a/
fml/fmlp.h
+++ b/
fml/fmlp.h
@@
-2,7
+2,10
@@
* FML interpreter. Europagate, 1995
*
* $Log: fmlp.h,v $
* FML interpreter. Europagate, 1995
*
* $Log: fmlp.h,v $
- * Revision 1.4 1995/02/09 14:33:37 adam
+ * Revision 1.5 1995/02/09 14:37:19 adam
+ * Removed .depend from cvs. Removed function fml_mk_list.
+ *
+ * Revision 1.4 1995/02/09 14:33:37 adam
* Split source fml.c and define relevant build-in functions in separate
* files. New operators mult, div, not, llen implemented.
*
* Split source fml.c and define relevant build-in functions in separate
* files. New operators mult, div, not, llen implemented.
*
@@
-42,7
+45,6
@@
struct fml_atom *fml_atom_alloc (Fml fml, char *str);
int fml_atom_str (struct fml_atom *a, char *str);
void fml_atom_strx (struct fml_atom *a, char *str, int max);
int fml_atom_val (struct fml_atom *a);
int fml_atom_str (struct fml_atom *a, char *str);
void fml_atom_strx (struct fml_atom *a, char *str, int max);
int fml_atom_val (struct fml_atom *a);
-struct fml_node *fml_mk_list (Fml fml, struct fml_node *fn);
void fml_node_delete (Fml fml, struct fml_node *fn);
struct fml_node *fml_node_copy (Fml fml, struct fml_node *fn);
struct fml_node *fml_mk_node_val (Fml fml, int val);
void fml_node_delete (Fml fml, struct fml_node *fn);
struct fml_node *fml_node_copy (Fml fml, struct fml_node *fn);
struct fml_node *fml_mk_node_val (Fml fml, int val);