/ Takes a file and merges all lines that have no double-newline between them.
/ this is good to generate word docs.
/ In this version, it also ignores text that is between
/ \longversion{ and }
/ It also gets rid of everything after %
/ k makeword inter45.tex
/ takes inter45.tex and generates temp.d/inter45.doc

allsqueeze:{[line; multipos]
  if[0 = #multipos; :line]
  size: #multipos
  multipos@: <multipos
  jj: 0
  while[jj < size
	pos: multipos[jj]
	line: squeeze[line;pos]
	multipos-: 1
	jj+: 1
  ]
  :line
}

squeeze:{[line; pos]
  :line[!pos], line[(pos+1)+!((#line) - (pos+1))]
}

longversionmode: 0
currentline: ()
out: ()
processline:{[line]
  if[(0 = #line) & (longversionmode = 0)
	out,: ,currentline
	out,: ,"   "
	currentline:: ()
  ]
  if[0 < #line
     currentlineempty: 0 = #currentline / this is the word line
     firstblank: (" ") = line[0]
     if[firstblank / stop previous line and spit out this line by itself
	if[~ currentlineempty 
		out,: ,currentline
		currentline:: ()
	]
	out,: ,line
     ]
     / if[currentlineempty & (~ firstblank)
	/ currentline,: line
     / ]
     / if[( ~ currentlineempty) & (~ firstblank) 
     if[(~ firstblank) 
	if[currentlineempty = 0; line: (" "), line]
	qq: line _ss ("\\%")
	line[qq]: "%"
	line: allsqueeze[line;qq+1]
	qq: line _ss ("\\$")
	line[qq]: "$"
	line: allsqueeze[line; qq+1]
	qq: line _ss ("``")
	line[qq]: "\""
	line: allsqueeze[line; qq+1]
	qq: line _ss ("''")
	line[qq]: "\""
	line: allsqueeze[line; qq+1]
	ss1: line _ss ("\\item")
	ss2: line _ss ("\\begin")
	ss3: line _ss ("\\end")
	killline: 0 < #ss1,ss2,ss3
	mm: line _ss "longversion{"
	startlongversion: 0 < #mm
	nn: line ? "}"
	endlongversion: nn < #line
	if[(longversionmode = 0) & (startlongversion = 0) & (killline=0)
		currentline,: line
	]
	if[(longversionmode = 0) & (startlongversion = 1)
		xx: (*mm) - 1
		if[(xx > 0) & (killline = 0)
			currentline,: line[!xx]
		]
		longversionmode:: 1
	]
	if[(longversionmode = 1) & (endlongversion = 1)
		longversionmode:: 0
		newline: (nn+1) _ line
		if[(0 < #newline) & (killline = 0)
			currentline,: newline
		]
	]
     ]
  ]
}

a: 0: _i[0]
a,: ,"      "
x: processline'a
filename: _i[0]
jj: filename _ss ".tex"
if[0 < #jj
	filename@: !*jj
]
fileout:  filename, (".doc")
fileout 0: out
\\