(* Debug.def provides some simple debugging routines. Copyright (C) 2001-2024 Free Software Foundation, Inc. Contributed by Gaius Mulley . This file is part of GNU Modula-2. GNU Modula-2 is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 3, or (at your option) any later version. GNU Modula-2 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 General Public License for more details. Under Section 7 of GPL version 3, you are granted additional permissions described in the GCC Runtime Library Exception, version 3.1, as published by the Free Software Foundation. You should have received a copy of the GNU General Public License and a copy of the GCC Runtime Library Exception along with this program; see the files COPYING3 and COPYING.RUNTIME respectively. If not, see . *) DEFINITION MODULE Debug ; (* Title : Debug Author : Gaius Mulley System : UNIX (gm2) Date : Sat Aug 13 19:41:57 1994 Last edit : Sat Aug 13 19:41:57 1994 Description: provides some simple debugging routines. *) EXPORT QUALIFIED Halt, DebugString ; (* Halt - writes a message in the format: Module:Function:Line:Message It then terminates by calling HALT. *) PROCEDURE Halt (Message, Module, Function: ARRAY OF CHAR ; LineNo : CARDINAL) ; (* DebugString - writes a string to the debugging device (Scn.Write). It interprets \n as carriage return, linefeed. *) PROCEDURE DebugString (a: ARRAY OF CHAR) ; END Debug.