ruby_nacl 0.1.0

data/ext/ruby_nacl/NaCl/measure-anything.c

@@ -0,0 +1,225 @@
+/*
+ * measure-anything.c version 20090223
+ * D. J. Bernstein
+ * Public domain.
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+#include <string.h>
+#include <time.h>
+#include <sys/time.h>
+#include <sys/types.h>
+#include <sys/resource.h>
+#include "cpucycles.h"
+#include "cpuid.h"
+
+typedef int uint32;
+
+static uint32 seed[32] = { 3,1,4,1,5,9,2,6,5,3,5,8,9,7,9,3,2,3,8,4,6,2,6,4,3,3,8,3,2,7,9,5 } ;
+static uint32 in[12];
+static uint32 out[8];
+static int outleft = 0;
+
+#define ROTATE(x,b) (((x) << (b)) | ((x) >> (32 - (b))))
+#define MUSH(i,b) x = t[i] += (((x ^ seed[i]) + sum) ^ ROTATE(x,b));
+
+static void surf(void)
+{
+  uint32 t[12]; uint32 x; uint32 sum = 0;
+  int r; int i; int loop;
+
+  for (i = 0;i < 12;++i) t[i] = in[i] ^ seed[12 + i];
+  for (i = 0;i < 8;++i) out[i] = seed[24 + i];
+  x = t[11];
+  for (loop = 0;loop < 2;++loop) {
+    for (r = 0;r < 16;++r) {
+      sum += 0x9e3779b9;
+      MUSH(0,5) MUSH(1,7) MUSH(2,9) MUSH(3,13)
+      MUSH(4,5) MUSH(5,7) MUSH(6,9) MUSH(7,13)
+      MUSH(8,5) MUSH(9,7) MUSH(10,9) MUSH(11,13)
+    }
+    for (i = 0;i < 8;++i) out[i] ^= t[i + 4];
+  }
+}
+
+void randombytes(unsigned char *x,unsigned long long xlen)
+{
+  while (xlen > 0) {
+    if (!outleft) {
+      if (!++in[0]) if (!++in[1]) if (!++in[2]) ++in[3];
+      surf();
+      outleft = 8;
+    }
+    *x = out[--outleft];
+    ++x;
+    --xlen;
+  }
+}
+
+extern const char *primitiveimplementation;
+extern const char *implementationversion;
+extern const char *sizenames[];
+extern const long long sizes[];
+extern void preallocate(void);
+extern void allocate(void);
+extern void measure(void);
+
+static void printword(const char *s)
+{
+  if (!*s) putchar('-');
+  while (*s) {
+    if (*s == ' ') putchar('_');
+    else if (*s == '\t') putchar('_');
+    else if (*s == '\r') putchar('_');
+    else if (*s == '\n') putchar('_');
+    else putchar(*s);
+    ++s;
+  }
+  putchar(' ');
+}
+
+static void printnum(long long x)
+{
+  printf("%lld ",x);
+}
+
+static void fail(const char *why)
+{
+  fprintf(stderr,"measure: fatal: %s\n",why);
+  exit(111);
+}
+
+unsigned char *alignedcalloc(unsigned long long len)
+{
+  unsigned char *x = (unsigned char *) calloc(1,len + 128);
+  if (!x) fail("out of memory");
+  /* will never deallocate so shifting is ok */
+  x += 63 & (-(unsigned long) x);
+  return x;
+}
+
+static long long cyclespersecond;
+
+static void printimplementations(void)
+{
+  int i;
+
+  printword("implementation");
+  printword(primitiveimplementation);
+  printword(implementationversion);
+  printf("\n"); fflush(stdout);
+
+  for (i = 0;sizenames[i];++i) {
+    printword(sizenames[i]);
+    printnum(sizes[i]);
+    printf("\n"); fflush(stdout);
+  }
+
+  printword("cpuid");
+  printword(cpuid);
+  printf("\n"); fflush(stdout);
+
+  printword("cpucycles_persecond");
+  printnum(cyclespersecond);
+  printf("\n"); fflush(stdout);
+
+  printword("cpucycles_implementation");
+  printword(cpucycles_implementation);
+  printf("\n"); fflush(stdout);
+
+  printword("compiler");
+  printword(COMPILER);
+#if defined(__VERSION__) && !defined(__ICC)
+  printword(__VERSION__);
+#elif defined(__xlc__)
+  printword(__xlc__);
+#elif defined(__ICC)
+  {
+    char buf[256];
+
+    sprintf(buf, "%d.%d.%d", __ICC/100, __ICC%100,
+            __INTEL_COMPILER_BUILD_DATE);
+    printword(buf);
+  }
+#elif defined(__PGIC__)
+  {
+    char buf[256];
+
+    sprintf(buf, "%d.%d.%d", __PGIC__, __PGIC_MINOR__, __PGIC_PATCHLEVEL__);
+    printword(buf);
+  }
+#elif defined(__SUNPRO_C)
+  {
+    char buf[256];
+    int major, minor, micro;
+
+    micro = __SUNPRO_C & 0xf;
+    minor = (__SUNPRO_C >> 4) & 0xf;
+    major = (__SUNPRO_C >> 8) & 0xf;
+
+    if (micro)
+      sprintf(buf, "%d.%d.%d", major, minor, micro);
+    else
+      sprintf(buf, "%d.%d", major, minor);
+    printword(buf);
+  }
+#else
+  printword("unknown compiler version");
+#endif
+  printf("\n"); fflush(stdout);
+}
+
+void printentry(long long mbytes,const char *measuring,long long *m,long long mlen)
+{
+  long long i;
+  long long j;
+  long long belowj;
+  long long abovej;
+
+  printword(measuring);
+  if (mbytes >= 0) printnum(mbytes); else printword("");
+  if (mlen > 0) { 
+    for (j = 0;j + 1 < mlen;++j) { 
+      belowj = 0;
+      for (i = 0;i < mlen;++i) if (m[i] < m[j]) ++belowj;
+      abovej = 0;
+      for (i = 0;i < mlen;++i) if (m[i] > m[j]) ++abovej;
+      if (belowj * 2 < mlen && abovej * 2 < mlen) break;
+    } 
+    printnum(m[j]);
+    if (mlen > 1) { 
+      for (i = 0;i < mlen;++i) printnum(m[i]);
+    } 
+  } 
+  printf("\n"); fflush(stdout);
+}
+
+void limits()
+{
+#ifdef RLIM_INFINITY
+  struct rlimit r;
+  r.rlim_cur = 0;
+  r.rlim_max = 0;
+#ifdef RLIMIT_NOFILE
+  setrlimit(RLIMIT_NOFILE,&r);
+#endif
+#ifdef RLIMIT_NPROC
+  setrlimit(RLIMIT_NPROC,&r);
+#endif
+#ifdef RLIMIT_CORE
+  setrlimit(RLIMIT_CORE,&r);
+#endif
+#endif
+}
+
+int main()
+{
+  cyclespersecond = cpucycles_persecond();
+  preallocate();
+  limits();
+  printimplementations();
+  allocate();
+  measure();
+  return 0;
+}

data/ext/ruby_nacl/NaCl/okcompilers/abiname.c

@@ -0,0 +1,45 @@
+#include <stdio.h>
+
+const char *abi(void)
+{
+#if defined(__amd64__) || defined(__x86_64__) || defined(__AMD64__) || defined(_M_X64) || defined(__amd64)
+   return "amd64";
+#elif defined(__i386__) || defined(__x86__) || defined(__X86__) || defined(_M_IX86) || defined(__i386)
+   return "x86";
+#elif defined(__ia64__) || defined(__IA64__) || defined(__M_IA64)
+   return "ia64";
+#elif defined(__SPU__)
+   return "cellspu";
+#elif defined(__powerpc64__) || defined(__ppc64__) || defined(__PPC64__) || defined(_ARCH_PPC64)
+   return "ppc64";
+#elif defined(__powerpc__) || defined(__ppc__) || defined(__PPC__) || defined(_ARCH_PPC)
+   return "ppc32";
+#elif defined(__sparcv9__) || defined(__sparcv9)
+   return "sparcv9";
+#elif defined(__sparc_v8__)
+   return "sparcv8";
+#elif defined(__sparc__) || defined(__sparc)
+   if (sizeof(long) == 4) return "sparcv8";
+   return "sparcv9";
+#elif defined(__ARM_EABI__)
+   return "armeabi";
+#elif defined(__arm__)
+   return "arm";
+#elif defined(__mips__) || defined(__mips) || defined(__MIPS__)
+#  if defined(_ABIO32)
+     return "mipso32";
+#  elif defined(_ABIN32)
+     return "mips32";
+#  else
+     return "mips64";
+#  endif
+#else
+   return "default";
+#endif
+}
+
+int main(int argc,char **argv)
+{
+  printf("%s %s\n",argv[1],abi());
+  return 0;
+}

data/ext/ruby_nacl/NaCl/okcompilers/archivers

@@ -0,0 +1,2 @@
+ar
+ar -X64

data/ext/ruby_nacl/NaCl/okcompilers/c

