From mboxrd@z Thu Jan  1 00:00:00 1970
From: Alan Schmitt <alan.schmitt@polytechnique.org>
Subject: Re: input data for babel blocks
Date: Tue, 01 Oct 2013 17:16:49 +0200
Message-ID: <m2had1nhr2.fsf@polytechnique.org>
References: <m2ioxicw2i.fsf@polytechnique.org>
	<loom.20130930T175447-718@post.gmane.org>
	<m2y56do1f2.fsf@polytechnique.org> <87r4c5p456.fsf@gmail.com>
	<m2k3hxno15.fsf@polytechnique.org>
	<354a40d3e967378379adfecadf7d4af4@mail.rickster.com>
Mime-Version: 1.0
Content-Type: text/plain
Return-path: <emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org>
Received: from eggs.gnu.org ([2001:4830:134:3::10]:56585)
	by lists.gnu.org with esmtp (Exim 4.71)
	(envelope-from <alan.schmitt@polytechnique.org>) id 1VR1h4-0006mz-84
	for emacs-orgmode@gnu.org; Tue, 01 Oct 2013 11:17:04 -0400
Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71)
	(envelope-from <alan.schmitt@polytechnique.org>) id 1VR1gx-0006uV-U4
	for emacs-orgmode@gnu.org; Tue, 01 Oct 2013 11:16:58 -0400
Received: from mail2-relais-roc.national.inria.fr ([192.134.164.83]:16060)
	by eggs.gnu.org with esmtp (Exim 4.71)
	(envelope-from <alan.schmitt@polytechnique.org>) id 1VR1gx-0006uE-NS
	for emacs-orgmode@gnu.org; Tue, 01 Oct 2013 11:16:51 -0400
In-reply-to: <354a40d3e967378379adfecadf7d4af4@mail.rickster.com>
List-Id: "General discussions about Org-mode." <emacs-orgmode.gnu.org>
List-Unsubscribe: <https://lists.gnu.org/mailman/options/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=unsubscribe>
List-Archive: <http://lists.gnu.org/archive/html/emacs-orgmode>
List-Post: <mailto:emacs-orgmode@gnu.org>
List-Help: <mailto:emacs-orgmode-request@gnu.org?subject=help>
List-Subscribe: <https://lists.gnu.org/mailman/listinfo/emacs-orgmode>,
	<mailto:emacs-orgmode-request@gnu.org?subject=subscribe>
Errors-To: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
Sender: emacs-orgmode-bounces+geo-emacs-orgmode=m.gmane.org@gnu.org
To: Rick Frankel <rick@rickster.com>
Cc: emacs-orgmode@gnu.org, Charles Berry <ccberry@ucsd.edu>, Eric Schulte <schulte.eric@gmail.com>

rick@rickster.com writes:

> You're close. The noweb ref should be a named src block which is
> executed, not expanded, so, (note the named shell source block and the
> parens in the noweb reference):
>
> #+name: testing
> #+BEGIN_SRC sh :results raw
> echo "["
> ls *.org | sed 's/$/;/'
> echo "]"
> #+END_SRC
>
> #+BEGIN_SRC ocaml :noweb yes
> let x =
> <<testing()>>
> in x
> #+END_SRC

Thanks a lot, that was the missing piece!

So, for the record, here is a way to convert a table as a list of tuples
for use in ocaml. Thanks again to everyone for the help in getting
there.

--8<---------------cut here---------------start------------->8---
#+name: mydata
| x | 1 | 1.4 |
| y | 2 | 4.5 |
| z | 3 | 7.0 |

#+name: table_to_tuple
#+BEGIN_SRC emacs-lisp :results raw :var v='()
  (message 
   (concat "["
           (mapconcat
            (lambda (vlist) 
              (concat "("
                      (mapconcat 
                       (lambda (val) (format "%S" val))
                       vlist
                       ", ")
                      ")"))
            v
            "; ")
           "]"))
#+END_SRC

#+BEGIN_SRC ocaml :noweb yes
let x =
<<table_to_tuple(mydata)>>
in x
#+END_SRC

#+RESULTS:
: - : (string * int * float) list =
: [("x", 1, 1.4); ("y", 2, 4.5); ("z", 3, 7.)]
--8<---------------cut here---------------end--------------->8---