(* Ajd --- Adjektiver * Copyright 1996 Peter Sestoft.  
   Må kopieres og modificeres jvfr. GNU General Public License *)

open Basis

datatype adjektiv =
    RegA of string * string * string
         (* fk/ent   itk/ent  flt+bes *)

val adjektiver = 
    #[RegA("aktiv", "-t", "-e"),
      RegA("aktuel", "-t", "-le"),
      RegA("analytisk", "-", "-e"),
      RegA("anerkendt", "-", "-e"),
      RegA("anvendt", "-", "-e"),
      RegA("basal", "-t", "-e"),
      RegA("central", "-t", "-e"),
      RegA("dansk", "-", "-e"),
      RegA("dynamisk", "-", "-e"),
      RegA("empirisk", "-", "-e"),
      RegA("etisk", "-", "-e"),
      RegA("forbedret", "-", "forbedrede"),
      RegA("frugtbar", "-t", "-e"),
      RegA("fælles", "-", "-"),
      RegA("generel", "-t", "-le"),
      RegA("global", "-t", "-e"),
(*    RegA("god", "-t", "-e"), *)
      RegA("heuristisk", "-", "-e"),
      RegA("hierarkisk", "-", "-e"),
      RegA("horisontal", "-t", "-e"),
      RegA("humanistisk", "-", "-e"),
      RegA("individuel", "-t", "-le"),
      RegA("innovativ", "-t", "-e"),
      RegA("isoleret", "-", "isolerede"),
      RegA("integreret", "-", "integrerede"),
      RegA("international", "-t", "-e"),
      RegA("kommunikerbar", "-t", "-e"),
      RegA("kompetent", "-", "-e"),
      RegA("kompleks", "-t", "-e"),
      RegA("konceptuel", "-t", "-le"),
      RegA("konkret", "-", "-e"),
      RegA("koordineret", "-", "koordinerede"),
      RegA("kvalitativ", "-t", "-e"),
      RegA("langsigtet", "-", "langsigtede"),
      RegA("lokal", "-t", "-e"),
      RegA("metodisk", "-", "-e"),
      RegA("moderne", "-", "-"),
      RegA("netværksbaseret", "-", "netværksbaserede"),
      RegA("offentlig", "-t", "-e"),
      RegA("organisatorisk", "-", "-e"),
      RegA("ny", "-t", "-e"),
      RegA("passiv", "-t", "-e"),
      RegA("permanent", "-", "-e"),
      RegA("politisk", "-", "-e"),
      RegA("privat", "-", "-e"),
      RegA("problematisk", "-", "-e"),
      RegA("projektorienteret", "-", "projektorienterede"),
      RegA("relevant", "-", "-e"),
      RegA("samfundsvidenskabelig", "-t", "-e"),
      RegA("samfundsmæssig", "-t", "-e"),
      RegA("social", "-t", "-e"),
      RegA("speciel", "-t", "-le"),
      RegA("specifik", "-t", "-ke"),
      RegA("strategisk", "-", "-e"),
      RegA("synlig", "-t", "-e"),
      RegA("særlig", "-t", "-e"),
      RegA("teoretisk", "-", "-e"),
      RegA("traditionel", "-t", "-le"),
      RegA("troværdig", "-t", "-e"),
      RegA("tværfaglig", "-t", "-e"),
      RegA("udenlandsk", "-", "-e"),
      RegA("velstruktureret", "-", "velstrukturerede"),
      RegA("vertikal", "-t", "-e"),
      RegA("vidensbaseret", "-", "vidensbaserede"),
      RegA("videnskabelig", "-t", "-e"),
      RegA("vigtig", "-t", "-e"),
      RegA("virtuel", "-t", "-le"),
      RegA("økonomisk", "-", "-e")];

fun boej (RegA(fkent, itkent, flt_bes)) form koen =
    case (form, koen) of 
        ((ubs, ent), fk ) => fkent
      | ((ubs, ent), itk) => tilfoej fkent itkent
      | _                 => tilfoej fkent flt_bes

fun vaelg () = vaelgfra adjektiver

fun vaelgikke forbudt = Basis.vaelgikke forbudt adjektiver