AB開発日記

旅慣れしていない山本家を8月末に襲うのは、軽井沢貸し別荘（3日間だけ）移住計画です。こういうのをやったことがないんで、下見が必要だろうということで、従兄弟とその子供を引き連れて下見に行ってきましよ。

片道250km程度、「どうでしょうサイコロの旅」並みのこの計画…時間どおりにことが進むか、ちょっと心配です。出発地は静岡市、駿府公園付近。目的地は中軽井沢駅のすぐ近くのパークコテージになります。

行きは、富士山を見ながらR139号を北上します。←こいつはいつものお決まりルートといったところでしょうか…、牧場あり、公園ありの超定番観光道路ですね☆

精進湖を抜けて中央道へ。せっかくなので、諏訪南I.C.で降りて八ヶ岳で昼食をとることにします。本日のレストランはおいらが過去に一度だけ行ったことのある、超オシャレなところなんです。

その名も、廃材王国「カナディアンファーム」。森の中に外国風チックな木造の建物があり、木々に囲まれながらステーキを食べるというメチャクチャ贅沢なセッティングがたまらないんです(><)。おいらは2回目ながら、カナディアンファームのとりこになってしまいました。もうリピーターと言わせていただくしかないですf(^^;;;

カナディアンファーム:

http://canadianfarm.hp.infoseek.co.jp/

昼食で金と時間を使いすぎてしまったので、あとは軽井沢へ向けてドライブ×ドライブです。R152号を北上後、R141号へ出て軽井沢へと近づきます。

2時間後、なんとか中軽井沢駅周辺に辿り着いたのはいいんですけどねぇ〜、渋滞がですねぇ〜、発生しているんですねぇ〜

中軽井沢駅周辺。アウトレットとか、巨大ショッピングセンターがあるのもここらです。多分、都心から「夏は軽井沢で…」とはしゃぐ連中（まぁ、おいらの家族もそうなんですけど）が列を連ねているんだろうと思います。

山本家が予約しているパークコテージの看板を探しますが、なかなか見つかりません。ついに発見できぬまま、軽井沢を過ぎて群馬県へと突入してしまいました。また渋滞へ戻るのもイヤなんで、R18バイパスを駆使してパークコテージ周辺道路へ戻ります。←ナビに頼らない、我ながらいい判断です（方向感覚×自信過剰）。この後結局、周辺道路を歩いていた見ず知らずのオッサンに場所を聞いたのでしたf(^^;;;

パークコテージへの道順を押さえるという最大の目的が達成できたところで帰り道へと進みます。後はひたすら静岡へ向かって走るだけ。後部座席のお2人は熟睡モード全開だったので、おいらは寂しく、1人ドライブを楽しみながらっつー感じでした。

今年初めてのバーベキューをやってしまいました(*^o^*)。集まったのはバイト仲間、総勢16人！ウチの裏庭の草を刈りまくって、バーベキュースペースを確保するところから始まったこの企画。昼間から若い男連中の協力を集います。

これはメチャクチャ暑〜い中、汗水たらしながら草刈をした後の様子です。大の字になっとるのはお決まりのジョニー先輩。このお方はこの直後全裸になったかと思えば、風呂へ入っていったのでした…。

庭がキレイになったところで、昼酒をやってからバーベキューの下準備を始めます。今回のバーベキューは七輪を使うとのことで、準備はとっても簡単。七輪をセッティング後、スミに火をおこすだけです。あとは定期的にスミを追加していくだけ。これで一日中バーベキューができてしまうというワケです。昼間組（草刈＆準備組）は5人だけだったので、さっそく昼酒バーベキューを始めますf(^^;;;

これは、もう日が落ちてからの様子。室内の明りを全開にして庭を照らしています。ウチに来てくれたお客全員にはバーベキュー＆室内飲み会を楽しんでもらったのですが、クライマックスはなんといってもは花火でしょう。

最初は手持ち花火から始まったのですが、行為はどんどんエスカレート。噴射花火から打ち上げ花火へと…、花火男や花火の上にジャンプしちゃうのまで、とにかく盛り上がりました。最後は線香花火、誰が一番持続できるか大会などなど、「夏」そのものを見れたので、おいら的にはもう大満足です☆

まだまだ夏は長いです。こういうの、もう一発くらいやりたいっすわ

型チェックの甘さが問題になっていることについて、考えをまとめてみます。

元々、Basic言語というヤツはタイプチェックしてないっぽいですよね(–;;;。あったとしても、数値型と文字列型の判別くらいでしょうか…。

10 a=”1″

20 b=2

30 c=a+b

40 Print c ‘3と表示される

元祖Basicでは、上記のようなプログラムが平気で実行できてしまいます。インタプリタBasicでは変数管理がどのようになされていたのか、わからない部分ではありますが、ネイティブコンパイラのそれと比べて柔軟な自動タイプキャストがなされていたことは事実なようです。

で、そういう風潮を受けつつ開発を進めたABなんで、型チェックの甘さがあって当然なんですね〜。元々の言語仕様に「タイプキャスト」という概念が無いんですから。

さてさて、コミュニティフォーラムのほうで話題になったのは、「Long型変数へBytePtr型データを代入するとエラーになるが、パラメータ引き渡し時にはエラーにならない」という問題です。

実はこいつ、結構厄介な問題なんです。一見すると、Long型にポインタ型を強制的に代入しようとしているんだから、ネイティブコンパイラとしてのABではエラーになって当然なのですが、Win32APIとの連携・柔軟性を考えると100%そうともいえないのです。SetWindowLong関数を例にあげて説明してみましょうか…

Declare Function SetWindowLong Lib “user32” Alias “SetWindowLongA” _

(hWnd As HWND, _

nIndex As Long, _

NewLong As Long) As Long

Win32APIの一つであるSetWindowLong関数、第3パラメータ、NewLongというパラメータに注目してみてください。こいつはLong型であることがわかるのですが、ヘルプでは「32 ビット整数値」と記されているんです。32ビット整数値…Win32上で作動するWindows環境では、これに当てはまる値は沢山あるはずです。Long型、DWord型はもちろんのこと、ハンドル、ポインタ、RGB値と、色々挙げることができます。

• GWL_EXSTYLE 拡張ウィンドウスタイルを変更します。
• GWL_STYLE ウィンドウスタイルを変更します。
• GWL_WNDPROC ウィンドウプロシージャのアドレス、またはウィンドウプロシージャのアドレスを示すハンドルを変更します。
• GWL_HINSTANCE アプリケーションのインスタンスハンドルを変更します。
• GWL_ID ウィンドウの ID を変更します。
• GWL_USERDATA ウィンドウに関連付けられたアプリケーション定義の 32 ビット値を変更します。

こういう具合にNewLongには、ウィンドウスタイル（Long型）、ハンドル（DWord型）、プロシージャアドレス（ポインタ型）を指定することになるのですが、肝心のAB Ver4.0にはタイプキャストをユーザーが任意で行える環境が備わっていないんです。となると、ある程度のタイプキャストは自動的に行ってユーザーの負担を減らすというのが自然な流れになり、Win32API呼び出し（関数呼び出し）に限り、タイプキャスト（特にLong型へポインタを…）が甘くなってくるんです。

しかしABには、C/C++、Delphiなどの高級コンパイラ言語に対抗するだけの仕様を持たせたいって願いもあるんですよね。長いことABユーザーをやられている方、またはABウォッチャーの方は私がそういう姿勢でコンパイラ製作に取り組んでいることは薄々感ずいていることと思います。

仕様がなければ、追加すればいい。これにつきます。

しかし、過去のプログラム資産（Ver3.x、Ver4.04.00までに製作されたソースコード）を無効にしてしまうような仕様変更はできないので、注意して取り組まなければなりません。

原案として、#strictディレクティブを再出現させようか検討中です。これを導入したら、CDbl、CSng、CIntなどのタイプキャスト関数をコンパイラに組み込んで演算過程で評価していかなくちゃなりません。

実は、#strictってVer2.xのときにあったんです。覚えてる方、いますでしょうか？？当時は暗黙の宣言を禁止する目的で指定するディレクティブだったのですが、Ver3.0から消え去ったので、型チェックを厳密に行うための識別子として利用しようってことです。←またまたC/C++みたいって言われちゃいそうですけど(^^;;;

今日は、実家静岡で色々とすることがあるんで、そいつをこなして、午後は大掃除タイムに入ります。というのも、明日はバイト仲間で七輪バーベキューをやる日。当然、おいらのウチが会場となるワケです。人数が意外と多いため、おいらの部屋と庭と、掃除をしなくちゃあなりません。

山ちゃんちでパソコンやらせてよ、という（？）な要望も出ているんで、今日はディスプレイ裏の埃取りなど、普段は手をつけないようなところもやってやろうと思います。掃除は苦手なんすよ…しぁーねぇー（￣Д￣）

今朝、DiscoversoftのWebサイトに接続してみると、「サーバーがみつかりません」エラーが(*д*)

アクセスログを見てみると、どうやら午前3時〜午前9時までの5〜6時間、サーバーが停止していたようです。深夜、早朝というアクセスが低い時間帯ではありますが、長時間に渡っての停止状態はちと痛いです(><)。

こういう場合は、XREAのサーバー障害掲示板にでも書き込んでやったほうがよさそうですね。暑い日でダウンするのは、サーバーも同じだったり…

昨日、今日とウチの店は棚卸です。そう、今現在、店舗が抱えている商品をすべて、ストック類もあわせて、数を確認し、商材を確認するという気の遠くなる作業を行う日なのです。この日だけは出勤可能なスタッフはすべて集められることになるのですが、おいらはナゼか不参加部隊(-д-;;;;;

不参加の理由を店長に聞いたら、「山ちゃんは販売部隊専門だから、作業を軽減しておいたよ〜」と甘〜いお言葉が(-v-)。

しかしこの棚卸、気の遠くなる作業ではあるのですが、皆とワイワイいいながら（遊んでるわけじゃないっすけど…）進める作業でもあるんですよね〜。当番になれば「めんどくせぇー」と。でも、いざ外されてみると「俺だけ仲間ハズレかよ〜」という具合にになります。（←ワガママ部分、突出です）。なので昨日は棚卸部隊が夜出勤する前に帰ってやりましたよ、おいらは。

ちょっと気が早いのですが、明後日はバイト仲間で七輪バーベキューを企画しております。場所はウチの庭なんで、ドキドキですわ〜、掃除だ掃除（焦）。多人数お泊り会でもあるアヤしそ〜なこの企画…どんな夜になるんだぁ〜、今から楽しみですわ！

昨日は7月最終日ということで（あまり意味はないんですけど…）久々に本気モードショッピングを決行しました。静岡呉服町付近には地元ながらセンスのいいセレクトショップが数店存在します。

本日購入した夏アイテムは以下の三つ。買いすぎました（汗

High Street – ラメ入り白ストライプシャツ:

脇にそって細身ラインが強調されるシャツを探していたんですが、なかなか見つからず、静岡マルイの中にある、High Streetというブランドショップでこのブツにめぐり合いました。お値段はなんと、シャツのクセに13000円とお高くついてます。まぁ、形がめちゃくちゃ気に入ったんで、ラッキーでした。

キレイめトップスにあわせるといったら、ダメージジーンズですね。ズタズタになっているやつはあまり好きではないんで、ポイントごとにちょっとした破れがあるタイプをチョイスしました。こちら、色落ち具合も抜群だったんで、ここぞという夏日に大活躍しそうです。

形は、リーバイス501に近い感じですかね。太さは気持ち細め、太ももにちと余裕ありって感じです。股上が浅いのを探していたんですが、こちらは残念ながら深いです(~~;;;。高校生のガキじゃないですけど、ちょっと落とし気味で穿くしかないですな。

ラストに、最近買い渋っていたクツを奮発。おいらは大のティンバーランド好きなんで、今年の新作を選びました。途中、RED WINGの渋〜い茶系ブーツと格闘してしまったんですが、インナーを折り返せるオシャレさと、何気にリバーシブルになるハイカット部分を持つ、ティンバ―2005モデルが勝ちました。今日はバイトなんで、早速履いてきます。おいらにとって、ベージュブーツは初めて！いい味でるといいなぁ〜(><)