proc isSpace1(char)
private x
x = substr(char, 1 , 1 )
if(x = " " or x = "\t"  ) then
       return true
endif
return false
endproc

proc countErrs(s1, s2)
private   a1, a2, a1L, a2L, a1P, a2P,  ; array, array length, array pointer
          errs, mmatch,
          MODUL,x
MODUL =  100                    ;      1283   -  83  mmatch
                              ;      12       errors
                              ;
 deSpace( s1, s2)      a1P =  1      a2P =  1 
;? "-------------------"
calls= 0 
x = countMatch( 0 , 0 )

errs  = int(x / MODUL)
mmatch = x - int(x / MODUL) * MODUL
;? "mmatch = ", mmatch," calls = ", calls
return errs
endproc

proc countMatch(mmatch, errs)
calls= calls+ 1 
while(a1P <= a1L and a2P <= a2L )
   if( a1[a1P]  <>  a2[a2P] ) then
           return searchMatch (mmatch,errs)
   endif
   a1P = a1P +  1 
   a2P = a2P +  1 
   mmatch = mmatch +  1 
endwhile

errs = errs + max( 0 , max ( a1L+ 1  - a1P, a2L+ 1  - a2P))
return errs * MODUL + mmatch
endproc



proc searchMatch(mmatch, errs)
private err,      x,y,m,e, structP
structP =  0 
err =  1 
   WHILE a1P + err <= a1L or a2P + err <= a2L
                            ; поиск возможных продолжений
                            ; по каждому продолжению
                            ; записывается структура <a1P, a2P, mmatch, errs>
                            ; для оценки выбора продолжения
       array x[ 2 *err]
       array y[ 2 *err]
       array m[ 2 *err]
       array e[ 2 *err]
       structP = searchSequel(err)
       if(structP >  0 ) then
            quitloop
       endif
       err = err +  1 
   endWHILE
   errs = errs + err
   if(structP >  0 ) then
         return weightSequel(mmatch, errs, structP)
   endif
return (errs * MODUL) + mmatch
endproc

proc saveStruct(p, i1, i2)
p = p +  1 
if(p <=  2 *err) then
      x[p]  = i1
      y[p]  = i2
      m[p]  =  0 
      e[p]  =  0 
      return  1 
endif
return  0 
endproc

proc   searchSequel(err)   ;  доступ к структуре в вызвавшей программе
private rc, i1, i2
rc =  0 
i1 = a1P
i2 = a2P
while( (i1 < a1P + err) OR (i2 < a2P + err))
      if((i2 <= a2L) and (a1P + err <= a1L)) then
           if( a2[i2] = a1[a1P + err] ) then
               rc = rc + saveStruct(rc, a1P + err, i2)
           endif
      endif
      if((i1 <= a1L) and (a2P + err <= a2L)) then
           if( a1[i1] = a2[a2P + err] ) then
               rc = rc + saveStruct(rc, i1, a2P + err)
           endif
      endif
      i1 = i1 +  1 
      i2 = i2 +  1 
endwhile
if(i1 <= a1L and i2 <= a2L) then
     if( a1[i1] = a2[i2] ) then
         rc = rc + saveStruct(rc, i1, i2)
     endif
endif
return rc
endproc


proc   weightSequel(mmatch, errs, sP)
private p, errsMatch , minEr, maxMa , er, ma, i1, i2, ppp
errsMatch =  0 
minEr =   32000 
maxMa = - 32000 
  for p from  1  to sP
      er = errs
      a1P = x[p]
      a2P = y[p]
      errsMatch = countMatch (mmatch, errs)
      m[p] =  errsMatch - int(errsMatch / MODUL) * MODUL
      e[p] =  int(errsMatch / MODUL)
      if (m[p] > maxMa) then
            ppp   = p
            minEr = e[p]
            maxMa = m[p]
      else if (m[p] = maxMa and e[p] < minEr) then
            ppp   = p
            minEr = e[p]
            maxMa = m[p]
      endif
      endif
  endfor
errsMatch = minEr * MODUL + maxMa
return errsMatch
endproc

proc deSpace( string1, string2)
private i,j, prevChar, char
prevChar =  0 ;
i =  0 ;
j =  0 

;string1 = ltrim(rtrim(string1))
a1L = len(string1)
array a1[a1L]


for i from  1  to a1L
     char = substr(string1, i,  1 )
     if((not isSpace1(char)) or (not isSpace1(prevChar))) then
          j = j +  1 
          a1[j] = char
          prevChar = char
     endif
endfor
a1L = j
prevChar =  0 ;
i =  0 ;
j =  0 

;string2 = ltrim(rtrim(string2))
a2L = len(string2)
array a2[a2L]

for i from  1  to a2L
     char = substr(string2, i,  1 )
     if((not isSpace1(char)) or (not isSpace1(prevChar))) then
          j = j +  1 
          a2[j] = char
          prevChar = char
     endif
endfor
a2L = j
endproc

proc printArray(arr, arrL)
private i
@  2 , 2 
?? "--> "
for i from  1  to arrL
        execute "?? "+arr+"["+strval(i)+"]"
endfor
?? " <--"
endproc