123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056105710581059106010611062106310641065106610671068106910701071107210731074107510761077107810791080108110821083108410851086108710881089109010911092109310941095109610971098109911001101110211031104110511061107110811091110111111121113111411151116111711181119112011211122112311241125112611271128112911301131113211331134113511361137113811391140114111421143114411451146114711481149115011511152115311541155115611571158115911601161116211631164116511661167116811691170117111721173117411751176117711781179118011811182118311841185118611871188118911901191119211931194119511961197119811991200120112021203120412051206120712081209121012111212121312141215121612171218121912201221122212231224122512261227122812291230123112321233123412351236123712381239124012411242124312441245124612471248124912501251125212531254125512561257125812591260126112621263126412651266126712681269127012711272127312741275127612771278127912801281128212831284128512861287128812891290129112921293129412951296129712981299130013011302130313041305130613071308130913101311131213131314131513161317131813191320132113221323132413251326132713281329133013311332133313341335133613371338133913401341134213431344134513461347134813491350135113521353135413551356135713581359136013611362136313641365136613671368136913701371137213731374137513761377137813791380138113821383138413851386138713881389139013911392139313941395139613971398139914001401140214031404140514061407140814091410141114121413141414151416141714181419142014211422142314241425142614271428142914301431143214331434143514361437143814391440144114421443144414451446144714481449145014511452145314541455145614571458145914601461146214631464146514661467146814691470147114721473147414751476147714781479148014811482148314841485148614871488148914901491149214931494149514961497149814991500150115021503150415051506150715081509151015111512151315141515151615171518151915201521152215231524152515261527152815291530153115321533153415351536153715381539154015411542154315441545154615471548154915501551155215531554155515561557155815591560156115621563156415651566156715681569157015711572157315741575157615771578157915801581158215831584158515861587158815891590159115921593159415951596159715981599160016011602160316041605160616071608160916101611161216131614161516161617161816191620162116221623162416251626162716281629163016311632163316341635163616371638163916401641164216431644164516461647164816491650165116521653165416551656165716581659166016611662166316641665166616671668166916701671167216731674167516761677167816791680168116821683168416851686168716881689169016911692169316941695169616971698169917001701170217031704170517061707170817091710171117121713171417151716171717181719172017211722172317241725172617271728172917301731173217331734173517361737173817391740174117421743174417451746174717481749175017511752175317541755175617571758175917601761176217631764176517661767176817691770177117721773177417751776177717781779178017811782178317841785178617871788178917901791179217931794179517961797179817991800180118021803180418051806180718081809181018111812181318141815181618171818181918201821182218231824182518261827182818291830183118321833183418351836183718381839184018411842184318441845184618471848184918501851185218531854185518561857185818591860186118621863186418651866186718681869187018711872187318741875187618771878187918801881188218831884188518861887188818891890189118921893189418951896189718981899190019011902190319041905190619071908190919101911191219131914191519161917191819191920192119221923192419251926192719281929193019311932193319341935193619371938193919401941194219431944194519461947194819491950195119521953195419551956195719581959196019611962196319641965196619671968196919701971197219731974 |
- /* wonbe: WonderWitch Basic Environment */
- /* First Created: Nov.3,2000 by Nashiko */
- /* Copyright 2000 (c) by Pie Dey Co.,Ltd. */
- /* This source code is for both VC++6.0 and Turbo C 2.0 */
- #include <stdio.h>
- #include <string.h>
- #include <stdlib.h>
- #ifdef WW
- #include <sys/comm.h>
- #include <sys/process.h>
- #include <sys/fcntl.h>
- #include <sys/bios.h>
- #endif
- #include "keywords.h"
- #ifdef WIN32
- #include "win32text.h"
- #endif
- char myVersion[] = "0.01";
- #ifdef WW
- #define MEMMOVE mymemmove
- #define FAR far
- #else
- #define MEMMOVE mymemmove
- #define FAR
- #endif
- #ifdef WIN32
- typedef unsigned char BYTE;
- #endif
- typedef unsigned short WORD;
- typedef signed short SHORT;
- #define EOL (0x0d)
- #ifdef WIN32
- typedef int BOOL;
- #endif
- #define FALSE 0
- #define TRUE 1
- typedef void (*NEARPROC)();
- #define WORKAREA_SIZE ((WORD)49152)
- #define LINE_SIZE (256)
- /* 実行のみのモードで動いているとき (シリアル経由で端末が居ないとき) */
- BOOL runtimeOnly;
- #ifdef WW
- void fatalExit( const char * msg )
- {
- text_screen_init();
- text_put_string( 0, 0, (char*)msg );
- text_put_string( 0, 3, "PUSH ANY BUTTON" );
- key_wait();
- }
- #endif
- BOOL commonPrint( FILE FAR * fp, const char * msg,... )
- {
- #ifdef WW
- static
- #endif
- char buf[256];
- vsprintf(buf, msg, (va_list)(&msg+1) );
- if( fp != NULL ) {
- int r;
- r = fprintf( fp, buf );
- return r >= 0;
- } else {
- #ifdef WW
- if( runtimeOnly ) {
- fatalExit( buf );
- } else {
- comm_send_string( buf );
- }
- #else
- printf( buf );
- #endif
- }
- return TRUE;
- }
- void consoleInput( BYTE * buf, WORD len )
- {
- #ifdef WW
- WORD cursor;
- if( runtimeOnly ) {
- fatalExit("consoleInput not allowed in runtime mode");
- } else {
- cursor = 0;
- while( TRUE ) {
- int ch;
- ch = comm_receive_char();
- if( ch == 0x0d ) { /* CR */
- buf[cursor] = '\0';
- return;
- }
- if( ch == 0x09 ) { /* TAB */
- goto inputAsChar;
- }
- if( ch == 0x08 ) { /* BS */
- if( cursor > 0 ) {
- cursor--;
- comm_send_char( ch );
- continue;
- }
- }
- if( ch >= 0 && ch < ' ' ) {
- /* ignore it */
- continue;
- }
- if( ch >= ' ' && ch <= 0xfc ) {
- inputAsChar:
- if( cursor < len-1 ) {
- buf[cursor] = ch;
- cursor++;
- comm_send_char( ch );
- }
- }
- }
- }
- #else
- gets(buf);
- #endif
- }
- typedef struct {
- WORD id;
- const BYTE * name;
- } KEYWORDITEM;
- KEYWORDITEM keywords[] = {
- { KEYWORD_IF,"if" },
- { KEYWORD_PRINT,"print" },
- { KEYWORD_LOCATE,"locate" },
- { KEYWORD_CLS,"cls" },
- { KEYWORD_GOTO,"goto" },
- { KEYWORD_GOSUB,"gosub" },
- { KEYWORD_RETURN,"return" },
- { KEYWORD_FOR,"for" },
- { KEYWORD_NEXT,"next" },
- { KEYWORD_END,"end" },
- { KEYWORD_BREAK,"break" },
- { KEYWORD_REM,"rem" },
- { KEYWORD_NEW,"new" },
- { KEYWORD_LIST,"list" },
- { KEYWORD_RUN,"run" },
- { KEYWORD_CONT,"cont" },
- { KEYWORD_SAVE,"save" },
- { KEYWORD_LOAD,"load" },
- { KEYWORD_MERGE,"merge" },
- { KEYWORD_RANDOMIZE,"randomize" },
- { KEYWORD_EXIT,"exit" },
- { KEYWORD_DEBUG,"debug" },
- { KEYWORD_WAITVB,"waitvb" },
- { KEYWORD_FILES,"files" },
- { KEYWORD_AND,"and" },
- { KEYWORD_OR,"or" },
- { KEYWORD_XOR,"xor" },
- { KEYWORD_NOT,"not" },
- { KEYWORD_SCAN,"scan" },
- { KEYWORD_WAIT,"wait" },
- { KEYWORD_RND,"rnd" },
- { KEYWORD_ABS,"abs" },
- { KEYWORD_TICK,"tick" },
- { KEYWORD_SCAN_A,"scan_a" },
- { KEYWORD_SCAN_B,"scan_b" },
- { KEYWORD_SCAN_X1,"scan_x1" },
- { KEYWORD_SCAN_X2,"scan_x2" },
- { KEYWORD_SCAN_X3,"scan_x3" },
- { KEYWORD_SCAN_X4,"scan_x4" },
- { KEYWORD_SCAN_Y1,"scan_y1" },
- { KEYWORD_SCAN_Y2,"scan_y2" },
- { KEYWORD_SCAN_Y3,"scan_y3" },
- { KEYWORD_SCAN_Y4,"scan_y4" },
- { KEYWORD_THEN,"then" },
- { KEYWORD_CHR,"chr" },
- { KEYWORD_TO,"to" },
- { KEYWORD_STEP,"step" },
- { 0,NULL }
- };
- /* インタラクティブモード時の1行バッファ */
- BYTE waRawLine[LINE_SIZE];
- BYTE waCoockedLine[LINE_SIZE];
- /* コードとデータを収める領域 */
- WORD codeTop;
- WORD dataTop;
- /*WORD savedPointer; /* breakしたときの実行中位置 */
- BYTE wa[WORKAREA_SIZE];
- /* グローバル変数領域 */
- #define NUMBER_OF_SIMPLE_VARIABLES (26)
- SHORT globalVariables[NUMBER_OF_SIMPLE_VARIABLES];
- SHORT topLevelVariables[NUMBER_OF_SIMPLE_VARIABLES];
- SHORT * localVariables; /* あるスコープで有効なローカル変数領域を持つ */
- /* 現在実行中の位置に関する情報 */
- /* waかwaCookedLineのどちらかの中を示すかNULL */
- BYTE * executionPointer;
- /* contコマンドで実行を再開するポイント */
- BYTE * resumePointer;
- /* 現在処理中の行番号 (0ならダイレクトモード) */
- WORD currentLineNumber;
- /* gosubとforのためのスタック */
- #define STACK_TYPE_GOSUB 1
- #define STACK_TYPE_FOR 2
- typedef struct {
- WORD type; /* 1==GOSUB, 2==FOR */
- /* for GOSUB and FOR */
- BYTE * returnPointer;
- /* for GOSUB */
- SHORT * lastLocalVariables;
- SHORT simpleVariables[NUMBER_OF_SIMPLE_VARIABLES];
- /* for FOR */
- SHORT * pvar; /* counter variable */
- SHORT limit; /* limit value */
- SHORT step; /* step value */
- } STACK;
- #define STACK_MAX 8
- STACK stacks[STACK_MAX];
- int stackPointer;
- /* インタラクティブモードかインタプリタモードか */
- BOOL bInteractive;
- /* インタプリタ脱出後の振る舞いのリクエスト */
- BOOL bForceToReturnSuper;
- int requestNextAction; /* 以下のいずれか */
- /* 何もせず現状のまま */
- #define REQUEST_NO_ACTION 0
- /* 対話モードへ行け */
- #define REQUEST_INTERACTIVE 1
- /* runLineNumberから実行を開始せよ */
- #define REQUEST_RUN_LINENUMBER 2
- /* waRawLineに入っている文字列をファイル名としてそれを読み込んで実行せよ */
- #define REQUEST_RUN_FILE 3
- /* newせよ */
- #define REQUEST_NEW 4
- /* waRawLineに入っている文字列をファイル名としてそれをロード */
- #define REQUEST_LOAD_FILE 5
- /* WONBEを終了してOSに戻れ */
- #define REQUEST_EXIT_SYSTEM 6
- /* waRawLineに入っている文字列をファイル名としてそれをマージ */
- #define REQUEST_MERGE_FILE 7
- /* REQUEST_RUN_LINENUMBERで実行開始をリクエストする行番号 */
- WORD runLineNumber;
- /* エラー発生 */
- void syntaxError()
- {
- commonPrint(NULL, "Syntax Error in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void divideByZero()
- {
- commonPrint(NULL, "Divide by 0 in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void outOfArraySubscription()
- {
- commonPrint(NULL, "Out of Array Subscription in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void lineNumberNotFound( WORD lineNumber )
- {
- commonPrint(NULL, "Line Number %d not Found in %d\x07\n", lineNumber, currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void stackOverflow()
- {
- commonPrint(NULL, "Stack Overflow in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void stackUnderflow()
- {
- commonPrint(NULL, "Stack Underflow in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void nextWithoutFor()
- {
- commonPrint(NULL, "Next without For in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void outOfMemory()
- {
- commonPrint(NULL, "Out of memory in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void loadError()
- {
- commonPrint(NULL, "File Not Found or Load Error in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void cantContinue()
- {
- commonPrint(NULL, "Can't Continue in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void saveError()
- {
- commonPrint(NULL, "Save Erroor in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- void paramError()
- {
- commonPrint(NULL, "Parameter Erroor in %d\x07\n", currentLineNumber );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- /* ユーティリティ関数達 */
- void mymemmove( BYTE * dst, const BYTE * src, WORD len )
- {
- WORD i;
- if( dst < src ) {
- for( i=0; i<len; i++ ) {
- *dst++ = *src++;
- }
- } else {
- dst += len;
- src += len;
- for( i=0; i<len; i++ ) {
- *--dst = *--src;
- }
- }
- }
- BYTE * skipToEOL( BYTE * p )
- {
- while( TRUE ) {
- if( *p == EOL ) return p;
- switch( *p++ ) {
- case 0x01: /* 次にあるのは10進2バイト整数 */
- case 0x02: /* 次にあるのは16進2バイト整数 */
- p += 2;
- break;
- case 0x03: /* 次にあるのは可変長文字列 0x00でターミネート */
- {
- while( TRUE ) {
- if( *p++ == '\0' ) break;
- }
- }
- break;
- }
- }
- }
- BYTE mytolower( BYTE ch )
- {
- if( ch >= 'A' && ch <= 'Z' ) {
- return ch - 'A' + 'a';
- }
- return ch;
- }
- /* シフトJISの1バイト目かどうか判断。マクロなので副作用に注意 */
- #define IsDBCSLeadByte(ch) ((ch >= 0x81 && ch <= 0x9f) || (ch >= 0xe0 && ch <= 0xfc))
- /* 実行時情報のクリア (contできなくなる) */
- void clearRuntimeInfo()
- {
- memset( globalVariables, 0, sizeof(globalVariables) );
- memset( topLevelVariables, 0, sizeof(topLevelVariables) );
- memset( stacks, 0, sizeof(globalVariables) );
- executionPointer = NULL;
- resumePointer = NULL;
- currentLineNumber = 0;
- localVariables = topLevelVariables;
- stackPointer = 0;
- srand(0);
- }
- /* 行頭の行番号の、実行時の定型処理 */
- void processLineHeader()
- {
- if( !bInteractive ) {
- currentLineNumber = *((WORD *)executionPointer);
- executionPointer += 2;
- } else {
- currentLineNumber = 0;
- }
- }
- /* 行番号処理 */
- BYTE * getLineReferenceFromLineNumber( WORD lineNumber )
- {
- BYTE * p;
- WORD t;
- p = wa;
- while( TRUE ) {
- t = *((WORD *)p);
- if( t == 0 ) {
- return NULL;
- }
- if( lineNumber == t ) {
- return p;
- }
- p += 2;
- p = skipToEOL( p );
- p++;
- }
- }
- BYTE * getInsertionPointFromLineNumber( WORD lineNumber )
- {
- BYTE * p;
- WORD t;
- p = wa;
- while( TRUE ) {
- t = *((WORD *)p);
- if( t == 0 ) {
- return p;
- }
- if( lineNumber <= t ) {
- return p;
- }
- p += 2;
- p = skipToEOL( p );
- p++;
- }
- }
- /* 配列管理 */
- int availableArrayItems()
- {
- return (WORKAREA_SIZE-dataTop) >> 1;
- }
- SHORT * derefArrayItem( int index )
- {
- if( index < 0 || index >= availableArrayItems() ) {
- outOfArraySubscription();
- return NULL; /* そのインデックスは使えません */
- }
- return (SHORT*)(&wa[dataTop+index*2]);
- }
- /* 物理テキストの管理 */
- #define SCREEN_SIZE_X (224/8)
- #define SCREEN_SIZE_Y (144/8)
- WORD screen[SCREEN_SIZE_X][SCREEN_SIZE_Y];
- SHORT xCursor, yCursor;
- #define TABSTOP 8
- void ptextScrollUp()
- {
- int x, y;
- for( y=0; y<SCREEN_SIZE_Y-1; y++ ) {
- for( x=0; x<SCREEN_SIZE_X; x++ ) {
- screen[x][y] = screen[x][y+1];
- }
- }
- for( x=0; x<SCREEN_SIZE_X; x++ ) {
- screen[x][SCREEN_SIZE_Y-1] = ' ';
- }
- for( y=0; y<SCREEN_SIZE_Y; y++ ) {
- for( x=0; x<SCREEN_SIZE_X; x++ ) {
- #ifdef WIN32
- drawChar( x, y, screen[x][y] );
- #endif
- #ifdef WW
- text_put_char( x, y, screen[x][y] );
- #endif
- }
- }
- }
- void ptextNewline()
- {
- xCursor = 0;
- yCursor++;
- if( yCursor >= SCREEN_SIZE_Y ) {
- ptextScrollUp();
- yCursor = SCREEN_SIZE_Y-1;
- }
- }
- void ptextTab()
- {
- if( xCursor+TABSTOP >= SCREEN_SIZE_X ) {
- ptextNewline();
- return;
- }
- xCursor = (xCursor+TABSTOP) / TABSTOP * TABSTOP;
- }
- void ptextString( const BYTE * msg )
- {
- while( TRUE ) {
- WORD ch;
- if( *msg == '\0' ) break;
- if( IsDBCSLeadByte(*msg) ) {
- ch = (msg[0] << 8) + msg[1];
- msg+=2;
- } else {
- ch = msg[0];
- msg++;
- }
- screen[xCursor][yCursor] = ch;
- #ifdef WIN32
- drawChar( xCursor, yCursor, ch );
- #endif
- #ifdef WW
- text_put_char( xCursor, yCursor, ch );
- #endif
- xCursor++;
- if( xCursor >= SCREEN_SIZE_X ) {
- xCursor = 0;
- yCursor++;
- if( yCursor >= SCREEN_SIZE_Y ) {
- ptextScrollUp();
- yCursor = SCREEN_SIZE_Y-1;
- }
- }
- }
- }
- void ptextLocate( int x, int y )
- {
- if( x < 0 ) x = 0;
- if( x >= SCREEN_SIZE_X ) x = SCREEN_SIZE_X-1;
- if( y < 0 ) y = 0;
- if( y >= SCREEN_SIZE_Y ) y = SCREEN_SIZE_Y-1;
- xCursor = x;
- yCursor = y;
- }
- void ptextCLS()
- {
- int x,y;
- xCursor = 0;
- yCursor = 0;
- #ifdef WIN32
- clearText();
- #endif
- #ifdef WW
- for( y=0; y<SCREEN_SIZE_Y; y++ ) {
- text_fill_char(0, y, SCREEN_SIZE_X, ' ' );
- }
- #endif
- for( y=0; y<SCREEN_SIZE_Y; y++ ) {
- for( x=0; x<SCREEN_SIZE_X; x++ ) {
- screen[x][y] = ' ';
- }
- }
- }
- /* 中間コードからソーステキストに戻しながら出力(listとsaveで使う) */
- BOOL sourceDump( FILE FAR * fp, WORD from, WORD to )
- {
- BYTE * p;
- BOOL b;
- p = getInsertionPointFromLineNumber( from );
- while( TRUE ) {
- WORD lineNumber;
- lineNumber = *((WORD*)p);
- if( lineNumber == 0 ) break;
- if( lineNumber > to ) break;
- p += 2;
- b = commonPrint(fp,"%d",lineNumber);
- if( b == FALSE ) return FALSE;
- while( TRUE ) {
- if( *p == EOL ) {
- p++;
- break;
- }
- if( *p == 0x01 ) {
- WORD n;
- p++;
- n = *((WORD*)p);
- p += 2;
- b = commonPrint(fp,"%d",n);
- if( b == FALSE ) return FALSE;
- } else if( *p == 0x02 ) {
- WORD n;
- p++;
- n = *((WORD*)p);
- p += 2;
- b = commonPrint(fp,"0x%x",n);
- if( b == FALSE ) return FALSE;
- } else if( *p == 0x03 ) {
- p++;
- b = commonPrint(fp,"\"%s\"",p);
- if( b == FALSE ) return FALSE;
- p += strlen(p)+1;
- } else if( *p == '\'' ) { /* コメントのあとはそのまま行末まで転送 */
- while( TRUE ) {
- if( *p == EOL ) break;
- b = commonPrint(fp,"%c",*p);
- if( b == FALSE ) return FALSE;
- p++;
- }
- } else if( *p >= 0x80 ) {
- KEYWORDITEM * k = keywords;
- while( TRUE ) {
- if( k->id == 0 ) {
- b = commonPrint(fp,"[?%x?]", *p );
- if( b == FALSE ) return FALSE;
- p++;
- break;
- }
- if( k->id == *p ) {
- b = commonPrint(fp, k->name );
- if( b == FALSE ) return FALSE;
- p++;
- if( k->id == KEYWORD_REM ) { /* コメントのあとはそのまま行末まで転送 */
- while( TRUE ) {
- if( *p == EOL ) break;
- b = commonPrint(fp,"%c",*p);
- if( b == FALSE ) return FALSE;
- p++;
- }
- }
- break;
- }
- k++;
- }
- } else {
- b = commonPrint(fp,"%c",*p);
- if( b == FALSE ) return FALSE;
- p++;
- }
- }
- b = commonPrint(fp,"\n");
- if( b == FALSE ) return FALSE;
- }
- return TRUE;
- }
- /* 式計算機能 */
- SHORT expr(); /* forward decl */
- SHORT * getArrayReference()
- {
- BYTE ch;
- int index;
- SHORT * pvar;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != '(' && ch != '[' ) {
- syntaxError();
- return NULL;
- }
- index = expr();
- if( bForceToReturnSuper ) return NULL;
- pvar = derefArrayItem( index );
- if( pvar == NULL ) return NULL;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != ')' && ch != ']' ) {
- syntaxError();
- return NULL;
- }
- return pvar;
- }
- SHORT calcValue()
- {
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch >= 'A' && ch <= 'Z' ) {
- return globalVariables[ch-'A'];
- }
- if( ch >= 'a' && ch <= 'z' ) {
- return localVariables[ch-'a'];
- }
- if( ch == '@' ) {
- SHORT * pvar;
- pvar = getArrayReference();
- if( pvar == NULL ) return -1;
- return *pvar;
- }
- switch( ch ) {
- case 0x01: /* 次にあるのは10進2バイト整数 */
- case 0x02: /* 次にあるのは16進2バイト整数 */
- {
- SHORT t;
- t = *((SHORT *)executionPointer);
- executionPointer += 2;
- return t;
- }
- case '(':
- {
- SHORT t;
- t = expr();
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != ')' ) {
- syntaxError();
- return -1;
- }
- return t;
- }
- case '-':
- return -calcValue();
- case KEYWORD_NOT:
- return ~calcValue();
- case KEYWORD_SCAN:
- #ifdef WW
- return key_press_check();
- #else
- return win32_scan();
- #endif
- case KEYWORD_WAIT:
- #ifdef WW
- return key_wait();
- #else
- return win32_wait();
- #endif
- case KEYWORD_RND:
- {
- SHORT t;
- t = calcValue();
- return rand() % t;
- }
- case KEYWORD_ABS:
- {
- SHORT t;
- t = calcValue();
- if( t < 0 ) return -t;
- return t;
- }
- case KEYWORD_TICK:
- #ifdef WW
- return sys_get_tick_count();
- #else
- return win32_get_tick_count();
- #endif
- case KEYWORD_SCAN_A:
- return 4;
- case KEYWORD_SCAN_B:
- return 8;
- case KEYWORD_SCAN_X1:
- return 16;
- case KEYWORD_SCAN_X2:
- return 32;
- case KEYWORD_SCAN_X3:
- return 64;
- case KEYWORD_SCAN_X4:
- return 128;
- case KEYWORD_SCAN_Y1:
- return 256;
- case KEYWORD_SCAN_Y2:
- return 512;
- case KEYWORD_SCAN_Y3:
- return 1024;
- case KEYWORD_SCAN_Y4:
- return 2048;
- }
- syntaxError();
- return -1;
- }
- SHORT expr()
- {
- SHORT acc;
- acc = calcValue();
- if( bForceToReturnSuper ) return -1;
- while( TRUE ) {
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- switch( ch ) {
- case '+':
- acc = acc + calcValue();
- break;
- case '-':
- acc = acc - calcValue();
- break;
- case '*':
- acc = acc * calcValue();
- break;
- case '/':
- {
- SHORT t;
- t = calcValue();
- if( t == 0 ) {
- divideByZero();
- } else {
- acc = acc / t;
- }
- }
- break;
- case KEYWORD_AND:
- acc = acc & calcValue();
- break;
- case KEYWORD_OR:
- acc = acc | calcValue();
- break;
- case KEYWORD_XOR:
- acc = acc ^ calcValue();
- break;
- case '>':
- {
- BYTE ch2;
- while( TRUE ) {
- ch2 = *executionPointer++;
- if( ch2 != ' ' && ch2 != '\t' ) break;
- }
- if( ch2 == '=' ) {
- acc = (acc >= calcValue());
- } else {
- executionPointer--;
- acc = (acc > calcValue());
- }
- }
- break;
- case '<':
- {
- BYTE ch2;
- while( TRUE ) {
- ch2 = *executionPointer++;
- if( ch2 != ' ' && ch2 != '\t' ) break;
- }
- if( ch2 == '=' ) {
- acc = (acc <= calcValue());
- } else if( ch2 == '>' ) {
- acc = (acc != calcValue());
- } else {
- executionPointer--;
- acc = (acc < calcValue());
- }
- }
- break;
- case '=':
- acc = (acc == calcValue());
- break;
- default:
- executionPointer--; /* unget it */
- return acc;
- }
- if( bForceToReturnSuper ) return -1;
- }
- }
- /* 各ステートメント実行処理メイン */
- void st_assignment( SHORT * pvar ) /* 代入ステートメントだけ例外的に処理する */
- {
- BYTE ch;
- SHORT val;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != '=' ) {
- syntaxError();
- return;
- }
- val = expr();
- if( bForceToReturnSuper ) return;
- *pvar = val;
- }
- void st_if()
- {
- SHORT val;
- BYTE ch;
- val = expr();
- if( bForceToReturnSuper ) return;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != KEYWORD_THEN ) {
- syntaxError();
- return;
- }
- if( val != 0 ) {
- return; /* thenの次から継続実行する */
- }
- /* 条件不成立につき、行末まで読み飛ばす */
- executionPointer = skipToEOL( executionPointer );
- }
- void printOrDebug( BOOL bPrint )
- {
- WORD lastChar;
- BYTE ch;
- lastChar = '\0';
- while( TRUE ) {
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == EOL || ch == ':' || ch == '\'' ) {
- executionPointer--; /* unget it */
- break;
- }
- lastChar = ch;
- switch( ch ) {
- case 0x03:
- if( bPrint ) {
- ptextString( executionPointer );
- } else {
- commonPrint( NULL, executionPointer );
- }
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch == '\0' ) break;
- }
- break;
- case ';':
- break;
- case ',':
- if( bPrint ) {
- ptextTab();
- } else {
- commonPrint( NULL, "\t" );
- }
- break;
- case KEYWORD_CHR:
- {
- WORD val;
- #ifdef WW
- static
- #endif
- BYTE str[3];
- val = expr();
- if( bForceToReturnSuper ) return;
- if( val >= 0x100 ) {
- str[0] = (val >> 8);
- str[1] = (val & 0xff);
- str[2] = '\0';
- } else {
- str[0] = (BYTE)val;
- str[1] = '\0';
- }
- if( bPrint ) {
- ptextString( str );
- } else {
- commonPrint( NULL, str );
- }
- }
- break;
- default:
- {
- WORD val;
- #ifdef WW
- static
- #endif
- BYTE str[10];
- executionPointer--; /* unget it */
- val = expr();
- if( bForceToReturnSuper ) return;
- sprintf( str, "%d", val );
- if( bPrint ) {
- ptextString( str );
- } else {
- commonPrint( NULL, str );
- }
- }
- break;
- }
- }
- if( lastChar != ';' && lastChar != ',' ) {
- if( bPrint ) {
- ptextNewline();
- } else {
- commonPrint( NULL, "\r\n" );
- }
- }
- }
- void st_print()
- {
- printOrDebug( TRUE );
- }
- void st_debug()
- {
- printOrDebug( FALSE );
- }
- void st_locate()
- {
- SHORT x, y;
- BYTE ch;
- x = expr();
- if( bForceToReturnSuper ) return;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != ',' ) {
- syntaxError();
- return;
- }
- y = expr();
- if( bForceToReturnSuper ) return;
- ptextLocate( x, y );
- }
- void st_cls()
- {
- ptextCLS();
- }
- void st_goto()
- {
- SHORT val;
- BYTE * t;
- val = expr();
- if( bForceToReturnSuper ) return;
- t = getLineReferenceFromLineNumber( val );
- if( t == NULL ) {
- lineNumberNotFound( val );
- return;
- }
- executionPointer = t;
- bInteractive = FALSE;
- processLineHeader();
- }
- void st_gosub()
- {
- SHORT val;
- BYTE * t;
- val = expr();
- if( bForceToReturnSuper ) return;
- t = getLineReferenceFromLineNumber( val );
- if( t == NULL ) {
- lineNumberNotFound( val );
- return;
- }
- if( stackPointer+1 >= STACK_MAX ) {
- stackOverflow();
- return;
- }
- stacks[stackPointer].type = STACK_TYPE_GOSUB;
- stacks[stackPointer].returnPointer = executionPointer;
- stacks[stackPointer].lastLocalVariables = localVariables;
- localVariables = stacks[stackPointer].simpleVariables;
- stackPointer++;
- executionPointer = t;
- bInteractive = FALSE;
- processLineHeader();
- }
- void st_return()
- {
- while( TRUE ) {
- if( stackPointer == 0 ) {
- stackUnderflow();
- return;
- }
- stackPointer--;
- if( stacks[stackPointer].type == STACK_TYPE_GOSUB ) break;
- }
- executionPointer = stacks[stackPointer].returnPointer;
- if( executionPointer >= waCoockedLine && executionPointer < waCoockedLine+LINE_SIZE ) {
- bInteractive = TRUE;
- }
- localVariables = stacks[stackPointer].lastLocalVariables;
- }
- void st_for()
- {
- BYTE ch;
- SHORT from, to, step;
- SHORT * pvar;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == '@' ) { /* is it l-value? */
- pvar = getArrayReference();
- if( pvar == NULL ) return;
- } else if( ch >= 'A' && ch <= 'Z' ) {
- pvar = &globalVariables[ch-'A'];
- } else if( ch >= 'a' && ch <= 'z' ) {
- pvar = &localVariables[ch-'a'];
- } else {
- syntaxError();
- return;
- }
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != '=' ) {
- syntaxError();
- return;
- }
- from = expr();
- if( bForceToReturnSuper ) return;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != KEYWORD_TO ) {
- syntaxError();
- return;
- }
- to = expr();
- if( bForceToReturnSuper ) return;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == KEYWORD_STEP ) {
- step = expr();
- if( bForceToReturnSuper ) return;
- } else {
- step = 1;
- executionPointer--; /* unget it */
- }
- if( stackPointer+1 >= STACK_MAX ) {
- stackOverflow();
- return;
- }
- stacks[stackPointer].type = STACK_TYPE_FOR;
- stacks[stackPointer].returnPointer = executionPointer;
- *pvar = from;
- stacks[stackPointer].pvar = pvar;
- stacks[stackPointer].limit = to;
- stacks[stackPointer].step = step;
- stackPointer++;
- }
- void st_next()
- {
- if( stackPointer == 0 ) {
- nextWithoutFor();
- return;
- }
- if( stacks[stackPointer-1].type != STACK_TYPE_FOR ) {
- nextWithoutFor();
- return;
- }
- if( stacks[stackPointer-1].limit == *(stacks[stackPointer-1].pvar) ) {
- /* loop done */
- stackPointer--;
- return;
- }
- /* count step and loop again */
- *(stacks[stackPointer-1].pvar) += stacks[stackPointer-1].step;
- executionPointer = stacks[stackPointer-1].returnPointer;
- }
- /* endステートメント: 正常な終了 */
- void st_end()
- {
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- }
- /* breakステートメント: デバッグ用の中断 */
- void st_break()
- {
- commonPrint(NULL, "Break in %d\x07\n", currentLineNumber);
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- resumePointer = executionPointer; /* contする場所はbreakの次。breakのみの例外処理 */
- }
- void st_rem()
- {
- executionPointer = skipToEOL( executionPointer );
- }
- void st_new()
- {
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_NEW;
- }
- void st_list()
- {
- WORD from, to;
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == ':' || ch == EOL || ch == '\'' ) {
- executionPointer--; /* unget */
- from = 1;
- to = 32767;
- } else {
- if( ch == 0x01 ) {
- from = *((WORD*)executionPointer);
- executionPointer += 2;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- } else {
- from = 1;
- }
- if( ch != '-' ) {
- executionPointer--; /* unget */
- to = from;
- } else {
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == 0x01 ) {
- to = *((WORD*)executionPointer);
- executionPointer += 2;
- } else {
- executionPointer--; /* unget */
- to = 32767;
- }
- }
- }
- sourceDump( NULL, from, to ); /* リスト出力の本体を呼ぶ */
- }
- void st_run()
- {
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == ':' || ch == EOL || ch == '\'' ) {
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_RUN_LINENUMBER;
- runLineNumber = 0;
- } else if( ch == 0x03 ) {
- strcpy( waRawLine, executionPointer );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_RUN_FILE;
- } else {
- SHORT val;
- executionPointer--; /* unget it */
- val = expr();
- if( bForceToReturnSuper ) return;
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_RUN_LINENUMBER;
- runLineNumber = val;
- }
- }
- void st_cont()
- {
- if( resumePointer == NULL ) {
- cantContinue();
- return;
- }
- executionPointer = resumePointer;
- bInteractive = FALSE;
- }
- void st_save()
- {
- BYTE ch;
- BOOL b;
- FILE FAR * fp;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch != 0x03 ) {
- syntaxError();
- return;
- }
- fp = fopen( executionPointer, "w" );
- if( fp == NULL ) {
- saveError();
- return;
- }
- b = sourceDump( fp, 1, 32767 );
- fclose( fp );
- if( b == FALSE ) {
- saveError();
- remove( executionPointer );
- return;
- }
- executionPointer += strlen(executionPointer)+1;
- }
- void st_load()
- {
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == 0x03 ) {
- strcpy( waRawLine, executionPointer );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_LOAD_FILE;
- } else {
- syntaxError();
- return;
- }
- }
- void st_merge()
- {
- BYTE ch;
- while( TRUE ) {
- ch = *executionPointer++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == 0x03 ) {
- strcpy( waRawLine, executionPointer );
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_MERGE_FILE;
- } else {
- syntaxError();
- return;
- }
- }
- void st_randomize()
- {
- SHORT val;
- val = expr();
- srand( val );
- }
- void st_exit()
- {
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_EXIT_SYSTEM;
- }
- void st_waitvb()
- {
- SHORT val;
- val = expr();
- if( bForceToReturnSuper ) return;
- if( val < 0 || val > 750 ) {
- paramError();
- return;
- }
- #ifdef WW
- sys_wait( val );
- #endif
- #ifdef WIN32
- win32_sys_wait( val );
- #endif
- }
- void st_files()
- {
- #ifdef WIN32
- commonPrint( NULL, "files statement not implemented in Win32\x07\n" );
- #endif
- #ifdef WW
- int i;
- struct stat statbuf;
- int nent;
- /*chdir("/rom0");*/
- nent = nument(NULL);
- for (i = 0; i < nent; i++) {
- int result = getent(NULL, i, &statbuf);
- if (result == E_FS_SUCCESS) {
- if (statbuf.count != -1) {
- /* Freya OSのバグ? 回避コード */
- int p, q;
- p = 0;
- q = 0;
- waRawLine[p++] = '"';
- while( TRUE ) {
- if( statbuf.name[q] == '\0' ) break;
- waRawLine[p++] = statbuf.name[q++];
- }
- waRawLine[p++] = '"';
- waRawLine[p++] = ',';
- q = 0;
- while( TRUE ) {
- if( statbuf.info[q] == '\0' ) break;
- waRawLine[p++] = statbuf.info[q++];
- }
- waRawLine[p++] = '\0';
- commonPrint( NULL, "%s,%ld,%d\n", waRawLine, statbuf.len, statbuf.count );
- }
- } else {
- commonPrint( NULL, "*File Access Error\x07\n" );
- }
- }
- #endif
- }
- /* 行エディタ */
- void editLine()
- {
- WORD wishLineNumber;
- BYTE ch, * p, * target;
- /* トリックに注意! */
- /* 行頭の整数を、行番号に変換するには結果的に先頭の0x01を取り去るだけで良い */
- MEMMOVE( waCoockedLine, waCoockedLine+1, LINE_SIZE-1 );
- /* トリック終わり。この時点でwsCoockedLineは、プログラム内部表現の形式に一致している */
- wishLineNumber = *((WORD*)waCoockedLine);
- p = waCoockedLine+2;
- target = getLineReferenceFromLineNumber( wishLineNumber );
- while( TRUE ) {
- ch = *p++;
- if( ch != ' ' && ch != '\t' ) break;
- }
- if( ch == EOL ) {
- WORD delta;
- BYTE * from;
- /* removing the line */
- if( target == NULL ) {
- lineNumberNotFound( wishLineNumber );
- return;
- }
- from = skipToEOL(target)+1;
- delta = from-target;
- MEMMOVE( target, from, (WORD)(dataTop-(from-wa)) );
- dataTop -= delta;
- clearRuntimeInfo();
- } else {
- WORD len;
- len = skipToEOL(waCoockedLine+2)-waCoockedLine+1;
- if( target == NULL ) {
- /* insert new line */
- /*const BYTE * to;*/
- if( dataTop + len >= WORKAREA_SIZE ) {
- outOfMemory();
- return;
- }
- target = getInsertionPointFromLineNumber( wishLineNumber );
- /* to = skipToEOL(target)+1; */
- MEMMOVE( target+len, target, (WORD)(dataTop-(target-wa)) );
- MEMMOVE( target, waCoockedLine, len );
- dataTop += len;
- clearRuntimeInfo();
- } else {
- /* replace line */
- WORD lost;
- BYTE * nextline;
- int delta;
- nextline = skipToEOL(target)+1;
- lost = nextline-target;
- delta = len-lost;
- if( dataTop + delta >= WORKAREA_SIZE ) {
- outOfMemory();
- return;
- }
- MEMMOVE( nextline+delta, nextline, (WORD)(dataTop-(nextline-wa)) );
- MEMMOVE( target, waCoockedLine, len );
- dataTop += delta;
- clearRuntimeInfo();
- }
- }
- }
- /* 中間言語に翻訳する */
- BOOL convertInternalCode( BYTE * waCoockedLine, const BYTE * waRawLine )
- {
- const BYTE * src = waRawLine;
- BYTE * dst = waCoockedLine;
- while( TRUE ) {
- if( *src == '\0' ) break;
- if( *src == ' ' || *src == '\t' ) {
- *dst++ = *src++;
- } else if( *src < 0x20 ) {
- syntaxError();
- return FALSE;
- } else if( *src >= '0' && *src <= '9' ) {
- if( *src == '0' && *(src+1) == 'x' ) {
- WORD acc;
- /* 16進のとき */
- *dst++ = 0x02;
- acc = 0;
- src += 2;
- while( TRUE ) {
- if( *src >= '0' && *src <= '9' ) {
- acc *= 16;
- acc += *src - '0';
- } else if( *src >= 'a' && *src <= 'f' ) {
- acc *= 16;
- acc += *src - 'a' + 10;
- } else if( *src >= 'A' && *src <= 'F' ) {
- acc *= 16;
- acc += *src - 'A' + 10;
- } else {
- break;
- }
- src++;
- }
- *((WORD*)dst) = acc;
- dst += 2;
- } else {
- SHORT acc;
- /* 10進のとき */
- *dst++ = 0x01;
- acc = *src-'0';
- src++;
- while( TRUE ) {
- if( *src < '0' || *src > '9' ) break;
- acc *= 10;
- acc += *src - '0';
- src++;
- }
- if( acc < 0 ) { /* overflow case */
- syntaxError();
- return FALSE;
- }
- *((SHORT*)dst) = acc;
- dst += 2;
- }
- } else if( (*src >= 'a' && *src <= 'z') || (*src >= 'A' && *src <= 'Z') ) {
- BYTE next = *(src+1);
- if( (next >= 'a' && next <= 'z') || (next >= 'A' && next <= 'Z') ) {
- WORD id;
- KEYWORDITEM * p = keywords;
- id = 0;
- while( TRUE ) {
- const BYTE * ps, * pd;
- if( p->id == 0 ) {
- syntaxError();
- return FALSE;
- }
- ps = src;
- pd = p->name;
- while( TRUE ) {
- if( *pd == '\0' ) {
- id = p->id;
- src = ps;
- break;
- }
- if( mytolower(*ps) != mytolower(*pd) ) break;
- ps++;
- pd++;
- }
- if( id != 0 ) break;
- p++;
- }
- *dst++ = (BYTE)id;
- if( id == KEYWORD_REM ) {
- /* コメント文の場合は行末まで何もかもそのままコピーする */
- while( TRUE ) {
- if( *src == '\0' ) break;
- *dst++ = *src++;
- }
- }
- } else {
- *dst++ = *src++;
- }
- } else if( *src == '\'' ) {
- *dst++ = *src++;
- /* コメント文の場合は行末まで何もかもそのままコピーする */
- while( TRUE ) {
- if( *src == '\0' ) break;
- *dst++ = *src++;
- }
- } else if( *src == '"' ) {
- src++;
- *dst++ = 0x03;
- while( TRUE ) {
- if( *src == '\0' ) {
- syntaxError();
- return FALSE;
- }
- if( *src == '"' ) break;
- *dst++ = *src++;
- }
- *dst++ = '\0';
- src++;
- } else {
- *dst++ = *src++;
- }
- }
- *dst = EOL;
- return TRUE;
- }
- /* ステートメント実行処理関数のリスト */
- NEARPROC statements[KEYWORDS_STATEMENT_TO-KEYWORDS_STATEMENT_FROM+1] = {
- st_if,
- st_print,
- st_locate,
- st_cls,
- st_goto,
- st_gosub,
- st_return,
- st_for,
- st_next,
- st_end,
- st_break,
- st_rem,
- st_new,
- st_list,
- st_run,
- st_cont,
- st_save,
- st_load,
- st_merge,
- st_randomize,
- st_exit,
- st_debug,
- st_waitvb,
- st_files
- };
- void interpreterMain()
- {
- WORD keyscan;
- while( TRUE ) {
- /* 行の開始 */
- processLineHeader();
- /* 最後に達してしまった? */
- if( !bInteractive && currentLineNumber == 0 ) {
- bForceToReturnSuper = TRUE;
- requestNextAction = REQUEST_INTERACTIVE;
- return;
- }
- while( TRUE ) {
- BYTE ch;
- if( !bInteractive ) {
- resumePointer = executionPointer; /* contする場所を記憶する */
- }
- #ifdef WW
- keyscan = key_press_check();
- #else
- keyscan = win32_scan();
- #endif
- if( keyscan & 0x02 ) {
- st_break();
- return;
- }
- ch = *executionPointer++;
- if( ch == EOL ) break;
- if( ch == ' ' || ch == '\t' || ch == ':' ) {
- /* nop */
- } else if( ch == '\'' ) { /* comment */
- st_rem();
- } else if( ch == '@' ) { /* is it l-value? */
- SHORT * pvar;
- pvar = getArrayReference();
- if( pvar == NULL ) return;
- st_assignment( pvar );
- } else if( ch >= 'A' && ch <= 'Z' ) {
- st_assignment( &globalVariables[ch-'A'] );
- } else if( ch >= 'a' && ch <= 'z' ) {
- st_assignment( &localVariables[ch-'a'] );
- } else if( ch >= KEYWORDS_STATEMENT_FROM && ch <= KEYWORDS_STATEMENT_TO ) {
- (*(statements[ch-KEYWORDS_STATEMENT_FROM]))();
- } else {
- syntaxError();
- }
- if( bForceToReturnSuper ) return;
- }
- if( bInteractive ) return;
- }
- }
- void interactiveMain( FILE FAR * fp )
- {
- if( fp == NULL ) {
- commonPrint(NULL,"*Ready\n");
- }
- while( TRUE ) {
- BOOL b;
- if( fp == NULL ) {
- consoleInput( waRawLine, LINE_SIZE );
- } else {
- char FAR * r;
- char * p;
- r = fgets( waRawLine, LINE_SIZE, fp );
- if( r == NULL ) break;
- p = waRawLine;
- while( TRUE ) {
- if( *p == '\0' ) break;
- if( *p == '\n' || *p == '\r') {
- *p = '\0';
- break;
- }
- p++;
- }
- }
- #ifdef WW
- if( fp == NULL ) {
- commonPrint( NULL, "\r\n" );
- }
- #endif
- /* 中間言語に翻訳する */
- b = convertInternalCode( waCoockedLine, waRawLine );
- if( b == FALSE ) {
- bForceToReturnSuper = FALSE;
- continue;
- }
- /* 数値で開始されているか? */
- if( waCoockedLine[0] == 0x01 ) {
- /* 行エディタを呼び出す */
- editLine();
- } else {
- /* その行を実行する */
- executionPointer = waCoockedLine;
- interpreterMain();
- }
- if( bForceToReturnSuper ) return;
- }
- }
- /* プログラムの実行開始 */
- void do_run( WORD runLineNumber )
- {
- BYTE * target;
- if( runLineNumber == 0 ) {
- target = &wa[codeTop];
- } else {
- target = getLineReferenceFromLineNumber( runLineNumber );
- if( target == NULL ) {
- lineNumberNotFound( runLineNumber );
- return;
- }
- }
- clearRuntimeInfo();
- bInteractive = FALSE;
- executionPointer = target;
- }
- void do_new()
- {
- clearRuntimeInfo();
- bInteractive = TRUE;
- codeTop = 0;
- wa[0] = 0;
- wa[1] = 0;
- wa[2] = EOL;
- dataTop = 3;
- }
- BOOL do_merge( const BYTE * filename )
- {
- FILE FAR * fp;
- fp = fopen( filename, "r" );
- if( fp == NULL ) {
- loadError();
- return FALSE;
- }
- interactiveMain( fp );
- fclose( fp );
- if( bForceToReturnSuper ) return FALSE;
- return TRUE;
- }
- void superMain()
- {
- while( TRUE ) {
- BOOL b;
- bForceToReturnSuper = FALSE;
- switch( requestNextAction ) {
- case REQUEST_INTERACTIVE:
- bInteractive = TRUE;
- break;
- case REQUEST_RUN_LINENUMBER:
- do_run( runLineNumber );
- break;
- case REQUEST_RUN_FILE:
- do_new();
- b = do_merge( waRawLine );
- if( b ) {
- do_run( 0 );
- }
- break;
- case REQUEST_LOAD_FILE:
- do_new();
- do_merge( waRawLine );
- break;
- case REQUEST_MERGE_FILE:
- do_merge( waRawLine );
- break;
- case REQUEST_NEW:
- do_new();
- break;
- case REQUEST_EXIT_SYSTEM:
- return;
- }
- requestNextAction = REQUEST_NO_ACTION;
- if( bInteractive ) {
- if( runtimeOnly ) return; /* ランタイムモードのときは絶対にインタラクティブモードに行かない */
- interactiveMain( NULL );
- } else {
- interpreterMain();
- }
- bForceToReturnSuper = FALSE;
- }
- }
- #ifdef WW
- BOOL entranceUI()
- {
- #define MAX_ENT 15
- /* この関数内のstaticはTurbo-C 2.0のSS!=DS問題を回避するために必要なもの */
- static int i;
- struct stat statbuf;
- static char names[MAX_ENT][MAXFNAME];
- static int nent;
- static int c, select;
- ptextCLS();
- ptextString( "ワンべぇ V" );
- ptextString( myVersion );
- ptextNewline();
- ptextString( "↑↓Aでファイル選択 Y2で開発環境 STARTで中止" );
- c = 0;
- nent = nument(NULL);
- for (i = 0; i < nent; i++) {
- int result;
- if( c >= MAX_ENT ) break;
- result = getent(NULL, i, &statbuf);
- if (result == E_FS_SUCCESS) {
- if (statbuf.count != -1) {
- /* Freya OSのバグ? 回避コード */
- {
- static int p;
- int q;
- p = 0;
- q = 0;
- waRawLine[p++] = statbuf.info[q++];
- waRawLine[p++] = statbuf.info[q++];
- while( TRUE ) {
- if( statbuf.info[q] == '\0' ) break;
- waRawLine[p++] = statbuf.info[q++];
- }
- waRawLine[p++] = '\0';
- ptextLocate(1,c+2);
- ptextString( waRawLine );
- }
- {
- static int r;
- int q;
- q = 0;
- r = 0;
- while( TRUE ) {
- if( statbuf.name[q] == '\0' ) break;
- names[c][r++] = statbuf.name[q++];
- }
- names[c][r] = '\0';
- }
- c++;
- }
- }
- }
- /* 選択の開始 */
- select = 0;
- while( TRUE ) {
- int key;
- for( i=0; i<c; i++ ) {
- ptextLocate(0,i+2);
- ptextString( " " );
- }
- ptextLocate(0,select+2);
- ptextString( "→" );
- key = key_wait();
- /* START */
- if( key & 0x02 ) return FALSE; /* 中止 */
- /* A */
- if( key & 0x04 ) {
- strcpy( waRawLine, names[select] );
- requestNextAction = REQUEST_RUN_FILE;
- runtimeOnly = TRUE;
- return TRUE;
- }
- /* B */
- if( key & 0x08 ) return FALSE; /* 中止 */
- /* X1 or Y1 */
- if( (key & 0x10) != 0 || (key & 0x100) != 0 ) {
- select = select-1;
- if( select < 0 ) {
- select = c-1;
- }
- }
- /* X3 or Y3 */
- if( (key & 0x40) != 0 || (key & 0x400) != 0 ) {
- select = select+1;
- if( select >= c ) {
- select = 0;
- }
- }
- if( (key & 0x200) != 0 ) {
- return TRUE;
- }
- }
- }
- #endif
- int main( int argc, char *argv[] )
- {
- #ifdef WW
- BOOL b;
- #endif
- runtimeOnly = FALSE;
- requestNextAction = REQUEST_NO_ACTION;
- #ifdef WIN32
- createText();
- #endif
- #ifdef WW
- text_screen_init();
- b = entranceUI();
- if( b == FALSE ) return 0;
- if( !runtimeOnly ) {
- comm_set_baudrate(1);
- comm_open();
- }
- #endif
- ptextCLS();
- if( requestNextAction == REQUEST_NO_ACTION ) {
- do_new();
- }
- if( !runtimeOnly ) {
- commonPrint(NULL,"ワンべぇ WonderWitch Tiny BASIC Environment Ver %s\n",myVersion);
- commonPrint(NULL,"Copyright 2000 (c) by Pie Dey Co.,Ltd.\n");
- }
- superMain();
- #ifdef WIN32
- deleteText();
- #endif
- #ifdef WW
- if( !runtimeOnly ) {
- comm_close();
- }
- #endif
- return 0;
- }
- /* end of wonbe.c */
|