/* Siag, Scheme In A Grid Copyright (C) 1996-2002 Ulric Eriksson This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software Foundation; either version 2, or (at your option) any later version. This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for more details. You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ /* --- 980727: WK1 format support by Jon K. Hellan" 981030: Dirty hack to make this work with the new format code. --- */ #include #include #include #include #include "../siod/siod.h" #include "../common/common.h" #include #include #include "calc.h" /* --- Saving strategy: We always have the fallback option to save as a floating-point or string constant. But it is desirable to save formulas as such to not lose information. In particular, a wk1 file that can be loaded by SIAG should also be possible to save again. The formula string is parsed by SIOD into list form using the read-from-string function. The resulting list is then passed into a C function, which traverses it and generates RPN code to be stored in the worksheet. --- */ static LISP pre2post(LISP l) { LISP p; if (CONSP(l)) { /* process all the arguments first; must also count args */ for (p = CDR(l); NNULLP(p); p = CDR(p)) { pre2post(CAR(p)); } if (SYMBOLP(CAR(l))) { /* should save the matching operator code */ printf("operator: %s\n", get_c_string(CAR(l))); } else { printf("error: missing operator\n"); } } else if (FLONUMP(l)) { /* simple enough */ printf("number: %g\n", get_c_double(l)); } else if (SYMBOLP(l)) { /* this will be a range, a reference or an error */ printf("symbol: %s\n", get_c_string(l)); } else { printf("error: missing operand\n"); } return NIL; } static int col_last_changed(buffer *b, int s, int row) { int i; if (row > b->sht[s].alloc_lines) return 0; for (i = b->sht[s].alloc_cols[row]; i > 1; i--) if (ret_type(b, s, row, i) != EMPTY) break; return i; } static void writeint(unsigned char *p, int n) { p[0] = n % 256; p[1] = n / 256; } static void writefloat(unsigned char *p, double x) { int s = 1, e = 0, i; unsigned int idx, mask; double m; for (i = 0; i < 8; i++) p[i] = 0; if (x == 0) { return; } if (x < 0) { s = -1; x = -x; p[7] = 0x80; } m = frexp(x, &e); m *= 2; e--; e += 1023; m--; e &= 2047; p[7] |= (e >> 4); p[6] = ((e & 0x0f) << 4); idx = 6; mask = 8; for (i = 0; i < 52; i++) { if (!mask) { idx--; mask = 0x80; } m *= 2; if (m >= 1) { p[idx] |= mask; m -= 1; } else { ; } mask >>= 1; } } static int save_cell(FILE *fp, buffer *buf, int sh, int r, int c) { unsigned char b[2000], s[2000], *p; double num; int len; switch (ret_type(buf, sh, r, c)) { case LABEL: writeint(b, 0x0F); /* type LABEL */ p = (unsigned char *)ret_text(buf, sh, r, c); len = 1+2+2+1+strlen((char *)p)+1; writeint(b+2, len); b[4] = 0xFF; /* format */ writeint(b+5, c-1); /* column */ writeint(b+7, r-1); /* row */ b[9] = '\''; strcpy((char *)b+10, (char *)p); fwrite(b, 1, len+4, fp); break; case STRING: /* treat as label */ writeint(b, 0x0F); /* type LABEL */ p = (unsigned char *)ret_pvalue(NULL, buf, sh, r, c, -1); len = 1+2+2+1+strlen((char *)p)+1; writeint(b+2, len); b[4] = 0xFF; /* format */ writeint(b+5, c-1); /* column */ writeint(b+7, r-1); /* row */ b[9] = '\''; strcpy((char *)b+10, (char *)p); fwrite(b, 1, len+4, fp); break; case EXPRESSION: case CONSTANT: writeint(b, 0x0E); /* type NUMBER */ len = 1+2+2+8; writeint(b+2, len); /* length 1+2+2+8 */ b[4] = 0xFF; /* format */ writeint(b+5, c-1); /* column */ writeint(b+7, r-1); /* row */ num = ret_val(buf, sh, r, c).number; writefloat(b+9, num); sprintf((char *)s, "(scm->list %d %d)", r, c); execute((char *)s); fwrite(b, 1, len+4, fp); /* 4 is for type and length */ break; default: /* ignore for now */ break; } return 0; } static int save_wk1(char *fn, buffer *buf) { int r, c; FILE *fp; static unsigned char preblurb[] = {0x00, 0x00, 0x02, 0x00, 0x06, 0x04}; static unsigned char postblurb[] = {0x01, 0x00, 0x00, 0x00}; int s = 0; /* only first sheet */ if ((fp = fopen(fn, "wb")) == NULL) return 1; if (fwrite(preblurb, 1, sizeof preblurb, fp) != sizeof preblurb) { fclose(fp); return 1; } for (r = 1; r <= line_last_used(buf, s); r++) { for (c = 1; c <= col_last_changed(buf, s, r); c++) { if (save_cell(fp, buf, s, r, c)) { fclose(fp); return 1; } } } if (fwrite(postblurb, 1, sizeof postblurb, fp) != sizeof postblurb) { fclose(fp); return 1; } fclose(fp); return 0; } /* --- Loading strategy: The Lotus format stores formulas in postfix notation. It is most straightforward to translate this to prefix, i.e. Scheme. Every token is stored on a stack, in string form. Example: 1 2 + => "1", "1" "2", "(+ 1 2)" So an operator is done by creating a new string from several on the stack. --- */ static char *stack[10]; static int sp; static void push(char *p) { if (sp >= 10) return; stack[sp++] = p; } static char *pop(void) { if (sp <= 0) return NULL; --sp; return stack[sp]; } /* --- Dates in wk1 format are based on day 0 = Jan 1st 1900, However, files produced by Excel are 1 day off, because Excel believes that 1900 was a leap year. I don't know if Lotus has the same bug, and choose to treat Excel as the norm. BTW, this code breaks in 2034, if we are still using 32 bit int then. Jon Kåre Hellan July 23rd 1998 */ static double from_wk1date(const double wk1date, int justtime) { double rdate = wk1date; if (!justtime) { rdate -= 25569; } return (double)(rdate * 86400); } /* --- borrowed from teapot */ static double readfloat(const unsigned char *s) { double x; int sg,e,i; x=0.0; for (i=1; i<256; i<<=1) x=x/2.0+!!(s[0]&i); for (i=1; i<256; i<<=1) x=x/2.0+!!(s[1]&i); for (i=1; i<256; i<<=1) x=x/2.0+!!(s[2]&i); for (i=1; i<256; i<<=1) x=x/2.0+!!(s[3]&i); for (i=1; i<256; i<<=1) x=x/2.0+!!(s[4]&i); for (i=1; i<256; i<<=1) x=x/2.0+!!(s[5]&i); x=x/2.0+!!(s[6]&0x01); x=x/2.0+!!(s[6]&0x02); x=x/2.0+!!(s[6]&0x04); x=x/2.0+!!(s[6]&0x08); x=x/2.0+1.0; if ((e=((s[6]>>4)+((s[7]&0x7f)<<4))-1023)==-1023) { x=0.0; e=0; } if (s[7]&0x80) sg=-1; else sg=1; return (sg*ldexp(x,e)); } static unsigned int readint(unsigned char *p) { return p[0]+256*p[1]; } static int readsint(unsigned char *p) { int sign, value; if (p[1] & 0x80) sign = -32768; else sign = 0; value = p[0]+256*(p[1]&0x7f); return sign+value; } static int readfmt(unsigned char *p) { #define WK1FMT_PROT_MASK 0x80 #define WK1FMT_TYPE_MASK 0x70 #define WK1FMT_DECIMALS_MASK 0x0F #define WK1FMT_SPEC_MASK WK1FMT_DECIMALS_MASK #define WK1FMT_SHIFT 4 #define WK1FMT_FIXED (0<