plinks.cpp

eC++编译器源码

#pragma PLinks
#include <SYSTEM.h>
#include <Errors.h>
#include <PLinks.h>
void InitLink(Link &p, int priority)
{
    p.next = NULL;  p.previous = NULL;  p.priority = priority;
};

void Delete(Link &p)
{    
    if (p.next != NULL) {
                        p.next->previous = p.previous;
                        }
      if (p.previous != NULL) {
                              p.previous->next = p.next;
                               p.previous = NULL;
                               }
      p.next = NULL;
};

void AddsBefore(Link &old, Link &new)
{
     if( (new.next != NULL) || (new.previous != NULL)) {
       SoftwareError("PLinks.AddBefore:Adding non-NULL link");
        }
    new.previous = old.previous;
    new.next = ADR(old);
      if (old.previous != NULL) {
                        old.previous->next = ADR(new);
                               }
    old.previous = ADR(new);
};

void AddsAfter(Link &old, Link &new)
{
      if ((new.next != NULL) || (new.previous != NULL)) {
        SoftwareError("PLinks.AddAfter:Adding non-NULL link");
        }
    new.previous = ADR(old);
    new.next = old.next;
   if (old.next != NULL) {
               old.next->previous = ADR(new);
                         }
    old.next = ADR(new);
};