/* This file is derived from source code for the Nachos
   instructional operating system.  The Nachos copyright notice
   is reproduced in full below. */

/* Copyright (c) 1992-1996 The Regents of the University of California.
   All rights reserved.

   Permission to use, copy, modify, and distribute this software
   and its documentation for any purpose, without fee, and
   without written agreement is hereby granted, provided that the
   above copyright notice and the following two paragraphs appear
   in all copies of this software.

   IN NO EVENT SHALL THE UNIVERSITY OF CALIFORNIA BE LIABLE TO
   ANY PARTY FOR DIRECT, INDIRECT, SPECIAL, INCIDENTAL, OR
   CONSEQUENTIAL DAMAGES ARISING OUT OF THE USE OF THIS SOFTWARE
   AND ITS DOCUMENTATION, EVEN IF THE UNIVERSITY OF CALIFORNIA
   HAS BEEN ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

   THE UNIVERSITY OF CALIFORNIA SPECIFICALLY DISCLAIMS ANY
   WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
   WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
   PURPOSE.  THE SOFTWARE PROVIDED HEREUNDER IS ON AN "AS IS"
   BASIS, AND THE UNIVERSITY OF CALIFORNIA HAS NO OBLIGATION TO
   PROVIDE MAINTENANCE, SUPPORT, UPDATES, ENHANCEMENTS, OR
   MODIFICATIONS.
*/

#include "threads/synch.h"
#include <stdio.h>
#include <string.h>
#include "threads/interrupt.h"
#include "threads/thread.h"
/* Initializes semaphore SEMA to VALUE.  A semaphore is a
   nonnegative integer along with two atomic operators for
   manipulating it:

   - down or "P": wait for the value to become positive, then
     decrement it.

   - up or "V": increment the value (and wake up one waiting
     thread, if any). */
void
sema_init (struct semaphore *sema, unsigned value)
{
  ASSERT (sema != NULL);

  sema->value = value;
  list_init (&sema->waiters);
}

/* Down or "P" operation on a semaphore.  Waits for SEMA's value
   to become positive and then atomically decrements it.

   This function may sleep, so it must not be called within an
   interrupt handler.  This function may be called with
   interrupts disabled, but if it sleeps then the next scheduled
   thread will probably turn interrupts back on. */
void
sema_down (struct semaphore *sema)
{

  enum intr_level old_level;

  ASSERT (sema != NULL);
  ASSERT (!intr_context ());
  old_level = intr_disable ();
  while (sema->value == 0)
    {
      list_push_back (&sema->waiters, &thread_current ()->elem);
      //printf("%s add to sema-waiters\n", thread_current()->name);
      //SortSemaWaiters(ChooseMaxPriorThreadSema(sema), sema);
      thread_block ();
    }

  sema->value--;
  intr_set_level (old_level);
}

/* Down or "P" operation on a semaphore, but only if the
   semaphore is not already 0.  Returns true if the semaphore is
   decremented, false otherwise.

   This function may be called from an interrupt handler. */
