Mercurial > hg > CbC > old > DPP
view ltl.cbc @ 10:35d0358b3fe6
update Modern CbC Compiler
author | anatofuz <anatofuz@cr.ie.u-ryukyu.ac.jp> |
---|---|
date | Mon, 01 Jul 2019 22:18:03 +0900 |
parents | cef74c1054c1 |
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"); } }