<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML//EN">
<html> <head>
<title>Migration Guide from XOTcl 1 to XOTcl 2</title>
<style>
body {
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
background-color : white;
color: black;
}
code em {
/*font-family: cursive;*/
color: #888888;
}
code tt {
font-family: helvetica;
font-weight: 900;
}
code i {
font-style: italic;
color: green;
}
tt em {
font-family: cursive;
color: #888888;
}
th {color: #888888;}
td hr {color: #FFFFFF; margin: 10 10 10 10;}
/*table {font-size: 80%;}*/
table {width: 700;}
</style>
</head>
<body>
<h1>Introduction</h1>
... general text, maybe partly from slides/paper ....
<h2>Supporting XOTcl 1 in XOTcl 2</h2>
<p>
... multiple object systems ....
<p>
<code>::xotcl::use xotcl1</code>
<p>
<code>::xotcl::use xotcl2</code>
<p>
describe, what <code>::xotcl::use</code> does
<h1>XOTcl 1 Idioms in XOTcl 2</h1>
<h2>Defining Objects and Classes</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code>Class <i>ClassName</i></code></td>
<td><code>Class create <i>ClassName</i></code></td>
</tr>
<tr>
<td><code>Object <i>ObjectName</i></code></td>
<td><code>Object create <i>ObjectName</i></code></td>
</tr>
<tr>
<td><code>::xotcl::Class <i>ClassName</i></code></td>
<td><code>::xotcl2::Class create <i>ClassName</i></code></td>
</tr>
<tr>
<td><code>::xotcl::Object <i>ObjectName</i></code></td>
<td><code>::xotcl2::Object create <i>ObjectName</i></code></td>
</tr>
</table>
<h2>Defining Methods</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code>Class <i>C</i><br>
<i>C</i> instproc <i>foo args</i> {...}<br>
<i>C</i> proc <i>bar args</i> {...}<br>
</code></td>
<td><code>Class create <i>C</i> {<br>
.method <i>foo args</i> {...}<br>
.object method <i>bar args</i> {...}<br>
}<br></code><hr>
<code>Class create <i>C</i><br>
<i>C</i> method <i>foo args</i> {...}<br>
<i>C</i> object method <i>bar args</i> {...}<br>
</code></td>
</tr>
<tr>
<td><code>Object <i>o</i><br>
<i>o</i> set <i>x 1</i><br>
<i>o</i> proc <i>foo args</i> {...}<br>
</code></td>
<td><code>Object create <i>o</i> {<br>
set .<i>x 1</i><br>
.method <i>foo args</i> {...}<br>
}<br></code><hr>
<code>Object create <i>o</i><br>
<i>o</i> eval {set <i>.x 1</i>}</i><br>
<i># ::xotcl::setinstvar o x 1</i><br>
<i>o</i> method <i>foo args</i> {...}<br>
</code></td>
</tr>
</table>
<h2>Invoking Methods</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code>Class <i>C</i><br>
<i>C</i> instproc <i>foo args</i> {...}<br>
<i>C</i> instproc <i>bar args</i> {<br>
my <i>foo 1 2 3</i> ;# invoke own method<br>
<i>o baz</i> ;# invoke others method<br>
}<br>
Object <i>o</i><br>
<i>o</i> proc <i>baz</i> {} {...}<br>
</code></td>
<td><code>Class create <i>C</i> {<br>
.method <i>foo args</i> {...}<br>
.method <i>bar args</i> {<br>
.<i>foo 1 2 3</i> ;# invoke own method<br>
<i>o baz</i> ;# invoke others method<br>
}<br>
}</br>
Object create <i>o</i> {<br>
.method <i>baz</i> {} {...}<br>
}</br>
</code></td>
</tr>
</table>
<h2>Accessing Instance Variables from Method Bodies</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code>my set <i>varname value</i></code></td>
<td><code>set .<i>varname value</i></code></td>
</tr>
<tr>
<td><code>set <i>newVar</i> [my set <i>otherVar</i>]</code></td>
<td><code>set <i>newVar</i> [set <i>.otherVar</i>]</code><br><hr>
<code>set <i>newVar</i> ${.otherVar}</i></code><br>
</td>
</tr>
<tr>
<td><code>my instvar <i>newVar</i><br>
set <i>newVar value</i> </code>
</td>
<td><code>set <i>.newVar value</i></td>
</tr>
<tr>
<td><code>my exists <i>varname</i></code></td>
<td><code>info .<i>varname</i></code></td>
</tr>
</table>
<h2>Accessing Instance Variables of other Objects</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code><i>someObject</i> set <i>varname value</i></code></td>
<td><code><i>someObject</i> eval [list set <i>.varname value</i>]</code></td>
</tr>
<tr>
<td><code>set <i>newVar</i> [<i>someObject</i> set <i>otherVar</i>]</code></td>
<td><code>set <i>newVar</i> [<i>someObject</i> eval {set <i>.otherVar</i>}]</code><br>
</td>
</tr>
<tr>
<td><code><i>someObject</i> instvar <i>newVar</i><br>
set <i>newVar value</i> </code>
</td>
<td><code>::xotcl::importvar <i>someObject newVar</i><br>
set <i>newVar value</i></td>
</tr>
<tr>
<td><code><i>someObject</i> exists <i>varname</i></code></td>
<td><code><i>someObject</i> eval {info exists <i>.varname</i>}</code></td>
</tr>
</table>
<h2>Object Parameters</h2>
<h2>Method Parameters</h2>
<h2>Introspection</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code><i>someObject</i> info methods <i>?pattern?</i></code></td>
<td><code><i>someObject</i> info callable <i>?pattern?</i></code></td>
</tr>
<tr>
<td><code><i>someObject</i> procsearch <i>methodName</i></code></td>
<td><code><i>someObject</i> info callable -which <i>methodName</i></code></td>
</tr>
</table>
<h2>Predefined Methods</h2>
<h2>Dispatch, Aliases, etc.</h2>
<h2>Assertions</h2>
<table border=1>
<tr><th>XOTcl 1</th><th>XOTcl 2</th></tr>
<tr>
<td><code><i>objectName</i> check <i>checkptions</i></code></td>
<td><code>::xotcl::assertion <i>objectName</i> check <i>checkptions</i></code></td>
</tr>
<tr>
<td><code><i>objectName</i> info check</code></td>
<td><code>::xotcl::assertion <i>objectName</i> check</code></td>
</tr>
<tr>
<td><code><i>objectName</i> invar <i>conditions</i></code></td>
<td><code>::xotcl::assertion <i>objectName</i> object-invar <i>conditions</i></code></td>
</tr>
<tr>
<td><code><i>objectName</i> info invar</code></td>
<td><code>::xotcl::assertion <i>objectName</i> object-invar</code></td>
</tr>
<tr>
<td><code><i>className</i> instinvar <i>conditions</i></code></td>
<td><code>::xotcl::assertion <i>className</i> class-invar <i>conditions</i></code></td>
</tr>
<tr>
<td><code><i>className</i> info instinvar</code></td>
<td><code>::xotcl::assertion <i>className</i> class-invar</code></td>
</tr>
<tr>
<td><code><i>className</i> invar <i>conditions</i></code></td>
<td><code>::xotcl::assertion <i>className</i> object-invar <i>conditions</i></code></td>
</tr>
<tr>
<td><code><i>className</i> info invar</code></td>
<td><code>::xotcl::assertion <i>className</i> object-invar</code></td>
</tr
</table>
<h2>Method Protection</h2>
<hr>
<address></address>
<!-- hhmts start --> Last modified: Mon Jan 4 21:25:17 CET 2010 <!-- hhmts end -->
</body> </html>