DataMuseum.dk

top - metrics - download

    Length: 2048 (0x800)
    Types: TextFile
    Names: »UVERBER.SCL«

└─⟦216f59cd8⟧ Bits:30002641 SCANLOG - Piccoline vers. nov. 87
    └─⟦this⟧ »UVERBER.SCL« 

TextFile

; Kurt Fleckner 6. juli 1985
;
; Bøjning af franske verber  (med uregelmæssigheder)
; =========================
bøj(present,'boire','nous','buvons').
bøj(present,'boire','vous','buvez').
bøj(present,'boire','Ils','boivent').
bøj(present,'boire','Elles','boivent').
vælg_een bøj
  ; Regel, der bruges når Verbum er kendt
  bøj(Tid,Verbum,Person,Resultat) hvor 
       streng(Verbum) hvis 
       find_type(Verbum,Type,Stamme),
       stor_bøjning(Tid,Type,Person,Endelse) og 
       sammensæt(Stamme,Endelse,Resultat).
  ; Regel, der bruges til at finde navnemåde af et verbum,
  ; når Resultat ikke er kendt, men Verbum ikke er
  bøj(Tid,Verbum,Person,Resultat) hvor 
       streng(Resultat) hvis 
       stor_bøjning(Tid,Type,Person,Endelse),
       sammensæt(Stamme,Endelse,Resultat) og 
       find_type(Verbum,Type,Stamme).
slut.
find_type(Verbum,Type,Stamme) hvis 
     endelse_gruppe(Endelse,Type) og 
     sammensæt(Stamme,Endelse,Verbum).
endelse_gruppe('er',1).
endelse_gruppe('ir',2).
endelse_gruppe('re',3).
stor_bøjning(present,1,'je','e').
stor_bøjning(present,1,'tu','es').
stor_bøjning(present,1,'il','e').
stor_bøjning(present,1,'elle','e').
stor_bøjning(present,1,'nous','ons').
stor_bøjning(present,1,'vous','ez').
stor_bøjning(present,1,'Ils','ent').
stor_bøjning(present,1,'Elles','ent').
stor_bøjning(present,2,'je','is').
stor_bøjning(present,2,'tu','is').
stor_bøjning(present,2,'il','it').
stor_bøjning(present,2,'elle','it').
stor_bøjning(present,2,'nous','issons').
stor_bøjning(present,2,'vous','issez').
stor_bøjning(present,2,'Ils','issent').
stor_bøjning(present,2,'Elles','issent').
stor_bøjning(present,3,'je','s').
stor_bøjning(present,3,'tu','s').
stor_bøjning(present,3,'il','(t)').
stor_bøjning(present,3,'elle','(t)').
stor_bøjning(present,3,'nous','ons').
stor_bøjning(present,3,'vous','ez').
stor_bøjning(present,3,'Ils','ent').
stor_bøjning(present,3,'Elles','ent').
; SLUT franske verber
«eof»