CAD programy 4M
(strcase string [flag])
Převede řetězec na velká nebo malá písmena.
Tato funkce převede text v řetězci na všechny velká nebo všechny malá písmena (pokud není znak nil).
Případ, který má být převeden, je určen argumentem. Pokud jsou vynechány nebo nastaveny na nil, všechny znaky se převedou na velká písmena. Pokud není nil (obvykle se používá T), všechny abecední znaky se převedou na malé písmo.
PŘÍKLAD:
POZNÁMKA:
Funkce LISP, které kontrolují a porovnávají text, mají tendenci rozlišovat malá a velká písmena. Například (pokud (= "Y" ans) ...) pracuje pouze s kapitálem "Y"; malá písmena "y" se nepovažují za stejnou. Z tohoto důvodu je užitečné použít funkci strcase na odpověď uživatele takto:
Tato funkce převede text v řetězci na všechny velká nebo všechny malá písmena (pokud není znak nil).
Případ, který má být převeden, je určen argumentem. Pokud jsou vynechány nebo nastaveny na nil, všechny znaky se převedou na velká písmena. Pokud není nil (obvykle se používá T), všechny abecední znaky se převedou na malé písmo.
PŘÍKLAD:
| Kód | Vrací |
|---|---|
| (strcase "Yes") | YES |
| (strcase "NO" T) | "no" |
| (setq var (strcase var)) | Permanently changes variable. |
| (if (= (strcase var) "YES") (...) | Temporarily checks variable. |
POZNÁMKA:
Funkce LISP, které kontrolují a porovnávají text, mají tendenci rozlišovat malá a velká písmena. Například (pokud (= "Y" ans) ...) pracuje pouze s kapitálem "Y"; malá písmena "y" se nepovažují za stejnou. Z tohoto důvodu je užitečné použít funkci strcase na odpověď uživatele takto:
(setq ans (getchar))
(setq ans (strcase ans))
(if (= "Y" ans)
...
)