'\"
|
'\"
|
'\" Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
'\" Copyright (c) 1993-1998 Lucent Technologies, Inc.
|
'\"
|
'\"
|
'\" See the file "license.terms" for information on usage and redistribution
|
'\" See the file "license.terms" for information on usage and redistribution
|
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
'\" of this file, and for a DISCLAIMER OF ALL WARRANTIES.
|
'\"
|
'\"
|
'\" RCS: $Id: body.n,v 1.1.1.1 2002-01-16 10:24:46 markom Exp $
|
'\" RCS: $Id: body.n,v 1.1.1.1 2002-01-16 10:24:46 markom Exp $
|
'\"
|
'\"
|
.so man.macros
|
.so man.macros
|
.TH body n 3.0 itcl "[incr\ Tcl]"
|
.TH body n 3.0 itcl "[incr\ Tcl]"
|
.BS
|
.BS
|
'\" Note: do not modify the .SH NAME line immediately below!
|
'\" Note: do not modify the .SH NAME line immediately below!
|
.SH NAME
|
.SH NAME
|
body \- change the body for a class method/proc
|
body \- change the body for a class method/proc
|
.SH SYNOPSIS
|
.SH SYNOPSIS
|
\fBbody \fIclassName\fB::\fIfunction args body\fR
|
\fBbody \fIclassName\fB::\fIfunction args body\fR
|
.BE
|
.BE
|
|
|
.SH DESCRIPTION
|
.SH DESCRIPTION
|
.PP
|
.PP
|
The \fBbody\fR command is used outside of an \fB[incr\ Tcl]\fR
|
The \fBbody\fR command is used outside of an \fB[incr\ Tcl]\fR
|
class definition to define or redefine the body of a class
|
class definition to define or redefine the body of a class
|
method or proc. This facility allows a class definition
|
method or proc. This facility allows a class definition
|
to have separate "interface" and "implementation" parts.
|
to have separate "interface" and "implementation" parts.
|
The "interface" part is a \fBclass\fR command with declarations
|
The "interface" part is a \fBclass\fR command with declarations
|
for methods, procs, instance variables and common variables.
|
for methods, procs, instance variables and common variables.
|
The "implementation" part is a series of \fBbody\fR and
|
The "implementation" part is a series of \fBbody\fR and
|
\fBconfigbody\fR commands. If the "implementation" part
|
\fBconfigbody\fR commands. If the "implementation" part
|
is kept in a separate file, it can be sourced again and
|
is kept in a separate file, it can be sourced again and
|
again as bugs are fixed, to support interactive development.
|
again as bugs are fixed, to support interactive development.
|
When using the "tcl" mode in the \fBemacs\fR editor, the
|
When using the "tcl" mode in the \fBemacs\fR editor, the
|
"interface" and "implementation" parts can be kept in the
|
"interface" and "implementation" parts can be kept in the
|
same file; as bugs are fixed, individual bodies can be
|
same file; as bugs are fixed, individual bodies can be
|
highlighted and sent to the test application.
|
highlighted and sent to the test application.
|
.PP
|
.PP
|
The name "\fIclassName\fB::\fIfunction\fR"
|
The name "\fIclassName\fB::\fIfunction\fR"
|
identifies the method/proc being changed.
|
identifies the method/proc being changed.
|
.PP
|
.PP
|
If an \fIargs\fR list was specified when the \fIfunction\fR was
|
If an \fIargs\fR list was specified when the \fIfunction\fR was
|
defined in the class definition, the \fIargs\fR list for the
|
defined in the class definition, the \fIargs\fR list for the
|
\fBbody\fR command must match in meaning. Variable names
|
\fBbody\fR command must match in meaning. Variable names
|
can change, but the argument lists must have the same required
|
can change, but the argument lists must have the same required
|
arguments and the same default values for optional arguments.
|
arguments and the same default values for optional arguments.
|
The special \fBargs\fR argument acts as a wildcard when included
|
The special \fBargs\fR argument acts as a wildcard when included
|
in the \fIargs\fR list in the class definition; it will match
|
in the \fIargs\fR list in the class definition; it will match
|
zero or more arguments of any type when the body is redefined.
|
zero or more arguments of any type when the body is redefined.
|
.PP
|
.PP
|
If the \fIbody\fR string starts with "\fB@\fR", it is treated
|
If the \fIbody\fR string starts with "\fB@\fR", it is treated
|
as the symbolic name for a C procedure. The \fIargs\fR list
|
as the symbolic name for a C procedure. The \fIargs\fR list
|
has little meaning for the C procedure, except to document
|
has little meaning for the C procedure, except to document
|
the expected usage. (The C procedure is not guaranteed to
|
the expected usage. (The C procedure is not guaranteed to
|
use arguments in this manner.) If \fIbody\fR does not start
|
use arguments in this manner.) If \fIbody\fR does not start
|
with "\fB@\fR", it is treated as a Tcl command script. When
|
with "\fB@\fR", it is treated as a Tcl command script. When
|
the function is invoked, command line arguments are matched
|
the function is invoked, command line arguments are matched
|
against the \fIargs\fR list, and local variables are created
|
against the \fIargs\fR list, and local variables are created
|
to represent each argument. This is the usual behavior for
|
to represent each argument. This is the usual behavior for
|
a Tcl-style proc.
|
a Tcl-style proc.
|
.PP
|
.PP
|
Symbolic names for C procedures are established by registering
|
Symbolic names for C procedures are established by registering
|
procedures via \fBItcl_RegisterC()\fR. This is usually done
|
procedures via \fBItcl_RegisterC()\fR. This is usually done
|
in the \fBTcl_AppInit()\fR procedure, which is automatically called
|
in the \fBTcl_AppInit()\fR procedure, which is automatically called
|
when the interpreter starts up. In the following example,
|
when the interpreter starts up. In the following example,
|
the procedure \fCMy_FooCmd()\fR is registered with the
|
the procedure \fCMy_FooCmd()\fR is registered with the
|
symbolic name "foo". This procedure can be referenced in
|
symbolic name "foo". This procedure can be referenced in
|
the \fBbody\fR command as "\fC@foo\fR".
|
the \fBbody\fR command as "\fC@foo\fR".
|
.CS
|
.CS
|
int
|
int
|
Tcl_AppInit(interp)
|
Tcl_AppInit(interp)
|
Tcl_Interp *interp; /* Interpreter for application. */
|
Tcl_Interp *interp; /* Interpreter for application. */
|
{
|
{
|
if (Itcl_Init(interp) == TCL_ERROR) {
|
if (Itcl_Init(interp) == TCL_ERROR) {
|
return TCL_ERROR;
|
return TCL_ERROR;
|
}
|
}
|
|
|
if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) {
|
if (Itcl_RegisterC(interp, "foo", My_FooCmd) != TCL_OK) {
|
return TCL_ERROR;
|
return TCL_ERROR;
|
}
|
}
|
}
|
}
|
.CE
|
.CE
|
|
|
.SH EXAMPLE
|
.SH EXAMPLE
|
In the following example, a "File" class is defined to represent
|
In the following example, a "File" class is defined to represent
|
open files. The method bodies are included below the class
|
open files. The method bodies are included below the class
|
definition via the \fBbody\fR command. Note that the bodies
|
definition via the \fBbody\fR command. Note that the bodies
|
of the constructor/destructor must be included in the class
|
of the constructor/destructor must be included in the class
|
definition, but they can be redefined via the \fBbody\fR command
|
definition, but they can be redefined via the \fBbody\fR command
|
as well.
|
as well.
|
.CS
|
.CS
|
class File {
|
class File {
|
private variable fid ""
|
private variable fid ""
|
constructor {name access} {
|
constructor {name access} {
|
set fid [open $name $access]
|
set fid [open $name $access]
|
}
|
}
|
destructor {
|
destructor {
|
close $fid
|
close $fid
|
}
|
}
|
|
|
method get {}
|
method get {}
|
method put {line}
|
method put {line}
|
method eof {}
|
method eof {}
|
}
|
}
|
|
|
body File::get {} {
|
body File::get {} {
|
return [gets $fid]
|
return [gets $fid]
|
}
|
}
|
body File::put {line} {
|
body File::put {line} {
|
puts $fid $line
|
puts $fid $line
|
}
|
}
|
body File::eof {} {
|
body File::eof {} {
|
return [::eof $fid]
|
return [::eof $fid]
|
}
|
}
|
|
|
#
|
#
|
# See the File class in action:
|
# See the File class in action:
|
#
|
#
|
File x /etc/passwd "r"
|
File x /etc/passwd "r"
|
while {![x eof]} {
|
while {![x eof]} {
|
puts "=> [x get]"
|
puts "=> [x get]"
|
}
|
}
|
delete object x
|
delete object x
|
.CE
|
.CE
|
|
|
.SH KEYWORDS
|
.SH KEYWORDS
|
class, object, procedure
|
class, object, procedure
|
|
|