@@ -0,0 +1,8 @@
+gcc -m64 -O3 -fomit-frame-pointer -funroll-loops
+gcc -m64 -O -fomit-frame-pointer
+gcc -m64 -fomit-frame-pointer
+gcc -m32 -O3 -fomit-frame-pointer -funroll-loops
+gcc -m32 -O -fomit-frame-pointer
+gcc -m32 -fomit-frame-pointer
+spu-gcc -mstdmain -march=cell -O3 -funroll-loops -fomit-frame-pointer -Drandom=rand -Dsrandom=srand
+spu-gcc -mstdmain -march=cell -O -fomit-frame-pointer -Drandom=rand -Dsrandom=srand

data/ext/ruby_nacl/NaCl/okcompilers/cpp

@@ -0,0 +1,8 @@
+g++ -m64 -O3 -fomit-frame-pointer -funroll-loops
+g++ -m64 -O -fomit-frame-pointer
+g++ -m64 -fomit-frame-pointer
+g++ -m32 -O3 -fomit-frame-pointer -funroll-loops
+g++ -m32 -O -fomit-frame-pointer
+g++ -m32 -fomit-frame-pointer
+spu-g++ -mstdmain -march=cell -O3 -funroll-loops -fomit-frame-pointer -Drandom=rand -Dsrandom=srand
+spu-g++ -mstdmain -march=cell -O -fomit-frame-pointer -Drandom=rand -Dsrandom=srand

data/ext/ruby_nacl/NaCl/okcompilers/do

