Roger Keulen - Professional Profile

Imports Library.Generics

Module LibTest
  Sub Main()
    Dim Lijst1 As New MySortedList(Of Integer)
    Dim Lijst2 As New MySortedList(Of Integer)(1, 2, 3, 4, 5)
    Dim Lijst3 As New MySortedList(Of Integer)(6, 7)

    Lijst1.Add(11, 12, 13, 14, 15)
    Lijst1.Remove(11, 12, 13, 14, 15)


    Lijst1 += {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}
    EchoLijstjes("Add: ", Lijst1)

    Lijst1 -= {6, 7, 8, 9, 10}
    EchoLijstjes("Remove: ", Lijst1)

    Lijst2 = Lijst1 + {8, 9, 10} + Lijst3
    EchoLijstjes("Add: ", Lijst1, Lijst2, Lijst3)


    Lijst3 = Lijst2 - Lijst1
    EchoLijstjes("Substract: ", Lijst1, Lijst2, Lijst3)

    Lijst1.Init({1, 2, 3}) : Lijst2.Init({1, 2, 3}) : Lijst3.Init({7, 8, 9})
    EchoLijstjes("Init: ", Lijst1, Lijst2, Lijst3)

    
    If Lijst1 = Lijst2 And Lijst1 = {1, 2, 3} Then
      EchoLijstjes("Lijst 1 = Lijst 2: ", Lijst1, Lijst2)
    End If

   
    If Lijst1 <> Lijst3 And Lijst1 <> {0, 4, 5} Then
      EchoLijstjes("Lijst1 <> Lijst2: ", Lijst1, Lijst3)
    End If

    ' Lijst2 += {7, 8, 9}  >> INIT -> ME funtie !!!
    If Lijst2.Init(7, 8, 9) > Lijst3 Then
      EchoLijstjes("Alle Items van lijst2 komen voor in lijst 3: ", Lijst2, Lijst3)
    End If

    Lijst2 += {1, 2, 3, 4, 5}
    If Lijst2 < {1, 2, 3} Then
      EchoLijstjes("Alle Items 1, 2, 3 komen voor in Lijst2: ", Lijst2)
    End If

    If Lijst1 > {1, 2, 3, 4, 5, 6} Then
      EchoLijstjes("Alle Items van lijst1 komen voor in 1, 2, 3, 4, 5, 6: ", Lijst1)
    End If



    Console.ReadKey()
  End Sub

  Public Sub EchoLijstjes(Of T)(ByVal Tekst As String, ByVal ParamArray Lijsten() As MySortedList(Of T))
    Echo(Tekst)
    Dim Counter As Integer = 1
    For Each Lijst As MySortedList(Of T) In Lijsten
      Echo("{0}:{1}", Counter, Lijst.toString())
      Counter += 1
    Next
    Echo(vbNewLine)
  End Sub


  Sub Echo(ByVal Text As String, ByVal ParamArray Args() As Object)
    Console.WriteLine(String.Format(Text, Args))
  End Sub
End Module

