Проблема с контекстом и свойством

Question

Допустим, я хочу сгенерировать этот вывод:

  public  String toString() {
         return this.getFirstName() + "," + this.getLastName() + "," + this.getAge();
  }

из шаблона ниже и пользовательскую рекурсивную функцию разметки сборки:

  template-toString: {this.get<%property%>() <%either not context.build-markup/EOB [{+ "," +}][""]%> }

  build-markup/vars template-toString [property] ["FirstName" "LastName" "Age"]

Моя проблема состоит в том, чтобы избежать последнегоэлемент для конкатенации с {+ "," +}

Моя идея состояла в том, чтобы использовать разметку context.build со свойством EOB (End Of Block), которое было бы установлено в true при обработке последнего элемента.Тогда я мог бы использовать в шаблоне toString выше или не context.build-markup / EOB [{+ "," +}] [""] для объединения или нет с {+ "," +}:

context.build-markup: context [

  EOB: false

  set 'build-markup func [
      {Return markup text replacing <%tags%> with their evaluated results.} 
      content [string! file! url!] 
      /vars block-fields block-values
      /quiet "Do not show errors in the output." 
      /local out eval value n max i
  ][

    out: make string! 126 

    either not vars [
        content: either string? content [copy content] [read content] 

        eval: func [val /local tmp] [
            either error? set/any 'tmp try [do val] [
                if not quiet [
                    tmp: disarm :tmp 
                    append out reform ["***ERROR" tmp/id "in:" val]
                ]
            ] [
                if not unset? get/any 'tmp [append out :tmp]
            ]
        ] 
        parse/all content [
            any [
                end break 
                | "<%" [copy value to "%>" 2 skip | copy value to end] (eval value) 
                | copy value [to "<%" | to end] (append out value)
            ]
        ]
      ][          


          n: length? block-fields

          self/EOB: false

          actions: copy []

          repeat i n [



            append actions compose/only [

              ;set in self 'EOB (i = n)
              set in system/words (to-lit-word pick (block-fields) (i)) get pick (block-fields) (i)
            ]

          ]
          append actions compose/only [            
              append out build-markup content            
          ]
          foreach :block-fields block-values actions



          if any [(back tail out) = "^/" (back tail out) = " " (back tail out) = "," (back tail out) = ";" (back tail out) = "/" (back tail out) = "\"] [
            remove back tail out
          ]        
      ] 
      out
  ]

]

Но моя попытка не удалась (поэтому я прокомментировал; установил в self 'EOB (i = n), потому что он не работает).Как исправить код, чтобы получить то, что я хочу?

Answer 1

Я совершенно уверен, что вы могли бы достичь своей цели более чистым способом, чем этот.В любом случае, я могу сказать вам, почему то, что вы делаете, не работает!

Ваше n - это выражение length? block-fields, и ваш цикл repeat увеличивается до n.Но block-fields содержит единственный параметр [property]!Следовательно, он переходит от 1 к 1.

Вы предположительно хотели проверить что-то перечисляющее по block-values (в этом примере диапазон от 1 до 3) и затем обрабатывать это однозначно, еслииндекс достиг 3. Иными словами, ваше выражение set in self 'EOB должно быть частью вашего перечисления по block-values, а НЕ block-fields.

Это дало бы вам желаемое поведение:

n: length? block-values
i: 1
foreach :block-fields block-values compose/only [
    set in self 'EOB equal? i n
    do (actions)
    ++ i
]

Это абсолютно не сработает:

append actions compose/only [
    set in self 'EOB (i = n)
    set in system/words (to-lit-word pick (block-fields) (i)) get pick (block-fields) (i)
]

... потому что вы сталкиваетесь с ситуацией, когда i и n оба равны 1, для одной итерации этогопетля.Что значит (i = n) верно.Таким образом, метакод, который вы получаете для «действий», выглядит следующим образом:

[
    set in self 'EOB true 
    set in system/words 'property get pick [property] 1
]

Затем вы запускаете код с избыточной композицией (поскольку нет PAREN! S, вы можете просто опустить COMPOSE / ONLY):

append actions compose/only [
    append out build-markup content
]

, который добавляет строку в ваш actions метакод, очевидно:

[
    set in self 'EOB true 
    set in system/words 'property get pick [property] 1 
    append out build-markup content
]

Как обычно, я предлагаю вам научиться использовать PROBE и PRINT для просмотра ипроверьте свои ожидания на каждом этапе.Rebol хорош в сбросе переменных и тому подобного ...

Answer 2

Вы, кажется, делаете что-то простое, очень сложное:

>> a: make object! [                           
[    b: false                
[    set 'c func[i n] [b: i = n]
[    ]
>> a/b
== false
>> c 1 4
== false
>> a/b 
== false
>> c 1 1
== true
>> a/b
== true