[BACK]Return to test_hook.rr CVS log [TXT][DIR] Up to [local] / OpenXM / src / asir-contrib / packages / src
File: [local] / OpenXM / src / asir-contrib / packages / src / test_hook.rr (download)

Revision 1.1, Wed Mar 11 07:28:45 2015 UTC (9 years, 2 months ago) by takayama
Branch: MAIN
CVS Tags: HEAD 

A file for test functions tmp_hook.rr will be loaded.

/* $OpenXM: OpenXM/src/asir-contrib/packages/src/test_hook.rr,v 1.1 2015/03/11 07:28:45 takayama Exp $ */

/* 
   Functions defined in tmp_hook.rr are loaded.
   The top level should be
   def util_callfn(Fname,Args) {
     return(0);
   }
*/
if (which("tmp_hook.rr") != 0) {
  Fname=which("tmp_hook.rr");
  printf("Importing %a\n",Fname);
  import(Fname);
}else {} $

end$