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

←　前のページに戻る

1.2 ニュースヘッドライン表示プログラム

1.2.1 実行例

朝日新聞 www.asahi.com ヘッドライン
台風１２号、死者・不明は８９人に　２万軒停電
奈良・十津川村、村ごと孤立状態　道路通行止め、停電
電気はここだけ「残業部屋」　千葉・東金市、効果あった
玄葉外相、辺野古移設案推進の意向「沖縄に向き合う」
与謝野氏、菅退陣とともに去りぬ　民主会派離脱
スキャンし電子化、「自炊」業者に質問書　作家や出版社

読売新聞 www.yomiuri.co.jp ヘッドライン
空回りの政治主導でなく、役人フル回転で…首相
一川防衛相「素人的感覚でしっかり対応したい」
スズキの電動車いす不具合…後進スイッチで前進
熊野那智大社の社殿が土砂に…文覚の滝も被害
爆薬庫倒壊、６７００本が川へ…爆発の恐れ
ソノ気にさせられて…「劇場型」勧誘ご用心
佐々木監督「豪州は体が重く、助かった」

毎日新聞 mainichi.jp ヘッドライン
安住氏財務相「火だるまに」
たばこ1箱700円台に…厚労相
驚愕…真紀子氏外務委員長に
人気作家ら自炊業者に質問書
節電効果は?「足りてた」説も
暗闇2晩「パニック」 救出に涙
なでしこ、豪に勝利 五輪前進
東京マラソン28万2824人応募

産経msn sankei.jp.msn.com ヘッドライン
「自炊」代行はダメ…電子書籍で作家ら１２２人が質問書
行列ができる「最高にうまいビール」　大阪
【なでしこ】人口上回る観客数、経済効果１０億円超　元気もらった合宿地　恩返し…
「民主も与党の苦しみわかったはず」小泉元首相が皮肉混じりに批判　
【台風１２号】尾鷲市が２日前からメールや防災無線で避難呼び掛け　早い対応が被…
【サッカー日本代表】神経質なザック監督　でも「いい準備できている」

東京新聞 www.tokyo-np.co.jp ヘッドライン
なでしこ、五輪へあと１勝　豪州に１―０、予選３連勝 （22:18）
生活排水から石油の実証実験　仙台市、特殊な藻で復興事業 （21:27）
リビア原子炉「自衛」状態　核物質の管理に懸念　 （20:42）
財務相、Ｇ７で円高是正を要請　復興増税、９月合意目指す （19:37）
野田政権、副大臣や党役員決定　世代交代と小沢氏配慮 （18:52）

slashdot.jp スラッシュドット ヘッドライン
 Google、「秋の大掃除」と称してGoogle Desktopなど10のサービスを打ち切り
 「Guile Schemeは最良の拡張言語だ」という主張
 宇宙ゴミ問題が深刻化、衝突の可能性が高まる極めて危険な状況に
 ドラゴンクエスト最新作はオンラインゲームに
 Windows 8 では異なる 2 種類の UI が選択可能に
 アレゲな葬儀方法
 子供に自分の仕事、なんて説明してる？
 レーザーで雨を降らせる技術

1.2.2 ソース

#!/usr/local/bin/descartes

