Return to %ZREVQRY.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Annotation of freem/mlib/%ZREVQRY.m, revision 1.3

1.3     ! snw         1: %ZREVQRY ;V4W/DLW-REVERSE QUERY POLYFILL; 03/21/25 09:36 PM
1.2       snw         2:     ;0.0;FreeM;****FREEM**;David Wicksell @2025
                      3:     ;
1.3     ! snw         4:     ;   $Id: %ZREVQRY.m,v 1.2 2025/03/10 00:38:15 snw Exp $
1.2       snw         5:     ;    Reverse $QUERY Polyfill
                      6:     ;
                      7:     ;  
                      8:     ;   Author: David Wicksell <dlw@linux.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:     ;
1.3     ! snw        28:     ;   $Log: %ZREVQRY.m,v $
        !            29:     ;   Revision 1.2  2025/03/10 00:38:15  snw
        !            30:     ;   Phase 3 of REUSE compliance and header reformatting
        !            31:     ;
1.2       snw        32:     ;
                     33:     ; SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
                     34:     ; SPDX-License-Identifier: AGPL-3.0-or-later
1.1       snw        35:     N RESULT,PREV
1.3     ! snw        36:     S RESULT=$$REVQUERY^%SYSPOLY(%INTREVQ,.PREV)
        !            37:     K %INTREVQ
1.1       snw        38:     Q PREV