bool
sema_try_down (struct semaphore *sema)
{
  enum intr_level old_level;
  bool success;

  ASSERT (sema != NULL);

  old_level = intr_disable ();
  if (sema->value > 0)
    {
      sema->value--;
      success = true;
    }
  else
    success = false;
  intr_set_level (old_level);

  return success;
}
struct thread *
ChooseMaxPriorThreadSema(struct semaphore *sema_1)
{
  // printf("OneMore\n");
  struct thread *tempMax, *targetProc, *startProc;
  tempMax=list_entry (list_pop_front (&sema_1->waiters), struct thread, elem);
  startProc=tempMax;
  //printf("Start Process=%s\n", startProc->name);
  int maxPrior=tempMax->priority;
  if (list_empty(&sema_1->waiters))
  {
    //printf("EMPTY\n");
    return tempMax;
  }
  list_push_back (&sema_1->waiters, &tempMax->elem);
  targetProc=list_entry (list_pop_front (&sema_1->waiters), struct thread, elem);
  while (startProc!=targetProc)
  {
    //printf("%s=?%s\n", targetProc->name, startProc->name);
    if (maxPrior<targetProc->priority)
    {
      if (tempMax!=startProc)
      list_push_back (&sema_1->waiters, &tempMax->elem);
      tempMax=targetProc;
      maxPrior=targetProc->priority;
    }
    else
    {
      list_push_back (&sema_1->waiters, &targetProc->elem);
    }

    targetProc=list_entry (list_pop_front (&sema_1->waiters), struct thread, elem);
  }
  if (tempMax!=startProc)
  {
    list_push_back (&sema_1->waiters, &targetProc->elem);
  }

  return tempMax;
}
int SortSemaWaiters(struct thread *firstProc, struct semaphore *sema_2)
{
  int SortNum=1;
  list_push_back (&sema_2->waiters, &firstProc->elem);
  struct thread *tempMax, *targetProc, *helpProc;
  tempMax=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
  if (tempMax==firstProc)
  {
    list_push_back(&sema_2->waiters, &tempMax->elem);
    //printf("So EMPTY\n");
    return 0;
  }
  //printf("No \n");
  targetProc=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
  while (tempMax!=firstProc)
  {
    if (tempMax->priority<targetProc->priority)
    {
      list_push_back (&sema_2->waiters, &tempMax->elem);
      tempMax=targetProc;
    }
    else
    {
      list_push_back (&sema_2->waiters, &targetProc->elem);
    }
    targetProc=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
    if (targetProc==firstProc)
    {
      list_push_front(&sema_2->waiters, &targetProc->elem);
      for (int p=0; p<SortNum; p++)
      {
        helpProc=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
        list_push_back (&sema_2->waiters, &helpProc->elem);
      }
      list_push_back (&sema_2->waiters, &tempMax->elem);
      SortNum++;
      tempMax=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
      targetProc=list_entry (list_pop_front (&sema_2->waiters), struct thread, elem);
    }
  }
  list_push_front(&sema_2->waiters, &targetProc->elem);
  list_push_front (&sema_2->waiters, &tempMax->elem);
  return 0;
}
/* Up or "V" operation on a semaphore.  Increments SEMA's value
   and wakes up one thread of those waiting for SEMA, if any.

   This function may be called from an interrupt handler. */
void
sema_up (struct semaphore *sema)
{
  struct thread *popa;

  enum intr_level old_level;
  ASSERT (sema != NULL);
  old_level = intr_disable ();
  if (!list_empty (&sema->waiters))
  {
    popa=ChooseMaxPriorThreadSema(sema);
   // SortSemaWaiters(popa, sema);
    //popa=list_entry (list_pop_front (&sema->waiters),
                              //  struct thread, elem);
    //printf("%s\n", popa->name);
    //thread_unblock (list_entry (list_pop_front (&sema->waiters),
            //                    struct thread, elem));
    //printf("%s\n", thread_current()->name);
    //thread_yield();
    //thread_unblock (list_entry (list_pop_front (&sema->waiters),
    //                            struct thread, elem));
    //popa=ChooseMaxPriorThreadSema(sema);
    //printf("\n");
   // printf("%s is unblocked and put in the ready-list.\n", popa->name);
   // printf("Sema_Waiters : ");
   // for (struct list_elem* p = list_begin(&sema->waiters); p != list_end(&sema->waiters); p = p->next) {
   //   printf("%d ", list_entry(p, struct thread, elem)->priority);
    //}
   // printf("\n");

    sema->value++;
    //printf("Sema->value=%d\n", sema->value);
    thread_unblock_for_sema (popa);
     sema->value--;
    //printf("This thread complited unblock!\n");
  }
  //printf("%d\n", sema->value);
  //thread_unblock (ChooseMaxPriorThreadSema(sema));
  sema->value++;
  //printf("%d ", sema->value);
  intr_set_level (old_level);
}

static void sema_test_helper (void *sema_);

/* Self-test for semaphores that makes control "ping-pong"
   between a pair of threads.  Insert calls to printf() to see
   what's going on. */
