Return to %MAPPING.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%MAPPING.m, revision 1.2

1.2     ! snw         1: %MAPPING ;VCL/SNW-MAPPINGS; 03/09/25 06:19 PM
        !             2:     ;0.0;FreeM;****FREEM**;Serena Willis @2025
        !             3:     ;
        !             4:     ;   $Id$
        !             5:     ;    Mappings
        !             6:     ;
        !             7:     ;  
        !             8:     ;   Author: Serena Willis <snw@coherent-logic.com>
        !             9:     ;    Copyright (C) 1998 MUG Deutschland
        !            10:     ;    Copyright (C) 2023, 2025 Coherent Logic Development LLC
        !            11:     ;
        !            12:     ;
        !            13:     ;   This file is part of FreeM.
        !            14:     ;
        !            15:     ;   FreeM is free software: you can redistribute it and/or modify
        !            16:     ;   it under the terms of the GNU Affero Public License as published by
        !            17:     ;   the Free Software Foundation, either version 3 of the License, or
        !            18:     ;   (at your option) any later version.
        !            19:     ;
        !            20:     ;   FreeM is distributed in the hope that it will be useful,
        !            21:     ;   but WITHOUT ANY WARRANTY; without even the implied warranty of
        !            22:     ;   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
        !            23:     ;   GNU Affero Public License for more details.
        !            24:     ;
        !            25:     ;   You should have received a copy of the GNU Affero Public License
        !            26:     ;   along with FreeM.  If not, see <https://www.gnu.org/licenses/>.
        !            27:     ;
        !            28:     ;   $Log$
        !            29:     ;
        !            30:     ; SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
        !            31:     ; SPDX-License-Identifier: AGPL-3.0-or-later
1.1       snw        32:    D S^%DB("M","MAIN","NAME","Main Menu")
                     33:    D S^%DB("M","MAIN","DESC","FreeM Mappings Manager")
                     34:    D S^%DB("M","MAIN","DEFAULT","GL")
                     35:    D SA^%DB("M","MAIN","OPTS","GD","Define Global Mapping")
                     36:    D SA^%DB("M","MAIN","OPTS","GR","Remove Global Mapping")
                     37:    D SA^%DB("M","MAIN","OPTS","GL","List Global Mappings")
                     38:    D SA^%DB("M","MAIN","OPTS","RD","Define Routine Mapping")
                     39:    D SA^%DB("M","MAIN","OPTS","RR","Remove Routine Mapping")
                     40:    D SA^%DB("M","MAIN","OPTS","RL","List Routine Mappings")
                     41:    D SA^%DB("M","MAIN","ACT","GD","GD^%MAPPING")
                     42:    D SA^%DB("M","MAIN","ACT","GR","GR^%MAPPING")
                     43:    D SA^%DB("M","MAIN","ACT","GL","GL^%MAPPING")
                     44:    D SA^%DB("M","MAIN","ACT","RD","RD^%MAPPING")
                     45:    D SA^%DB("M","MAIN","ACT","RR","RR^%MAPPING")
                     46:    D SA^%DB("M","MAIN","ACT","RL","RL^%MAPPING")
                     47: MN D GO^%MENU("M","MAIN")
                     48:    Q
                     49: GD Q
                     50: GR Q
                     51: GQ Q
                     52: RD Q
                     53: RR Q
                     54: RL Q