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

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

どうよ？

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

Ada, 楽々受かるからだ。

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

Ada, rakurakuukarukarada

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

82が気が付いてくれて、81も浮かばれただろ

もっとも82＝81ならその限りではないが

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

>>83
たぶん、>>82=>>81と思われ。

そんなの気づく奴は、本人以外なかなかいない。

よくできてるとは思うけどね。

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

Adaから派生したDIANAって知ってる？
80年代、Adaを勉強しようとして、まちがえてDIANAの本買って鬱になった。
Ada構文⇔DIANA木に変換できるらしい。NTT通研がやっていたと思う。

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

>>84
81って、大昔の ASCII かなんかの雑誌にのっていた覚えがあるよ。

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

Ada って Pascal から生まれたんでしょ？
だからいまだにアメリカではPascalを教えてるんだね。
あとでCにもAdaにもいけるからね。

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

Algol系の言語が好まれるということだな。
PL/1, JOVIAL, modula-2/3などなど

PascalからCという流れは？だが。

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

raise Sage; --(意味不明)

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

>>89
そういやコメントが--なんだよね。

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

if 書き込む then
　存続;
else
　dat落ち;
end if;

-- ぶらさがりelse問題の無い理想的なif文です

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

loop
　存続;
　exit when dat落ち;
end loop;

-- 無限ループ専用の構文があるのも珍しいかも

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

A: loop
　loop
　　exit A;
　end loop;
end loop;

loop
　loop
　　goto B;
　end loop;
end loop;
<<B>>

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

declare
　type S is array(Character) of Boolean;
　Age: S := ('A' | 'G' | 'E' => True, others => False):
　Sage: S := ('S' | 'A' | 'G' | 'E' => True, others => False):
　R: S;
begin
　R := Age and Sage; -- Booleanの配列はPascalみたく集合演算できる
end;

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

Thread.Write(Text => "仮引数明示呼びだし", Mail => sage);

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

