floraachy
/
OpenBLAS
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Whitespace cleanup/reformatting

This commit is contained in:
Elliot Saba 2017-03-09 15:30:43 -08:00
parent 7ae64f4f9c
commit 26a614fdd1
1 changed files with 1488 additions and 1518 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

100
exports/gensymbol
View File

@ -49,7 +49,7 @@
cimatcopy, cimatcopy,
zomatcopy, zomatcopy,
zimatcopy, zimatcopy,
); );
@cblasobjs = ( @cblasobjs = (
cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv, cblas_caxpy, cblas_ccopy, cblas_cdotc, cblas_cdotu, cblas_cgbmv, cblas_cgemm, cblas_cgemv,
@ -81,7 +81,7 @@
cblas_somatcopy, cblas_domatcopy, cblas_comatcopy, cblas_zomatcopy, cblas_somatcopy, cblas_domatcopy, cblas_comatcopy, cblas_zomatcopy,
cblas_simatcopy, cblas_dimatcopy, cblas_cimatcopy, cblas_zimatcopy, cblas_simatcopy, cblas_dimatcopy, cblas_cimatcopy, cblas_zimatcopy,
cblas_sgeadd, cblas_dgeadd,cblas_cgeadd, cblas_zgeadd cblas_sgeadd, cblas_dgeadd,cblas_cgeadd, cblas_zgeadd
); );
@exblasobjs = ( @exblasobjs = (
qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm, qamax,qamin,qasum,qaxpy,qcabs1,qcopy,qdot,qgbmv,qgemm,
@ -98,15 +98,15 @@
xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv, xtbsv,xtpmv,xtpsv,xtrmm,xtrmv,xtrsm,xtrsv,
# qrot,qrotg,qrotm,qrotmg, # qrot,qrotg,qrotm,qrotmg,
# xdrot,xrotg, # xdrot,xrotg,
); );
@gemm3mobjs = ( @gemm3mobjs = (
cgemm3m,zgemm3m cgemm3m,zgemm3m
); );
@cblasgemm3mobjs = ( @cblasgemm3mobjs = (
cblas_cgemm3m,cblas_zgemm3m cblas_cgemm3m,cblas_zgemm3m
); );
@ -117,16 +117,16 @@
openblas_get_num_procs, openblas_get_num_procs,
openblas_set_num_threads, openblas_set_num_threads,
openblas_get_num_threads, openblas_get_num_threads,
); );
@misc_no_underscore_objs = ( @misc_no_underscore_objs = (
goto_set_num_threads, goto_set_num_threads,
openblas_get_config, openblas_get_config,
openblas_get_corename, openblas_get_corename,
); );
@misc_underscore_objs = ( @misc_underscore_objs = (
); );
@lapackobjs = ( @lapackobjs = (
# These routines are provided by OpenBLAS. # These routines are provided by OpenBLAS.
@ -142,7 +142,7 @@
strti2, dtrti2, ctrti2, ztrti2, strti2, dtrti2, ctrti2, ztrti2,
strtri, dtrtri, ctrtri, ztrtri, strtri, dtrtri, ctrtri, ztrtri,
spotri, dpotri, cpotri, zpotri, spotri, dpotri, cpotri, zpotri,
); );
@lapackobjs2 = ( @lapackobjs2 = (
# These routines are provided by LAPACK (reference implementation). # These routines are provided by LAPACK (reference implementation).
@ -815,22 +815,21 @@
sladiv1, sladiv1,
dladiv1, dladiv1,
iparam2stage, iparam2stage,
); );
@lapack_extendedprecision_objs = ( @lapack_extendedprecision_objs = (
zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx, zposvxx, clagge, clatms, chesvxx, cposvxx, cgesvxx, ssyrfssx, csyrfsx,
dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx, dlagsy, dsysvxx, sporfsx, slatms, zlatms, zherfsx, csysvxx,
); );
@lapack_deprecated_objs = ( @lapack_deprecated_objs = (
cgegs, cggsvd, ctzrqf, dgeqpf, dlatzm, sgelsx, slahrd, zgegv, zggsvp, cgegs, cggsvd, ctzrqf, dgeqpf, dlatzm, sgelsx, slahrd, zgegv, zggsvp,
cgegv, cggsvp, dgegs, dggsvd, dtzrqf, sgeqpf, slatzm, zgelsx, zlahrd, cgegv, cggsvp, dgegs, dggsvd, dtzrqf, sgeqpf, slatzm, zgelsx, zlahrd,
cgelsx, clahrd, dgegv, dggsvp, sgegs, sggsvd, stzrqf, zgeqpf, zlatzm, cgelsx, clahrd, dgegv, dggsvp, sgegs, sggsvd, stzrqf, zgeqpf, zlatzm,
cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf, cgeqpf, clatzm, dgelsx, dlahrd, sgegv, sggsvp, zgegs, zggsvd, ztzrqf,
); );
@lapacke_deprecated_objs = ( @lapacke_deprecated_objs = (
LAPACKE_cggsvp, LAPACKE_cggsvp,
LAPACKE_cggsvp_work, LAPACKE_cggsvp_work,
LAPACKE_dggsvp, LAPACKE_dggsvp,
@ -855,8 +854,7 @@
LAPACKE_sgeqpf_work, LAPACKE_sgeqpf_work,
LAPACKE_zgeqpf, LAPACKE_zgeqpf,
LAPACKE_zgeqpf_work, LAPACKE_zgeqpf_work,
);
);
@lapackeobjs = ( @lapackeobjs = (
@ -3390,10 +3388,11 @@
LAPACKE_zsytrs_aa_work, LAPACKE_zsytrs_aa_work,
LAPACKE_zsytrs_3, LAPACKE_zsytrs_3,
LAPACKE_zsytrs_3_work, LAPACKE_zsytrs_3_work,
); );
#These function may need 2 underscores. #These function may need 2 underscores.
@lapack_embeded_underscore_objs=(xerbla_array, chla_transtype, slasyf_rook, @lapack_embeded_underscore_objs=(
xerbla_array, chla_transtype, slasyf_rook,
ssytf2_rook, ssytrf_rook, ssytrs_rook, ssytf2_rook, ssytrf_rook, ssytrs_rook,
ssytri_rook, ssycon_rook, ssysv_rook, ssytri_rook, ssycon_rook, ssysv_rook,
chetf2_rook, chetrf_rook, chetri_rook, chetf2_rook, chetrf_rook, chetri_rook,
@ -3409,11 +3408,9 @@
zlahef_rook, zlasyf_rook, zlahef_rook, zlasyf_rook,
zsytf2_rook, zsytrf_rook, zsytrs_rook, zsytf2_rook, zsytrf_rook, zsytrs_rook,
zsytri_rook, zsycon_rook, zsysv_rook, zsytri_rook, zsycon_rook, zsysv_rook,
);
);
if ($ARGV[8] == 1) { if ($ARGV[8] == 1) {
#ONLY_CBLAS=1 #ONLY_CBLAS=1
@underscore_objs = (@misc_underscore_objs); @underscore_objs = (@misc_underscore_objs);
@ -3421,22 +3418,20 @@ if ($ARGV[8] == 1) {
#NO_LAPACK=1 #NO_LAPACK=1
@underscore_objs = (@blasobjs, @misc_underscore_objs); @underscore_objs = (@blasobjs, @misc_underscore_objs);
} elsif (-d "../lapack-netlib") { } elsif (-d "../lapack-netlib") {
if ($ARGV[7] == 0) {
if ($ARGV[7] == 0){
# NEED2UNDERSCORES=0 # NEED2UNDERSCORES=0
# Don't need 2 underscores # Don't need 2 underscores
@underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs); @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs, @lapack_embeded_underscore_objs);
}else{ } else {
# Need 2 underscores # Need 2 underscores
@underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs); @underscore_objs = (@blasobjs, @lapackobjs, @lapackobjs2, @misc_underscore_objs);
@need_2underscore_objs = (@lapack_embeded_underscore_objs); @need_2underscore_objs = (@lapack_embeded_underscore_objs);
}; };
if ($ARGV[11] == 1){ if ($ARGV[11] == 1) {
#BUILD_LAPACK_DEPRECATED=1 #BUILD_LAPACK_DEPRECATED=1
@underscore_objs =(@underscore_objs, @lapack_deprecated_objs); @underscore_objs = (@underscore_objs, @lapack_deprecated_objs);
} }
} else { } else {
@underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs); @underscore_objs = (@blasobjs, @lapackobjs, @misc_underscore_objs);
} }
@ -3447,15 +3442,15 @@ if ($ARGV[8] == 1) {
@exblasobjs=(); @exblasobjs=();
} }
if ($ARGV[3] == 1){ @underscore_objs = (@underscore_objs, @exblasobjs); }; if ($ARGV[3] == 1) {
@underscore_objs = (@underscore_objs, @exblasobjs);
};
if ($ARGV[1] eq "x86_64"){ @underscore_objs = (@underscore_objs, @gemm3mobjs); }; if ($ARGV[1] eq "x86_64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "x86") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "ia64") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "MIPS") { @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "x86"){ @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "ia64"){ @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[1] eq "MIPS"){ @underscore_objs = (@underscore_objs, @gemm3mobjs); };
if ($ARGV[4] == 0) { if ($ARGV[4] == 0) {
@no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs); @no_underscore_objs = (@cblasobjs, @misc_no_underscore_objs);
@ -3467,10 +3462,10 @@ if ($ARGV[6] == 1) {
#NO_LAPACKE=1 #NO_LAPACKE=1
@no_underscore_objs = (@no_underscore_objs); @no_underscore_objs = (@no_underscore_objs);
} else { } else {
if ($ARGV[11] == 1){ if ($ARGV[11] == 1) {
#BUILD_LAPACK_DEPRECATED=1 #BUILD_LAPACK_DEPRECATED=1
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs); @no_underscore_objs = (@no_underscore_objs, @lapackeobjs, @lapacke_deprecated_objs);
}else{ } else {
@no_underscore_objs = (@no_underscore_objs, @lapackeobjs); @no_underscore_objs = (@no_underscore_objs, @lapackeobjs);
} }
} }
@ -3486,8 +3481,7 @@ $symbolprefix = $ARGV[9];
$symbolsuffix = $ARGV[10]; $symbolsuffix = $ARGV[10];
if ($ARGV[0] eq "osx"){ if ($ARGV[0] eq "osx") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3499,16 +3493,13 @@ if ($ARGV[0] eq "osx"){
print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print "_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print "_", $symbolprefix, $objs, $symbolsuffix, "\n"; print "_", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "aix"){ if ($ARGV[0] eq "aix"){
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3520,16 +3511,13 @@ if ($ARGV[0] eq "aix"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "\n"; print $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "objcopy"){ if ($ARGV[0] eq "objcopy") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3541,16 +3529,13 @@ if ($ARGV[0] eq "objcopy"){
print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print $objs, $bu, $bu, " ", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n"; print $objs, " ", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "objconv"){ if ($ARGV[0] eq "objconv") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3562,11 +3547,9 @@ if ($ARGV[0] eq "objconv"){
print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n"; print "-nr:_", $objs, $bu, $bu, ":_", $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n"; print "-nr:_", $objs, ":_", $symbolprefix, $objs, $symbolsuffix, "\n";
} }
# }
exit(0); exit(0);
} }
@ -3600,7 +3583,6 @@ if ($ARGV[0] eq "win2k"){
#for misc_common_objs #for misc_common_objs
foreach $objs (@misc_common_objs) { foreach $objs (@misc_common_objs) {
$uppercase = $objs; $uppercase = $objs;
$uppercase =~ tr/[a-z]/[A-Z]/; $uppercase =~ tr/[a-z]/[A-Z]/;
print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n"; print "\t",$symbolprefix, $objs, "_", $symbolsuffix, "=$objs","_ \@", $count, "\n";
@ -3618,7 +3600,7 @@ if ($ARGV[0] eq "win2k"){
exit(0); exit(0);
} }
if ($ARGV[0] eq "win2khpl"){ if ($ARGV[0] eq "win2khpl") {
print "EXPORTS\n"; print "EXPORTS\n";
$count = 1; $count = 1;
foreach $objs (@hplobjs) { foreach $objs (@hplobjs) {
@ -3632,16 +3614,10 @@ if ($ARGV[0] eq "win2khpl"){
$count ++; $count ++;
} }
# foreach $objs (@hplobjs2) {
# print "\t$objs=$objs"," \@", $count, "\n";
# $count ++;
# }
exit(0); exit(0);
} }
if ($ARGV[0] eq "microsoft"){ if ($ARGV[0] eq "microsoft"){
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
print "EXPORTS\n"; print "EXPORTS\n";
@ -3673,8 +3649,7 @@ if ($ARGV[0] eq "microsoft"){
exit(0); exit(0);
} }
if ($ARGV[0] eq "linktest"){ if ($ARGV[0] eq "linktest") {
@underscore_objs = (@underscore_objs, @misc_common_objs); @underscore_objs = (@underscore_objs, @misc_common_objs);
@no_underscore_objs = (@no_underscore_objs, @misc_common_objs); @no_underscore_objs = (@no_underscore_objs, @misc_common_objs);
@ -3687,14 +3662,9 @@ if ($ARGV[0] eq "linktest"){
print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n"; print $symbolprefix, $objs, $bu, $bu, $symbolsuffix, "();\n";
} }
# if ($ARGV[4] == 0) {
foreach $objs (@no_underscore_objs) { foreach $objs (@no_underscore_objs) {
print $symbolprefix, $objs, $symbolsuffix, "();\n"; print $symbolprefix, $objs, $symbolsuffix, "();\n";
} }
# }
print "return 0;}\n"; print "return 0;}\n";
exit(0); exit(0);