Size: a a a

Русскоязычное сообщество Scheme

2021 May 22

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
(import
 (prefix expect expect:)
 (chicken io))

(expect:call-with-process-io
    "telnet"
    (lambda (in out)
      (expect:expect out "telnet>")
      (display "help\n" out)
      (read-line in)
      (newline)
      (display (read-line in))))

Вот пример, успешно прочитал первую строку из telnet help
источник

AP

Artyom "avp&quo... in Русскоязычное сообщество Scheme
Кто-нибудь пытался оживить https://github.com/mwitmer/guile-xcb ?
источник
2021 May 23

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
Сделал но не знаю на чем тестировать, выложил в той-же репе, скоро начну доку оформлять, кстати pty (модуль) который я изначально портировал тоже видимо работал, просто там траблы какие-то с выводом конкретной программы

Upd:
Ну короче на калькуляторе и телнете вроде работает, доку минимальную написал (один фиг из нее ничего не понять), теперь желательно чтобы ты или кто-нибудь попробовал на чем-нибудь реальном ее запустить (например коннект по ssh хотя бы проверить)
источник

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
Ну а потом если все ок то можно в репозиторий chicken scheme либу добавить
источник

AP

Alex Peresmeshnik in Русскоязычное сообщество Scheme
Из леса завтра выберусь, опробую )))
источник

AP

Alex Peresmeshnik in Русскоязычное сообщество Scheme
источник

A ß in Русскоязычное сообщество Scheme
у меня постепенно получается dsl для написания баров
источник

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
По идее надо все вызовы call-with-input-file заменить на open-input-file и вынести за бесконечный цикл. В идеале пути типа (string-append "/sys/class/power_supply/" device "/" file)) тоже вне цикла создавать. Я не уверен как красиво это реализовать да и вообще я не знаю будет ли реальный прирост производительности.
источник

A ß in Русскоязычное сообщество Scheme
открывать-закрывать файлы тоже плохо?
источник

A ß in Русскоязычное сообщество Scheme
я знаю что сделать, покушаю и накидаю proof of concept
источник

A

Aragaer in Русскоязычное сообщество Scheme
мне одному кажется что конструировать пути через string-append это дурной тон?
источник

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
Я думаю что открывать и закрывать файлы каждую итерацию плохо.
источник

A ß in Русскоязычное сообщество Scheme
нет, но я не знаю местных expand-file-name
источник

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
Не уверен что в guile есть либа для работы с путями.
источник

AP

Artyom "avp&quo... in Русскоязычное сообщество Scheme
progress bar'ов, или... других?  😉
источник

A ß in Русскоязычное сообщество Scheme
для status bar'ов, но вдохновляюсь я другим
источник

A ß in Русскоязычное сообщество Scheme
а как тогда читать из них, seek?
источник

AZ

Aydar Zarifullin in Русскоязычное сообщество Scheme
источник

A ß in Русскоязычное сообщество Scheme
в тех файлах только одна строка
источник

A ß in Русскоязычное сообщество Scheme
это и не файлы по сути, а видимость
источник