cJSON: И где логика ?

[Игорь Столяров]

Добрый день !

В классе cJSON есть правило (option) для честного случая: {"IgnoreFalse":true/false}
Но очень хочется для работы полноценное правило {"IgnoreBool":"true"/"false"}
(ну или хотя бы дополнение до него {"IgnoreTrue":true/false})

Поясню. Сейчас сервисы и оборудование имеют в структуре обмена массу флагов со значением DEFAULT = true.
Поэтому даже если флаг не используется в каком-то запросе (у меня таких в структуре Queue: 42 !) нужно присваивать
ему значение Flag = True перед записью в пакет ... Я не против, проблема по которой я сейчас пишу - в другом.

В рультате получается пакет JSON в котором огромное кол-во флагов BOOL со значением "true" и даже сейчас уже
не понятно какие из них реально передаются для управления запросом, а какие отрабатывают подтверждение
установки "DEFAULT = true" (и по здравой логике их там быть не должно, т.к. не нужно изменять предустановку).

Если я вообще исключу флаг из пакета - то не смогу изменять для записей его значение на "false" при необходимости.
Спасибо за рассмотрение !

[finsoftrz]

Игорь, Вам пора Михаилу зарплату начинать платить.

[Игорь Столяров]

Игорь, Вам пора Михаилу зарплату начинать платить.

Если Вы интересуетесь уровнями зарплат в IT, то там на втором месте: QA-инженер (тестировщик продукта).
Но я вообще без претензий ... Догадываетесь сколько времени занимает проверка на всех режимах ?

[finsoftrz]

Я так понимаю, Вы это из альтруизма все делаете.

[Игорь Столяров]

Вы это из альтруизма все делаете

Неть ! Мною движет непреодолимое желание создавать работающие проекты, а не бесполезные посты в форуме !

[finsoftrz]

Смотрите сами. Всегда удивляло, кода некоторые люди думают, что их желания еще кому-то интересны.

[Дед Пахом]

Ага, завтра добавим опцию IgnoreIfNameContainsZ, послезавтра IgnoreIfRetrogradnyMercury...
Колбэк FindCB вам в руки:

Код: Выделить всё

rh.FindCB                     PROCEDURE(STRING fldName, *typCJsonFieldRule rule)
  CODE
  IF rule.IsBool
    !- игнор всех bool.
    rule.Ignore = TRUE
  END

[Игорь Столяров]

Колбэк FindCB вам в руки:

Игнорировать все Bool несложно, т.к. их невозможно вообще выгрузить без принудительной установки "IsBool":true
А вот как убрать выгрузку конкретного тега с именем "Flag123" только если его значение true ? Вот вопрос !

Если для реализации полноценной работы с логическими значениями нужно обязательно делать отдельную выгрузку
для каждого запроса с настройками тегов - я не против. Точнее уже привык. Понять бы как ... Спасибо !

[Дед Пахом]

А вот как убрать выгрузку конкретного тега с именем "Flag123" только если его значение true ? Вот вопрос !

Принимая во внимание факт, что во время выполнения FindCB очередь с данными в актуальном состоянии, то можно как-то так:

Код: Выделить всё

IF LOWER(fldName) = 'flag123'
  rule.Ignore = CHOOSE(DataQueue.Flag123 = TRUE)
END

[Игорь Столяров]

Спасибо, работает ! Но для каждого запроса - свой отделный метод с настройками полей в rh.FindCB().

[Игорь Столяров]

Ага, завтра добавим опцию IgnoreIfNameContainsZ

Вы всё предвидели ! Соглашусь, что опция {"IgnoreValue":ЗНАЧЕНИЕ} была бы весьма кстати !
Не стоит беспокоиться, я сам знаю как идти в rh.FindCB() ...

[Дед Пахом]

Но для каждого запроса - свой отделный метод с настройками полей в rh.FindCB().

Можно всё в один запихать наверно.

