Mercurial > hg > CbC > old > DPP
view ltl.cbc @ 12:7f2db1e1bf2f default tip
use CBC_COMPILER environment val
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Thu, 04 Jul 2019 18:53:38 +0900 |
parents | 35d0358b3fe6 |
children |
line wrap: on
line source
#include <stdio.h> #include "ltl.h" #include "queue.h" #include "dpp_common.h" static int p(PhilsPtr phils) { PhilsPtr current = phils; PhilsPtr last = phils->left; if (last->left_fork->owner == NULL) return 0; while (current != last) { if (current->left_fork->owner == NULL) return 0; current = current->right; } return 1; } __code check(int *always_flag, PhilsPtr phils, TaskPtr list) { if (p(list->phils)) { *always_flag = 0; } goto tableau(list); } void show_result(int always_flag) { if (always_flag == 1) { printf("[]~p is valid.\n"); } else { printf("[]~p is not valid.\n"); } }