externals/k_cext help-string.pd,NONE,1.1 k_cext_generatecode.c,1.2,1.3 - Pd-cvs

9 Aug 2004


      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;