with System; use System;
with Interfaces.C; use Interfaces.C;
with Interfaces.C.Strings; use Interfaces.C.Strings;
with Win32; use Win32;
with Win32.WinUser; use Win32.WinUser;
procedure WinHello is
　pragma Linker_Options("-Wl,-subsystem,windows");
　function To_CStr(C_Str: CHAR_Array) return LPCSTR is
　　function UC is new Ada.Unchecked_Conversion(Address, LPCSTR);
　begin
　　return UC(C_Str(C_Str'First)'Address);
　end;
　Dummy: Win32.INT;
　Text: constant CHAR_Array := "Text" & Win32.Nul;
begin
　Dummy := MessageBox(Null_Address, To_CStr(Text), To_CStr("Caption" & Win32.Nul), MB_YESNO);
end WinHello;

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

ADA95どうよ？

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

Ada95で、クラスワイド型じゃないと多態しないというのはまあいいのですけど、
多態で飛んでいった先の各ルーチンに渡されるオブジェクトはクラスワイド型じゃない方ですよね？
多態先からまた多態したい時はそのつどクラスワイド型にキャストし直すしか無いのでしょうか？

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

>>92
> -- 無限ループ専用の構文があるのも珍しいかも

CSPの影響でしょうね。

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

>>87
Concurrent Cは、Adaから影響を受けたね。

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

委員会が作った言語に優れたものは１つもない。

[102 C++好き NG NG]

>>101
最近のC++には耳の痛いお言葉で…

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

Ｃ＋＋は、委員会が決めたのか？

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

C++に贈る言葉
「船頭多くして、船、山に登る」

[105 C++好き NG NG]

>>103
最近は http://anubis.dkuug.dk/jtc1/sc22/wg21/ こういうところがメインですよ。
もうBjarne Stroustrup個人の言語じゃないです。

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

しかしAda(やCommonLisp)はそもそも委員会が設計した言語だからな。
もっとひどい。

[107 C++好き NG NG]

CommonLispは、mailing-listの議論をGuy Steeleの独断でまとめた。
だから委員会じゃないが、確かにすっきりしない言語だな。

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

対照的なのはOberonとかSchemeとか。
好き嫌いはともかく、すっきりしてる。

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

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

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

>>109
ﾜﾗﾀ

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

Adaに無限ループ専用の構文なんてないぞ。
loop文の繰り返し規則がオプションになってるだけ。

for ch in CHAR'RANGE loop ... end loop;
while ch in CHAR'RANGE loop ... end loop;
loop ... end loop;

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

平社員: 係長、何か泳いでいますね〜
係長: エイだ。

[113 ＡＤＡ NG NG]

ＡＤＡ

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

保守

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

AADDAA

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

人類初のプログラマーは女性
http://www-6.ibm.com/jp/lead/010115_a.html

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

raise…してもネタも無し。保守

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

国防省というと、Multicsがついこないだまで現役で動いていた
そうですが、それってPL/IをAdaに焼き直して動かしていた
とかいう話はあるんでしょうか？

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

保守sage

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

age

[121 _ NG NG]

作られた時代を考えたらAdaって凄く先進的な言語ですね。。。

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

作られたときは先進的だけど今はどうってことないじゃん。なんて国防総省が
いまだにエーダなんてつかってるかわからないよーん。ボケ。

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

F-22しか使われてるの知らないけど、他にはどんな軍用兵器の開発に
使われてるの？

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

スティンガー

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

エイダちゃん
ｷﾀ━━━(ﾟ∀ﾟ)━━━!!


でも年輩ハッカーしか知らないに(　つД｀)1デリゲート

[126 C++好き NG NG]

>>122
違うよ。そういう後ろ向きの理由じゃなくて、Multicsはバリバリの現役だったよ。
B2 security通っていたからね。
http://williamstallings.com/Extras/Security-Notes/lectures/trusted.html

「コンピュータセキュリティの基礎」D. Russell, G.T. Gangemi Sr.
山口英監訳 アスキー出版、が日本語書籍では詳しい。絶版なのかな?
http://www.amazon.co.jp/exec/obidos/ASIN/4756102999/qid%3D1028710845/250-8907122-0857047

>>123
>>50から辿ってね〜。

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

国内でも航空管制で使われてない？

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

保守

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

Text_IO.Put_Line("下へ参ります");

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

GCC に Ada が入ったみたいだが、なぜ？

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

Ada.Coda.IUNA

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

Ada.Coda.You.Know

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

ttp://www.adahome.com/Pictures/ladyada.gif結構美人じゃない？？

[134 NG NG]

いまgnat-3.13p-8.i386.rpm ってのﾀﾞｳｿしてるんだが・・・
・・・不安

[135 134 NG NG]

RedHat7.1と7.3にすんなり入った。

gnat-3.13p-runtime-1-8.i386.rpm
と、gnat-3.13p-8.i386.rpm
の、とりあえず二つだけ持ってきて、この順にrpm -ivh するだけ。

ちょっとイラっとしたことといえば、User's Guideにあった
$ gcc -c hello.adb　が駄目で、gnatgccじゃないとコンパイル
しなかった事ぐらいだった。

まぁ温故知新って言うか、割と楽しめそうな感じ。

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

lovelaceっていうAdaチュートリアルみつけた。
なんかよさげ。

Section1-4にAdaの実行時例外を投げさせる例題があったけど、
例外なんか一個も投げられないで、おかしな値を表示しながら
無限ループしてる。
調べてみると、漏れのつかってるGNATではコンパイル時の
オプションで-cargs -gnatoと指定しないとだめだと分かった。
それ以外はいい感じだった。もうしばらく続けてみよう。

今日はLesson4までやった。
明日はLesson5〜8までやる。オブジェクト指向が含まれる。
あさってはLesson9〜12までやる。Genericsが含まれる。
しあさってはLesson13〜17（最後）までやる。並行処理とかが含まれる。

・・・つうか暇。。。

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

Windowsでも、mingw版gccで試せる、と一応書いておく。

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

levelace って名前がなんか
軍用って香りがするのは
Ada に対する偏見だろうか？

[139 NG NG]

Augusta Ada Lovelace（バイロンの娘。世界最初のプログラマ）

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

Boochなんかも、もとはAda畑の人だったわけね。
でRational Rose もAda Illustratorってツールに起源をもつとか。

もしかしてSmalltalk程度には評価されていいのかも知らんね。
case-insensitiveなのは、いやなんだが・・・。

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

さてと、lovelaceとか言うチュートリアルを半分までやって見た。

メッセージを受け取る側のオブジェクトも引数としてメソッドに渡すわけか。
UMLとか書くときはどうするんだろう。

あとタイプとクラスを別々の概念として扱うってのが、なんかイマイチ
よく分からん。（興味深くもあるけど。）
代入とコン（デ）ストラクタを定義するのに、いちいち組み込みのクラス
から派生させるてのもいかがなものかと思いますた。

マルチディスパッチできるらしいんだが、これはちょっと面白いかも。
寝る時間までちょっといろいろ書いて見るか。

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

Adaたんって可愛かったのかな？
写真なんか無い時代だよね…

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

Ada.NETはともかく、.NETに総称を付け加える研究をMSRでやってるよ。

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

そのgnatってネットワーク系のライブラリとかあります？
単にHTTPでPOSTして結果をうけとるだけでいいんですけど。

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

>>143
貴族の娘だから肖像画くらいはあるんじゃねーの?

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

Lady Augusta Ada Byron
http://www.cs.kuleuven.ac.be/~dirk/ada-belgium/pictures.html#LA

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

現在mingwダウンロード中。
「lovelaceっていうAdaチュートリアル」とやらはどこにあるの？

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

gcc-3.2-Ada-20020817-1.tar.gzをmingwのディレクトリに重ねて解凍しただけではコンパイルできないのか？

fatal error, run-time library not installed correctly
cannot locate file system.ads

みたいに言われる…(system.adsそのものはmingw\lib以下の深いところに存在する)
多分何かパス設定が必要なんだろうけど、誰か知りませんか？

[149 148 NG NG]

自己レス。
環境変数ADA_INCLUDE_PATHとADA_OBJECTS_PATHが必要でした。
さて、Hello Worldのコンパイル通ったし、lovelace探すか…。

やけに生成されるexeがでかい気がするのですが、スマートリンクみたいなオプションが必要？
それともこんなもの？

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

好奇心で勉強するのは良いけどさ、
Adaって案件あるのか？
先輩が昔、三菱のホニャララで聞いた事が
ある、とか言ってたけど...

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

>>150
軍事関係なら多いだろ
でもそういうのは機密なものばかりだろうから話題には上らない

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

>>150
三菱というと、もしかしてF-2とかの戦闘機ってAdaで動いてるのか。
それはそれで面白そうだ。
# ま、漏れ的にはAdaは遊びで十分なんだけど。現実的に。

ちなみに、ソフトウェアの再利用性に関連した論文とかで、
CAMP（Common Ada Missile Package）ってのをたまに
見かけるんだけど、是非、拝見して見たいものだが。
やっぱミサイルクラスとか弾頭クラスとかあるのかな・・・？。

あとNASDAとかもにもありそうな気がするんだがどうなんだろ。＞案件

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

>136
>無限ループしてる。
なった、なった。
>調べてみると、漏れのつかってるGNATではコンパイル時の
>オプションで-cargs -gnatoと指定しないとだめだと分かった。
そんなとこまで気付かなかったよ。

[154 141 NG NG]

>>153
おお始めてみたんですか。心強いです。
自力で分からないことあったら訊くかも知れんのでよろしこ。

あと、正直すまんかった。
間違ったこと書いてたらしい。マルチディスパッチはだめみたいだ。
operation can be dispatching in only one type.
いきなり怒られた。
Visitor使えよってことか。

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

>147
>「lovelaceっていうAdaチュートリアル」とやらはどこにあるの？
目次
ttp://www.adahome.com/Tutorials/Lovelace/master.htm
トップ
ttp://www.adahome.com/Tutorials/Lovelace/lovelace.htm

[156 147=148 NG NG]

>>155
ありがと。でも、既に検索して見つけちゃってました。
とりあえず順番にクイズをやってます。

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

一応書いとくか。
LovelaceのSmallってサンプル（ﾀﾞｳｿしたやつ）は、俺の環境RH7.3+gnat3.13pでは
makeできなかった。
ちょっとがっかりしたけど、深追いするのはやめときますた。

今、ライブラリとか調査中。

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

>>157
mingw+gnat(バージョンはどこで見るの？)でもビルドできない…と思いきや、
zipに格納されているファイル名が8文字で切れてしまっている様子。
(directions.ads が directio.ads になっている等)
ファイル名を正してやればビルドできました。

しかし…二部屋しかないのか？このゲーム(w

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

win32adaというものを拾ってきて、WindowsAPIを呼ぶ実験をしてます。
一部書き換えが必要になったものの(gnatのバージョン違いが原因と思われる)、
なんとか成功…はしたのですが、
毎回、リンカにlibuser32.a等を渡してやらないとリンクできない面倒な状態になってしまってます。
リンカ(gnatlink)に渡すデフォルトオプションを書いておける、環境変数とか設定ファイルとかありませんか？

それと、win32*.aliを、ADA_OBJECTS_PATHにコピーしても、見てくれず、
毎回ソース(ADA_INCLUDE_PATHに配置。こっちは見てくれる)からコンパイルされるのは何故だろう…。

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

>>159
いまソケットライブラリやってるんだけど、こっちではこんな風にmakeできる。

１．gnatmakeに渡すオプションをなんかのファイル(例えばfoo)に書く。
-I/usr/lib/ada/adasockets -L/usr/lib/ada/sockets -largs -L/usr/lib/ada/adasockets -ladasockets
　（-largs以降がリンカオプションらしい）

２．そんで、gnatmake hogehoge `cat foo`

窓、出ましたか？

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

``というのはUNIXのコンソールの機能ですか？cmd.exeにそんな機能あったかな…。
無駄と思いつつ`type foo`なんて書いて何も起きない事を確認。

とりあえずソースコードに直接pragmaを埋めこむ事で、一応対処はできました。

pragma Linker_Options("-s -mwindows");
pragma Linker_Options("C:\progra~1\mingw\lib\gcc-lib\mingw32\3.2\adalib\win32ada.a");
pragma Linker_Options("C:\progra~1\mingw\lib\libgdi32.a");

で、窓、出ました。
( ソースコードにパスを埋めこむのは気持ち悪いのですが… )

-s をリンカに渡すと、スマートリンクらしいです。だいぶ.exeが小さくなります。

[162 160 NG NG]

>>161
ｽﾏｿ。なんとなくCygwinユーザかと思ってた。

＞で、窓、出ました。

いいなあ。。。
漏れもGｔｋでやって見ようかな。

それにしても情報が少ない。まさに「ソースがドキュメント」状態・・・

[163 NG NG]

メモっとこ。
主要ドキュメント。

『Language Reference Manual 』
言語自体のリファレンスだけど、BNFばかりでとっつきにくい。
http://www.ocsystems.com/user_guide/powerada/html/ada_lrm/lrm-TOC.html

『Ada 95 Quality and Style Guide 』
スタイルガイドだけど、要所要所コードの断片が載ってちょっと分かりやすい。
http://www.grammatech.com/style_guide/contents.html

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

巫女の予言とかいうやつ?

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

海で泳いでいるのは

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

興味本位でいじってみてるんだが、最初思ってた程悪くは無いわな。
日本語のサイトで「巨大なゴミ」とか書いてるところもあったけど、
別にそうは思わないなあ。

流行らなかったのは、だいぶ前のレス>>62にあったように開発ツール
とかの問題だと思うんだが。言語仕様じゃなくて。

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

総称が使えるという事は、STLみたいなものもある筈…
というか初期STLはAda由来というのをどこかで見た…

どなたか、御存じ無いですか？

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

>>167
sglってのがあるみたいですね。
逆にC++STLをもとに作ったらしいですが。

ftp://ftp.cs.rpi.edu/pub/stl/SGL.tar.gz

IEからはﾀﾞｳｿできなかったんですが、anonymousでftpに入ったら
持ってこられました。中身のバージョンは2.0a3でした。
まだ使ってませんが。

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

>>168
テスト程度に使ってみました…で、印象としては、ファイルを細分化させ過ぎているせいで、
withの数や特殊化の数が増えて、C++/STLほど気軽に使えない感じ。
Controlled型がprocedure内でローカルに作れない(特殊化含む)というのも、初めて知りました。痛い制限ですね…。

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

ラプターはエイダで動いてるらしいな。

[171 NG NG]

>>169
おれのとこだと、通らないテストがいくつかあった。
自分で修正しようとしたけど、漏れのスキルじゃまだまだ無理っぽかった。

＞痛い制限ですね…。
やはり突っ込みどころは多々ある。かなりある。
あまり気にしませんが。

ライブラリといえばBoochコンポーネントとかいうのにもコレクションとか
あったと思う。どうなんだろ？

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

ところで、Adaは言語仕様でGCが想定されていますが(同時にGC無しモードも想定されてるけど)
GNATのGCは、exe終了時にしか働かない気がします。
forで回してnewしまくったら、あっさりヒープが足りないとエラー出して終了、
でも、それまでに割り当てたオブジェクト(Controlled型にしてました)に関しては、
きちんとFinalizeが呼ばれて解放された事が確認できます。

マトモに作ろうと思えば、GCは気休め程度に考えて、
やはりUnchecked_Deallocation使ってFreeするしか無いのでしょうかね。
それとも知らないだけで、明示的にGC起こすような関数があるのでしょうか？

[173 169 NG NG]

>>171
>おれのとこだと、通らないテストがいくつかあった。

あら、ほんと。(昼間は全部試して無かった)
そのままじゃ使えない色が強くなってきました…→SGL

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

Booch試してみました。
STLとは異なる作りですが、こっちの方がいい感じ。テストも通ったみたい。
しばらくこれで遊べるかも。

直接関係ないのですが、BoochのCase-Studyを見る限り、
Adaは関数内関数をgeneric引数に使えるらしいです。
スコープとかどうなるのかよくわかって無いのですが、なんか強力そうな感じは受けます。

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

日本語の情報が少ないage
C++とも勝負できる仕様と思うんだけどなあ…

[176 _ NG NG]

>>175
仕様の巨大さで?
いや、好きだけどね。

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

C++の場合、構文のいい加減さを繕うために無駄に仕様がでかい気がするが、
Adaの場合、使いもしない機能を詰め込んで無駄に仕様がでかい気がする。

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

日本政府の被差別言語エタ（穢多）を語れ！

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

うちの大学の授業では Ada は必須ですが、好きじゃないです。

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

pragma CPP_xxx って、具体的にはどう使うのだろう。
上手く使えば、例えば、IUnknownを定義できたら、COMなども使えると思うのですけど。

GNATCOMというのを見てみたら、pragma CPP_xxxは使わずに、VTableを自前で作ってる…。