run-ubasic.c-Dateireferenz

#include "versions.h"
#include "ubasic.h"
#include <stdio.h>
#include <assert.h>
#include <stdlib.h>

Include-Abhängigkeitsdiagramm für run-ubasic.c:

gehe zum Quellcode dieser Datei

Funktionen
int	ubasic_init (const char *program, int is_ptp)
int	ubasic_run (void)
int	ubasic_linenumber ()
int	main (int argc, char *argv[])

Variablen
static const char	program_static []
int	ubasic_error
const char *	ubasic_errstrings []

Dokumentation der Funktionen

int main	(	int	argc,
		char *	argv[]
	)

Definiert in Zeile 63 der Datei run-ubasic.c.

{
    char *program;
    if (argc == 1) {
        // buildin program
        program = (char *) program_static;
    } else {
        assert(argc == 2);
        FILE * f = fopen(argv[1], "rb");
        if (!f) {
            perror("Error opening file");
            exit(-1);
        }

        fseek(f,0, SEEK_END);
        int sz = ftell(f);
        fseek(f,0, SEEK_SET);
        program = (char *) malloc(sz+3);
        int szr = fread(program,1,sz, f);
        fclose(f);
        if (szr != sz) {
            perror("Error reading program");
        }
        printf("size: %d, read: %d \n", sz, szr); 
        program[sz] = '\n';
        program[sz+1] = 0;
    }

    printf("Program:\n%s\n=====================================\n\n", program);
    ubasic_init(program,0);
    int running = SCRIPT_RUN_RUNNING;
    do {
        running = ubasic_run();
    } while(running == SCRIPT_RUN_RUNNING);

    if (ubasic_error){
        const char *msg;
        if (ubasic_error >= UBASIC_E_ENDMARK) {
            msg = ubasic_errstrings[UBASIC_E_UNKNOWN_ERROR];
        } else {
            msg = ubasic_errstrings[ubasic_error];
        }
        fprintf(stderr, "Ubasic error near Line %d: %s\n", ubasic_linenumber(), msg);
    }

  return 0;
}

int ubasic_init	(	const char *	program,
		int	is_ptp
	)

int ubasic_linenumber

(

)

Definiert in Zeile 173 der Datei ubasic.c.

{
  return tokenizer_line_number();
}

int ubasic_run

(

void

)

Definiert in Zeile 2740 der Datei ubasic.c.

{
    unsigned start_tick = get_tick_count();
    unsigned lines = 0;
    flag_yield = 0;

    do
    {
        if ( ended || tokenizer_finished() )
        {
            DEBUG_PRINTF("uBASIC program finished\n");
            if (ubasic_error)
            {
                // Generate error message
                char buf[100];
                const char *msg;
                if (ubasic_error >= UBASIC_E_ENDMARK)
                {
                    msg = ubasic_errstrings[UBASIC_E_UNKNOWN_ERROR];
                }
                else
                {
                    msg = ubasic_errstrings[ubasic_error];
                }
                sprintf(buf, "uBASIC:%d %s ", ubasic_linenumber(), msg);
                // Show error message
                script_console_add_error((long)buf);
                script_console_add_error(LANG_CONSOLE_TEXT_TERMINATED);
                return SCRIPT_RUN_ERROR;
            }
            // Show 'Finished' message
            script_console_add_error(LANG_CONSOLE_TEXT_FINISHED);
            return SCRIPT_RUN_ENDED;
        }

        line_statement();

        // Return control to CHDK only if external processing required  
        if ( flag_yield )
            return SCRIPT_RUN_RUNNING;

        lines++;
    } while (lines < yield_max_lines && get_tick_count() - start_tick < yield_max_ms);

    return SCRIPT_RUN_RUNNING;
}

Variablen-Dokumentation

const char program_static[]

static

Initialisierung:

=
"sleep 1000\n\
 if a<1 then let a=2\n\
 if b<1 then let b=3\n\
 for s=1 to a\n\
   shoot\n\
   gosub \"incEv\"\n\
 next s\n\
 shoot\n\
end\n\
\n\
:incEv   \n\
\n\
for n=1 to b\n\
  click \"right\"\n\
next n\n\
return\n"

Definiert in Zeile 37 der Datei run-ubasic.c.

int ubasic_error

Definiert in Zeile 148 der Datei ubasic.c.

const char* ubasic_errstrings[]

Definiert in Zeile 149 der Datei ubasic.c.