このディレクトリの索引
http://hibari.2ch.net/test/read.cgi/tech/1296387672/194
#  [1] 授業単元:C言語 
#  [2] 問題文(含コード&リンク): 
#  http://ime.nu/codepad.org/GxAuXYrr 
#  http://ime.nu/codepad.org/2mRtRFu9 
#  
#  
#  /*
#        このプログラムはTCP/IPによるプロセス間通信のプログラムです。
#       辞書ファイルを用意し、クライアントで単語を入力すると、
#       サーバーがファイル中から該当単語の意味を読み込んで
#       クライアントに送信するプログラムです。
#  
#       このプログラムをUDPを用いて実現してください。
#       ただし追加機能として単語登録機能を追加する。
#       辞書ファイルは"dictinary.txt"としアクセス時に排他制御を行う。
#       単語登録時にやりとりするメッセージは各自で考える。
#  */
#  
#  /*
#       辞書ファイル(dictinary.txt)
#       ----------------
#       social:社会
#       number:数字
#       list:一覧
#       test:試験
#       dictionary:辞書
#       word:単語
#  
#  */

'TCP/IP辞書サーバ' :-
        'TCP/IPサーバ開設'(Socket,NewSocket,Instream,Outstream),
        '辞書サーバ'(Socket,NewSocket,Instream,Outstream),
        'TCP/IPサーバ解放'(Socket,NewSocket,Instream,Outstream).

'辞書サーバ'(Socket,NewSocket,Instream,Outstream) :-
        get_line(Instream,_単語),
        '辞書サーバ'(Socket,NewSocket,Instream,Outstream,_単語),!.

'辞書サーバ'(Socket,NewSocket,Instream,Outstream,end_of_file) :- !.
'辞書サーバ'(Socket,NewSocket,Instream,Outstream,_単語) :-
        辞書(_単語,_単語の意味ならび),
        concat_atom(_単語の意味ならび,',',S),
        concat_atom([_単語,':',S,'\n'],_表示文字列),
        put_line(Outstream,_表示文字列),
        get_line(Instream,_単語2),
        '辞書サーバ'(Socket,NewSocket,Instream,Outstream,_単語2).