Return to %ZHELP.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Fix direct-mode interface to online help

    1: %ZHELP ;VCL/JPW-FREEM ONLINE HELP; 10/23/2020 6:55 PM
    2:     ;0.0;FreeM;****FREEM**;Serena Willis @2020
    3:     ;
    4:     ;   $Id: %ZHELP.m,v 1.4 2025/05/20 14:56:56 snw Exp $
    5:     ;    FreeM Online Help
    6:     ;
    7:     ;  
    8:     ;   Author: Serena Willis <jpw@coherent-logic.com>
    9:     ;    Copyright (C) 1998 MUG Deutschland
   10:     ;    Copyright (C) 2020, 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: %ZHELP.m,v $
   29:     ;   Revision 1.4  2025/05/20 14:56:56  snw
   30:     ;   Fix direct-mode interface to online help
   31:     ;
   32:     ;   Revision 1.3  2025/03/10 00:38:15  snw
   33:     ;   Phase 3 of REUSE compliance and header reformatting
   34:     ;
   35:     ;
   36:     ; SPDX-FileCopyrightText:  (C) 2025 Coherent Logic Development LLC
   37:     ; SPDX-License-Identifier: AGPL-3.0-or-later    
   38:     N D S D=$DIALECT,$DIALECT="FREEM"
   39:     S:$D(%SYSHLP) EXEC="!info freem --index-search='"_%SYSHLP_"'"
   40:     S:'$D(%SYSHLP) EXEC="!info freem"
   41:     KV %SYS.HLP
   42:     @EXEC
   43:     S $DIALECT=D K D
   44:     Q