01: /*
02: * DebugInfo.java --
03: *
04: * This class stores debug information for the interpreter.
05: *
06: * Copyright (c) 1997 Sun Microsystems, Inc.
07: *
08: * See the file "license.terms" for information on usage and
09: * redistribution of this file, and for a DISCLAIMER OF ALL
10: * WARRANTIES.
11: *
12: * RCS: @(#) $Id: DebugInfo.java,v 1.1.1.1 1998/10/14 21:09:18 cvsadmin Exp $
13: *
14: */
15:
16: package tcl.lang;
17:
18: /*
19: * This class stores debug information for the interpreter.
20: */
21:
22: class DebugInfo {
23:
24: /*
25: * The name of the source file that contains code for a given debug
26: * stack level. May be null for an unknown source file (if the debug
27: * stack is activated by an "eval" command or if the Interp is running
28: * in non-debugging mode.)
29: */
30:
31: String fileName;
32:
33: /*
34: * The beginning line of the current command under execution.
35: * 1 means the first line inside a file. 0 means the line number is
36: * unknown.
37: */
38:
39: int cmdLine;
40:
41: /*
42: *----------------------------------------------------------------------
43: *
44: * DebugInfo --
45: *
46: * Construct a DebugInfo object with the given info.
47: *
48: * Results:
49: * None.
50: *
51: * Side effects:
52: * Member fields are initialized.
53: *
54: *----------------------------------------------------------------------
55: */
56:
57: DebugInfo(String fname, // Initial value for fileName.
58: int line) // Initial value for cmdLine.
59: {
60: fileName = fname;
61: cmdLine = line;
62: }
63:
64: } // end DebugInfo
|