File: example1.c

package info (click to toggle)
orc 1%3A0.4.6-2
  • links: PTS
  • area: main
  • in suites: squeeze
  • size: 3,856 kB
  • ctags: 2,889
  • sloc: ansic: 29,000; sh: 10,220; xml: 2,508; makefile: 196
file content (75 lines) | stat: -rw-r--r-- 1,758 bytes parent folder | download
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75


#include <stdio.h>

#include <orc/orcprogram.h>

#define N 10

orc_int16 a[N];
orc_int16 b[N];
orc_int16 c[N];

void add_s16(orc_int16 *dest, orc_int16 *src1, orc_int16 *src2, int n);


int
main (int argc, char *argv[])
{
  int i;

  /* orc_init() must be called before any other Orc function */
  orc_init ();

  /* Create some data in the source arrays */
  for(i=0;i<N;i++){
    a[i] = i;
    b[i] = 100;
  }

  /* Call a function that uses Orc */
  add_s16 (c, a, b, N);

  /* Print the results */
  for(i=0;i<N;i++){
    printf("%d: %d %d -> %d\n", i, a[i], b[i], c[i]);
  }

  return 0;
}

void
add_s16(orc_int16 *dest, orc_int16 *src1, orc_int16 *src2, int n)
{
  static OrcProgram *p = NULL;
  OrcExecutor _ex;
  OrcExecutor *ex = &_ex;

  if (p == NULL) {
    /* First time through, create the program */

    /* Create a new program with two sources and one destination.
     * Size of the members of each array is 2.  */
    p = orc_program_new_dss (2, 2, 2);

    /* Append an instruction to add the 2-byte values s1 and s2 (which
     * are the source arrays created above), and place the result in
     * the destination array d1, which was also create above.  */
    orc_program_append_str (p, "addw", "d1", "s1", "s2");

    /* Compile the program.  Ignore the very important result. */
    orc_program_compile (p);
  }

  /* Set the values on the executor structure */
  orc_executor_set_program (ex, p);
  orc_executor_set_n (ex, n);
  orc_executor_set_array_str (ex, "s1", src1);
  orc_executor_set_array_str (ex, "s2", src2);
  orc_executor_set_array_str (ex, "d1", dest);

  /* Run the program.  This calls the code that was generated above,
   * or, if the compilation failed, will emulate the program. */
  orc_executor_run (ex);
}