Przeglądaj źródła

excuse me but aren't your commit messages getting weird?

yes, why?
Lucas Stadler 11 lat temu
rodzic
commit
1a58feb4fe
2 zmienionych plików z 5 dodań i 2 usunięć
  1. 2 1
      gf/Animals.gf
  2. 3 1
      gf/AnimalsEnglish.gf

+ 2 - 1
gf/Animals.gf

@ -2,9 +2,10 @@ abstract Animals = {
2 2
	flags startcat = Phrase;
3 3
4 4
	cat
5
		Phrase; Individual; Species; Quality;
5
		FullPhrase; Phrase; Individual; Species; Quality;
6 6
7 7
	fun
8
		ExcuseMeBut: Phrase -> FullPhrase;
8 9
		Q: Individual -> Quality -> Phrase;
9 10
		Is: Individual -> Quality -> Phrase;
10 11
		This, That: Species -> Individual;

+ 3 - 1
gf/AnimalsEnglish.gf

@ -1,8 +1,10 @@
1 1
concrete AnimalsEnglish of Animals = {
2 2
	lincat
3
		Phrase, Individual, Species, Quality = {s: Str};
3
		FullPhrase, Phrase, Individual, Species, Quality = {s: Str};
4 4
5 5
	lin
6
		ExcuseMeBut phrase = {s = "excuse me but" ++ phrase.s};
7
6 8
		Q individual quality = {s = "is" ++ individual.s ++ quality.s ++ "?"};
7 9
8 10
		Is individual quality = {s = individual.s ++ "is" ++ quality.s};