/* * FUNCTION reverse_n */ extern_c bool C_reverse_n(gptr L1_ptr,int L1_size,int L1_n) { TRACE_PUSH("C_reverse_n"); MM_ENTER; { { char *mptr = (char *)(L1_ptr); while((L1_n)--) { char tmp; char *uptr = mptr + (L1_size); if ((L1_size) >= 2) { tmp = mptr[0]; mptr[0]=uptr[-1]; uptr[-1]=tmp; } if ((L1_size) >= 4) { tmp = mptr[1]; mptr[1]=uptr[-2]; uptr[-2]=tmp; } if ((L1_size) >= 6) { tmp = mptr[2]; mptr[2]=uptr[-3]; uptr[-3]=tmp; } if ((L1_size) >= 8) { tmp = mptr[3]; mptr[3]=uptr[-4]; uptr[-4]=tmp; } mptr = uptr; } } TRACE_POP("C_reverse_n"); MM_EXIT; return 0; } }
/* * FUNCTION fputc */ extern_c bool C_fputc(FILE * L1_file,int L1_val) { TRACE_PUSH("C_fputc"); MM_ENTER; { putc((char)(L1_val),(FILE *)(L1_file)); TRACE_POP("C_fputc"); MM_EXIT; return 0; } }
/* * FUNCTION pclose */ extern_c bool C_pclose(FILE * L1_file) { TRACE_PUSH("C_pclose"); MM_ENTER; { pclose((FILE *)(L1_file)); TRACE_POP("C_pclose"); MM_EXIT; return 0; } }
/* * FUNCTION rewind */ extern_c bool C_rewind(FILE * L1_f) { TRACE_PUSH("C_rewind"); MM_ENTER; { rewind((L1_f)); TRACE_POP("C_rewind"); MM_EXIT; return 0; } }
/* * FUNCTION fwrite-byte */ extern_c bool C_fwrite_byte(FILE * L1_file,char L1_val) { TRACE_PUSH("C_fwrite_byte"); MM_ENTER; { putc((L1_val),(FILE *)(L1_file)); TRACE_POP("C_fwrite_byte"); MM_EXIT; return 0; } }
/* * FUNCTION fprints */ extern_c bool C_fprints(FILE * L1_fw,char* L1_s) { TRACE_PUSH("C_fprints"); MM_ENTER; { bool L_Tmp0; L_Tmp0 = (bool ) C_fwrite_str(L1_fw, L1_s); TRACE_POP("C_fprints"); MM_EXIT; return 0; } }
/* * FUNCTION reverse8 */ extern_c bool C_reverse8(gptr L1_ptr,int L1_n) { TRACE_PUSH("C_reverse8"); MM_ENTER; { bool L_Tmp0; L_Tmp0 = (bool ) C_reverse_n(L1_ptr, 8, L1_n); TRACE_POP("C_reverse8"); MM_EXIT; return 0; } }
/* * FUNCTION stdin */ extern_c gptr C_stdin() { TRACE_PUSH("C_stdin"); MM_ENTER; { gptr L_Tmp0; L_Tmp0 = (gptr)( stdin); TRACE_POP("C_stdin"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION popen */ extern_c gptr C_popen(char* L1_filename,char* L1_type) { TRACE_PUSH("C_popen"); MM_ENTER; { gptr L_Tmp0; L_Tmp0 = (gptr)( popen((L1_filename), (L1_type))); TRACE_POP("C_popen"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION square */ extern_c int C_square(int L1_x) { TRACE_PUSH("C_square"); MM_ENTER; { int L_Tmp0; L_Tmp0 = (L1_x*L1_x); TRACE_POP("C_square"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fwrite-flt */ extern_c bool C_fwrite_flt(FILE * L1_file,float L1_val) { TRACE_PUSH("C_fwrite_flt"); MM_ENTER; { { float fl=(L1_val); if (little_endian_p) C_reverse_n(&fl, sizeof(flt), 1); fwrite((char *)&fl, sizeof(flt), 1, (FILE *)(L1_file)) ; } TRACE_POP("C_fwrite_flt"); MM_EXIT; return 0; } }
/* * FUNCTION fwrite-real */ extern_c bool C_fwrite_real(FILE * L1_file,double L1_val) { TRACE_PUSH("C_fwrite_real"); MM_ENTER; { { real fl=(L1_val); if (little_endian_p) C_reverse_n(&fl, sizeof(real), 1); fwrite((char *)&fl, sizeof(real), 1, (FILE *)(L1_file)) ; } TRACE_POP("C_fwrite_real"); MM_EXIT; return 0; } }
/* * FUNCTION fwrite-int */ extern_c bool C_fwrite_int(FILE * L1_file,int L1_val) { TRACE_PUSH("C_fwrite_int"); MM_ENTER; { { int s = (L1_val); if (little_endian_p) C_reverse_n(&s, sizeof(int), 1); fwrite((char *)&s, sizeof(int), 1, (FILE *)(L1_file)) ; } TRACE_POP("C_fwrite_int"); MM_EXIT; return 0; } }
/* * FUNCTION fseek-from-end */ extern_c bool C_fseek_from_end(FILE * L1_file,double L1_pos) { TRACE_PUSH("C_fseek_from_end"); MM_ENTER; { #ifdef HAVE_FSEEKO fseeko((FILE *)(L1_file), (off_t)(L1_pos), SEEK_END); #else fseek((FILE *)(L1_file), (long)(L1_pos), SEEK_END); #endif TRACE_POP("C_fseek_from_end"); MM_EXIT; return 0; } }
/* * FUNCTION fgetc */ extern_c int C_fgetc(FILE * L1_file) { TRACE_PUSH("C_fgetc"); MM_ENTER; { int L_Tmp0; { int L2_1_result; L2_1_result = 0; (L2_1_result)=getc((FILE *)(L1_file)); L_Tmp0 = L2_1_result; } TRACE_POP("C_fgetc"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fscan-flt */ extern_c float C_fscan_flt(FILE * L1_fp) { TRACE_PUSH("C_fscan_flt"); MM_ENTER; { float L_Tmp0; { float L2_1_result; L2_1_result = 0; fscanf((L1_fp),"%f",&(L2_1_result)); L_Tmp0 = L2_1_result; } TRACE_POP("C_fscan_flt"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fscan-int */ extern_c int C_fscan_int(FILE * L1_fp) { TRACE_PUSH("C_fscan_int"); MM_ENTER; { int L_Tmp0; { int L2_1_result; L2_1_result = 0; fscanf((L1_fp),"%d",&(L2_1_result)); L_Tmp0 = L2_1_result; } TRACE_POP("C_fscan_int"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fread-byte */ extern_c char C_fread_byte(FILE * L1_file) { TRACE_PUSH("C_fread_byte"); MM_ENTER; { char L_Tmp0; { char L2_1_val; L2_1_val = 0; (L2_1_val) = (char) getc((FILE *)(L1_file)); L_Tmp0 = L2_1_val; } TRACE_POP("C_fread_byte"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fwrite-str */ extern_c bool C_fwrite_str(FILE * L1_file,char* L1_s) { TRACE_PUSH("C_fwrite_str"); MM_ENTER; { if(!(L1_file)) printf("%s", (L1_s)); else { fprintf((FILE *)(L1_file), "%s", (L1_s)); fflush((FILE *)(L1_file)); } TRACE_POP("C_fwrite_str"); MM_EXIT; return 0; } }
/* * FUNCTION fread-real */ extern_c double C_fread_real(FILE * L1_file) { TRACE_PUSH("C_fread_real"); MM_ENTER; { double L_Tmp0; { double L2_1_val; L2_1_val = 0; fread(&(L2_1_val), sizeof(real), 1, (FILE *)(L1_file)) ; if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(real), 1); L_Tmp0 = L2_1_val; } TRACE_POP("C_fread_real"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fread-flt */ extern_c float C_fread_flt(FILE * L1_file) { TRACE_PUSH("C_fread_flt"); MM_ENTER; { float L_Tmp0; { float L2_1_val; L2_1_val = 0; fread(&(L2_1_val), sizeof(flt), 1, (FILE *)(L1_file)) ; if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(flt), 1); L_Tmp0 = L2_1_val; } TRACE_POP("C_fread_flt"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fread-int */ extern_c int C_fread_int(FILE * L1_file) { TRACE_PUSH("C_fread_int"); MM_ENTER; { int L_Tmp0; { int L2_1_val; L2_1_val = 0; fread((char *)&(L2_1_val), sizeof(int), 1, (FILE *)(L1_file)); if (little_endian_p) C_reverse_n(&(L2_1_val), sizeof(int), 1); L_Tmp0 = L2_1_val; } TRACE_POP("C_fread_int"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION ftell */ extern_c double C_ftell(FILE * L1_file) { TRACE_PUSH("C_ftell"); MM_ENTER; { double L_Tmp0; { double L2_1_result; L2_1_result = 0; #ifdef HAVE_FTELLO (L2_1_result) = (double)ftello((FILE *)(L1_file)); #else (L2_1_result) = (double)ftell((FILE *)(L1_file)); #endif L_Tmp0 = L2_1_result; } TRACE_POP("C_ftell"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION file-size */ extern_c int C_file_size(char* L1_fname) { TRACE_PUSH("C_file_size"); MM_ENTER; { int L_Tmp0; { int L2_1_ans; L2_1_ans = -1; { struct stat buf; if (stat((L1_fname), &buf)>=0) if (S_ISREG(buf.st_mode)) (L2_1_ans) = buf.st_size; } L_Tmp0 = L2_1_ans; } TRACE_POP("C_file_size"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION skip-comments */ extern_c bool C_skip_comments(unsigned char L1_start,FILE * L1_f) { TRACE_PUSH("C_skip_comments"); MM_ENTER; { if (!(L1_f)) { lush_error("file is not opened"); } { FILE *ff = (L1_f); int c; for ( ;;) { c = getc(ff); while (c==' ' || c=='\n' || c=='\t' || c=='\r') c = getc(ff); if (c!=(L1_start)) break; while (c != '\n') c = getc(ff); } ungetc(c,ff) ; } TRACE_POP("C_skip_comments"); MM_EXIT; return 0; } }
/* * FUNCTION fgets */ extern_c char* C_fgets(FILE * L1_fp,int L1_maxsize) { TRACE_PUSH("C_fgets"); MM_ENTER; { char* L_Tmp0; { char* L2_1_result; char *L2_0_str; Mstr_alloc(L2_0_str, 0+1); strcpy((char*)(L2_0_str),""); L2_1_result = L2_0_str; { char buffer[(L1_maxsize)]; fgets(buffer,(L1_maxsize),(L1_fp)); (L2_1_result) = mm_strdup(buffer); } L_Tmp0 = L2_1_result; } TRACE_POP("C_fgets"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION fscan-str */ extern_c char* C_fscan_str(FILE * L1_fp) { TRACE_PUSH("C_fscan_str"); MM_ENTER; { char* L_Tmp0; { char* L2_1_result; char *L2_0_str; Mstr_alloc(L2_0_str, 0+1); strcpy((char*)(L2_0_str),""); L2_1_result = L2_0_str; { char buffer[1024]; int s = fscanf((L1_fp),"%s",buffer); if (s < 1) { buffer[0]=0; } (L2_1_result) = mm_strdup(buffer); } L_Tmp0 = L2_1_result; } TRACE_POP("C_fscan_str"); MM_EXIT; return L_Tmp0; } }
/* * FUNCTION pcloud-xyz2rc */ extern_c struct idx * C_pcloud_xyz2rc (struct idx *L1_xyz, struct idx *L1_rc, struct idx *L1_pr, struct idx *L1_pt, struct idx *L1_pxyz2rc, struct idx *L2_2_matrix, struct srg *L2_2_srg) { TRACE_PUSH ("C_pcloud_xyz2rc"); { struct idx *L_Tmp0; Midx_declare (L1_1_0_matrix, 2); Msrg_declare (L1_2_0_srg); Midx_init (L1_1_0_matrix, 2); Msrg_init (L1_2_0_srg, ST_F); (L1_1_0_matrix)->srg = L1_2_0_srg; Midx_init_dim2 (L1_1_0_matrix, (L1_xyz)->dim[0], 2); RTERR_DIM (L1_1_0_matrix->dim[0] <= 0); RTERR_DIM (L1_1_0_matrix->dim[1] <= 0); Midx_maclear (L1_1_0_matrix, flt); L1_rc = L1_1_0_matrix; { Midx_declare (L3_3_1_matrix, 2); Msrg_declare (L3_4_1_srg); struct idx *L2_5_xyz2; struct idx *L2_6_rcxyz; Midx_init (L3_3_1_matrix, 2); Msrg_init (L3_4_1_srg, ST_F); { (L3_3_1_matrix)->srg = L3_4_1_srg; Midx_init_dim2 (L3_3_1_matrix, (L1_xyz)->dim[0], (L1_xyz)->dim[1]); RTERR_DIM (L3_3_1_matrix->dim[0] <= 0); RTERR_DIM (L3_3_1_matrix->dim[1] <= 0); check_main_maout (L1_xyz, L3_3_1_matrix); Midx_m2copy (L1_xyz, L3_3_1_matrix, flt, flt); L2_5_xyz2 = L3_3_1_matrix; } (L2_2_matrix)->srg = L2_2_srg; Midx_init_dim2 (L2_2_matrix, (L1_xyz)->dim[0], 5); RTERR_DIM (L2_2_matrix->dim[0] <= 0); RTERR_DIM (L2_2_matrix->dim[1] <= 0); Midx_maclear (L2_2_matrix, flt); L2_6_rcxyz = L2_2_matrix; { RTERR_LOOPDIM ((L2_6_rcxyz)->dim[0] != (L1_rc)->dim[0] || (L2_6_rcxyz)->dim[0] != (L1_xyz)->dim[0] || (L2_6_rcxyz)->dim[0] != (L2_5_xyz2)->dim[0]); Midx_begin_bloop4 (L3_xyz2, L2_5_xyz2, L3_xyz, L1_xyz, L3_rc, L1_rc, L3_rcxyz, L2_6_rcxyz, flt) { RTERR_BOUND (0 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (0 >= (&L3_xyz)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[1]); RTERR_BOUND (1 >= (&L3_xyz)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[1]); RTERR_BOUND (2 >= (&L3_xyz)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[1]); RTERR_BOUND (0 >= (L1_pt)->dim[0]); IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 0)] = ((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 0) + (L1_pr)->mod[1] * ((int) 0)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 0)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 0)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 0)]); RTERR_BOUND (1 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (0 >= (&L3_xyz)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[1]); RTERR_BOUND (1 >= (&L3_xyz)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[1]); RTERR_BOUND (2 >= (&L3_xyz)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[1]); RTERR_BOUND (1 >= (L1_pt)->dim[0]); IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 1)] = ((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 0) + (L1_pr)->mod[1] * ((int) 1)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 1)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 1)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 1)]); RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (0 >= (&L3_xyz)->dim[0]); RTERR_BOUND (0 >= (L1_pr)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[1]); RTERR_BOUND (1 >= (&L3_xyz)->dim[0]); RTERR_BOUND (1 >= (L1_pr)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[1]); RTERR_BOUND (2 >= (&L3_xyz)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[0]); RTERR_BOUND (2 >= (L1_pr)->dim[1]); RTERR_BOUND (2 >= (L1_pt)->dim[0]); IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 2)] = ((IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 0) + (L1_pr)->mod[1] * ((int) 2)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 1)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 1) + (L1_pr)->mod[1] * ((int) 2)]) + (IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)] * IDX_PTR (L1_pr, flt)[(L1_pr)->mod[0] * ((int) 2) + (L1_pr)->mod[1] * ((int) 2)]) + IDX_PTR (L1_pt, flt)[(L1_pt)->mod[0] * ((int) 2)]); RTERR_BOUND (1 >= (&L3_rc)->dim[0]); RTERR_BOUND (0 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (0 >= (L1_pxyz2rc)->dim[0]); RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (2 >= (L1_pxyz2rc)->dim[0]); IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 1)] = (int) ((((IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 0)] * IDX_PTR (L1_pxyz2rc, flt)[(L1_pxyz2rc)->mod[0] * ((int) 0)]) / (flt) IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 2)]) + IDX_PTR (L1_pxyz2rc, flt)[(L1_pxyz2rc)->mod[0] * ((int) 2)])); RTERR_BOUND (0 >= (&L3_rc)->dim[0]); RTERR_BOUND (1 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (1 >= (L1_pxyz2rc)->dim[0]); RTERR_BOUND (2 >= (&L3_xyz2)->dim[0]); RTERR_BOUND (3 >= (L1_pxyz2rc)->dim[0]); IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 0)] = (int) ((((IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 1)] * IDX_PTR (L1_pxyz2rc, flt)[(L1_pxyz2rc)->mod[0] * ((int) 1)]) / (flt) IDX_PTR (&L3_xyz2, flt)[(&L3_xyz2)->mod[0] * ((int) 2)]) + IDX_PTR (L1_pxyz2rc, flt)[(L1_pxyz2rc)->mod[0] * ((int) 3)])); RTERR_BOUND (0 >= (&L3_rcxyz)->dim[0]); RTERR_BOUND (0 >= (&L3_rc)->dim[0]); IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 0)] = IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 0)]; RTERR_BOUND (1 >= (&L3_rcxyz)->dim[0]); RTERR_BOUND (1 >= (&L3_rc)->dim[0]); IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 1)] = IDX_PTR (&L3_rc, flt)[(&L3_rc)->mod[0] * ((int) 1)]; RTERR_BOUND (2 >= (&L3_rcxyz)->dim[0]); RTERR_BOUND (0 >= (&L3_xyz)->dim[0]); IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 2)] = IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 0)]; RTERR_BOUND (3 >= (&L3_rcxyz)->dim[0]); RTERR_BOUND (1 >= (&L3_xyz)->dim[0]); IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 3)] = IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 1)]; RTERR_BOUND (4 >= (&L3_rcxyz)->dim[0]); RTERR_BOUND (2 >= (&L3_xyz)->dim[0]); IDX_PTR (&L3_rcxyz, flt)[(&L3_rcxyz)->mod[0] * ((int) 4)] = IDX_PTR (&L3_xyz, flt)[(&L3_xyz)->mod[0] * ((int) 2)]; } Midx_end_bloop4 (L3_xyz2, L2_5_xyz2, L3_xyz, L1_xyz, L3_rc, L1_rc, L3_rcxyz, L2_6_rcxyz, flt); } L_Tmp0 = L2_6_rcxyz; Msrg_free (L3_4_1_srg); } Msrg_free (L1_2_0_srg); TRACE_POP ("C_pcloud_xyz2rc"); return L_Tmp0; }