Commit 4dca55e3 authored by François Fages's avatar François Fages

list_locations

parent 5d7eef1a
:- module(
molecules,
[
list_molecules/0,
list_molecules/0,
list_locations/0
]
).
......@@ -9,7 +10,19 @@
list_molecules :-
biocham_command,
doc('lists the molecules of the current model.'),
doc('lists all the molecules of the current model.'),
enumerate_molecules(L),
format('~w\n', L).
format('~w\n', [L]).
list_locations :-
biocham_command,
doc('lists all the locations of the current model.'),
enumerate_molecules(L),
maplist(extract_location,L,R),
format('~w\n', [R]).
extract_location(M,L):-
atom_chars(M,C),
append(_,[':',':'|D],C),
atom_chars(L,D).
Markdown is supported
0%
or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment