//
// extract-opera.vdm                Ch.Ziemski  20.07.2003
//
// Extracts all regitry entries out of a registry export file
//

#96=Buf_Num
#97=Buf_Free

RS(98, PATHNAME)
BS(#97)
FSA("|@(98).extract", OK+NOMSG)

BS(#96)
BoF

while (! At_EoF) {
  search("opera.exe", NOERR+ERRBREAK)
  Line(1)
  #99=CP
  Search("|<[", REVERSE)
  RCB(99, CP, #99)
  BS(#97)
  RI(99)
  BS(#96)
  GP(#99)
}

// remove double empty [key]'s

BS(#97)
BoF
while (! At_EoF) {
  if (Cur_Char == '[') {
    RCB(99, CP, Eol_Pos-1)
    Line(1, NOERR+ERRBREAK)
    if (Match(@99) == 0) {
      Del_Line(-1)
    }
  } else {
    Line(1, NOERR+ERRBREAK)
  }
}

BoF