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: simple
  14 #+begin_src D :results silent
  15   writefln ("%s", 42);
  16 #+end_src
  17
  18 #+source: integer_var
  19 #+begin_src cpp :var q=12 :includes "<iostream>" :results silent
  20   std::cout << q;
  21   return 0;
  22 #+end_src
  23
  24 #+source: integer_var
  25 #+begin_src D :var q=12 :results silent
  26   writefln ("%s", q);
  27 #+end_src
  28
  29 #+source: two_var
  30 #+begin_src cpp :var q=12 :var p=10 :includes "<iostream>" :results silent
  31   std::cout << p+q;
  32   return 0;
  33 #+end_src
  34
  35 #+source: two_var
  36 #+begin_src D :var q=12 :var p=10 :results silent
  37   writefln ("%s", p+q);
  38 #+end_src
  39
  40 #+source: string_var
  41 #+begin_src cpp :var q="word" :includes '(<iostream> <cstring>) :results silent
  42   std::cout << q << ' ' << std::strlen(q);
  43   return 0;
  44 #+end_src
  45
  46 #+source: string_var
  47 #+begin_src D :var q="word" :results silent
  48   writefln ("%s %s", q, q.length);
  49 #+end_src
  50
  51 #+source: define
  52 #+begin_src cpp :defines N 42  :includes "<iostream>" :results silent
  53   std::cout << N;
  54   return 0;
  55 #+end_src
  56
  57 * Array
  58   :PROPERTIES:
  59   :ID:       2df1ab83-3fa3-462a-a1f3-3aef6044a874
  60   :END:
  61 #+source: array
  62 #+begin_src cpp :includes "<iostream>" :results vector :results silent
  63   for (int i=1; i<3; i++) {
  64     std::cout << i << '\n';
  65   }
  66   return 0;
  67 #+end_src
  68
  69 #+source: array
  70 #+begin_src D :results vector :results silent
  71   foreach (i; 1..3)
  72     writefln ("%s", i);
  73 #+end_src
  74
  75 * Matrix
  76   :PROPERTIES:
  77   :ID:       cc65d6b3-8e8e-4f9c-94cd-f5a00cdeceb5
  78   :END:
  79 #+name: C-matrix
  80 | 1 | 2 |
  81 | 3 | 4 |
  82
  83 #+source: list_var
  84 #+begin_src cpp :var a='("abc" "def") :includes "<iostream>" :results silent
  85   std::cout << a[0] << a[1] << sizeof(a)/sizeof(*a) << '\n';
  86 #+end_src
  87
  88 #+source: list_var
  89 #+begin_src D :var a='("abc" "def") :results silent
  90   writefln ("%s%s%s", a[0], a[1], a.length);
  91 #+end_src
  92
  93 #+source: vector_var
  94 #+begin_src cpp :var a='[1 2] :includes "<iostream>" :results silent
  95   std::cout << a[0] << a[1] << sizeof(a)/sizeof(*a) << '\n';
  96 #+end_src
  97
  98 #+source: vector_var
  99 #+begin_src D :var a='[1 2] :results silent
 100   writefln ("%s%s%s", a[0], a[1], a.length);
 101 #+end_src
 102
 103 #+source: list_list_var
 104 #+begin_src cpp :var q=C-matrix :includes "<iostream>" :results silent
 105   std::cout << q[0][0] << ' ' << q[1][0] << '\n'
 106             << q[0][1] << ' ' << q[1][1] << '\n'; // transpose
 107 #+end_src
 108
 109 #+source: list_list_var
 110 #+begin_src D :var q=C-matrix :results silent
 111   writefln ("%s %s", q[0][0], q[1][0]);
 112   writefln ("%s %s", q[0][1], q[1][1]); // transpose
 113 #+end_src
 114
 115 * Inhomogeneous table
 116   :PROPERTIES:
 117   :ID:       e112bc2e-419a-4890-99c2-7ac4779531cc
 118   :END:
 119
 120 #+tblname: tinomogen
 121   | day       | quty |
 122   |-----------+------|
 123   | monday    |   34 |
 124   | tuesday   |   41 |
 125   | wednesday |   56 |
 126   | thursday  |   17 |
 127   | friday    |   12 |
 128   | saturday  |    7 |
 129   | sunday    |    4 |
 130
 131 #+source: inhomogeneous_table
 132 #+begin_src cpp :var tinomogen=tinomogen :results silent
 133 int main()
 134 {
 135   int i, j;
 136   for (i=0; i<tinomogen_rows; i++) {
 137     for (j=0; j<tinomogen_cols; j++)
 138       printf ("%s ", tinomogen[i][j]);
 139     printf ("\n");
 140   }
 141   printf ("Friday %s\n", tinomogen_h(4,"day"));
 142   return 0;
 143 }
 144 #+end_src
 145
 146 #+source: inhomogeneous_table
 147 #+begin_src D :var tinomogen=tinomogen :results silent
 148 import std.stdio;
 149 void main()
 150 {
 151   for (int i=0; i<tinomogen_rows; i++) {
 152     for (int j=0; j<tinomogen_cols; j++)
 153       writef ("%s ", tinomogen[i][j]);
 154     writeln();
 155   }
 156   writefln ("Friday %s\n", tinomogen_h(4,"day"));
 157 }
 158 #+end_src