mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-20 16:31:04 +00:00
6473555b25
Branches: main Mark the predicates in the sv* modules in the standard library (except for the recently added ones) as obsolete. They will be deleted after the 11.07 release. library/svarray.m: library/svbag.m: library/svbimap.m: library/sveqvclass.m: library/svmap.m: library/svmulti_map.m: library/svqueue.m: library/svset.m: library/svvarset.m: Mark these modules as obsolete. deep_profiler/dump.m: deep_profiler/recursion_patterns.m: profiler/snapshots.m: Avoid using predicates from sv* modules.
103 lines
3.7 KiB
Mathematica
103 lines
3.7 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et wm=0 tw=0
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2004-2006, 2011 The University of Melbourne.
|
|
% This file may only be copied under the terms of the GNU Library General
|
|
% Public License - see the file COPYING.LIB in the Mercury distribution.
|
|
%---------------------------------------------------------------------------%
|
|
%
|
|
% File: svqueue.m.
|
|
% Author: zs.
|
|
% Stability: high.
|
|
%
|
|
% This file provides an interface to the 'queue' ADT that is conducive to the
|
|
% use of state variable notation. The predicates here do the same thing as
|
|
% their counterparts in the queue module; the only difference is the order
|
|
% of the arguments.
|
|
%
|
|
%--------------------------------------------------------------------------%
|
|
%--------------------------------------------------------------------------%
|
|
|
|
:- module svqueue.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module queue.
|
|
|
|
%--------------------------------------------------------------------------%
|
|
|
|
% `svqueue.put(Elem, Queue0, Queue)' is true iff `Queue' is
|
|
% the queue which results from appending `Elem' onto the end
|
|
% of `Queue0'.
|
|
%
|
|
:- pragma obsolete(svqueue.put/3).
|
|
:- pred svqueue.put(T::in, queue(T)::in, queue(T)::out) is det.
|
|
|
|
% `svqueue.put_list(Elems, Queue0, Queue)' is true iff `Queue'
|
|
% is the queue which results from inserting the items in the
|
|
% list `Elems' into `Queue0'.
|
|
%
|
|
:- pragma obsolete(svqueue.put_list/3).
|
|
:- pred svqueue.put_list(list(T)::in, queue(T)::in, queue(T)::out) is det.
|
|
|
|
% `svqueue.get(Elem, Queue0, Queue)' is true iff `Queue0' is
|
|
% a non-empty queue whose first element is `Elem', and `Queue'
|
|
% the queue which results from removing that element from
|
|
% the front of `Queue0'.
|
|
%
|
|
:- pragma obsolete(svqueue.get/3).
|
|
:- pred svqueue.get(T::out, queue(T)::in, queue(T)::out) is semidet.
|
|
|
|
% `svqueue.delete_all(Elem, Queue0, Queue)' is true iff `Queue' is
|
|
% the same queue as `Queue0' with all occurences of `Elem' removed
|
|
% from it.
|
|
%
|
|
:- pragma obsolete(svqueue.delete_all/3).
|
|
:- pred svqueue.delete_all(T::in, queue(T)::in, queue(T)::out) is det.
|
|
|
|
% `svqueue.put_on_front(Elem, Queue0, Queue)' pushes `Elem' on to
|
|
% the front of `Queue0', giving `Queue'.
|
|
%
|
|
:- pragma obsolete(svqueue.put_on_front/3).
|
|
:- pred svqueue.put_on_front(T::in, queue(T)::in, queue(T)::out) is det.
|
|
|
|
% `svqueue.put_list_on_front(Queue0, Elems, Queue)' pushes `Elems'
|
|
% on to the front of `Queue0', giving `Queue' (the Nth member
|
|
% of `Elems' becomes the Nth member from the front of `Queue').
|
|
%
|
|
:- pragma obsolete(svqueue.put_list_on_front/3).
|
|
:- pred svqueue.put_list_on_front(list(T)::in, queue(T)::in, queue(T)::out)
|
|
is det.
|
|
|
|
% `queue.get_from_back(Elem, Queue0, Queue)' removes `Elem' from
|
|
% the back of `Queue0', giving `Queue'.
|
|
%
|
|
:- pragma obsolete(svqueue.get_from_back/3).
|
|
:- pred svqueue.get_from_back(T::out, queue(T)::in, queue(T)::out) is semidet.
|
|
|
|
%--------------------------------------------------------------------------%
|
|
%--------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
svqueue.put(Elem, !Queue) :-
|
|
queue.put(Elem, !Queue).
|
|
|
|
svqueue.put_list(List, !Queue) :-
|
|
queue.put_list(List, !Queue).
|
|
|
|
svqueue.get(Elem, !Queue) :-
|
|
queue.get(Elem, !Queue).
|
|
|
|
svqueue.delete_all(Elem, !Queue) :-
|
|
queue.delete_all(Elem, !Queue).
|
|
|
|
svqueue.put_on_front(Elem, !Queue) :-
|
|
queue.put_on_front(Elem, !Queue).
|
|
|
|
svqueue.put_list_on_front(Elems, !Queue) :-
|
|
queue.put_list_on_front(Elems, !Queue).
|
|
|
|
svqueue.get_from_back(Elem, !Queue) :-
|
|
queue.get_from_back(Elem, !Queue).
|