@@ -0,0 +1,196 @@
+#!/bin/sh -e
+
+mkdir oldbin
+mkdir bin
+
+for language in c cpp
+do
+  exec <$language
+  exec 9>${language}-works
+  
+  while read c options
+  do
+    echo "=== `date` === checking $c $options" >&2
+    rm -f test*
+    (
+      echo "#!/bin/sh"
+      echo 'PATH="'"$PATH"'"'
+      echo 'export PATH'
+      echo "$c" "$options" '"$@"'
+    ) > test-okc
+    chmod 755 test-okc
+    cat lib.c main.c > test.$language || continue
+    ./test-okc -o test test.$language || continue
+    ./test || continue
+    cp main.c test1.$language || continue
+    cp lib.c test2.$language || continue
+    ./test-okc -c test1.$language || continue
+    ./test-okc -c test2.$language || continue
+    ./test-okc -o test1 test1.o test2.o || continue
+    ./test1 || continue
+    echo "=== `date` === success: $c $options is ok"
+    echo "$c $options" >&9
+  done
+
+  mv ${language}-works $language
+done
+
+exec <c
+
+exec 7>oldbin/okabi
+chmod 755 oldbin/okabi
+echo "#!/bin/sh" >&7
+
+while :
+do
+  exec <c
+  read c options || break
+
+  for language in c cpp
+  do
+    exec 8>${language}-compatible
+    exec 9>${language}-incompatible
+    echo "=== `date` === checking compatibility with $c $options" >&2
+    exec <$language
+    while read c2 options2
+    do
+      echo "=== `date` === checking $c2 $options2" >&2
+      works=1
+      rm -f test*
+      (
+        echo "#!/bin/sh"
+        echo 'PATH="'"$PATH"'"'
+        echo 'export PATH'
+        echo "$c" "$options" '"$@"'
+      ) > test-okc
+      chmod 755 test-okc
+      (
+        echo "#!/bin/sh"
+        echo 'PATH="'"$PATH"'"'
+        echo 'export PATH'
+        echo "$c2" "$options2" '"$@"'
+      ) > test-okc2
+      chmod 755 test-okc2
+      if cp main.c test5.c \
+      && cp main.cpp test5.cpp \
+      && cp lib.c test6.c \
+      && ./test-okc2 -c test5.$language \
+      && ./test-okc -c test6.c \
+      && ./test-okc2 -o test5 test5.o test6.o \
+      && ./test5
+      then
+        echo "=== `date` === success: $c2 $options2 is compatible" >&2
+        echo "$c2 $options2" >&8
+      else
+        echo "$c2 $options2" >&9
+      fi
+    done
+  done
+
+  abi=`awk '{print length($0),$0}' < c-compatible \
+  | sort -n | head -1 | sed 's/ *$//' | sed 's/^[^ ]* //' | tr ' /' '__'`
+
+  echo "echo '"$abi"'" >&7
+
+  syslibs=""
+  for i in -lm -lnsl -lsocket -lrt
+  do
+    echo "=== `date` === checking $i" >&2
+    (
+      echo "#!/bin/sh"
+      echo 'PATH="'"$PATH"'"'
+      echo 'export PATH'
+      echo "$c" "$options" '"$@"' "$i" "$syslibs"
+    ) > test-okclink
+    chmod 755 test-okclink
+    cat lib.c main.c > test.c || continue
+    ./test-okclink -o test test.c $i $syslibs || continue
+    ./test || continue
+    syslibs="$i $syslibs"
+    (
+      echo '#!/bin/sh'
+      echo 'echo "'"$syslibs"'"'
+    ) > "oldbin/oklibs-$abi"
+    chmod 755 "oldbin/oklibs-$abi"
+  done
+
+  foundokar=0
+  exec <archivers
+  while read a
+  do
+    echo "=== `date` === checking archiver $a" >&2
+    (
+      echo "#!/bin/sh"
+      echo 'PATH="'"$PATH"'"'
+      echo 'export PATH'
+      echo "$a" '"$@"'
+    ) > test-okar
+    chmod 755 test-okar
+    cp main.c test9.c || continue
+    cp lib.c test10.c || continue
+    ./test-okc -c test10.c || continue
+    ./test-okar cr test10.a test10.o || continue
+    ranlib test10.a || echo "=== `date` === no ranlib; continuing anyway" >&2
+    ./test-okc -o test9 test9.c test10.a || continue
+    ./test9 || continue
+    cp -p test-okar "oldbin/okar-$abi"
+    echo "=== `date` === success: archiver $a is ok" >&2
+    foundokar=1
+    break
+  done
+
+  case $foundokar in
+    0)
+      echo "=== `date` === giving up; no archivers work" >&2
+      exit 111
+    ;;
+  esac
+
+  for language in c cpp
+  do
+    mv ${language}-incompatible ${language}
+    exec <${language}-compatible
+    exec 9>"oldbin/ok${language}-$abi"
+    chmod 755 "oldbin/ok${language}-$abi"
+  
+    echo "#!/bin/sh" >&9
+    while read c2 options2
+    do
+      echo "echo '"$c2 $options2"'" >&9
+    done
+  done
+done
+
+exec 7>/dev/null
+
+oldbin/okabi \
+| while read abi
+do
+  oldbin/okc-$abi \
+  | head -1 \
+  | while read c
+  do
+    $c -o abiname abiname.c \
+    && ./abiname "$abi"
+  done
+done > abinames
+
+numabinames=`awk '{print $2}' < abinames | sort -u | wc -l`
+numabis=`oldbin/okabi | wc -l`
+if [ "$numabis" = "$numabinames" ]
+then
+  exec <abinames
+  exec 7>bin/okabi
+  chmod 755 bin/okabi
+  echo '#!/bin/sh' >&7
+  while read oldabi newabi
+  do
+    mv "oldbin/okc-$oldabi" "bin/okc-$newabi"
+    mv "oldbin/okcpp-$oldabi" "bin/okcpp-$newabi"
+    mv "oldbin/okar-$oldabi" "bin/okar-$newabi"
+    mv "oldbin/oklibs-$oldabi" "bin/oklibs-$newabi"
+    echo "echo $newabi" >&7
+  done
+else
+  cp -p oldbin/* bin
+fi

data/ext/ruby_nacl/NaCl/okcompilers/lib.c

@@ -0,0 +1,29 @@
+int not3(int n)
+{
+  return n != 3;
+}
+
+int bytes(int n)
+{
+  return (n + 7) / 8;
+}
+
+long long shr32(long long n)
+{
+  return n >> 32;
+}
+
+double double5(void)
+{
+  return 5.0;
+}
+
+int intbytes(void)
+{
+  return sizeof(int);
+}
+
+int longbytes(void)
+{
+  return sizeof(long);
+}

data/ext/ruby_nacl/NaCl/okcompilers/lib.cpp

@@ -0,0 +1,19 @@
+int not3(int n)
+{
+  return n != 3;
+}
+
+int bytes(int n)
+{
+  return (n + 7) / 8;
+}
+
+long long shr32(long long n)
+{
+  return n >> 32;
+}
+
+double double5(void)
+{
+  return 5.0;
+}

data/ext/ruby_nacl/NaCl/okcompilers/main.c

@@ -0,0 +1,25 @@
+extern int not3(int);
+extern int bytes(int);
+extern long long shr32(long long);
+extern double double5(void);
+extern int longbytes(void);
+extern int intbytes(void);
+
+int main(int argc,char **argv)
+{
+  if (intbytes() != sizeof(int)) return 100;
+  if (longbytes() != sizeof(long)) return 100;
+
+  if (not3(3)) return 100;
+
+  /* on ppc32, gcc -mpowerpc64 produces SIGILL for >>32 */
+  if (!not3(shr32(1))) return 100;
+
+  /* on pentium 1, gcc -march=pentium2 produces SIGILL for (...+7)/8 */
+  if (bytes(not3(1)) != 1) return 100;
+
+  /* on pentium 1, gcc -march=prescott produces SIGILL for double comparison */
+  if (double5() < 0) return 100;
+
+  return 0;
+}

