INTERFACEFileNode ; IMPORT Node, Thread, Wr, Wx; TYPE T <: Tx; Tx = Node.Named_T OBJECT path : TEXT; END; PROCEDURE EmitFile (n: Node.T; path: TEXT; wx: Wx.T): BOOLEAN RAISES {Wr.Failure, Thread.Alerted};
Ifpath
has a recognized extension, emit the file with the proper HTTP tags and returnTRUE
. Otherwise, returnFALSE
.
END FileNode.