testing/examples/ob-C-test.org

   1 #+Title: a collection of examples for ob-C tests
   2 #+OPTIONS: ^:nil
   3 * Simple tests
   4   :PROPERTIES:
   5   :ID:       fa6db330-e960-4ea2-ac67-94bb845b8577
   6   :END:
   7 #+source: simple
   8 #+begin_src cpp :includes "<iostream>" :results silent
   9   std::cout << 42;
  10   return 0;
  11 #+end_src
  12
  13 #+source: integer_var
  14 #+begin_src cpp :var q=12 :includes "<iostream>" :results silent
  15   std::cout << q;
  16   return 0;
  17 #+end_src
  18
  19 #+source: two_var
  20 #+begin_src cpp :var q=12 :var p=10 :includes "<iostream>" :results silent
  21   std::cout << p+q;
  22   return 0;
  23 #+end_src
  24
  25 #+source: string_var
  26 #+begin_src cpp :var q="word" :includes '(<iostream> <cstring>) :results silent
  27   std::cout << q << ' ' << std::strlen(q);
  28   return 0;
  29 #+end_src
  30
  31 #+source: define
  32 #+begin_src cpp :defines N 42  :includes "<iostream>" :results silent
  33   std::cout << N;
  34   return 0;
  35 #+end_src
  36
  37 * Array
  38   :PROPERTIES:
  39   :ID:       2df1ab83-3fa3-462a-a1f3-3aef6044a874
  40   :END:
  41 #+source: array
  42 #+begin_src cpp :includes "<iostream>" :results vector :results silent
  43   for (int i=1; i<3; i++) {
  44     std::cout << i << '\n';
  45   }
  46   return 0;
  47 #+end_src
  48 * Matrix
  49   :PROPERTIES:
  50   :ID:       cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5
  51   :END:
  52 #+name: C-matrix
  53 | 1 | 2 |
  54 | 3 | 4 |
  55
  56 #+source: list_var
  57 #+begin_src cpp :var a='("abc" "def") :includes "<iostream>" :results silent
  58   std::cout << a[0] << a[1] << sizeof(a)/sizeof(*a) << '\n';
  59 #+end_src
  60
  61 #+source: vector_var
  62 #+begin_src cpp :var a='[1 2] :includes "<iostream>" :results silent
  63   std::cout << a[0] << a[1] << sizeof(a)/sizeof(*a) << '\n';
  64 #+end_src
  65
  66 #+source: list_list_var
  67 #+begin_src cpp :var q=C-matrix :includes "<iostream>" :results silent
  68   std::cout << q[0][0] << ' ' << q[1][0] << '\n'
  69             << q[0][1] << ' ' << q[1][1] << '\n'; // transpose
  70 #+end_src