FORM 4.3
bugtool.c
Go to the documentation of this file.
1
5
6/* #[ License : */
7/*
8 * Copyright (C) 1984-2022 J.A.M. Vermaseren
9 * When using this file you are requested to refer to the publication
10 * J.A.M.Vermaseren "New features of FORM" math-ph/0010025
11 * This is considered a matter of courtesy as the development was paid
12 * for by FOM the Dutch physics granting agency and we would like to
13 * be able to track its scientific use to convince FOM of its value
14 * for the community.
15 *
16 * This file is part of FORM.
17 *
18 * FORM is free software: you can redistribute it and/or modify it under the
19 * terms of the GNU General Public License as published by the Free Software
20 * Foundation, either version 3 of the License, or (at your option) any later
21 * version.
22 *
23 * FORM is distributed in the hope that it will be useful, but WITHOUT ANY
24 * WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
25 * FOR A PARTICULAR PURPOSE. See the GNU General Public License for more
26 * details.
27 *
28 * You should have received a copy of the GNU General Public License along
29 * with FORM. If not, see <http://www.gnu.org/licenses/>.
30 */
31/* #] License : */
32
33/*
34 #[ Includes :
35*/
36
37#include "form3.h"
38
39/*
40 #] Includes :
41 #[ ExprStatus :
42*/
43
44static UBYTE *statusexpr[] = {
45 (UBYTE *)"LOCALEXPRESSION"
46 ,(UBYTE *)"SKIPLEXPRESSION"
47 ,(UBYTE *)"DROPLEXPRESSION"
48 ,(UBYTE *)"DROPPEDEXPRESSION"
49 ,(UBYTE *)"GLOBALEXPRESSION"
50 ,(UBYTE *)"SKIPGEXPRESSION"
51 ,(UBYTE *)"DROPGEXPRESSION"
52 ,(UBYTE *)"UNKNOWN"
53 ,(UBYTE *)"STOREDEXPRESSION"
54 ,(UBYTE *)"HIDDENLEXPRESSION"
55 ,(UBYTE *)"HIDELEXPRESSION"
56 ,(UBYTE *)"DROPHLEXPRESSION"
57 ,(UBYTE *)"UNHIDELEXPRESSION"
58 ,(UBYTE *)"HIDDENGEXPRESSION"
59 ,(UBYTE *)"HIDEGEXPRESSION"
60 ,(UBYTE *)"DROPHGEXPRESSION"
61 ,(UBYTE *)"UNHIDEGEXPRESSION"
62 ,(UBYTE *)"INTOHIDELEXPRESSION"
63 ,(UBYTE *)"INTOHIDEGEXPRESSION"
64};
65
66void ExprStatus(EXPRESSIONS e)
67{
68 MesPrint("Expression %s(%d) has status %s(%d,%d). Buffer: %d, Position: %15p",
69 AC.exprnames->namebuffer+e->name,(WORD)(e-Expressions),
70 statusexpr[e->status],e->status,e->hidelevel,
71 e->whichbuffer,&(e->onfile));
72}
73
74/*
75 #] ExprStatus :
76*/