mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-18 15:26:31 +00:00
62cc99e241
Estimated hours taken: 0.2 Branches: main Formatting and style fixes for standard library modules. Fix a bunch of minor problems, e.g. unnecessary module imports. library/bitmap.m: s/memcpy/MR_memcpy/ in a spot. Call throw/1 rather than error/1 and don't import the require module. library/term_to_xml.m: Don't import the require module. It is unused here. library/time.m: Add some missing `thread_safe' annotations. library/bool.m: library/cord.m: library/gc.m: library/multi_map.m: library/queue.m: library/rtti_implementation.m: library/set.m: library/set_bbbtree.m: library/svarray.m: library/svbag.m: library/svbimap.m: library/sveqvclass.m: Formatting and style fixes.
47 lines
1.7 KiB
Mathematica
47 lines
1.7 KiB
Mathematica
%-----------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et wm=0 tw=0
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 2004-2006 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: svbimap.m.
|
|
%
|
|
% This file provides an interface to the 'bimap' ADT that is conducive to the
|
|
% use of state variable notation. The predicates here do the same thing as
|
|
% their counterparts in the bimap module; the only difference is the order
|
|
% of the arguments.
|
|
%
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- module svbimap.
|
|
:- interface.
|
|
|
|
:- import_module bimap.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- pred svbimap.insert(K::in, V::in, bimap(K, V)::in, bimap(K, V)::out)
|
|
is semidet.
|
|
|
|
:- pred svbimap.det_insert(K::in, V::in, bimap(K, V)::in, bimap(K, V)::out)
|
|
is det.
|
|
|
|
:- pred svbimap.set(K::in, V::in, bimap(K, V)::in, bimap(K, V)::out) is det.
|
|
|
|
%-----------------------------------------------------------------------------%
|
|
%-----------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
svbimap.insert(K, V, Bimap0, Bimap) :-
|
|
bimap.insert(Bimap0, K, V, Bimap).
|
|
|
|
svbimap.det_insert(K, V, Bimap0, Bimap) :-
|
|
bimap.det_insert(Bimap0, K, V, Bimap).
|
|
|
|
svbimap.set(K, V, Bimap0, Bimap) :-
|
|
bimap.set(Bimap0, K, V, Bimap).
|