kolibrios-fun/programs/system/shell/modules/module_script.c

int script_check(char file[]) {
    kol_struct70	k70;
    char		buf[4];

    k70.p00 = 0;
    k70.p04 = 0;
    //k70.p08 = 0;
    k70.p12 = 4; // read 4 bytes
    k70.p16 = (unsigned) buf;
    k70.p20 = 0;
    k70.p21 = file;

    kol_file_70(&k70);

    if ( !strcmp(buf, script_sign) ) // if we found the script signature
        return TRUE;
    else
        return FALSE;
}


int script_run(char exec[], char args[]) {
    kol_struct70	k70;
    kol_struct_BDVK	bdvk;
    unsigned	result, i;
    unsigned	long long filesize, pos;
    char		*buf; // buffer, where script is copied

    k70.p00 = 5;
    k70.p04 = k70.p12 = 0;
    //k70.p08 = 0;
    k70.p16 = (unsigned) &bdvk;
    k70.p20 = 0;
    k70.p21 = exec;

    result = kol_file_70(&k70); // get file info
    if ( 0 != result ) 
        return FALSE;

    filesize = bdvk.p32; // get file size

    buf = malloc(filesize+256); // may fail for over 4Gb file, but impossible case
    if (NULL == buf)
        return FALSE;

    buf[filesize]=0;

    k70.p00 = 0;
    k70.p04 = 0;
    //k70.p08 = 0;
    k70.p12 = filesize;
    k70.p16 = (unsigned) buf;
    k70.p20 = 0;
    k70.p21 = exec;

    result = kol_file_70(&k70); // read file to the buffer
    if ( 0 != result ) 
        {
        free(buf);
        return FALSE;
        }

    pos = 0;

    for (;;) // script processing
    {
        if (pos > filesize)
            break;

        for (i=0;;i++) // reading a string
            {
            if ((0x0A == buf[pos])||(0x0D == buf[pos])||(0 == buf[pos]))
                {
                pos++;
                CMD[i] = '\0';
                break;
                }
            CMD[i] = buf[pos];
            pos++;
            }

        if ( 0 == strlen(CMD) ) // empty string
            continue;

        if ('#' == CMD[0]) // comment
            continue;

        command_execute();

    }

    free(buf);
    return TRUE;
}