Browse Source

Updated Racket

Mike Smith 10 years ago
parent
commit
50593008d9

+ 3 - 0
frameworks/Racket/racket-ws/bash_profile.sh

@@ -0,0 +1,3 @@
+#!/bin/bash
+
+export RACKET_HOME=${IROOT}/racket

+ 0 - 24
frameworks/Racket/racket-ws/setup.py

@@ -1,24 +0,0 @@
-
-import subprocess
-import sys
-import setup_util
-import os
-
-def start(args, logfile, errfile):
-  db_host = args.database_host
-  threads = str(args.max_threads)
-  subprocess.Popen("racket -t bench.rkt -- " + db_host, shell=True, cwd="racket-ws/bench", stderr=errfile, stdout=logfile)
-  return 0
-
-def stop(logfile, errfile):
-  p = subprocess.Popen(['ps', 'aux'], stdout=subprocess.PIPE)
-  out, err = p.communicate()
-  for line in out.splitlines():
-    if 'bench' in line:
-      try:
-        pid = int(line.split(None, 2)[1])
-        os.kill(pid, 15)
-      except OSError:
-        pass
-
-  return 0

+ 4 - 0
frameworks/Racket/racket-ws/setup.sh

@@ -0,0 +1,4 @@
+#!/bin/bash
+
+cd bench
+$RACKET_HOME/bin/racket -t bench.rkt -- ${DBHOST} &

+ 8 - 6
toolset/setup/linux/languages/racket.sh

@@ -1,14 +1,16 @@
 #!/bin/bash
 #!/bin/bash
 
 
-RET1=$(fw_exists racket/bin/racket)
-RET2=$(fw_exists racket/collects/racket)
-if [ "$RET1" == 0 ] && [ "$RET2" == 0 ]; then 
+RET=$(fw_exists ${IROOT}/racket.installed)
+if [ "$RET" == 0 ]; then 
   return 0;
   return 0;
 fi
 fi
 
 
 fw_get http://mirror.racket-lang.org/installers/recent/racket-src.tgz -O racket-src.tar.gz
 fw_get http://mirror.racket-lang.org/installers/recent/racket-src.tgz -O racket-src.tar.gz
 fw_untar racket-src.tar.gz
 fw_untar racket-src.tar.gz
-cd racket/src 
-./configure --prefix=/usr/local
+mv racket racket-install
+cd racket-install/src 
+./configure --prefix=${IROOT}/racket
 make
 make
-sudo make install
+make install
+
+touch ${IROOT}/racket.installed