このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/db/1299305530/538
#  select *, tableid=1 from test 
#  みたいに全てのカラムに加えてtableid=1を加えたものを取得したいのですが 
#  どういうSQLかけばいいのでしょう? 
#  *はidとnameが入ってるとしたらこんな感じのものを期待してます 
#   
#  ++++++++++++++++++++ 
#  + id + name + .tableid .+ 
#  ++++++++++++++++++++ 
#  + 1 .+  .加藤 +   1   + 
#  ++++++++++++++++++++ 
#  + 2 .+  .伊藤 +   1   + 
#  ++++++++++++++++++++ 
#  + 3 .+  .佐藤 +   1   + 
#  ++++++++++++++++++++ 
# 
# 

'select *, tableid=1 from test みたいに全てのカラムに加えてtableid=1を加えたものを取得する'(X) :-
        count(テーブル構造(_テーブル,_,_項目名),_項目数),
        length(L,_項目数),
        P =.. [_テーブル|L],
        call(P),
        append(L,['tableid=1'],X).