;;;   -*- Mode: LISP; Package: CGP; BASE: 10; Syntax: ANSI-Common-Lisp; -*-

(in-package :cgp)

(dn "Kamp er en vakker liten by. I dag er det kamp mellom lagene til Kamp og Filsen. Vi bor i Kamp.")

(dn "Vi bor i Kamp. Kamp er en vakker liten by.")

(d "Dette er Bærum Bål & Brensel.")
(dn "Dette er Bærum Bål og Brensel.")

(d "Brensel")

(d "Bjørn Knudsen kom.")

(dn "Dette leste jeg i Norsk skoleblad.")

(setf (regexp-parser (gethash "nbo-mai" *cg-table*))
      (fsa::dfa-compile-parsed-boolean-list
       '(:OR
         (:SEQ (:AND subst (:ADD head) prop be) "i" (:AND subst prop))
         (:SEQ (:OR (:AND det dem prop) (:AND pron pers fl nom hoeflig))
               (:* adj)
               (:AND subst (:ADD head)))
         (:SEQ (:+ (:AND adj prop))
               (:AND subst (:ADD head)))
         (:SEQ (:+ (:AND subst prop (:NOT gen)))
               (:* adj)
               (:? (:seq (:and subst) "og"))
               (:AND subst (:ADD head) ent ub 
                     (:or "as" "a/s"
                          "*kontor" "*hjem"
                          "*skole" "*barnehage" "*korps"
                          "borettslag" "lufthavn" "flyplass" "*anlegg" "børs" "*gymnas"
                          "*hjem" "kapell" "fylk" "*kommune" "*rett" "sentrum" "*råd"
                          "*fengsel" "*senter" "*hus" "politikammer" "*bane" "gård"
                          "stadion" "menighet" "rådhus" "stadion" "museum" "kino" "teater")))
         (:SEQ (:AND subst prop) (:+ (:AND subst prop)))
         (:SEQ (:+ (:AND subst prop)) 
               (:OR (:SEQ "&" (:+ (:AND subst prop)))
                    (:SEQ (:AND subst prop) "og"
                          (:+ (:AND subst appell prop (:not samset)))))
               (:? (:or "AS" "A/S"))))
       (make-instance 'fsa::boolean-list-fsa)))

(dn "Samtidig er Ahtisaari, som i september fikk hele 48,5 prosent
mens han fortsatt befant seg hos FN i Geneve, falt ned til 24
prosent, med Centerns Paavo Vayrynen på 19 prosent og
Samlingspartiets Raimo Ilaskivi på 16 prosent.")


(d "Å opprette nye prestegjeld og
sogn og å nedlegge andre, er ikke gjort over natten.")

(dn "Det minner rett og slett om boikott fra Bulls side. Høyre er jo så redd for
at kommunen skal ha meninger om hva slags næringsliv det er
riktig å satse på i Osloregionen, sier Bull.")

(dc "Høyre er jo så redd for
at kommunen skal ha meninger om hva slags næringsliv det er
riktig å satse på i Osloregionen, sier Bull.")

(dn "i Bull")

(dn "i Dagbladet gård")

(d "Programmet tar antagelig feil.")

(dn "Jeg handler hos Hansen & Dysvik.")

(dn "Rens På Timen heter et nytt servicetilbud. De som går til Rens På Timen, kan få ekstramedlemskap i Smokers Club Europe AS og Skårertoppen II borettslag.")

;; *sentence*

(fsa::fsa-print (regexp-parser *nbo-cg*))

(d "Den store oktoberrevolusjonen begynte i 1917. Vi så en film om Den store oktoberrevolusjonen i Russland. Oktoberrevolusjonen krevde millionvis av liv.")

(dn "Lægeforeningen har sitt eget program sammen med Den norske stats oljeselskap. Men også Lægeforeningen lyver.")

(dn "Vi så en film om Den store oktoberrevolusjonen i Russland. Den store oktoberrevolusjonen begynte i 1917. Oktoberrevolusjonen krevde millionvis av menneskeliv.")

(dn "Jeg jobber på Universitetet i Bergen, ikke på Tåsen ungdomsskole. Tåsen ungdomsskole er en forferdelig skole. Ungdomsskolens ledelse ligger midt i byen.")

(dn "Jeg jobber på Universitetet i Bergen.")

(dn "Jeg jobber på universitetet i Bergen.")

(dn "I går var det stor skandale i Norges skuespillerforbund. Skuespillerforbundet skal nedlegges.")

(dn "Rens På Timen heter et nytt servicetilbud. De som går til Rens På Timen, kan få ekstramedlemskap i Smokers Club Europe AS og Skårertoppen II borettslag.")

(dn "Jeg jobber ikke på Bærum arbeidskontor.")

(dn "Det er i Bærum smør spises mye.")

(dn "Det er nok Bergen turistene liker best.")

(dn "Her holder Universitetet i Oslo til.")

(matches *sentence*)

*memory*