simyager/japonca
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

minik refactor ve rastgele sırayla tüm kelimeleri sorma

Browse Source
This commit is contained in:
mRnea
2025-03-04 21:36:34 +03:00
parent 20ba3d08cc
commit 5faa1b4c9d
4 changed files with 68 additions and 33 deletions
Download Patch File Download Diff File Expand all files Collapse all files

24
okur.lisp
View File

@@ -96,8 +96,8 @@
(boşluk-geç okur)
(anlam-oku okur)))))
(defmethod kelime-oku ((okur okur))
(let (kanji kana anlam grup altgrup)
(defmethod kelime-oku ((okur okur) sıra)
(let (kanji kana anlam tür alttür)
(setf kanji (kanji-oku okur))
(boşluk-geç okur)
(setf kana (kana-oku okur))
@@ -107,28 +107,30 @@
;; (yeni-satıra-geç okur)
(kar-oku okur)
(boşluk-geç okur)
(setf grup (sonraki-öbek okur '(#\Newline #\Space #\; #\,)))
(cond ((or (string= grup "fiil")
(string= grup "sıfat"))
(setf tür (sonraki-öbek okur '(#\Newline #\Space #\; #\,)))
(cond ((or (string= tür "fiil")
(string= tür "sıfat"))
(boşluk-geç okur)
(setf altgrup (sonraki-öbek okur '(#\Newline #\Space #\;))))
(setf alttür (sonraki-öbek okur '(#\Newline #\Space #\;))))
((char= #\, (kar-bak okur))
(kar-oku okur)
(boşluk-geç okur)
(push (sonraki-öbek okur '(#\Newline #\Space #\;)) grup))))
(setf tür (list tür (sonraki-öbek okur '(#\Newline #\Space #\;)))))))
(make-instance 'kelime :kanji kanji :kana kana :anlam anlam
:grup grup :altgrup altgrup)))
:tür tür :alttür alttür :sıra sıra)))
(defmethod işle ((okur okur))
(unless (eq :baş (durum okur))
(error "Okur zaten işlenmiş"))
(loop :until (metin-bitti? okur)
(loop :with sıra := 0
:until (metin-bitti? okur)
:do (case (kar-bak okur)
(#\; (yeni-satıra-geç okur))
(#\Newline (yeni-satıra-geç okur))
(#\Space (boşluk-geç okur))
(otherwise (vector-push-extend (kelime-oku okur)
(kelimeler okur)))))
(otherwise (vector-push-extend (kelime-oku okur sıra)
(kelimeler okur))
(incf sıra))))
(kelimeler okur))
(defmacro okurla ((isim dosya-ismi) &body beden)