X-Git-Url: https://jxself.org/git/?a=blobdiff_plain;ds=sidebyside;f=%3Cmdl.comp%3E%2Fsyntax.macro.1;fp=%3Cmdl.comp%3E%2Fsyntax.macro.1;h=8e85e79773800b16a0c228f700f1f78cb2637aa3;hb=3395a5e4ef72d59cdb6832af7808dc9c2cf2a413;hp=0000000000000000000000000000000000000000;hpb=363cc6ead5cf4df20759797fe46b5dc29b3886e9;p=pdp10-muddle.git

diff --git a/<mdl.comp>/syntax.macro.1 b/<mdl.comp>/syntax.macro.1
new file mode 100644
index 0000000..8e85e79
--- /dev/null
+++ b/<mdl.comp>/syntax.macro.1
@@ -0,0 +1,54 @@
+1<[..D:^I..D? A    A    A    A    A    A    A    A    A              A              A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A    A              |    A   AA   A     A         (    )    A    A    A    A   AA    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    A         (    A    )    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    /    )    A    A    A   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA   AA    (    A    )    A    A   ?
+FVYACC ===> SYNTAX CONVERTER RUNNING.
+[0[1J:K
+:Sint (*act[])() {
+	"EFVLOSSAGE act0;'	[ 
+:S-1};
+"EFVLOSSAGE act END0;']
+:Sint r1[] {
+	"EFVLOSSAGE r10;'	![
+:S-1};"EFVLOSSAGE r1 END0;']
+:Sint r2[] {
+	"EFVLOSSAGE r20;'	![
+:S-1};"EFVLOSSAGE r2 END0;']
+:Schar *sterm[] {
+	"EFVLOSSAGE sterm0;'	[
+:S0};"EFVLOSSAGE sterm END0;']
+:Schar *snterm[] {
+	"EFVLOSSAGE snterm0;'	[
+:S0};"EFVLOSSAGE snterm END0;']
+:Sint g[] {
+	"EFVLOSSAGE g0;'	![
+:S-1};"EFVLOSSAGE g END0;']
+:Sint pg[] {
+	"EFVLOSSAGE pg0;'	![
+:S-1};"EFVLOSSAGE pg END0;']
+:Sint sq[] {
+	"EFVLOSSAGE sq0;'	![
+:S-1};"EFVLOSSAGE sq END0;']
+:Sint nbpw {"EFVLOSSAGE npbw0;'	
+:S};"EFVLOSSAGE npbw END0;'
+:Sint nwpbt {"EFVLOSSAGE nwpbt0;'	
+:S};"EFVLOSSAGE nwpbt END0;'
+:Sint a[] {
+	"EFVLOSSAGE a0;'	![
+:S-1};"EFVLOSSAGE a END0;']
+:Sint pa[] {
+	"EFVLOSSAGE pa0;'	![
+:S-1};"EFVLOSSAGE pa END0;']]>
+.,ZK
+J<:S,"{U0 !'! Q0; R
+Q0+1"ED'
+Q0+2"EC.U0 :S","EFVLOSSAGE string0;'3R !'!
+   Q0,.FSBOUND-Z+(BJ<:S"\; !'! RI\C>WZJZ)FSBOUNDWCD'
+Q0+3"EFLR'>
+JS<:S]0+1;2RDI<>>
+<J:S
+ar;:S{"EFVLOSSAGE ar start0;'.U0RFLRQ0,.-1X1 0,.K
+:S"EFVLOSSAGE act AGAIN0;':Sar"EFVLOSSAGE ar END0;'
+-2DFWK FQ1+(FSHPOS)-(FSWIDTH)"GI
+	' G1>
+JI<SETG TABLES!-SYNTAX!-PACKAGE!-
+     #TABLES!-SYNTAX!-PACKAGE!- [
+S-DDJ]1]0]..D FVDONE
+>
\ No newline at end of file