ギコBASIC拡張計画

http://zurubon.virtualave.net/source/059.lzh

のギコBASICをみんなの力で拡張していきましょう

#元の独自言語スレが行方不明なので新たにスレ作りました。

test

あげ

じゃ、アップする所作ってよ

http://zurubon.virtualave.net/source.cgi

ここでどうでしょう?

ありがとう。遅れ馳せながら...
# あんなにウケると思ってなかった

じゃそのままDelphiに移植したから。
http://zurubon.virtualave.net/source/060.lzh

元スレ発見。リンクだけ。
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=959762149

サイズでかすぎ

VBには移植しないのかな。

おぉ、これは便利ですね〜

ときに、布教^H^H普及活動はやらないんですか？
もっと上の板に上げるとか。

誰か移植して　3時間くらい時間ある人

英大文字ミスってるよ　これは大文字小文字区別した方がいいか ['A'..'Z','a'..'z','｡'..'ﾟ']
StrToInt->StrToFloat

どうせなら、
procedure Register;
begin
RegisterComponents('Samples', [TGikoBas]);
end;
入れて、コンポーネントにした方が面白い

>9 ごめん　Delphi-1(16bit)版に変更したから少し小さくなったと思う
>14 直したよ ついでに全角対応にした
http://zurubon.virtualave.net/source/060.lzh

ん？　Delphiってバージョンは何でもいいの？ たしかVer5が最新だよね
1〜5迄　同じソースがコンパイル出来るの？

すいません、言葉が悪かったです。

>16 逆は難しいけど 上位コンパチなので　D1のソースはほぼ大丈夫です
　　GUIアプリで、これはなかなか頑張っていると思います。
　　逆が難しいのは　D1の255文字制限とか D3迄動的配列が無いとかの為です

