# Ludwig script of Forked Join implementation # Requires Ludwig 1.0 # PGL 18/8/98 FORK = FILE "../fork/spec.ndf" JOIN = FILE "../join/spec.ndf" FJ = FILE "spec.ndf" F = RENAME [a? b! c!] TO [x? c! d!] IN FORK J = RENAME [c!] TO [x!] IN JOIN FJTMP = (F || J) MYFJ = MINIMIZE FJTMP PRINT "andif" MYFJ # now verify wether we got it right: QUERY TAKE MYFJ FROM FJ