%MAPPING ;VCL/SNW-MAPPINGS; 03/09/25 06:19 PM
;0.0;FreeM;****FREEM**;Serena Willis @2025
;
; $Id: %MAPPING.m,v 1.2 2025/03/10 00:38:15 snw Exp $
; Mappings
;
;
; Author: Serena Willis <snw@coherent-logic.com>
; Copyright (C) 1998 MUG Deutschland
; Copyright (C) 2023, 2025 Coherent Logic Development LLC
;
;
; This file is part of FreeM.
;
; FreeM is free software: you can redistribute it and/or modify
; it under the terms of the GNU Affero Public License as published by
; the Free Software Foundation, either version 3 of the License, or
; (at your option) any later version.
;
; FreeM is distributed in the hope that it will be useful,
; but WITHOUT ANY WARRANTY; without even the implied warranty of
; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
; GNU Affero Public License for more details.
;
; You should have received a copy of the GNU Affero Public License
; along with FreeM. If not, see <https://www.gnu.org/licenses/>.
;
; $Log: %MAPPING.m,v $
; Revision 1.2 2025/03/10 00:38:15 snw
; Phase 3 of REUSE compliance and header reformatting
;
;
; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC
; SPDX-License-Identifier: AGPL-3.0-or-later
D S^%DB("M","MAIN","NAME","Main Menu")
D S^%DB("M","MAIN","DESC","FreeM Mappings Manager")
D S^%DB("M","MAIN","DEFAULT","GL")
D SA^%DB("M","MAIN","OPTS","GD","Define Global Mapping")
D SA^%DB("M","MAIN","OPTS","GR","Remove Global Mapping")
D SA^%DB("M","MAIN","OPTS","GL","List Global Mappings")
D SA^%DB("M","MAIN","OPTS","RD","Define Routine Mapping")
D SA^%DB("M","MAIN","OPTS","RR","Remove Routine Mapping")
D SA^%DB("M","MAIN","OPTS","RL","List Routine Mappings")
D SA^%DB("M","MAIN","ACT","GD","GD^%MAPPING")
D SA^%DB("M","MAIN","ACT","GR","GR^%MAPPING")
D SA^%DB("M","MAIN","ACT","GL","GL^%MAPPING")
D SA^%DB("M","MAIN","ACT","RD","RD^%MAPPING")
D SA^%DB("M","MAIN","ACT","RR","RR^%MAPPING")
D SA^%DB("M","MAIN","ACT","RL","RL^%MAPPING")
MN D GO^%MENU("M","MAIN")
Q
GD Q
GR Q
GQ Q
RD Q
RR Q
RL Q
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>