>17　いえ、事実大きかったのですから(^^;

簡単なグラフィックの機能を付けたいのですが・・・コマンド名募集
ススム 3:ミギニマワル:ススム 3:ミギニマワル:ススム 3:ミギニマワル:ススム 3
のタートルグラフィックでいいのかな

モナー板（http://mentai.2ch.net/mona/index2.html）に宣伝してきていい？

みんな 15 さんのようなコード書くの？

できれば行番号使えるようにして欲しかった。

素晴らしい・・ソース見て目が点

字句解析ってコメント入ってるけど、あれ構文解析だよ。
execの中ではなくてstatementの最初でgetsymした方がええと思う。
あとメンバをpublicにするのは格好悪くない？。

すまん、おれも元のソースさっぱり理解できなかったので
コメントはなくとなくです・・・^^;
元のソースを見ていただければ少しは気持ち分かってもらえるかな･･･

#まぁ俺のスキルがないってこともあるんだけどね・・・(;´Д`)

確かに、元のソースがひどい。
でもそれが厨房っぽくていい感じでもあるな。

変数をバリアントにしたよ。それから文字列も使えるよ。
でも、それだけ　だれか要る？

欲しいです。お願いします。

>execの中ではなくてstatementの最初でgetsymした方がええと思う。
　ゴメン。これは間違い。これじゃ拡張できない。

>22 行番号は　行の最初が数字ならと処理すればいいので難しくはないよ。やってみて
　　でも、エディタのスタイルと合わないかも
>23 でも、これくらいの他人のソースなら判り易い方だよ
>24 execの中ではなくてstatementの最初でgetsymした方がええと思う。
　　その通りだと思う。元ソースはstatement内でループしない
　　で呼出し側でループしてたんじゃないかなって感じ
>あとメンバをpublicにするのは格好悪くない？。
　　その通りね。コンポーネント化するなら、TCustomControlTGraphicControl
　　から継承させて、ギコBASICで絵が書けるようにするとかレベルにしないと

http://zurubon.virtualave.net/source/061.lzh

ギコBASIC
GOSUB は要らんと思うけど、せめて外部関数が呼べるような仕様に出来ない？

Do it yourself. ・・・って俺もな(^^;

ややこしそう・・・俺パス。

年齢 = 28
イレテミロ 年齢
名前 = '名無しさん'
イレテミロ 名前
モシモダヨ 名前='名無しさん' ダッタラ ホザケ "氏ね" : シネ
モシモダヨ 年齢 > 35 ダッタラ ホザケ 名前+"よ、人生無駄にしたな" :シネ
モシモダヨ 年齢 < 25 ダッタラ ホザケ 名前+'よ、やり直すなら今だぞ':シネ
ホザケ 名前+"よ、おたがいツライのう
シネ
このプログラム通らないぞ
TGikoBas.expression をこう直したら通った
　 '<' : begin
　　　　　　　　　getsym;
　　　　　　　　　addsub;
　　　　　　　　if(sym='>') then begin
　　　　　　　　　　numVar:= savenum <> numVar;
　　　　　　　　end else begin
　　　　　　　　　　numVar:=savenum < numVar;
　　　　　　　　end
　　　　　　　　　savenum := numVar ;
　　　　 end;

ひえ〜　下手にイジラナイ事だなあ　触れぬ神にたたりなしだ
これで　比較は上手くいく筈
procedure TGikoBas.expression;
var savenum:Variant;
var oldsym:char;
begin
　　　　addsub;
　　　　savenum := numVar;
while sym in ['=', '>' , '<'] do
　 begin
　　　oldsym:=sym;
　　　getsym;
　　case oldsym of
　　'=' :begin addsub; numVar:= savenum =　numVar;end;
　　'>' :begin addsub; numVar:= savenum >　numVar;end;
　　'<' : begin
　　　　　　if(sym='>') then
　　　　　　begin
　　　　　　　 getsym;
　　　　　　　 addsub; numVar:= savenum <> numVar;
　　　　　　end else　begin
　　　　　　　 addsub; numVar:= savenum <　numVar;
　　　　　　end;
　　　　　 end;
　　　　 end;
　　　　savenum := numVar ;
　 end;
end;
ついでに
s:=InputBox('イレテミロ','スウジヲイレロヤ',　を
s:=InputBox('イレテミロ',str,
とすると、変数名がダイアログに表示されて判り易くなる

しかし、このコード追いかけるのは結構疲れた

http://zurubon.virtualave.net/source/062.txt
>26さんのソースを元に 外部関数が呼べるような改造しました
それを使って、TGraphicControlを継承しました
Paint内で ギコbasicを実行します
描画関数はLineTo/MoveTo/TextOutの３つだけです
TShapeの代わりに使えるよう適当に拡張して使って下さい

すごい！すごいよ！
ギコBASICがどんどんパワーアップしていく！
こんなプログラミング言語を待ってました！
そのうちGUIアプリも作成出来たり。
単独で動くexeファイルも作れたらユーザが爆発的に増えそうですね。
2ちゃんねらー標準プログラミング言語として。

エラー対策をしていないので、設計中に TGikoBasV.Macroで文法エラー
とか起こさせると気持ち悪い状態になります。
1)Paint内部でtry exceptでエラー捕捉をする
2)macroの文字が変更されたらフラグを立てて、Paint内部でエラーがあったらフラグを消す
3)Paintはそのフラグが立っていなければマクロを実行しない

という処理を追加して下さい。　私は暫く来れません。

gosubはイッテコイあたりか。

MethodNameで関数名を引っ張って来て検索してるんですね
なんか関数名が引っ張ってこれるって奇妙な感じというか、

TObject.MethodAddressとか見ると、publishedなメソッド名の
一覧も引っ張ってこれそうだから、継承してpublishedにするだけ
で自動的にギコbasicから呼出可能になるなんて事も出来そうですね

既にHSPがあります
http://mentai.2ch.net/test/read.cgi?bbs=prog&key=958436560&ls=50

ギコbasicはライトなスクリプトとしては既に使えそうなレベルですね
Delphi/ビルダなら

誰かギコBASICプロジェクトのBBS作ってください。

>43
設置してみました。

>43
設置してみました。
http://www61.tcup.com/6124/umaibou.html

ｲｯﾃﾖｼ ﾎﾆｬﾗﾗ
って、ぴゅう太みたく

ﾎﾆｬﾗﾗ ﾆｲｯﾃﾖｼ
にできませんか？

>>46

んー、スタック型の言語だねぇ。いいね。

出来た・・・メソッドポインタの作り方が判らなくて苦労したよ

procedure GikoCall(obj:TObject;fname: string;var　res: boolean;
　const dt: array of Variant; var return: Variant);
var fp:TGikoFunc;
var method:TMethod;
begin
method.Code:= obj.MethodAddress(fname);{メソッド名を探させて}
if assigned(method.Code) then
　 begin
　 method.Data:=obj;　　 {メソッドがあれば objとセットにして}
　 fp:=TGikoFunc(method);{メソッドポインタを作り出す}
　　 return:=fp(dt);
　　　res:=True;
　 end ;
end;
{これを使えば関数の検索はとても楽になる}
procedure TGikoBasV.func(Sender: TObject; fname: string;var　res: boolean;
　const dt: array of Variant; var return: Variant);
begin
　if assigned(fonCall) then　fonCall(self,fname,res,dt,return);
　if res then exit;
　GikoCall(self,fname,res,dt,return);
　if res then exit;
end;

ﾎﾆｬﾗﾗﾆ　ｲｯﾃﾖｼ なら、
const LABELSYM = #4;
strの最後がﾆだったら　sym=LABELSYMとして記録しておき、
statementで LABELSYMの場合、次がｲｯﾃﾖｼならそこに飛ぶ・・・・やってみて

両方の構文が使えるように出来る筈

100 　　　　　　∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣
200 〜′￣￣( ﾟДﾟ)＜　　逝ってよし！＞hogehoge
300 UU￣￣　U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿

とかだったら面倒だな。

Cバージョンも新しく作ろうと思うんだけど、
関数ってなににすればいいと思いますか?
ifがモシモダヨとかそういうやつです。

ギコBASICのコンソールバージョンを
昨日の夜にC言語でボチボチ作り始めてみました。
（今のところトークンに分解する所までしか出来てませんが）
よろしければ助言など頂けるとうれしいです。
よろしくお願いします。
http://zurubon.virtualave.net/source/063.lzh

ageます。

カッコの処理がまだなんだね。

CMM参考にしては？
http://www.rpm.or.jp/home/pon
字句解析結果をテキスト形式で出力してるアイデアの部分とか

AND / OR / XOR /NOT のギコ句募集

関数名はとりあえず外部で拡張出来る仕掛けがあればいいから問わない。

しかしDelphi版ギコbasicはバリアントとかDelphiにだいぶオンブして
るから、再度C版で同等のを作るのは難しそうだな。少なくても文字列
と整数、浮動小数点数を扱えないといけないだろうし

やっと判ったよ。 expression/addsub/muldivに別れてたのは優先順位を付けるためなんだね

その、悪いんだけど、誰かDelphi版ソースにコメントつけてよ。
某ランドさんはコメントあっても消してゆく癖あるみたい

XORは難しいな(ワラ

外部で拡張出来る仕組みって例えばHSPのDLLみたいなイメージですか?
それとも組込み関数を追加しやすく作れってことですか?

LinuxでWindowsのLoadLibrary相当の関数がわかりました。
dlfcn.hのdlopen、dlsym、dlcloseです。
関数ポインタが取れるので移植する時もさほど苦労しないでしょう。
たぶん。

うーん。というか、まず目的をハッキリさせた方がいいね。
完全なコンパイラは難しそうだし、あんまり面白くないと思う。

Delphi版は、Delphi側でPublishで関数定義するだけでギコBASIC関数が拡張出来そうだ
し、簡易スクリプト的な使い方なら実用になりそう

コマンドラインなのでCGIがギコBASICで書ける。
それとブロックの書き方なんですけど、
{ }
を使うか
begin end
かどっちがいいですか?
BASICはif ... thenなんでbegin endの方!?!?!

質問!!!!!
どのギコBASICが流行りますか？っていうかそもそも流行らないですか？

http://zurubon.virtualave.net/source/064.txt
Published　メソッドだけでなく
Published プロパティ の操作が出来るようになりました
例: @Canvas.Pen.Color=$0000ff
LineTo(@Width,@Height)

これでギコBasicをDelphiへ組込むのが簡単になると思います

両方可にしたらどうです？
ただ、BASIC は if 分は行全部にかかるって仕様が普通じゃないかな？

ギコPASCALになりそうな感じ

スクリプト言語は沢山あるので、流行るなんて事はないでしょう。

というより、勉強の為に改造してみてるって状態。

可変引数に対応したエラー表示関数。
void giko_error( const char *format, ... )
{
putchar( '\n' );
printf( " 　　　　∧ ∧　 ／￣￣￣￣￣￣￣￣￣￣￣￣￣\n" );
printf( "〜′￣￣( ゜Д゜)＜ Line(%d) : ", getcurline() );

{
va_list list;
va_start( list, format );
vfprintf( stdout, format, list );
va_end( list );
}

printf( "っつーの\n" );
printf( " UU￣￣　U U　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿\n" );
exit( 0 );
}

#include <string.h>
#include <stdio.h>
static char buf[256];
char * repStrW(char *s,char *d,int n)
{int l;
strncpy(buf,s,80); buf[80]=0;
l=strlen(buf);
if (l%2){strcat(buf," ");l++;};
while(l<n) {l+=2;strcat(buf,d);};
return buf;
}
void monaPrn(int argc, char **argv){
int i,l,maxl;
char *s[] ={"　　∧＿∧　 "
,"　（ ´∀｀）"
,"　（　　　 ）"
,"　 ｜ ｜　｜ "
,"　（_＿）＿）",NULL};
if(argc>3)argc=3;
maxl=0;for(i=0;i<argc;i++)if(maxl<(l=strlen(argv[i])))maxl=l;
maxl=(maxl+1)&-2; if(maxl>40)maxl=40;if(maxl<2)maxl=2;
i=0;
printf("%s　／%s＼\n" ,s[i++],repStrW("","￣",maxl) );
printf("%s＜　%s　|\n",s[i++],repStrW(*argv++,"　",maxl) );
if(argc>1)
printf("%s |　%s　|\n",s[i++],repStrW(*argv++,"　",maxl) );
if(argc>2)
printf("%s |　%s　|\n",s[i++],repStrW(*argv++,"　",maxl) );
printf("%s　＼%s／\n" ,s[i++],repStrW("","＿",maxl) );
while(s[i]!=NULL)
printf("%s\n",s[i++] );
}
int main(int argc, char **argv){
char *m[]={"おまえモナー"};
if (argc<2)monaPrn(1,m);
else monaPrn(argc-1, argv+1);
return 0;
}

?が識別子に含まれるなら
「ネタ？」
含まれないなら
「騙り」

>>66
たった１行
TGikoBasV の published に　property Parent; を追加するだけで
@Parent.Width とか、フォームが制御出来てしまう。

実行中は、フォームに張り付けたコンポも触り放題だ・・・こりゃ面白い

あとは配列さえあれば・・・

function main()
{
var ギコBASIC;
ギコBASIC = "ギコBASIC\n";
print ギコBASIC;
}
これが動くようになりました。モシモダヨ(if)なども動きます。
ただ、漢字の識別子があると動作が怪しくなります。
#define iskanji(c) ((unsigned char)c & 0x80)
だけで判定してたりするので・・・

なんか 殆どＣ？

http://zurubon.virtualave.net/source/064.lzh
GoCall関数を追加しました
GoCall("FUNC")とするとメジルシ FUNC から シネまたはExit迄実行
して Result変数値が帰ってきます

なんかギコソースにバグがある時のバグ取りとかまだ色々ありますが
仕事に影響出そうなので、私はもうこれで封印します
若い人。頑張って下さい

誰だよ、Nifty/FDelphi に紹介したやつ。
一般人が見たら卒倒するって。

だれって、ID出てない？

君、結構分かり易いソース書くね。
ちょっと好感。

で、これも2ch名義で有名にしてくの？
パクりなのに。

はわわ
だまっとりゃわからんに…

>>79 でも元とはだいぶ変わってしまってるよ
　同じなのはaddsubとかの数式処理の再帰下降法の実装部分だけど
　これは教科書見て書いたらだいたい同じようになってしまうんじゃないかな

>>75
試しにActiveXにしたら400KByteを超えてしまった

みなさん、こんにちは。
なんとか単独で動くexeファイルをはけるようになりました。
（外部DLLを使ってですが・・・。）
ちなみに解凍したフォルダがデスクトップ上にある状態で
コンパイルすると吐いた実行ファイルが、起動できないとかいう
致命的エラーがありますので
c:\temp\gikoとかいうフォルダに解凍後移動してください。
詳しくは同梱のドキュメントをお読みください。
いくつかサンプルソースもあるので、とりあえずは
そのソースをコンパイルしてみてください。
http://zurubon.virtualave.net/source/065.lzh

>うまい某さん
なかなか面白いこと考えますな〜。
あと、うちの環境では同梱のサンプルソースは
問題無くコンパイル出来ましたよ。報告までに。
早くソース公開きぼーん。

コンパイル出来ないよー。>83

たぶん MD bin してないんじゃないの？
別の言い方すると exeのあるフォルダに binフォルダ作れ

ソース公開きぼーん>>83

うまい某さんソースを公開してください。

ソースはもうすぐ公開しますので待っていてください。
配布方法はベクターのシェアウェアで値段は2000円にする予定です。

>89
金取るのか!!!

俺もJavaで作るかな。GUIのデバッガ付で。

>配布方法はベクターのシェアウェアで値段は2000円にする予定です

あ、お金とるんだ

金取るのー？？？なんてやつだ…

89は偽者だと思うけど...

HSPで作ってるんだ、
スクリプトでスクリプト作るってなんかなーじゃない？
Ｐ２Ｃみたいなコンバータ作ればって気がする

2000円よりも、1800円とかにしたほうが30％売上が伸びるらしいよ。

今ならギコエディタもつけるってのは？

GUIのギコBASIC統合開発環境作ったら買ってくれる？

89本物かなあ？
HSPで作ってるんなら、HSPを超えることはなさそうだし、
タダのHSP使うのが普通だと思うけど

>98
レスの反応の速さからして
名をかたった偽者でしょう。

もしかして、ただHSPの命令に置き換えてHSP
のコンパイラに食わせてるだけ？
何か価値があるのか？
2000円？？？

ネタにマジレスしないように

うまい某さんの作ったギコＢＡＳＩＣが
今の所、機能的には１番なのかな？
ソース公開してくれたら、誰か引継いでくれそうだけど。
うまい某さんは、もうココ見てないっぽいなぁ。

>>102
俺なら、もし、うまい某さんのギコBASICと同じことを
やろうと思ったら、エディタのマクロ使って、文字列置き換えて
一時的に別名で保存したあとHSPでコンパイラする。
うまい某さんのは悪いけど存在意義がわからない。

>103
おまえひどい奴 死ぬあるよ

>103
マクロで置換してコンパイルしても面白くないじゃん。
やっぱり、あのソースを直接コンパイル。
またはインタープリト出来ないと。
というか、それより前にギコＢＡＳＩＣは
ソフト事態の存在意義とかを求めてる訳じゃなく
みんな遊びで作ってる所があるわけだし。
今までDelphiやCで作ってくれた人達には
素直に感謝しても良いと思うけどなぁ。
俺は、このスレッドみたいに何かを皆で作ってるのって
ほのぼのしてて好きだよ。

＃スレッドと関係ないゴミレスしてゴメンな。

>105
いやいや、やろうと思えば多分マクロ一発で、実行まで一気に
自動化できるよ。
最近のエディタのマクロは強力だからね。

でも、俺も、こういう雰囲気は好きだよ。
雰囲気壊すようなこと言ってゴメン。

というか、良く見たら#defineで置き換えてるだけなんだね...
それだったらマクロを使うまでも無い。
残念だけど普通にHSP使うのと何もかわらんと思うよ…

#defineで、重要命令を置き換えちゃうと、確かHSPは
コンパイル時に不具合が出るはずなので、気をつけよう。

ギコBASICというか、ギコPythonっぽいオリジナルのスクリプト言語を作ってる。
ちゃんと完成するかどうかは分からないけどね。仕事最近やばいし。

興味がある人がいたら、完成したらリンク張るけどね。
金は絶対取らないし、ソース公開するし、標準Cで動くようにするよ。

ま、ほのぼのいきましょうや。
仕事がんばってね。

金を取るのが悪いとは思っていない。
ただ私はしないと言っただけ。気にさわったらごめん。

私へのレスじゃないかもしれないけど・・・・
気にさわったわけじゃないです。

age

age

イットケ　スレ１
イットケ　スレ２
イットケ　スレ３
：
：
イットケ　スレ１００

ソシテダレモイナクナッタ、モナー

重量あげ

をを、マジでギコBASICなるものは存在していたのかっ

んん、ちゅうか、みんな結構真剣にとりくんでいた風であって
命令がまじで、『イッテヨシ』だもんなぁ、
理想の言語であるに違いない。

どうやら途中でみな頓挫してしまったようで無念。
完成していたらおそらく
超自然言語系つっこみ型純オブジェクト指向言語として
世界の開発者たちを震撼とさせていたであろうことは
火を見るより明らか。
惜しいのぅ。

などとわけのわからんことを書いてあげ(ｗ

なんかこう、しゃれになんないぐらい
すごい言語に誰か拡張しないかな。
ぶつぶつ・・・

いちおう連投稿なのでさげてみたりする(気が弱い)

そういえば、作りかけのままほったらかしだ。
今日あたり、再開するか・・・

>108さん
期待してます。

ギコＢＡＳＩＣ復活キボーン！
まずは、詳細な仕様を決めましょう。

個人的には、こういう機能があれば
十分遊べそうかと・・・。

・本体自体はオーソドックスなコンソールアプリ
・インタープリタ言語（ネイティブコード吐くのは大変ぽいし）
・２バイト文字への対応
・通常時は変数の型は無し
・基本的なプリプロセッサ命令を使用可能にする
・外部DLLの呼出しを可能にする
・簡易ギコdebuggerの搭載
・みんなで拡張出来るようにオープンソース

みんなで改良していって、
将来的にはLinuxのディストリビューションに標準搭載されるくらいの言語にしようぜ

>121
rubyにつづく純国産スクリプト言語ってわけね。
搭載してくれるディストリビュージョンがなかったら
UNIX板の人達と協力して作っとく？
「Giko Hat Linux」

変数のサイズが無限長てのできる？
数値も無制限桁でおねげーします。
なんていうか、メモリが許す限りていうのかしら。
無理？

あと、配列とかあとでくっつけてのびてほしいんダス。
これはできるぽいかな。なんかそんな言語があったような。

少なくともやねうらおのスクリプト言語よりはすごくしない？(わら

船頭多くして、
船、山に登る。

>船頭多くして、
>船、山に登る。

マルチスレッドの共役勾配法みたいなものか?

>船頭多くして、
>船、山に登る。

マルチスレッドの共役勾配法みたいなものか?

船頭のたくさんいる船なら
船のくせに山をも登ってしまうほどの、
すごいパワーを発揮してしまうのだ、
の意味である。エッヘン。

とりあえず、構文解析とかはbisonとflexでやると楽だと思う。
ちょっと前に、文脈解析系の仕事をした時に使ったけど。
やっぱり便利だわ〜。ちょっとbisonとflexは日本語の
参考書籍が少ないので、
多少は英語の知識が無いとキツイかもしれんけど。

で、ギコベーシックの売りは何？

>129
洒落っ気。つうか他に何も期待すんな｡

コンパイラ構成法 原田賢一著 共立出版 お勧め、高いけど

直のインタプリタだと使いづらい気がするけど偏見かな>bison
中間言語に落とすにはいいと思うけど

何も出来ないのが歯がゆいあげ。

>129
オープンソースプロジェクト

もしかしたらage。

もしかしたらage。

消えたら嫌なのであげさせてね

test

タマにあげとかないと

だね。
http://mentai.2ch.net/prog/kako/957/957341074.html
とか、もう（思い出）にされちゃった

定期age

定期age

いちいちあげんな

goto top

イッテヨシ サイショカラ

メジルシ ループ
モシモダヨ 148 = 152 ダッタラ ホザケ "ジサクジエンマンセー"
モシモダヨ 148 = 149 ダッタラ ホザケ "連書きUZEE!"
イッテヨシ ループ

イッテヨシ トップ

消えたら嫌なので月１あげ

ギコＢＡＳＩＣ万歳

誰か仕様まとめてくれよー。

monazillaプロジェクトと合体して
ギコBASIC搭載ブラウザつくってくれ！
巡回プログラムとかつくれたらさいこぉ！

俺ならPPAくらいはやるかも（ｗ
コンポとか作りやすくしてくれれば、考えるけど。

というか、プログラム技術板でギコベーにキタイしてあげてたの
ｵﾚなんすが、どーも作者さんが気合を失ったようですぜ。、
誰か引継ぎなよ。
ｵﾚに教えれることならつたないけどバックアプはするよ

今週中にα−くらいは作ろうか。

ところでパーサは誰か書いてるの？

>>154
自力でしかかけねっす。牛みたいのとか山羊みたいのとか
使った方がいいのかなぁ。

bison使ったパーサならあるんだけど。
前の会社からもってきたやつだからヤヴァイかなぁ。
でもOS/2関連なんて誰も知らないからこっそりwarezにageるのはどう？

>>156
あはは。CSet++あるよ:)
でももう現役マシンで動くのかなぁ。

不定期age

いま、ギコBASICのソースコードってどっかあるの？

ギコベソースくれage

ちぅか、誰かやる気あんの？
Win16の時代の遺物でいいならパーサー提供してもいいけど。

っていうかドキュ厨な俺に仕様を教えてくれ

GW系のBASICってハナシでなかった？

http://www.geocities.co.jp/SiliconValley-Oakland/8522/
にあった
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikob064.lzh
から数式処理だけを切り出して、ここにアップしました
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/mformula.txt

文字列を　"sin(π/4)^2"　にのような感じで与えると答えがえられます。

ただしソースはDelphiです。
拡張子をpasにして保存し、プロジェクトに追加した上で usesし
Caption:= FormuraNum(TFloatNum,'sin(π/4)^2').toStr;
として実行すればテストできます。

今、多変数関数の呼び出し前の処理でミスが残ってる状態です

多変数関数のミス修正しました

寂しい・・・・　せっかく複素数対応にしたのに・・・・・

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/mformula.txt

とりあえずアゲ！

>>164
参考にさせてもらいます。ちょうどDelphiでスクリプタ作ってるしー。

思うにプログラマ板で立てたのが悪かったと思われ。
関連スレ

【コンパイラ・スクリプトエンジン】相談室
http://piza.2ch.net/test/read.cgi?bbs=tech&key=981672957

>169 残念ながら１年前にはプログラム板は無かったんだよ

age

がんば！age

ganbatte!

いったい、誰が作っていたんだろう。

ソースはどこ？

>>175
Delphiソースはこれかな
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikob064.lzh
Cのは知らない

保存age

そろそろデータ落ちなんで

ｽﾚ維持

sageでも維持出来るかな？

不安だからageとこ

保存

現在408

良スレ発見 age

今は誰かが開発中なんですか？

　　,,,,,,,,,,,,,∧,,∧　 　／￣￣￣￣￣￣￣￣￣￣￣￣￣￣￣
〜′,,,,,,,ミ,,ﾟДﾟ彡 ＜　作者さまは開発を放棄したようです。
　 UU""" U U　　　＼＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

中身が難しすぎてオレにはさっぱりわかりません。

そうなんですか・・・残念。
Delphiのソースがあるなら見てみたいっす。
きっと理解できないけど（ｗ

「みんなで作りましょう」って奴は大抵最後まで作れない。

３行で作れ。

void main(){
　　spawn('gikobasic.exe');
}

数 = 2
愛 = 1
出力 = ""
ホザケ 出力
出力 = "＊＊＊ プログラマ適正診断 ＊＊＊"
ホザケ 出力
出力 = ""
ホザケ 出力

メジルシ 回転
出力 = "2の" + toType(愛) + "乗を言えや(ﾟДﾟ)ｺﾞﾙｧ"
ホザケ 出力
イレテミロ 答
モシモダヨ 答 <> 数 ダッタラ イッテヨシ あぼーん
出力 = "なかなかやるモナー(´∀`)"
ホザケ 出力
出力 = ""
ホザケ 出力
数 = 数 * 2
愛 = 愛 + 1
イッテヨシ 回転

メジルシ あぼーん
出力 = "答は" + toType(数) + "!（・∀・）ｶｴﾚ!"
ホザケ 出力
シネ

GikoBasicにプログラム側からデータを渡し
それをGikoBasicプログラムで処理して
またプログラムで受け取るってのはできるでしょうか？
PPAの AddStrValue(変数名, 値, CONST) みたいな。。。

わけもわからず AddVar と GetVar を追加してみました。
これでいいのかな、、

procedure TGikoBas.AddVar(const VarName: string; NewValue: variant);
var
　 i : integer;
begin
　i := getvariable(VarName, 1);
　variable[i].value := NewValue;
end;

function TGikoBas.GetVar(const VarName: string): variant;
var
　i : integer;
begin
　Result := '';
　for i := Low(variable) to High(variable) do begin
　　if (variable[i].name = VarName) then begin
　　　Result := variable[i].value;
　　　Break;
　　end;
　end;
end;

>>193
厨なので最初何に使うのかわかりませんでした・・・

サンプルのギコBASICを走らせた後に
uGiko.pasで
ShowMessage( GikoBas1.GetVar('カケラレルカズ') );
を実行して「$FF00」と表示させるような用途に
使うって事でしょうか。

GetVarでgetvariable()を使わないのは
変数が見つからなくてもそこで実行をとめない為
ってことでいいんでしょうか？

AddVarの方は、uGiko.pasで変数を追加できるって
用途でいいのかな？

せっかくなので、全角の関数名も使えるようにしてみたのですが
皆さんのDelphiのバージョンはいくらなんでしょう？
うちのはDelphi6なので、これで保存すると
他のDelphiで読めないのではないかと不安です。

去年の６月からやってたのか。
激なつかしい。
よく、サルベージできたもんだ。

なんか簡単なアクションゲームが作れるくらいにしたいですけど
出力画面はアスキーアートを吐き出す宿命にあるので
昔の80x25行固定ピッチフォント画面を使う、てな具合には
いきませんよね・・・。

いっそ「スプライト」と称して
ギコBASICから位置をコントロールできるフォームを
何枚か用意するのはダメですかね。

>>194
どうもですー。私全然分かってないんで、、。
これからもよろしくです。
んで、自作アプリ(２ちゃんねる用ツール)に
ギコBASICを組み込んでいいんですかね？
#PPAも試したんですがちょっと不都合があってダメでした。

>>198
どもども。おいらも全然分かってません。
せっかく構文解析なんかのしち面倒くさい部分が完成してるのに
放置プレイはちょっとみじめだと思っている者です。

元の作者様にどうやって連絡を取ればいいのかもわかりませんし
(http://www.geocities.co.jp/SiliconValley-Oakland/8522/ にメール送信フォームがあるが生きているかは不明)
もともと複数人数でやってることだから
２ちゃん用ツールに「使わせていただく」という心がけさえあれば
いいのでは？ と思います。

22 ：仕様書無しさん ：01/12/17 23:23
>>20
ギコBASICをDelphi6で動かす法
1.http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikob064.lzh
　をﾀﾞｳｿして解凍
2.GIKOB.DPRをダブルクリック
3.Delphiが起動する時に「コンポーネントが読めません」みたいなエラーが出るが
　すべて無視
4.メニュのコンポーネント→コンポーネントのインストールを選ぶ
5.ユニットファイル名に解凍したGIKOBAS.PASを指定しる
6.ダイアログが出るのでOKを押す
7.一度Delphiを終了する。すべて保存しない

あとは普通にGIKOB.DPRをダブルクリックしてDelphiを起動すれば
煮るなり焼くなりできる。

23 ：22 ：01/12/17 23:34
忘れてた。
>あとは普通にGIKOB.DPRをダブルクリックしてDelphiを起動すれば
の後で、uGiko.pasとGikoBas.pasの上のほうにある
uses 〜〜〜
の一番後ろに「,Variants」を付け加えないといけない。
例
Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, ExtCtrls,GikoBas, Variants;

この修正は保存する必要がある。
あとは構造化BASICにするなりオブジェクト指向に改造するなり。

ﾏｸ版ﾎｽｨ。
OS Xとでべつーるで作れねぇかなぁ。

>>201
いんでない？

ところで、プロジェクトを読み込むたびに
フォームの左上に名無しのTGikoBasが増えてゆく。
さっき見たら５つあった…。

TGikoBasをコンポーネントパレットに登録する時の
アイコンを作りました。
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikobas.dcr

インストールするには、一旦コンポーネントパレットから
TGikoBasを削除しなければならないかもしれません。
（Delphiをインストールしたディレクトリ直下の Lib\dclusr.dpk を読み込み
　パッケージからGIKOBAS.PASを削除してコンパイルボタンを押す。
　その後、もう一度GIKOBAS.PASを追加してコンパイルボタンを押す）

>>203
good job!!

Ya hoo,Alright!
ありがとうございます（・∀・）
おまけに元データの、ギコの32x32アイコンを置いておきます。
いろいろ使えると思うです。
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/giko.ico

age

あけましておめでとうございます。

厨房レベルですが、余裕が出来たら
折角のギコBASICをいじりたいですあげ

age

保全

再始動…


　　　　　　　　　　 ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　ｺﾞ　…

まじすか？

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/ugikoscr.txt
デチューン版 です　コンポーネントはやめました

1..　元のソースと喧嘩しないようにTGikoScrと変名しました
2..　変数領域を固定ではく動的変数に変更
3.. インスタンスを作成する関数GikoScriptを追加
4..　四則演算の機能だけが使い易いように
　　 procedure LET(scr: String);
　　function ExecToVar(scr: String):
　　　 function ExecToStr(scr: String):string;
　　この３つを追加しました

ちなみに、Delphi6でしか動かないです。　理由は>>200さんにあるように Variants
のusesが必要だったから　これを追加した為です

動的配列を使ったので古いコンパイラではコンパイル出来ないと思います

あげ
上のコードは
▼ノベルゲームツール作っちゃうぞ！
http://game.2ch.net/test/read.cgi/gamedev/1013170036/

保全あげ

情報がちらばらないようにコピペ

75 名前：名前は開発中のものです。 投稿日：02/02/12 22:23 ID:???
関数はソースで　published　の所に定義するだけで　自分で増やせるみたい

例： copy　と同じ動きをする関数 MID 　MID("12345",2,2)で文字 "23"　を返す

published の 下の toInt / toStrが並んでる所で
function MID(const dt: array of Variant): Variant;

実装部で
function TGikoScr.MID(const dt: array of Variant): Variant;
　　function toInt(d:Variant):Integer;begin Result:=d;end;
　begin
　case high(dt) of
　　0: Result:= VarToStr(dt[0]);
　　1: Result:= copy(VarToStr(dt[0]),toInt(dt[1]),High(Integer));
　　2: Result:= copy(VarToStr(dt[0]),toInt(dt[1]),toInt(dt[2]));
　else error('変数の数が合わない');
　end;
end;

保全age

だれかC言語番のうｐきぼーん

>>218
Pascal使いはC→Pascal変換できるんだから
C使いもPascal→C変換勉強して下さい

>>219
いやPascal→Cぐらいはできるけど（開発は…）、
ちょっと巨大でやる気なくしたから最初のシンプルなやつをと思ったんですけどね。
まあそのうち移植するかも。

>>220　検索したら手元に >>1のがあったからアップしたよ

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/059.lzh

でも、Delphi版は相当改造されてて文字や浮動小数点も扱えるけど
このコード下地にそこまで行くのは大変だよ。

>>221
ありがとうございまちゅ
今朝ギコベーを開発する夢を見ました。
夢に任せてがんばります。

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikobc02.lzh
にC言語版をちょいと拡張したものをおいておきます。
全角対応にしました。
たぶんdoubleが使えます。

>>223　せっかく頑張ったんだから　あげようよ

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikobc03.lzh
Delphiに負けていられるか!
ということで文字列に対応した(つもり)。
どこまで動くかわからん。
LSI-C 試食版では文字列の自動変数の関係でスタックがあふれるから使えん。
まあできないことはないぞというところを見せてみるテスト。

まああれだ。拡張したいなら素直に059.lzhを落としてきて拡張してください。
めためたソースが汚いので。

このクソ厨房が!もっと分かり易いソース書きやがれ
とか言わないように(泣。

乱数ぐらいは使えるべき?

>>226
乱数を言語仕様の中に入れる必要は無いと思うけど、
ライブラリとしてあればちょっとうれしいかも。

>>227
ライブラリか…
力が不足しています。
次のレベルまであと87時間34分22秒の経験が必要です。


http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikobc04.lzh
ANDとORをつけてみた。
虫取り。
サンプル(ここに載ってたやつを修正したやつ)を収録。

itiou age
ANDとORの優先度が同じなんです。

>>227
すまん ﾗﾝｽｳ を予約語にしてしまった。
詳しくはダウソしてみれ。

ﾀﾞｳｿしてみた。BCC5.51でコンパイル確認。
警告が３つ出たけど。一応乗せときます。
C:\borland\bcc55\Bin>bcc32 d:\download\2ch\gikobasic\gikob.c
Borland C++ 5.5.1 for Win32 Copyright (c) 1993, 2000 Borland
d:\download\2ch\gikobasic\gikob.c:
警告 W8004 d:\download\2ch\gikobasic\gikob.c 232: 'i' に代入した値は使われていな
い(関数 main )
警告 W8008 d:\download\2ch\gikobasic\gikob.c 301: 条件が常に真(関数 bgetch )
警告 W8004 d:\download\2ch\gikobasic\gikob.c 366: 'lnum' に代入した値は使われて
いない(関数 getsym )

乱数は今だと言語仕様に入れた方がいいかも。
ライブラリにするとある程度言語使用が固まってないとまずいと思うし、
よく考えたら第一どうやって乱数を生成するのかわからん。

>乱数
は手抜きでrand()を読んでるだけ(藁
Mersenne Twister
ttp://www.math.keio.ac.jp/~matumoto/mt.html
でも使うか?

use ﾗﾝｽｳ
とかすると乱数が使えるようにするとかも考えたが面倒そうなのでやめた。

あと2番目の警告の原因がわからん
((0 <= ch) && (ch < 20) && (ch != '\0') && (ch != '\n'))
がつねに真になるわけないだろ!?
(('\0' <= ch) && (ch < ' (半角スペース)') && (ch != '\0') && (ch != '\n'))
にすりかえても同じになりますか?

>>231
原因がわかった。
chをunsigned charにしてるから、chは常に0以上ってことらしい。
((0 < ch) && (ch < 20) && (ch != '\n'))
にしてオクレ。

http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikobc03.lzh
おもしろそうなんでﾀﾞｳｿしたけど使い方分からない。
言語とかも分からない。何て書けば茶道するかとか。
解説サイトはないの？

gikobc04.lzh は
gcc-2.96 (RedHat7.2)でもコンパイル出来ました。

SJISモードのkterm上だったら表示もOK。
動作もたぶんOK。

[root@mikeneko test]# ./a.out sample2.src
ｽｳｼﾞｦｲﾚﾛﾔ : 21
ﾓｼﾞｦｲﾚﾛﾔ : あぽーん
あぽーんよ、やり直すなら今だぞ
ｵﾜﾘﾀﾞｿﾞ
[root@mikeneko test]#

コンパイル時のワーニング：
gikob.c: In function `bgetch':
gikob.c:301: warning: comparison is always true due to limited range of data type
gikob.c: In function `getsym':
gikob.c:341: warning: suggest parentheses around && within ||
gikob.c:341: warning: suggest parentheses around && within ||
gikob.c:345: warning: suggest parentheses around && within ||
gikob.c:350: warning: suggest parentheses around && within ||

>>234
301行目はchar が unsigned char になったためでる警告ですので
((0 < ch) && (ch < 20) && (ch != '\n'))
としてください
そのほかは
115,116行目を
#define ISKANA(x) ((x) == 0x80 || (0xa0 <= (x) && (x) <= 0xdf) || (x) == 0xff)
#define ISKANJI(x) ((0x81 <= (x) && (x) <= 0x9f) || (0xe0 <= (x) && (x) <= 0xfe))
とかっこを足せばｵｹｰではないかなと

>>233
解説サイトはここです。

まずどうすればいいですか？

>>236
まずは　図書館に出かけて読めそうな本から
ジャンル問わず１日５冊を春休み中頑張りなさいな

>>236
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/gikob064.lzh
をﾀﾞｳｿして解凍
↓
gikob.exeを実行
↓
感動

とまあこんな感じでギコベーに浸ってくれ

頑張って欲しいんで age!

GikoForth って知ってる？
Forth という言語がベースになっています。

http://pc.2ch.net/test/read.cgi/tech/1000118518/

>>236
どんな答えがお望みですか？

保守！

>>242
どうせならageとけよ

もういちど保守

>>244
どうせならageとけよ

function GetPropInfoName(var obj:TObject;str:string):PPropInfo;
var s:TStringList;
var i:integer;
var　Field: ^TObject;
begin
Result:=nil;
　　　　if not Assigned(obj) then　exit;
s:=Bunkatu(str);
try
if s.Count>=1 then
　 begin
　　Result:=GetPropInfo(obj.ClassInfo,s.Strings[0]);
　　if Result=nil then begin
　　　Field:=obj.FieldAddress(s.Strings[0]);
　　　if Field=nil then exit;
　　　obj:=Field^;
　　　if s.Count=1 then exit;
　　end;
　if s.Count>1 then
　for i:=1 to s.Count -1 do
　　 begin
　　 if Result <> nil then begin
　　　if　Result^.PropType^.Kind<>tkClass then
　　　　begin
　　　　 Result:=nil;
　　　　 exit;
　　　　end;
　　　 obj:=TObject(GetOrdProp(obj,Result));
　　　　if not Assigned(obj) then
　　　　 begin
　　　　　Result:=nil;
　　　　　exit;
　　　　 end;
　　　end ;
　　　 Result:=GetPropInfo(obj.ClassInfo,s.Strings[i]);
　　　 if Result=nil then begin
　　　　 Field:=obj.FieldAddress(s.Strings[0]);
　　　　 if Field=nil then exit;
　　　　 obj:=Field^;
　　　 end;
　　 end;
　 end;
finally
　s.free;
end;
end;

Delphi版の改良情報です

gikoBas.Pas　のGetPropInfoName を >>246 と置き換えると

published なクラスのプロパティをドットシンタックスで参照可能になります　

>>247
Good job!

まじすげー！

期待ge
M　a　c　で　 B A S I C
http://pc.2ch.net/test/read.cgi/tech/1022187509/

あがってないし

　２ちゃんねるの皆様へ

　今後、ギコ猫の使用は私どもの許可を得てからにして下さい。
　私どもの商品を勝手に使用した場合は法的な手段も考えております。

　　　　　　　　　　　　　　　　　　　　　タ　カ　ラ [email protected]

ギコBASICって何？
解説ｷﾎﾞﾝﾇ

ギコBASICはタカラのモノになりました。

「ギコ」は商標登録されています

>254
ギコBASICはタカラモノになりました。

保守の時期

　　　　　　　　　時　　期
　　　　　　　　　　の
　　　　　　　　保　守
　　　　　　　彡

(,,ﾉﾟдﾟ)ﾉ

夏休みに改造してみたら？ age

>>259
「と言ってみるテスト」忘れてるぞ(( ；ﾟДﾟ))ﾌﾞﾙﾌﾞﾙ

burororo

現在のディレクトリの状況
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/
059.lzh 03/13 09:21 16076
giko.ico 2001/12/23 326
gikob064.lzh 2000/12/31 196337
gikobas.dcr 2001/12/20 472
gikobc02.lzh 03/13 18:13 19982
gikobc03.lzh 03/15 20:10 32703
gikobc04.lzh 03/16 20:02 37288
LucasTest.txt 2001/07/15 25406
mformula.txt 2001/06/27 52253

おまえら、プログラミング言語2ch++を作ろうぜ
http://pc3.2ch.net/test/read.cgi/tech/1028347382/l50

で、「ここを荒らしてくれ」と言う趣旨の書き込みがあったんですが荒らしてもいいですか？

　

お盆あげ

BASICなの？

>>266 行番号ないんだよね

　　　∧∧＿__　　http://www.muuz.ne.jp/hosting/　　
　／(*ﾟーﾟ)　／＼ 月額200円コバルト激安レンタルサーバーホスティング
／|￣∪∪￣|＼／　150MB大容量。電子メール最大20個作成可能
　　　　　　　　　　　サブドメイン、独自ドメインOK CGI/SSI/PHP/ASP/JSP利用可能

保守

浮上

GOSUB、配列もどき・連想配列、別のギコBASICファイルのインポート機能をつけてみた

http://page.freett.com/gikob/gikob0004.zip

・ﾟ・(つД`)・ﾟ・

>>271
　あ、いや、いい仕事してるよ。　うん

浮上

保守

浮上

救いage

浮上

順調に下がってる・・・
・ﾟ・(つД`)・ﾟ・

では浮上

こっそりバージョンアップ
http://page.freett.com/gikob/gikob00041.zip

こっそりループを追加
http://page.freett.com/gikob/gikob00042.zip

このギコベーシックって何をするプログラムですか？

>>283
命令口調カタカナBASICインタプリタです
ギコ猫が不親切かつ適当にエラーを知らせてくれます

もうここまできたらこっそりDAT落ち希望・ﾟ・(つД`)・ﾟ・

>>285
まあまあ。そうしょげないでよ。
頑張ってるなあとは見てるんだけどね。

DelphiだとVariantにすれば文字列と複素数も簡単にサポート出来るし
実行時型情報の仕掛けを利用すればネイテブコードとの連携も簡単
なんで、先にそれ見た後だと、どうしても見劣りしちゃうんだよ。

でも、また誰かがそのコード利用して何か書いてくれるさ

ｶﾞﾝｶﾞﾚｰ応援してるよ〜

>>286-287
ありがとう、こっそりがんばります・ﾟ・(つД`)・ﾟ・ｳﾚｼﾅｷ

こっそりループのネストに対応
http://page.freett.com/gikob/gikob00043.zip

現在の文法を紹介してみたら？

>>290
とりあえずソースのコメントに書いてある覚え書きを整理してみました

http://page.freett.com/gikob/spec.txt

ﾒｼﾞﾙｼ [ラベル名]
ｲｯﾃﾖｼ [ラベル名]
ｲｯﾃｺｲ　[ラベル名]
ｶｴﾚ
ﾖﾝﾃﾞｺｲ　[ファイル名]
ﾎｻﾞｹ [変数名/文字列]
ｲﾚﾃﾐﾛ [変数名]
ﾓｼﾓﾀﾞﾖ [式] ﾀﾞｯﾀﾗ [文]
ﾗﾝｽｳ
ﾙｰﾌﾟ [式] ｶｲｼ
ﾙｰﾌﾟｵﾜﾘ
ﾇｹﾀﾞｾ
ﾂﾂﾞｹﾛ

ｲｯﾃﾖｼ　/　ﾎｻﾞｹ /ﾓｼﾓﾀﾞﾖ [式] ﾀﾞｯﾀﾗ [文]
がモトモトのギコbasicで、後のはこのスレでの拡張だよね？

>>293
ﾒｼﾞﾙｼとｲﾚﾃﾐﾛももともとのギコBASICにありました

元のアイデア段階では

10 ｱﾃﾙｶｽﾞ=ﾗﾝｽｳ()
20 ｲﾚﾃﾐﾛ "ﾃﾒｰﾆ ｱﾃﾗﾚﾙﾉｶ", ｵﾏｴﾉｶｽﾞ
30 ﾓｼﾓﾀﾞﾖ ｵﾏｴﾉｶｽﾞ = ｱﾃﾙｶｽﾞ ﾀﾞｯﾀﾗ ｲｯﾃﾖｼ 70
40 ﾓｼﾓﾀﾞﾖ ｵﾏｴﾉｶｽﾞ > ｱﾃﾙｶｽﾞ ﾀﾞｯﾀﾗ ﾎｻﾞｹ "ﾃﾞｶｲｿﾞ。ｵﾏｴｶﾞﾅ。": ｲｯﾃﾖｼ 20
50 ﾎｻﾞｹ "ﾁｭｳﾎﾞｳﾊ ﾁｲｻｲﾈ。""
60 ｲｯﾃﾖｼ 20
70 ﾎｻﾞｹ "ｷﾞｺﾊﾆｬｰﾝ"
80 ｼﾈ

すみません！！、保守します！！

開発ｶﾞﾝｶﾞﾚ！！

保守

マターリ行こうぜ！！

ギコ BASIC。略してギコベ稲造。

makefileかきなおすのがめんどくさいんですが。

2000年6月に立ったスレがまだ存在してたか…

そろそろ誰か本気で作ってくれよ。

http://page.freett.com/gikob/gikobw00044.zip
Windows版でとりあえずグラフィック(線と四角形と円)を描けるようにしてみました

>>300
どういう形でmakefileを書き直してるのかわからないのでなんともいえないのですが
とりあえずmingwとcygwinとVisualC++.NET用にmakefileを分けてみました

http://page.freett.com/gikob/gikobw00045.zip
全角の数値と演算子を解釈するようにしました
グラフィックとしてのテキストの描画とテキストの色の変更に対応しました

http://page.freett.com/gikob/gikobw00046.zip
全角の（）や型指定子等を解釈できるようにした
連想配列がまともに動いていなかったのを修正・・・鬱

http://page.freett.com/gikob/gikobw00047.zip
キーの入力待ちを追加

ホットゾヌ２にギコＢＡＳＩＣが搭載されたみたいね
なんかギコＢＡＳＩＣでプラグイン作れるみたいよ。

俺もＢＣＢでギコＢＡＳＩＣのＩＤＥでも作ろうかな・・・。

・ﾟ・(つД`)・ﾟ・

こんな感じの仕様で手軽に呼べるようにすると拡張も容易だし使い易いと思うのだけど

int GikoScript(char *scr , int(*CallBack)( TScr *s) );
コールバックは、関数、ラベル代入,ラベル呼出時,終了時に呼ばれる
コールバック引数 は構造体でこんな感じ
typedef struct {
enum {
　 isLabelGet,//ラベルの取出
　 isLabelSet,//ラベルへ書込
　 isFunc,　　//関数呼出
　 isExit　　 //脱出直前(エラー時も)
　 } CallBackType;
int　lno　　 ; /*行番号*/
int　lpog　　; /*文字位置*/
int　ErrCode ; /*エラーコード
char nbuf[64]; /*ラベルや関数名*/
int　nlen;　　/*ラベル文字数*/
//その他スクリプトの為の処理
} TScr;

もちろん int GikoScript("1+2*(3+4)",NULL); で15が帰るような

HELP!!
Windows2000Pro　を一度まっさらにして入れなおそうと、
CD-ROMからセットアップを実行しました。
なんと！！Cドライブのパーティション（NTFS)が削除できんのです。。。
なんでしょうか。。。
助けて！！

デフォルトのラベル管理機構を使う為に
enum {
　 sucsess;// ラベル・関数処理をCallBack側でした場合 sucsessにして返す
　 isLabelGet,//ラベルの取出
　 isLabelSet,//ラベルへ書込
　 isFunc,　　//関数呼出
　 isExit　　 //脱出直前(エラー時も)
　 } CallBackType;

として CallBackから帰ってきて sucsessになってなければ 自前のラベル処理を実行する
って感じでどう？

ギコBASICがチャンと動くようになったら
２ｃｈ系のソフトには、是非とも標準のスクリプト言語として採用してもらいたいものだ。

>>313
まずはスクリプトエンジンとして外部から使い易い設計にしないと

sageろや！！

C++で書き直してみた
http://page.freett.com/gikob/gbtl-beta1.zip

>>316
神！！さっそく見させていただきます。

>>316
とても良い感じです。(・∀・)

CVariableをテンプレート化、Cygwin・MingwのGCC(g++)でコンパイルできるように修正

http://page.freett.com/gikob/gbtl-beta2.zip

何故か実用的になってきてないか(w

やべ〜。ついにギコBASICの夜明けが・・・。

いろいろと拡張・修正してみた
http://page.freett.com/gikob/gbtl-beta3.zip

>>322
(・∀・)ｲｲﾖｲｲﾖ-

あまり反応ないね・・・。イイと思うんだけど。

＜血液型A型の一般的な特徴＞（見せかけの優しさ（偽善）に騙されるな！）
●とにかく気が小さい(神経質、臆病、二言目には「世間」）
●他人に異常に干渉する（しかも好戦的・ファイト満々でキモイ）
●自尊心が異常に強く、自分が馬鹿にされると怒るくせに平気で他人を馬鹿にしようとする
（ただし、相手を表面的・形式的にしか判断できず(早合点・誤解の名人)、実際にはたいてい、内面的・実質的に負けている）
●「常識、常識」と口うるさいが、実はA型の常識はピントがズレまくっている（日本の常識は世界の非常識）
●権力、強者（警察、暴走族…ｅｔｃ）に弱く、弱者には威張り散らす（強い者に弱く、弱い者には強い）
●あら探しだけは名人級（例え10の長所があってもほめることをせず、たった１つの短所を見つけてはけなす）
●基本的に悲観主義でマイナス思考に支配されているため、性格がうっとうしい（根暗）
●一人では何もできない（群れでしか行動できないヘタレ）
●少数派の異質、異文化を排斥する(差別主義者）
●集団によるいじめのパイオニア＆天才(陰湿＆陰険）
●悪口、陰口が大好き（Ａ型が３人寄れば他人の悪口、裏表が激しい）
●他人からどう見られているか、体裁をいつも気にしている（「世間体命」、「〜みたい」とよく言う）
●自分の感情をうまく表現できず、コミュニケーション能力に乏しい（同じことを何度も言う、知障）
●表面上意気投合しているようでも、腹は各自バラバラで融通が利かず、頑固(本当は個性・アク強い）
●人を信じられず、疑い深い（自分自身裏表が激しいため、他人に対してもそう思う）
●自ら好んでストイックな生活をし、ストレスを溜めておきながら、他人に猛烈に嫉妬する（不合理な馬鹿）
●執念深く、粘着でしつこい（「一生恨みます」タイプ）
●自分に甘く他人に厳しい（自分のことは棚に上げてまず他人を責める。しかも冷酷）
●男は、女々しいあるいは女の腐ったみたいな考えのやつが多い(他人をけなして相対的に自分の立場を引き上げようとする等）

保守

中間言語方式のスクリプトを作ってみました。
http://www.geocities.co.jp/SiliconValley-Oakland/8522/data/Script.txt


Delphiで言語を作るぞ(ﾟДﾟ )ｺﾞﾙｧ!!
http://pc3.2ch.net/test/read.cgi/tech/1041235271/
でやってたのですが、反応無いので、こっちでも紹介させて下さい。

>>295のギコBASICに応用するの比較的簡単です。

>>292の　ﾙｰﾌﾟ [式] ｶｲｼ は少し苦労すると思います

>>327
DelphiってCのコードも埋め込めるの？

？できないけど？質問の脈略がわからん

>>329
いや、>>327のコードの後半、どうみてもCのコードに見えたから

（＾＾）