Return to %SYSOOP.m CVS log

Up to [Coherent Logic Development] / freem / mlib

Phase 3 of REUSE compliance and header reformatting

%SYSOOP ;VCL/SNW-OO SUBROUTINES; 03/09/25 06:24 PM
    ;0.0;FreeM;****FREEM**;Serena Willis @2025
    ;
    ;   $Id: %SYSOOP.m,v 1.2 2025/03/10 00:38:15 snw Exp $
    ;    OO Subroutines
    ;
    ;  
    ;   Author: Serena Willis <snw@coherent-logic.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: %SYSOOP.m,v $
    ;   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
    QUIT
DESTROY(CLASS,INST)
    N FNC S FNC="DESTROY^"_CLASS_"(.INST)"
    S $ZTRAP="TRYLOW^%SYSOOP"
    D @FNC
    G ALLDONE
TRYLOW ;
    S $ZTRAP="TRYPASC^%SYSOOP"
    S FNC="destroy^"_CLASS_"(.INST)"
    D @FNC
    G ALLDONE
TRYPASC ;
    S $ZTRAP="ALLDONE^%SYSOOP"
    S FNC="Destroy^"_CLASS_"(.INST)"
    D @FNC
    G ALLDONE
ALLDONE ;
    S $ZTRAP=""
    K INST   
    QUIT