20120410-2044

6 files changed, 147 insertions, 1 deletions

diff --git a/Plan9/include/lib9.h b/Plan9/include/lib9.h
new file mode 100644
index 00000000..8973cd15
--- /dev/null
+++ b/Plan9/include/lib9.h
@@ -0,0 +1,20 @@
+#include <u.h>
+typedef usize size_t;
+
+#define	Runeerror xRuneerror
+#define	Rendez	xRendez
+#include <libc.h>
+#undef Runeerror
+#undef Rendez
+
+
+enum
+{
+	Runeerror	= 0x80,		/* decoding error in UTF */
+};
+/*
+ *	Extensions for Inferno to basic libc.h
+ */
+
+#define	setbinmode()
+#define	USE_FPdbleword
diff --git a/doc/acme/mkfile b/doc/acme/mkfile
new file mode 100644
index 00000000..e0e3a9f8
--- /dev/null
+++ b/doc/acme/mkfile
@@ -0,0 +1,4 @@
+<../fonts
+
+acme.ps:D:	acme.ms
+	{echo $FONTS; cat acme.ms} | troff -mpm -mpictures -mnihongo | lp -dstdout >acme.ps
diff --git a/doc/descent/mkfile b/doc/descent/mkfile
new file mode 100644
index 00000000..bdacae07
--- /dev/null
+++ b/doc/descent/mkfile
@@ -0,0 +1,15 @@
+<../fonts.pal
+
+descent.pdf:D:	descent.ps
+
+descent.ps:D:	descent.ms f1.ps f2.ps f3.ps mkfile
+	{echo $FONTS; cat descent.ms} | tbl | troff -mpm -mpictures | dpost >$target
+
+%.ps:	%.gif
+	dpost <$stem.gif >$stem.ps
+
+%.ps:	%.bit
+	aux/p9bitpost -b100 <$stem.bit >$stem.ps
+
+%.pdf: %.ps
+	ps2pdf <$stem.ps >$stem.pdf
diff --git a/doc/perform/mkfile b/doc/perform/mkfile
new file mode 100644
index 00000000..0f807d2b
--- /dev/null
+++ b/doc/perform/mkfile
@@ -0,0 +1,15 @@
+<../fonts.pal
+
+%.ps:D:	%.ms
+	{ echo $FONTS; cat $stem.ms } | grap | pic | tbl | troff -mpm | lp -dstdout > $target
+
+FILES = \
+	perform.ps \
+
+all:V: $FILES
+
+perform.ps:D: perform.ms x0base.gr x0baseo.gr \
+		x0baseh.gr x0baseho.gr \
+		x9gc.gr x9gc200.gr \
+		x31.gr x27base.gr x27base200.gr \
+		x28base.gr x28basehd.gr x29basehd.gr
diff --git a/include/version.h b/include/version.h
index 7ae53637..9ff8aae8 100644
--- a/include/version.h
+++ b/include/version.h
@@ -1 +1 @@
-#define VERSION	"Fourth Edition (20120305)"
+#define VERSION	"Fourth Edition (20120410)"
diff --git a/lib/limbo.vim b/lib/limbo.vim
new file mode 100644
index 00000000..bc9a08fa
--- /dev/null
+++ b/lib/limbo.vim
@@ -0,0 +1,92 @@
+" Vim syntax file
+" Language:     Limbo
+" Maintainer:   Alex Efros <powerman-asdf@ya.ru>
+" Version:	0.5
+" Updated:      2008-10-17
+
+" Remove any old syntax stuff that was loaded (5.x) or quit when a syntax file
+" was already loaded (6.x).
+if version < 600
+  syntax clear
+elseif exists("b:current_syntax")
+  finish
+endif
+
+syn keyword	lTodo		TODO TBD FIXME XXX BUG contained
+syn match	lComment	"#.*" contains=@Spell,lTodo
+
+syn keyword	lInclude	include
+
+syn match	lSpecialChar	display contained "\\\(u\x\{4}\|['\"\\tnrbavf0]\)"
+syn match	lSpecialError	display contained "\(\\[^'\"\\tnrbavf0u]\+\|\\u.\{0,3}\X\)"
+syn match	lCharError	display contained "\([^\\'][^']\+\|\\[^'][^']\+\)"
+syn region	lString		start=+"+ end=+"+ skip=+\\"+ contains=@Spell,lSpecialChar,lSpecialError
+syn region	lCharacter	start=+'+ end=+'+ skip=+\\'+ contains=lSpecialChar,lSpecialError,lCharError
+
+syn keyword	lSpecial	nil iota
+
+syn keyword	lFunction	tl hd len tagof
+syn match	lFunction	"<-=\?"
+
+syn keyword	lStatement	alt break continue exit return spawn implement import load raise
+syn keyword 	lRepeat		for while do
+syn keyword	lConditional	if else case 
+
+syn keyword	lType		array big byte chan con int list real string fn fixed
+syn keyword	lStructure	adt pick module
+syn keyword	lStorageClass	ref self cyclic type of
+
+syn keyword	lDelimiter	or to
+syn match	lDelimiter	"=>\|->\|\.\|::"
+
+
+if version >= 508 || !exists("did_icgiperl_syn_inits")
+  if version < 508
+    let did_icgiperl_syn_inits = 1
+    command -nargs=+ HiLink hi link <args>
+  else
+    command -nargs=+ HiLink hi def link <args>
+  endif
+
+    " Comment
+    HiLink lComment         Comment
+
+    " PreProc (Include, PreCondit)
+    HiLink lInclude         Include
+
+    " Constant (String, Character, Number, Boolean, Float)
+    HiLink lString          String
+    HiLink lCharacter       Character
+
+    " Special (Tag, SpecialChar, SpecialComment, Debug)
+    HiLink lSpecial	    Special
+    HiLink lSpecialChar     SpecialChar
+
+    " Identifier (Function)
+    HiLink lFunction        Function
+
+    " Statement (Conditional, Repeat, Label, Operator, Keyword, Exception)
+    HiLink lStatement       Statement
+    HiLink lRepeat          Repeat
+    HiLink lConditional     Conditional
+
+    " Type (StorageClass, Structure, Typedef)
+    HiLink lType            Type
+    HiLink lStructure       Structure
+    HiLink lStorageClass    StorageClass
+
+    " Error
+    HiLink lSpecialError    Error
+    HiLink lCharError	    Error
+
+    " Todo
+    HiLink lTodo	    Todo
+
+    " Delimiter
+    HiLink lDelimiter	    Delimiter
+
+  delcommand HiLink
+endif
+
+
+let b:current_syntax = "limbo"