void
sema_self_test (void)
{
  struct semaphore sema[2];
  int i;

  printf ("Testing semaphores...");
  sema_init (&sema[0], 0);
  sema_init (&sema[1], 0);
  thread_create ("sema-test", PRI_DEFAULT, sema_test_helper, &sema);
  for (i = 0; i < 10; i++)
    {
      sema_up (&sema[0]);
      sema_down (&sema[1]);
    }
  printf ("done.\n");
}

/* Thread function used by sema_self_test(). */
static void
sema_test_helper (void *sema_)
{
  struct semaphore *sema = sema_;
  int i;

  for (i = 0; i < 10; i++)
    {
      sema_down (&sema[0]);
      sema_up (&sema[1]);
    }
}

/* Initializes LOCK.  A lock can be held by at most a single
   thread at any given time.  Our locks are not "recursive", that
   is, it is an error for the thread currently holding a lock to
   try to acquire that lock.

   A lock is a specialization of a semaphore with an initial
   value of 1.  The difference between a lock and such a
   semaphore is twofold.  First, a semaphore can have a value
   greater than 1, but a lock can only be owned by a single
   thread at a time.  Second, a semaphore does not have an owner,
   meaning that one thread can "down" the semaphore and then
   another one "up" it, but with a lock the same thread must both
   acquire and release it.  When these restrictions prove
   onerous, it's a good sign that a semaphore should be used,
   instead of a lock. */
void
lock_init (struct lock *lock)
{
  ASSERT (lock != NULL);

  lock->holder = NULL;
  sema_init (&lock->semaphore, 1);
}

/* Acquires LOCK, sleeping until it becomes available if
   necessary.  The lock must not already be held by the current
   thread.

   This function may sleep, so it must not be called within an
   interrupt handler.  This function may be called with
   interrupts disabled, but interrupts will be turned back on if
   we need to sleep. */
void
lock_acquire (struct lock *lock)
{
  ASSERT (lock != NULL);
  ASSERT (!intr_context ());
  ASSERT (!lock_held_by_current_thread (lock));

  sema_down (&lock->semaphore);
  lock->holder = thread_current ();
}

/* Tries to acquires LOCK and returns true if successful or false
   on failure.  The lock must not already be held by the current
   thread.

   This function will not sleep, so it may be called within an
   interrupt handler. */
bool
lock_try_acquire (struct lock *lock)
{
  bool success;

  ASSERT (lock != NULL);
  ASSERT (!lock_held_by_current_thread (lock));

  success = sema_try_down (&lock->semaphore);
  if (success)
    lock->holder = thread_current ();
  return success;
}

/* Releases LOCK, which must be owned by the current thread.

   An interrupt handler cannot acquire a lock, so it does not
   make sense to try to release a lock within an interrupt
   handler. */
void
lock_release (struct lock *lock)
{
  ASSERT (lock != NULL);
  ASSERT (lock_held_by_current_thread (lock));

  lock->holder = NULL;
  sema_up (&lock->semaphore);
}

/* Returns true if the current thread holds LOCK, false
   otherwise.  (Note that testing whether some other thread holds
   a lock would be racy.) */
bool
lock_held_by_current_thread (const struct lock *lock)
{
  ASSERT (lock != NULL);

  return lock->holder == thread_current ();
}

/* One semaphore in a list. */
struct semaphore_elem
  {
    struct list_elem elem;              /* List element. */
    struct semaphore semaphore;         /* This semaphore. */
  };

/* Initializes condition variable COND.  A condition variable
   allows one piece of code to signal a condition and cooperating
   code to receive the signal and act upon it. */
void
cond_init (struct condition *cond)
{
  ASSERT (cond != NULL);

  list_init (&cond->waiters);
}

