all messages for Emacs-related lists mirrored at yhetil.org
 help / color / mirror / code / Atom feed
From: Eric Schulte <schulte.eric@gmail.com>
To: Roger Mason <rmason@mun.ca>
Cc: emacs-orgmode@gnu.org
Subject: Re: C code block: no return values
Date: Tue, 16 Apr 2013 12:45:27 -0600	[thread overview]
Message-ID: <878v4ico1k.fsf@gmail.com> (raw)
In-Reply-To: <516D73FD.8000206@mun.ca> (Roger Mason's message of "Tue, 16 Apr 2013 13:23:33 -0230")

Roger Mason <rmason@mun.ca> writes:

> Hello,
>
> I'm working through examples in "A Multi-Language Computing Environment for
> Literate Programming and Reproducible Research" by Shulte et al. J. 
> Stat. Software, 46/3, 2012.
>
> This example compiles but results are not returned to the Org-mode buffer:
> ========================================================
> #+name: cocktail.c
> #+begin_src C :noweb yes :tangle cocktail.c
> #include <stdio.h>
> <<cocktail-sort>>
> <<main>>
> #+end_src
>
> #+name: main
> #+begin_src C
> int main(int argc, char *argv[]) {
> int lst[argc-1];
> int i;
> for(i=1;i<argc;i++)
> lst[i-1] = atoi(argv[i]);
> sort(lst, argc-1);
> for(i=1;i<argc;i++)
> printf("%d ", lst[i-1]);
> printf("\n");
> }
> #+end_src
>
> #+name: cocktail-sort
> #+begin_src C :noweb yes
> void sort(int *a, unsigned int l)
> {
> int swapped = 0;
> int i;
> do {
> for(i=0; i < (l-1); i++) {
> <<swap>>
> }
> if ( swapped == 0 ) break;
> swapped = 0;
> for(i= l - 2; i >= 0; i--) {
> <<swap>>
> }
> } while(swapped > 0);
> }
> #+end_src
>
> #+name: swap
> #+begin_src C
> if ( a[i] > a[i+1] ) {
> int temp = a[i];
> a[i] = a[i+1];
> a[i+1] = temp;
> swapped = 1;
> }
> #+end_src
>
> #+call: cocktail.c[:cmdline 8 7 6 3 2 4 78]()
> ===========================================
>
> Running C-c on the "call" line above produces:
>
> ===============================
> #+RESULTS: cocktail.c[:cmdline 8 7 6 3 2 4 78]()
> ================================
>
> The answers should be here.  But they aren't.
>
> Thanks for any help.
>
> Roger
>

Hi Roger,

Since the publication of that paper, the code block execution engine has
begun checking the return value of the invoked program to ensure it
exits with success before parsing the output.  The C program in this
example actually returns the value of the final printf, which is
non-zero and looks like a return.

To get this example working with the latest version of Org-mode, one
needs to added a "return 0;" to the end of the last code block, yielding
the following.

#+name: main
#+begin_src C
int main(int argc, char *argv[]) {
int lst[argc-1];
int i;
for(i=1;i<argc;i++)
lst[i-1] = atoi(argv[i]);
sort(lst, argc-1);
for(i=1;i<argc;i++)
printf("%d ", lst[i-1]);
printf("\n");
return 0;
}
#+end_src

With this change the example works as expected on my system.

Org-mode should do a better job of alerting the user to the reason why
it is not returning a result.

Cheers,

-- 
Eric Schulte
http://cs.unm.edu/~eschulte

  reply	other threads:[~2013-04-16 18:46 UTC|newest]

Thread overview: 3+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2013-04-16 15:53 C code block: no return values Roger Mason
2013-04-16 18:45 ` Eric Schulte [this message]
2013-04-16 18:57   ` Roger Mason

Reply instructions:

You may reply publicly to this message via plain-text email
using any one of the following methods:

* Save the following mbox file, import it into your mail client,
  and reply-to-all from there: mbox

  Avoid top-posting and favor interleaved quoting:
  https://en.wikipedia.org/wiki/Posting_style#Interleaved_style

* Reply using the --to, --cc, and --in-reply-to
  switches of git-send-email(1):

  git send-email \
    --in-reply-to=878v4ico1k.fsf@gmail.com \
    --to=schulte.eric@gmail.com \
    --cc=emacs-orgmode@gnu.org \
    --cc=rmason@mun.ca \
    /path/to/YOUR_REPLY

  https://kernel.org/pub/software/scm/git/docs/git-send-email.html

* If your mail client supports setting the In-Reply-To header
  via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line before the message body.
Code repositories for project(s) associated with this external index

	https://git.savannah.gnu.org/cgit/emacs.git
	https://git.savannah.gnu.org/cgit/emacs/org-mode.git

This is an external index of several public inboxes,
see mirroring instructions on how to clone and mirror
all data and code used by this external index.