http://www.lancard.com/diary/ ja 2008-11-17T00:31:05+09:00 http://www.lancard.com/archives/000520.html OpenCOBOLの最近の動向(´ー`) 日本国内では動きがほとんど無いのですが、ぽつぽつとキーワードの露出は増えていますね。OpenCOBOLと他言語のリンクなどの記事も見られるようになってきましたし。 海外では、Luaやlibdbi、Tcl/Tkなどの言語とのリンクも進んでいます。またOpenCOBOL自身もGLOBALキーワード周辺の実装などの動きがあったようです。その他CALL/CANCEL周辺の動作について安定性が増すようです（＞1.1） その周辺に関しまして週1くらいのペースで現在のメンテナ他数名でIRCで検討が進んでいます。 弊社内ではOpenCOBOLとPHPの連携は以前から試していましたが、perlとの連携も出来るようになり様々な応用を検討しています。OPEN、CLOSE、READ、STARTの代わりにperlで作成したsubを呼び出す仕様で色々と面白いことを考えています。 Eclipse用のpluginなども実装検討中です～ヽ(´ー｀)ノ... OpenCOBOL minemaz 2008-11-17T00:31:05+09:00 http://www.lancard.com/archives/000519.html OpenCOBOLとperl(´ー｀)素敵な出会い CALL "cob_perl_require" USING "barcode.pl". CALL "cob_perl_call" USING "barcode" "sample-barcode.png" "1234567890". #!/usr/bin/perl use GD; use Barcode::Code128; sub barcode { my ($filename, $value) = @_; my $barcode= new Barcode::Code128; $barcode->text(FNC1, $value); open(PNG, ">$filename") or die "Can't write $filename: $!\n"; binmode(PNG); print... OpenCOBOL minemaz 2008-10-07T19:00:51+09:00 http://www.lancard.com/archives/000518.html 本年度の仕事はもうほとんどOpenCOBOLがらみ(´ー｀)本当です で、OpenCOBOLからのDB接続でOracle、MySQL、PostgreSQL、DB2、その他だいたい可能になりました(´ー｀)あと半角全角変換サブルーチンとかも持ってますしCOMP-3（OpenCOBOLではPACKED DECIMAL)やCOMP-5（Binary）と外部プログラムでの相互変換、汎用機ラインプリンタのエミュレータ、他言語（PHP,Perl,Python）との連携、COBOLソース上の定義体の他言語でのパーサ、XMLの処理、ネットワーク通信（シリアル、TCP/IP）、GUI（Tk）だいたいOKです。 ただいままとめて準備中。現在OpenCOBOLの開発やってるRoger Whileにも連絡を取りながら進めておりますヽ(´ー｀)ノ... OpenCOBOL minemaz 2008-10-04T12:38:01+09:00 http://www.lancard.com/archives/000517.html ということで幕張メッセで開催中のCAETEC2008の(´ー｀)長崎県ブース周辺にいます 6E12だったかな(´ー｀)直接話してみたいという方は是非ご来場を。 10/1～10/3までですが。... Diary minemaz 2008-10-01T15:14:26+09:00 http://www.lancard.com/archives/000516.html VineLinuxのscreenコマンド。どうして256色でないんだろうって(;´Д`)調べてみました src.rpm取ってきてspecファイルを眺めてみたところ、--enable-colors256 となるべきところが--enable-color256　になってるポイ。作り直して完了。ちゃんと256色出るようになりましたヽ(´ー｀)ノ その他いくつかのパッチも充てて使ってますけど。いろいろかなり改善した感じですヽ(´ー｀)ノ... Linux minemaz 2008-09-30T15:56:01+09:00 http://www.lancard.com/archives/000515.html ちょっと試してみたくて(;´Д`) []$ COB_CC=llvm-gcc COB_CFLAGS="-emit-llvm -c" cobc -c -O2 AIVPA010 []$ いや(;´Д`)何でもないです。 p.s.　一応モノは出来ました。... OpenCOBOL minemaz 2008-09-30T15:47:47+09:00 http://www.lancard.com/archives/000514.html OpenCOBOLについてのドキュメントってすごく少ないので(´ー｀)ドキュメントプロジェクト方面のお手伝いをしてみたいところ で、英語は得意ではないので資料が無い部分についてソースリストから資料を作り起こすお手伝いを検討してます。例えば、OpenCOBOLの処理系が参照している環境変数の情報とかまとまってませんよね？ドキュメント無いからコンパイラのソース読んで使われ方を類推する…という訳です。そして資料をまとめて泣きながら英訳して開発者に送って確認してもらうという。(´ー｀)どう？ ]# grep -R getenv /usr/src/redhat/BUILD/open-cobol-1.1|awk 'BEGIN{FS="getenv"}{print $2}'|cut -f2 -d\"|grep -e ^[A-Z]|sort|uniq COBCPY COB_EBCDIC COB_FILE_PATH COB_LDADD COB_LIBRARY_PATH COB_LINE_TRACE COB_LOAD_CASE COB_LS_FIXED COB_LS_NULLS COB_PRE_LOAD COB_SORT_MEMORY COB_SYNC DB_HOME MYOCLIBS PATH POSIXLY_CORRECT TMP TMPDIR 結構あるんですよ。でも情報が全然無いんですよね(´ー｀)だからヤル... OpenCOBOL minemaz 2008-09-28T22:30:54+09:00 http://www.lancard.com/archives/000513.html OpenCOBOLと日本語文字コードについて(´ー｀)あまり資料がないようなので調べてみたり そもそも1000speakers:6にて「日本語対応はどうなってますか？」と質問が来たのに「見たこと無いから分からないですね」とか解答してしまってたので、少しはマジメに調べてみないと…というわけです。一般的に日本語と処理系の間で「\」の扱いが問題になることが多いわけですが… 000010 IDENTIFICATION DIVISION. 000020 PROGRAM-ID. 日常会話表現. 000030 DATA DIVISION. 000040 WORKING-STORAGE SECTION. 000050 01 日常会話表現. 000060 03 FILLER PIC N(08) VALUES 'こんにちは 日本'. 000070 PROCEDURE DIVISION. 000080 DISPLAY 日常会話表現. 000090 STOP RUN. とかソースがShiftJISで書かれていたとして。「表」部分は0x955Cで2byte目に0x5C「\」を含んでいます。コンパイルを試してみると： []＄ cobc -x HELLOJ.cob HELLOJ.cob:2:... OpenCOBOL minemaz 2008-09-28T14:45:37+09:00 http://www.lancard.com/archives/000512.html MSI MS-1013ノートPCが電源を認識しなくなったので(;´Д`)いろいろ MS-1013の使用中に電源ランプが消灯していたので(;´Д`)コネクタの接触不良など疑っていろいろ（殴る、蹴る）してたんですがあまり改善しなかったので… 当然ですがヽ(´ー｀)ノばらして原因究明。見たところ電源コネクタ近くの部品がモゲてしまってるようでした。 基板を取り外してハンダ付け。 モノがでかいので結構楽でした。せっかくなので色々撮影： ずっとRS480だと思ってたんですが、RS482Mみたいですね。実はmini PCIのWLAN+BTの奴つかえるかも？ そういえばdipswもありますねヽ(´ー｀)ノ p.s. 組み立て直したら、なぜかネジが四本も余りました(;´Д`)コストダウン成功？... Diary minemaz 2008-09-24T00:35:35+09:00 http://www.lancard.com/archives/000511.html 1000speakers@Kyushu #1　参加者の皆さんお疲れ様でしたヽ(´ー｀)ノ 当日は寝てなかったので、プレゼン資料にもしっかり　ε＝ヽ(´ー｀)ノ[モカ]　って入れてます。 nishioさん、cojiさん、eilさん、杉山さん、takkenさん ほか遠方からもおいでいただき、大変賑やかでなおかつ技術的でまた九州でできたらな～って思ってます。 弊社からは発表者で2名、聞く人で1名参加でした。 以下発表資料のページ： 1000speakers@Kyushu #1　発表資料 OpenCOBOLやっぱり使ってる人少なかったですね。しかし既存のCOBOL資産を有効活用するにはよい選択肢だと思ってます。処理系自体のソースがありますので、機能拡張への敷居は比較的低いです。やるかどうかは別として(;´Д`) 実装を読んでいくうちに得られた情報の応用例として、PHPからOpenCOBOLの動的ライブラリを呼び出す仕組みをPHPのExtensionとして実装し、変数の投げ受け（つまり、PHPの立ち位置がJCLっぽくなる）するというアレなアイデアを紹介させていただきましたが、もちろん応用「例」というだけではなくて実際に動作してますし手元にコードがあります。その他、汎用機のプリンタをエミュレーションする（印刷する代わりにPDFにて吐き出します）とか、移植の手助けとなる変換スクリプトとかオープンソースならではの手法で開発した資産を作り溜めてます。いずれ表に出てくると思いますが。... Diary minemaz 2008-08-12T12:21:59+09:00 http://www.lancard.com/archives/000510.html 映画「崖の上のポニョ」公式サイトって(´ー｀)ブラウザのサイズに追従するんですが… 30インチモニタで見てみたり(´ー｀) 605kB (;´Д`)でKEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEEぬ... Diary minemaz 2008-08-01T19:56:40+09:00 http://www.lancard.com/archives/000509.html OpenCOBOL 1.1にはSTART FILENAME LAST RECORDが…(;´Д`)ないみたいですね未実装 どうする？ １．諦める ２．コンパイル対象のCOBOLソースを弄って何とか対応する ３．実装されるまで待つ 急いでるときには答えはこの中にはないわけです(´ー｀)。 「４．実装する」 それが答えでも良いですよね。しかも自分でやる。 登坂ルートを考えてみました。OpenCOBOLのコンパイラ（cobc）そのものに手を入れるという凶悪な方法もあるんですが、ちょっと大がかりすぎるし将来的に本家でやるでしょうからとりあえずCALL文で対応します。そこでCALL文で ファイル名（FILENAME)渡せるのかというと渡せるようです。少なくとも内部的には　h_FILENAME としてポインタ渡ししてくれます。 そして、libcob/fileio.c には case COB_READ_LAST: fh->readdir = ISPREV; if (isread (fh->isfd, (void *)f->record->data, ISLAST | lmode) == -1) { ret = isretsts (COB_STATUS_10_END_OF_FILE); } break; こういうコードもあります（しかし、このcase文を通るようなselect()の値は設定されませんが）。... OpenCOBOL minemaz 2008-08-01T17:19:03+09:00 http://www.lancard.com/archives/000508.html OpenCOBOLでdebugヽ(´ー｀)ノOpenCOBOL 1.1は便利ですよ OpenCOBOL用に書いた、または他のCOBOL実装から持ってきたコードのdebugをする際に知っておくと大変便利な話いろいろ。 OpenCOBOL forum: debug with gdbでも取り上げられていますが、 OpenCOBOL 1.1にて --ftraceallや --ftrace オプション(または -g ）をつけてcobcコマンドを実行すると吐かれた実行ファイル（または *.so 動的ライブラリファイル）に　cob_set_location関数が埋め込まれます。これは処理の各行に埋め込まれ「これから実行する処理は元のCOBOLソースのどの位置か？」について情報を内部変数に保存します。 さらに、内部変数 cob_line_trace が1のとき（cob_ready_trace()が呼ばれているとき/ --ftraceall、--ftrace 時）は現在実行中の処理行についての情報を標準エラー出力へ出力します。自動的にprintfデバッグできるわけですね（-gの場合は、cb_flag_source_location = 1 だけ行われるため、cob_set_location関数はプログラム中に埋め込まれますが、トレース表示はされません）。 void cob_set_location (const char *progid, const char *sfile, const unsigned int sline, const char *csect,... OpenCOBOL minemaz 2008-08-01T12:47:27+09:00 http://www.lancard.com/archives/000507.html 申込受付もうすぐ始まりますよ！ヽ(´ー｀)ノこれは行かないと 初の1000speakersプロジェクトの地方開催です！ 第6回カンファレンス(1000speakers@Kyushu #1) * 日程：8/9（土曜日） 13:00 ～ 17:00 * 参加費：無料 * 会場：佐世保情報産業プラザ o http://sasebo-jsp.jp/access.html + ハウステンボスのすぐ近く！ なのです。場所が佐世保ということで、福岡からは長崎よりも近いかもしれませんね。 * 終了後の懇親会は確実に開催予定ですが、まだ詳細を決めていません。 ということなんですが(´ー｀)夜は夜のオタノシミです～... Diary minemaz 2008-07-25T17:07:31+09:00 http://www.lancard.com/archives/000506.html OpenCOBOLがアツイ(´ー｀)というか日々OpenCOBOLしてます OpenCOBOLで日本語を扱いたいという需要もあるんじゃないかと思います。というか結構あります。しかし文字コードは？という問題が(;´Д`) うちでは、とりあえずShiftJIS使ってます。古くからのCOBOLのコードには結構半角カナが埋まってましてカナ1文字=1byteとして扱ってるコード多いわけです。EUCだと3byteとかになったりしますからPIC句以降を総書き換えになって泣きそうな目にあいます。そして都合がいいことにOpenCOBOL中ではバックスラッシュ（0x5C）は特に特殊な文字としては取り扱われていないため、ShiftJIS全角で漢字を埋めていっても漢字1文字=2byteとしてスムーズに取扱できます。 ただ、他の言語とのやり取りでは結構ややこしくなりますよね(´ー｀)ということでiconv周辺使ったりいろいろと画策中です。進捗についてはメールなどでお問い合わせください。 mine (AT) lancard.com OpenCOBOLについて結構おもしろいコードを書き溜めてますよ。特にLinux環境用ですがDB連携とかイロイロ。... OpenCOBOL minemaz 2008-07-23T18:40:53+09:00