;
; 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
  OUTPUT "[%q]%c%n[/%q]"

ELEMENT arqsits
  OUTPUT "%c"

ELEMENT arqelem
  REOPEN area-stream key concelho as buffer
  PUT area-stream key concelho "%c"
  CLOSE area-stream key concelho

ELEMENT identi
  OUTPUT "Identificação: %c%n"

ELEMENT concel
  SET concelho to "%c"
  DO WHEN !(area-stream has key concelho)
    NEW area-stream key concelho
  DONE

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