hodza/BlackBox.Shkola.2014 huggingface dataset:
Xhtml/Docu/Exporter.odc

XhtmlExporter

This module implements an HTML exporter that can be used with current Web browsers. Its HTML output already conforms to the stricter XHTML syntax, except for the XML header which is left out so that current browsers are not confused.

The (X)HTML elements/tags and attributes currently supported are: html, head, title, body, p, a(href, id), font(face, size, color), strong, em, u.

The exporter converts text. Embedded views are exported as asterisks. Link and target views (module StdLinks) are exceptions, they are turned into HTML links and anchors. Only links within documents are supported.

The exporter is preconfigured in Config.Setup:

	Converters.Register("", "XhtmlExporter.ExportText", "TextViews.View", "html", {});
Xhtml/Mod/Writers.odc

MODULE XhtmlWriters;
(**
	project	= "BlackBox"
	organization	= "www.oberon.ch"
	contributors	= "Oberon microsystems"
	version	= "System/Rsrc/About"
	copyright	= "System/Rsrc/About"
	license	= "Docu/BB-License"
	changes	= "
	- YYYYMMDD, nn, ...
	"
	issues	= "
	- ...
	"

**)

	CONST prettyPrint* = FALSE; preserve* = TRUE;

	TYPE
		Error* = POINTER TO RECORD 
			pos*: INTEGER;
			msg*: ARRAY 80 OF CHAR
		END;

		Writer* = POINTER TO ABSTRACT RECORD END;

	PROCEDURE (wr: Writer) Error* (): Error, NEW, ABSTRACT;
	PROCEDURE (wr: Writer) Ln*, NEW, ABSTRACT;
	PROCEDURE (wr: Writer) Comment* (IN comment: ARRAY OF CHAR), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) Instruction* (IN piTarget, instruction: ARRAY OF CHAR), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) DocType* (IN rootName, pubidLiteral, sysidLiteral: ARRAY OF CHAR), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) StartTag* (IN elem: ARRAY OF CHAR; preserve: BOOLEAN), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) Attr* (IN name, value: ARRAY OF CHAR), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) Data* (IN data: ARRAY OF CHAR), NEW, ABSTRACT;
	PROCEDURE (wr: Writer) EndTag*, NEW, ABSTRACT;

END XhtmlWriters.