/*
*yctc cg
*/
#include "stdio.h"
#include "dos.h"
#include "stdlib.h"
#include "conio.h"
#define SEC 3
#define NULL 0
/*定义结构体*/
typedef struct PCB
{
  int PID;
  int UID;
  struct PCB * next;
}PCB;
PCB *really , *excute , *wait;
/*create queue header */
/*queue operation 入队*/
int enqueue(PCB *head , PCB *node)
{
   PCB *p;
   p = head;
   if(p -> next == NULL)
  {
    head -> next = node;
    return 1;
  }
   while(p)
   {
   if(p -> next == NULL)
  {
    p -> next = node;
    return 1;
  }
  else p = p -> next;
   }
}/*enquue*/
/*dequeue 出队列 */
PCB * dequeue(PCB *head)
{
  PCB *p;
  p = head;
  if(p -> next == NULL)
    {
    return NULL;
    }
  else
  {
    p = p -> next;
    head -> next = p -> next;
    p -> next = NULL;
    return p;
  }
    /*head to next*/
}/*dequeue*/
 
/*PCB operate*/
/*新建进程*/
int create()
{
    PCB *p;
    p = (PCB*)malloc(sizeof(PCB));
    p -> next = NULL;
    printf("input PID and UID to a new process\n");
    scanf("%d %d",&p -> PID,&p -> UID);
    if(enqueue(really , p))
  printf("create a process: PID = %d UID = %d\n", p -> PID , p -> UID);
    else
  printf("create Failed\n");
}/*create*/
 
/*执行 fexcute*/
int fexcute()
{
   PCB *p = dequeue(really);
   if(p == NULL)
  {
    printf("NO process in queue \n");
    return 0;
  }
   else
  {
    enqueue(excute , p);
    printf("add a process into excute queue process: PID = %d UID= %d \n" ,p->PID , p->UID);
    return 1;
  }
}/*excute*/
 
int suspend()
{
  PCB *p = dequeue(excute);
   if(p == NULL)
  {
    printf("NO process in queue \n");
    return 0;
  }
   else
  {
    enqueue(really , p);
    printf("add a process into really queue process: PID = %d UID= %d \n" ,p->PID , p->UID);
    return 1;
  }
}
 
int wake()
{
  PCB *p = dequeue(wait);
   if(p == NULL)
  {
    printf("NO process in queue \n");
    return 0;
  }
   else
  {
    enqueue(really , p);
    printf("add a process into wait really process: PID = %d UID= %d \n" ,p->PID , p->UID);
    return 1;
  }
}
 
int block()
{
  PCB *p = dequeue(excute);
   if(p == NULL)
  {
    printf("NO process in queue \n");
    return 0;
  }
   else
  {
    enqueue(wait , p);
    printf("add a process into wait queue process: PID = %d UID= %d \n" ,p->PID , p->UID);
    return 1;
  }
}/*block*/
/*输出队列 outputqueue*/
int outputqueue(PCB *head)
{
   PCB *p;
   if(head -> next == NULL)
    {/*队列为空*/
  printf("queue is null \n");
  return 1;
    }
   p = head -> next; /*node pointer*/
   while(p)
    {/*打印process id UID*/
  printf("PID = %d UID = %d \n" , p -> PID , p -> UID);
  p = p -> next;
    }
    return 0;
}
/*output输出*/
int output()
{
  printf("REALLLY QUEUE:\n");
  outputqueue(really);
  printf("EXCUTE QUEUE: \n");
  outputqueue(excute);
  printf("WAIT QUEUE: \n");
  outputqueue(wait);
}/*output*/
/*init 初始化*/
int init()
{
  PCB *p;
  clrscr();
  really = (PCB*)malloc(sizeof(PCB));
  really -> next=NULL;
  excute = (PCB*)malloc(sizeof(PCB));
  excute -> next=NULL;
  wait = (PCB*)malloc(sizeof(PCB));
  wait -> next = NULL;
  printf("____________PROCESS SECHUDLE__________\n");
  printf("now initing.....................\n");
  printf("input PID and UID as integer , 0 0 as over\n");
  while(1)
  {
    p = (PCB*)malloc(sizeof(PCB));
    p -> next = NULL;
    scanf("%d %d",&p -> PID , &p -> UID);
    if(p -> PID == 0 && p -> UID == 0)
        break;
    else
      {
        if(enqueue(really , p))
          {
        printf("new process PID = %d UID = %d added!\n",p -> PID , p -> UID);
          }
        else return 0;
        }
  }
  return 1;
}/*init*/
/*运行一个process*/
int run()
{
  PCB *p = excute;
  int s = SEC;
  if(excute -> next == NULL)
  {
   printf("no process in excute queue \n");
   return 0;
  }
  else
  {
    p = excute -> next;
    printf("system will sleep %ds as process running\n",s);
    sleep(3);/*sleep as process runing time*/
    printf("process: PID = %d UID= %d excute successed..\n" , p -> PID , p -> UID );
    excute -> next = p -> next;
    free(p);
  }
}/*run*/
/*离开*/
int leave()
{
  PCB *p,*t;
  while(really->next || excute->next || wait->next)
  {
    p = really -> next;
    while(p)
    {
      t = p -> next;
      free(p);
      p = t;
    }
    really -> next = NULL;
    p = wait -> next;
    while(p)
    {
      t = p -> next;
      free(p);
      p = t;
    }
    wait -> next = NULL;
    p = excute -> next;
    while(p)
    {
      t = p -> next;
      free(p);
      p = t;
    }
    excute -> next = NULL;
  }
  exit(0);
}/*leace*/
 
int help()
{
  printf("_____________________HELP MENU_____________________\n");
  printf("\t-h HELP show help option\n");
  printf("\t-c CREATE create a new process , and put to really queue\n");
  printf("\t-b BLOCK block a process in excute queue\n");
  printf("\t-w WAKE wake a process in wait queue\n");
  printf("\t-e EXCUTE excute a process in really queue\n");
  printf("\t-s SUSPEND suspend a process in excute queue\n");
  printf("\t-o OUTPUT output all processes in queues\n");
  printf("\t-r RUN excute a process in excute queue\n");
  printf("\t-x EXIT exit this program\n");
  printf("___________________________________________________\n");
  printf("\t type 'H' will show this menu\n");
}/*help*/
 
int main()
{
  char COMMAND = NULL;
  if( init() != 1)
    {
      printf("init falied ! \n ");
      getch();
      exit(0);
    }
  else
    {
      printf("init...OK\n");
      output();
      help();
    }
  while(1)
  {
    /*当三队列都不空 执行调度 */
    printf(">");
    scanf("%c",&COMMAND);
    switch(COMMAND)
    {
      case '\n': break;
      case 'H':
      case 'h': help(); break;
      case 'C':
      case 'c': create(); break;
      case 'B':
      case 'b': block(); break;
      case 'W':
      case 'w': wake(); break;
      case 'S':
      case 's': suspend(); break;
      case 'E':
      case 'e': fexcute(); break;
      case 'O':
      case 'o': output(); break;
      case 'X':
      case 'x': leave(); break;
      case 'R':
      case 'r': run(); break;
    }
 }
}/*main*/