File: startup.pl

package info (click to toggle)
gnumeric 1.4.3-4
  • links: PTS
  • area: main
  • in suites: sarge
  • size: 71,576 kB
  • ctags: 28,555
  • sloc: ansic: 282,333; xml: 45,788; sh: 8,479; makefile: 3,119; yacc: 1,129; lisp: 200; perl: 173; python: 86
file content (25 lines) | stat: -rw-r--r-- 456 bytes parent folder | download 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
# TODO :
# Change this file to read in other Perl files and not register the
# example function!!!
#

use Gnumeric;

sub foobar
{
  my($a,$b) = @_;
  print "Adding $a and $b.\n";
  return $a + $b;
}

$help_foobar = <<'EOS';
@FUNCTION=PERL_ADDER_OLD
@SYNTAX=PERL_ADDER_OLD(a,b)
@DESCRIPTION=
Adds two numbers. It is just an example function.
EOS

Gnumeric::register_function("perl_adder_old", "ff", "a,b", $help_foobar, \&foobar);

print "Hello World.\n";