<proxy #proxy>
	(::sys <getenv #p http_proxy> | <is #p "">)
	::sys <split #p1 #p "/">
	( <eq #p1 ()> <is #proxy "">
	 |
	  ::sys <car #p2 #p1>
	  <is "http:" #p2> ::sys <cadr #proxy #p1>
	 |
	  <is #proxy #p>
	 )
	;

<first8 () () _>;
<first8 () _ 8>;

<first8 (#i :#r) (#i :#rest) #n>
	<#n1 = #n + 1>
	<first8 #r #rest #n1>
	;
<first8 #out #l>
	<first8 #out #l 0>
	;

// 不要な出力の抑止
? ::sys <PrintResultOff>;

<asahi #t3>
  ::sys <httpget #h #b "http://www.asahi.com/" <proxy _>> 　//asahi.comからhtmlを文字列と
						  //して取り出す
  ::sys <iconv #bd #b "UTF-8" "EUC-JP">　　　//ＵＴＦ８に変換
  ::sys <htmldecode #bu #bd>
  ::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>		//いらないタグを消す
  ;


<yomiuri #t3>
  ::sys <httpget #h #b "http://www.yomiuri.co.jp/" <proxy _>>
  ::sys <iconv #bd #b "UTF-8" "SJIS">
  ::sys <htmldecode #bu #bd>
  ::sys <htmltags #t #bu 'div class="headline-def"' "/ul">
  ::sys <erasetags #t1 #t 
	'img src="/g/d.gif" width="1" height="1" alt="特集"' "/li" >
  ::sys <htmltags #t2 ::sys <car _ #t1> "a href" "/a">
  ::sys <erasealltags #t3 #t2>
  ;

<mainich #t3>
  ::sys <httpget #h #bd "http://mainichi.jp/" <proxy _>>
  ::sys <htmldecode #b #bd>
  ::sys <htmltags #t #b 'header class="topicsHeader"' 
			'div class="topicsPhotoWrapper"'>
  ::sys <htmltags #t2 ::sys <car _ #t> "a href" "/a">
  ::sys <erasealltags #t3 #t2>
  ;


<sankei #list>
  ::sys <httpget #h #bd "http://sankei.jp.msn.com/" <proxy _>>
  ::sys <htmldecode #b #bd>
  ::sys <htmltags #t #b 'div class="RightPart"' 'div id="ADkinkoku"'>
  ::sys <htmltags #t2 ::sys <car _ #t> "a href" "/a">
  ::sys <erasealltags #t3 #t2>
  ::sys <cons #list ::sys <car _ #t3> ::sys <cddr _ #t3>>
  ;


<tokyo #t3>
  ::sys <httpget #h #b "http://www.tokyo-np.co.jp/" <proxy _>>
  ::sys <iconv #bd #b "UTF-8" "SJIS">
  ::sys <htmldecode #bu #bd>
  ::sys <htmltags #t #bu 'div id="NewsArea"' "/ul">
  ::sys <htmltags #t2 ::sys <car _ #t> "a href" "/a">
  ::sys <erasealltags #t3 #t2>
  ;

<slashdotj #list>
  ::sys <httpget #h #bd "http://slashdot.jp/" <proxy _>>
  ::sys <htmldecode #bu #bd>
  ::sys <htmltags #t #bu 'body' '/body'>
  ::sys <htmltags #t2 #t 'span id="title-' '/span'>
  ::sys<car #t3 #t2>
  ::sys <erasealltags #t4 #t3>
  <first8 #list #t4>
  ;


<disp>
  ::sys <clear>
  <asahi #asahi>
  <yomiuri #yomiuri>
  <mainich #mainichi>
  <sankei #sankei>
  <tokyo #tokyo>
  <slashdotj #slashdotj>
  <for (#i 5)
	<print "朝日新聞 www.asahi.com ヘッドライン">
	<printlistnl #asahi>
	<print>
	::sys <sleep 20>

	<print "読売新聞 www.yomiuri.co.jp ヘッドライン">
	<printlistnl #yomiuri>
	<print>
	::sys <sleep 20>

	<print "毎日新聞 mainichi.jp ヘッドライン">
	<printlistnl #mainichi>
	<print>
	::sys <sleep 20>

	<print "産経msn sankei.jp.msn.com ヘッドライン">
	<printlistnl #sankei>
	<print>
	::sys <sleep 20>

	<print "東京新聞 www.tokyo-np.co.jp ヘッドライン">
	<printlistnl #tokyo>
	<print>
	::sys <sleep 20>

	<print "slashdot.jp スラッシュドット ヘッドライン">
	<printlistnl #slashdotj>
	<print>
	::sys <sleep 20>
  >
  ;

? {<disp>};

1.2.3 ソース解説

--

--