FORM  4.3
bugtool.c
Go to the documentation of this file.
1 
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 
44 static 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 
66 void 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 */