Bug: Babel: asymptote: erroneous conversion of heterogeneous-typed table

[Major A <andras.g.major@gmail.com>]

Hi,

I'd like to use asymptote to plot the values in an Org table.  The table
has cells with numbers but also cells with strings in them.  This table
gets converted to an array of strings in the resulting asymptote file,
with the strings escaped with double-quotes but not the numbers.  In
asymptote, this is an error, so that no plot is produced.

Here's the code:

  #+data: values
  | 0 | 0 | a |
  | 1 | 1 | b |
  | 2 | 3 | c |
  
  #+begin_src asymptote :file asy.png :var v=values
    size(100);
    draw((0,0)--(1,1));
  #+end_src

The temporary asymptote file created during evaluation or export looks
like this:

  string[][] v={
  {0,0,"a"},
  {1,1,"b"},
  {2,3,"c"}
  };

"asy" complains about this file like this:

  asymptote-12652XAo: 2.2: cannot cast 'int' to 'string'
  asymptote-12652XAo: 2.4: cannot cast 'int' to 'string'
  asymptote-12652XAo: 3.2: cannot cast 'int' to 'string'
  asymptote-12652XAo: 3.4: cannot cast 'int' to 'string'
  asymptote-12652XAo: 4.2: cannot cast 'int' to 'string'
  asymptote-12652XAo: 4.4: cannot cast 'int' to 'string'

Am I doing something wrong here?

I actually need this to work ASAP, so if anyone has any workable
solution, then please let me know.

  András




------------------------------------------------------------------------



Emacs  : GNU Emacs 23.3.1 (i486-pc-linux-gnu, GTK+ Version 2.24.3)
 of 2011-04-10 on raven, modified by Debian
Package: Org-mode version 7.7 (release_7.7.205.gce02a)

current state:
==============
(setq
 org-export-latex-after-initial-vars-hook '(org-beamer-after-initial-vars)
 org-speed-command-hook '(org-speed-command-default-hook org-babel-speed-command-hook)
 org-babel-load-languages '((asymptote . t) (ditaa . t) (dot . t) (gnuplot . t) (haskell . t) (latex . t) (octave . t)
 			  	           (R . t) (ruby . t) (scheme . t) (sh . t))
 org-metaup-hook '(org-babel-load-in-session-maybe)
 org-after-todo-state-change-hook '(org-clock-out-if-current)
 org-babel-tangle-lang-exts '(("ruby" . "rb") ("latex" . "tex") ("haskell" . "hs") ("asymptote" . "asy")
 			    	            ("emacs-lisp" . "el"))
 org-export-blocks-postblock-hook '(org-exp-res/src-name-cleanup)
 org-export-latex-format-toc-function 'org-export-latex-format-toc-default
 org-tab-first-hook '(org-hide-block-toggle-maybe org-src-native-tab-command-maybe org-babel-hide-result-toggle-maybe)
 org-src-mode-hook '(org-src-babel-configure-edit-buffer org-src-mode-configure-edit-buffer)
 org-confirm-shell-link-function 'yes-or-no-p
 org-export-first-hook '(org-beamer-initialize-open-trackers)
 org-agenda-before-write-hook '(org-agenda-add-entry-text)
 org-blank-before-new-entry nil
 org-babel-pre-tangle-hook '(save-buffer)
 org-cycle-hook '(org-cycle-hide-archived-subtrees org-cycle-hide-drawers org-cycle-show-empty-lines
 		  org-optimize-window-after-visibility-change)
 org-export-preprocess-before-normalizing-links-hook '(org-remove-file-link-modifiers)
 org-mode-hook '(#[nil "\300\301\302\303\304$\207" [org-add-hook change-major-mode-hook org-show-block-all append local]
 	          5]
			 #[nil "\300\301\302\303\304$\207"
			          [org-add-hook change-major-mode-hook org-babel-show-result-all append local] 5]
				  		 org-babel-result-hide-spec org-babel-hide-all-hashes)
 org-ctrl-c-ctrl-c-hook '(org-babel-hash-at-point org-babel-execute-safely-maybe)
 org-confirm-elisp-link-function 'yes-or-no-p
 org-export-interblocks '((lob org-babel-exp-lob-one-liners) (src org-babel-exp-inline-src-blocks))
 org-clock-out-hook '(org-clock-remove-empty-clock-drawer)
 org-occur-hook '(org-first-headline-recenter)
 org-from-is-user-regexp nil
 org-export-preprocess-before-selecting-backend-code-hook '(org-beamer-select-beamer-code)
 org-confirm-babel-evaluate nil
 org-export-latex-final-hook '(org-beamer-amend-header org-beamer-fix-toc org-beamer-auto-fragile-frames
 			     			              org-beamer-place-default-actions-for-lists)
 org-metadown-hook '(org-babel-pop-to-session-maybe)
 org-export-blocks '((src org-babel-exp-src-block nil) (comment org-export-blocks-format-comment t)
 		        (ditaa org-export-blocks-format-ditaa nil) (dot org-export-blocks-format-dot nil))
 )