Tekst źródłowy strony CSL-CROOK - Złożone instrukcje warunkowe

Służą one do przeprowadzania jednego lub wielu badań, a także wykonania operacji na zbiorach.

= Instrukcja HEAD =

Postać instrukcji:

: <tt>O HEAD Z1 e1 @ e2</tt>

Instrukcja powoduje umieszczenie obiektu <tt><O></tt> na początku zbioru <tt>Z1</tt> pod warunkiem, że obiekt <tt><O></tt> nie należy do <tt>Z1</tt>. Jeżeli przed wykonaniem instrukcji obiekt <tt><O></tt> należy do <tt>Z1</tt>, to zbiór <tt>Z1</tt> nie ulegnie zmianie. W przypadku dodania obiektu <tt><O></tt> do <tt>Z1</tt> wykonywany jest skok <tt>e1</tt>, w przypadku przeciwnym nastąpi skok do instrukcji o etykiecie <tt>e2</tt>.

= Instrukcja TAIL =

Postać instrukcji:

: <tt>O TAIL Z1 e1 @ e2</tt>

Jeżeli obiekt <tt><O></tt> nie należy do <tt>Z1</tt> to jest on dodawany do zbioru <tt>Z1</tt> i umieszczony na końcu ciągu obiektów. W tym przypadku skok nastąpi do instrukcji o etykiecie <tt>e1</tt>. Jeżeli natomiast obiekt <tt><O></tt> należy do zbioru <tt>Z1</tt>, to zbiór <tt>Z1</tt> pozostaje bez zmiany, a działanie przenosi się do instrukcji z etykietą <tt>e2</tt>.

'''Uwaga:''' Działania instrukcji '''HEAD''' i '''TAIL''' dotyczą zbiorów uporządkowanych.

= Instrukcja FROM =

Postać instrukcji:

: <tt>O FROM Z1 e1 @ e2</tt>

Jeżeli obiekt <tt><O></tt> należy do zbioru <tt>Z1</tt>, to po wykonaniu instrukcji obiekt ten zostanie usunięty ze zbioru <tt>Z1</tt> i nastąpi skok do instrukcji o etykiecie <tt>e1</tt>. Natomiast jeżeli obiekt nie należy do <tt>Z1</tt> przed wykonaniem instrukcji, to po wykonaniu <tt>Z1</tt> nie ulegnie zmianie i następuje skok do etykiety <tt>e2</tt>.

= Instrukcja TO =

Postać instrukcji:

: <tt>O TO Z1</tt>

Obiekt <tt><O></tt> jest dodawany do zbioru <tt>Z1</tt> niezależnie od tego, czy był wcześniej elementem <tt>Z1</tt> i zajmuje ostatnią pozycję w zbiorze <tt>Z1</tt>. Jeżeli zbiór <tt>Z1</tt> jest zbiorem boolowskim to efektem instrukcji '''TO''' jest wykonanie jednej instrukcji '''HEAD''', '''TAIL''' lub '''INTO'''.

{{source|title=Translator języka CSL-CROOK dla minikomputera MERA-400 w systemie operacyjnym CROOK-4, Instrukcja Programisty (wersja-17/2)|author=Janusz Gocałek, Jacek Klauziński|date=Poznań, 1985}}