aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2006-06-07 15:24:37 +0000
committerIOhannes m zmölnig <zmoelnig@users.sourceforge.net>2006-06-07 15:24:37 +0000
commit53648f5eaadad8e9c8c661b9871ec1178ba3534f (patch)
tree4a458f5003a51b4a4a9c04ad6bb74fbca882c15f
parenta86995ffafc2b99cad373f3ad31f6236c63d7f62 (diff)
hopefully fixed a bug discovered by p8r: 1st line was not read (or rather "output"); i guess this has more to do withpd>0=0.39 but you never no...;
more testing needs to be done! svn path=/trunk/externals/zexy/; revision=5178
-rw-r--r--src/msgfile.c69
1 files changed, 43 insertions, 26 deletions
diff --git a/src/msgfile.c b/src/msgfile.c
index 3a925f5..ce6c756 100644
--- a/src/msgfile.c
+++ b/src/msgfile.c
@@ -95,7 +95,10 @@ static void write_currentnode(t_msgfile *x, int ac, t_atom *av)
/* append list to the current node list */
t_msglist *cur=x->current;
-
+ if(ac&&av&&A_SYMBOL==av->a_type&&gensym("")==atom_getsymbol(av)){
+ /* ignoring empty symbols! */
+ return;
+ }
if (cur) {
t_atom *ap;
int newsize = cur->n + ac;
@@ -234,7 +237,6 @@ static void msgfile_skip(t_msgfile *x, t_float f)
if (i<0) i=0;
msgfile_goto(x, i);
-
}
static void msgfile_clear(t_msgfile *x)
@@ -520,9 +522,10 @@ static void msgfile_read(t_msgfile *x, t_symbol *filename, t_symbol *format)
int rmode = 0;
int fd;
- long readlength, length;
+ long readlength, length, pos;
char filnam[MAXPDSTRING], namebuf[MAXPDSTRING];
char buf[MAXPDSTRING], *bufptr, *readbuf;
+ char *charbinbuf=NULL, *cbb;
char*dirname=canvas_getdir(x->x_canvas)->s_name;
int mode = x->mode;
@@ -542,21 +545,6 @@ static void msgfile_read(t_msgfile *x, t_symbol *filename, t_symbol *format)
error("%s: can't open in %s", filename->s_name, dirname);
return;
}
- } else {
- close (fd);
-
- namebuf[0] = 0;
- if (*buf)
- strcat(namebuf, buf), strcat(namebuf, "/");
- strcat(namebuf, bufptr);
-
- /* open and get length */
- sys_bashfilename(namebuf, filnam);
-
- if ((fd = open(filnam, rmode)) < 0) {
- error("msgfile_read: unable to open %s", filnam);
- return;
- }
}
if (gensym("cr")==format) {
@@ -571,14 +559,14 @@ static void msgfile_read(t_msgfile *x, t_symbol *filename, t_symbol *format)
switch (mode) {
case CR_MODE:
separator = ' ';
- eol = ' ';
+ eol = '\n';
break;
case CSV_MODE:
separator = ',';
eol = ' ';
break;
default:
- separator = ' ';
+ separator = '\n';
eol = ';';
break;
}
@@ -601,24 +589,53 @@ static void msgfile_read(t_msgfile *x, t_symbol *filename, t_symbol *format)
/* close */
close(fd);
- /* undo separators and eols */
+ /* convert separators and eols to what pd expects in a binbuf*/
bufptr=readbuf;
+# define MSGFILE_HEADROOM 1024
+
+ charbinbuf=(char*)getbytes(length+MSGFILE_HEADROOM);
+ cbb=charbinbuf;
+ for(pos=0; pos<length+MSGFILE_HEADROOM; pos++)charbinbuf[pos]=0;
+
+ *cbb++=';';
+ pos=1;
while (readlength--) {
+ if(pos>=length+MSGFILE_HEADROOM){
+ error("msgfile: read error (headroom %d too small!)", MSGFILE_HEADROOM);
+ goto read_error;
+ break;
+ }
if (*bufptr == separator) {
- *bufptr = ' ';
+ *cbb = ' ';
+ } else if (*bufptr==eol) {
+ *cbb++=';';pos++;
+ *cbb='\n';
+ }
+ else {
+ *cbb=*bufptr;
}
- else if ((*bufptr == eol) && (bufptr[1] == '\n')) *bufptr = ';';
+
bufptr++;
+ cbb++;
+ pos++;
}
-
+#if 0
+ // if(';'==cbb[-1])cbb[-1]=0;
+ pos--;
+ while(pos>0&&('\n'==charbinbuf[pos]||';'==charbinbuf[pos]||' '==charbinbuf[pos])){
+ charbinbuf[pos]=0;
+ pos--;
+ }
+#endif
/* convert to binbuf */
- binbuf_text(bbuf, readbuf, length);
+ binbuf_text(bbuf, charbinbuf, length+MSGFILE_HEADROOM);
msgfile_binbuf2listbuf(x, bbuf);
-
+ read_error:
binbuf_free(bbuf);
t_freebytes(readbuf, length);
+ t_freebytes(charbinbuf, length+MSGFILE_HEADROOM);
}
static void msgfile_write(t_msgfile *x, t_symbol *filename, t_symbol *format)