X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;f=MUDDLE%2Feditor.8;fp=MUDDLE%2Feditor.8;h=d38f0cb20c98591503cbbbe3f7817b38f63491e9;hb=39c5769144e7f2a58076bdb973d2c80fa603345c;hp=0000000000000000000000000000000000000000;hpb=bab072f950a643ac109660a223b57e635492ac25;p=pdp10-muddle.git

diff --git a/MUDDLE/editor.8 b/MUDDLE/editor.8
new file mode 100644
index 0000000..d38f0cb
--- /dev/null
+++ b/MUDDLE/editor.8
@@ -0,0 +1,140 @@
+"MUDDLE EDITOR, PRETTY-PRINT, AND OTHER ASSORTED ROUTINES"
+
+%%<BLOCK (<ROOT>)>
+FRAMES
+LINPOS
+LINLNT
+PAGPOS
+PAGLNT
+LPT
+TPL
+1+
+1-
+INC
+DEC
+CHOP
+DEFINE
+PPRINT
+EPPRINT
+EDITOR
+%%<ENDBLOCK>
+"PAGE 2"
+%%<BLOCK <SETG EDITOR (<MOBLIST 7> <ROOT>)>>
+
+<SETG DEFINE <FUNCTION (NAME "ARGS" BODY "NAME" REDEF)
+	<COND (<GASSIGNED? .NAME><COND (<LISTEN
+			DO-YOU-REALLY-WANT-TO-REDEFINE .NAME
+			IF-SO-ERRET-TRUE-OTHERWISE-FALSE>)
+			(ELSE <EXIT .REDEF>)>)>
+	<SETG .NAME <CHTYPE .BODY FUNCTION>>
+	.NAME >>
+
+<SETG FRAMES 	<FUNCTION (I)
+	<REPEAT ((FRM <FRAME>)(SMALL 1))
+	<COND (<L? .I .SMALL >  <RETURN FUNCT---ARGS>)>
+	<SET FRM <FRAME .FRM>>
+	<PRINT .SMALL >
+	<PRINC <FUNCT .FRM>>
+	<PRINC "	">
+	<PRINC <ARGS .FRM>>
+	<SET SMALL <+ .SMALL 1>>
+	>>>
+
+<SETG LINPOS 14>
+<SETG LINLNT 13>
+<SETG PAGPOS 16>
+<SETG PAGLNT 15>
+
+<SETG 1+ <FUNCTION (NUMBER)  <+ .NUMBER 1>>>
+<SETG 1- <FUNCTION (NUMBER)  <- .NUMBER 1>>>
+
+<SETG INC <FUNCTION (ATOM "OPTIONAL" (VAL 1))
+	<SET .ATOM <+ ..ATOM .VAL>>>>
+
+<SETG DEC <FUNCTION (ATOM "OPTIONAL" (VAL 1))
+	<SET .ATOM <- ..ATOM .VAL>>>>
+
+<SETG CHOP <FUNCTION (ATOM "OPTIONAL" (VAL 1))
+	<SET .ATOM <REST ..ATOM .VAL>>>>
+
+
+<SETG TPL <FUNCTION ()
+	<OPEN "PRINT" "" "" "TPL">>>
+
+<SETG LPT <FUNCTION ("OPTIONAL" (DEFAULT TRUE))
+	<COND (<OPEN "PRINT" "" "" "LPT">)
+		(.DEFAULT <TPL>)>>>
+"PAGE 3"
+<SET TABS ["" "	" "		" "			"
+"				" "					"
+"						"
+"							"
+"								"]>
+
+
+
+
+<SET SPACES ["" " " "  " "   " "    " "     " "      " "       "]>
+
+
+<SETG INDENT-TO <FUNCTION ( N "AUX" (NOW <LINPOS .OUTCHAN>))
+	<COND (<G? .N .NOW>
+		<PRINC <<- </ .N 8> </ .NOW 8 > -1> .TABS>>
+		<PRINC <<- .N <* </ .N 8> 8> -1> .SPACES>>)>>>
+
+<SETG COMPONENTS <FUNCTION (L M)
+	<REPEAT ((N <LINPOS .OUTCHAN>))
+		<FORMS <1 .L>>
+		<COND (<EMPTY? <SET L <REST .L>>><RETURN DONE>)>
+		<TERPRI>
+		<INDENT-TO .N>>>>
+
+
+"PAGE 4"
+<SETG FORMS <FUNCTION (L)
+	<COND (<FLATSIZE .L <- <LINLNT .OUTCHAN> <LINPOS .OUTCHAN> .M>>
+		<PRIN1 .L>)
+
+
+
+	      (<==? <TYPE .L> FORM> <PRINC "<">
+		<PRIN1 <1 .L>>
+		<PRINC " ">
+		<FORM1 <REST .L> <+ .M 1>>
+		<PRINC ">">)
+	      (<==? <TYPE .L> LIST><PRINC "(">
+		<FORM1 .L <+ .M 1>>
+		<PRINC ")">)
+	      (<==? <TYPE .L> VECTOR><PRINC "["> 
+		<FORM1 .L <+ .M 1>>
+		<PRINC "]"> )
+	      (<==? <TYPE .L> FUNCTION>
+		<PRINC "<FUNCTION " >
+		<FORM1 .L <+ .M 1>>
+		<PRINC ">" >)
+	      (<MONAD? .L> <PRIN1 .L>)
+	      (ELSE <PRINC "#">
+		<PRIN1 <TYPE .L>>
+		<PRINC " (">
+		<FORM1 .L <+ .M 1>>
+		<PRINC ")"> )>
+>>
+"PAGE 5"
+
+<SETG PPRINT <FUNCTION  (L "OPTIONAL" (OUTCHAN .OUTCHAN))
+	<COND (<GASSIGNED? .L>
+	       <EPPRINT <CHTYPE (SETG .L ,.L) FORM>>)
+	      (<ASSIGNED? .L>
+	       <EPPRINT <CHTYPE (SET .L ..L) FORM>>)
+	      (ELSE UNASSIGNED)>>>
+
+
+<SETG EPPRINT <FUNCTION ( L "AUX" (M 1))
+	<TERPRI>
+	<FORMS .L>
+	<TERPRI>
+	DONE>>
+
+%%<ENDBLOCK>
+
+
\ No newline at end of file