divorce/gzz-mirror
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

created mirror

Browse Source
This commit is contained in:
whatever
2026-09-14 20:19:29 -04:00
commit 6764738d92
600 changed files with 87187 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

63
Perl/PerlServImpl.pm Normal file
View File

@@ -0,0 +1,63 @@
#
# 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) = @_;
}