米国国防省の標準高等言語エイダ（Ａｄａ）を語れ！

[1 名無しさんは伊達じゃない NG NG]

どうよ？

[215 デフォルトの名無しさん NG NG]

■ライブアライブの巻■

======2==C==H======================================================

　　　　　　　　　２ちゃんねるのお勧めな話題と
　　　　　ネットでの面白い出来事を配送したいと思ってます。。。

===============================読者数： 139038人　発行日：2003/1/10

なにやら、連日メルマガだしてるひろゆきです。

そんなわけで、ログ記録実験ですが、いちいちサーバ指定するのが面倒なので、
全部のサーバに入れてみました。

重くなって落ちたりしてもご愛嬌ってことで。。。

さておき、1/11ですが、2002/10/30にリリースされた『黒イジワルケイ』に参加したアーティストと、
２ちゃんねるで募集したバンドというよくわからない対バンのイベントがありますです。

http://marmalade.skippy.co.jp/event/live.html
＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊＊
高田馬場AREA 午後6時入場受付開始
当日券のみ開場にて！3,000円 （別途ドリンクチャージ500円）

[216 デフォルトの名無しさん NG NG]

わくわく。

[217 デフォルトの名無しさん NG NG]

http://www.sponichi.co.jp/society/kiji/2003/01/11/05.html

もう予告は止めた方が良いだろうね。

[218 デフォルトの名無しさん NG NG]

矢印厨がウザイのでアク禁お願いしますってか?

[219 デフォルトの名無しさん NG NG]

そういえば托ｲ発祥のスレだったな
他板でもはやってんの？

[220 デフォルトの名無しさん NG NG]

「4nd」ってなんだよ。
中学生以下だな

[221 デフォルトの名無しさん NG NG]

fusianasan

[222 デフォルトの名無しさん NG NG]

そんなに法律に頼りたいならインターネットアクセス自体を免許制にすれば？

[223 デフォルトの名無しさん NG NG]

そうなんすか。どうもです。

[224 山崎渉 NG NG]

（＾＾）

[225 デフォルトの名無しさん NG NG]

ループコピペ厨は年越しは一人ぼっちの筆記

[226 山崎渉 NG NG]

（＾＾）

[227 デフォルトの名無しさん NG NG]

たまには救済age

[228 山崎渉 NG NG]

（＾＾）

[229 デフォルトの名無しさん NG NG]

Eiffelに負けるなage …

ところで、GNATのgcってプログラム終了時にしか起こらないようですけど、
途中で起こす方法有ります？
(無いなら、すぐ終了するアプリでも無い限りgc当てにできないって事に…)

[230 デフォルトの名無しさん NG NG]

gnat for win32,gtkada,adasocketsで2chブラウザなんか作ってみたいと思う今日この頃。

[231 デフォルトの名無しさん NG NG]

それは興味深い挑戦かも。僕でできることがあれば協力しますよ。
と言ってもgtkもsocketsも知らない未熟者ですが。

ところで、誰も >>185 とか >>229 とかわからないのかな。。。

[232 デフォルトの名無しさん NG NG]

with 2ch.Program;
procedure Hoshu is
　Thread: access 2ch.Thread;
begin
　Thread := 2ch.Program.Get_Thread("米国国防総省…");
　2ch.Write(Thread, text => "保守", mail => "sage");
end;

[233 NG NG]

gcc-3.2.2に付属しているadaをコンパイルしようとしているのですが、うまく
逝きません。configureがadaを引っ張ってくれない感じです。
環境はSolaris9+gcc-2.95.3です。
% mkdir gccobj
% cd gccobj
% ../gcc-3.2.2/configure --enable-languages=c,c++,ada
languages指定をしないで全部作ろうとしてもダメ。objcやjavaなどは作って
くれるのですが…。adaだけが出来ません。
コンパイル方法をご存知の方。教えてくださいませんか。

[234 デフォルトの名無しさん NG NG]

http://gcc.gnu.org/install/build.html#TOC3

[235 デフォルトの名無しさん NG NG]

エイダってどれくらい流行っておりますか?

前に大学のソフトウェア設計法の授業でC++と一緒にやらされたけど
初心の漏れにはきつかった。
今ではその授業はJavaに切り替えてしまったらしい。

今では漏れもJava慣れしてAdaには手をつけなくなってしまった。

[236 デフォルトの名無しさん NG NG]

>>235
死にそうだね。
Javaに切り替えて正解。

プログラマのレベルがばらばらな
大規模プロジェクトにはあってるとおもうんだけど、
イメージが悪いのか採用されない。

[237 デフォルトの名無しさん NG NG]

プロトタイプ宣言とか演算子のオーバーライドなんて
結構好きだったが。今では当たり前だのクラッカーだね。

[238 NG NG]

>>234
この通りやったつもりなのですが。うーん…。

[239 デフォルトの名無しさん NG NG]

>>237
Adaにあわせて駄洒落まで古くするこたないヨ

[240 デフォルトの名無しさん NG NG]

...

[241 デフォルトの名無しさん NG NG]

たまにはageてみる

[242 デフォルトの名無しさん NG NG]

ｱﾀﾞｰｰ

[243 デフォルトの名無しさん NG NG]

つまみエイダ豆

爆笑間違い無しなのでage

[244 デフォルトの名無しさん NG NG]

>>243
もうかれこれ10時間以上笑い続けてます。

[245 デフォルトの名無しさん NG NG]

>>243
もうかれこれ二週間以上笑い続けてます。

…で、たまにはage

[246 デフォルトの名無しさん NG NG]

うんだ、Ada はええだ。
恩を Ada で返すだ。

[247 デフォルトの名無しさん NG NG]

ええ、２秒くらいは笑えましたよ

[248 あっちの621 NG NG]

プログラミングの為の数学と算数
http://pc2.2ch.net/test/r.i/tech/997150743/607
＞[607]デフォルトの名無しさん04/02 11:12
＞Ｎ＋Ｎ＝ＮＮ

[607]の意図はよくわからないんだが
1+1=11
2+2=22
みたいなものがあるか、という問題と解釈し
10進数以外ならあるやも、と作ったプログラム。
2進、3進、4進．．．16進までやってみたけどないね。

with Ada.Text_IO, Ada.Integer_Text_IO;
use Ada.Text_IO, Ada.Integer_Text_IO;

procedure nn is
begin
for i in 2..16 loop
　　for j in 1..i-1 loop
　　　put(j, 6, i); -- jをi進数で表記
　　　put(" + ");
　　　put(j, 6, i);
　　　put(" = ");
　　　put(j + j, 6 ,i); -- j+jをi進数で表記
　　　new_line;
　　end loop;
end loop;
end nn;

[249 山崎渉 NG NG]

（＾＾）

[250 デフォルトの名無しさん NG NG]

[251 山崎渉 NG NG]

　　 ∧＿∧
　　（　　＾＾ ）＜ ぬるぽ（＾＾）

[252 デフォルトの名無しさん NG NG]

めざせ深層水

[253 デフォルトの名無しさん NG NG]

残り12スレッド、潜れ潜れ

[254 デフォルトの名無しさん NG NG]

あと10

[255 デフォルトの名無しさん NG NG]

あと6

[256 デフォルトの名無しさん NG NG]

PC8001版持ってる人は？

[257 デフォルトの名無しさん NG NG]

ho

[258 デフォルトの名無しさん NG NG]

syu

[259 デフォルトの名無しさん NG NG]

http://www12.brinkster.com/brianr/languages.aspx
A#存在記念age

[260 デフォルトの名無しさん NG NG]

独立型プログラミング支援ユニットADAです。
￣￣￣￣￣￣￣￣￣￣￣￣|／￣￣￣￣￣￣￣￣￣￣￣￣￣￣
　　　　　　　　　　　　 ＿＿＿＿＿＿＿
　　　　　　　　　　　／＼ ⌒ヽ≡≡≡≡＼
　　　　　　　　 　／　((　　 A D A ;;;;;∵. ... ＼
　　　　　　　　／◇＼／￣￣￣￣￣＼／◇.＼
　　　　　　 ／ 　　＼ ＼____|| | | ||____／ ／　　　＼
　　　　　／　 //／￣／￣￣V￣￣ ＼￣＼// 　 .＼
　　　　　￣￣￣　 　 ＼ ≡||□||≡　／

[261 デフォルトの名無しさん NG NG]

A#拡張構文

・「変数名 . 関数名」形式の「メソッド」呼びだしがサポートされてる(pragma Extensions_Allowed(On);時のみ)
・with 型名 is access; で参照型インポート
・with 型名 is tagged; で値型インポート
・pragma MSIL_Constructorで普通の関数をコンストラクタ扱いに
・Adaの文字列に+演算子を適用すると.NETの文字列に、逆もあり

他になんか無いかな？

[262 デフォルトの名無しさん NG NG]

A#の使い方

ダウンロードして展開して
・binにPATHを通す
・ADA_INCLUDE_PATHを...\lib\mgnat\adainclude; ...\include
・ADA_OBJECTS_PATHを...\lib\mgnat\adalib; ...\include
・register_mgnat.batを走らせる
・古いものが混じってるのでinclude中の*.aliの上書き禁止属性を解除しておく

[263 261-262 NG NG]

とりあえずWindows.Formsとか使えるっぽいので、
Ada@WindowsでGUIやる場合の選択肢がGtk以外にもうひとつできたことになります。
起動遅いけどなァー。
(Pentium�Vで.NET動かすってのが間違いかも知れないが…)

ひとりでやってると寂しいので誰か一緒にやりましょうよぉ

[264 山崎渉 NG NG]

　　　 　∧＿∧
ﾋﾟｭ.ｰ　(　　＾＾ ） ＜これからも僕を応援して下さいね（＾＾）。
　　＝〔~∪￣￣〕
　　＝ ◎――◎ 　　　　　　　　　　　　　　　　　　　　　山崎渉

[265 デフォルトの名無しさん NG NG]

あげてやる

[266 動画直リン NG NG]

http://homepage.mac.com/hitomi18/

[267 デフォルトの名無しさん NG NG]

【PC版】Ever17-the out of infinity【大失敗作】 　　 　　
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】 　　
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/
【PC版】Ever17-the out of infinity【大失敗作】
http://www2.bbspink.com/test/read.cgi/erog/1053601941/

[268 デフォルトの名無しさん NG NG]

あげてやるあげてやるぅ

[269 デフォルトの名無しさん NG NG]

mingwの最新版スナップショットにはAdaが含まれて無いですよ。なんでかなー？

[270 デフォルトの名無しさん NG NG]

ho

[271 デフォルトの名無しさん NG NG]

話は変わるけど，国防総省の総って何．

[272 デフォルトの名無しさん NG NG]

陸軍　海軍　空軍

[273 ごるごるもあ ◆753Z/RLFiY NG NG]

　　　　　　　 　 　 ､　
　　　　　　　 　 　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　 ヽ　
　 ∧､　　　l ﾉ ﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の廃止だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ 　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　http://darkelf.dip.jp/doubt/okinawa.html

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の廃止
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

[274 ごるごるもあ ◆753Z/RLFiY NG NG]

　　　　　　　 　 　 ､　
　　　　　　　 　 　) |　
　　　　　　　　 ( ﾉノ　
　　　　　　　, --" - ､　
ｽﾁｬ　　　　/ 〃.,､　　 ヽ　
　 ∧､　　　l ﾉ ﾉハヽ､　 i　
／⌒ヽ＼　i | l'┃　┃〈ﾘ　　我々の要求は、沖縄県に対する皇民政策の処分だ
|( ● )|　i＼从|l､ _ヮ／从　　明日米軍基地を爆破する。
＼＿ノ　^i |ハ 　∀　＼　
　|＿|,-''iつl/　　†/￣￣￣￣/
　　[__|_|／〉 .＿_/　魔　法　/＿＿
　　　[ニニ〉＼/＿＿＿＿/　http://darkelf.dip.jp/doubt/okinawa.html

我々はこれ以上の共産主義化をすることはできない。
よって、我々の民主主義奪還を行うために政府に対し次の通り要求する。
１.沖縄県に対する皇民政策の処分
２.思いやり予算の撤廃
３.軍事基地の撤去交渉を米国と進める。
４.復興予算案の盛り込み
５.沖縄の議席数を現在の４倍以上に増やす。

[275 デフォルトの名無しさん NG NG]

ho

[276 デフォルトの名無しさん NG NG]

上へ参ります

[277 デフォルトの名無しさん NG NG]

エイダバベッジの階差機関か？

[278 デフォルトの名無しさん NG NG]

定期保守

[279 山崎 渉 NG NG]

（＾＾）

[280 デフォルトの名無しさん NG NG]

（＾＾）

[281 山崎 渉 NG NG]

　　　 (⌒V⌒)
　　　│ ＾ ＾ │＜これからも僕を応援して下さいね（＾＾）。
　　⊂|　　　　|つ
　　　（＿）（＿）　　　　　　　　　　　　　　　　　　　　　　山崎パン

[282 デフォルトの名無しさん NG NG]

hoi

[283 デフォルトの名無しさん NG NG]

PascalもPL/SQLもAdaから派生したと聞いたが。
ＰＣ最強言語とデータベース最強プロシジャの親が両方ともＡｄａ
であると思ってたが。
DelphiもOracleも萌え萌え

[284 デフォルトの名無しさん NG NG]

>>283
最強のクソ言語と、最強のクソデータベースのプロシージャの
間違いじゃネーノ？ｗ

[285 デフォルトの名無しさん NG NG]

×クソ言語
○クソ会社のツール
ではだめかね？
あと、
○クソ会社の最強データベース（製品はよいよ）

[286 デフォルトの名無しさん NG NG]

逆だろ？PascalからAda。

[287 デフォルトの名無しさん NG NG]

クローンオブエイダの話でないね
あんまり関係ないけど

[288 デフォルトの名無しさん NG NG]

すまん、Ａｄａがあとだった
ALGOL58 1958年
↓
Pascal 1970年
↓
Ada 1980年

[289 デフォルトの名無しさん NG NG]

hooo

[290 デフォルトの名無しさん NG NG]

shuuu

[291 デフォルトの名無しさん NG NG]

このスレ、おやじギャグ多すぎません？
もしかしてホントにオヤジが多（ｒ

[292 デフォルトの名無しさん NG NG]

地道に保守

[293 デフォルトの名無しさん NG NG]

新参者ですが、Ada勉強してみようかな。

[294 デフォルトの名無しさん NG NG]

sage

[295 デフォルトの名無しさん NG NG]

700

[296 デフォルトの名無しさん NG NG]

616

[297 デフォルトの名無しさん NG NG]

このスレが賑わう日は来るのかなあ…

[298 デフォルトの名無しさん NG NG]

adaってなんかPascalに似てるな

[299 デフォルトの名無しさん NG NG]

Delphiユーザは知らず知らずのうちにAdaの恩恵を受けていると思う。

[300 バイオハザード２ NG NG]

レオン「エイダー！！」

[301 デフォルトの名無しさん NG NG]

　 　 / 　 　 　＼ノｋ 　　　,r 　 ｔ、 f ノ 　 ヽ ﾉ 　 　 　 　 　 ／ 丶'　　ヽ　 ￣
　 　 { 　 　 . ⌒ヽ'⌒ヽ _7ﾄ,ﾆtK　|`ﾍ 　 　 ﾉ 　 　 　 　 　 / ヽ　　　 /　/:
　　 ヽ､ 　 　 　 　　 〉ヽ〉二〈ﾉ│　｀ヽ;;ノ ＾ 　 　 　 　 　 /　/へ ヘ/　/:
　　　　 `ー-､;;;;;;;;ノ 　 ´￣｀ 　〉 　 　 　 　 　 　 　 　　 ＼_＼ ヾミ　 /|:
　 　 　 　 　 　 ﾊ二二ﾆﾆﾆ=─ヘ、 　 　 　 　 　 　 　 　 　ヽ　､vWwｧ_
　 　 　 　 V ヽ 　ﾄ 　 　 　 　 　 　＼ 　 　 　　 　 　 　　 　y'{ j,__;＿;ノ
　 　 . . ﾝ 　ミﾐ巛　ﾉ ノ ヽ ヽ 　 　 　 ＼_ 　　　　　　　　　　ヽ!!_,'´" ,,　f
　　　 ノ ／ﾉ/　 `ヽﾄ､＼＼─t、 ミ　　　}　　　　　　　 　　_ｨ´ __　i　 ___　〔
　 　　.,_||` ;;;×　　×ヾ　 '| |_ ￣／　　ヽ|　　　　　 　 　y　　 　_ ,|　　　　`　 、
　 　　|ヽ|　　.　▲　 　|り|　　 ｜　　　ノ　　　　　 　 ノ　　　　　_;-ー'--tｰ' 　 　｀'＼
チョ、　　! ` 　'"-Д-　/ / 　 ヽﾆﾆイ　　　　　 　 ,ｰ' ヽ　 _;　― 　 　 　 　`ヽ、　　 ヾ,
タンマ 　　＼　　　　　／　　　 | 　 | 　　　　　　　｛／　 　 r ´ 　 　 　 　 　 　 ｝ 　　　|
　　ミ' )ー─「　｀レ￣　　 ￣^ 〈　 ´ `ｰ--r､　　 ｛ _　　 _ ¨ 　 　 　 　 　 　　 /|’　　 /|
　　⌒'￣￣└─┤　 i＿_8　 |　　＼:n〉0jﾉノ 　 {　　_y' 　 　 　 　 　 　 　 　 |/　　　/
　　　　　_　 _,. -- _ゝ_／ ノ⌒/　　ﾉ┴､一　ﾐミ７_ｰr'ーj 　 　 　 　 　 　 　 　 {　 　 ｿ
_,, -‐　´　　　　　Ｌ__j-´ 　 　ゝ､__＿_ﾉ＿二_巛７ﾉ============ 　 　 　 　 { 　-; |
　　　　　　　　　　 　　　 　　　　　　　　　　ミﾐl_/ l_　 　　　　　 　　　　　　　　'ｰ-;､ ｀j

[302 デフォルトの名無しさん NG NG]

仕事でAdaを使ってる人いる？

[303 デフォルトの名無しさん NG NG]

Anubis zoeで出てた奴？

[304 デフォルトの名無しさん NG NG]

>>303
何それ？

[305 デフォルトの名無しさん NG NG]

GWindowsを使ってWindowを表示してみました。(Win2000)
GWindows url: http://www.adapower.com/gwindows/

--
-- wintest.adb
--

with GWindows.Windows.Main;
with GWindows.Application;

procedure WinTest is
use GWindows.Windows.Main;
Top: GWindows.Windows.Main.Main_Window_Type;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
visible (Top);
Gwindows.Application.Message_Loop;
end;

[306 デフォルトの名無しさん NG NG]

>>305
おーっ(拍手

なんかすごそうだ。もっと使ってみた感想とか聞きたいかも

[307 デフォルトの名無しさん NG NG]

>>306
まず使えるようになるまでが大変でした。
MinGWのgnatだとうまく動かなかったので、
ftp://cs.nyu.edu/pub/gnat/3.15p/winnt/
から、改めてダウンロードしてインストール。
で、環境変数を設定。（gnatはc:\gnatにインストールしたとする）
PATHにc:\gnat\binを追加。
ADA_INCLUDE_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adainclude
ADA_OBJECTS_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1\adalib
C_INCLUDE_PATH=c:\gnat\pentium-mingw32msv\include
LIBRARY_PATH=c:\gnat\lib\gcc-lib\pentium-mingw32msv\2.8.1

ここで、サンプルをコンパイルしようとすると、
なぜか、collect2が見つからないとかしかられるので、
c:\gnat\binにあるld.exeをcollect2.exeという名前でコピー。
（これに気づくまで、かなり悩みました。。。）

つぎに、gnatcom（http://www.adapower.com/gnatcom/）をインストール。
make install

そして最後にGWindowsをインストール。
make UNICODE=1 install

ってな感じで、疲れました。。。（インストールするまでに三日ぐらい悩んだ）
まだ、サンプルをコンパイルする程度なので、詳しい感想はのちほど。

[308 305 NG NG]

マウスクリックイベントを取得してみました。
--
-- mousetest.adb
-- compile: gnatmake mousetest.adb
--
with GWindows.Message_Boxes;
with GWindows.Windows; use GWindows.Windows;
with GWindows.Windows.Main; use GWindows.Windows.Main;
with GWindows.Base;
with GWindows.Types;
with GWindows.Application;
procedure MouseTest is
Top: GWindows.Windows.Main.Main_Window_Type;

procedure OnMouseClick
(Window: in out GWindows.Base.Base_Window_Type'Class;
X : in Integer;
Y : in Integer;
Keys : in GWindows.Windows.Mouse_Key_States)
is
New_Point : GWindows.Types.Point_Type := (X, Y);
begin
GWindows.Message_Boxes.Message_Box ("on mouse click", "Clicked!");
end;

begin
Create (Top, "Hello World");
Size (Top, 300, 100);
On_Left_Mouse_Button_Down_Handler (Top, OnMouseClick'Unrestricted_Access);
visible (Top);
Gwindows.Application.Message_Loop;
end;

[309 デフォルトの名無しさん NG NG]

Delphiより、いいところってある？

[310 305 NG NG]

>>309
Delphiと比べて考えたことはなかったですが、
並行プログラミングが言語の文法に組み込まれている
あたりが個人的には気になっています。

[311 デフォルトの名無しさん NG NG]

ゲーム製作技術板より転載

AdaSDL
　http://adasdl.sourceforge.net/
NeHe new base code with Ada
　http://www.abyss2.demon.co.uk/projects/ada/index.html

[312 デフォルトの名無しさん NG NG]

今でも使ってるのかな？

[313 デフォルトの名無しさん NG NG]

>>312
今でも使っているし、多分１００年後も使っているだろう。

軍隊という所はそういう所です。

[314 デフォルトの名無しさん NG NG]

Delphiのそっくりじゃん！
妹？