cgo: replace genBlas.pl

.travis/check-generate.sh

@@ -1,7 +1,7 @@
 #!/bin/bash
 
-go generate github.com/gonum/blas/cgo
 go generate github.com/gonum/blas/native
+go generate github.com/gonum/blas/cgo
 if [ -n "$(git diff -- . ':!.travis')" ]; then
 	exit 1
 fi

.travis/linux/install.sh

@@ -5,6 +5,7 @@ set -ex
 go get golang.org/x/tools/cmd/cover
 go get github.com/mattn/goveralls
 go get github.com/gonum/floats
+go get github.com/cznic/cc
 
 # travis compiles commands in script and then executes in bash.  By adding
 # set -e we are changing the travis build script's behavior, and the set

.travis/osx/install.sh

@@ -7,6 +7,7 @@ set -ex
 go get golang.org/x/tools/cmd/cover
 go get github.com/mattn/goveralls
 go get github.com/gonum/floats
+go get github.com/cznic/cc
 
 # travis compiles commands in script and then executes in bash.  By adding
 # set -e we are changing the travis build script's behavior, and the set

cgo/blas.go

@@ -1,4 +1,4 @@
-// Do not manually edit this file. It was created by the genBlas.pl script from cblas.h.
+// Do not manually edit this file. It was created by the generate_blas.go from cblas.h.
 
 // Copyright ©2014 The Gonum Authors. All rights reserved.
 // Use of this source code is governed by a BSD-style
@@ -1958,12 +1958,12 @@ func (Implementation) Sspr(ul blas.Uplo, n int, alpha float32, x []float32, incX
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2003,15 +2003,15 @@ func (Implementation) Sspr2(ul blas.Uplo, n int, alpha float32, x []float32, inc
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
 	if incY == 0 {
 		panic("blas: zero y index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2150,12 +2150,12 @@ func (Implementation) Dspr(ul blas.Uplo, n int, alpha float64, x []float64, incX
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2195,15 +2195,15 @@ func (Implementation) Dspr2(ul blas.Uplo, n int, alpha float64, x []float64, inc
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
 	if incY == 0 {
 		panic("blas: zero y index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2366,12 +2366,12 @@ func (Implementation) Chpr(ul blas.Uplo, n int, alpha float32, x []complex64, in
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2411,15 +2411,15 @@ func (Implementation) Chpr2(ul blas.Uplo, n int, alpha complex64, x []complex64,
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
 	if incY == 0 {
 		panic("blas: zero y index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2582,12 +2582,12 @@ func (Implementation) Zhpr(ul blas.Uplo, n int, alpha float64, x []complex128, i
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}
@@ -2627,15 +2627,15 @@ func (Implementation) Zhpr2(ul blas.Uplo, n int, alpha complex128, x []complex12
 	if n < 0 {
 		panic("blas: n < 0")
 	}
-	if n*(n+1)/2 > len(ap) {
-		panic("blas: index of ap out of range")
-	}
 	if incX == 0 {
 		panic("blas: zero x index increment")
 	}
 	if incY == 0 {
 		panic("blas: zero y index increment")
 	}
+	if n*(n+1)/2 > len(ap) {
+		panic("blas: index of ap out of range")
+	}
 	if (incX > 0 && (n-1)*incX >= len(x)) || (incX < 0 && (1-n)*incX >= len(x)) {
 		panic("blas: x index out of range")
 	}

cgo/doc.go

@@ -2,7 +2,7 @@
 // Use of this source code is governed by a BSD-style
 // license that can be found in the LICENSE file.
 
-//go:generate ./genBlas.pl
+//go:generate go run generate_blas.go
 
 // Ensure changes made to blas/cgo are reflected in blas/native where relevant.