CAD programy 4M
(read-char [file-descriptor])
Přečte jeden znak.
Tato funkce čte jeden znak ze souboru nebo klávesnice. Pokud je součástí deskriptoru souboru (přiřazen pomocí open funkce), read-char čte ze souboru. Když chybí deskriptor souboru, čte read-chart z klávesnice.
Funkce read-char ve skutečnosti nevrací písmeno, ale vrací kód ASCII tohoto písmena. Abyste skutečně viděli písmeno, musíte převést kód ASCII pomocí funkce chr.
PŘÍKLAD:
Pro následující příklad předpokládejme, že soubor file sample.lsp existuje a první řádek je "C:\Sample\First.txt".
Tato funkce čte jeden znak ze souboru nebo klávesnice. Pokud je součástí deskriptoru souboru (přiřazen pomocí open funkce), read-char čte ze souboru. Když chybí deskriptor souboru, čte read-chart z klávesnice.
Funkce read-char ve skutečnosti nevrací písmeno, ale vrací kód ASCII tohoto písmena. Abyste skutečně viděli písmeno, musíte převést kód ASCII pomocí funkce chr.
PŘÍKLAD:
Pro následující příklad předpokládejme, že soubor file sample.lsp existuje a první řádek je "C:\Sample\First.txt".
| Code | Returns |
|---|---|
| (setq file (open "sample.lsp" "r")) | |
| (setq c (read-char file)) | 67 |
| (setq a (chr c)) | "C" |
|
(read-char) [press A] |
Waits for you to press a key. 65 |