data/ext/ruby_nacl/NaCl/okcompilers/main.cpp

@@ -0,0 +1,22 @@
+extern "C" {
+  extern int not3(int);
+  extern int bytes(int);
+  extern long long shr32(long long);
+  extern double double5(void);
+}
+
+int main(int argc,char **argv)
+{
+  if (not3(3)) return 100;
+
+  /* on ppc32, gcc -mpowerpc64 produces SIGILL for >>32 */
+  if (!not3(shr32(1))) return 100;
+
+  /* on pentium 1, gcc -march=pentium2 produces SIGILL for (...+7)/8 */
+  if (bytes(not3(1)) != 1) return 100;
+
+  /* on pentium 1, gcc -march=prescott produces SIGILL for double comparison */
+  if (double5() < 0) return 100;
+
+  return 0;
+}

data/ext/ruby_nacl/NaCl/randombytes/devurandom.c

@@ -0,0 +1,34 @@
+#include <sys/types.h>
+#include <sys/stat.h>
+#include <fcntl.h>
+#include <unistd.h>
+
+/* it's really stupid that there isn't a syscall for this */
+
+static int fd = -1;
+
+void randombytes(unsigned char *x,unsigned long long xlen)
+{
+  int i;
+
+  if (fd == -1) {
+    for (;;) {
+      fd = open("/dev/urandom",O_RDONLY);
+      if (fd != -1) break;
+      sleep(1);
+    }
+  }
+
+  while (xlen > 0) {
+    if (xlen < 1048576) i = xlen; else i = 1048576;
+
+    i = read(fd,x,i);
+    if (i < 1) {
+      sleep(1);
+      continue;
+    }
+
+    x += i;
+    xlen -= i;
+  }
+}

data/ext/ruby_nacl/NaCl/randombytes/devurandom.h

@@ -0,0 +1,24 @@
+/*
+randombytes/devurandom.h version 20080713
+D. J. Bernstein
+Public domain.
+*/
+
+#ifndef randombytes_devurandom_H
+#define randombytes_devurandom_H
+
+#ifdef __cplusplus
+extern "C" {
+#endif
+
+extern void randombytes(unsigned char *,unsigned long long);
+
+#ifdef __cplusplus
+}
+#endif
+
+#ifndef randombytes_implementation
+#define randombytes_implementation "devurandom"
+#endif
+
+#endif

data/ext/ruby_nacl/NaCl/randombytes/do

@@ -0,0 +1,43 @@
+#!/bin/sh -e
+
+okabi | (
+  while read abi
+  do
+
+    rm -f randombytes.o randombytes.h
+    
+    (
+      echo devurandom
+    ) | (
+      while read n
+      do
+        okc-$abi | (
+          while read c
+          do
+            echo "=== `date` === Trying $n.c with $c..." >&2
+            rm -f test randombytes-impl.o randombytes-impl.h randombytes-impl.c
+            cp $n.c randombytes-impl.c || continue
+            cp $n.h randombytes-impl.h || continue
+            $c -c randombytes-impl.c || continue
+            $c -o test test.c randombytes-impl.o || continue
+            ./test || continue
+            echo "=== `date` === Success. Using $n.c." >&2
+            mkdir -p lib/$abi
+            mv randombytes-impl.o lib/$abi/randombytes.o
+            mkdir -p include/$abi
+            mv randombytes-impl.h include/$abi/randombytes.h
+            exit 0
+          done
+          exit 111
+        ) && exit 0
+      done
+      exit 111
+    ) || (
+      echo ===== Giving up. >&2
+      rm -f test randombytes-impl.o randombytes-impl.h randombytes-impl.c
+      exit 111
+    ) || exit 111
+
+  done
+  exit 0
+) || exit 111

data/ext/ruby_nacl/NaCl/randombytes/test.c

@@ -0,0 +1,15 @@
+#include "randombytes-impl.h"
+
+unsigned char x[65536];
+unsigned long long freq[256];
+
+int main()
+{
+  unsigned long long i;
+
+  randombytes(x,sizeof x);
+  for (i = 0;i < 256;++i) freq[i] = 0;
+  for (i = 0;i < sizeof x;++i) ++freq[255 & (int) x[i]];
+  for (i = 0;i < 256;++i) if (!freq[i]) return 111;
+  return 0;
+}