[Игорь Столяров]

Спасибо, верите в меня ! Я не сдаюсь !

Подскажите пожалуйста, можем ли мы в FindCB() определить места полей с одинаковыми названиями ?
Я вижу оба поля, но как опредеить какое именно ? Пример:

Код: Выделить всё

TestJSON  Procedure
rh        Class(TCJsonRuleHelper)
FindCB      Procedure(String pFldName, *typCJsonFieldRule pRule), Derived
          end
          
Root      &cJson 
Json      cJSONFactory

Q_Flags   Queue,Type
Flag1       Bool
Flag2       Bool
          end
          
Packet    Group
PrePrint    &Q_Flags
PostPrint   &Q_Flags
!           много одинаковых списков строк :(
          end
          
qPrePrint   Queue(Q_Flags).
qPostPrint  Queue(Q_Flags).
          
  Code
  qPrePrint.Flag1  = False   
  qPrePrint.Flag2  = True
  Add(qPrePrint)

  qPostPrint.Flag1 = True
  qPostPrint.Flag2 = False
  Add(qPostPrint)
  
  Packet.PrePrint  &= qPrePrint
  Packet.PostPrint &= qPostPrint

  Root &= json::CreateObject(Packet,,'[{{"Name":"*","RuleHelper":' & Address(rh) & '},' & |
                                      '{{"Name":"PrePrint","instance":'  & Instance(Packet.PrePrint, Thread()) & '},' & |
                                      '{{"Name":"PostPrint","instance":' & Instance(Packet.PostPrint,Thread()) & '},' & |
                                      '{{"Name":"Flag1","IsBool":true},'                & |
                                      '{{"Name":"Flag2","IsBool":true}]')
                                      
                                      
  If Not Root &= Null
     Message(Root.ToString(True))
     SetClipBoard(Root.ToString(True))
     Root.Delete()
  end   
  
rh.FindCB  Procedure(String pFldName, *typCJsonFieldRule pRule)
  Code
  If Lower(pFldName) = 'flag2'
     Message(Packet.PrePrint.Flag2 & ' - ' & Packet.PostPrint.Flag2 & '|' & pRule.FieldNumber)
    ! Как узнать 
    ! pRule.Ignore = Choose(Packet.PrePrint.Flag2  = True)
    ! или
    ! pRule.Ignore = Choose(Packet.PostPrint.Flag2 = True)     
  end

[Дед Пахом]

Подскажите пожалуйста, можем ли мы в FindCB() определить места полей с одинаковыми названиями ?

Учитывая, что поля перебираются последовательно, можно как-то так:

Код: Выделить всё

rh.FindCB  Procedure(String pFldName, *typCJsonFieldRule pRule)
  Code
  !- запомним имя обрабатываемой очереди
  case Lower(pFldName)
  of 'preprint' orof 'postprint'
    self.ProcessingQueueName = Lower(pFldName)
  end

  If Lower(pFldName) = 'flag2'
    if self.ProcessingQueueName = 'preprint'
      pRule.Ignore = Choose(Packet.PrePrint.Flag2  = True)
    elseif self.ProcessingQueueName = 'postprint'
      pRule.Ignore = Choose(Packet.PostPrint.Flag2 = True)
    end
  end

Можно ещё проще:

Код: Выделить всё

rh.FindCB  Procedure(String pFldName, *typCJsonFieldRule pRule)
  Code
  !- запомним обрабатываемую очередь
  case Lower(pFldName)
  of 'preprint' 
    self.flags &= Packet.PrePrint
  of 'postprint'
     self.flags &= Packet.PostPrint
  end

  If Lower(pFldName) = 'flag2'
    pRule.Ignore = Choose(self.flags.Flag2  = True)
  end

[Игорь Столяров]

Спасибо ! Идея понятна - заголовок группы всегда идёт раньше полей группы.
Этот вариант буду пробовать - другого выхода сейчас нет.