Поиск всех путей между двумя вершинами ориент. графа(Язык С)

[dasterse]

Найти пути, соединяющие две вершины заданного ориентированного графа.
Помогите, пожалуйста, переписать программу на язык C.

static items:={{1,2},{1,3},{2,4},{2,5},{3,7},{3,6},{4,7},{7,8},{6,7}}
 
proc main
  tree("",1,7)
 
proc tree(path,id1,id2)
  aeval(child_list(id1),{|id|chk(path+str(id1)+"-",id,id2)})
 
func child_list(id)
  local list:={}
  aeval(items,{|item|iif(item[1]=id,aadd(list,item[2]),nil)})
  return list
 
proc chk(path,id,id2)
  if id=id2
    ?path+str(id2)
  else
    tree(path,id,id2)
  end

Вывод:
1-2-4-7
1-3-7
1-3-6-7