/* Atomically releases LOCK and waits for COND to be signaled by
   some other piece of code.  After COND is signaled, LOCK is
   reacquired before returning.  LOCK must be held before calling
   this function.

   The monitor implemented by this function is "Mesa" style, not
   "Hoare" style, that is, sending and receiving a signal are not
   an atomic operation.  Thus, typically the caller must recheck
   the condition after the wait completes and, if necessary, wait
   again.

   A given condition variable is associated with only a single
   lock, but one lock may be associated with any number of
   condition variables.  That is, there is a one-to-many mapping
   from locks to condition variables.

   This function may sleep, so it must not be called within an
   interrupt handler.  This function may be called with
   interrupts disabled, but interrupts will be turned back on if
   we need to sleep. */
void
cond_wait (struct condition *cond, struct lock *lock)
{
  struct semaphore_elem waiter;

  ASSERT (cond != NULL);
  ASSERT (lock != NULL);
  ASSERT (!intr_context ());
  ASSERT (lock_held_by_current_thread (lock));

  sema_init (&waiter.semaphore, 0);
  list_push_back (&cond->waiters, &waiter.elem);
  lock_release (lock);
  sema_down (&waiter.semaphore);
  lock_acquire (lock);
}

/* If any threads are waiting on COND (protected by LOCK), then
   this function signals one of them to wake up from its wait.
   LOCK must be held before calling this function.

   An interrupt handler cannot acquire a lock, so it does not
   make sense to try to signal a condition variable within an
   interrupt handler. */
struct semaphore *
ChooseMaxPriorCondWaiters(struct condition *cond_1)
{
  // printf("OneMore\n");
  struct semaphore_elem *tempMaxSema, *targetSema, *startSema;
  tempMaxSema=list_entry (list_pop_front (&cond_1->waiters), struct semaphore_elem, elem);
  startSema=tempMaxSema;
  //printf("Start Process=%s\n", startProc->name);
  int maxPrior=list_entry (list_begin(&tempMaxSema->semaphore.waiters), struct thread, elem)->priority;
  if (list_empty(&cond_1->waiters))
  {
    //printf("EMPTY\n");
    return &tempMaxSema->semaphore;
  }

  list_push_back (&cond_1->waiters, &tempMaxSema->elem);

  targetSema=list_entry (list_pop_front (&cond_1->waiters), struct semaphore_elem, elem);

  while (&startSema->semaphore!=&targetSema->semaphore)
  {
    //printf("%s=?%s\n", targetProc->name, startProc->name);
    if (maxPrior<list_entry (list_begin(&targetSema->semaphore.waiters), struct thread, elem)->priority)
    {
      if (tempMaxSema!=startSema)
       list_push_back (&cond_1->waiters, &tempMaxSema->elem);
      tempMaxSema=targetSema;
      maxPrior=list_entry (list_begin(&targetSema->semaphore.waiters), struct thread, elem)->priority;

    }
    else
    {
      list_push_back (&cond_1->waiters, &targetSema->elem);
    }

    targetSema=list_entry (list_pop_front (&cond_1->waiters), struct semaphore_elem, elem);

  }
  if (tempMaxSema!=startSema)
  {
    list_push_back (&cond_1->waiters, &targetSema->elem);
  }

  return &tempMaxSema->semaphore;
}
void
cond_signal (struct condition *cond, struct lock *lock UNUSED)
{
  ASSERT (cond != NULL);
  ASSERT (lock != NULL);
  ASSERT (!intr_context ());
  ASSERT (lock_held_by_current_thread (lock));

  if (!list_empty (&cond->waiters))
  {
    sema_up(ChooseMaxPriorCondWaiters(cond));
  }
   // sema_up (&list_entry (list_pop_front (&cond->waiters),
    //                      struct semaphore_elem, elem)->semaphore);

}

/* Wakes up all threads, if any, waiting on COND (protected by
   LOCK).  LOCK must be held before calling this function.

   An interrupt handler cannot acquire a lock, so it does not
   make sense to try to signal a condition variable within an
   interrupt handler. */
void
cond_broadcast (struct condition *cond, struct lock *lock)
{
  ASSERT (cond != NULL);
  ASSERT (lock != NULL);

  while (!list_empty (&cond->waiters))
    cond_signal (cond, lock);
}