From a64815ca38c32033a69f45d3f094f63fbba14b6f Mon Sep 17 00:00:00 2001 From: Henrik Rydberg Date: Sat, 8 Oct 2011 20:43:12 +0200 Subject: Fixup broken fortran link convention All other functions use one trailing underscore, but this set uses two; consequently, the functions are not found at link time. Signed-off-by: Henrik Rydberg --- src/mt/stringref.cc | 20 ++++++++++---------- 1 file changed, 10 insertions(+), 10 deletions(-) (limited to 'src') diff --git a/src/mt/stringref.cc b/src/mt/stringref.cc index 66b3d3e..dbae3a9 100644 --- a/src/mt/stringref.cc +++ b/src/mt/stringref.cc @@ -30,11 +30,11 @@ extern "C" { int srfindtab_(const char* s,const int& sn,const char* c,const int& cn,const char* tab); int scomptab_(const char* s,const char* c,const int& n,const char* tab); void sconvert_(char* s,const int& sn,const char* tab); - int find_of__(const char* s,const int& sn,const char* set); - int rfind_of__(const char* s,const int& sn,const char* set); - int find_not_of__(const char* s,const int& sn,const char* set); - int rfind_not_of__(const char* s,const int& sn,const char* set); - int skip_parentesis__(const char* s,const int& sn, + int find_of_(const char* s,const int& sn,const char* set); + int rfind_of_(const char* s,const int& sn,const char* set); + int find_not_of_(const char* s,const int& sn,const char* set); + int rfind_not_of_(const char* s,const int& sn,const char* set); + int skip_parentesis_(const char* s,const int& sn, const char& left,const char& right,const char& esc); int strip_(char* s,const char* c,const int& cn,const char& esc); } @@ -105,13 +105,13 @@ int sref::rfind(const sref& s,const charmap& tab) const { return srfindtab_(map,dim,s.map,s.dim,tab.map); } -int sref::find_of(const charset& s) const { return find_of__(map,dim,s.map); } -int sref::rfind_of(const charset& s) const { return rfind_of__(map,dim,s.map); } -int sref::find_not_of(const charset& s) const { return find_not_of__(map,dim,s.map); } -int sref::rfind_not_of(const charset& s) const { return rfind_not_of__(map,dim,s.map); } +int sref::find_of(const charset& s) const { return find_of_(map,dim,s.map); } +int sref::rfind_of(const charset& s) const { return rfind_of_(map,dim,s.map); } +int sref::find_not_of(const charset& s) const { return find_not_of_(map,dim,s.map); } +int sref::rfind_not_of(const charset& s) const { return rfind_not_of_(map,dim,s.map); } int sref::skip(const bracket& bra) const { - return skip_parentesis__(map,dim,bra.left,bra.right,bra.esc); + return skip_parentesis_(map,dim,bra.left,bra.right,bra.esc); } //////////////////////////////////////////////////////////////// -- cgit v1.2.3