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

Diff for /OpenXM_contrib2/asir2000/builtin/print.c between version 1.22 and 1.26

version 1.22, 2006/09/26 05:35:25 version 1.26, 2015/03/15 19:31:30
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/print.c,v 1.21 2006/02/01 07:29:29 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/builtin/print.c,v 1.25 2011/06/16 08:17:15 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
   
   void Psprintf(NODE,STRING *);
   
   void Pprintf();
 void Pprint();  void Pprint();
 void Pquotetolist();  void Pquotetolist();
 void Pobjtoquote();  void Pobjtoquote();
Line 57  void Peval_variables_in_quote();
Line 60  void Peval_variables_in_quote();
 void Pset_print_function();  void Pset_print_function();
   
 struct ftab print_tab[] = {  struct ftab print_tab[] = {
           {"printf",Pprintf,-99999999},
         {"print",Pprint,-2},          {"print",Pprint,-2},
         {"objtoquote",Pobjtoquote,1},          {"objtoquote",Pobjtoquote,1},
         {"quotetolist",Pquotetolist,1},          {"quotetolist",Pquotetolist,1},
Line 69  extern int I_am_server;
Line 73  extern int I_am_server;
   
 int wfep_mode;  int wfep_mode;
   
   void Pprintf(NODE arg,pointer *rp)
   {
           STRING s;
           if ( arg ) {
                   Psprintf(arg,&s);
                   /* engine for wfep */
                   if ( wfep_mode ) {
                           print_to_wfep(s);
                   }else {
                           printexpr(CO,s);
                           fflush(asir_out);
                   }
           }
           *rp = 0;
           return;
   }
   
 void Pprint(NODE arg,pointer *rp)  void Pprint(NODE arg,pointer *rp)
 {  {
         Obj obj;          Obj obj;
Line 146  void fnodetotree(FNODE f,LIST *rp)
Line 167  void fnodetotree(FNODE f,LIST *rp)
   
         if ( !f ) {          if ( !f ) {
                 MKSTR(head,"internal");                  MKSTR(head,"internal");
                 n = mknode(2,head,0);                  n = mknode(2,head,NULLP);
                 MKLIST(*rp,n);                  MKLIST(*rp,n);
                 return;                  return;
         }          }
Legend:
Removed from v.1.22  
changed lines
  Added in v.1.26
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>