From 71bdb35d52747e6d7d9f55df4524d57c2966be94 Mon Sep 17 00:00:00 2001
From: "Jeffrey H. Kingston" <jeff@it.usyd.edu.au>
Date: Tue, 14 Sep 2010 19:21:41 +0000
Subject: Lout 3.17.

git-svn-id: http://svn.savannah.nongnu.org/svn/lout/trunk@2 9365b830-b601-4143-9ba8-b4a8e2c3339c
---
 include/modulaf | 137 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 137 insertions(+)
 create mode 100644 include/modulaf

(limited to 'include/modulaf')

diff --git a/include/modulaf b/include/modulaf
new file mode 100644
index 0000000..2f1221d
--- /dev/null
+++ b/include/modulaf
@@ -0,0 +1,137 @@
+
+###############################################################################
+#                                                                             #
+#  Lout @Modula package for formatting Modula-2 programs (Version 1.0)        #
+#                                                                             #
+#  Version 1.0 by Jeffrey H. Kingston, September 1993.                        #
+#                                                                             #
+#  This package implements the complete Modula-2 language (in a style which   #
+#  claims only to reflect its author's taste) with the following caveats:     #
+#                                                                             #
+#  * The symbol { must be given as lbrace                                     #
+#                                                                             #
+#  * The symbol } must be given as rbrace                                     #
+#                                                                             #
+#  * The symbol # must be given as numbersign                                 #
+#                                                                             #
+#  * Double quotes are used by Lout to delimit literal strings, so they       #
+#    need to be quoted (Modula-2 allows single quoted strings wherever        #
+#    double quoted strings can go; we recommend these be used)                #
+#                                                                             #
+#  * Literal strings should be enclosed in double quotes                      #
+#                                                                             #
+#  * The symbols B, H, C, and E as used in numeric literals will appear       #
+#    in italic font                                                           #
+#                                                                             #
+###############################################################################
+
+export	"0" "1" "2" "3" "4" "5" "6" "7" "8" "9"
+
+	"*" "/" "~" "+" "-" "=" "<>" ">" ">=" "<" "<=" "("
+	")" "[" "]" "," ";" "." ":" "..." ".." "|" "^" ":=" "'" "`"
+	"&"
+
+	lbrace rbrace numbersign
+
+	AND ARRAY BEGIN BY CASE CONST DEFINITION DIV DO ELSE ELSIF
+	END EXPORT EXIT FOR FROM IF IMPLEMENTATION IMPORT IN LOOP
+	MOD MODULE NOT OF OR POINTER PROCEDURE QUALIFIED RECORD
+	REPEAT RETURN SET TO THEN TYPE UNTIL VAR WHILE WITH @Com
+
+def @Modula
+   body @Body
+@Begin
+
+    def @R right x { Base @Font x }
+    def @B right x { Bold @Font x }
+    def @S right x { { Symbol Base } @Font x }
+
+    def "0"	{ @R "0"			}
+    def "1"	{ @R "1"			}
+    def "2"	{ @R "2"			}
+    def "3"	{ @R "3"			}
+    def "4"	{ @R "4"			}
+    def "5"	{ @R "5"			}
+    def "6"	{ @R "6"			}
+    def "7"	{ @R "7"			}
+    def "8"	{ @R "8"			}
+    def "9"	{ @R "9"			}
+
+    def "*"	{ @S @Char "asteriskmath"	}
+    def "/"	{ @R @Char "fraction"		}
+    def "~"	{ @R "~"			}
+    def "+"	{ @S "+"			}
+    def "-"	{ @S "-"			}
+    def "="	{ @S @Char "equal"		}
+    def "<>"	{ @S @Char "notequal"		}
+    def ">"	{ @S @Char "greater"		}
+    def ">="	{ @S @Char "greaterequal"	}
+    def "<"	{ @S @Char "less"		}
+    def "<="	{ @S @Char "lessequal"		}
+    def "("	{ @R "("			}
+    def ")"	{ @R ")"			}
+    def "["	{ @R "["			}
+    def "]"	{ @R "]"			}
+    def ","	{ @R ","			}
+    def ";"	{ @R ";"			}
+    def "."	{ @R "."			}
+    def ":"	{ @R ":"			}
+    def ".."	{ @R ".." &0.1f			}
+    def "..."	{ @R "..." 			}
+    def "|"	{ @R "|"			}
+    def "^"	{ @S 0.8f @Font @Char "arrowup"	}
+    def ":="	{ :{//0.03fo =}			}
+    def "'"	{ @R "'"			}
+    def "`"	{ @R "`"			}
+    def "&"	{ @R "&"			}
+
+    def lbrace		{ @R "{"		}
+    def rbrace		{ @R "}"		}
+    def numbersign	{ @R "#"		}
+
+    def AND		{ @B "and"		}
+    def ARRAY		{ @B "array"		}
+    def BEGIN		{ @B "begin"		}
+    def BY		{ @B "by"		}
+    def CASE		{ @B "case"		}
+    def CONST		{ @B "const"		}
+    def DEFINITION	{ @B "definition"	}
+    def DIV		{ @B "div"		}
+    def DO		{ @B "do"		}
+    def ELSE		{ @B "else"		}
+    def ELSIF		{ @B "elsif"		}
+    def END		{ @B "end"		}
+    def EXPORT		{ @B "export"		}
+    def EXIT		{ @B "exit"		}
+    def FOR		{ @B "for"		}
+    def FROM		{ @B "from"		}
+    def IF		{ @B "if"		}
+    def IMPLEMENTATION	{ @B "implementation"	}
+    def IMPORT		{ @B "import"		}
+    def IN		{ @B "in"		}
+    def LOOP		{ @B "loop"		}
+    def MOD		{ @B "mod"		}
+    def MODULE		{ @B "module"		}
+    def NOT		{ @B "not"		}
+    def OF		{ @B "of"		}
+    def OR		{ @B "or"		}
+    def POINTER		{ @B "pointer"		}
+    def PROCEDURE	{ @B "procedure"	}
+    def QUALIFIED	{ @B "qualified"	}
+    def RECORD		{ @B "record"		}
+    def REPEAT		{ @B "repeat"		}
+    def RETURN		{ @B "return"		}
+    def SET		{ @B "set"		}
+    def TO		{ @B "to"		}
+    def THEN		{ @B "then"		}
+    def TYPE		{ @B "type"		}
+    def UNTIL		{ @B "until"		}
+    def VAR		{ @B "var"		}
+    def WHILE		{ @B "while"		}
+    def WITH		{ @B "with"		}
+
+    def @Com right x	{ @R "{" x @R "}"	}
+
+   Slope @Font lines @Break @Body
+
+@End @Modula
-- 
cgit