externals/clr clr.cpp,1.14,1.15 - Pd-cvs

9 Mar 2006


      Update of /cvsroot/pure-data/externals/clr
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv7581/clr
Modified Files:
    clr.cpp 
Log Message:
fix for strange open_via_path behavior
Index: clr.cpp
===================================================================
RCS file: /cvsroot/pure-data/externals/clr/clr.cpp,v
retrieving revision 1.14
retrieving revision 1.15
diff -C2 -d -r1.14 -r1.15
*** clr.cpp	9 Mar 2006 17:27:37 -0000	1.14
--- clr.cpp	9 Mar 2006 19:06:53 -0000	1.15
***************
*** 910,914 ****
          int fd;
          if ((fd = open_via_path("",CORELIB,"." DLLEXT,dirbuf,&nameptr,MAXPDSTRING,1)) >= 0) {
!             strcat(dirbuf,"/" CORELIB "." DLLEXT);
              close(fd);
          }
--- 910,915 ----
          int fd;
          if ((fd = open_via_path("",CORELIB,"." DLLEXT,dirbuf,&nameptr,MAXPDSTRING,1)) >= 0) {
!             if(dirbuf != nameptr) // fix for the fact that open_via_path doesn't return a path, when it's found in .
!                 strcat(dirbuf,"/" CORELIB "." DLLEXT);
              close(fd);
          }
***************
*** 919,923 ****
          MonoAssembly *assembly = mono_domain_assembly_open (monodomain,dirbuf);
        if(!assembly) {
! 		    error("clr: assembly " CORELIB "." DLLEXT " not found!");
    	    return;
        }
--- 920,924 ----
          MonoAssembly *assembly = mono_domain_assembly_open (monodomain,dirbuf);
        if(!assembly) {
! 		    error("CLR - assembly %s not found!",dirbuf);
    	    return;
        }