// parsetitle.bcpl
// Modified on July 25, 1978  3:04 PM
// Look for "title" information at the bottom of the drawing
//
//ParseTitle(0, v, len) -- initializes parser with state vector v of length len
//ParseTitle(1, v, item) -- passes in item to be considered for parsing
//		-- returns 0 if not an interesting entry, otherwise
//		1 for File, 2 for Rev, 3 for Date, and 4 for Page
//ParseTitle(2, v, n, str) -- appends to str the string for thing n (if str exists)
//		returns pointer to string for thing n in any case, or 0 if it does not exist
//		(n=5 implies a "comment string" -- combination of all 4)
//ParseTitle(3, v, stream) -- issue complaints about missing entries

get "ana.defs"

manifest nKeywords=4

structure P:
[
	len	word
	nextGS word
	index^1,nKeywords word
	xloc^1,nKeywords word
	yloc^1,nKeywords word
	dist^1,nKeywords word
]

structure GS:
[
	x word
	y word
	string: @str
]

let ParseTitle(what, v, a1, a2; numargs na) = valof switchon what into
[(635)\f1
case 0:
[l4268\f1
Zero(v, (size P/16))
v>>P.len=a1; v>>P.nextGS=(size P/16)+v
resultis nill5538\f1
]

case 1:
[l4268\f1
let font=a1>>item.font
let ix=a1>>item.xmin
let iy=a1>>item.ymin
let ist=lv a1>>item.string
unless iy ge 720 & (font eq 0 % font eq 4) then resultis 0
// First, see if the string is a keyword
let keyword=false
for i=1 to nKeywords do if StEq(ist, NameStr(i), nil) then
[l5538\f1
v>>P.xloc^i=ix
v>>P.yloc^i=iy
keyword=truel6808\f1
]
let ourp=-1
unless keyword then ourp=valof
[l5538\f1
// First look to see if already there (for 2 pass operation)
let p=v+(size P/16)
let ns=v>>P.nextGS
while p ne ns do
[l6808\f1
if StEq(ist, lv p>>GS.string) &
   ix eq p>>GS.x & iy eq p>>GS.y then resultis p	//Found it
p=p+p>>GS.string.length/2+3l8078\f1
]

// Must make a new string entry in the vector
let len=ist>>str.length/2+3
ns=p+len
if ns-v gr v>>P.len then CallSwat("Too many title strings")
v>>P.nextGS=ns
MoveBlock(lv p>>GS.string, ist, len-2)
p>>GS.x=ix
p>>GS.y=iy
resultis pl6808\f1
]

// Now, look to see if new matches can be made, or if we are already matched
Zero(lv v>>P.index^1, nKeywords)
SetBlock(lv v>>P.dist^1, 1000, nKeywords)
let p = v+(size P/16)
while p ne v>>P.nextGS do
[l5538\f1
let mindist=80; let besti=0
for i=1 to nKeywords do
[l6808\f1
let tx,ty=(p>>GS.x-v>>P.xloc^i),(p>>GS.y-v>>P.yloc^i)
let dist=(tx+ty)
if tx ge 0 & ty ge 0 & dist le mindist
	then [ besti=i; mindist=dist ]l8078\f1
]
if besti ne 0 & mindist le v>>P.dist^besti then
[l6808\f1
v>>P.index^besti = p
v>>P.dist^besti = mindistl8078\f1
]
p=p+p>>GS.string.length/2+3l6808\f1
]
for i=1 to nKeywords do if v>>P.index^i eq ourp then resultis i
resultis 0l5538\f1
]

case 2:
[l4268\f1
let iMin,iMax=a1,a1; if a1 eq nKeywords+1 then iMin,iMax=1,nKeywords
for i=iMin to iMax do
[l5538\f1
let p=v>>P.index^i
if p then p=p+(offset GS.string/16)
if na eq 3 then resultis p
if p then
[l6808\f1
AppendS(NameStr(i), a2)
AppendS("=", a2)
AppendS(p, a2)
AppendS(" ", a2)l8078\f1
]l6808\f1
]
resultis nill5538\f1
]

case 3:
[l4268\f1
for i=1 to nKeywords do if v>>P.index^i eq 0 thenl5538\f1
[
Wss(a1, "*nUnable to find title entry for ")
Wss(a1, NameStr(i))
]l6808\f1
resultis nill5538\f1
]l4268\f1
]

and NameStr(n) = selecton n into
[\f1
case 1: "File"
case 2: "Rev"
case 3: "Date"
case 4: "Page"l4269\f1
]
\f1

\f1