CPAL Playground

/* Copyright (C) 2016, RealTime-at-Work, All Rights Reserved
 *
 * You may use, copy, reproduce, and distribute this sample cource code for any non-commercial purpose.
 * Some purposes which can be non-commercial are teaching, academic research,
 * public demonstrations and personal experimentation. You may also distribute this Software
 * with books or other teaching materials, or publish the Software on websites,
 * that are intended to teaching for academic or other non-commercial purposes.
 *
 * In return, we simply require that you agree: 
 * 1. That you will not remove any copyright or other notices from the Software.
 * 2. THAT THE SOFTWARE COMES "AS IS", WITH NO WARRANTIES. THIS MEANS NO EXPRESS, 
 *    IMPLIED OR STATUTORY WARRANTY.
 *
 * @keywords frdm k64f; serial port, uart
 *
 * A simple echo program on serial port (UART).
 */

processdef Echo(
  in channel<uint8>: uart_in,
  out channel<uint8>: uart_out)
{

state Main {
      var uint8: c;
      while (uart_in.not_empty()) {
        c = uart_in.pop();
        IO.print("echo %u: %u", self.pid, c);
        uart_out.push(c);
      }
    }
}

processdef Alive(
  in channel<uint8>: uart_in,
  out channel<uint8>: uart_out)
{

state Main {
      IO.println("Alive");
      uart_out.push(65);
      uart_out.push(108);
      uart_out.push(105);
      uart_out.push(118);
      uart_out.push(101);
    }
}

/* uart1 */
var queue<uint8>: pin_uart_c04_c03_out[20];
var queue<uint8>: pin_uart_c04_c03_in[20];

process Echo: p1[200ms](pin_uart_c04_c03_in, pin_uart_c04_c03_out);
/* process Alive: p2[5s](pin_uart_c04_c03_in, pin_uart_c04_c03_out); */

for ms or try the desktop editor with advanced diagram views

Simulation
Tasks diagram


Quiet mode disabled
[0.000000000000:ASSIGN] Assign cpal_system new value: Scheduling_Policy.FIFO
[0.000000000000:uart-echo:STARTING_TASK] 'p1'
[0.000000000000:STATE] process "Echo", instance "p1", state "Main"
[0.000000000000:uart-echo:TASK_FINISHED] 'p1'
[0.200000000000:uart-echo:STARTING_TASK] 'p1'
[0.200000000000:uart-echo:TASK_FINISHED] 'p1'
[0.400000000000:uart-echo:STARTING_TASK] 'p1'
[0.400000000000:uart-echo:TASK_FINISHED] 'p1'
[0.600000000000:uart-echo:STARTING_TASK] 'p1'
[0.600000000000:uart-echo:TASK_FINISHED] 'p1'
[0.800000000000:uart-echo:STARTING_TASK] 'p1'
[0.800000000000:uart-echo:TASK_FINISHED] 'p1'
[1.000000000000:uart-echo:STARTING_TASK] 'p1'
[1.000000000000:uart-echo:TASK_FINISHED] 'p1'
[1.200000000000:uart-echo:STARTING_TASK] 'p1'
[1.200000000000:uart-echo:TASK_FINISHED] 'p1'
[1.400000000000:uart-echo:STARTING_TASK] 'p1'
[1.400000000000:uart-echo:TASK_FINISHED] 'p1'
[1.600000000000:uart-echo:STARTING_TASK] 'p1'
[1.600000000000:uart-echo:TASK_FINISHED] 'p1'
[1.800000000000:uart-echo:STARTING_TASK] 'p1'
[1.800000000000:uart-echo:TASK_FINISHED] 'p1'
[2.000000000000:uart-echo:STARTING_TASK] 'p1'
[2.000000000000:uart-echo:TASK_FINISHED] 'p1'
[2.200000000000:uart-echo:STARTING_TASK] 'p1'
[2.200000000000:uart-echo:TASK_FINISHED] 'p1'
[2.400000000000:uart-echo:STARTING_TASK] 'p1'
[2.400000000000:uart-echo:TASK_FINISHED] 'p1'
[2.600000000000:uart-echo:STARTING_TASK] 'p1'
[2.600000000000:uart-echo:TASK_FINISHED] 'p1'
[2.800000000000:uart-echo:STARTING_TASK] 'p1'
[2.800000000000:uart-echo:TASK_FINISHED] 'p1'
[3.000000000000:uart-echo:STARTING_TASK] 'p1'
[3.000000000000:uart-echo:TASK_FINISHED] 'p1'
EXIT (SUCCESS) AT 3s (3000000000000)