kc3-lang/kc3/test/ikc3/facts_with.kc3

Tag - branch -callablecallable-rebasefastfast2frameherunstoofastforushttpdjeremy_rebasedmarshallmarshall_before_mergemarshall_rebasemasterpdfpointertlsconfigurefnfractionsfractions-rebaselinuxratio-rebasev0.1- tag -v0.1.9v0.1.8v0.1.7v0.1.6v0.1.5v0.1.4v0.1.3v0.1.2v0.1.12v0.1.11v0.1.10v0.1.1v0.1.0v0HTTPd-v0.1.0v0.1.15v0.1.14v0.1.13HTTPd-v0.2.0HTTPd-v0.1.1

• Show log

  Commit

• Hash : 085a215d
  Author : Thomas de Grivel
  Date : 2024-10-08T01:51:37
  

  test/ikc3/facts_with
  

Download

• test/ikc3/facts_with.kc3

• quote Facts.with(Facts.env_db(), [[KC3, :operator, op = ?],
                                    [op, :sym, sym = ?]], fn (fact) do
    puts("#{inspect(op)} #{inspect(sym)}")
    1
  end)
  Facts.with(Facts.env_db(), [[KC3, :operator, op = ?],
                              [op, :sym, sym = ?]], fn (fact) do
    puts("#{inspect(op)} #{inspect(sym)}")
    1
  end)
  quote Facts.with(Facts.env_db(), [[KC3, :operator, op = ?],
                              [op, rel = ?, value = ?]], fn (fact) do
    puts("#{inspect(op)} #{inspect(rel)} #{inspect(value)}")
    2
  end)
  Facts.with(Facts.env_db(), [[KC3, :operator, op = ?],
                              [op, rel = ?, value = ?]], fn (fact) do
    puts("#{inspect(op)} #{inspect(rel)} #{inspect(value)}")
    2
  end)
  

Download