void SUB_GL_SCAN_HEADER(){
qbs *tqbs;
ptrszint tmp_long;
int32 tmp_fileno;
uint32 qbs_tmp_base=qbs_tmp_list_nexti;
uint8 *tmp_mem_static_pointer=mem_static_pointer;
uint32 tmp_cmem_sp=cmem_sp;
#include "data129.txt"
mem_lock *sf_mem_lock;
new_mem_lock();
sf_mem_lock=mem_lock_tmp;
sf_mem_lock->type=3;
if (is_error_pending()) goto exit_subfunc;
S_34701:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,69,"opengl_methods.bas");if(r)goto S_34701;}
do{
*_SUB_GL_SCAN_HEADER_LONG_HK=func_freefile();
if(!qbevent)break;evnt(25753,69,"opengl_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_kit.bas",59), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_HK,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,69,"opengl_methods.bas");}while(r);
}
S_34705:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,70,"opengl_methods.bas");if(r)goto S_34705;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4067;
sub_file_print(tmp_fileno,qbs_new_txt_len("DECLARE LIBRARY",15), 0, 0, 1);
if (is_error_pending()) goto skip4067;
skip4067:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,70,"opengl_methods.bas");}while(r);
}
do{
*_SUB_GL_SCAN_HEADER_LONG_D= 0 ;
if(!qbevent)break;evnt(25753,72,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,72,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_H=func_freefile();
if(!qbevent)break;evnt(25753,73,"opengl_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\gl.h",48), 2 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_H,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,74,"opengl_methods.bas");}while(r);
S_34712:;
while((!(func_eof(*_SUB_GL_SCAN_HEADER_LONG_H)))||is_error_pending()){
if(qbevent){evnt(25753,75,"opengl_methods.bas");if(r)goto S_34712;}
do{
tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_H;
if (is_error_pending()) goto skip4069;
sub_file_line_input_string(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_A);
if (is_error_pending()) goto skip4069;
skip4069:
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,76,"opengl_methods.bas");}while(r);
S_34714:;
if ((qbs_cleanup(qbs_tmp_base,_SUB_GL_SCAN_HEADER_STRING_A->len))||is_error_pending()){
if(qbevent){evnt(25753,77,"opengl_methods.bas");if(r)goto S_34714;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_ltrim(qbs_rtrim(_SUB_GL_SCAN_HEADER_STRING_A)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,78,"opengl_methods.bas");}while(r);
S_34716:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_A, 8 ),qbs_new_txt_len("#define ",8))))||is_error_pending()){
if(qbevent){evnt(25753,79,"opengl_methods.bas");if(r)goto S_34716;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,80,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A,qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,81,"opengl_methods.bas");}while(r);
S_34719:;
fornext_value4072= 1 ;
fornext_finalvalue4072=_SUB_GL_SCAN_HEADER_STRING_A->len;
fornext_step4072= 1 ;
if (fornext_step4072<0) fornext_step_negative4072=1; else fornext_step_negative4072=0;
if (is_error_pending()) goto fornext_error4072;
goto fornext_entrylabel4072;
while(1){
fornext_value4072=fornext_step4072+(*_SUB_GL_SCAN_HEADER_LONG_X);
fornext_entrylabel4072:
*_SUB_GL_SCAN_HEADER_LONG_X=fornext_value4072;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4072){
if (fornext_value4072<fornext_finalvalue4072) break;
}else{
if (fornext_value4072>fornext_finalvalue4072) break;
}
fornext_error4072:;
if(qbevent){evnt(25753,82,"opengl_methods.bas");if(r)goto S_34719;}
do{
*_SUB_GL_SCAN_HEADER_LONG_C=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A,*_SUB_GL_SCAN_HEADER_LONG_X);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,83,"opengl_methods.bas");}while(r);
S_34721:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_C== 32 ))||is_error_pending()){
if(qbevent){evnt(25753,84,"opengl_methods.bas");if(r)goto S_34721;}
S_34722:;
fornext_value4075= 1 ;
fornext_finalvalue4075=_SUB_GL_SCAN_HEADER_STRING_A2->len;
fornext_step4075= 1 ;
if (fornext_step4075<0) fornext_step_negative4075=1; else fornext_step_negative4075=0;
if (is_error_pending()) goto fornext_error4075;
goto fornext_entrylabel4075;
while(1){
fornext_value4075=fornext_step4075+(*_SUB_GL_SCAN_HEADER_LONG_X2);
fornext_entrylabel4075:
*_SUB_GL_SCAN_HEADER_LONG_X2=fornext_value4075;
qbs_cleanup(qbs_tmp_base,0);
if (fornext_step_negative4075){
if (fornext_value4075<fornext_finalvalue4075) break;
}else{
if (fornext_value4075>fornext_finalvalue4075) break;
}
fornext_error4075:;
if(qbevent){evnt(25753,85,"opengl_methods.bas");if(r)goto S_34722;}
do{
*_SUB_GL_SCAN_HEADER_LONG_C2=qbs_asc(_SUB_GL_SCAN_HEADER_STRING_A2,*_SUB_GL_SCAN_HEADER_LONG_X2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,86,"opengl_methods.bas");}while(r);
S_34724:;
if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 65 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 90 )))||is_error_pending()){
if(qbevent){evnt(25753,87,"opengl_methods.bas");if(r)goto S_34724;}
do{
goto LABEL_DEFINE_OK;
if(!qbevent)break;evnt(25753,87,"opengl_methods.bas");}while(r);
}
S_34727:;
if (((-(*_SUB_GL_SCAN_HEADER_LONG_C2>= 48 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_C2<= 57 ))&(-(*_SUB_GL_SCAN_HEADER_LONG_X2!= 1 )))||is_error_pending()){
if(qbevent){evnt(25753,88,"opengl_methods.bas");if(r)goto S_34727;}
do{
goto LABEL_DEFINE_OK;
if(!qbevent)break;evnt(25753,88,"opengl_methods.bas");}while(r);
}
S_34730:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_C2== 95 ))||is_error_pending()){
if(qbevent){evnt(25753,89,"opengl_methods.bas");if(r)goto S_34730;}
do{
goto LABEL_DEFINE_OK;
if(!qbevent)break;evnt(25753,89,"opengl_methods.bas");}while(r);
}
do{
goto LABEL_DEFINE_NOT_OK;
if(!qbevent)break;evnt(25753,90,"opengl_methods.bas");}while(r);
LABEL_DEFINE_OK:;
if(qbevent){evnt(25753,91,"opengl_methods.bas");r=0;}
fornext_continue_4074:;
}
fornext_exit_4074:;
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VALUE,qbs_ltrim(qbs_rtrim(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_A->len-*_SUB_GL_SCAN_HEADER_LONG_X))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,93,"opengl_methods.bas");}while(r);
S_34736:;
if ((qbs_cleanup(qbs_tmp_base,-(_SUB_GL_SCAN_HEADER_STRING_VALUE->len== 0 )))||is_error_pending()){
if(qbevent){evnt(25753,94,"opengl_methods.bas");if(r)goto S_34736;}
do{
goto LABEL_DEFINE_NOT_OK;
if(!qbevent)break;evnt(25753,94,"opengl_methods.bas");}while(r);
}
S_34739:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VALUE, 2 ),qbs_new_txt_len("0x",2))))||is_error_pending()){
if(qbevent){evnt(25753,96,"opengl_methods.bas");if(r)goto S_34739;}
do{
*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(qbs_val<long double>(qbs_add(qbs_add(qbs_new_txt_len("&H",2),qbs_right(_SUB_GL_SCAN_HEADER_STRING_VALUE,_SUB_GL_SCAN_HEADER_STRING_VALUE->len- 2 )),qbs_new_txt_len("&&",2))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,97,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ;
if(!qbevent)break;evnt(25753,99,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,99,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE;
if(!qbevent)break;evnt(25753,99,"opengl_methods.bas");}while(r);
S_34744:;
}else{
if (qbs_cleanup(qbs_tmp_base,(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)>= 48 ))&(-(qbs_asc(_SUB_GL_SCAN_HEADER_STRING_VALUE)<= 57 )))){
if(qbevent){evnt(25753,100,"opengl_methods.bas");if(r)goto S_34744;}
do{
*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE=qbr(qbs_val<long double>(_SUB_GL_SCAN_HEADER_STRING_VALUE));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,101,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ;
if(!qbevent)break;evnt(25753,103,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,103,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=*_SUB_GL_SCAN_HEADER_INTEGER64_VALUE;
if(!qbevent)break;evnt(25753,103,"opengl_methods.bas");}while(r);
}else{
S_34750:;
fornext_value4081= 1 ;
fornext_finalvalue4081=*_SUB_GL_SCAN_HEADER_LONG_D;
fornext_step4081= 1 ;
if (fornext_step4081<0) fornext_step_negative4081=1; else fornext_step_negative4081=0;
if (is_error_pending()) goto fornext_error4081;
goto fornext_entrylabel4081;
while(1){
fornext_value4081=fornext_step4081+(*_SUB_GL_SCAN_HEADER_LONG_I);
fornext_entrylabel4081:
*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value4081;
if (fornext_step_negative4081){
if (fornext_value4081<fornext_finalvalue4081) break;
}else{
if (fornext_value4081>fornext_finalvalue4081) break;
}
fornext_error4081:;
if(qbevent){evnt(25753,106,"opengl_methods.bas");if(r)goto S_34750;}
S_34751:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])])),_SUB_GL_SCAN_HEADER_STRING_VALUE)))||is_error_pending()){
if(qbevent){evnt(25753,107,"opengl_methods.bas");if(r)goto S_34751;}
do{
*_SUB_GL_SCAN_HEADER_LONG_D=*_SUB_GL_SCAN_HEADER_LONG_D+ 1 ;
if(!qbevent)break;evnt(25753,108,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5]);
if (!is_error_pending()) qbs_set( ((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long])),_SUB_GL_SCAN_HEADER_STRING_A2);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,108,"opengl_methods.bas");}while(r);
do{
tmp_long=array_check((*_SUB_GL_SCAN_HEADER_LONG_D)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5]);
if (!is_error_pending()) ((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[tmp_long]=((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])];
if(!qbevent)break;evnt(25753,108,"opengl_methods.bas");}while(r);
do{
goto fornext_exit_4080;
if(!qbevent)break;evnt(25753,110,"opengl_methods.bas");}while(r);
}
fornext_continue_4080:;
}
fornext_exit_4080:;
}
}
do{
goto LABEL_GOT_DEFINE;
if(!qbevent)break;evnt(25753,114,"opengl_methods.bas");}while(r);
LABEL_DEFINE_NOT_OK:;
if(qbevent){evnt(25753,115,"opengl_methods.bas");r=0;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,116,"opengl_methods.bas");}while(r);
}else{
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_add(_SUB_GL_SCAN_HEADER_STRING_A2,func_chr(*_SUB_GL_SCAN_HEADER_LONG_C)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,118,"opengl_methods.bas");}while(r);
}
fornext_continue_4071:;
}
fornext_exit_4071:;
LABEL_GOT_DEFINE:;
if(qbevent){evnt(25753,121,"opengl_methods.bas");r=0;}
}
S_34766:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_A, 1 ),qbs_new_txt_len(";",1))))||is_error_pending()){
if(qbevent){evnt(25753,125,"opengl_methods.bas");if(r)goto S_34766;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,126,"opengl_methods.bas");}while(r);
S_34768:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("WINGDIAPI",9))))||is_error_pending()){
if(qbevent){evnt(25753,126,"opengl_methods.bas");if(r)goto S_34768;}
do{
goto LABEL_DISCARD;
if(!qbevent)break;evnt(25753,126,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,127,"opengl_methods.bas");}while(r);
S_34772:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("const",5))))||is_error_pending()){
if(qbevent){evnt(25753,128,"opengl_methods.bas");if(r)goto S_34772;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,128,"opengl_methods.bas");}while(r);
}
do{
*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 0 ;
if(!qbevent)break;evnt(25753,130,"opengl_methods.bas");}while(r);
S_34776:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("void",4))))||is_error_pending()){
if(qbevent){evnt(25753,130,"opengl_methods.bas");if(r)goto S_34776;}
do{
*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC= 1 ;
if(!qbevent)break;evnt(25753,130,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,132,"opengl_methods.bas");}while(r);
S_34780:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("*APIENTRY",9))))||is_error_pending()){
if(qbevent){evnt(25753,133,"opengl_methods.bas");if(r)goto S_34780;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,133,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,133,"opengl_methods.bas");}while(r);
}
S_34784:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_A2,qbs_new_txt_len("APIENTRY",8))))||is_error_pending()){
if(qbevent){evnt(25753,134,"opengl_methods.bas");if(r)goto S_34784;}
do{
goto LABEL_DISCARD;
if(!qbevent)break;evnt(25753,134,"opengl_methods.bas");}while(r);
}
do{
*__LONG_GL_COMMANDS_LAST=*__LONG_GL_COMMANDS_LAST+ 1 ;
if(!qbevent)break;evnt(25753,136,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_C=*__LONG_GL_COMMANDS_LAST;
if(!qbevent)break;evnt(25753,137,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,139,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,140,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 0 ;
if(!qbevent)break;evnt(25753,141,"opengl_methods.bas");}while(r);
S_34792:;
if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||is_error_pending()){
if(qbevent){evnt(25753,143,"opengl_methods.bas");if(r)goto S_34792;}
do{
*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64)))= 1 ;
if(!qbevent)break;evnt(25753,144,"opengl_methods.bas");}while(r);
S_34794:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,145,"opengl_methods.bas");if(r)goto S_34794;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4082;
sub_file_print(tmp_fileno,qbs_new_txt_len("FUNCTION ",9), 0, 0, 0);
if (is_error_pending()) goto skip4082;
skip4082:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,145,"opengl_methods.bas");}while(r);
}
}else{
do{
*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+64)))= 2 ;
if(!qbevent)break;evnt(25753,147,"opengl_methods.bas");}while(r);
S_34799:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,148,"opengl_methods.bas");if(r)goto S_34799;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4083;
sub_file_print(tmp_fileno,qbs_new_txt_len("SUB ",4), 0, 0, 0);
if (is_error_pending()) goto skip4083;
skip4083:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,148,"opengl_methods.bas");}while(r);
}
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,151,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+0))),64,1),qbs_add(qbs_new_txt_len("_",1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,153,"opengl_methods.bas");}while(r);
S_34805:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,153,"opengl_methods.bas");if(r)goto S_34805;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4084;
sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME, 0, 0, 0);
if (is_error_pending()) goto skip4084;
skip4084:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,153,"opengl_methods.bas");}while(r);
}
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66))),64,1),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,154,"opengl_methods.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212)))= 0 ;
if(!qbevent)break;evnt(25753,156,"opengl_methods.bas");}while(r);
S_34810:;
if ((*_SUB_GL_SCAN_HEADER_LONG_IS_FUNC)||is_error_pending()){
if(qbevent){evnt(25753,157,"opengl_methods.bas");if(r)goto S_34810;}
do{
*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ;
if(!qbevent)break;evnt(25753,158,"opengl_methods.bas");}while(r);
S_34812:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25753,158,"opengl_methods.bas");if(r)goto S_34812;}
do{
*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ;
if(!qbevent)break;evnt(25753,158,"opengl_methods.bas");}while(r);
}
S_34815:;
if ((*_SUB_GL_SCAN_HEADER_LONG_POINTER)||is_error_pending()){
if(qbevent){evnt(25753,159,"opengl_methods.bas");if(r)goto S_34815;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,qbs_new_txt_len("_OFFSET",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,160,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_S,qbs_new_txt_len("&&",2));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,160,"opengl_methods.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212)))=*__LONG_OFFSETTYPE-*__LONG_ISPOINTER;
if(!qbevent)break;evnt(25753,161,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("ptrszint ",9)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,162,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ;
if(!qbevent)break;evnt(25753,163,"opengl_methods.bas");}while(r);
}else{
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_T,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_RET_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,165,"opengl_methods.bas");}while(r);
do{
*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212)))=*_SUB_GL_SCAN_HEADER_LONG_TYP;
if(!qbevent)break;evnt(25753,166,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,167,"opengl_methods.bas");}while(r);
}
S_34826:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,169,"opengl_methods.bas");if(r)goto S_34826;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4085;
sub_file_print(tmp_fileno,_SUB_GL_SCAN_HEADER_STRING_S, 0, 0, 0);
if (is_error_pending()) goto skip4085;
skip4085:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,169,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("return (",8)),_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(")(",2)),_SUB_GL_SCAN_HEADER_STRING_RET_TYPE),qbs_new_txt_len(")",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,170,"opengl_methods.bas");}while(r);
}else{
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("void ",5)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,172,"opengl_methods.bas");}while(r);
}
S_34833:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,175,"opengl_methods.bas");if(r)goto S_34833;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4086;
sub_file_print(tmp_fileno,qbs_new_txt_len("(",1), 0, 0, 0);
if (is_error_pending()) goto skip4086;
skip4086:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,175,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,177,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("call_",5)),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME),qbs_new_txt_len("(",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,178,"opengl_methods.bas");}while(r);
do{
*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))= 0 ;
if(!qbevent)break;evnt(25753,181,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132))),80,1),qbs_new_txt_len("",0));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,182,"opengl_methods.bas");}while(r);
S_34840:;
do{
if(qbevent){evnt(25753,184,"opengl_methods.bas");if(r)goto S_34840;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,186,"opengl_methods.bas");}while(r);
S_34842:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))&(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len("(",1)))))||is_error_pending()){
if(qbevent){evnt(25753,187,"opengl_methods.bas");if(r)goto S_34842;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,187,"opengl_methods.bas");}while(r);
}
S_34845:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("const",5))))||is_error_pending()){
if(qbevent){evnt(25753,188,"opengl_methods.bas");if(r)goto S_34845;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,188,"opengl_methods.bas");}while(r);
}
S_34848:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("void",4)))|(qbs_equal(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("",0)))))||is_error_pending()){
if(qbevent){evnt(25753,189,"opengl_methods.bas");if(r)goto S_34848;}
do{
goto LABEL_NO_ARGUMENTS;
if(!qbevent)break;evnt(25753,189,"opengl_methods.bas");}while(r);
}
S_34851:;
if ((qbs_cleanup(qbs_tmp_base,(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(",",1)))&(qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))||is_error_pending()){
if(qbevent){evnt(25753,190,"opengl_methods.bas");if(r)goto S_34851;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,FUNC_READCHUNK(_SUB_GL_SCAN_HEADER_STRING_A,_SUB_GL_SCAN_HEADER_STRING_L));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,191,"opengl_methods.bas");}while(r);
S_34853:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25753,192,"opengl_methods.bas");if(r)goto S_34853;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,192,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,192,"opengl_methods.bas");}while(r);
}
S_34857:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25753,193,"opengl_methods.bas");if(r)goto S_34857;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_new_txt_len("*",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,193,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,_SUB_GL_SCAN_HEADER_STRING_VAR_NAME->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,193,"opengl_methods.bas");}while(r);
}
}else{
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len("no_name",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,196,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,199,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_POINTER= 0 ;
if(!qbevent)break;evnt(25753,201,"opengl_methods.bas");}while(r);
S_34866:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25753,203,"opengl_methods.bas");if(r)goto S_34866;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,204,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_POINTER= 1 ;
if(!qbevent)break;evnt(25753,205,"opengl_methods.bas");}while(r);
}
S_34870:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(qbs_right(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE, 1 ),qbs_new_txt_len("*",1))))||is_error_pending()){
if(qbevent){evnt(25753,207,"opengl_methods.bas");if(r)goto S_34870;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,qbs_left(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE->len- 1 ));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,208,"opengl_methods.bas");}while(r);
do{
*_SUB_GL_SCAN_HEADER_LONG_POINTER= 2 ;
if(!qbevent)break;evnt(25753,209,"opengl_methods.bas");}while(r);
}
S_34874:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||is_error_pending()){
if(qbevent){evnt(25753,212,"opengl_methods.bas");if(r)goto S_34874;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,qbs_new_txt_len("_OFFSET",7));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,213,"opengl_methods.bas");}while(r);
}else{
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_QB_TYPE,FUNC_GL2QB_TYPE_CONVERT(_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE,_SUB_GL_SCAN_HEADER_STRING_S,_SUB_GL_SCAN_HEADER_LONG_TYP,_SUB_GL_SCAN_HEADER_STRING_CTYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,215,"opengl_methods.bas");}while(r);
}
do{
*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION= 1 ;
if(!qbevent)break;evnt(25753,219,"opengl_methods.bas");}while(r);
S_34880:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,221,"opengl_methods.bas");if(r)goto S_34880;}
S_34881:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||is_error_pending()){
if(qbevent){evnt(25753,222,"opengl_methods.bas");if(r)goto S_34881;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4092;
sub_file_print(tmp_fileno,qbs_new_txt_len("BYVAL ",6), 0, 0, 0);
if (is_error_pending()) goto skip4092;
skip4092:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,222,"opengl_methods.bas");}while(r);
}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4093;
sub_file_print(tmp_fileno,qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_VAR_NAME,qbs_new_txt_len(" AS ",4)),_SUB_GL_SCAN_HEADER_STRING_QB_TYPE), 0, 0, 0);
if (is_error_pending()) goto skip4093;
skip4093:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,223,"opengl_methods.bas");}while(r);
S_34885:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(25753,224,"opengl_methods.bas");if(r)goto S_34885;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4094;
sub_file_print(tmp_fileno,qbs_new_txt_len(",",1), 0, 0, 0);
if (is_error_pending()) goto skip4094;
skip4094:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,224,"opengl_methods.bas");}while(r);
}
}
S_34889:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 0 ))||is_error_pending()){
if(qbevent){evnt(25753,227,"opengl_methods.bas");if(r)goto S_34889;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*_SUB_GL_SCAN_HEADER_LONG_TYP));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,228,"opengl_methods.bas");}while(r);
}
S_34892:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 1 ))||is_error_pending()){
if(qbevent){evnt(25753,230,"opengl_methods.bas");if(r)goto S_34892;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,231,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,232,"opengl_methods.bas");}while(r);
}
S_34896:;
if ((-(*_SUB_GL_SCAN_HEADER_LONG_POINTER== 2 ))||is_error_pending()){
if(qbevent){evnt(25753,234,"opengl_methods.bas");if(r)goto S_34896;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_ARG,l2string(*__LONG_OFFSETTYPE-*__LONG_ISPOINTER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,235,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_CTYP,qbs_new_txt_len("ptrszint",8));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,236,"opengl_methods.bas");}while(r);
}
do{
*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))=*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))+ 1 ;
if(!qbevent)break;evnt(25753,243,"opengl_methods.bas");}while(r);
do{
sub_mid(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+132))),80,1),((*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))- 1 )* 4 )+( 1 ), 4 ,_SUB_GL_SCAN_HEADER_STRING_ARG,1);
if(!qbevent)break;evnt(25753,245,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_LETTER,func_chr( 96 +*(int16*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+130)))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,250,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len("(",1)),_SUB_GL_SCAN_HEADER_STRING_VAR_TYPE_BACKUP),qbs_new_txt_len(")",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,252,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,_SUB_GL_SCAN_HEADER_STRING_CTYP),qbs_new_txt_len(" ",1)),_SUB_GL_SCAN_HEADER_STRING_LETTER));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,253,"opengl_methods.bas");}while(r);
S_34905:;
if ((qbs_cleanup(qbs_tmp_base,qbs_notequal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1))))||is_error_pending()){
if(qbevent){evnt(25753,257,"opengl_methods.bas");if(r)goto S_34905;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,257,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len(",",1)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,257,"opengl_methods.bas");}while(r);
}
S_34909:;
dl_continue_4087:;
}while((!(qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_L,qbs_new_txt_len(")",1)))))&&(!is_error_pending()));
dl_exit_4087:;
if(qbevent){evnt(25753,259,"opengl_methods.bas");if(r)goto S_34909;}
LABEL_NO_ARGUMENTS:;
if(qbevent){evnt(25753,260,"opengl_methods.bas");r=0;}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,qbs_new_txt_len("){",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,263,"opengl_methods.bas");}while(r);
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_add(_SUB_GL_SCAN_HEADER_STRING_HC,qbs_new_txt_len(");",2)));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,264,"opengl_methods.bas");}while(r);
S_34912:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,265,"opengl_methods.bas");if(r)goto S_34912;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4095;
sub_file_print(tmp_fileno,qbs_new_txt_len(")",1), 0, 0, 1);
if (is_error_pending()) goto skip4095;
skip4095:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,265,"opengl_methods.bas");}while(r);
}
do{
qbs_set(_SUB_GL_SCAN_HEADER_STRING_H,qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(qbs_add(_SUB_GL_SCAN_HEADER_STRING_HD,__STRING_CRLF),qbs_new_txt_len("if (!sub_gl_called) error(270);",31)),__STRING_CRLF),_SUB_GL_SCAN_HEADER_STRING_HC),__STRING_CRLF),qbs_new_txt_len("}",1)),__STRING_CRLF));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,266,"opengl_methods.bas");}while(r);
S_34916:;
if ((*_SUB_GL_SCAN_HEADER_LONG_NEED_HELPER_FUNCTION)||is_error_pending()){
if(qbevent){evnt(25753,268,"opengl_methods.bas");if(r)goto S_34916;}
do{
qbs_set(__STRING_GL_HELPER_CODE,qbs_add(__STRING_GL_HELPER_CODE,_SUB_GL_SCAN_HEADER_STRING_H));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,269,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66))),64,1),qbs_add(qbs_new_txt_len("call_",5),_SUB_GL_SCAN_HEADER_STRING_PROC_NAME));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,270,"opengl_methods.bas");}while(r);
}
S_34920:;
if ((qbs_cleanup(qbs_tmp_base,qbs_equal(_SUB_GL_SCAN_HEADER_STRING_PROC_NAME,qbs_new_txt_len("glGetString",11))))||is_error_pending()){
if(qbevent){evnt(25753,274,"opengl_methods.bas");if(r)goto S_34920;}
do{
*(int32*)(((char*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+212)))=*__LONG_STRINGTYPE;
if(!qbevent)break;evnt(25753,275,"opengl_methods.bas");}while(r);
do{
qbs_set(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66))),64,1),qbs_add(qbs_new_txt_len("(  char*  )",11),qbs_rtrim(qbs_new_fixed((((uint8*)__ARRAY_UDT_GL_COMMANDS[0])+(((array_check((*_SUB_GL_SCAN_HEADER_LONG_C)-__ARRAY_UDT_GL_COMMANDS[4],__ARRAY_UDT_GL_COMMANDS[5]))*216+66))),64,1))));
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,276,"opengl_methods.bas");}while(r);
}
}
}
LABEL_DISCARD:;
if(qbevent){evnt(25753,290,"opengl_methods.bas");r=0;}
dl_continue_4068:;
}
dl_exit_4068:;
do{
sub_close(*_SUB_GL_SCAN_HEADER_LONG_H,1);
if(!qbevent)break;evnt(25753,292,"opengl_methods.bas");}while(r);
S_34928:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,294,"opengl_methods.bas");if(r)goto S_34928;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4096;
sub_file_print(tmp_fileno,qbs_new_txt_len("END DECLARE",11), 0, 0, 1);
if (is_error_pending()) goto skip4096;
skip4096:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,294,"opengl_methods.bas");}while(r);
}
do{
*__LONG_GL_DEFINES_LAST=*_SUB_GL_SCAN_HEADER_LONG_D;
if(!qbevent)break;evnt(25753,296,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_STRING_GL_DEFINES[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_STRING_GL_DEFINES)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_STRING_GL_DEFINES[2]&1){
preserve_old_ptr=__ARRAY_STRING_GL_DEFINES[0];
preserve_old_flags=__ARRAY_STRING_GL_DEFINES[2];
preserve_old_total=__ARRAY_STRING_GL_DEFINES[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*_SUB_GL_SCAN_HEADER_LONG_D)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(8);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (preserve_old_total){
preserve_new_ptr=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
__ARRAY_STRING_GL_DEFINES[0]=preserve_new_ptr;
__ARRAY_STRING_GL_DEFINES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_GL_DEFINES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
tmp_long=preserve_copy_count;
while(tmp_long--){
qbs_set((qbs*)((uint64*)(preserve_new_ptr))[tmp_long],(qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
}
tmp_long=preserve_old_total;
while(tmp_long--) qbs_free((qbs*)((uint64*)(preserve_old_ptr))[tmp_long]);
free((void*)(preserve_old_ptr));
__ARRAY_STRING_GL_DEFINES[0]=preserve_new_ptr;
}else{
__ARRAY_STRING_GL_DEFINES[0]=(ptrszint)malloc((size_t)alloc_req_bytes);
if (!__ARRAY_STRING_GL_DEFINES[0]) error(257);
__ARRAY_STRING_GL_DEFINES[2]|=1;
tmp_long=(ptrszint)alloc_req_elems;
if (__ARRAY_STRING_GL_DEFINES[2]&4){
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new_cmem(0,0);
}else{
while(tmp_long--) ((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[tmp_long]=(uint64)qbs_new(0,0);
}
}
__ARRAY_STRING_GL_DEFINES[4]=alloc_new_desc[4];
__ARRAY_STRING_GL_DEFINES[5]=alloc_new_desc[5];
__ARRAY_STRING_GL_DEFINES[6]=alloc_new_desc[6];
__ARRAY_STRING_GL_DEFINES[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,297,"opengl_methods.bas");}while(r);
do{
if (__ARRAY_UDT_GL_COMMANDS[2]&2){
error(10);
}else{
static int64 alloc_new_desc[8];
static uint64 alloc_req_elems;
static uint64 alloc_req_bytes;
static uint64 alloc_dim_value;
static uint64 alloc_bytes_per_element;
((mem_lock*)((ptrszint*)__ARRAY_UDT_GL_COMMANDS)[8])->id=(++mem_lock_id);
static ptrszint preserve_old_ptr;
static ptrszint preserve_old_flags;
static uint64 preserve_old_total;
static uint64 preserve_new_total;
static uint64 preserve_copy_count;
static ptrszint preserve_new_ptr;
if (__ARRAY_UDT_GL_COMMANDS[2]&1){
preserve_old_ptr=__ARRAY_UDT_GL_COMMANDS[0];
preserve_old_flags=__ARRAY_UDT_GL_COMMANDS[2];
preserve_old_total=__ARRAY_UDT_GL_COMMANDS[5];
}else{
preserve_old_total=0; preserve_old_ptr=0; preserve_old_flags=0; preserve_new_total=0; preserve_copy_count=0;
}
alloc_new_desc[4]= 0 ;
alloc_new_desc[5]=(*__LONG_GL_COMMANDS_LAST)-alloc_new_desc[4]+1;
if (alloc_new_desc[5]<=0) error(5);
alloc_new_desc[6]=1;
alloc_req_elems=1;
alloc_bytes_per_element=(uint64)(216);
if (!alloc_bytes_per_element) error(257);
if (((int64)((ptrszint)alloc_new_desc[4]))!=alloc_new_desc[4]) error(257);
if (alloc_new_desc[5]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[5]))!=alloc_new_desc[5]) error(257);
if (alloc_new_desc[6]<0) error(257);
if (((int64)((ptrszint)alloc_new_desc[6]))!=alloc_new_desc[6]) error(257);
alloc_dim_value=(uint64)alloc_new_desc[5];
if (alloc_dim_value){
if (alloc_req_elems>(18446744073709551615ull/alloc_dim_value)) error(257);
alloc_req_elems*=alloc_dim_value;
}
if (alloc_req_elems>(18446744073709551615ull/alloc_bytes_per_element)) error(257);
alloc_req_bytes=alloc_req_elems*alloc_bytes_per_element;
if (((uint64)((ptrszint)alloc_req_elems))!=alloc_req_elems) error(257);
if (((uint64)((size_t)alloc_req_bytes))!=alloc_req_bytes) error(257);
preserve_new_total=alloc_req_elems;
preserve_copy_count=preserve_old_total;
if (preserve_new_total<preserve_copy_count) preserve_copy_count=preserve_new_total;
if (__ARRAY_UDT_GL_COMMANDS[2]&4){
if (preserve_old_total){
preserve_new_ptr=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!preserve_new_ptr) error(257);
memset((void*)(preserve_new_ptr),0,(size_t)alloc_req_bytes);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*216);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_GL_COMMANDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)cmem_dynamic_malloc((size_t)alloc_req_bytes);
if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257);
memset((void*)(__ARRAY_UDT_GL_COMMANDS[0]),0,(size_t)alloc_req_bytes);
}
}else{
if (preserve_old_total){
preserve_new_ptr=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!preserve_new_ptr) error(257);
if (preserve_copy_count) memcpy((void*)(preserve_new_ptr),(void*)(preserve_old_ptr),preserve_copy_count*216);
if (preserve_old_flags&4){
cmem_dynamic_free((uint8*)(preserve_old_ptr));
}else{
free((void*)(preserve_old_ptr));
}
__ARRAY_UDT_GL_COMMANDS[0]=preserve_new_ptr;
}else{
__ARRAY_UDT_GL_COMMANDS[0]=(ptrszint)calloc((size_t)alloc_req_bytes,1);
if (!__ARRAY_UDT_GL_COMMANDS[0]) error(257);
}
}
__ARRAY_UDT_GL_COMMANDS[2]|=1;
__ARRAY_UDT_GL_COMMANDS[4]=alloc_new_desc[4];
__ARRAY_UDT_GL_COMMANDS[5]=alloc_new_desc[5];
__ARRAY_UDT_GL_COMMANDS[6]=alloc_new_desc[6];
__ARRAY_UDT_GL_COMMANDS[7]=alloc_new_desc[7];
}
if(!qbevent)break;evnt(25753,300,"opengl_methods.bas");}while(r);
S_34934:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,303,"opengl_methods.bas");if(r)goto S_34934;}
S_34935:;
fornext_value4098= 1 ;
fornext_finalvalue4098=*__LONG_GL_DEFINES_LAST;
fornext_step4098= 1 ;
if (fornext_step4098<0) fornext_step_negative4098=1; else fornext_step_negative4098=0;
if (is_error_pending()) goto fornext_error4098;
goto fornext_entrylabel4098;
while(1){
fornext_value4098=fornext_step4098+(*_SUB_GL_SCAN_HEADER_LONG_I);
fornext_entrylabel4098:
*_SUB_GL_SCAN_HEADER_LONG_I=fornext_value4098;
if (fornext_step_negative4098){
if (fornext_value4098<fornext_finalvalue4098) break;
}else{
if (fornext_value4098>fornext_finalvalue4098) break;
}
fornext_error4098:;
if(qbevent){evnt(25753,304,"opengl_methods.bas");if(r)goto S_34935;}
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_HK;
if (is_error_pending()) goto skip4099;
sub_file_print(tmp_fileno,qbs_add(qbs_add(qbs_new_txt_len("CONST ",6),((qbs*)(((uint64*)(__ARRAY_STRING_GL_DEFINES[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_STRING_GL_DEFINES[4],__ARRAY_STRING_GL_DEFINES[5])]))),qbs_new_txt_len("=",1)), 0, 0, 0);
if (is_error_pending()) goto skip4099;
sub_file_print(tmp_fileno,qbs_str((int64)(((int64*)(__ARRAY_INTEGER64_GL_DEFINES_VALUE[0]))[array_check((*_SUB_GL_SCAN_HEADER_LONG_I)-__ARRAY_INTEGER64_GL_DEFINES_VALUE[4],__ARRAY_INTEGER64_GL_DEFINES_VALUE[5])])), 1, 0, 1);
if (is_error_pending()) goto skip4099;
skip4099:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,305,"opengl_methods.bas");}while(r);
fornext_continue_4097:;
}
fornext_exit_4097:;
}
S_34939:;
if ((*__LONG_GL_KIT)||is_error_pending()){
if(qbevent){evnt(25753,320,"opengl_methods.bas");if(r)goto S_34939;}
do{
sub_close(*_SUB_GL_SCAN_HEADER_LONG_HK,1);
if(!qbevent)break;evnt(25753,320,"opengl_methods.bas");}while(r);
}
do{
*_SUB_GL_SCAN_HEADER_LONG_FH=func_freefile();
if(!qbevent)break;evnt(25753,323,"opengl_methods.bas");}while(r);
do{
sub_open(qbs_new_txt_len("internal\\c\\parts\\core\\gl_header_for_parsing\\temp\\gl_helper_code.h",65), 4 ,NULL,NULL,*_SUB_GL_SCAN_HEADER_LONG_FH,NULL,0);
qbs_cleanup(qbs_tmp_base,0);
if(!qbevent)break;evnt(25753,324,"opengl_methods.bas");}while(r);
do{
tab_spc_cr_size=2;
tab_fileno=tmp_fileno=*_SUB_GL_SCAN_HEADER_LONG_FH;
if (is_error_pending()) goto skip4100;
sub_file_print(tmp_fileno,__STRING_GL_HELPER_CODE, 0, 0, 1);
if (is_error_pending()) goto skip4100;
skip4100:
qbs_cleanup(qbs_tmp_base,0);
tab_spc_cr_size=1;
if(!qbevent)break;evnt(25753,325,"opengl_methods.bas");}while(r);
do{
sub_close(*_SUB_GL_SCAN_HEADER_LONG_FH,1);
if(!qbevent)break;evnt(25753,326,"opengl_methods.bas");}while(r);
exit_subfunc:;
free_mem_lock(sf_mem_lock);
#include "free129.txt"
if ((tmp_mem_static_pointer>=mem_static)&&(tmp_mem_static_pointer<=mem_static_limit)) mem_static_pointer=tmp_mem_static_pointer; else mem_static_pointer=mem_static;
cmem_sp=tmp_cmem_sp;
}
