;
; Script Omnimark para gerar uma página HTML com os arqueositios agrupados
;   por Concelho
; Versão 0.1 - jcr - 27.02.98
;

DOWN-TRANSLATE

global stream area-stream variable initial-size 0
global stream temp
global stream concelho

ELEMENT #IMPLIED
  SUPPRESS

ELEMENT arqueo
  OUTPUT "%c"

ELEMENT identi
  SET temp TO "<li>%c%n"

ELEMENT concel
  SET concelho TO "%sc"
  DO WHEN !(area-stream has key concelho)
    NEW area-stream key concelho
  DONE
  REOPEN area-stream key concelho as buffer
  PUT area-stream key concelho temp
  CLOSE area-stream key concelho

DOCUMENT-END
  REPEAT OVER area-stream
    OUTPUT "<h2>Entrys of  '" || 
           key of area-stream ||
           "':</h2>%n<ul>%n%g(area-stream)</ul>%n"
  again