このディレクトリの索引

% ***** tag_select / 2 *****
tag_select(NAME,OptionList)
  :-
    tag_select_option(OptionList,OptionList_2),
    tag(select([name=NAME],OptionList_2)),!.
tag_select_option([],[]) :- !.
tag_select_option([[V,A]|R1],[option([value=V2],[A])|R2])
  :-
    concat(['"',V,'"'],V2),
    tag_select_option(R1,R2),!.
tag_select_option([A|R1],[option([],[A])|R2])
  :-
    not(atomic(A)),
    tag_select_option(R1,R2),!.
tag_select_option([A|R1],[option([],[A])|R2])
  :-
    atomic(A),
    tag_select_option(R1,R2).