%ZREVQRY ;V4W/DLW-REVERSE QUERY POLYFILL; 03/21/25 09:36 PM
;0.0;FreeM;****FREEM**;David Wicksell @2025
;
; $Id: %ZREVQRY.m,v 1.3 2025/03/22 03:39:23 snw Exp $
; Reverse $QUERY Polyfill
;
;
; Author: David Wicksell <dlw@linux.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: %ZREVQRY.m,v $
; Revision 1.3 2025/03/22 03:39:23 snw
; Fix reverse query polyfill call-in from C side and make NAME exprs silently truncate long names in obsolete MDC dialects
;
; 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
N RESULT,PREV
S RESULT=$$REVQUERY^%SYSPOLY(%INTREVQ,.PREV)
K %INTREVQ
Q PREV
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>