LINUX.ORG.RU

История изменений

Исправление den73, (текущая версия) :

то же с умеренным синт. сахаром для «символ»

фун рОбъ_классаПолеАтрибутыИКонец (тОбъ_классаПоле - Объ_классаПоле) - да_нет
  С_Обяз(
    "Ошибка при разборе доп. атрибутов поля %C" 
    ,тОбъ_классаПоле.Имя.Текст)
  если_только хватьЕслиКл(с{,},тОбъ_классаПоле.Зпт) то
    цикл_навсегда
      пусть Атрибут - Объ_классаПолеАтрибут = рОбъ_клссаПолеАтриубут(тОбъ_классаПоле)
      Обяз ( 
        хватьЕслиКл(с{,},Атрибут.Конец)
        или
        (хватьЕслиКл(с{;},тОбъ_классаПоле.Конец)
         и
         состопп 
           _з конс:робратить тОбъ_классаПоле.ДрАтрибуты
           вернуть_из рОбъ_классаПолеАтрибутыИКонец да
         кн)
      )
    кн
  кн 
кн

Исправление den73, :

то же с умеренным синт. сахаром для «символ»

фун рОбъ_классаПолеАтрибутыИКонец (тОбъ_классаПоле - Объ_классаПоле)
  С_Обяз(
    "Ошибка при разборе доп. атрибутов поля %C" 
    ,тОбъ_классаПоле.Имя.Текст)
  если_только хватьЕслиКл(с{,},тОбъ_классаПоле.Зпт) то
    цикл_навсегда
      пусть Атрибут - Объ_классаПолеАтрибут = рОбъ_клссаПолеАтриубут(тОбъ_классаПоле)
      Обяз ( 
        хватьЕслиКл(с{,},Атрибут.Конец)
        или
        (хватьЕслиКл(с{;},тОбъ_классаПоле.Конец)
         и
         состопп 
           _з конс:робратить тОбъ_классаПоле.ДрАтрибуты
           вернуть_из рОбъ_классаПолеАтрибутыИКонец да
         кн)
      )
    кн
  кн 
кн

Исходная версия den73, :

то же с умеренным синт. сахаром для «символ»

фун рОбъ_классаПолеАтрибутыИКонец (тОбъ_классаПоле - Объ_классаПоле)
  С_Обяз(
    "Ошибка при разборе доп. атрибутов поля %C" 
    ,тОбъ_классаПоле.Имя.Текст)
  если_только хватьЕслиКл(с{,},тОбъ_классаПоле.Зпт) то
    цикл_навсегда
      пусть Атрибут - Объ_классаПолеАтрибут = рОбъ_клссаПолеАтриу тОбъ_классаПоле
      Обяз ( 
        хватьЕслиКл(с{,},Атрибут.Конец)
        или
        (хватьЕслиКл(с{;},тОбъ_классаПоле.Конец)
         и
         состопп 
           _з конс:робратить тОбъ_классаПоле.ДрАтрибуты
           вернуть_из рОбъ_классаПолеАтрибутыИКонец да
         кн)
      )
    кн
  кн 
кн