Інтернет
взяти біб інтернет
інтернет.звʼязатись(
"127.0.0.1",
8080,
дія(звʼязок, помилка)
якщо помилка
друк("помилка звʼязку")
інакше
друк("успішно звʼязано")
кінець
кінець
)
Визначення модуля інтернет:
структура Звʼязок
іа
порт
обробник_даних
обробник_закінчення
обробник_відключення
користувацькі_дані
кінець
структура Обслуговувач
іа
порт
обробник_підключення
обробник_зупинки
кінець
дія звʼязатись(іа, порт, відклик)
дія закінчити(звʼязок)
дія відключити(звʼязок)
дія обслуговувати(іа, порт, відклик)
дія зупинити(обслуговувач)
Приклади
інтернет обслуговувач
взяти біб інтернет
дія обробити_зупинку_обслуговувача(обслуговувач, помилка)
якщо помилка
друк("зупинено з помилкою", помилка)
інакше
друк("зупинено")
кінець
кінець
дія обробити_дані_звʼязку(звʼязок, дані)
вивести("отримано", юнікод(дані))
інтернет.надіслати(дані, звʼязок)
вивести("надіслано", юнікод(дані))
кінець
дія обробити_закінчення_звʼязку(звʼязок, помилка)
друк("клієнт закінчив повідомлення")
кінець
дія обробити_відключення_звʼязку(звʼязок, помилка)
якщо помилка
друк("відключено з помилкою", помилка)
інакше
друк("відключено")
кінець
кінець
дія обробити_підключення_звʼязку_обслуговувача(обслуговувач, звʼязок, помилка)
якщо помилка
друк("помилка підключення", помилка)
інакше
друк("підключено", звʼязок)
звʼязок.обробник_даних = обробити_дані_звʼязку
звʼязок.обробник_закінчення = обробити_закінчення_звʼязку
звʼязок.обробник_відключення = обробити_відключення_звʼязку
кінець
кінець
дія обробити_запуск_обслуговувача(обслуговувач, помилка)
якщо помилка
друк("помилка запуску", помилка)
інакше
обслуговувач.обробник_зупинки = обробити_зупинку_обслуговувача
обслуговувач.обробник_підключення_звʼязку = обробити_підключення_звʼязку_обслуговувача
друк("запущено")
кінець
кінець
інтернет.обслуговувати(
"0.0.0.0",
8080,
обробити_запуск_обслуговувача
)
інтернет звʼязок
взяти біб інтернет
дія обробити_дані_звʼязку(звʼязок, дані)
вивести("отримано", юнікод(дані))
кінець
дія обробити_закінчення_звʼязку(звʼязок, помилка)
друк("обслуговувач закінчив повідомлення")
кінець
дія обробити_відключення_звʼязку(звʼязок, помилка)
якщо помилка
друк("відключено з помилкою", помилка)
інакше
друк("відключено")
кінець
кінець
дія обробити_підключення_звʼязку(звʼязок, помилка)
якщо помилка
друк("помилка підключення", помилка)
інакше
друк("підключено", звʼязок)
звʼязок.обробник_даних = обробити_дані_звʼязку
звʼязок.обробник_закінчення = обробити_закінчення_звʼязку
звʼязок.обробник_відключення = обробити_відключення_звʼязку
інтернет.надіслати(ю"привіт\n", звʼязок)
вивести("надіслано", ю"привіт\n")
кінець
кінець
інтернет.звʼязатись(
"127.0.0.1",
8080,
обробити_підключення_звʼязку
)