Namespace Generics

  Public Class MySortedList(Of TValue)
    Inherits Generic.SortedList(Of TValue, TValue)

    Public Sub New()
      MyBase.New()
    End Sub
    Public Sub New(ByVal Item As TValue)
      MyBase.New() : AddItem(Item)
    End Sub
    Public Sub New(ByVal ParamArray Items() As TValue)
      MyBase.New() : AddItems(Items)
    End Sub
    Public Sub New(ByVal List As MySortedList(Of TValue))
      MyBase.New() : AddList(List)
    End Sub
    Public Sub New(ByVal Lists() As MySortedList(Of TValue))
      MyBase.New() : AddLists(Lists)
    End Sub

    Protected Sub AddItem(ByVal Item As TValue)
      MyBase.Add(Item, Item)
    End Sub
    Protected Sub AddItems(ByVal Items() As TValue)
      For Each Item As TValue In Items
        MyBase.Add(Item, Item)
      Next
    End Sub
    Protected Sub AddList(ByVal List As MySortedList(Of TValue))
      Dim Array(List.Count - 1) As TValue : List.Values.CopyTo(Array, 0)
      AddItems(Array)
    End Sub
    Protected Sub AddLists(ByVal Lists() As MySortedList(Of TValue))
      For Each List As MySortedList(Of TValue) In Lists
        AddList(List)
      Next
    End Sub

    Protected Sub RemoveItem(ByVal Item As TValue)
      MyBase.Remove(Item)
    End Sub
    Protected Sub RemoveItems(ByVal Items() As TValue)
      For Each Item As TValue In Items
        MyBase.Remove(Item)
      Next
    End Sub
    Protected Sub RemoveList(ByVal List As MySortedList(Of TValue))
      Dim Array(List.Count - 1) As TValue : List.Values.CopyTo(Array, 0)
      RemoveItems(Array)
    End Sub
    Protected Sub RemoveLists(ByVal Lists() As MySortedList(Of TValue))
      For Each List As MySortedList(Of TValue) In Lists
        RemoveList(List)
      Next
    End Sub

    Public Overloads Function Add(ByVal Item As TValue)
      AddItem(Item) : Return Me
    End Function
    Public Overloads Function Add(ByVal ParamArray Items() As TValue)
      AddItems(Items) : Return Me
    End Function
    Public Overloads Function Add(ByVal List As MySortedList(Of TValue))
      AddList(List) : Return Me
    End Function
    Public Overloads Function Add(ByVal Lists() As MySortedList(Of TValue))
      AddLists(Lists) : Return Me
    End Function

    Public Overloads Function Remove(ByVal Item As TValue)
      RemoveItem(Item) : Return Me
    End Function
    Public Overloads Function Remove(ByVal ParamArray Items() As TValue)
      RemoveItems(Items) : Return Me
    End Function
    Public Overloads Function Remove(ByVal List As MySortedList(Of TValue))
      RemoveList(List) : Return Me
    End Function
    Public Overloads Function Remove(ByVal Lists() As MySortedList(Of TValue))
      RemoveLists(Lists) : Return Me
    End Function

    Public Overloads Function Init()
      Clear() : Return Me
    End Function
    Public Overloads Function Init(ByVal Item As TValue)
      Clear() : AddItem(Item) : Return Me
    End Function
    Public Overloads Function Init(ByVal ParamArray Items() As TValue)
      Clear() : AddItems(Items) : Return Me
    End Function
    Public Overloads Function Init(ByVal List As MySortedList(Of TValue))
      Clear() : AddList(List) : Return Me
    End Function
    Public Overloads Function Init(ByVal Lists() As MySortedList(Of TValue))
      Clear() : AddLists(Lists) : Return Me
    End Function

    ' A + B (Alle items van A en B)
    Public Shared Operator +(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Dim NewList As New MySortedList(Of TValue)(ListA) : Return NewList.Add(ItemB)
    End Operator
    Public Shared Operator +(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      Dim NewList As New MySortedList(Of TValue)(ListA) : Return NewList.Add(ItemsB)
    End Operator
    Public Shared Operator +(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      Return New MySortedList(Of TValue)({ListA, ListB})
    End Operator
    Public Shared Operator +(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      Dim NewList = New MySortedList(Of TValue)(ListsB)
      Return NewList.Add(ListA)
    End Operator

    ' A - B (Alle items van A met uitzondering die van B)
    Public Shared Operator -(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Dim NewList As New MySortedList(Of TValue)(ListA) : Return NewList.Remove(ItemB)
    End Operator
    Public Shared Operator -(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      Dim NewList As New MySortedList(Of TValue)(ListA) : Return NewList.Remove(ItemsB)
    End Operator
    Public Shared Operator -(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      Dim NewList As New MySortedList(Of TValue)(ListA) : Return NewList.Remove(ListB)
    End Operator
    Public Shared Operator -(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      Dim NewList = New MySortedList(Of TValue)(ListsB)
      Return NewList.Remove(ListA)
    End Operator

    ' A == B (Alles van A komt voor in B en A is even groot als B)
    Public Shared Operator =(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return ListA.Count = 1 AndAlso ListA.ContainsValue(ItemB)
    End Operator
    Public Shared Operator =(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      If ListA.Count - 1 <> ItemsB.GetUpperBound(0) Then Return False
      Return ContainsAND(ItemsB, ListA, True)
    End Operator
    Public Shared Operator =(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      If ListA.Count <> ListB.Count Then Return False
      Return ContainsAND(ListA, ListB, True)
    End Operator
    Public Shared Operator =(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      Dim Count As Integer = 0
      For Each List As MySortedList(Of TValue) In ListsB
        Count += List.Count
        If ContainsAND(ListA, List, False) Then Return False
      Next
      Return ListA.Count = Count
    End Operator

    ' A <> B (Niks van A komt voor in B)
    Public Shared Operator <>(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return Not ListA.ContainsValue(ItemB)
    End Operator
    Public Shared Operator <>(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      Return ContainsAND(ItemsB, ListA, False)
    End Operator
    Public Shared Operator <>(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      Return ContainsAND(ListA, ListB, False)
    End Operator
    Public Shared Operator <>(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      For Each List As MySortedList(Of TValue) In ListsB
        If ContainsAND(ListA, List, True) Then Return False
      Next
      Return True
    End Operator

    'Alles van A moet voorkomen in B (Haystack)
    Public Shared Operator >=(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return ListA.ContainsKey(ItemB)
    End Operator
    Public Shared Operator >=(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      Return ContainsAND(ListA, ItemsB, True)
    End Operator
    Public Shared Operator >=(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      Return ContainsAND(ListA, ListB, True)
    End Operator
    Public Shared Operator >=(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      For Each ItemA As Generic.KeyValuePair(Of TValue, TValue) In ListA

        Dim ContainsA As Boolean = False
        For Each ListB As MySortedList(Of TValue) In ListsB
          ContainsA = ContainsAND(ItemA.Value, ListB, True)
          If ContainsA Then Exit For
        Next ListB

        If Not ContainsA Then Return False
      Next ItemA
      Return True
    End Operator

    'Alles van B moet voorkomen in A (Haystack)
    Public Shared Operator <=(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return ListA.ContainsKey(ItemB)
    End Operator
    Public Shared Operator <=(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      Return ContainsAND(ItemsB, ListA, True)
    End Operator
    Public Shared Operator <=(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      Return ContainsAND(ListB, ListA, True)
    End Operator
    Public Shared Operator <=(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      For Each List As MySortedList(Of TValue) In ListsB
        If ContainsAND(List, ListA, True) Then Return False
      Next
      Return True
    End Operator

    'Eentje van A moet voorkomen in B (Haystack)
    Public Shared Operator >(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return ListA.ContainsKey(ItemB)
    End Operator
    Public Shared Operator >(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      For Each Item As TValue In ItemsB  ' // Verkeerd om !
        If ListA.ContainsKey(Item) Then Return True
      Next
      Return False
    End Operator
    Public Shared Operator >(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      For Each Item As TValue In ListA.Values
        If ListB.ContainsKey(Item) Then Return True
      Next
      Return False
    End Operator
    Public Shared Operator >(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      For Each ItemA As Generic.KeyValuePair(Of TValue, TValue) In ListA
        For Each ListB As MySortedList(Of TValue) In ListsB
          If ContainsAND(ItemA.Value, ListB, True) Then Return True
        Next ListB
      Next ItemA
      Return False
    End Operator

    'Eentje van B moet voorkomen in A (Haystack)
    Public Shared Operator <(ByVal ListA As MySortedList(Of TValue), ByVal ItemB As TValue)
      Return ListA.ContainsKey(ItemB)
    End Operator
    Public Shared Operator <(ByVal ListA As MySortedList(Of TValue), ByVal ItemsB() As TValue)
      For Each Value As TValue In ItemsB
        If ListA.ContainsKey(Value) Then Return True
      Next
      Return False
    End Operator
    Public Shared Operator <(ByVal ListA As MySortedList(Of TValue), ByVal ListB As MySortedList(Of TValue))
      For Each Item As TValue In ListB.Values
        If ListA.ContainsKey(Item) Then Return True
      Next
      Return False
    End Operator
    Public Shared Operator <(ByVal ListA As MySortedList(Of TValue), ByVal ListsB() As MySortedList(Of TValue))
      For Each ItemA As Generic.KeyValuePair(Of TValue, TValue) In ListA  ' Ook verkeerd om !
        For Each ListB As MySortedList(Of TValue) In ListsB
          If ContainsAND(ItemA.Value, ListB, True) Then Return True
        Next ListB
      Next ItemA
      Return False
    End Operator


    Private Shared Function ContainsAND(ByVal Needle As TValue, ByVal Haystack As MySortedList(Of TValue), Optional ByVal _Not As Boolean = True) As Boolean
      Return (Not _Not) Xor Haystack.ContainsValue(Needle)
    End Function
    Private Shared Function ContainsAND(ByVal Needle() As TValue, ByVal Haystack As MySortedList(Of TValue), Optional ByVal _Not As Boolean = True) As Boolean
      For Each Value As TValue In Needle
        If Not ContainsAND(Value, Haystack, _Not) Then Return False
      Next : Return True
    End Function
    Private Shared Function ContainsAND(ByVal Needle As MySortedList(Of TValue), ByVal Haystack As MySortedList(Of TValue), Optional ByVal _Not As Boolean = True) As Boolean
      For Each Value As TValue In Needle.Values
        If Not ContainsAND(Value, Haystack, _Not) Then Return False
      Next : Return True
    End Function
    Private Shared Function ContainsAND(ByVal Needle As MySortedList(Of TValue), ByVal Haystacks() As TValue, Optional ByVal _Not As Boolean = True) As Boolean
      Dim C As Integer = 0
      For Each Haystack As TValue In Haystacks
        If ContainsAND(Haystack, Needle, _Not) Then C += 1
      Next : Return C = Needle.Count
    End Function


    Public Shadows Function toString() As String
      Dim Result As String = ""
      For Each Item As TValue In Values
        If Result <> "" Then Result += ", "
        Result += Item.ToString
      Next
      Return Result
    End Function
  End Class
End Namespace

<?PHP

include_once('DList.php');

session_start();


class TestList extends cDList {
  private $TestPrivate = 'Prive';
  protected $TestProtected = 'Beveiligd';
  public $TestPublic = 'Publiek';

   // Everything starting with '_' we dont use...
  public $_DEZE_NIET_MEE_NEMEN = 'FOUT!';

  public function __construct($DATA) {
    parent::__construct($DATA);
    parent::Add('Test','Test Add!');
  }
}

// Simple list...
$Test = new TestList(array('MyProp1' => 1, 'MyProp2' => 2, 'MyProp3' => 3));
$Test->TestDynamisch = 'Dynamisch';


echo 'Simpel lijstje:<BR>';
echo $Test->TestDynamisch.'-'.$Test->MyProp1.'-'.$Test->MyProp2.'-'.$Test->MyProp3.'<BR><BR>';


echo 'Toevoegen  Sub-lijstje:<BR>';
$Test->Tree = new cDList();
$Test->Tree->Kind = "Kind Object";
$Test->Tree->Getal = (int) 123456;
$Test->Tree->Tree = new cDList();
$Test->Tree->Tree->Kind = "Kind van Kind";

echo '$Test->Tree->Tree->Kind='.$Test->Tree->Tree->Kind.'<BR><BR>';

// Serialisatie
$Test->SaveToFile('Test.txt');

// De-Serialisatie
$Kopie = TestList::LoadFromFile('Test.txt');

echo 'Orineel:<BR>';
echo $Test.'<BR><BR>';
echo 'Geladen van file:<BR>';
echo $Kopie.'<BR><HR>';


// DATASOURCE
if(!array_key_exists('GEBRUIKERS',$_SESSION)) { $_SESSION['GEBRUIKERS'] = array(); }
$DATASOURCE = &$_SESSION['GEBRUIKERS'];

$List = new cDList(false, $DATASOURCE);

if(!isset($List->IsIngeloged)) {
  $List->IsIngeloged = false;
  $List->Gebruiker = '(Gast)';
}


// ... inloggen ergens....
/*
  $List->IsIngeloged = true;
  $List->Gebruiker = 'Gebruiker';
*/

echo 'Lijst gekoppeld aan $_SESSION Array:<BR>';
echo $List;



?>

<?PHP


class cDList implements Iterator {
  protected $DATA = array();

  // ---- << No-Serialize >> ----
  protected $_Reflect = false;
  protected $_AllProperties = false;
  protected $_ObjectProperties = false;
  protected $_PublicProperties = false;
  protected $_ProtectedProperties = false;
  protected $_ItteratorArray = false;
  // ---- << No-Serialize >> ----

  public function __construct($DATA = false, &$DATASOURCE = false) {
    if(is_array($DATASOURCE)) { $this->DATA = &$DATASOURCE; }
    if(is_array($DATA)) { $this->DATA = $DATA; }
    if($DATA==false AND $DATASOURCE==false) { $this->DATA = array(); }
  }

  protected function OnGet($Key, &$Value, $Exists) { return true; }
  public function __get($Key) {
    $Value = null;
    $Exists = array_key_exists($Key, $this->DATA);
    if($Exists==true) { $Value = $this->DATA[$Key]; }
    if($this->OnGet($Key, $Value, $Exists)) {
      if($Exists==true) { return $this->DATA[$Key]; }
      else { return null; } }
    else { throw new Exception("Eigenschap `$Key` niet gevonden.",1001); }
  }

  protected function OnSet($Key, &$Value, $IsNew) { return true; }
  public function __set($Key, $Value) {
    if(array_key_exists($Key, $this->DATA)) { $IsNew = false; } else { $IsNew = true; }
    if($this->OnSet($Key, $Value, $IsNew)==true) {
      $this->DATA[$Key] = $Value;
      if($IsNew==true) { $this->_AllProperties = false; $this->_PublicProperties = false; } // Reset Property Cache
    }
  }

  public function __isset($Key) { return isset($this->DATA[$Key]); }
  public function __sleep() {
    try { return $this->GetObjectProperties(); }
    catch (exception $err) { return array(); }
  }
  public function __wakeup() {

  }
  public function __toString() {
    $Result = ""; $Props = $this->GetPublicProperties();
    foreach($Props as $Key) {
      if($Result!="") { $Result .= ", "; }
      $Result .= $Key.' = '.$this->GetValueAsString($this->$Key);
    }
    return $Result;
  }

  protected function GetValueAsString($Value) {
    if(is_double($Value) or is_integer($Value)) { return $Value; }
    if(is_object($Value)) { return 'List:['.$Value->__toString().']'; }
    if(is_bool($Value)) { if($Value) { return 'True'; } else { return 'False'; }}
    return '\''.$Value.'\'';
  }

  // Toevoegen, Verwijderen van eigenschappen.
  protected function Add($Property, $Value) {
    if(!array_key_exists($Property, $this->DATA)) { $this->DATA[$Property] = $Value; }
  }
  protected function Remove($Property) {
    unset($this->DATA[$Property]);
  }

  // Ophalen niet dynamische eigenschappen via reflectie
  private function GetObjectProps($Visible) {
    if($this->_Reflect==false) { $this->_Reflect = new ReflectionClass($this);  }
    $Props = $this->_Reflect->getProperties($Visible); $Return = array();
    foreach ($Props as $Prop) {
      $PropName = $Prop->getName();
      if((substr($PropName,0,1)!='_')) {   // Properties beginend met een "_" gebruiken we niet !
        $Return[] = $PropName; }
    }
    return $Return;
  }
  // Genereerd lijst van eigenschappen..
  private function GetAllProperties() {
    return array_merge(array_keys($this->DATA), $this->PropertiesObject());
  }
  private function GetObjectProperties() {
    return $this->GetObjectProps(ReflectionProperty::IS_PUBLIC | ReflectionProperty::IS_PROTECTED | ReflectionProperty::IS_PRIVATE);
  }
  private function GetProtectedProperties() {
    return $this->GetObjectProps(ReflectionProperty::IS_PROTECTED);
  }
  private function GetPublicProperties() {
    return array_merge(array_keys($this->DATA), $this->GetObjectProps(ReflectionProperty::IS_PUBLIC));
  }


  // Doorgeven van lijst van eigenschappen....
  protected function PropertiesAll() {
    if($this->_AllProperties==false) { $this->_AllProperties = $this->GetAllProperties(); }
    return $this->_AllProperties;
  }
  protected function PropertiesObject() {
    if($this->_ObjectProperties==false) { $this->_ObjectProperties = $this->GetObjectProperties(); }
    return $this->_ObjectProperties;
  }
  protected function PropertiesProtected() {
    if($this->_ProtectedProperties==false) { $this->_ProtectedProperties = $this->GetProtectedProperties(); }
    return $this->_ProtectedProperties;
  }
  protected function PropertiesPublic() {
    if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
    return $this->_PublicProperties;
  }

  // Serialisatie
  public static function LoadFromFile($Filename) {
    $String = file_get_contents($Filename);
    return unserialize($String);
  }
  public function SaveToFile($Filename) {
    $String = serialize($this);
    file_put_contents($Filename, $String);
  }

   // Iterator Implementatie
  public function rewind() {
    if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
    reset($this->_PublicProperties);
  }
  public function current() {
    if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
    $Prop = current($this->_PublicProperties);
    return $this->$Prop;
  }
  public function key() {
    if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
    $Prop = current($this->_PublicProperties);
    return $Prop;
  }
  public function next() {
      if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
      $Prop = next($this->_PublicProperties);
      return $this->$Prop;
    }
  public function valid() {
      if($this->_PublicProperties==false) { $this->_PublicProperties = $this->GetPublicProperties(); }
      $key = key($this->_PublicProperties);
      return ($key !== NULL && $key !== FALSE);
    }
}

?>