Subscribe
Hello Constantine Bitensky :-) You are now subscribed -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Made Ukrainian localization
Hello!
I made Ukrainian language localization.
Here patch with files “UA.l" and “uk”.
Is it useful?
diff --git a/loc/UA.l b/loc/UA.l
new file mode 100644
index 000..b228b2c
--- /dev/null
+++ b/loc/UA.l
@@ -0,0 +1,8 @@
+(setq
+ *Sep0 ","
+ *Sep3 " "
+ *CtryCode "380"
+ *NatTrunkPrf '("0")
+ *DateFmt '(@D "." @M "." @Y)
+ *DayFmt '("Понеділок" "Вівторок" "Середа" "Четвер" "П’ятниця" "Субота"
"Неділя")
+ *MonFmt '("Січень" "Лютий" "Березень" "Квітень" "Травень" "Червень"
"Липень" "Серпень" "Вересень" "Жовтень" "Листопад" "Грудень") )
diff --git a/loc/uk b/loc/uk
new file mode 100644
index 000..0d075fe
--- /dev/null
+++ b/loc/uk
@@ -0,0 +1,88 @@
+# 07mar21abu
+# Constantine Bytensky
+
+"Language" "Мова"
+
+# lib/db.l
+"Boolean input expected" "Очікується тип Boolean"
+"Numeric input expected" "Очікується тип Numeric"
+"Symbolic type expected" "Очікується тип Symbol"
+"String type expected" "Очікується тип String"
+"Type error" "Помилка типу"
+"Not unique" "Не унікальний"
+"Input required" "Потребується введення"
+
+# lib/form.l
+"Cancel" "Відмінити"
+"Yes" "Так"
+"No" "Ні"
+"Select" "Вибрати"
+"Delete row?" "Видалити строку?"
+"Show" "Показати"
+"Bad date format" "Неправильний формат дати"
+"Bad time format" "Неправильний формат часу"
+"Bad phone number format" "Неправильний формат номера телефону"
+"male" "чоловічий"
+"female" "жіночий"
+"New" "Новий"
+"Edit" "Редагувати"
+"Save" "Зберегти"
+"Done" "Готово"
+"Currently edited by '@2' (@1)" "Редагується користувачем «@2» (@1)"
+"Search" "Шукати"
+"Reset" "Скинути"
+"New/Copy" "Новий/копіювати"
+"Restore" "Відновити"
+"Restore @1?" "Відновити @1?"
+"Delete" "Видалити"
+"Delete @1?" "Видалити @1?"
+"Data not found" "Дані не знайдені"
+"Undo" "Відмінити"
+"Undo: '@1'" "Відмінити: «@1»"
+"Redo" "Повторити"
+"Redo: '@1'" "Повторити: «@1»"
+
+# General
+"login" "Увійти"
+"logout" "Вийти"
+"' logged in" "' увійшов"
+"Name" "Ім’я"
+"Login Name" "Ім’я користувача"
+"Full Name" "Повне ім’я"
+"Password" "Пароль"
+"Permission denied" "У доступі відмовлено"
+"Permissions" "Права доступу"
+"Role" "Роль"
+"Role Administration" "Управління ролями"
+"Roles" "Ролі"
+"User" "Користувач"
+"User Administration" "Управління користувачами"
+"Users" "Користувачі"
+"Settings" "Налаштування"
+"Phone" "Телефон"
+
+# Tooltips
+"Open submenu" "Відкрити підменю"
+"Close submenu" "Закрити підменю"
+"Next object of the same type" "Наступний об’ект цього ж типу"
+"Find or create an object of the same type" "Знайти або створити об’ект цього
ж типу"
+"Choose a suitable value" "Оберіть відповідне значення"
+"Adopt this value" "Прийняти це значення"
+"Go to first line" "Перейти до першого рядка"
+"Scroll up one page" "Прокрутити вгору на одну сторінку"
+"Scroll up one line" "Прокрутити вгору на один рядок"
+"Scroll down one line" "Прокрутити вниз на один рядок"
+"Scroll down one page" "Прокрутити вниз на одну сторінку"
+"Go to last line" "Перейти до останнього рядка"
+"Insert empty row" "Вставити пустий рядок"
+"Delete row" "Видалити рядок"
+"Shift row up" "Перемістити рядок вгору"
+"Clear all input fields" "Очистити усі поля введення"
+"Release exclusive write access for this object" "Звільнити ексклюзивний
доступ на запис цього об’єкту"
+"Gain exclusive write access for this object" "Отримати ексклюзивний доступ на
запис цього об’єкту"
+"Start search" "Почати пошук"
+"Create new object" "Створити новый об’єкт"
+"Create a new copy of this object" "Створити нову копію цього об’єкту"
+"Mark this object as \"not deleted\"" "Відмітити цей об’єкт як «не видаленний»"
+"Mark this object as \"deleted\"" "Відмітити цей об’єкт як «видаленний»"
+"Update" "Оновити"
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Mess with localization files
> Yes. I've released it in a new https://software-lab.de/pil21.tgz
As I see, file “UK.l” (for Great Britain) overwritten by mine “UA.l” (for
Ukraine).
I think it have to be fixed by renaiming “UK.l” to “UA.l”
(because it’s ISO 3166-1 code for Ukraine)
and take back old “UK.l” and maybe rename it to “GB.l” (ISO 639-1 code for
United Kingdom).
Also file names can be made conform ISO 3166-1 (country codes) and ISO 639-1
(language codes).
For conformance to ISO 639-1 (language codes) these files must to be renamed:
gr -> el (Greek)
jp -> ja (Japanese)
For conformance to ISO 3166-1 (country codes) these files must to be renamed:
UK.l -> UA.l (Ukraine)
UK.l -> GB.l (United Kingdom of Great Britain and Northern Ireland)
Here is patch for all of this:
diff --git a/loc/GB.l b/loc/GB.l
new file mode 100644
index 000..2b2e3cb
--- /dev/null
+++ b/loc/GB.l
@@ -0,0 +1,8 @@
+(setq
+ *Sep0 "."
+ *Sep3 ","
+ *CtryCode "44"
+ *NatTrunkPrf '("0")
+ *DateFmt '(@D "/" @M "/" @Y)
+ *DayFmt '("Monday" "Tuesday" "Wednesday" "Thursday" "Friday" "Saturday"
"Sunday")
+ *MonFmt '("January" "February" "March" "April" "May" "June" "July" "August"
"September" "October" "November" "December") )
diff --git a/loc/UK.l b/loc/UA.l
similarity index 100%
rename from loc/UK.l
rename to loc/UA.l
diff --git a/loc/gr b/loc/el
similarity index 100%
rename from loc/gr
rename to loc/el
diff --git a/loc/jp b/loc/ja
similarity index 100%
rename from loc/jp
rename to loc/ja
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Re: Mess with localization files
Hi, Alex! > Done. Thank you! Can you rename “ua” to “uk” (ISO 639-1 language code for Ukrainian) please? Regards, Constantine -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Fixes for Russian localization
Hello!
I made some fixes for Russian localization in loc/{ru,RU.l} files.
diff --git a/loc/RU.l b/loc/RU.l
index 463d846..f9fd34f 100644
--- a/loc/RU.l
+++ b/loc/RU.l
@@ -1,6 +1,6 @@
(setq
*Sep0 ","
- *Sep3 " "
+ *Sep3 " "
*CtryCode "7"
*NatTrunkPrf '("8")
*DateFmt '(@D "." @M "." @Y)
diff --git a/loc/ru b/loc/ru
index ed0f9e8..54f54e8 100644
--- a/loc/ru
+++ b/loc/ru
@@ -5,54 +5,54 @@
"Language" "Язык"
# lib/db.l
-"Boolean input expected" "Ожидается тип Boolean"
+"Boolean input expected" "Ожидается булев тип"
"Numeric input expected" "Ожидается числовой тип"
-"Symbolic type expected" "Ожидается тип Symbol"
-"String type expected" "Ожидается тип String"
+"Symbolic type expected" "Ожидается символьный тип"
+"String type expected" "Ожидается строковый тип"
"Type error" "Ошибка типа"
-"Not unique" "Не уникальный"
+"Not unique" "Не уникальный"
"Input required" "Требуется ввод"
# lib/form.l
-"Cancel" "Отмена"
+"Cancel" "Отменить"
"Yes" "Да"
"No" "Нет"
"Select" "Выбрать"
"Delete row?" "Удалить строку?"
"Show" "Показать"
-"Bad date format" "Неверный формат даты"
-"Bad time format" "Неверный формат времени"
-"Bad phone number format" "Неверный формат телефонного номера"
-"male" "муж."
-"female" "жен."
+"Bad date format" "Некорректный формат даты"
+"Bad time format" "Некорректный формат времени"
+"Bad phone number format" "Некорректный формат номера телефона"
+"male" "мужской"
+"female" "женский"
"New" "Новый"
"Edit" "Редактировать"
"Save" "Сохранить"
"Done" "Готово"
-"Currently edited by '@2' (@1)" "Редактируется '@2' (@1)"
+"Currently edited by '@2' (@1)" "Редактируется пользователем «@2» (@1)"
"Search" "Искать"
-"Reset" "Сброс"
-"New/Copy" "Новый/Копировать"
+"Reset" "Сбросить"
+"New/Copy" "Новый/копировать"
"Restore" "Восстановить"
"Restore @1?" "Восстановить @1?"
"Delete" "Удалить"
"Delete @1?" "Удалить @1?"
-"Data not found" "Данные не найдены"
+"Data not found" "Данные не найдены"
"Undo" "Отменить"
-"Undo: '@1'" "Отменить: '@1'"
+"Undo: '@1'" "Отменить: «@1»"
"Redo" "Повторить"
-"Redo: '@1'" "Повторить: '@1'"
+"Redo: '@1'" "Повторить: «@1»"
# General
"login" "Войти"
"logout" "Выйти"
-"' logged in" "' вошел"
+"' logged in" "' вошёл"
"Name" "Имя"
-"Login Name" "Имя регистрации"
+"Login Name" "Имя пользователя"
"Full Name" "Полное имя"
"Password" "Пароль"
-"Permission denied" "Доступ запрещен"
-"Permissions" "Разрешения"
+"Permission denied" "В доступе отказано"
+"Permissions" "Права доступа"
"Role" "Роль"
"Role Administration" "Управление ролями"
"Roles" "Роли"
@@ -65,25 +65,25 @@
# Tooltips
"Open submenu" "Открыть подменю"
"Close submenu" "Закрыть подменю"
-"Next object of the same type" "Следующий объект такого же типа"
-"Find or create an object of the same type" "Найти или создать объект такого
же типа"
+"Next object of the same type" "Следующий объект того же типа"
+"Find or create an object of the same type" "Найти или создать объект того же
типа"
"Choose a suitable value" "Выберите подходящее значение"
"Adopt this value" "Принять это значение"
-"Go to first line" "Перейти к первой строке"
+"Go to first line" "Перейти к первой строке"
"Scroll up one page" "Прокрутить вверх на одну страницу"
"Scroll up one line" "Прокрутить вверх на одну строку"
"Scroll down one line" "Прокрутить вниз на одну строку"
"Scroll down one page" "Прокрутить вниз на одну страницу"
-"Go to last line" "Перейти к последней строке"
+"Go to last line" "Перейти к последней строке"
"Insert empty row" "Вставить пустую строку"
"Delete row" "Удалить строку"
-"Shift row up" "Переместить строку вверх"
+"Shift row up" "Сдвинуть строку вверх"
"Clear all input fields" "Очистить все поля ввода"
-"Release exclusive write access for this object" "Закрыть эксклюзивный доступ
для записи этого объекта"
-"Gain exclusive write access for this object" "Получить эксклюзивный доступ
для записи этого объекта"
+"Release exclusive write access for this object" "Освободить эксклюзивный
доступ на запись этого объекта"
+"Gain exclusive write access for this object" "Получить эксклюзивный доступ на
запись этого объекта"
"Start search" "Начать поиск"
"Create new object" "Создать новый объект"
"Create a new copy of this object" "Создать новую копию этого объекта"
-"Mark this object as \"not deleted\"" "Отметить этот объект как \"не
удалённый\""
-"Mark this object as \"deleted\"" "Отметить этот объект как \"удалённый\""
+"Mark this object as \"not deleted\"" "Отметить этот объект как «не удалённый»"
+"Mark this object as \"deleted\"" "Отметить этот объект как «удалённый»"
"Update" "Обновить"
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
Fixes for Ukrainian localization
Hello! Also fixes for Ukrainian localization. diff --git a/loc/uk b/loc/uk index 0d075fe..fcf9acd 100644 --- a/loc/uk +++ b/loc/uk @@ -4,10 +4,10 @@ "Language" "Мова" # lib/db.l -"Boolean input expected" "Очікується тип Boolean" -"Numeric input expected" "Очікується тип Numeric" -"Symbolic type expected" "Очікується тип Symbol" -"String type expected" "Очікується тип String" +"Boolean input expected" "Очікується булевий тип" +"Numeric input expected" "Очікується числовий тип" +"Symbolic type expected" "Очікується символьний тип" +"String type expected" "Очікується строковий тип" "Type error" "Помилка типу" "Not unique" "Не унікальний" "Input required" "Потребується введення" @@ -22,8 +22,8 @@ "Bad date format" "Неправильний формат дати" "Bad time format" "Неправильний формат часу" "Bad phone number format" "Неправильний формат номера телефону" -"male" "чоловічий" -"female" "жіночий" +"male" "чоловіча" +"female" "жіноча" "New" "Новий" "Edit" "Редагувати" "Save" "Зберегти" @@ -76,13 +76,13 @@ "Go to last line" "Перейти до останнього рядка" "Insert empty row" "Вставити пустий рядок" "Delete row" "Видалити рядок" -"Shift row up" "Перемістити рядок вгору" +"Shift row up" "Зсунути рядок вгору" "Clear all input fields" "Очистити усі поля введення" "Release exclusive write access for this object" "Звільнити ексклюзивний доступ на запис цього об’єкту" "Gain exclusive write access for this object" "Отримати ексклюзивний доступ на запис цього об’єкту" "Start search" "Почати пошук" "Create new object" "Створити новый об’єкт" "Create a new copy of this object" "Створити нову копію цього об’єкту" -"Mark this object as \"not deleted\"" "Відмітити цей об’єкт як «не видаленний»" -"Mark this object as \"deleted\"" "Відмітити цей об’єкт як «видаленний»" +"Mark this object as \"not deleted\"" "Позначити цей об’єкт як «не видаленний»" +"Mark this object as \"deleted\"" "Позначити цей об’єкт як «видаленний»" "Update" "Оновити" -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
pil21.tar file attributes
Hello!
I found out, that there is some confusion in file access righs in pil21.tgz
archive.
For example file “lib/replica.l” have executable flag, and “loc/FR.l” have
-rw--- mode.
It can be fixed by this one-liner:
find . -type f -exec chmod 644 {} \; && chmod 755 bin/* misc/bigtest pil vip
Also files in archive pil21.tgz have user and group name “u0_a114” and UID/GID
10114.
As I see usually tar files are created with UID/GID 0.
And it can be done by adding these parameters to tar command:
--owner=0 --group=0 --numeric-owner
All of these are not a problem at all, it is just to make a bit simplier and
clearer.
Regards
--
UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
TERM signal handling
Hi, all! I am trying to make init program on picolisp (yes, I am that crazy). When Ctrl+Alt+Del is pressed, SIGTERM is sended to init process, so I want to handle this signal. I made patch which add new global *Term. When it is defined and retures non-NIL, standard handler is not processed. I think it is good idea to have such handler. Regards, Constantine diff --git a/src/glob.l b/src/glob.l index 7862141..f97697c 100644 --- a/src/glob.l +++ b/src/glob.l @@ -139,6 +139,7 @@ ($Winch "*Winch" $Nil) ($TStp1 "*TStp1" $Nil) ($TStp2 "*TStp2" $Nil) + ($Term "*Term" $Nil) ($Up "\^" $Nil) ($Err "*Err" $Nil) ($Msg "*Msg" $Nil) diff --git a/src/main.l b/src/main.l index 9add9be..bac9eef 100644 --- a/src/main.l +++ b/src/main.l @@ -213,22 +213,25 @@ (execAt (val $TStp2)) # Run 'TStp2' (rlSigEnd) ) ((val (setq P (ofs $Signal SIGTERM))) - (let - (Cld (val $Child) # Iterate children -mailto:picolisp@software-lab.de?subject=Unsubscribe
unsubscribe
Good bye Constantine Bitensky :-( You are now unsubscribed -- UNSUBSCRIBE: mailto:picolisp@software-lab.de?subject=Unsubscribe
