Logiweb aspects of sub * set * to * end sub in pyk

Up Help

The predefined "pyk" aspect

define pyk of sub var a set var x to var b end sub as text unicode start of text unicode small s unicode small u unicode small b unicode space unicode asterisk unicode space unicode small s unicode small e unicode small t unicode space unicode asterisk unicode space unicode small t unicode small o unicode space unicode asterisk unicode space unicode small e unicode small n unicode small d unicode space unicode small s unicode small u unicode small b unicode end of text end unicode text end text end define

The predefined "tex" aspect

define tex of sub var a set var x to var b end sub as text unicode start of text unicode newline unicode backslash unicode small l unicode small a unicode small n unicode small g unicode small l unicode small e unicode space unicode number sign unicode one unicode period unicode newline unicode backslash unicode comma unicode left brace unicode backslash unicode small p unicode small r unicode small o unicode small t unicode small e unicode small c unicode small t unicode backslash unicode small v unicode small e unicode small r unicode small t unicode right brace unicode number sign unicode two unicode period unicode newline unicode left brace unicode colon unicode equal sign unicode right brace unicode backslash unicode comma unicode number sign unicode three unicode period unicode newline unicode backslash unicode small r unicode small a unicode small n unicode small g unicode small l unicode small e unicode space unicode end of text end unicode text end text end define

The predefined "value" aspect

define value of sub var a set var x to var b end sub as var x tagged guard ( var b tagged guard newline tagged if var a is metavar then tagged if var a term equal var x then var b else var a end if else newline tagged if not ( var a term root equal quote all x indeed x end quote ) then var a head pair sub star var a tail set var x to var b end sub else newline tagged if var a first term equal var x then var a else newline ( var a zeroth pair ( var a first pair ( sub var a second set var x to var b end sub pair true ) ) ) end if end if end if ) end define