mirror of
https://github.com/Mercury-Language/mercury.git
synced 2025-12-12 20:34:19 +00:00
b4c3bb1387
Estimated hours taken: 3 Branches: main Clean up in unused module imports in the Mercury system detected by --warn-unused-imports. analysis/*.m: browser/*.m: deep_profiler/*.m: compiler/*.m: library/*.m: mdbcomp/*.m: profiler/*.m: slice/*.m: Remove unused module imports. Fix some minor departures from our coding standards. analysis/Mercury.options: browser/Mercury.options: deep_profiler/Mercury.options: compiler/Mercury.options: library/Mercury.options: mdbcomp/Mercury.options: profiler/Mercury.options: slice/Mercury.options: Set --no-warn-unused-imports for those modules that are used as packages or otherwise break --warn-unused-imports, e.g. because they contain predicates with both foreign and Mercury clauses and some of the imports only depend on the latter.
155 lines
4.8 KiB
Mathematica
155 lines
4.8 KiB
Mathematica
%---------------------------------------------------------------------------%
|
|
% vim: ft=mercury ts=4 sw=4 et
|
|
%---------------------------------------------------------------------------%
|
|
% Copyright (C) 1998-2000, 2003, 2005-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: frame.m.
|
|
% Author: aet.
|
|
%
|
|
% frame - minimally implements ASCII graphics frames.
|
|
% This module is used by the term browser for displaying terms.
|
|
%
|
|
% XXX: This implementation is:
|
|
% - very inefficient.
|
|
% - specific to our immediate needs, and could be made more general.
|
|
%
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- module mdb.frame.
|
|
:- interface.
|
|
|
|
:- import_module list.
|
|
:- import_module pair.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
% XXX: Make frame type abstract instead?
|
|
:- type frame == list(string).
|
|
|
|
% We always clip from top-left corner, hence only one pair of
|
|
% coordinates is needed.
|
|
:- type clip_rect == pair(int, int).
|
|
|
|
% Width of a frame (horizontal size).
|
|
%
|
|
:- func hsize(frame) = int.
|
|
|
|
% Height of a frame (vertical size).
|
|
%
|
|
:- func vsize(frame) = int.
|
|
|
|
% Create a frame from a string.
|
|
%
|
|
:- func from_string(string) = frame.
|
|
|
|
% Stack (vertically glue) two frames, left-aligned.
|
|
%
|
|
:- func vglue(frame, frame) = frame.
|
|
|
|
% Juxtapose (horizontally glue) two frames, top-aligned.
|
|
%
|
|
:- func hglue(frame, frame) = frame.
|
|
|
|
% Clip a frame to the rectangle ((0,0),(X,Y)) where origin is on the
|
|
% top-left. Coordinate axes go down and right.
|
|
%
|
|
:- func clip(clip_rect, frame) = frame.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
%---------------------------------------------------------------------------%
|
|
|
|
:- implementation.
|
|
|
|
:- import_module mdb.util.
|
|
|
|
:- import_module assoc_list.
|
|
:- import_module int.
|
|
:- import_module list.
|
|
:- import_module string.
|
|
|
|
%---------------------------------------------------------------------------%
|
|
|
|
from_string(Str) = [Str].
|
|
|
|
vglue(TopFrame, BottomFrame) = StackedFrame :-
|
|
% Glue frames vertically (stack). Align to left.
|
|
list.append(TopFrame, BottomFrame, StackedFrame).
|
|
|
|
hglue(LeftFrame, RightFrame) = GluedFrame :-
|
|
% Glue frames horizontally (juxtapose). align to top.
|
|
RVSize = vsize(RightFrame),
|
|
LVSize = vsize(LeftFrame),
|
|
( RVSize < LVSize ->
|
|
PadLines = LVSize - RVSize,
|
|
RightFrameNew = frame_lower_pad(RightFrame, PadLines),
|
|
LeftFrameNew = LeftFrame
|
|
; LVSize < RVSize ->
|
|
PadLines = RVSize - LVSize,
|
|
LeftFrameNew = frame_lower_pad(LeftFrame, PadLines),
|
|
RightFrameNew = RightFrame
|
|
;
|
|
LeftFrameNew = LeftFrame,
|
|
RightFrameNew = RightFrame
|
|
),
|
|
frame_right_pad(LeftFrameNew, PaddedLeftFrameNew),
|
|
util.zip_with((pred(S1::in, S2::in, S3::out) is det :-
|
|
string.append(S1, S2, S3)),
|
|
PaddedLeftFrameNew, RightFrameNew, GluedFrame).
|
|
|
|
% Add right padding. That is, add whitespace on right so that
|
|
% lines are all equal length.
|
|
%
|
|
:- pred frame_right_pad(frame::in, frame::out) is det.
|
|
|
|
frame_right_pad(Frame, PaddedFrame) :-
|
|
Lengths = list.map((func(Str) = string.length(Str)), Frame),
|
|
list.foldl(int.max, Lengths, 0, MaxLen),
|
|
list.map(subtract(MaxLen), Lengths, Paddings),
|
|
list.map(add_right_padding,
|
|
assoc_list.from_corresponding_lists(Frame, Paddings), PaddedFrame).
|
|
|
|
:- pred add_right_padding(pair(string, int)::in, string::out) is det.
|
|
|
|
add_right_padding(Str - Len, PaddedFrameStr) :-
|
|
list.duplicate(Len, ' ', PadChars),
|
|
string.from_char_list(PadChars, Padding),
|
|
string.append(Str, Padding, PaddedFrameStr).
|
|
|
|
% We need this since Mercury has no Haskell-ese operation sections.
|
|
%
|
|
:- pred subtract(int::in, int::in, int::out) is det.
|
|
|
|
subtract(M, X, Z) :-
|
|
Z = M - X.
|
|
|
|
% Add empty lines of padding to the bottom of a frame.
|
|
%
|
|
:- func frame_lower_pad(frame, int) = frame.
|
|
|
|
frame_lower_pad(Frame, PadLines) = PaddedFrame :-
|
|
list.duplicate(PadLines, "", Padding),
|
|
list.append(Frame, Padding, PaddedFrame).
|
|
|
|
hsize(Frame) = HSize :-
|
|
Lengths = list.map(func(Str) = string.length(Str), Frame),
|
|
list.foldl(int.max, Lengths, 0, MaxLen),
|
|
HSize = MaxLen.
|
|
|
|
vsize(Frame) = VSize :-
|
|
length(Frame, VSize).
|
|
|
|
clip(X-Y, Frame) = ClippedFrame :-
|
|
list.take_upto(Y, Frame, YClippedFrame),
|
|
list.map(left(X), YClippedFrame, ClippedFrame).
|
|
|
|
:- pred left(int::in, string::in, string::out) is det.
|
|
|
|
left(N, Str, Left) :-
|
|
string.left(Str, N, Left).
|
|
|
|
%---------------------------------------------------------------------------%
|