delete/2
This commit is contained in:
parent
fed10a2a25
commit
2cf01ac3ae
|
@ -113,7 +113,11 @@ prompt, but which may include selectors. Selectors are terms of the form
|
||||||
+<column>where <column>should be replaced by a column name.
|
+<column>where <column>should be replaced by a column name.
|
||||||
(See tests.pl for some concrete usage examples.)
|
(See tests.pl for some concrete usage examples.)
|
||||||
*/
|
*/
|
||||||
/* delete(Table, Conds). */
|
delete(Table, Conds) :-
|
||||||
|
(tabl(Table, _) ->
|
||||||
|
(rows(tables, Row), \+ (member(Cond, Conds), \+ Cond) -> retract(Row); true);
|
||||||
|
throw("Table doesn't exist")
|
||||||
|
).
|
||||||
|
|
||||||
:- dynamic selec/4.
|
:- dynamic selec/4.
|
||||||
/*
|
/*
|
||||||
|
|
Loading…
Reference in New Issue