*** empty log message ***
authorJosh Yelon <jyelon@uiuc.edu>
Wed, 30 Jul 1997 19:57:54 +0000 (19:57 +0000)
committerJosh Yelon <jyelon@uiuc.edu>
Wed, 30 Jul 1997 19:57:54 +0000 (19:57 +0000)
src/arch/net/machine.c
src/arch/uth/machine.c
src/scripts/Makefile [moved from src/Makefile with 87% similarity]
src/scripts/charmc [moved from src/charmc with 100% similarity]
src/scripts/gatherflat [new file with mode: 0755]
src/scripts/gathertree [new file with mode: 0755]

index a53d2f6985fa90aa69dca826a49352ada357136d..2bc757a37fc8506380e4b5427a80e4e0092ff24c 100644 (file)
@@ -1037,10 +1037,10 @@ static int        ctrlport, dataport, ctrlskt, dataskt;
 static OtherNode *nodes_by_pe;  /* OtherNodes indexed by processor number */
 static OtherNode  nodes;        /* Indexed only by ``node number'' */
 
-static int        Cmi_shutdown_done;
-static mutex_t    Cmi_scanf_mutex;
-static char      *Cmi_scanf_data;
-static double     Cmi_clock;
+static int          Cmi_shutdown_done;
+static CmiNodeLock  Cmi_scanf_mutex;
+static char        *Cmi_scanf_data;
+static double       Cmi_clock;
 
 /****************************************************************************
  *                                                                          
@@ -1593,7 +1593,7 @@ static int InternalScanf(fmt, l)
   }
   if (nargs > 18) KillEveryone("CmiScanf only does 18 args.\n");
   for (i=0; i<nargs; i++) ptr[i]=va_arg(l, char *);
-  mutex_lock(&Cmi_scanf_mutex);
+  CmiLock(Cmi_scanf_mutex);
   ctrl_sendone(120, "scanf %s %d %s", Cmi_self_IP_str, ctrlport, fmt);
   while (Cmi_scanf_data == 0) jsleep(0, 250000);
   i = sscanf(Cmi_scanf_data, fmt,
@@ -1602,7 +1602,7 @@ static int InternalScanf(fmt, l)
             ptr[12], ptr[13], ptr[14], ptr[15], ptr[16], ptr[17]);
   free(Cmi_scanf_data);
   Cmi_scanf_data=0;
-  mutex_unlock(&Cmi_scanf_mutex);
+  CmiUnlock(Cmi_scanf_mutex);
   return i;
 }
 
@@ -2155,6 +2155,7 @@ void ConverseInit(int argc, char **argv, CmiStartFn fn, int usc, int ret)
   CmiTimerInit();
   CmiStartThreads();
   ConverseInitPE();
+  Cmi_scanf_mutex = CmiCreateLock();
   if (ret==0) {
     fn(argc, argv);
     if (usc==0) CsdScheduler(-1);
index d4a198b1ce254cbbac407720ca4c43cb1a796cad..4b495e581454d1a9517274b2ac8cc05756fb8c26 100644 (file)
  * REVISION HISTORY:
  *
  * $Log$
- * Revision 1.26  1997-07-30 17:31:13  jyelon
+ * Revision 1.27  1997-07-30 19:58:09  jyelon
+ * *** empty log message ***
+ *
+ * Revision 1.26  1997/07/30 17:31:13  jyelon
  * *** empty log message ***
  *
  * Revision 1.25  1997/07/29 16:09:47  milind
@@ -156,13 +159,6 @@ void *blk;
 free( ((char *)blk)-8);
 }
 
-CmiNodeLock_t CmiCreateLock(void)
-{
-  int *x = malloc(sizeof(int));
-  *x = 0;
-  return (CmiNodeLock_t) x;
-}
-
 /*****************************************************************************
  *
  * Module variables
similarity index 87%
rename from src/Makefile
rename to src/scripts/Makefile
index ef940c5b6d2c702c4f1bf08ba2fc94eef1b523df..8be2bd657d60bd7d00c311211a4772c7103ee369 100644 (file)
@@ -69,64 +69,42 @@ basics: dirs+sources $(ALLHEADERS) $(ALLINTERFACES) charmc conv-mach.csh
 
 dirs+sources:
        @rm -f .vdir .gdir
-       @(cd .. ; basename `pwd` > tmp/.vdir)
-       @cat .vdir | sed -e 's@-.*@@' > .gdir
+       @(cd .. ; basename `pwd`)                       > .vdir
+       @(cd .. ; basename `pwd` | sed -e 's@-.*@@')    > .gdir
        @echo
-       @echo 'Creating directory tree '`cat .vdir`'/...'
+       @echo 'Gathering source code.'
        @echo
+       find . -type l -exec rm {} \;
        rm -rf ../bin ; mkdir ../bin
        rm -rf ../lib ; mkdir ../lib
        rm -rf ../src ; mkdir ../src
-       @echo
-       @echo 'Gathering source code in '`cat .vdir`'/tmp'
-       @echo
-       rm -f ../../bin ; ln -s `cat .vdir`/bin ../../bin
-       find . -type l -exec rm {} \;
-       find ../../src/Common -name CVS -prune -o -name pJava -prune -o -name mdPerl -prune -o -type f -exec ln -s {} . \;
-       find ../../src/`cat .vdir` -name CVS -prune -o -type f -exec ln -s {} . \;
-       if [ -d ../../src/Common.`cat .gdir` ] ; then find ../../src/Common.`cat .gdir` -name CVS -prune -o -type f -exec ln -s {} . \; ; fi
-       @echo
-       @echo 'Gathering quickthreads tree.'
-       @echo
-       rm -rf QuickThreads ../src/QuickThreads
-       (cd ../../src ; find QuickThreads -type d -print) | sed -e 's@^@mkdir @' > tmp.sh
-       sh tmp.sh ; cd ../src ; sh ../tmp/tmp.sh ; rm -f tmp.sh
-       rt=`(cd ../../src ; pwd)` ; (cd ../../src ; find QuickThreads -type f -print) | awk '{ print "ln -s '$$rt'/"$$1" "$$1; }' > tmp.sh
-       sh tmp.sh ; cd ../src ; sh ../tmp/tmp.sh ; rm -f tmp.sh
-       @echo
-       @echo 'Gathering test-programs in '`cat .vdir`/pgms
-       @echo
        rm -rf ../pgms
-       (cd ../.. ; find pgms -type d -print) | sed -e 's@^@mkdir ../@' | sh
-       rt=`(cd ../.. ; pwd)` ; (cd ../.. ; find pgms -type f -print) | awk '{ print "ln -s '$$rt'/"$$1" ../"$$1; }' > tmp.sh
-       sh tmp.sh ; rm -f tmp.sh
-       @echo
-       @echo 'Gathering little languages in '`cat .vdir`/src
-       @echo
-       rm -rf ../src/langs
-       (cd ../../src/Common ; find langs -type d ! -name CVS -print) | sed -e 's@^@mkdir @' > tmp.sh
-       cd ../src ; sh ../tmp/tmp.sh ; rm -f ../tmp/tmp.sh
-       rt=`(cd ../../src/Common ; pwd)` ; (cd ../../src/Common ; find langs -type f -print) | grep -v '/CVS/' | awk '{ print "ln -s '$$rt'/"$$1" "$$1; }' > tmp.sh
-       cd ../src ; sh ../tmp/tmp.sh ; rm -f ../tmp/tmp.sh
+       ../../src/Common/scripts/gatherflat ../../src/Common/scripts .
+       ./gatherflat ../../src/Common/conv-core        .
+       ./gatherflat ../../src/Common/ck-core          .
+       ./gatherflat ../../src/Common/ck-ldb           .
+       ./gatherflat ../../src/Common/ck-perf          .
+       ./gatherflat ../../src/Common/langs/simplemsg  .
+       ./gatherflat ../../src/Common/langs/pvmc       .
+       ./gatherflat ../../src/Common/lib-acc          .
+       ./gatherflat ../../src/Common/lib-misc         .
+       ./gatherflat ../../src/Common/lib-redn         .
+       ./gatherflat ../../src/Common/xlat             .
+       ./gatherflat ../../src/Common/xlat++           .
+       ./gatherflat ../../src/Common/xlat-i           .
+       ./gatherflat ../../src/Common/xlatcpm          .
+       ./gathertree ../../src/QuickThreads QuickThreads
+       ./gatherflat ../../src/Common.`cat .gdir`      .
+       ./gatherflat ../../src/`cat .vdir`             .
+       ./gathertree ../../src/Common/langs   ../src/langs
+       ./gathertree ../../src/Common/xlat    ../src/xlat
+       ./gathertree ../../src/Common/xlat++  ../src/xlat++
+       ./gathertree ../../src/Common/xlat-i  ../src/xlat-i
+       ./gathertree ../../src/Common/xlatcpm ../src/xlatcpm
+       ./gathertree ../../pgms ../pgms
+       ln -s ../../src/Common/scripts/Makefile ../src
        @echo
-       @echo 'Gathering translator source in '`cat .vdir`/src
        @echo
-       mkdir ../src/xlat
-       mkdir ../src/xlat++
-       mkdir ../src/xlat-i
-       mkdir ../src/xlatcpm
-       ln -s ../../src/Common/xlat/xl-*           ../src/xlat
-       ln -s ../../src/Common/xlat++/xp-*         ../src/xlat++
-       ln -s ../../src/Common/xlat-i/xi-*         ../src/xlat-i
-       ln -s ../../src/Common/xlatcpm/conv-cpm.*  ../src/xlatcpm
-       ln -s ../../src/Common/Makefile            ../src/xlat
-       ln -s ../../src/Common/Makefile            ../src/xlat++
-       ln -s ../../src/Common/Makefile            ../src/xlat-i
-       ln -s ../../src/Common/Makefile            ../src/xlatcpm
-       @echo
-       @echo 'Gathering little languages in '`cat .vdir`/src
-       @echo
-
        @rm -f .vdir .gdir
        touch dirs+sources
 
similarity index 100%
rename from src/charmc
rename to src/scripts/charmc
diff --git a/src/scripts/gatherflat b/src/scripts/gatherflat
new file mode 100755 (executable)
index 0000000..3a10d4f
--- /dev/null
@@ -0,0 +1,11 @@
+#!/bin/sh
+
+SRC=`(cd $1 ; pwd)`
+DST=$2
+
+rm -f temp.f temp.l
+if [ ! -d $DST ] ; then mkdir $DST ; fi
+(cd $SRC ; find . -name CVS -prune -o -type f -print)|sed -e s@.@@>temp.f
+awk '{print "ln -s '$SRC'"$1" '$DST'";}' < temp.f > temp.l
+sh temp.l
+rm -f temp.d temp.l
diff --git a/src/scripts/gathertree b/src/scripts/gathertree
new file mode 100755 (executable)
index 0000000..18df1f8
--- /dev/null
@@ -0,0 +1,13 @@
+#!/bin/sh
+
+SRC=`(cd $1 ; pwd)`
+DST=$2
+
+rm -f temp.d temp.f temp.m temp.l
+(cd $SRC ; find . -name CVS -prune -o -type d -print )|sed -e s@.@@> temp.d
+(cd $SRC ; find . -name CVS -prune -o -type f -print )|sed -e s@.@@> temp.f
+awk '{print "mkdir '$DST'"$1;}' < temp.d > temp.m
+awk '{print "ln -s '$SRC'"$1" '$DST'"$1;}' < temp.f > temp.l
+sh temp.m
+sh temp.l
+rm -f temp.d temp.f temp.m temp.l