34 lines · 702 B · Brainfuck
RawDownload
##       Software from the book "Inferno Programming with Limbo"#       published by John Wiley & Sons, January 2003.##       p. Stanley-Marbell <pip@gemusehaken.org>#implement Filter; include "sys.m";include "styx.m";include "filter.m"; sys : Sys;styx : Styx;Smsg : import styx; init(nil, nil : array of ref Sys->FD){	sys = load Sys Sys->PATH; 	styx = load Styx Styx->PATH;	if (styx == nil)	{		sys->raise(sys->sprint("fail:Could not load %s : %r", Styx->PATH));	} 	filtername = "Print Filter : Print Styx messages in filter pipeline.";	sys->print("Filter module \"%s\" initialised.\n", filtername);} rewrite(fmsg : ref Filtermsg){	sys->print("%s\n", fmsg.styxmsg.print());}