[LON-CAPA-cvs] cvs: modules /TexConvert/tthperl commands loncom/homework/caparesponse commands

[albertel]

albertel		Tue Apr 15 11:48:18 2003 EDT

  Modified files:              
    /loncom/homework/caparesponse	commands 
    /modules/TexConvert/tthperl	commands 
  Log:
  - this is crappy
  
  
Index: loncom/homework/caparesponse/commands
diff -u loncom/homework/caparesponse/commands:1.12 loncom/homework/caparesponse/commands:1.13
--- loncom/homework/caparesponse/commands:1.12	Sat May  4 13:57:01 2002
+++ loncom/homework/caparesponse/commands	Tue Apr 15 11:48:18 2003
@@ -42,6 +42,12 @@
 cd $path
 cp $CAPADIR/pProj/LONCAPA/*.o capaFunctions
 swig -perl5 capa.i 
+dist=`perl ../../build/distprobe`
+if [ $dist = "redhat8" ] 
+then
+	cat capa_wrap.c | perl -pe '$_=~s-SWIGEXPORT\(void,boot_capa\)\(CV\* cv\)\;-SWIGEXPORT\(void,boot_capa\)\(pTHX_ CV\* cv\)\;-;' > capa_wrap.c.new
+	mv capa_wrap.c.new capa_wrap.c
+fi
 cp Makefile.PL Makefile.pl
 perl Makefile.PL 
 make -f Makefile 
Index: modules/TexConvert/tthperl/commands
diff -u modules/TexConvert/tthperl/commands:1.9 modules/TexConvert/tthperl/commands:1.10
--- modules/TexConvert/tthperl/commands:1.9	Tue Apr 15 11:44:03 2003
+++ modules/TexConvert/tthperl/commands	Tue Apr 15 11:48:18 2003
@@ -33,6 +33,12 @@
 cp ../tthdynamic/tthfunc.c .
 cp ../ttmdynamic/ttmfunc.c .
 swig -perl5 tthfunc.i
+dist=`perl ../../../loncom/build/distprobe`
+if [ $dist = "redhat8" ]
+then
+        cat tthfunc_wrap.c | perl -pe '$_=~s-SWIGEXPORT\(void,boot_tth\)\(CV\* cv\)\;-SWIGEXPORT\(void,boot_tth\)\(pTHX_ CV\* cv\)\;-;' > tthfunc_wrap.c.new
+        mv tthfunc_wrap.c.new tthfunc_wrap.c
+fi
 perl Makefile.PL
 make -f Makefile
 cp blib/arch/auto/tth/tth.so .