暇つぶしにBTRONプログラミングでもするかー
驚いて失禁するなよ。
泣いてもママは助けてくれないぞ。
void MAIN(M_EXECREQ, *msg);
{
pdsp("どうよ");
ext_pcr(0);
}
--------------------
// これはフリーだ、勝手にすれｺﾞﾗｧ
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
>>2 の6行目を差し替え。
#include <tororon.h>
void MAIN(M_EXECREQ, *msg);
{
pdsp_msg("どうよ");
ext_pcr(0);
}
ま た ク ソ ス レ か ！
人にコード見せる前に
コンパイラに通しておけ。
どこにこのコードを人に見せる必要があるのか小一時間(以下略
まじめな人達だ。
>>9
君の手元ではコンパイラに通せないと？ならば通るコードは
どんなものよ。
下手糞なプログラムは上手い人が
狙ってできるものではないのだよ。
その時その時を精一杯頑張って絞
り出された結晶のようなものです。
費用対効果で他の媒体にこれより優れたものは無いでしょう。
長い目で見ても素晴らしいネットワークビジネスの紹介!!
私たちの参加しているネットワークビジネスは 在庫をもつ必要がなく、
製造メーカーの製品を直接広めるものです。
私たちのグループは、製造会社の製品をＨＰとメールという媒体も活用して、
低価格、高品質なよき製品を広めようという集まりです。
流通コストを消費者に還元して製品を広めるというこのシステムは、
何人かの識者が本などで発言しているのを読んでみると、
人間的かつ将来有効なシステムを創っていける可能性の大きいものだと感じます。
実際、有名な大会社AT&T、GM、マスターカードなども採用しだしています。
興味のある人には、ぜひ参加して一緒にやってみましょう。
以下のホームページでの説明も御覧ください。
http://ailove22.fc2web.com/lpd/index.html
超漢字開発サイト
http://www.personal-media.co.jp/tron/developer/
超漢字(BTRON)開発環境
http://www.personal-media.co.jp/tron/developer/develop.html
開発環境（Win32向け）
http://www.monami-software.com/Products/BrvDevWin/index.html
サンプルソース
http://www.personal-media.co.jp/tron/developer/info.html
アプリケーションID申請用メール雛形
http://www.personal-media.co.jp/tron/developer/apidform.txt
仕様書
http://www.personal-media.co.jp/tron/developer/document.html
M_EXECREQ, *msg ×
M_EXECREQ *msg ○
ext_pcr(0); ×
ext_prc(0); ○
おっ、的確な指摘だ。サンクス。
しかし実名ならば社会的に抹殺されるような間違いだな、こりゃ。
というわけで修正。
#include <tororon.h>
void MAIN(M_EXECREQ *msg);
{
pdsp_msg("どうよ");
ext_prc(0);
}
--------------------
// これはフリーだ、勝手にすれ
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
さすがにオレもそこまで厚顔無知にはなりきれないな。
コンパイルは通るかも知れんな。
ところで期待通りに動いたか？
貴様脳内プログラミングするには
100年早いと思われ。
まじかよ、動かないのかよ！
BTRONプログラミングは難しいね。純朴少年だったならば泣いて
鼻水をたらしながら逃げ出して、トロン嫌いになっていたところ
だろう。
というわけで修正。
#include <tororon.h>
void MAIN(M_EXECREQ *msg);
{
TC *message = (TC[]){L"どうよ"};
pdsp_msg(message);
ext_prc(0);
}
資料がなくて脳内プログラミングできないんだよ。
(TC [])←なんじゃこりゃ
TC *message = (TC[]){L"どうよ"}; ×
TC message[] = {L"どうよ"}; ○
データボックスも糞だし。やれやれだぜ。
あ、それで通るんだ、なるほど。
>(TC [])←なんじゃこりゃ
これはオレが創作したのではなく、サンプルに書いてあったのを
真似たのである。
というわけで修正。
#include <tororon.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"どうよ"};
pdsp_msg(message);
ext_prc(0);
}
このスレ見られたらBTRONユーザーがまた馬鹿にされちゃうよ。
sageかたは知ってるよな?
>>27
多分それならだいじょうぶだろうな。
ところで、
> これはオレが創作したのではなく、サンプルに書いてあったのを
> 真似たのである。
そのサンプルどこにあるのよ? 探してみたけど見つからなかったぞ。
あと>>1は大至急コンパイラを手に入れること。でなきゃあそんでやんないよ。
恥ずかしがらずに敢えてageるところに光明が見えてく
るのである。
>そのサンプルどこにあるのよ? 探してみたけど見つか
>らなかったぞ。
開発者サイトから入手した dojosrc.tar.gz に含まれる
src/prac01b.C 。
秋葉逝って入門書買って(･∀･)ｺｲ!
他OSのスレ?でまともなのはほとんど在りませんが何か？
> TC *message = (TC[]){L"どうよ"};
prac01b.Cみてみたら、同じように書いてあったのでおかしいなあと思って調べてみたら、
これはC99で認められている新しい書き方で俺が知らなかっただけらしい。
C++のコンパイラがはねてたので間違いだと思い込んでしまったよ。
うぅぅ、恥だ… >>1よ、正直スマンかった…
C99に限らずgccの拡張で以前からあったような気がするが
確証はない。(だから黙ってた)
gcc以外でコンパイルされることがあるとは思えないが、
しかし敢えて移植性の低そうな表現を選んだprac01b.Cの
作者の意図はよく分からん。
>>33
ふーん、なるほど。おれはC99のお勉強は数年後にしよう。
>>34
なるほど。
ということで以下のをおれ推奨印にしておくか。
#include <tororon.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"どうよ"};
pdsp_msg(message);
ext_prc(0);
}
#include <tororon.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"こんばんは牽牛さん"};
pdsp_msg(message);
ext_prc(0);
}
--------------------
// これはフリーだ、勝手にすれ
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
嫌だ！
挫折するかも。
TC型の罠に嵌ったことがありますか?
http://www.personal-media.co.jp/tron/developer/doc/brightv.r4/library/standard/bstdio.html#aal
%Sの話はMonaWikiにもでてたからね。
ところで>>1はどこへいったんだ? でてきてくれんとこのスレ50までいかんうちに
沈んでしまうぞ。まあ千里の道も一歩からということもあるし、気長にいこうや。
質問があればここにかくんだぞ。
あれば、１にとらわれずにどうぞ。
// Jane
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"Jane"};
TC message2[] = {L"（ ゜Д゜）"};
pdsp_msg(message);
slp_tsk(1000);
pdsp_msg(message2);
sig_buz(0x10001004);
ext_prc(0);
}
http://headlines.yahoo.co.jp/hl?a=20020911-00000505-yom-soci
織田無道ﾀｲｰﾎ！！！
http://news3.2ch.sc/test/read.cgi/news/1031700010/
帝京大学の過去の犯罪特集・１
http://choco.2ch.sc/news/kako/1015/10154/1015445145.html
帝京大学の話はここでしろや
http://tmp.2ch.sc/test/read.cgi/joke/1027010892/
帝京大生とイカどっちが役にたつの？？
http://school.2ch.sc/test/read.cgi/campus/1030814548/
＠速報＠【帝京は糞！】が改めて定説になりました
http://tmp.2ch.sc/test/read.cgi/joke/1024909882/
【その2】疑惑の総合大学 帝京大学・八王子キャンパス【その2】
http://kanto.machibbs.com/bbs/read.pl?BBS=tama&KEY=1031242402
そうなの？知らんかった。
なので修正。
// ＧＰＬにしとくか
// Jane
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"Ｊａｎｅ"};
TC message2[] = {L"（ ゜Д゜）"};
pdsp_msg(message);
slp_tsk(1000);
pdsp_msg(message2);
sig_buz(0x10001004);
ext_prc(0);
}
// ＧＰＬにしとくか
// Jane 1.1
#include <basic.h>
#include <bstdlib.h>
#include <tcode.h>
#include <errcode.h>
#include <btron/btron.h>
#include <btron/dp.h>
#include <btron/hmi.h>
#include <btron/vobj.h>
#include <btron/tip.h>
void MAIN(M_EXECREQ *msg);
{
TC message[] = {L"Ｊａｎｅ"};
TC message2[] = {L"（ ゜Д゜）"};
pdsp_msg(message);
gset_ptr(PS_BUSY, NULL, -1, -1);
slp_tsk(2000);
gset_ptr(PS_SELECT, NULL, -1, -1);
pdsp_msg(message2);
sig_buz(0x10001004);
ext_prc(0);
}
超漢字開発サイト
http://www.personal-media.co.jp/tron/developer/
超漢字(BTRON)開発環境
http://www.personal-media.co.jp/tron/developer/develop.html
開発環境（Win32向け）
http://www.monami-software.com/Products/BrvDevWin/index.html
開発環境 (MacOS X向け)
http://www.gimlay.org/~soara/btron/bvgsdk.html
サンプルソース
http://www.personal-media.co.jp/tron/developer/info.html
アプリケーションID申請用メール雛形
http://www.personal-media.co.jp/tron/developer/apidform.txt
仕様書
http://www.personal-media.co.jp/tron/developer/document.html
>13行行末の「;」を削除したら
いつからそんなのが混入したのだろうと見直してみたら、
最初からではないの。
オレもまだまだ尻が青いなー。
何言語ベースでしか?
もちろん使ってみたいでし。APLとかでなければ……。
マイクロスクリプトをビジュアル開発環境と呼ぶのは気が引けるら。
一応、Windows上でDelphi使っていこうか、ってことくらいしか考えていない。
最初はC用の開発環境にするけど、将来はObjective-CかEiffelにしてみたい。
ちなみに、DelphiもObjective-CもEiffelも使ってなんか作ったことは一度もないし、超漢字用のCygwin版開発環境も入れたことない。
な、みごとにネタだろ。
じゃあ、こっちもネタと言うことで…
ANS-Forthのっけてみたいなとか思っているけど仕様の翻訳が全然すすんでいましぇん。
あと訳が終わってもシステムコールのアセンブラインターフェイスとかオブジェクトファ
イルの形式が全然分からないのでお先真っ暗でし。ちなみにそっち方面の経験全くありま
しぇん。
ネタというよりもはや妄想でし。
print "雑談も"
print "プログラミング言語ですれば"
print "ソフトの一丁できあがり"
print "\n"
でGoogleで検索したら、このスレが３番目だった。
http://sapporo.cool.ne.jp/bbs/btron?num=372&ope=v&page=&id=
にある方法でログを出そうと思ったのですが、コンソールに出ません。
なぜかシステムコンソールに出るのだけれど。。。
なんでここ、
if (cons_conf(CS_SRCHPORT, args)) cons_conf(CS_SETPORT, args);
とか(こうするとコンソールに出る感じ。でも黙り込むことがある)
なってないのかもわからんのですが、実験すると止まることがある
ようで、いまいちわかりません。
GSDPの過去ログもないし。
大量に出力すると動きがおかしくなる(つーか、無視されるようになる)
のも挙動不審な感じ。。。
ここで訊くのが間違いだったらスマソ。
久しぶりのまともな話題で感涙でつ。
で、システムコンソールって外部コンソールのこと?
http://www.personal-media.co.jp/tron/developer/doc/brightv.r4/dev_tool/debug.html#aab
うちではちゃんとコンソール小物に表示できてたけど...
誰か質問に答えてあげられる人はおらんかのう。
「システムコンソールでないコンソール」とは何のこと？
「セルフ開発環境に付いてるSYSCONSOLE」とはコンソール小物を起動
するとできるコンソールとは別物？
「超漢字にもともと付属しているCONSOLE」(コンソール)とを
区別したかったのです。
前者「システムコンソール」はあれです、syslog()で表示できるやつ。
後者は小物箱の中に「コンソール」という名前であるはずです。。。
こっちはsyslog()で表示できなかったと思います。で、コンソールから
コマンド打って実行すればprintf()で表示できるんだったかな?(ちょっと
いま確認できません。スマソ)
マイクロスクリプトから起動したコードから、ログだとかをコンソール
(標準添付のCONSOLEの方)に吐かせたいのですよ。
TiPSにある「セルフコンソール」とは「コンソール小物」のことと思われ。
http://www.personal-media.co.jp/tron/developer/doc/brightv.r4/device/console.html#aei
辺りをつらつら読むと
> 指定したコンソールに設定されている出力タイムアウト以内にデータを出力できなかったときは、 その時点でリターンする。
なんてことになっていたりするし、一気に流し込むとバッファがあふれるなんてことも
あったような気がする。この辺すでに忘却スマソ。
システムコンソールじゃなかったのね。
ずびばぜんでじだ ＆ ありがとうございます
で、コンソールの性能が悪くて??、出力できる保証はないらしい、と。困ったなこりゃ。
システムコンソールって起動するとポート番号1のCONF_SELFな
ポート(デバッグ起動するとCONF_SERIALになるのかな?)をCONF_BUFIOに設定変更してるようですね。
それで何も考えずに1番ポートからCONF_BUFIOを探していくと
システムコンソールに出力してしまうのか。
3番ポート以降でCS_SRCHPORTすれば確実にコンソールの方に
出力できるかな?
とりあえず出力先を確定するのはこれでやっつけるとしよう。
で、コンソールの性能が悪い?? 件はうまい回避方法があるでしょうか?
console_put()でタイムアウト検知するか、console_ctl()でタイムアウト
設定を変えておいてconsole_out()すれば、とりあえず黙り込むのは
避けられるかな。で、何度か再試行してから諦める、と。
たぶん豊福さんとかがGSDPで話題にしてるんじゃないかと思うんですが。GSDPって過去ログ出してないからなあ。
手元のログ見たよ。
確かに豊福さんが話題にしていますた。
それとやりとりするというものだった。今回の話はログをコンソールに流すだけなんだよね。
セルフ開発環境も入れてるけどSYSCONSOLE知らなかった。どうやって動かすの？
>>75 あれ? 小物登録しませんでしたか? 小物メニューに出てますけど。。。
それにしてもコンソール面倒だなあ。。。
でもダブルクリック起動すると落ちるけどどうやって起動するの？
syslog()って初めて聞いたんだけどどこに説明書いてあるの？
|マイクロスクリプトから起動したコードから
マイクロスクリプトのsystem関数でCプログラムを起動したってこと？
面白いから読んでみ。
日本人は創造性が遺伝的に劣っているんだそうだ。孫によると。
こんなやつに日本のネットを仕切られて、おまえら、いいのか、ほんとに。っていいたくなる。
放置の方向でよろしく。
すまんねぇ。ｦﾁ板のスレdatに落としちゃって。
小物メニューのシステムコンソールをダブルクリックするとプロセサ例外になりますた。俺だけ？
システムコンソールって普通のコンソールとどのくらい違うの？
KDEとか使っててウィンドウのシェード(っていうのかな、タイトルバーを
ダブルクリックするとウインドウがタイトルバーだけになるやつ)が便利
なので超漢字でもやってみたいんですが、フロントエンドプロセスから他の
ウィンドウをいじろうとするとEX_WPRCで蹴られます。
まあウィンドウがよそからごちゃごちゃいじられると気分が悪いので
蹴られるのもわからんでもないんですが、フロントエンドプロセスから
でもだめなものでしょうか? やりかたが悪いんでしょうか?
やったのは、フロントエンドプロセスのイベントループの中で
wget_evt(&ev, NOWAIT);
switch (ev.s.type) {
case EV_BUTDWN:
if (ev.s.cmd == W_TITLE && wchk_dck(ev.s.time) == W_DCLICK) {
W wid = wget_act(NULL);
WDSTAT ws;
WERR err;
wget_sts(wid, &ws, NULL);
ws.r.c.bottom = ws.wr.c.top + (ws.r.c.bottom - ws.wr.c.bottom);
err = wrsz_wnd(wid, &ws.r);
if (err < 0) syslog(LOG_ERR, "wrsz_wnd()=%d.", err >> 16);
continue;
}
break;
/* 中略 */
}
wpas_evt(&ev);
てな感じです。走らせてアクティブウィンドウのタイトルバー上でダブルクリックすると wrsz_wnd()=-289. と出ます。EX_WPRC です。
誰か一人くらい２チャンネラーであることカミングアウトして聞け
なんなら今日のBTRON-Clubで聞け
しかし、これはちょっと難しいのではないかと思われます。
なぜかというと、BTRON3のアプリケーションは、他のプロセスが
自プロセスのウィンドウを変形したりすることを想定して
つくられていないからです。その証拠に、ウィンドウの再表示を
要求するイベントはあっても、ウィンドウの変形を通知するイベントは
BTRON3には存在しません。
でもいろいろ試してみるのはとてもよいことなので、
これにめげずに頑張って下さいね。
意味がよく分からないんですが…
ウィンドウをリサイズしたかのようなイベントを送るのか
100〜のスレッドの続きを読む