… | |
… | |
289 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
289 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
290 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
290 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
291 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
291 | {psiconv_formula_unknown,0,"*UNKNOWN*"}, |
292 | {psiconv_formula_unknown,0,"*UNKNOWN*"}}; |
292 | {psiconv_formula_unknown,0,"*UNKNOWN*"}}; |
293 | |
293 | |
|
|
294 | static psiconv_string_t psiconv_read_sheet_string(const psiconv_buffer buf, |
|
|
295 | int lev, |
|
|
296 | psiconv_u32 off,int *length, int *status) |
|
|
297 | { |
|
|
298 | int stringlen,i,len,localstatus; |
|
|
299 | psiconv_string_t result; |
|
|
300 | char *res_copy; |
|
|
301 | |
|
|
302 | psiconv_progress(lev+1,off,"Going to read a sheet string"); |
|
|
303 | |
|
|
304 | stringlen = psiconv_read_u8(buf,lev+2,off,&localstatus); |
|
|
305 | if (localstatus) |
|
|
306 | goto ERROR1; |
|
|
307 | psiconv_debug(lev+2,off,"Length: %i",stringlen); |
|
|
308 | len = 1; |
|
|
309 | |
|
|
310 | result = malloc(stringlen + 1); |
|
|
311 | if (!result) |
|
|
312 | goto ERROR1; |
|
|
313 | for (i = 0; (i < stringlen) && !localstatus; i++) |
|
|
314 | result[i] = psiconv_read_u8(buf,lev,off+i+len,&localstatus); |
|
|
315 | if (localstatus) |
|
|
316 | goto ERROR2; |
|
|
317 | result[stringlen] = 0; |
|
|
318 | len += stringlen; |
|
|
319 | |
|
|
320 | res_copy = psiconv_make_printable(result); |
|
|
321 | if (!res_copy) |
|
|
322 | goto ERROR2; |
|
|
323 | psiconv_debug(lev+2,off,"Contents: `%s'",res_copy); |
|
|
324 | free(res_copy); |
|
|
325 | |
|
|
326 | if (length) |
|
|
327 | *length = len; |
|
|
328 | |
|
|
329 | if (status) |
|
|
330 | *status = 0; |
|
|
331 | |
|
|
332 | psiconv_progress(lev+1,off+len-1,"End of sheet string (total length: %08x)", |
|
|
333 | len); |
|
|
334 | |
|
|
335 | return result; |
|
|
336 | |
|
|
337 | |
|
|
338 | ERROR2: |
|
|
339 | free(result); |
|
|
340 | ERROR1: |
|
|
341 | psiconv_warn(lev+1,off,"Reading of sheet string failed"); |
|
|
342 | if (status) |
|
|
343 | *status = localstatus; |
|
|
344 | if (length) |
|
|
345 | *length = 0; |
|
|
346 | return NULL; |
|
|
347 | } |
|
|
348 | |
|
|
349 | |
|
|
350 | static int psiconv_parse_sheet_ref(const psiconv_buffer buf,int lev, |
|
|
351 | psiconv_u32 off, int *length, |
|
|
352 | psiconv_sheet_ref_t *result) |
|
|
353 | { |
|
|
354 | int res; |
|
|
355 | psiconv_u16 temp; |
|
|
356 | |
|
|
357 | psiconv_progress(lev+1,off,"Going to read a sheet ref"); |
|
|
358 | psiconv_progress(lev+2,off,"Going to read the offset encoding"); |
|
|
359 | temp = psiconv_read_u16(buf,lev+2,off,&res); |
|
|
360 | if (res) { |
|
|
361 | if (length) |
|
|
362 | *length = 0; |
|
|
363 | return res; |
|
|
364 | } |
|
|
365 | psiconv_debug(lev+2,off,"Encoded word: %04x",temp); |
|
|
366 | result->absolute = (temp & 0x4000)?psiconv_bool_true:psiconv_bool_false; |
|
|
367 | result->offset = (temp & 0x3fff) * ((temp & 0x8000)?-1:1); |
|
|
368 | psiconv_debug(lev+2,off,"Reference: %s offset %d", |
|
|
369 | result->absolute?"absolute":"relative",result->offset); |
|
|
370 | if (length) |
|
|
371 | *length = 2; |
|
|
372 | return 0; |
|
|
373 | } |
|
|
374 | |
|
|
375 | static int psiconv_parse_sheet_cell_reference(const psiconv_buffer buf,int lev, |
|
|
376 | psiconv_u32 off, int *length, |
|
|
377 | psiconv_sheet_cell_reference_t *result) |
|
|
378 | { |
|
|
379 | int len = 0; |
|
|
380 | int leng,res; |
|
|
381 | psiconv_u8 temp; |
|
|
382 | |
|
|
383 | psiconv_progress(lev+1,off+len,"Going to read a sheet cell reference"); |
|
|
384 | psiconv_progress(lev+2,off+len,"Going to read the row reference"); |
|
|
385 | if ((res = psiconv_parse_sheet_ref(buf,lev+2,off+len,&leng,&result->row))) |
|
|
386 | goto ERROR; |
|
|
387 | len += leng; |
|
|
388 | psiconv_progress(lev+2,off+len,"Going to read the column reference"); |
|
|
389 | if ((res = psiconv_parse_sheet_ref(buf,lev+2,off+len,&leng,&result->column))) |
|
|
390 | goto ERROR; |
|
|
391 | len += leng; |
|
|
392 | |
|
|
393 | psiconv_progress(lev+2,off+len, |
|
|
394 | "Going to read the trailing byte (%02x expected)",0); |
|
|
395 | temp = psiconv_read_u8(buf,lev+2,off+len,&res); |
|
|
396 | if (res) |
|
|
397 | goto ERROR; |
|
|
398 | if (temp != 0) { |
|
|
399 | psiconv_warn(lev+2,off+len,"Unknown byte in cell reference (ignored"); |
|
|
400 | psiconv_debug(lev+2,off+len,"Trailing byte: %02x",temp); |
|
|
401 | } |
|
|
402 | len ++; |
|
|
403 | psiconv_progress(lev,off+len-1, |
|
|
404 | "End of cell reference (total length: %08x)", len); |
|
|
405 | if (length) |
|
|
406 | *length = len; |
|
|
407 | return 0; |
|
|
408 | ERROR: |
|
|
409 | if (length) |
|
|
410 | *length = 0; |
|
|
411 | return res; |
|
|
412 | } |
|
|
413 | |
|
|
414 | static int psiconv_parse_sheet_cell_block(const psiconv_buffer buf,int lev, |
|
|
415 | psiconv_u32 off, int *length, |
|
|
416 | psiconv_sheet_cell_block_t *result) |
|
|
417 | { |
|
|
418 | int len = 0; |
|
|
419 | int leng,res; |
|
|
420 | |
|
|
421 | psiconv_progress(lev+1,off+len,"Going to read a sheet cell block"); |
|
|
422 | psiconv_progress(lev+2,off+len,"Going to read the first cell"); |
|
|
423 | if ((res = psiconv_parse_sheet_cell_reference(buf,lev+2,off+len,&leng, |
|
|
424 | &result->first))) |
|
|
425 | goto ERROR; |
|
|
426 | len += leng; |
|
|
427 | psiconv_progress(lev+2,off+len,"Going to read the last cell"); |
|
|
428 | if ((res = psiconv_parse_sheet_cell_reference(buf,lev+2,off+len,&leng, |
|
|
429 | &result->last))) |
|
|
430 | goto ERROR; |
|
|
431 | len += leng; |
|
|
432 | psiconv_progress(lev,off+len-1, |
|
|
433 | "End of cell block (total length: %08x)", len); |
|
|
434 | if (length) |
|
|
435 | *length = len; |
|
|
436 | return 0; |
|
|
437 | ERROR: |
|
|
438 | if (length) |
|
|
439 | *length = 0; |
|
|
440 | return res; |
|
|
441 | } |
|
|
442 | |
294 | int psiconv_parse_formula(const psiconv_buffer buf, int lev, |
443 | int psiconv_parse_formula(const psiconv_buffer buf, int lev, |
295 | psiconv_u32 off, int *length, |
444 | psiconv_u32 off, int *length, |
296 | psiconv_formula *result) |
445 | psiconv_formula *result) |
297 | { |
446 | { |
298 | int res=0; |
447 | int res=0; |
… | |
… | |
362 | psiconv_debug(lev+3,off+len,"Value: %08x",formula->data.dat_int); |
511 | psiconv_debug(lev+3,off+len,"Value: %08x",formula->data.dat_int); |
363 | len += 4; |
512 | len += 4; |
364 | if ((res = psiconv_list_add(formula_stack,formula))) |
513 | if ((res = psiconv_list_add(formula_stack,formula))) |
365 | goto ERROR8; |
514 | goto ERROR8; |
366 | formula->type = psiconv_formula_unknown; |
515 | formula->type = psiconv_formula_unknown; |
|
|
516 | } else if (formula_elements[marker].formula_type == |
|
|
517 | psiconv_formula_dat_float) { |
|
|
518 | psiconv_progress(lev+3,off+len,"Next item: a float"); |
|
|
519 | formula->data.dat_float = psiconv_read_float(buf,lev+2,off+len,&leng, |
|
|
520 | &res); |
|
|
521 | if (res) |
|
|
522 | goto ERROR8; |
|
|
523 | formula->type = formula_elements[marker].formula_type; |
|
|
524 | psiconv_debug(lev+3,off+len,"Value: %f",formula->data.dat_float); |
|
|
525 | len += leng; |
|
|
526 | if ((res = psiconv_list_add(formula_stack,formula))) |
|
|
527 | goto ERROR8; |
|
|
528 | formula->type = psiconv_formula_unknown; |
|
|
529 | } else if (formula_elements[marker].formula_type == |
|
|
530 | psiconv_formula_dat_cellref) { |
|
|
531 | psiconv_progress(lev+3,off+len,"Next item: a cell reference"); |
|
|
532 | if ((res = psiconv_parse_sheet_cell_reference(buf,lev+2,off+len,&leng, |
|
|
533 | &formula->data.dat_cellref))) |
|
|
534 | goto ERROR8; |
|
|
535 | formula->type = formula_elements[marker].formula_type; |
|
|
536 | len += leng; |
|
|
537 | if ((res = psiconv_list_add(formula_stack,formula))) |
|
|
538 | goto ERROR8; |
|
|
539 | formula->type = psiconv_formula_unknown; |
|
|
540 | } else if (formula_elements[marker].formula_type == |
|
|
541 | psiconv_formula_dat_cellblock) { |
|
|
542 | psiconv_progress(lev+3,off+len,"Next item: a cell block"); |
|
|
543 | if ((res = psiconv_parse_sheet_cell_block(buf,lev+2,off+len,&leng, |
|
|
544 | &formula->data.dat_cellblock))) |
|
|
545 | goto ERROR8; |
|
|
546 | formula->type = formula_elements[marker].formula_type; |
|
|
547 | len += leng; |
|
|
548 | if ((res = psiconv_list_add(formula_stack,formula))) |
|
|
549 | goto ERROR8; |
|
|
550 | formula->type = psiconv_formula_unknown; |
|
|
551 | } else if (formula_elements[marker].formula_type == |
|
|
552 | psiconv_formula_dat_string) { |
|
|
553 | psiconv_progress(lev+3,off+len,"Next item: a string"); |
|
|
554 | formula->data.dat_string = |
|
|
555 | psiconv_read_sheet_string(buf,lev+2,off+len,&leng,&res); |
|
|
556 | if (res) |
|
|
557 | goto ERROR8; |
|
|
558 | formula->type = formula_elements[marker].formula_type; |
|
|
559 | len += leng; |
|
|
560 | if ((res = psiconv_list_add(formula_stack,formula))) |
|
|
561 | goto ERROR8; |
|
|
562 | formula->type = psiconv_formula_unknown; |
367 | } else if ((formula_elements[marker].formula_type == |
563 | } else if ((formula_elements[marker].formula_type == |
368 | psiconv_formula_dat_float) || |
|
|
369 | (formula_elements[marker].formula_type == |
|
|
370 | psiconv_formula_dat_var) || |
564 | psiconv_formula_dat_var) || |
371 | (formula_elements[marker].formula_type == |
565 | (formula_elements[marker].formula_type == |
372 | psiconv_formula_dat_string) || |
566 | psiconv_formula_dat_string) || |
373 | (formula_elements[marker].formula_type == |
|
|
374 | psiconv_formula_dat_cellref) || |
|
|
375 | (formula_elements[marker].formula_type == |
|
|
376 | psiconv_formula_dat_cellblock) || |
|
|
377 | (formula_elements[marker].formula_type == |
567 | (formula_elements[marker].formula_type == |
378 | psiconv_formula_dat_vcellblock) || |
568 | psiconv_formula_dat_vcellblock) || |
379 | (formula_elements[marker].formula_type == |
569 | (formula_elements[marker].formula_type == |
380 | psiconv_formula_mark_opsep) || |
570 | psiconv_formula_mark_opsep) || |
381 | (formula_elements[marker].formula_type == |
571 | (formula_elements[marker].formula_type == |