[BACK]Return to strobj.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / builtin

Diff for /OpenXM_contrib2/asir2000/builtin/strobj.c between version 1.49 and 1.52

version 1.49, 2004/07/13 09:10:38 version 1.52, 2005/04/05 02:29:44
Line 45 
Line 45 
  * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,   * DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE,
  * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.   * PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE.
  *   *
  * $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.48 2004/07/13 07:59:53 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/strobj.c,v 1.51 2004/08/05 00:56:54 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 65  struct TeXSymbol {
Line 65  struct TeXSymbol {
   
 extern char *parse_strp;  extern char *parse_strp;
   
   void Psprintf();
 void Prtostr(), Pstrtov(), Peval_str();  void Prtostr(), Pstrtov(), Peval_str();
 void Pstrtoascii(), Pasciitostr();  void Pstrtoascii(), Pasciitostr();
 void Pstr_len(), Pstr_chr(), Psub_str();  void Pstr_len(), Pstr_chr(), Psub_str();
Line 76  void Pquotetotex_tb();
Line 77  void Pquotetotex_tb();
 void Pquotetotex();  void Pquotetotex();
 void Pquotetotex_env();  void Pquotetotex_env();
 void Pflatten_quote();  void Pflatten_quote();
 void Pquote_to_funargs(),Pfunargs_to_quote();  void Pquote_to_funargs(),Pfunargs_to_quote(),Pget_function_name();
 void fnodetotex_tb(FNODE f,TB tb);  void fnodetotex_tb(FNODE f,TB tb);
 char *symbol_name(char *name);  char *symbol_name(char *name);
 char *conv_rule(char *name);  char *conv_rule(char *name);
Line 88  void fargstotex_tb(char *opname,FNODE f,TB tb);
Line 89  void fargstotex_tb(char *opname,FNODE f,TB tb);
 int top_is_minus(FNODE f);  int top_is_minus(FNODE f);
   
 struct ftab str_tab[] = {  struct ftab str_tab[] = {
           {"sprintf",Psprintf,-99999999},
         {"rtostr",Prtostr,1},          {"rtostr",Prtostr,1},
         {"strtov",Pstrtov,1},          {"strtov",Pstrtov,1},
         {"eval_str",Peval_str,1},          {"eval_str",Peval_str,1},
Line 106  struct ftab str_tab[] = {
Line 108  struct ftab str_tab[] = {
         {"flatten_quote",Pflatten_quote,2},          {"flatten_quote",Pflatten_quote,2},
         {"quote_to_funargs",Pquote_to_funargs,1},          {"quote_to_funargs",Pquote_to_funargs,1},
         {"funargs_to_quote",Pfunargs_to_quote,1},          {"funargs_to_quote",Pfunargs_to_quote,1},
           {"get_function_name",Pget_function_name,1},
         {0,0,0},          {0,0,0},
 };  };
   
Line 842  char *symbol_name(char *name)
Line 845  char *symbol_name(char *name)
         return 0;          return 0;
 }  }
   
   void Pget_function_name(NODE arg,STRING *rp)
   {
                   QUOTEARG qa;
                   ARF f;
                   char *opname;
   
                   qa = (QUOTEARG)BDY(arg);
                   if ( !qa || OID(qa) != O_QUOTEARG || qa->type != A_arf )
                           *rp = 0;
                   else {
                           f = (ARF)BDY(qa);
                           opname = f->name;
                           MKSTR(*rp,opname);
                   }
   }
   
   FNODE strip_paren(FNODE);
   
 void fnodetotex_tb(FNODE f,TB tb)  void fnodetotex_tb(FNODE f,TB tb)
 {  {
         NODE n,t,t0;          NODE n,t,t0;
Line 914  void fnodetotex_tb(FNODE f,TB tb)
Line 935  void fnodetotex_tb(FNODE f,TB tb)
                         } else if ( !strcmp(opname,"^") ) {                          } else if ( !strcmp(opname,"^") ) {
                                 fnodetotex_tb((FNODE)FA1(f),tb);                                  fnodetotex_tb((FNODE)FA1(f),tb);
                                 write_tb("^{",tb);                                  write_tb("^{",tb);
                                 fnodetotex_tb((FNODE)FA2(f),tb);                                  fnodetotex_tb(strip_paren((FNODE)FA2(f)),tb);
                                 write_tb("} ",tb);                                  write_tb("} ",tb);
                         } else if ( !strcmp(opname,"%") ) {                          } else if ( !strcmp(opname,"%") ) {
                                 fnodetotex_tb((FNODE)FA1(f),tb);                                  fnodetotex_tb((FNODE)FA1(f),tb);
Line 1198  char *objtostr(Obj obj)
Line 1219  char *objtostr(Obj obj)
         soutput_init(r);          soutput_init(r);
         sprintexpr(CO,obj);          sprintexpr(CO,obj);
         return r;          return r;
   }
   
   void Psprintf(NODE arg,STRING *rp)
   {
       STRING string;
       char *s,*t,*r;
       int argc,n,len;
       NODE node;
   
       string = (STRING)ARG0(arg);
       asir_assert(string,O_STR,"sprintf");
       s = BDY(string);
       for(n = 0, t = s; *t; t++) {
           if (*t=='%' && *(t+1)=='a') {
               n++;
           }
       }
       for(node = NEXT(arg), argc = 0, len = strlen(s); node; node = NEXT(node), argc++) {
           len += estimate_length(CO,BDY(node));
       }
       if (argc < n) {
           error("sprintf: invalid argument");
       }
       r = (char *)MALLOC_ATOMIC(len);
       for(node = NEXT(arg), t = r; *s; s++) {
           if (*s=='%' && *(s+1)=='a') {
               strcpy(t,objtostr(BDY(node)));
               node = NEXT(node);
               t = strchr(t,0);
               s++;
           }else {
               *t++ = *s;
           }
       }
       *t = 0;
       MKSTR(*rp,r);
 }  }
   
 void fnodenodetotex_tb(NODE n,TB tb)  void fnodenodetotex_tb(NODE n,TB tb)
Legend:
Removed from v.1.49  
changed lines
  Added in v.1.52
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>