デカルト言語 - 並列ロジック プログラミング言語

デカルト言語によるhttpクライアント機能の例題

デカルト言語により、インターネットのWWW上のデータを
ネットワークで接続して取得し、加工して表示する例題を
3つ示します。

1) 全国電力供給状況表示プログラム
2) ニュースヘッドライン
3) 経済指標表示プログラム

1. 2011年夏版 全国電力供給状況表示プログラム

1.1 全国電力供給状況表示プログラム

全国の電力供給状況をリアルタイムに取得して使用率を計算して
表示する。

次のようにデカルト言語の引数にdenryoku.decを指定して実行する。

	descartes denryoku.dec

1.2. 実行結果例

$ descartes denryoku.dec
Wed Aug  3 20:37:21 2011
東北電力
ピーク時供給力 :  1199 万kW
　　　　使用量 :  973 万kW
　　　　使用率 :  81.151 %
東京電力
ピーク時供給力 :  5050 万kW
　　　　使用量 :  3665 万kW
　　　　使用率 :  72.5743 %
中部電力
ピーク時供給力 :  2388 万kW
　　　　使用量 :  1940 万kW
　　　　使用率 :  81.2395 %
関西電力
ピーク時供給力 :  2930 万kW
　　　　使用量 :  2271 万kW
　　　　使用率 :  77.5085 %
九州電力
ピーク時供給力 :  1714 万kW
　　　　使用量 :  1355 万kW
　　　　使用率 :  79.0548 %


2. ニュースヘッドライン

2.1 ニュースのヘッドラインを表示

いろいろなニュースのwwwサイトからヘッドラインを読み込み
表示する。

次のようにデカルト言語の引数にheadline.decを指定して実行する。

	descartes headline.dec

2.2. 実行結果例

$ descartes headline.dec

朝日新聞 www.asahi.com ヘッドライン
首相「原発に依存しない社会目指す」　内閣が中間整理案
北島、男子２００平は銀メダル　水泳世界選手権
国道土砂崩れ、２０台４０人立ち往生　福島・南会津
福島・只見町全１９６０世帯に避難勧告　１人行方不明
将棋の森内名人就位式　「難しい状況での可能性示せた」
被災地の電力使用制限、緩和を検討　海江田経産相

読売新聞 www.yomiuri.co.jp ヘッドライン
保安院やらせ要請、海江田経産相「極めて深刻」
首相「やるべき仕事出来ている」退陣時期触れず
小沢氏「無責任発言が民主の人気落としてる」
「お遍路行っても地獄行き」…亀井氏、首相に
トラック高速無料、悪用続けば中止検討…国交相
中国鉄道事故、賠償金を倍増…早期幕引き狙いか
携帯大手３社決算、スマートフォンで明暗

毎日新聞 mainichi.jp ヘッドライン
新潟・福島 11万人避難勧告
胸まで冠水 車40台立ち往生
事故の賠償金1100万円に増額
世界水泳　北島、入江が銀
代表選 馬淵氏が出馬意向伝達
「猫臭いのダメ」　防止や賠償命じる
鬱陵島視察、自民は認めず
「無償化」朝鮮学校生提訴へ

産経msn sankei.jp.msn.com ヘッドライン
怒りのネット世論爆発　当局やメディア突き動かす　２億人突破の中国版ツイッター原動
力
福島・南会津の国道で土砂崩れ　４０人が取り残される　携帯で連絡、全員無事か
【伊良部秀輝さん自殺】清原氏「すごくつらいです。悲しいです。苦しいです。悲し…
拉致問題「進展なく心痛む」　小浜市の集会で地村さん
最大規模の津波を想定　関西広域連合、災害時の遠隔県との相互応援協定検討
強制わいせつ容疑で男逮捕　ミニバイク使い被害数十件　愛知県警

東京新聞 www.tokyo-np.co.jp ヘッドライン
入江、北島がともに銀メダル　世界水泳選手権第１４日 （21:44）
新潟で１０万人超に避難勧告　福島でも録的豪雨 （21:35）
北島康介は銀メダル　２００ｍ平、世界選手権 （21:27）
経産相、第三者委で８月中に調査　保安院“やらせ”で （20:15）
来夏は９％の電力不足　政府のエネ需給見通し （19:56）

中日新聞 www.chunichi.co.jp ヘッドライン
政府、復興への財源示せず　基本方針を決定 （21:47）
入江、北島がともに銀メダル　世界水泳選手権第１４日 （21:44）
松阪市長、地元の稲わらで独自に放射性検査実施へ　 （21:38）
お盆の予約状況、ほぼ前年並みに　ＪＲ東海、回復傾向続く （20:39）
来夏は９％の電力不足　政府のエネ需給見通し （19:56）


静岡新聞(静岡ニュース) www.at-s.com/news ヘッドライン
羽根九段が初勝利　本社杯碁聖戦第３局
【中電・東電でんき予報】７月３０日（土）
保安院が浜岡原発シンポで「やらせ」　中電に依頼
再生可能エネに木質ペレット脚光　小山の製造工場始動　　
シロクマに氷の贈り物　浜松市動物園
地元に恩返し　児童に熱く太鼓指導　葵区・大石さん
規格外野菜でジェラート　三島・函南の若手グループ
風船に入って水上散歩♪　浜松・フラワーパーク

2.3. ニュース取得の仕組み

asahi.comのwwwサイトからの取得を例として示す。

--ここからasahi.comのためのプログラム
? ::sys <httpget #h #b "http://www.asahi.com/"> 　//asahi.comからhtmlを文字列と
						  //して取り出す
  ::sys <iconv #bu #b "UTF-8" "EUC-JP">　　　//ＵＴＦ８に変換
  ::sys <htmltags #t #bu 'div id="HeadLine"' 'ul class="FollowLnk"'>
					//ヘッドラインの抜き出し
  ::sys <htmltags #t2 ::sys <car _ #t> "a href" "/a">
					//リンク(<a href ...> </a>)抜き出し
  ::sys <erasealltags #t3 #t2>		//いらないタグを消す
  <print "朝日新聞 www.asahi.com ヘッドライン">	//タイトル表示
  <printlistnl #t3>			//ヘッドライン表示
  <print>				//改行
  ;
--ここまで

ニュースサイトごとに、htmlの内容が異なるためヘッドラインの抜き出し処理
の周辺の処理は各サイトごとに異なる。

3. 経済指標表示プログラム

3.1 経済指標プログラム

経済指標を日経新聞サイト(http://www.nikkei.com/)から取得して
表示する。
10分おきにデータを取得するが、その間は単純に取得した同じデータ
をスクロールさせて表示するのみです。

リアルタイム性はありませんので、間違ってもこのプログラムの結果を
株取引等に使わないでください。

次のようにデカルト言語の引数にkeizai.decを指定して実行する。

	descartes keizai.dec


3.2. 実行結果例

主な経済指標
日経平均(円)    8,981.94  -56.80  11日大引
NYダウ(ドル)    11,076.94  +357.00  11日13:37
英FTSE100       5,162.83  +155.67  11日16:35
ドル/円         76.88 - .90  +0.30円安  12日2:31
ユーロ/円       109.12 - .16  -0.02円高  12日2:31
長期金利(%)     1.035  -0.005  11日16:21
NY原油(ドル)    82.89  +3.59  10日終値


以上