1

<?xml version="1.0" encoding="UTF-8" standalone="no"?>

     3

  <includes>

     6

  </includes>

     7

  <variables>

     8

    <variable name="TestInput" type="SINT" initial="0"/>

     9

    <variable name="TestOutput" type="SINT"/>

    10

  </variables>

    11

  <globals>

    14

volatile char PtoC=1,CtoP=2;

    15

    16

extern long AtomicCompareExchange(long*,long, long);

    17

    18

int Simple_C_Call(int val){

    19

  return val+1;

    20

}

    21

    22

int Python_to_C_Call(char toC, char *fromC){

    23

  /* Code called by python should never touch to 

    24

     variables modified by PLC thread directly

    25

    26

     AtomicCompareExchange comes from 

    27

     beremiz' runtime implementation */

    28

    29

  int res = 0;

    30

  if(!AtomicCompareExchange((long*)&Lock, 0, 1)){

    31

    PtoC=toC;

    32

    *fromC=CtoP;

    33

    AtomicCompareExchange((long*)&Lock, 1, 0);

    34

    res=1;

    35

  }

    36

  printf("C code called by Python: toC %d fromC %d\n",toC,*fromC);

    37

  return res;

    38

}

    39

    40

int PLC_C_Call(char fromPLC, char *toPLC){

    41

  /* PLC also have to be realy carefull not to 

    42

     conflict with asynchronous python access */

    43

  if(!AtomicCompareExchange((long*)&Lock, 0, 1)){

    44

      CtoP = fromPLC;

    45

      *toPLC = PtoC;

    46

      AtomicCompareExchange((long*)&Lock, 1, 0);

    47

      return 1;

    48

  }

    49

  return 0;

    52

  </globals>

    53

  <initFunction>

    56

  </initFunction>

    57

  <cleanUpFunction>

    60

  </cleanUpFunction>

    61

  <retrieveFunction>

    64

  </retrieveFunction>

    65

  <publishFunction>

    68

    TestInput = CtoP + PtoC + TestOutput;

    69

    AtomicCompareExchange((long*)&Lock, 1, 0);

    72

  </publishFunction>