Mentions légales du service

Skip to content
Snippets Groups Projects
Commit a1a188ff authored by PRUVOST Florent's avatar PRUVOST Florent
Browse files

add plasma to chameleon conversion scripts

parent a978e988
No related branches found
No related tags found
No related merge requests found
Hide whitespace changes
Inline Side-by-side
Showing
with 1823 additions and 0 deletions
plasma-conversion/callGeneration.bash 0 → 100755
+ 456
− 0
View file @ a1a188ff
#!/bin/bash
###
#
# @copyright (c) 2009-2015 The University of Tennessee and The University
# of Tennessee Research Foundation.
# All rights reserved.
# @copyright (c) 2012-2016 Inria. All rights reserved.
# @copyright (c) 2012-2015 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
#
#
###
#
# @file callGeneration.bash
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @author Florent Pruvost
# @date 30-11-2015
#
###
# plasma release to download
plasma_relname=2.8.0
plasma_rel=plasma_$plasma_relname.tar.gz
plasma_url=http://icl.cs.utk.edu/projectsfiles/plasma/pubs/$plasma_rel
if [[ ! -e $plasma_rel ]]; then
echo "$plasma_rel does not exists, y to download it"
wget $plasma_url
fi
if [[ ! -e plasma_$plasma_relname ]]; then
tar zxf $plasma_rel
fi
# Define the paths
# ----------------
# where the script is called
plasma_conv_dir="$PWD"
# source files of the conversion (plasma -> chameleon)
plasma_dir="$PWD/plasma_$plasma_relname"
# source of the licence
licence_dir="$PWD/insert-licence"
# source of the original chameleon
# ex in this plasma_conversion directory: svn checkout https://scm.gforge.inria.fr/anonscm/svn/morse/trunk/chameleon
morse_dir="$PWD/.."
# source of the converted chameleon
morse_tmp="$PWD/chameleon"
if [[ ! -e $plasma_dir ]]; then
echo "plasma_dir is set to $plasma_dir which does not exist, please set the variable plasma_dir in the script $0"
exit $?
fi
if [[ ! -e $licence_dir ]]; then
echo "licence_dir is set to $licence_dir which does not exist, please set the variable licence_dir in the script $0"
exit $?
fi
if [[ ! -e $morse_dir ]]; then
echo "morse_dir is set to $morse_dir which does not exist, try to download it"
svn export svn+ssh://fpruvost@scm.gforge.inria.fr/svnroot/morse/trunk/chameleon
if [[ ! -e $morse_dir ]]; then
echo "morse_dir is set to $morse_dir which does not exist, please set the variable morse_dir in the script $0 and check that this path exists"
exit $?
fi
fi
if [[ ! -e $morse_tmp ]]; then
echo "morse_tmp is set to $morse_tmp which does not exist, lets create it"
mkdir $morse_tmp
if [[ ! -e $morse_tmp ]]; then
echo "morse_tmp is set to $morse_tmp which does not exist, please set the variable morse_tmp in the script $0"
exit $?
fi
fi
# Definition of files list
# ------------------------
list_file="
include/core_zblas.h
include/core_zcblas.h
include/plasma_z.h
include/plasma_zc.h
control/compute_z.h
control/workspace_z.c
control/plasma_zcf90.F90
control/plasma_zf77.c
control/plasma_zf90.F90
control/plasma_zf90_wrappers.F90
core_blas/core_dzasum.c
core_blas/core_zgemm.c
core_blas/core_zgessq.c
core_blas/core_zhemm.c
core_blas/core_zhessq.c
core_blas/core_zher2k.c
core_blas/core_zherk.c
core_blas/core_zpemv.c
core_blas/core_zsymm.c
core_blas/core_zsyr2k.c
core_blas/core_zsyrk.c
core_blas/core_zsyssq.c
core_blas/core_ztrasm.c
core_blas/core_ztrmm.c
core_blas/core_ztrsm.c
core_blas/core_ztrssq.c
core_blas/core_zgeadd.c
core_blas/core_zgelqt.c
core_blas/core_zgeqrt.c
core_blas/core_zgessm.c
core_blas/core_zgetrf.c
core_blas/core_zgetrf_incpiv.c
core_blas/core_zgetf2_nopiv.c
core_blas/core_zgetrf_nopiv.c
core_blas/core_zlacpy.c
core_blas/core_zlag2c.c
core_blas/core_zlange.c
core_blas/core_zlanhe.c
core_blas/core_zlansy.c
core_blas/core_zlantr.c
core_blas/core_zlaset2.c
core_blas/core_zlaset.c
core_blas/core_zlauum.c
core_blas/core_zpamm.c
core_blas/core_zparfb.c
core_blas/core_zplghe.c
core_blas/core_zplgsy.c
core_blas/core_zplrnt.c
core_blas/core_zpltmg.c
core_blas/core_zpotrf.c
core_blas/core_zssssm.c
core_blas/core_ztrtri.c
core_blas/core_ztslqt.c
core_blas/core_ztsmlq.c
core_blas/core_ztsmqr.c
core_blas/core_ztsqrt.c
core_blas/core_ztstrf.c
core_blas/core_zttlqt.c
core_blas/core_zttmlq.c
core_blas/core_zttmqr.c
core_blas/core_zttqrt.c
core_blas/core_zunmlq.c
core_blas/core_zunmqr.c
core_blas-qwrapper/qwrapper_dzasum.c
core_blas-qwrapper/qwrapper_zgemm.c
core_blas-qwrapper/qwrapper_zgessq.c
core_blas-qwrapper/qwrapper_zhemm.c
core_blas-qwrapper/qwrapper_zher2k.c
core_blas-qwrapper/qwrapper_zherk.c
core_blas-qwrapper/qwrapper_zpemv.c
core_blas-qwrapper/qwrapper_zplssq.c
core_blas-qwrapper/qwrapper_zhessq.c
core_blas-qwrapper/qwrapper_zsymm.c
core_blas-qwrapper/qwrapper_zsyr2k.c
core_blas-qwrapper/qwrapper_zsyrk.c
core_blas-qwrapper/qwrapper_zsyssq.c
core_blas-qwrapper/qwrapper_ztrasm.c
core_blas-qwrapper/qwrapper_ztrmm.c
core_blas-qwrapper/qwrapper_ztrsm.c
core_blas-qwrapper/qwrapper_ztrssq.c
core_blas-qwrapper/qwrapper_zgeadd.c
core_blas-qwrapper/qwrapper_zgelqt.c
core_blas-qwrapper/qwrapper_zgeqrt.c
core_blas-qwrapper/qwrapper_zgessm.c
core_blas-qwrapper/qwrapper_zgetrf.c
core_blas-qwrapper/qwrapper_zgetrf_incpiv.c
core_blas-qwrapper/qwrapper_zgetf2_nopiv.c
core_blas-qwrapper/qwrapper_zgetrf_nopiv.c
core_blas-qwrapper/qwrapper_zlacpy.c
core_blas-qwrapper/qwrapper_zlag2c.c
core_blas-qwrapper/qwrapper_zlange.c
core_blas-qwrapper/qwrapper_zlanhe.c
core_blas-qwrapper/qwrapper_zlansy.c
core_blas-qwrapper/qwrapper_zlantr.c
core_blas-qwrapper/qwrapper_zlaset2.c
core_blas-qwrapper/qwrapper_zlaset.c
core_blas-qwrapper/qwrapper_zlauum.c
core_blas-qwrapper/qwrapper_zpamm.c
core_blas-qwrapper/qwrapper_zparfb.c
core_blas-qwrapper/qwrapper_zplghe.c
core_blas-qwrapper/qwrapper_zplgsy.c
core_blas-qwrapper/qwrapper_zplrnt.c
core_blas-qwrapper/qwrapper_zpltmg.c
core_blas-qwrapper/qwrapper_zpotrf.c
core_blas-qwrapper/qwrapper_zssssm.c
core_blas-qwrapper/qwrapper_ztrtri.c
core_blas-qwrapper/qwrapper_ztslqt.c
core_blas-qwrapper/qwrapper_ztsmlq.c
core_blas-qwrapper/qwrapper_ztsmqr.c
core_blas-qwrapper/qwrapper_ztsqrt.c
core_blas-qwrapper/qwrapper_ztstrf.c
core_blas-qwrapper/qwrapper_zttlqt.c
core_blas-qwrapper/qwrapper_zttmlq.c
core_blas-qwrapper/qwrapper_zttmqr.c
core_blas-qwrapper/qwrapper_zttqrt.c
core_blas-qwrapper/qwrapper_zunmlq.c
compute/pzgemm.c
compute/pzhemm.c
compute/pzher2k.c
compute/pzherk.c
compute/pzsymm.c
compute/pzsyr2k.c
compute/pzsyrk.c
compute/pztrmm.c
compute/pztrsm.c
compute/pztrsmpl.c
compute/pzgeadd.c
compute/pzgelqf.c
compute/pzgelqfrh.c
compute/pzgeqrf.c
compute/pzgeqrfrh.c
compute/pzgetrf_incpiv.c
compute/pzgetrf_nopiv.c
compute/pzlacpy.c
compute/pzlag2c.c
compute/pzlange.c
compute/pzlanhe.c
compute/pzlansy.c
compute/pzlantr.c
compute/pzlaset2.c
compute/pzlaset.c
compute/pzlauum.c
compute/pzplghe.c
compute/pzplgsy.c
compute/pzpltmg.c
compute/pzpotrf.c
compute/pztrtri.c
compute/pzunglq.c
compute/pzunglqrh.c
compute/pzungqr.c
compute/pzungqrrh.c
compute/pzunmlq.c
compute/pzunmlqrh.c
compute/pzunmqr.c
compute/pzunmqrrh.c
compute/zgels.c
compute/zgelqs.c
compute/zgelqf.c
compute/zgemm.c
compute/zgeqrf.c
compute/zgeqrs.c
compute/zgetrf_incpiv.c
compute/zgetrf_nopiv.c
compute/zgetrs_incpiv.c
compute/zgesv_incpiv.c
compute/zhemm.c
compute/zher2k.c
compute/zherk.c
compute/zsymm.c
compute/zsyr2k.c
compute/zsyrk.c
compute/ztrmm.c
compute/ztrsm.c
compute/ztrsmpl.c
compute/zlacpy.c
compute/zlange.c
compute/zlanhe.c
compute/zlansy.c
compute/zlantr.c
compute/zlaset.c
compute/zlauum.c
compute/zplghe.c
compute/zplgsy.c
compute/zplrnt.c
compute/zpltmg.c
compute/zposv.c
compute/zpotrf.c
compute/zpotri.c
compute/zpotrs.c
compute/ztrtri.c
compute/zunglq.c
compute/zungqr.c
compute/zunmlq.c
compute/zunmqr.c
testing/testing_zgemm.c
testing/testing_zhemm.c
testing/testing_zher2k.c
testing/testing_zherk.c
testing/testing_zlange.c
testing/testing_zsymm.c
testing/testing_zsyr2k.c
testing/testing_zsyrk.c
testing/testing_ztrmm.c
testing/testing_ztrsm.c
testing/testing_zpemv.c
testing/testing_zposv.c
testing/testing_zpotri.c
testing/testing_zgels.c
testing/testing_zgesv_incpiv.c
timing/time_zgemm.c
timing/time_zgemm_tile.c
timing/time_ztrsm.c
timing/time_zgels.c
timing/time_zgels_tile.c
timing/time_zgeqrf.c
timing/time_zgeqrf_tile.c
timing/time_zgetrf_incpiv.c
timing/time_zgetrf_incpiv_tile.c
timing/time_zgetrf_nopiv.c
timing/time_zgetri_tile.c
timing/time_zposv.c
timing/time_zposv_tile.c
timing/time_zpotrf.c
timing/time_zpotrf_tile.c
timing/time_zpotri_tile.c
timing/time_zgesv_incpiv.c
timing/time_zgesv_incpiv_tile.c
"
# COREBLAS not used
# -----------------
#core_blas/core_zbrdalg.c
#core_blas/core_zgbelr.c
#core_blas/core_zgblrx.c
#core_blas/core_zgbrce.c
#core_blas/core_zgessq.c
#core_blas/core_zgetrip.c
#core_blas/core_zgetrf_reclap.c
#core_blas/core_zgetrf_rectil.c
#core_blas/core_zhbelr.c
#core_blas/core_zhblrx.c
#core_blas/core_zhbrce.c
#core_blas/core_zhbtype1cb.c
#core_blas/core_zhbtype2cb.c
#core_blas/core_zhbtype3cb.c
#core_blas/core_zhegst.c
#core_blas/core_zherfb.c
#core_blas/core_zlarfb_gemm.c
#core_blas/core_zlarfx_tbrd.c
#core_blas/core_zlarfy.c
#core_blas/core_zlaswp.c
#core_blas/core_zlatro.c
#core_blas/core_zshift.c
#core_blas/core_zswpab.c
#core_blas/core_ztrdalg.c
#core_blas/core_ztsmlq_corner.c
#core_blas/core_ztsmlq_hetra1.c
#core_blas/core_ztsmqr_corner.c
#core_blas/core_ztsmqr_hetra1.c
#core_blas/core_ztsrfb.c
# PCOMPUTE not used
# -----------------
#compute/pzgebrd_ge2tb.c
#compute/pzgebrd_tb2bd.c
#compute/pzgetmi2.c
#compute/pzgetrf_reclap.c
#compute/pzgetrf_rectil.c
#compute/pzhbcpy_t2bl.c
#compute/pzhegst.c
#compute/pzherbt.c
#compute/pzhetrd_hb2st.c
#compute/pzhetrd_he2hb.c
#compute/pzlarft_blgtrd.c
#compute/pzlaswp.c
#compute/pzlaswpc.c
#compute/pztrsmrv.c
#compute/pzunmqr_blgtrd.c
#
#compute/pzbarrier.c
#compute/pzpack.c
#compute/pzshift.c
# COMPUTE not used
# ----------------
#compute/zgetrf.c
#compute/zgetri.c
#compute/zcgels.c
#compute/zcgesv.c
#compute/zcposv.c
#compute/zcungesv.c
#compute/zgebrd.c
#compute/zgecfi2.c
#compute/zgecfi2.h
#compute/zgecfi.c
#compute/zgesv.c
#compute/zgesvd.c
#compute/zgetmi.c
#compute/zgetrs.c
#compute/zheev.c
#compute/zheevd.c
#compute/zhegst.c
#compute/zhegv.c
#compute/zhegvd.c
#compute/zhetrd.c
#compute/zlaswp.c
#compute/zlaswpc.c
#compute/ztrsmrv.c
# TIMING not used
# ---------------
#timing/time_zgetrf.c
#timing/time_zgetrf_tile.c
#timing/time_zcgesv.c
#timing/time_zcgesv_tile.c
#timing/time_zcposv.c
#timing/time_zcposv_tile.c
#timing/time_zgebrd_tile.c
#timing/time_zgetrf_reclap.c
#timing/time_zgetrf_rectil.c
#timing/time_zgecfi.c
#timing/time_zgesvd_tile.c
#timing/time_zheevd_tile.c
#timing/time_zheev_tile.c
#timing/time_zhegv_tile.c
#timing/time_zlapack2tile.c
#timing/time_zgesv.c
#timing/time_zgesv_tile.c
# TESTING not used
# ----------------
#testing/testing_zcgels.c
#testing/testing_zcgesv.c
#testing/testing_zcposv.c
#testing/testing_zcungesv.c
#testing/testing_zgecfi.c
#testing/testing_zgesv.c
#testing/testing_zgesvd.c
#testing/testing_zgetmi.c
#testing/testing_zgetri.c
#testing/testing_zheev.c
#testing/testing_zheevd.c
#testing/testing_zhegst.c
#testing/testing_zhegv.c
#testing/testing_zhegvd.c
#testing/testing_zlange.c
# TIMING not used
# ----------------
#timing/zauxiliary.h
#timing/zauxiliary.c
# Génération des sources
# ----------------------
python ${plasma_conv_dir}/generate_morseSrc.py -o ${morse_tmp} -p ${plasma_dir} -f "${list_file}" --force
# Copie de la licence en entête des fichiers générés
current_dir=$PWD
cd ${morse_tmp}
${licence_dir}/insert-licence-chameleon.sh
cd ${current_dir}
# Recopie de magma_morse
# ----------------------
python ${plasma_conv_dir}/generate_morseSrc.py -o ${morse_dir} -m ${morse_tmp} --force
plasma-conversion/fileConversion.py 0 → 100644
+ 353
− 0
View file @ a1a188ff
#!/usr/bin/env python
# -*- coding: utf-8 -*-
###
#
# -- Inria
# -- (C) Copyright 2012
#
# This software is a computer program whose purpose is to process
# Matrices Over Runtime Systems @ Exascale (MORSE). More information
# can be found on the following website: http://www.inria.fr/en/teams/morse.
#
# This software is governed by the CeCILL-C license under French law and
# abiding by the rules of distribution of free software. You can use,
# modify and/ or redistribute the software under the terms of the CeCILL-C
# license as circulated by CEA, CNRS and INRIA at the following URL
# "http://www.cecill.info".
#
# As a counterpart to the access to the source code and rights to copy,
# modify and redistribute granted by the license, users are provided only
# with a limited warranty and the software's author, the holder of the
# economic rights, and the successive licensors have only limited
# liability.
#
# In this respect, the user's attention is drawn to the risks associated
# with loading, using, modifying and/or developing or reproducing the
# software by the user in light of its specific status of free software,
# that may mean that it is complicated to manipulate, and that also
# therefore means that it is reserved for developers and experienced
# professionals having in-depth computer knowledge. Users are therefore
# encouraged to load and test the software's suitability as regards their
# requirements in conditions enabling the security of their systems and/or
# data to be ensured and, more generally, to use and operate it in the
# same conditions as regards security.
#
# The fact that you are presently reading this means that you have had
# knowledge of the CeCILL-C license and that you accept its terms.
#
###
#
# @file fileConversion.py
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @date 13-07-2012
#
###
import sys;
import os;
import string;
import re;
import shutil;
from rulesSubstitutions import subs;
def read_file(file):
fd = open(file, 'r')
filedata = fd.read()
fd.close()
return filedata
def write_file(file, filedata):
fd = open(file, 'w')
fd.write(filedata)
fd.close()
def update_file(file, filedata):
# read previous data
fd = open(file, 'r')
data = fd.read()
fd.close()
# write new + previous data
fd = open(file, 'w')
fd.write(filedata + data)
fd.close()
def create_path(path):
path = os.path.abspath(path)
if os.path.exists(path) is False:
print 'create:',path
os.makedirs(path)
def substitute_file(srcfilepath, dstfilepath, filetype):
print 'substitute : apply >>>',filetype,'<<< dictionnary'
print ' for',dstfilepath
# Initialize filedata
filedata = read_file(srcfilepath)
# Subsitute in data
work = subs[filetype]
for pattern in work:
condition = pattern[0]
search = pattern[1]
replace = pattern[2]
if not search:
continue
if condition == 'u':
filedata = re.sub(re.compile(search, re.M), replace, filedata)
if condition == 'r':
data_p = re.sub(re.compile(search, re.M), replace, filedata)
while data_p != filedata:
filedata = data_p
data_p = re.sub(re.compile(search, re.M), replace, filedata)
filedata = data_p
# calll the last treatment to remove tabulation
filedata = re.sub(re.compile('\t', re.M), ' ', filedata)
# Write file
write_file(dstfilepath, filedata)
def change_file(srcfile, dstfile, filetype, mode):
if os.path.exists(srcfile):
create_path(os.path.dirname(dstfile))
if os.path.exists(dstfile):
print 'already exists:',dstfile
if mode is True:
ask = "y"
else:
ask = ""
while (ask != "y") and (ask != "n"):
ask = raw_input('overwrite (y/n)? ')
if ask == "y":
print 'overwrite:',dstfile
substitute_file(srcfile, dstfile, filetype)
if ask == "n":
print 'stop overwrite::',dstfile
sys.exit(0)
else:
print 'write: from',srcfile
print ' into',dstfile
substitute_file(srcfile, dstfile, filetype)
else:
print 'error:',srcfile,'does not exist'
sys.exit(1)
return;
def convert_file(file, plasma_src, prefix, mode):
srcpath = os.path.abspath(plasma_src)
dstpath = os.path.join(os.path.abspath(prefix),'')
filename = os.path.basename(file)
filetype = file[:- len(filename)-1]
srcfilepath = os.path.join(srcpath,file)
dstfilepath = os.path.join(dstpath,filetype)
if filetype == 'core_blas':
# coreblas
dstpath_core = os.path.join(dstpath, 'coreblas/compute')
dstfilepath_core = os.path.join(dstpath_core, filename)
change_file(srcfilepath, dstfilepath_core, 'coreblas', mode)
change_file(dstfilepath_core, dstfilepath_core, 'all_end', True)
elif filetype == 'core_blas-qwrapper':
# coreblas path
dstpath_core = os.path.join(dstpath, 'coreblas/compute')
dstfilepath_core = os.path.join(dstpath_core, filename)
if filename == 'qwrapper_zgetf2_nopiv.c' or \
filename == 'qwrapper_zpemv.c' or \
filename == 'qwrapper_zparfb.c':
print 'CODELET:', filename, 'do not need to be generated'
else:
# codelet for quark
filename = filename.replace('qwrapper', 'codelet')
dstpath_quark = os.path.join(dstpath, 'runtime/quark/codelets')
dstfilepath_quark = os.path.join(dstpath_quark, filename)
change_file(srcfilepath, dstfilepath_quark, 'codelet_quark', mode)
# codelet for starpu
filename = filename.replace('core', 'codelet')
dstpath_starpu = os.path.join(dstpath, 'runtime/starpu/codelets')
dstfilepath_starpu = os.path.join(dstpath_starpu, filename)
change_file(dstfilepath_quark, dstfilepath_starpu, 'codelet_starpu', mode)
# codelet for starpu with WS
if filename == 'codelet_zgelqt.c' or \
filename == 'codelet_zgeqrt.c' or \
filename == 'codelet_ztslqt.c' or \
filename == 'codelet_ztsmlq.c' or \
filename == 'codelet_ztsmqr.c' or \
filename == 'codelet_ztsqrt.c' or \
filename == 'codelet_ztstrf.c' or \
filename == 'codelet_zttlqt.c' or \
filename == 'codelet_zttmlq.c' or \
filename == 'codelet_zttmqr.c' or \
filename == 'codelet_zttqrt.c' or \
filename == 'codelet_zunmlq.c' or \
filename == 'codelet_zunmqr.c':
change_file(dstfilepath_starpu, dstfilepath_starpu, 'codelet_starpu_ws', True)
# codelet for starpu with cuda
if filename == 'codelet_zgemm.c' or \
filename == 'codelet_zhemm.c' or \
filename == 'codelet_zherk.c' or \
filename == 'codelet_zher2k.c' or \
filename == 'codelet_zsymm.c' or \
filename == 'codelet_zsyrk.c' or \
filename == 'codelet_zsyr2k.c' or \
filename == 'codelet_ztrsm.c' or \
filename == 'codelet_ztrmm.c' or \
filename == 'codelet_zlauum.c' or \
filename == 'codelet_ztrtri.c' or \
filename == 'codelet_zpotrf.c':
change_file(dstfilepath_starpu, dstfilepath_starpu, 'codelet_starpu_cuda', True)
change_file(dstfilepath_quark, dstfilepath_quark, 'all_end', True)
change_file(dstfilepath_starpu, dstfilepath_starpu, 'all_end', True)
elif filetype == 'compute':
# drivers (2 treatments is necessary)
dstfilepath = os.path.join(dstfilepath,filename)
change_file(srcfilepath, dstfilepath, 'all_compute', mode)
if filename[0:2] == 'pz':
change_file(dstfilepath, dstfilepath, 'pcompute', True)
# specific transformation
if filename == 'pzgebrd_tb2bd.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzgetrf_reclap.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzgelqfrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzgeqrfrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzunglq.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzunglqrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzungqr.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzungqrrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzunmlqrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
if filename == 'pzunmqrrh.c':
change_file(dstfilepath, dstfilepath, filename, True)
# specific transformation to add workspace
if filename == 'pzgelqf.c' or \
filename == 'pzgelqfrh.c' or \
filename == 'pzgeqrf.c' or \
filename == 'pzgeqrfrh.c' or \
filename == 'pzgetmi2.c' or \
filename == 'pzgetrf_incpiv.c' or \
filename == 'pzhetrd_hb2st.c' or \
filename == 'pzlange.c' or \
filename == 'pzlanhe.c' or \
filename == 'pzlansy.c' or \
filename == 'pzpack.c' or \
filename == 'pzshift.c' or \
filename == 'pzunglq.c' or \
filename == 'pzunglqrh.c' or \
filename == 'pzungqr.c' or \
filename == 'pzungqrrh.c' or \
filename == 'pzunmlq.c' or \
filename == 'pzunmlqrh.c' or \
filename == 'pzunmqr_blgtrd.c' or \
filename == 'pzunmqr.c' or \
filename == 'pzunmqrrh.c':
# codelet for starpu
change_file(dstfilepath, dstfilepath, 'pcompute_ws', True)
else:
change_file(dstfilepath, dstfilepath, 'compute', True)
change_file(dstfilepath, dstfilepath, 'all_end', True)
elif filetype == 'include':
if filename == 'core_zblas.h' or filename == 'core_zcblas.h':
# include for coreblas
filetype = 'include_coreblas'
dstfilename = filename.replace('core_', 'coreblas_')
dstfilename = dstfilename.replace('blas.h', '.h')
dstfilepath = os.path.join(dstpath,'coreblas/include')
dstfilepath = os.path.join(dstfilepath,dstfilename)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
# include for runtime (insert_task)
filetype = 'include_runtime'
dstfilepath = os.path.join(dstpath,'include')
newfile = re.sub('core', 'runtime', filename)
newfile = re.sub('blas', '', newfile)
dstfilepath = os.path.join(dstfilepath,newfile)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
# include quark_blas
filetype = 'include_quarkblas'
dstfilepath = os.path.join(dstpath,'runtime/quark/include')
newfile = re.sub('core', 'quark', filename)
dstfilepath = os.path.join(dstfilepath,newfile)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
elif filename == 'plasma_z.h' or filename == 'plasma_zc.h':
# include for drivers
filetype = 'include_morse'
dstfilepath = os.path.join(dstpath,'include')
newfile = re.sub('plasma', 'morse', filename)
dstfilepath = os.path.join(dstfilepath,newfile)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
else:
print '% >>>>>>>>>>>>>>>>>>>>>>>>>>>'
print '% What do you think you do...'
print '% <<<<<<<<<<<<<<<<<<<<<<<<<<<'
sys.exit(1)
elif filetype == 'control':
newfile = re.sub('plasma', 'morse', filename)
dstfilepath = os.path.join(dstfilepath,newfile)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
else:
# others files (timing, testing...)
dstfilepath = os.path.join(dstfilepath,filename)
change_file(srcfilepath, dstfilepath, filetype, mode)
change_file(dstfilepath, dstfilepath, 'all_end', True)
return;
plasma-conversion/fileCopy.py 0 → 100644
+ 120
− 0
View file @ a1a188ff
#!/usr/bin/env python
# -*- coding: utf-8 -*-
###
#
# -- Inria
# -- (C) Copyright 2012
#
# This software is a computer program whose purpose is to process
# Matrices Over Runtime Systems @ Exascale (MORSE). More information
# can be found on the following website: http://www.inria.fr/en/teams/morse.
#
# This software is governed by the CeCILL-C license under French law and
# abiding by the rules of distribution of free software. You can use,
# modify and/ or redistribute the software under the terms of the CeCILL-C
# license as circulated by CEA, CNRS and INRIA at the following URL
# "http://www.cecill.info".
#
# As a counterpart to the access to the source code and rights to copy,
# modify and redistribute granted by the license, users are provided only
# with a limited warranty and the software's author, the holder of the
# economic rights, and the successive licensors have only limited
# liability.
#
# In this respect, the user's attention is drawn to the risks associated
# with loading, using, modifying and/or developing or reproducing the
# software by the user in light of its specific status of free software,
# that may mean that it is complicated to manipulate, and that also
# therefore means that it is reserved for developers and experienced
# professionals having in-depth computer knowledge. Users are therefore
# encouraged to load and test the software's suitability as regards their
# requirements in conditions enabling the security of their systems and/or
# data to be ensured and, more generally, to use and operate it in the
# same conditions as regards security.
#
# The fact that you are presently reading this means that you have had
# knowledge of the CeCILL-C license and that you accept its terms.
#
###
#
# @file fileCopy.py
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @date 13-07-2012
#
###
import sys;
import os;
import shutil;
import string;
def copyDirectoryTree(directory, destination, mode):
pattern = shutil.ignore_patterns('.svn', '*~', 'plasma-conversion', 'insert-licence')
for entry in os.listdir(directory):
entryPath = os.path.join(directory, entry)
destPath = os.path.join(destination, entry)
if os.path.isdir(entryPath):
if entry == '.svn' or \
entry == 'insert-licence' or \
entry == 'plasma-conversion':
continue
else:
if os.path.exists(destPath):
copyDirectoryTree(entryPath, destPath, mode)
else:
print 'write:',destPath
shutil.copytree(entryPath, destPath, ignore=pattern)
else:
#if not os.path.exists(destPath):
if entry == 'plasma_2.6.0.tar.gz':
continue
else:
print 'write:',destPath
shutil.copy(entryPath, destination)
#else:
#print 'not write:',destPath
#print 'already exists:',destPath
#if mode is True:
# ask = "y"
#else:
# ask = ""
#while (ask != "y") and (ask != "n"):
# ask = raw_input('overwrite (y/n)? ')
#if ask == "y":
# print 'overwrite:',destPath
# shutil.copy(entryPath, destination)
#if ask == "n":
# print 'stop overwrite:',destPath
# sys.exit(0)
def copy_file(srcpath, dstpath, mode):
if os.path.exists(srcpath) is True:
dstpath2 = os.path.join(dstpath, '')
copyDirectoryTree(srcpath, dstpath2, mode)
else:
print 'error:',srcpath,'does not exist'
sys.exit(1)
return;
plasma-conversion/generate_morseSrc.py 0 → 100755
+ 97
− 0
View file @ a1a188ff
#!/usr/bin/env python
# -*- coding: utf-8 -*-
###
#
# -- Inria
# -- (C) Copyright 2012
#
# This software is a computer program whose purpose is to process
# Matrices Over Runtime Systems @ Exascale (MORSE). More information
# can be found on the following website: http://www.inria.fr/en/teams/morse.
#
# This software is governed by the CeCILL-C license under French law and
# abiding by the rules of distribution of free software. You can use,
# modify and/ or redistribute the software under the terms of the CeCILL-C
# license as circulated by CEA, CNRS and INRIA at the following URL
# "http://www.cecill.info".
#
# As a counterpart to the access to the source code and rights to copy,
# modify and redistribute granted by the license, users are provided only
# with a limited warranty and the software's author, the holder of the
# economic rights, and the successive licensors have only limited
# liability.
#
# In this respect, the user's attention is drawn to the risks associated
# with loading, using, modifying and/or developing or reproducing the
# software by the user in light of its specific status of free software,
# that may mean that it is complicated to manipulate, and that also
# therefore means that it is reserved for developers and experienced
# professionals having in-depth computer knowledge. Users are therefore
# encouraged to load and test the software's suitability as regards their
# requirements in conditions enabling the security of their systems and/or
# data to be ensured and, more generally, to use and operate it in the
# same conditions as regards security.
#
# The fact that you are presently reading this means that you have had
# knowledge of the CeCILL-C license and that you accept its terms.
#
###
#
# @file generate_morseSrc.py
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @date 13-07-2012
#
###
import sys;
import shutil;
from optparse import OptionParser,OptionGroup;
from fileConversion import *;
from fileCopy import *;
def main(argv):
# Create the options parser for detecting options on the command line.
parser = OptionParser(usage="Usage: %prog [options]");
group = OptionGroup(parser,"Printing Options","These options control generate_morseSrc.py.");
group.add_option("-y","--force" , help=': Force overwrite all files' , action='store_true', dest='force' , default=False);
group.add_option("-o","--prefix" , help=': install files in PREFIX.' , action='store' , dest='prefix' , type='string', default=False);
group.add_option("-p","--plasma-dir", help=': Specify the top directory of PLASMA.' , action='store' , dest='pdir' , type='string', default=False);
group.add_option("-m","--morse-dir" , help=': Specify the top directory of MORSE.' , action='store' , dest='mdir' , type='string', default=False);
group.add_option("-f","--file" , help=': Specify a file(s) on which to operate.', action='store' , dest='flist' , type='string', default=False);
parser.add_option_group(group);
(options, args) = parser.parse_args();
# Create files from PLASMA
if options.prefix and options.pdir and options.flist:
print '\n#####################'
print '\nCONVERT PLASMA FILES '
print '\n#####################'
for file in options.flist.split():
convert_file(file, options.pdir, options.prefix, options.force)
# Copy file from MORSE
if options.prefix and options.mdir:
print '\n#####################'
print '\nCOPY NEEDED SVN MORSE'
print '\n#####################'
copy_file(options.mdir, options.prefix, options.force)
# Exit
return 0
if "__main__" == __name__:
sys.exit(main(sys.argv))
plasma-conversion/insert-licence/chameleon_c.licence 0 → 100644
+ 10
− 0
View file @ a1a188ff
/**
*
* @copyright (c) 2009-2015 The University of Tennessee and The University
* of Tennessee Research Foundation.
* All rights reserved.
* @copyright (c) 2012-2016 Inria. All rights reserved.
* @copyright (c) 2012-2015 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
*
**/
plasma-conversion/insert-licence/chameleon_f.licence 0 → 100644
+ 10
− 0
View file @ a1a188ff
!!!
!
! @copyright (c) 2009-2015 The University of Tennessee and The University
! of Tennessee Research Foundation.
! All rights reserved.
! @copyright (c) 2012-2016 Inria. All rights reserved.
! @copyright (c) 2012-2015 Bordeaux INP, CNRS (LaBRI UMR 5800), Inria, Univ. Bordeaux. All rights reserved.
!
!!!
plasma-conversion/insert-licence/insert-licence-chameleon.sh 0 → 100755
+ 71
− 0
View file @ a1a188ff
#!/bin/bash
###
#
# -- Inria
# -- (C) Copyright 2016
#
# This software is a computer program whose purpose is to process
# Matrices Over Runtime Systems @ Exascale (MORSE). More information
# can be found on the following website: http://www.inria.fr/en/teams/morse.
#
# This software is governed by the CeCILL-C license under French law and
# abiding by the rules of distribution of free software. You can use,
# modify and/ or redistribute the software under the terms of the CeCILL-C
# license as circulated by CEA, CNRS and INRIA at the following URL
# "http://www.cecill.info".
#
# As a counterpart to the access to the source code and rights to copy,
# modify and redistribute granted by the license, users are provided only
# with a limited warranty and the software's author, the holder of the
# economic rights, and the successive licensors have only limited
# liability.
#
# In this respect, the user's attention is drawn to the risks associated
# with loading, using, modifying and/or developing or reproducing the
# software by the user in light of its specific status of free software,
# that may mean that it is complicated to manipulate, and that also
# therefore means that it is reserved for developers and experienced
# professionals having in-depth computer knowledge. Users are therefore
# encouraged to load and test the software's suitability as regards their
# requirements in conditions enabling the security of their systems and/or
# data to be ensured and, more generally, to use and operate it in the
# same conditions as regards security.
#
# The fact that you are presently reading this means that you have had
# knowledge of the CeCILL-C license and that you accept its terms.
#
###
#
# @file insert-licence.sh
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @author Florent Pruvost
# @date 13-07-2012
#
###
for i in $(find . -name "*.c" -or -name "*.h" -not -path "*svn*" -not -name "morse_fortran.h")
do
cat $(dirname $0)/chameleon_c.licence > $(dirname $0)/buffer.tmp
cat $i >> $(dirname $0)/buffer.tmp
cat $(dirname $0)/buffer.tmp > $i
rm $(dirname $0)/buffer.tmp
done
for i in $(find . -name "*.f" -or -name "*.F" -or -name "*.f77" -or -name "*.F77" -or -name "*.f90" -or -name "*.F90" -or -name "morse_fortran.h")
do
cat $(dirname $0)/chameleon_f.licence > $(dirname $0)/buffer.tmp
cat $i >> $(dirname $0)/buffer.tmp
cat $(dirname $0)/buffer.tmp > $i
rm $(dirname $0)/buffer.tmp
done
plasma-conversion/rulesSubstitutions.py 0 → 100644
+ 706
− 0
View file @ a1a188ff
#!/usr/bin/env python
# -*- coding: utf-8 -*-
###
#
# -- Inria
# -- (C) Copyright 2012
#
# This software is a computer program whose purpose is to process
# Matrices Over Runtime Systems @ Exascale (MORSE). More information
# can be found on the following website: http://www.inria.fr/en/teams/morse.
#
# This software is governed by the CeCILL-C license under French law and
# abiding by the rules of distribution of free software. You can use,
# modify and/ or redistribute the software under the terms of the CeCILL-C
# license as circulated by CEA, CNRS and INRIA at the following URL
# "http://www.cecill.info".
#
# As a counterpart to the access to the source code and rights to copy,
# modify and redistribute granted by the license, users are provided only
# with a limited warranty and the software's author, the holder of the
# economic rights, and the successive licensors have only limited
# liability.
#
# In this respect, the user's attention is drawn to the risks associated
# with loading, using, modifying and/or developing or reproducing the
# software by the user in light of its specific status of free software,
# that may mean that it is complicated to manipulate, and that also
# therefore means that it is reserved for developers and experienced
# professionals having in-depth computer knowledge. Users are therefore
# encouraged to load and test the software's suitability as regards their
# requirements in conditions enabling the security of their systems and/or
# data to be ensured and, more generally, to use and operate it in the
# same conditions as regards security.
#
# The fact that you are presently reading this means that you have had
# knowledge of the CeCILL-C license and that you accept its terms.
#
###
#
# @file rulesSubstitutions.py
#
# @project MORSE
# MORSE is a software package provided by:
# Inria Bordeaux - Sud-Ouest,
# Univ. of Tennessee,
# King Abdullah Univesity of Science and Technology
# Univ. of California Berkeley,
# Univ. of Colorado Denver.
#
# @version 1.0.0
# @author Cedric Castagnede
# @author Emmanuel Agullo
# @author Mathieu Faverge
# @date 13-07-2012
#
###
subs = {
# --------------------------------------------------------
# replacements applied to ALL files first.
'all_begin' : [
( 'u', None, None ),
],
# ------------------------------------------------------------
# replacements applied to compute files.
'all_compute' : [
# Get information in static function to allocate workspace
( 'r', '#include([\s\S]*)plasma_private_alloc\(([^,]*),([\s\S]*?),([^)]*)\)', '//WS_ALLOC : \\3\n#include\\1' ),
# end get
( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(,\\4;' ),
( 'u', 'plasma_static_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
( 'u', 'plasma_dynamic_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([\s\S]*?)request\)', 'morse_\\3(,\\4)' ),
# Dirty replacement to put the correct call of 'morse_pz***` by removing all types
# The 8 first lines are called n times more to be sure to change all `plasma_desc_mat_free(&desc` to `RUNTIME_desc_getoncpu(`
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_enum([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_desc([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_Complex64_t([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_sequence([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)PLASMA_request([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)int([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)float([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'r', 'morse_p([\w]*)\(([^;]*),([\s\w]*)double([ \w\*]*),([^;]*);', 'morse_p\\1(\\2,\\5;' ),
( 'u', 'morse_p([\w]*)\(([, ]*)', 'morse_p\\1(' ),
],
#
#
'compute' : [
# Check the 2 next lines when plasma const will be right
( 'u', 'OUTOFPLACE([^}]+)plasma_zooptile2lap\(([\s]*)([^,]+),([^}]+)plasma_dynamic_sync\(\);([\s]*)plasma_desc_mat_free([^}]+)}',
'OUTOFPLACE\\1morse_zooptile2lap(\\3,\\4RUNTIME_barrier(morse);\\5RUNTIME_desc_getoncpu(&\\3);\\5plasma_desc_mat_free\\6}' ),
( 'u', 'OUTOFPLACE([^}]+)RUNTIME_desc_getoncpu([^;]+);([\s]*)([^}]+)}([\s\S]*)_Tile\(([\s\S]*)plasma_dynamic_sync\(\);([\s]*)status = sequence->status',
'OUTOFPLACE\\1RUNTIME_desc_getoncpu\\2;\\4}\\5_Tile(\\6RUNTIME_barrier(morse);\\7\\4\\7status = sequence->status' ),
# Dirty replacement for MORSE_z*_Tile to put RUNTIME_desc_getoncpu
# The two first lines are called 10 times more to be sure to change all `plasma_desc_mat_free(&desc` to `RUNTIME_desc_getoncpu(`
( 'r', '_Tile\(([\s\S]*)RUNTIME_barrier\(morse\);([^}]*)plasma_desc_mat_free\(&desc([^}]*)status = sequence->status',
'_Tile(\\1RUNTIME_barrier(morse);\\2RUNTIME_desc_getoncpu(\\3status = sequence->status' ),
# Specific change for zplghe.c, zplgsy.c, zplrnt.c
# TODO: it works because it is the last call in the function
# we need to find better delimiters
( 'u', '_zplghe\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
'_zplghe(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
( 'u', '_zplgsy\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
'_zplgsy(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
( 'u', '_zplrnt\(([\s\S]*)\n([ \t]*)plasma_ziptile2lap\(([^;]*);',
'_zplrnt(\\1\n\\2RUNTIME_barrier(morse);\n\\2morse_zooptile2lap(\\3;' ),
# end specific
# Remove INPLACE / OUTOFPLACE
( 'u', '\n([^\n]*)OUTOFPLACE([^\n]*)\n([\s\S]*?)\n([^\n]*)else([^\n]*)\n([\s\S]*?)\n([^\n]*)}([^\n]*)\n',
'\n/*\\1OUTOFPLACE\\2*/\n\\3\n/*\\4else\\5*/\n\\6\n/*\\7}\\8*/\n' ),
( 'r', '\n([^\n]*?)OUTOFPLACE([^}]*?)}([\s]*)else([^}]*?)\n([ ])([^\n]*?)\n([^}]*?)}',
'\n\\1OUTOFPLACE\\2} else\\4\n/*\\5\\6*/\n\\7}' ),
( 'u', '\n([ ]+)([\s]*)plasma_ziptile2lap([^;]*);([ \t]*)\n', '\n/*\\1\\2plasma_ziptile2lap\\3;\\4*/\n' ),
( 'u', '\n([ ]+)([\s]*)plasma_ziplap2tile([^;]*);([ \t]*)\n', '\n/*\\1\\2plasma_ziplap2tile\\3;\\4*/\n' ),
# end remove
# Change plasma_desc_init into morse_zdesc_alloc
( 'u', 'desc([\w]*)([ \t]*)=([ \t]*)plasma_desc_init\(([^,]*),([^;]*);([\s]*)([^;]*);', 'morse_zdesc_alloc(desc\\1,\\5;' ),
( 'u', 'morse_zdesc_alloc\(([^;]*),([\w\s]*)\*([\w\s]*),([^;]*);', 'morse_zdesc_alloc(\\1,\\4;' ),
( 'u', 'morse_zdesc_alloc\(([^;]*)\n([ \t]*)([^;]*);', 'morse_zdesc_alloc(\\1 \\3;' ),
( 'u', 'morse_zdesc_alloc\(desc([\w]*)([^;]*)\);', 'morse_zdesc_alloc(desc\\1\\2, morse_desc_mat_free(&desc\\1));' ),
# end chhange
# Remove desc in Async
( 'u', 'desc([\w]*)\.d', '\\1->d' ),
( 'u', 'desc([\w]*)\.i', '\\1->i' ),
( 'u', 'desc([\w]*)\.j', '\\1->j' ),
( 'u', 'desc([\w]*)\.l', '\\1->l' ),
( 'u', 'desc([\w]*)\.m', '\\1->m' ),
( 'u', 'desc([\w]*)\.n', '\\1->n' ),
( 'r', '_Tile_Async\(([\s\S]*)\n([ \t]*)PLASMA_desc([ \t]*)([\w]*);([ \t]*)\n([\s\S]*)\n}\n',
'_Tile_Async(\\1\n\\6\n}\n' ),
( 'r', '_Tile_Async\(([\s\S]*)\n([ \t]*)desc([\w]*)([ \t]*)=([ \t]*)\*\\3;([ \t]*)\n([\s\S]*)\n}\n',
'_Tile_Async(\\1\n\\7\n}\n' ),
( 'r', '_Tile_Async\(([\s\S]*)\n([ \t]*)}([ \t]*)else([ \t]*){([\s]*)}([ \t]*)\n([\s\S]*)\n}\n' ,
'_Tile_Async(\\1\n\\2}\n\\7\n}\n' ),
( 'r', '_Tile_Async\(([\s\S]*)morse_p([\w]*)\(([^;]*)desc([a-zA-Z0-9]+)([^;]*);([\s\S]*)\n}\n' ,
'_Tile_Async(\\1morse_p\\2(\\3\\4\\5;\\6\n}\n' ),
# end remove
# Patch for morse_desc_submatrix (this will not work with 2-sided and LU inversion)
( 'r', '_Tile_Async\(([\s\S]*)^([\s]*)morse_p([\w]*)\(([^;]*)plasma_desc_submatrix\(([\s]*)([a-zA-Z0-9]+),([\s\S]*)\),([^;]*);',
'_Tile_Async(\\1\\2sub\\6 = morse_desc_submatrix(\\5\\6,\\7);\n\\2morse_p\\3(\\4sub\\6,\\8;\n\\2free(sub\\6);' ),
( 'r', '_Tile_Async\(([^)]*)\)([\s]*){([\s\S]*)free\(sub([\w]*)\)',
'_Tile_Async(\\1)\\2{\n\tMORSE_desc_t *sub\\4;\\3FLAGFREE(sub\\4)' ),
( 'r', '_Tile_Async\(([^)]*)\)([\s]*){([\s\S]*)MORSE_desc_t \*sub([\w]*);([\s\S]*)\n^([\s]*)MORSE_desc_t \*sub\\4;',
'_Tile_Async(\\1)\\2{\\3MORSE_desc_t *sub\\4;\\5' ),
( 'u', 'FLAGFREE', 'free' ),
# end patch
( 'u', 'PLASMA_Dealloc_Handle_Tile', 'MORSE_Dealloc_Workspace' ),
( 'u', 'plasma_dynamic_sync\(\)', 'RUNTIME_barrier(morse)' ),
( 'u', 'QUARK_Barrier\(plasma->quark\)', 'RUNTIME_barrier(morse)' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'plasma_context_t', 'MORSE_context_t' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
# Fix for zgels et zgelqs
( 'u', 'MORSE_zgels_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)morse_pztile_zero([\s\S]*?)free([^;]*);',
'MORSE_zgels_Tile_Async\\1/* sub\\2 = \\3morse_pztile_zero\\4free\\5; */' ),
( 'u', 'MORSE_zgelqs_Tile_Async([\s\S]*)sub([\w]*) = ([\s\S]*?)morse_pztile_zero([\s\S]*?)free([^;]*);',
'MORSE_zgelqs_Tile_Async\\1/* sub\\2 = \\3morse_pztile_zero\\4free\\5; */' ),
],
# ------------------------------------------------------------
# replacements applied to pcompute files.
'pcompute' : [
( 'u', '#if 0([\s\S]*?)#endif', '' ),
( 'u', 'plasma_([\w]*)_quark\(', 'morse_\\1(' ),
( 'u', '\*\*/([\s]*?)void([\s]*?)plasma_([\w]*?)\(([\s\S]*)}([\s]*?)/\*\*', '**/\\1\n/**' ),
( 'u', 'static scheduling([\s\S]*)dynamic scheduling', 'dynamic scheduling' ),
( 'u', 'Quark_Task_Flags task_flags([\w]*) = Quark_Task_Flags_Initializer;', 'MORSE_option_t options\\1;' ),
( 'u', 'QUARK_Task_Flag_Set\(([\s\S]*?)task_flags([\w]*)([\s]*),([^\n]*)\);', 'RUNTIME_options_init(&options\\2, morse, sequence, request);' ),
( 'u', 'plasma->quark, &task_flags([\w]*)', '&options\\1' ),
( 'u', 'RUNTIME_options_init\(&options([\w]*),([\s\S]*)}',
'RUNTIME_options_init(&options\\1,\\2\tRUNTIME_options_finalize(&options\\1, morse);\n}' ),
( 'u', 'plasma_dynamic_sync\(\)', 'RUNTIME_barrier(morse)' ),
( 'u', 'QUARK_Barrier\(plasma->quark\)', 'RUNTIME_barrier(morse)' ),
( 'u', 'PLASMA_desc([ \t]*)', 'MORSE_desc_t\\1*' ),
( 'u', 'plasma_context_t', 'MORSE_context_t' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'QUARK_CORE', 'MORSE_TASK' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
( 'u', '_quark', '' ),
( 'u', 'MORSE_TASK([\w]*)\(([^;]*),([ \n\t]*)sequence([^;]*);', 'MORSE_TASK\\1(\\2\\4;' ),
( 'u', 'MORSE_TASK([\w]*)\(([^;]*),([ \n\t]*)request([^;]*);', 'MORSE_TASK\\1(\\2\\4;' ),
( 'u', '#define([\w\s]*)\(([\w\s]*),([\w\s]*)\)([ \t]*)BLKADDR\(([\S\s]*?),([\S\s]*?),([\S\s]*?),([\S\s]*?)\)\n',
'#define\\1(\\2,\\3) \\5, \\7, \\8\n' ),
( 'u', '([\w]*)\.d', '\\1->d' ),
( 'u', '([\w]*)\.i', '\\1->i' ),
( 'u', '([\w]*)\.j', '\\1->j' ),
( 'u', '([\w]*)\.l', '\\1->l' ),
( 'u', '([\w]*)\.m', '\\1->m' ),
( 'u', '([\w]*)\.n', '\\1->n' ),
],
#
#
# specific patch because of dirty source code
'pzgebrd_tb2bd.c' : [
( 'u', '#define A\(_m, _n\) \(MORSE_Complex64_t \*\)morse_geteltaddr\(&A, \(_m\), \(_n\), eltsize\)',
'#define A(_m,_n) BLKADDR(&dA, MORSE_Complex64_t, _m, _n)' ),
],
'pzgetrf_reclap.c' : [
( 'u', '#define BLKLDD\(&dA, k\) \(A\)d.lm', '#define BLKLDD(dA, k) (dA).lm' ),
( 'u', 'BLKLDD\(&dA', 'BLKLDD(dA' ),
],
#
#
# Need to add specific information - not static implementation
'pzgelqfrh.c' : [
( 'u', '#include "common.h"', '//WS_ALLOC : A->nb + ib*T->nb\n#include "common.h"' ),
],
'pzgeqrfrh.c' : [
( 'u', '#include "common.h"', '//WS_ALLOC : A->nb + ib*T->nb\n#include "common.h"' ),
],
'pzunglq.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
'pzunglqrh.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
'pzungqr.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
'pzungqrrh.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
'pzunmlqrh.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
'pzunmqrrh.c': [
( 'u', '#include "common.h"', '//WS_ALLOC : ib*T->nb\n#include "common.h"' ),
],
# end specific patch
# ------------------------------------------------------------
# replacements applied to pcompute files - (workspace)
'pcompute_ws' : [
# Compute the size of the workspace
( 'u', '#include "common.h"', '//WS_ADD : \n#include "common.h"' ),
( 'u', '//WS_ALLOC : ([^\n]*)\n([\s\S]*?)//WS_ADD : ([^\n]*)\n', '//ALLOC_WS : \\1\n\\2//WS_ADD : \\3\\1\n' ),
( 'r', '//WS_ALLOC : ([^\n]*)\n([\s\S]*?)//WS_ADD : ([^\n]*)\n', '//ALLOC_WS : \\1\n\\2//WS_ADD : \\3 +\\1\n' ),
# end compute
( 'u', '([\s\S]*?)WS_ADD : ([^\n]*)\n([\s\S]*?)^([\s]*)ib([\s]*)=([\s]*)MORSE_IB([\s]*);',
'\\1WS_ADD : \\2\n\\3\\4ib\\5=\\6MORSE_IB\\7;\\4h_work_size = sizeof(MORSE_Complex64_t)*(\\2 );\\4d_work_size = 0;\\4RUNTIME_options_ws_alloc( &options, h_work_size, d_work_size );\n' ),
( 'u', 'RUNTIME_options_finalize\(&options, morse\);', 'RUNTIME_options_ws_free(&options);\n\tRUNTIME_options_finalize(&options, morse);' ),
( 'u', 'MORSE_option_t options;', 'MORSE_option_t options;\n\tsize_t h_work_size, d_work_size;' ),
],
# ------------------------------------------------------------
# replacements applied to coreblas files.
'coreblas' : [
( 'u', '#include "common.h"', '#include "coreblas.h"' ),
( 'u', '#include "quark.h"', '' ),
( 'u', '#if defined\(PLASMA_HAVE_WEAK\)([\s\S]*?)#endif', '' ),
( 'u', 'int([\s]*)QUARK_CORE_([\w]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', 'void([\s]*)QUARK_CORE_([\w]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', 'void([\s]*)CORE([\w]*)_quark\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', 'BLKADDR\(([ ]*)([\w]*),([^\n]*)', 'BLKADDR(&\\2,\\3' ),
( 'u', 'BLKLDD\(([ ]*)([\w]*)([^\n]*)', 'BLKLDD(&\\2\\3' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'PLASMA_Complex64_t', 'MORSE_Complex64_t' ),
( 'u', 'PLASMA_Complex32_t', 'MORSE_Complex32_t' ),
( 'u', 'PLASMA_enum', 'MORSE_enum' ),
( 'u', 'PLASMA_CORE', 'MORSE_CORE' ),
( 'u', 'PLASMA_SUCCESS', 'MORSE_SUCCESS' ),
( 'u', 'PLASMA_ERR_NOT_SUPPORTED', 'MORSE_ERR_NOT_SUPPORTED' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
( 'u', '/([\s\\*]*)/\n\n', '' ),
],
# ------------------------------------------------------------
# replacements applied to codelet_quark files.
'codelet_quark' : [
( 'u', '#include "common.h"', '#include "morse_quark.h"' ),
( 'u', '#if defined\(PLASMA_HAVE_WEAK\)([\s\S]*?)#endif', '' ),
( 'u', '\n([\s\w]*)void([\s]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', '\n([\s\w]*)int([\s]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', '\n([\s\w]*)void([\s]*)CORE_([\w]*)_([^q])([a-zA-Z0-9]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', '\n([\s\w]*)int([\s]*)CORE_([\w]*)_([^q])([a-zA-Z0-9]*)\(([^)]*)\)([\s]*){([\s\S]*?)\n}', '' ),
( 'u', '\n([\s\w]*)void([\s]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\);', '' ),
( 'u', '\n([\s\w]*)int([\s]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\);', '' ),
( 'u', '\n([\s\w]*)void([\s]*)CORE_([\w]*)_([^q])([a-zA-Z0-9]*)\(([^)]*)\);', '' ),
( 'u', '\n([\s\w]*)int([\s]*)CORE_([\w]*)_([^q])([a-zA-Z0-9]*)\(([^)]*)\);', '' ),
( 'u', 'Quark([\s]*)\*quark,([\s]*)Quark_Task_Flags([\s]*)\*task_flags,', 'MORSE_option_t *options,' ),
( 'u', 'plasma_sequence_flush', 'RUNTIME_sequence_flush' ),
( 'u', 'QUARK_Insert_Task\(([ \t\n]*)quark', 'QUARK_Insert_Task(\\1options->quark' ),
( 'u', 'QUARK_Insert_Task\(([^)]*)task_flags', 'QUARK_Insert_Task(\\1options->task_flags' ),
( 'u', '&sequence,', '&(options->sequence),' ),
( 'u', '&request,', '&(options->request),' ),
( 'u', '\(([\s\S]*),([\s]*)PLASMA_sequence([^,]*)sequence', '(\\1' ),
( 'u', '\(([\s\S]*),([\s]*)PLASMA_request([^,]*)request', '(\\1' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'static inline \n', '' ),
( 'u', 'static \n', '' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)const ([ \t\w]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2\\3*\\4,' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)PLASMA_Complex64_t([ \t]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2MORSE_desc_t *\\4, int \\4m, int \\4n,' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)PLASMA_Complex32_t([ \t]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2MORSE_desc_t *\\4, int \\4m, int \\4n,' ),
( 'r', 'QUARK_Insert_Task\(([^;]*)sizeof\(PLASMA_Complex64_t\)\*([\s\S]*?),([\s]*)([\w]*),',
'QUARK_Insert_Task(\\1sizeof(MORSE_Complex64_t)*\\2,\\3RTBLKADDR(\\4, MORSE_Complex64_t, \\4m, \\4n),' ),
( 'r', 'QUARK_Insert_Task\(([^;]*)sizeof\(PLASMA_Complex32_t\)\*([\s\S]*?),([\s]*)([\w]*),',
'QUARK_Insert_Task(\\1sizeof(MORSE_Complex32_t)*\\2,\\3RTBLKADDR(\\4, MORSE_Complex32_t, \\4m, \\4n),' ),
( 'u', 'RTBLKADDR\(NULL, MORSE_Complex64_t, NULLm, NULLn\)' , 'NULL' ),
( 'u', 'QUARK_CORE', 'MORSE_TASK' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
( 'u', 'qwrapper_([\w]*).c', 'codelet_\\1.c' ),
( 'u', 'core_blas quark wrapper', 'codelets kernel' ),
# Add patch to remove REGION_D and REGION_U in codelet_zttlqt.c + codelet_zttqrt.c
( 'r', 'QUARK_Insert_Task\(([^;]*)CORE_zttqrt_quark([^;]*)\|([\s]*)QUARK_REGION_D([\s]*)\|([\s]*)QUARK_REGION_U',
'QUARK_Insert_Task(\\1CORE_zttqrt_quark\\2' ),
( 'r', 'QUARK_Insert_Task\(([^;]*)CORE_zttlqt_quark([^;]*)\|([\s]*)QUARK_REGION_D([\s]*)\|([\s]*)QUARK_REGION_L',
'QUARK_Insert_Task(\\1CORE_zttlqt_quark\\2' ),
# end patch
# Suppress additional functions (ex: gemm2, gemm_f2...)
( 'u', '\n([\s\w]*)([\w]*)([\s]*)CORE_zgemm_([\w]+)_quark\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '\n([\s\w]*)([\w]*)([\s]*)MORSE_TASK_zgemm_([\w]+)\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '\n([\s\w]*)([\w]*)([\s]*)CORE_zgemm([0-9]+)_quark\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '\n([\s\w]*)([\w]*)([\s]*)MORSE_TASK_zgemm([0-9]+)\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '\n([\s\w]*)([\w]*)([\s]*)CORE_ztrmm_([\w]+)_quark\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '\n([\s\w]*)([\w]*)([\s]*)MORSE_TASK_ztrmm_([\w]+)\(([^)]*)\)([\s]*){([\s\S]*?)\n}' , '' ),
( 'u', '/\*([\s\*]*)\*/([\s]*)/\*([\s\*]*)\*/\n' , '' ),
# end suppress
# Special remove of Rnd64_jump
( 'u', '#define COMPLEX([\s\S]*)static unsigned long long int([\s]*)Rnd64_jump([\s\S]*)return([\s\w]*);([\s]*)}', '' ),
# end remove
],
# ------------------------------------------------------------
# replacements applied to codelet_starpu files.
'codelet_starpu' : [
# Transformation for cl_***_cpu_func
( 'u', '#include "morse_quark.h"', '#include "morse_starpu.h"' ),
( 'u', 'void([ \t]*)CORE_([\w]*)_quark\(([^)]*)\)', 'static void cl_\\2_cpu_func(void *descr[], void *cl_arg)' ),
( 'u', '\n([ \t]*)MORSE_sequence_t([ \t]*)\*sequence;([ \t]*)\n', '\n' ),
( 'u', '\n([ \t]*)MORSE_request_t([ \t]*)\*request;([ \t]*)\n', '\n' ),
( 'u', '\n([ \t]*)if([\s\S]*?)RUNTIME_sequence_flush([^;]*);([ \t]*)\n', '\n' ),
( 'u', 'int info;', 'int info = 0;' ),
( 'u', 'quark_unpack_args_([\w]*)\(([\s]*)quark([\s]*),', 'starpu_codelet_unpack_args(cl_arg,' ),
( 'u', 'starpu_codelet_unpack_args\(([^;]*),([\s]*)sequence([^)]*)', 'starpu_codelet_unpack_args(\\1\\3' ),
( 'u', 'starpu_codelet_unpack_args\(([^;]*),([\s]*)request([^;]*)', 'starpu_codelet_unpack_args(\\1\\3' ),
( 'r', 'starpu_codelet_unpack_args\(([^;]*),([\s]*)([^&\s]+)([^;]*);', 'starpu_codelet_unpack_args(\\1,\\2&\\3\\4;' ),
( 'r', 'RTBLKADDR\(([ \t]*)([\w]+)([\s\S]*)MORSE_Complex64_t([ \t]*)\*\\2;([\s\S]*)\n([ \t]*)starpu_codelet_unpack_args([^;]*),([\s]*)&\\2([,\\)]+)',
'RTBLKADDR(\\1\\2\\3MORSE_Complex64_t\\4*\\2;\\5\n\\6\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[0]);\n\\6starpu_codelet_unpack_args\\7\\9'),
# repeat: We need to repeat manually to increase the index of descr
( 'u', 'descr\[0\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[0\]',
'descr[0]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[1]' ),
( 'u', 'descr\[1\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[0\]',
'descr[1]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[2]' ),
( 'u', 'descr\[2\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[1\]',
'descr[2]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[3]' ),
( 'u', 'descr\[3\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[2\]',
'descr[3]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[4]' ),
( 'u', 'descr\[4\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[3\]',
'descr[4]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[5]' ),
( 'u', 'descr\[5\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[4\]',
'descr[5]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[6]' ),
( 'u', 'descr\[6\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[5\]',
'descr[6]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[7]' ),
( 'u', 'descr\[7\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[6\]',
'descr[7]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[8]' ),
( 'u', 'descr\[8\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[7\]',
'descr[8]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[9]' ),
( 'u', 'descr\[9\]\);([ \t\n]*)([\w]*) = \(MORSE_Complex64_t \*\)STARPU_MATRIX_GET_PTR\(descr\[8\]',
'descr[9]);\\1\\2 = (MORSE_Complex64_t *)STARPU_MATRIX_GET_PTR(descr[9]' ),
# end repeat
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[0\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[0]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 1, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[1\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[1]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 2, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[2\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[2]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 3, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[3\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[3]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 4, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[4\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[4]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 5, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[5\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[5]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 6, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[6\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[6]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 7, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[7\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[7]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 8, cl_\\1_cpu_func)\n' ),
( 'r', 'cl_([\w]*)_cpu_func\(([\s\S]*?)STARPU_MATRIX_GET_PTR\(descr\[8\]\);([\s]*)starpu_codelet_unpack_args([\s\S]*)$',
'TREATED_\\1_cpu_func(\\2STARPU_MATRIX_GET_PTR(descr[8]);\\3starpu_codelet_unpack_args\\4/*\n * Codelet definition\n */\nCODELETS_CPU(\\1, 9, cl_\\1_cpu_func)\n' ),
( 'u', 'TREATED', 'cl' ),
# end Transformation
# Transformation for MORSE_TASK
( 'u', '\n([ \t]*)DAG_CORE_([\w]*);\n', '\n' ),
( 'u', 'QUARK_Insert_Task', 'starpu_insert_task' ),
( 'u', 'options->quark([\s\S]*?)options->task_flags,', 'codelet,' ),
( 'u', 'MORSE_TASK_([\w]*)\(([^)]*)\)([\s]*){([\s]*)([\w])',
'MORSE_TASK_\\1(\\2)\\3{\\4(void)nb;\\4struct starpu_codelet *codelet = &cl_\\1;\\4void (*callback)(void*) = options->profiling ? cl_\\1_callback : NULL;\\4\\5' ),
( 'r', 'starpu_insert_task\(([^;]*)\|([\s]*)LOCALITY([^;]*?)', 'starpu_insert_task(\\1\\3' ),
( 'r', 'starpu_insert_task\(([^;]*)\|([\s]*)QUARK_REGION_D([^;]*?)', 'starpu_insert_task(\\1\\3' ),
( 'r', 'starpu_insert_task\(([^;]*)\|([\s]*)QUARK_REGION_U([^;]*?)', 'starpu_insert_task(\\1\\3' ),
( 'r', 'starpu_insert_task\(([^;]*)\|([\s]*)QUARK_REGION_L([^;]*?)', 'starpu_insert_task(\\1\\3' ),
( 'r', 'starpu_insert_task\(([^;]*)sizeof\(MORSE_request_t([ \t]*)\*\)([\s\S]*?),([\s\S]*?),([\s\S]*?),([ \t]*)\n([ \t]*)sizeof',
'starpu_insert_task(\\1sizeof' ),
( 'r', 'starpu_insert_task\(([^;]*)sizeof\(MORSE_sequence_t([ \t]*)\*\)([\s\S]*?),([\s\S]*?),([\s\S]*?),([ \t]*)\n([ \t]*)sizeof',
'starpu_insert_task(\\1sizeof' ),
( 'r', 'starpu_insert_task\(([^;]*)sizeof\(([^,]*),([\s]*)RTBLKADDR\(([^)]*)\),([\s]*)([\S]*)([\s]*),',
'starpu_insert_task(\\1\\6,\\5RTBLKADDR(\\4),' ),
( 'r', 'starpu_insert_task\(([^;]*)sizeof\(([^,]*),([\s]*)([\S]*)([\s]*),([\s]*)([\S]*)([\s]*),',
'starpu_insert_task(\\1\\7,\\6\\4\\5,\\3CONV_BACKUP(\\2,' ),
( 'r', 'starpu_insert_task\(([^;]*)CONV_BACKUP([^;]*)', 'starpu_insert_task(\\1sizeof\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)VALUE([^;]*)', 'starpu_insert_task(\\1STVAL\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)STVAL([^;]*)', 'starpu_insert_task(\\1STARPU_VALUE\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)INOUT([^;]*)', 'starpu_insert_task(\\1STARPU_RW\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)INPUT([^;]*)', 'starpu_insert_task(\\1STARPU_R\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)OUTPUT([^;]*)', 'starpu_insert_task(\\1STARPU_W\\2' ),
( 'r', 'starpu_insert_task\(([^;]*)SCRATCH([^;]*)', 'starpu_insert_task(\\1STARPU_TREATED\\2' ),
( 'u', 'TREATED', 'SCRATCH' ),
( 'u', 'starpu_insert_task\(([^;]*),([\s]*) 0\);',
'starpu_insert_task(\\1,\\2 STARPU_PRIORITY,\toptions->priority,\\2 STARPU_CALLBACK,\tcallback,\\2 0);' ),
# end Transformation
# Special transformation for IPIV
( 'u', 'STARPU_([\w]*),([\s]*)IPIV,([\s]*)sizeof\(int\)([^,]*)', 'STARPU_VALUE,\\2&IPIV,\\3sizeof(int*)' ),
# Special remove
( 'u', 'MORSE_TASK_zlaset2\(([^)]*)\)([\s]*){([\s]*)\(void\)nb;', 'MORSE_TASK_zlaset2(\\1)\\2{\\3' ),
( 'u', 'MORSE_TASK_zlaset\(([^)]*)\)([\s]*){([\s]*)\(void\)nb;', 'MORSE_TASK_zlaset(\\1)\\2{\\3' ),
( 'u', 'MORSE_TASK_zplghe\(([^)]*)\)([\s]*){([\s]*)\(void\)nb;', 'MORSE_TASK_zplghe(\\1)\\2{\\3' ),
( 'u', 'MORSE_TASK_zplrnt\(([^)]*)\)([\s]*){([\s]*)\(void\)nb;', 'MORSE_TASK_zplrnt(\\1)\\2{\\3' ),
( 'u', 'MORSE_TASK_zplgsy\(([^)]*)\)([\s]*){([\s]*)\(void\)nb;', 'MORSE_TASK_zplgsy(\\1)\\2{\\3' ),
# end remove
( 'u', '/([\s\\*\\/]*?)/', '' ),
],
# ------------------------------------------------------------
# replacements applied to codelet_starpu files (workspace).
'codelet_starpu_ws' : [
# Suppress multiple SCRATCH
( 'r', 'starpu_insert_task\(([^;]*)\n^([\s]*)STARPU_SCRATCH,([\s]*)NULL,([^,]*),([^;]*)^([\s]*)STARPU_SCRATCH,([\s]*)NULL,([^,]*),',
'starpu_insert_task(\\1\\5\\6STARPU_SCRATCH,\\7NULL,\\8,' ),
( 'u', '^([\s]*)STARPU_SCRATCH,([\s]*)NULL,([^,]*),',
'\\1STARPU_VALUE,\\2&h_work, sizeof(MORSE_starpu_ws_t *),\n\\1STARPU_VALUE,\\2&d_work, sizeof(MORSE_starpu_ws_t *),' ),
( 'u', '^([ \t]*)starpu_insert_task', '\\1MORSE_starpu_ws_t *h_work = (MORSE_starpu_ws_t*)(options->ws_host);\n\\1MORSE_starpu_ws_t *d_work = (MORSE_starpu_ws_t*)(options->ws_device);\n\n\\1starpu_insert_task' ),
# Modify cl_***_cpu_func
( 'u', 'static void cl_([\w]*)([^{]*?){', 'static void cl_\\1\\2{\n\tMORSE_starpu_ws_t *h_work;\n\tMORSE_starpu_ws_t *d_work;' ),
( 'r', 'MORSE_Complex64_t([\s]*)\*([\w]*);([\s\S]*?)^([\s]*)starpu_codelet_unpack_args\(([^;]*)\&\\2([,\)])([^;]*);',
'MORSE_Complex64_tDONE\\1*\\2;\\3\\4starpu_codelet_unpack_args(\\5&\\2\\6\\7;\n\\4\\2 = (MORSE_Complex64_t*)RUNTIME_starpu_ws_getlocal(h_work);' ),
( 'r', 'MORSE_Complex64_tDONE([\s]*)\*([\w]*);([\s\S]*?)^([\s]*)starpu_codelet_unpack_args\(([^;]*)\&\\2([,\)])',
'MORSE_Complex64_tDONE\\1*\\2;\\3\\4starpu_codelet_unpack_args(\\5CLSCRATCH\\6' ),
( 'r', 'starpu_codelet_unpack_args\(([^;]*)CLSCRATCH([,\)])([^;]*)CLSCRATCH([,\)])',
'starpu_codelet_unpack_args(\\1\\3CLSCRATCH\\4' ),
( 'u', 'starpu_codelet_unpack_args\(([^;]*)CLSCRATCH', 'starpu_codelet_unpack_args(\\1&h_work, &d_work' ),
( 'u', 'MORSE_Complex64_tDONE', 'MORSE_Complex64_t' ),
# Specifc transformation - change order of WORK and TAU
( 'u', 'WORK([^;]*)RUNTIME_starpu_ws_getlocal([^;]*);([\s]*)TAU([^;]*)RUNTIME_starpu_ws_getlocal([^;]*);',
'TAU\\4RUNTIME_starpu_ws_getlocal\\5;\\3WORK = TAU + max( m, n );' ),
],
# ------------------------------------------------------------
# replacements applied to codelet_starpu files (cuda).
'codelet_starpu_cuda' : [
# Transformation for cl_***_cuda_func (cublas)
( 'u', 'static void cl_([\w]*)_cpu_func\(([^)]*)\)([\s]*){([\s\S]*?)}',
'static void cl_\\1_cpu_func(\\2)\\3{\\4}\n\n#ifdef MORSE_USE_CUDA\nstatic void cl_\\1_cuda_func(\\2)\\3{\\4}\n#endif\n' ),
( 'u', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)return([\s]*);([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4\\6}' ),
( 'u', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4\n\tcudaThreadSynchronize();\n\treturn;\n}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)cblas_z([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4cublasZ\\5}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)MORSE_Complex64_t([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4cuDoubleComplex\\5}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)CBLAS_SADDR\(([\w]*)\)([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4\\5\\6}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)([\s]*)CblasColMajor,([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4\\6}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)\(CBLAS_([A-Z]*)\)([\w]*),([\s\S]*?)}',
'cl_\\1_cuda_func(\\2)\\3{\\4lapack_const(\\6),\\7}' ),
# end Transformation
# Transformation for cl_***_cuda_func (geadd)
( 'u', 'cl_zgeadd_cuda_func\(([^)]*)\)([\s]*){([\s]*)int([\s\S]*?)}', 'cl_zgeadd_cuda_func(\\1)\\2{\\3int j;\n\tint\\4}' ),
( 'u', 'cl_zgeadd_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)CORE_zgeadd\(M, N, alpha, A, LDA, B, LDB\);([\s\S]*?)}',
'cl_zgeadd_cuda_func(\\1)\\2{\\3if (M == LDA && M == LDB)\n\t\tcublasZaxpy(M*N, alpha, A, 1, B, 1);\n\telse {\n\t\tfor (j = 0; j < N; j++)\n\t\t\tcublasZaxpy(M, alpha, A + j*LDA, 1, B + j*LDB, 1);\n\t}\n\\4}' ),
# end Transformation
# Transformation for cl_***_cuda_func (magma)
( 'u', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)int info = 0;([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4int ret;\n\tint info = 0;\\5}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)([\s]*)LAPACK_COL_MAJOR,([\s\S]*?)}', 'cl_\\1_cuda_func(\\2)\\3{\\4\\6}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)info = LAPACKE_([\w]*)_work([\s\S]*?)}',
'cl_\\1_cuda_func(\\2)\\3{\\4ret = magma_\\5_gpu\\6}' ),
( 'r', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)int([\s\S]*?)LAPACKE_([\w]*)_work([\s\S]*?)}',
'cl_\\1_cuda_func(\\2)\\3{\\4int ret;\n\tint\\5ret = magma_\\6_gpu\\7}' ),
( 'u', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)ret = magma_([^;]*)\);([\s\S]*?)}',
'cl_\\1_cuda_func(\\2)\\3{\\4ret = magma_\\5, &info);\\6}' ),
( 'u', 'cl_([\w]*)_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)ret = magma_([^;]*);([\s\S]*?)}',
'cl_\\1_cuda_func(\\2)\\3{\\4ret = magma_\\5;\n\t if (ret != MAGMA_SUCCESS) {\n\t\tfprintf(stderr, "Error in MAGMA: %d\\\\n", ret);\n\t\texit(-1);\n\t}\\6}' ),
# end Transformation
# Transformation for cl_***_cuda_func (magmablas)
( 'u', 'cl_zlaset_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)magma_zlaset_gpu([\s\S]*?)}', 'cl_zlaset_cuda_func(\\1)\\2{\\3magmablas_zlaset\\4}' ),
# end Transformation
# Speccific add
( 'u', 'cl_zlauum_cuda_func\(([^)]*)\)([\s]*){([\s\S]*?)int ret;([\s\S]*?)}', 'cl_zlauum_cuda_func(\\1)\\2{\\3int ret;\n\tint info = 0;\\4}' ),
#end add
( 'u', 'CODELETS_CPU\(([\w]*), ([\w]*), cl_([\w]*)_cpu_func\)', 'CODELETS(\\1, \\2, cl_\\3_cpu_func, cl_\\3_cuda_func)' ),
],
# ------------------------------------------------------------
# replacements applied to codelet_starpu files (opencl).
'codelet_starpu_opencl' : [
# Transformation for cl_***_opencl_func
# end Transformation
],
# ------------------------------------------------------------
# replacements applied to specific headers
'include_coreblas' : [
( 'u', 'void([ \t]*)QUARK_CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'int([ \t]*)QUARK_CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'void([ \t]*)CORE_([\w]*)_quark([^;]*);([^\n]*)\n', '' ),
( 'u', '/([^/]*)called by PLASMA([^/]*)/\n', '' ),
( 'u', '/([^/]*)called by QUARK([^/]*)/\n', '' ),
( 'u', '#ifdef COMPLEX([ \t]*)\n#endif([ \t]*)\n', '' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'PLASMA_Complex64_t', 'MORSE_Complex64_t' ),
( 'u', 'PLASMA_Complex32_t', 'MORSE_Complex32_t' ),
( 'u', 'PLASMA_enum', 'MORSE_enum' ),
( 'u', 'PLASMA_CORE', 'MORSE_CORE' ),
],
#
#
'include_runtime' : [
( 'u', 'core_zblas.h', 'runtime_z.h' ),
( 'u', 'core_zcblas.h', 'runtime_zc.h' ),
( 'u', '_PLASMA_CORE_', '_RUNTIME_' ),
( 'u', 'void([ \t]*)CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'int([ \t]*)CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', '#ifdef COMPLEX([ \t]*)\n#endif([ \t]*)\n', '' ),
( 'u', '/([^/]*)serial kernels([^/]*)/\n', '' ),
( 'u', '/([^/]*)called by QUARK([^/]*)/\n', '' ),
( 'u', 'Quark([\s]*)\*quark,([\s]*)Quark_Task_Flags([\s]*)\*task_flags,', 'MORSE_option_t *options,' ),
( 'u', 'PLASMA_sequence([^,]*)sequence\)', ')' ),
( 'u', 'PLASMA_request([^,]*)request\)', ')' ),
( 'u', 'PLASMA_sequence([^,]*)sequence,', '' ),
( 'u', 'PLASMA_request([^,]*)request,', '' ),
( 'u', 'void([ \t]*)QUARK_CORE_([^)]*),([\s]*)\);', 'void\\1QUARK_CORE_\\2);' ),
( 'u', 'int([ \t]*)QUARK_CORE_([^)]*),([\s]*)\);', 'int\\1QUARK_CORE_\\2);' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)const ([ \t\w]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2\\3*\\4,' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)PLASMA_Complex64_t([ \t]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2MORSE_desc_t *\\4, int \\4m, int \\4n,' ),
( 'r', 'QUARK_CORE([\w]*)\(([\s\S]*)PLASMA_Complex32_t([ \t]*)\*([\w]*),' , 'QUARK_CORE\\1(\\2MORSE_desc_t *\\4, int \\4m, int \\4n,' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'QUARK_CORE', 'MORSE_TASK' ),
( 'u', 'PLASMA', 'MORSE' ),
],
#
#
'include_quarkblas' : [
( 'u', 'core_zblas.h', 'quark_zblas.h' ),
( 'u', 'core_zcblas.h', 'quark_zcblas.h' ),
( 'u', '_PLASMA_CORE_', '_QUARK_' ),
( 'u', 'void([ \t]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'int([ \t]*)CORE_([a-zA-Z0-9]*)\(([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'void([ \t]*)CORE_([\w]*)_(^q])([a-zA-Z0-9]*)\(([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'int([ \t]*)CORE_([\w]*)_([^q])([a-zA-Z0-9]*)\(([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'void([ \t]*)QUARK_CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', 'int([ \t]*)QUARK_CORE_([^)]*)\);([^\n]*)\n', '' ),
( 'u', '/([^/]*)called by PLASMA([^/]*)/\n', '' ),
( 'u', '/([^/]*) serial kernels([^/]*)/\n', '' ),
( 'u', '#ifdef COMPLEX([ \t]*)\n#endif([ \t]*)\n', '' ),
( 'u', 'PLASMA', 'MORSE' ),
],
#
#
'include_morse' : [
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'plasma', 'morse' ),
],
# ------------------------------------------------------------
# replacements applied to control files.
'control' : [
( 'u', 'plasma_alloc_ipiv\(([\w]*), ([\w]*), PLASMA_FUNC_ZGESV, \(void([ ]*)\*\*\)IPIV\)',
'morse_alloc_ipiv(\\1, \\2, MORSE_FUNC_ZGESV, MorseComplexDouble, descL, (void**)IPIV)' ),
( 'u', 'plasma_shared_alloc', 'morse_desc_mat_alloc' ),
( 'u', 'Declarations of parallel functions \(static scheduling\)([\s\S]*?)Declarations of internal sequential functions',
'Declarations of internal sequential functions' ),
( 'u', 'plasma_parallel_call_([\w]*)\(([\s\\\]*)plasma_([\w]*),([^;]*);', 'morse_\\3(\\4;' ),
( 'u', 'morse_pzlapack_to_tile\(([^;]*?);', 'morse_pzlapack_to_tile(A, lm, &descA, seq, req);' ),
( 'u', 'morse_pztile_to_lapack\(([^;]*?);', 'morse_pztile_to_lapack(&descA, A, lm, seq, req);' ),
( 'u', 'PLASMA_Dealloc_Handle_Tile', 'MORSE_Dealloc_Workspace' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA_desc([ \t]*)([\w])', 'MORSE_desc_t\\1*\\2' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'plasma_context_t', 'MORSE_context_t' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
( 'u', '_quark', '' ),
# Add morse_zdesc_alloc in compute_z.h
( 'u', '#define morse_zdesc_alloc',
'#define morse_zdesc_alloc2(descA, mb, nb, lm, ln, i, j, m, n) \\\n\tdescA = morse_desc_init( \\\n\t\tMorseComplexDouble, (mb), (nb), ((mb)*(nb)), \\\n\t\t(m), (n), (i), (j), (m), (n)); \\\n\tmorse_desc_mat_alloc( &(descA) );\n\n#define morse_zdesc_alloc' ),
# end add
],
# ------------------------------------------------------------
# replacements applied to timing files.
'timing' : [
( 'u', 'PLASMA_Dealloc_Handle_Tile', 'MORSE_Dealloc_Workspace' ),
( 'u', 'PLASMA_sequence', 'MORSE_sequence_t' ),
( 'u', 'PLASMA_request', 'MORSE_request_t' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'real_Double_t', 'morse_time_t' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
# Add dirty getoncpu( descA ), will need to handle that within the sequence for exemple
( 'u', '(MORSE_Sequence_Wait\([^;]*\);\n)([\s]*)STOP_TIMING', '\\1\\2MORSE_Desc_getoncpu( descA );\n\\2STOP_TIMING' ),
],
# ------------------------------------------------------------
# replacements applied to timing files.
'testing' : [
( 'u', 'core_blas.h', 'coreblas.h' ),
( 'u', 'testing_zmain.h', 'testing_zauxiliary.h' ),
( 'u', 'real_Double_t', 'morse_time_t' ),
( 'u', 'int([\s]*)testing_([^{]*){', 'int\\1testing_\\2{\n\tint hres = 0;' ),
( 'u', 'int([\s]*)testing_([\s\S]*?)return 0;', 'int\\1testing_\\2return hres;' ),
( 'u', 'int([\s]*)testing_([\s\S]*?)FAILED([^;]*?);', 'int\\1testing_\\2FAILED\\3;\thres++;' ),
( 'u', 'PLASMA_desc', 'MORSE_desc_t' ),
( 'u', 'PLASMA_Finalize', 'MORSE_Finalize' ),
( 'u', 'PLASMA_Dealloc_Handle_Tile', 'MORSE_Dealloc_Workspace' ),
( 'u', 'PLASMA', 'MORSE' ),
( 'u', 'Plasma', 'Morse' ),
( 'u', 'plasma', 'morse' ),
# Specific fix for testing_zgesv_incpiv (will be fix in plasma)
( 'u', 'int testing_zgesv_incpiv\(([\s\S]*)MORSE_Complex64_t \*L;', 'int testing_zgesv_incpiv(\\1MORSE_desc_t *L;' ),
],
# --------------------------------------------------------
# replacements applied to ALL at the end.
'all_end' : [
( 'u', 'provided by Univ. of Tennessee,', 'provided by Inria Bordeaux - Sud-Ouest, LaBRI,' ),
( 'u', 'Univ. of California Berkeley and Univ. of Colorado Denver', 'University of Bordeaux, Bordeaux INP' ),
( 'u', '@version 2.6.0\n \* @author',
'@version 2.6.0\n * @comment This file has been automatically generated\n * from Plasma 2.6.0 for MORSE 1.0.0\n * @author' ),
( 'u', '/([\*]+)/\n/([\*]+)/', '' ),
( 'u', '/([\*]+)/\n/', '\n/' ),
( 'u', '/([\*]+)/([a-zA-Z]+)', '\\2' ),
],
};
adds = {
# --------------------------------------------------------
# replacements applied to ALL files.
'all' : [
( 'u', None , None ),
],
};
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment