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

[1 名無しさんは伊達じゃない 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のそっくりじゃん！
妹？

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

>>314
C++とDが違う程度には違う

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

10歳違いの妹？

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

頑固でかたくなにゆずらない親父 ada
若くてすぐにつっぱしる Delphi

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

日本語の参考サイトがあんまりないね…

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

>>318
確かにあまりみかけないな

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

ちょっと使ってみようっと。

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

レス数が少ないけど、あまり使われてないのか

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

>>321
多分そうだろうな。

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

Adaの構文がCよりだったらなぁ…。で、Ada使ってるﾔｼのOSって何？
漏れはﾃﾞﾋﾞｱｿだけど。

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

点呼2！…って解釈でいいのかな？

Windows2000
上の方でA#いじってた奴です

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

>>324
Linuxだと、Adaの独自のﾏﾆｭｱﾙがあったり、cursesっていう端末制御ﾗｲﾌﾞﾗﾘが使えたりで、
他にもGNATとか色々ありますよ。Linuxは低燃費だからいらなくなったPCで試してみると面白いよ。

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

>>325
「いらなくなったPC」欲しいなあ…
WindowsでもgnatはありますしAPIは呼べますよん

…まさか、ふたりしかこのスレに残って無いなんてことは…！？

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

え？　点呼とってたんですか？
じゃ、３。

Win2000 & gnat & gwindows