Applying a user-defined function to cols in table

Applying a user-defined function to cols in table

[charles snyder]

[-- Attachment #1.1: Type: text/plain, Size: 943 bytes --]

Hi

I am trying to apply a function to one column in a table and output the
result to another column. The function looks like this:

(defun yahoo (stock_symbol)
   (let (url contents fields price-string price)
     (setf url "http://finance.yahoo.com/d/quotes.csv?s=")
     (str+! url stock_symbol)
     (str+! url "&f=sl1d1t1c1ohgv&e=.csv")
     (setf contents (http-get url))
     (setf fields (split-sequence #\, contents))
     (setf price-string (second fields))
     (setf price (read-from-string price-string))
     price))


This table looks like this:

|  !   | stockname | symbol | shares | curr_price |
|  1  |      apple     | aapl   |    800 |            |
|  2  |    google       | goog  |   2100 |         |
#+TBLFM: $5= yahoo $3

(I'm using org 6.06b, gnu emacs 22.2 on a mac.)


I have tried some other variants without success.
Is this even possible?

Thanks!

-- 
Charles L. Snyder, MD
Professor of Surgery
www.clsnyder.com

[-- Attachment #1.2: Type: text/html, Size: 1616 bytes --]

[-- Attachment #2: Type: text/plain, Size: 204 bytes --]

_______________________________________________
Emacs-orgmode mailing list
Remember: use `Reply All' to send replies to the list.
Emacs-orgmode@gnu.org
http://lists.gnu.org/mailman/listinfo/emacs-orgmode

Re: Applying a user-defined function to cols in table

[Nick Dokos]

charles snyder <clsnyder@gmail.com> wrote:

> I am trying to apply a function to one column in a table and output the result to another column. The function looks like this:
> 
> (defun yahoo (stock_symbol)
>    (let (url contents fields price-string price)
>      (setf url "http://finance.yahoo.com/d/quotes.csv?s=")
>      (str+! url stock_symbol)
>      (str+! url "&f=sl1d1t1c1ohgv&e=.csv")
>      (setf contents (http-get url))
>      (setf fields (split-sequence #\, contents))
>      (setf price-string (second fields))
>      (setf price (read-from-string price-string))
>      price))
> 
> This table looks like this:
> 
> |  !   | stockname | symbol | shares | curr_price |
> |  1  |      apple     | aapl   |    800 |            |
> |  2  |    google       | goog  |   2100 |         |
> #+TBLFM: $5= yahoo $3
> 
> (I'm using org 6.06b, gnu emacs 22.2 on a mac.)
> 

Here is a simple example of a user-defined function. I think this proves
it's possible:

| 1 | 3 |
|   | 2 |
#+TBLFM: $2 = foo($1)

(defun calcFunc-foo (x)
   (+ x 2))

See [[info:calc:Defining%20Functions][info:calc:Defining Functions]] for
the details.

IOW, you'll have to rename your function and fix the TBLFM line at the
very least. Whether the function itself works as desired will be left as
an exercise for the interested reader !-)

HTH,
Nick