Update of /cvsroot/pure-data/externals/k_cext
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3569
Modified Files:
k_cext_generatecode.c
Added Files:
help-string.pd
Log Message:
Fixed strings.
Index: k_cext_generatecode.c
===================================================================
RCS file: /cvsroot/pure-data/externals/k_cext/k_cext_generatecode.c,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** k_cext_generatecode.c 11 Jan 2004 15:25:09 -0000 1.2
--- k_cext_generatecode.c 9 Aug 2004 13:55:42 -0000 1.3
***************
*** 194,201 ****
case A_SYMBOL:
sprintf(string,"%s",atom_getsymbolarg(i,argc,argv)->s_name);
if(!strcmp(".",string)){
sprintf(string," ");
k->indentation++;
!
}else{if(!strcmp("DO",string)){
k->set_indentation[k->indentation]=1;
--- 194,219 ----
case A_SYMBOL:
sprintf(string,"%s",atom_getsymbolarg(i,argc,argv)->s_name);
+
+ printf("string: \"%s\"\n",string);
+
+ if(strstr(string,"s<")!=NULL){
+ char *pos=strstr(string,"s<");
+ pos[0]=' ';
+ pos[1]='\"';
+ printf("japp\n");
+ }
+
+ if(strstr(string,">s")!=NULL){
+ char *pos=strstr(string,">s");
+ pos[0]='\"';
+ pos[1]=' ';
+ printf("japp2n");
+ }
+
if(!strcmp(".",string)){
sprintf(string," ");
k->indentation++;
!
!
}else{if(!strcmp("DO",string)){
k->set_indentation[k->indentation]=1;
***************
*** 254,257 ****
--- 272,276 ----
}
}
+
fprintf(k->file,"%s",string);
if(string[strlen(string)-1]!='\n') fprintf(k->file," ");
--- NEW FILE: help-string.pd ---
#N canvas 0 0 450 300 10;
#X msg 31 84 bang;
#X obj 30 125 k_cext \; system(s<echo something>s) \;;
#X text 26 40 Strings are started with s< and ended with >s;
#X connect 0 0 1 0;