64 lines
1.4 KiB
Perl
64 lines
1.4 KiB
Perl
#
|
|
# PerlServImpl.pm
|
|
#
|
|
# Copyright (c) 1999, Tuomas Lukka
|
|
#
|
|
# You may use and distribute under the terms of either the GNU Lesser
|
|
# General Public License, either version 2 of the license or,
|
|
# at your choice, any later version. Alternatively, you may use and
|
|
# distribute under the terms of the XPL.
|
|
#
|
|
# See the LICENSE.lgpl and LICENSE.xpl files for the specific terms of
|
|
# the licenses.
|
|
#
|
|
# This software is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the README
|
|
# file for more details.
|
|
|
|
|
|
FOR A MODEL ONLY - COPY & IMPLEMENT
|
|
|
|
# ref & lock handled by the sessions...
|
|
|
|
# gethead, sethead not implemented
|
|
#
|
|
sub _c_get {
|
|
my($this, $sess, $cfrom, $dim, $dir) = @_;
|
|
}
|
|
sub _c_new {
|
|
my($this, $sess, $cfrom, $dim, $dir) = @_;
|
|
}
|
|
sub _c_delete {
|
|
my($this, $sess, $cell) = @_;
|
|
}
|
|
sub _c_connect {
|
|
my($this, $sess, $cfrom, $dim, $cto) = @_;
|
|
}
|
|
sub _c_insert {
|
|
my($this, $sess, $cfrom, $dim, $dir, $cto) = @_;
|
|
}
|
|
sub _c_disconnect {
|
|
my($this, $sess, $cfrom, $dim, $dir) = @_;
|
|
}
|
|
sub _c_gettext {
|
|
my($this, $sess, $cell) = @_;
|
|
}
|
|
sub _c_settext {
|
|
my($this, $sess, $cell) = @_;
|
|
}
|
|
sub _c_ref {
|
|
my($this, $cell, $ref) = @_;
|
|
}
|
|
sub _c_lock {
|
|
my($this, $cell, $lock) = @_;
|
|
}
|
|
sub _c_unlock {
|
|
my($this, $cell, $lock) = @_;
|
|
}
|
|
sub _c_execute {
|
|
my($this, $script, $obj, $ctrl, $view) = @_;
|
|
}
|
|
|
|
|