Subversion Repositories Kolibri OS

    char		buf[4];

    k70.p00 = 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

    else

        return FALSE;

}

    kol_struct_BDVK	bdvk;

    unsigned	result, i;

    unsigned	long long filesize, pos;

    char		*buf; // buffer, where script is copied

    k70.p00 = 5;

    //k70.p08 = 0;

    k70.p16 = (unsigned) &bdvk;

    k70.p20 = 0;

    k70.p21 = exec;

    result = kol_file_70(&k70); // get file info

        return FALSE;

    filesize = bdvk.p32; // get file size

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

        return FALSE;

    buf[filesize]=0;

    k70.p00 = 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

        {

        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

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

        command_execute();

    }

    free(buf);

}