--- freem/mlib/%ZREVQRY.m 2025/03/10 00:38:15 1.2 +++ freem/mlib/%ZREVQRY.m 2025/03/22 03:39:23 1.3 @@ -1,7 +1,7 @@ -%ZREVQRY ;V4W/DLW-REVERSE QUERY POLYFILL; 03/09/25 06:36 PM +%ZREVQRY ;V4W/DLW-REVERSE QUERY POLYFILL; 03/21/25 09:36 PM ;0.0;FreeM;****FREEM**;David Wicksell @2025 ; - ; $Id: %ZREVQRY.m,v 1.2 2025/03/10 00:38:15 snw Exp $ + ; $Id: %ZREVQRY.m,v 1.3 2025/03/22 03:39:23 snw Exp $ ; Reverse $QUERY Polyfill ; ; @@ -26,6 +26,9 @@ ; along with FreeM. If not, see . ; ; $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 ; @@ -33,6 +36,6 @@ ; SPDX-FileCopyrightText: (C) 2025 Coherent Logic Development LLC ; SPDX-License-Identifier: AGPL-3.0-or-later N RESULT,PREV - S RESULT=$$REVQUERY^%SYSPOLY(%INT.REVQ,.PREV) - K %INT.REVQ + S RESULT=$$REVQUERY^%SYSPOLY(%INTREVQ,.PREV) + K %INTREVQ Q PREV