Commit e16990e9 authored by Ariel Rios's avatar Ariel Rios Committed by Ariel Rios

Add copyright notice. Update documentation.

2000-11-12  Ariel Rios  <ariel@arcavia.com>

* plugin.c: Add copyright notice.
* doc/guile-gnumeric.txt: Update documentation.
parent aa395625
......@@ -91,21 +91,21 @@ This function is already included on the gnumeric distribution.
;; (fibonacci 20) => 6765
;; (fibonacci 30) => 832040
(define (fibo n)
(letrec ((fibof
(lambda (n a b)
(if (<= n 2)
b
(fibof (- n 1) b (+ a b))))))
(fibof n 1 1)))
(register-function
(define (fibo k)
(let ((n (value-get-as-int k)))
(letrec ((fibof
(lambda (n a b)
(if (<= n 2)
b
(fibof (- n 1) b (+ a b))))))
(value-new-float (fibof n 1 1)))))
(register-function
"fibo" "f"
"@FUNCTION=FIBO
@SYNTAX=FIBO(num)
@SYNTAX=FIBO(num)
@DESCRIPTION=Returns the fibonnacci computation for number."
"Guile"
fibo)
You are now able to use you newly designed formula with:
......@@ -113,12 +113,11 @@ You are now able to use you newly designed formula with:
5. Using gnumeric Value implementation.
The Guile plugin has support for gnumeric value implementation; this implementation
will be used in the future to get values from gnumeric and send them back
from the Scheme world. This is used by creating a new smob that adds
The Guile plugin has support for gnumeric value implementation;
this is used by creating a new smob that adds
Value as new Guile data type.
-To create a new value the following set of functions is (or will be) available:
-To create a new value the following set of functions:
(make-val scm)
Receives an int, float, string, bool or array and returns a new value smob.
......@@ -133,7 +132,6 @@ This function will be deprecated.
(value-new-array-list scm)
This functions receive a scm object and returns a new value smob.
* Not yet available
-To get the value of the smob depending on its type:
......@@ -149,3 +147,5 @@ allocated within the smob.
......@@ -91,21 +91,21 @@ This function is already included on the gnumeric distribution.
;; (fibonacci 20) => 6765
;; (fibonacci 30) => 832040
(define (fibo n)
(letrec ((fibof
(lambda (n a b)
(if (<= n 2)
b
(fibof (- n 1) b (+ a b))))))
(fibof n 1 1)))
(register-function
(define (fibo k)
(let ((n (value-get-as-int k)))
(letrec ((fibof
(lambda (n a b)
(if (<= n 2)
b
(fibof (- n 1) b (+ a b))))))
(value-new-float (fibof n 1 1)))))
(register-function
"fibo" "f"
"@FUNCTION=FIBO
@SYNTAX=FIBO(num)
@SYNTAX=FIBO(num)
@DESCRIPTION=Returns the fibonnacci computation for number."
"Guile"
fibo)
You are now able to use you newly designed formula with:
......@@ -113,12 +113,11 @@ You are now able to use you newly designed formula with:
5. Using gnumeric Value implementation.
The Guile plugin has support for gnumeric value implementation; this implementation
will be used in the future to get values from gnumeric and send them back
from the Scheme world. This is used by creating a new smob that adds
The Guile plugin has support for gnumeric value implementation;
this is used by creating a new smob that adds
Value as new Guile data type.
-To create a new value the following set of functions is (or will be) available:
-To create a new value the following set of functions:
(make-val scm)
Receives an int, float, string, bool or array and returns a new value smob.
......@@ -133,7 +132,6 @@ This function will be deprecated.
(value-new-array-list scm)
This functions receive a scm object and returns a new value smob.
* Not yet available
-To get the value of the smob depending on its type:
......@@ -149,3 +147,5 @@ allocated within the smob.
2000-11-12 Ariel Rios <ariel@arcavia.com>
* plugin.c: Add copyright notice.
* doc/guile-gnumeric.txt: Update documentation.
2000-11-12 Ariel Rios <ariel@arcavia.com>
* functions.scm (fibo): Return value smob
......
/* -*- mode: c; c-basic-offset: 8 -*- */
/*
Authors: Mark Probst
Ariel Rios <ariel@arcavia.com>
Copyright Mark Probst, Ariel Rios 2000
*/
*
* Authors: Mark Probst
* Ariel Rios <ariel@arcavia.com>
* Copyright Mark Probst, Ariel Rios 2000
*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2, or (at your option)
* any later version.
*
* This program 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
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this software; see the file COPYING. If not, write to
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
* Boston, MA 02111-1307 USA
*/
#include <config.h>
#include <glib.h>
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment