Removing files that are not in 5.5.
This commit is contained in:
Luis Ibanez
parent
0f197db081
commit
e116f44fd4
|
|
@ -292,7 +292,7 @@ set(GTM_MUMPS_PORT_SRC_C
|
|||
# get_page_size.o
|
||||
get_reference.c
|
||||
get_ret_targ.c
|
||||
get_root.c
|
||||
# get_root.c not in version 5.5
|
||||
get_spec.c
|
||||
# get_src_line.o
|
||||
get_symb_line.c
|
||||
|
|
@ -454,7 +454,7 @@ set(GTM_MUMPS_PORT_SRC_C
|
|||
insert_region.c
|
||||
# inst_flush.o in ??
|
||||
int_label.c
|
||||
intexpr.c
|
||||
# intexpr.c not in version 5.5
|
||||
# io_find_mvstent.c not in version 5.5
|
||||
# io_get_fgn_driver.o in ??
|
||||
io_init.c
|
||||
|
|
@ -799,7 +799,7 @@ set(GTM_MUMPS_PORT_SRC_C
|
|||
nil_iocontrol.c
|
||||
nref.c
|
||||
numcmp.c
|
||||
numexpr.c
|
||||
# numexpr.c not in version 5.5
|
||||
# obj_code.o in sr_unix
|
||||
# obj_file.o in sr_unix
|
||||
# obj_filesp.o in sr_unix
|
||||
|
|
@ -1160,7 +1160,7 @@ set(GTM_MUMPS_PORT_SRC_C
|
|||
str2gvkey_gvfunc.c
|
||||
str2gvkey_nogvfunc.c
|
||||
# str_match.o in sr_unix
|
||||
strexpr.c
|
||||
# strexpr.c not in version 5.5
|
||||
strpiecediff.c
|
||||
stx_error.c
|
||||
sub2stbl.c
|
||||
|
|
|
|||
|
|
@ -1,24 +0,0 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* Copyright 2001 Sanchez Computer Associates, Inc. *
|
||||
* *
|
||||
* This source code contains the intellectual property *
|
||||
* of its copyright holder(s), and is made available *
|
||||
* under a license. If you do not know the terms of *
|
||||
* the license, please stop and do not read further. *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
#include "mdef.h"
|
||||
#include "gdsroot.h"
|
||||
#include "gtm_facility.h"
|
||||
#include "fileinfo.h"
|
||||
#include "gdsbt.h"
|
||||
#include "gdsfhead.h"
|
||||
#include "get_root.h"
|
||||
|
||||
GBLREF gv_namehead *gv_target;
|
||||
|
||||
int get_root(void)
|
||||
{ return(gv_target->root);
|
||||
}
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* Copyright 2001, 2010 Fidelity Information Services, Inc *
|
||||
* *
|
||||
* This source code contains the intellectual property *
|
||||
* of its copyright holder(s), and is made available *
|
||||
* under a license. If you do not know the terms of *
|
||||
* the license, please stop and do not read further. *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
#include "mdef.h"
|
||||
#include "compiler.h"
|
||||
#include "opcode.h"
|
||||
|
||||
int intexpr(oprtype *a)
|
||||
{
|
||||
|
||||
triple *triptr;
|
||||
int4 rval;
|
||||
DCL_THREADGBL_ACCESS;
|
||||
|
||||
SETUP_THREADGBL_ACCESS;
|
||||
if (!(TREF(expr_depth))++)
|
||||
TREF(expr_start) = TREF(expr_start_orig) = NULL;
|
||||
if (!(rval = eval_expr(a)))
|
||||
{
|
||||
TREF(expr_depth) = 0;
|
||||
return FALSE;
|
||||
}
|
||||
coerce(a,OCT_MINT);
|
||||
ex_tail(a);
|
||||
if (!(--(TREF(expr_depth))))
|
||||
TREF(shift_side_effects) = FALSE;
|
||||
if (TREF(expr_start) != TREF(expr_start_orig))
|
||||
{
|
||||
triptr = newtriple(OC_GVRECTARG);
|
||||
triptr->operand[0] = put_tref(TREF(expr_start));
|
||||
}
|
||||
return rval;
|
||||
|
||||
}
|
||||
|
|
@ -1,17 +0,0 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* Copyright 2001 Sanchez Computer Associates, Inc. *
|
||||
* *
|
||||
* This source code contains the intellectual property *
|
||||
* of its copyright holder(s), and is made available *
|
||||
* under a license. If you do not know the terms of *
|
||||
* the license, please stop and do not read further. *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
#ifndef MU_FILE_SIZE_INCLUDED
|
||||
#define MU_FILE_SIZE_INCLUDED
|
||||
|
||||
unsigned int mu_file_size(file_control *fc);
|
||||
|
||||
#endif /* MU_FILE_SIZE_INCLUDED */
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* Copyright 2001, 2010 Fidelity Information Services, Inc *
|
||||
* *
|
||||
* This source code contains the intellectual property *
|
||||
* of its copyright holder(s), and is made available *
|
||||
* under a license. If you do not know the terms of *
|
||||
* the license, please stop and do not read further. *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
#include "mdef.h"
|
||||
#include "compiler.h"
|
||||
#include "opcode.h"
|
||||
|
||||
int numexpr(oprtype *a)
|
||||
{
|
||||
|
||||
triple *triptr;
|
||||
int4 rval;
|
||||
DCL_THREADGBL_ACCESS;
|
||||
|
||||
SETUP_THREADGBL_ACCESS;
|
||||
if (!(TREF(expr_depth))++)
|
||||
TREF(expr_start) = TREF(expr_start_orig) = NULL;
|
||||
if (!(rval = eval_expr(a)))
|
||||
{
|
||||
TREF(expr_depth) = 0;
|
||||
return FALSE;
|
||||
}
|
||||
coerce(a,OCT_MVAL);
|
||||
ex_tail(a);
|
||||
if (!(--(TREF(expr_depth))))
|
||||
TREF(shift_side_effects) = FALSE;
|
||||
if (TREF(expr_start) != TREF(expr_start_orig))
|
||||
{
|
||||
triptr = newtriple(OC_GVRECTARG);
|
||||
triptr->operand[0] = put_tref(TREF(expr_start));
|
||||
}
|
||||
return rval;
|
||||
|
||||
}
|
||||
|
|
@ -1,42 +0,0 @@
|
|||
/****************************************************************
|
||||
* *
|
||||
* Copyright 2001, 2010 Fidelity Information Services, Inc *
|
||||
* *
|
||||
* This source code contains the intellectual property *
|
||||
* of its copyright holder(s), and is made available *
|
||||
* under a license. If you do not know the terms of *
|
||||
* the license, please stop and do not read further. *
|
||||
* *
|
||||
****************************************************************/
|
||||
|
||||
#include "mdef.h"
|
||||
#include "compiler.h"
|
||||
#include "opcode.h"
|
||||
|
||||
int strexpr(oprtype *a)
|
||||
{
|
||||
|
||||
triple *triptr;
|
||||
int4 rval;
|
||||
DCL_THREADGBL_ACCESS;
|
||||
|
||||
SETUP_THREADGBL_ACCESS;
|
||||
if (!(TREF(expr_depth))++)
|
||||
TREF(expr_start) = TREF(expr_start_orig) = NULL;
|
||||
if (!(rval = eval_expr(a)))
|
||||
{
|
||||
TREF(expr_depth) = 0;
|
||||
return FALSE;
|
||||
}
|
||||
coerce(a,OCT_MVAL);
|
||||
ex_tail(a);
|
||||
if (!(--(TREF(expr_depth))))
|
||||
TREF(shift_side_effects) = FALSE;
|
||||
if (TREF(expr_start) != TREF(expr_start_orig))
|
||||
{
|
||||
triptr = newtriple(OC_GVRECTARG);
|
||||
triptr->operand[0] = put_tref(TREF(expr_start));
|
||||
}
|
||||
return rval;
|
||||
|
||||
}
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
#!/bin/csh
|
||||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
|
||||
set lowerc_ext = ".m"
|
||||
foreach lowerc_i ($*)
|
||||
set lowerc_base = `basename $lowerc_i $lowerc_ext`
|
||||
if ( "lowerc_i" != "$lowerc_base" ) then
|
||||
# If they _don't_ match, then basename found $lowerc_ext and stripped it off.
|
||||
set lowerc_newbase = `echo $lowerc_base | tr '[A-Z]' '[a-z]'`
|
||||
if ( "$lowerc_base" != "$lowerc_newbase" ) then
|
||||
# If _not_ overwriting an existing file.
|
||||
set lowerc_dirname = `dirname $lowerc_i`
|
||||
echo "mv $lowerc_dirname/$lowerc_i ---> $lowerc_dirname/$lowerc_newbase$lowerc_ext"
|
||||
mv $lowerc_dirname/$lowerc_i $lowerc_dirname/$lowerc_newbase$lowerc_ext
|
||||
endif
|
||||
endif
|
||||
end
|
||||
|
||||
unset lowerc_base
|
||||
unset lowerc_dirname
|
||||
unset lowerc_ext
|
||||
unset lowerc_i
|
||||
unset lowerc_newbase
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
SHELL=/bin/sh
|
||||
export SHELL
|
||||
ext=.m
|
||||
for i in $*
|
||||
do
|
||||
base=`basename $i $ext`
|
||||
if test $i != $base
|
||||
then {
|
||||
newf=`echo $base | tr '[A-Z]' '[a-z]'`
|
||||
if test $base != $newf
|
||||
then {
|
||||
dir=`dirname $i`
|
||||
echo $dir/$i "---> " $dir/$newf$ext
|
||||
mv $i $dir/$newf$ext
|
||||
}
|
||||
fi
|
||||
}
|
||||
fi
|
||||
done
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
#!/bin/csh
|
||||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
|
||||
set lowerc_cp_ext = ".m"
|
||||
foreach lowerc_cp_i ($*)
|
||||
set lowerc_cp_base = `basename $lowerc_cp_i $lowerc_cp_ext`
|
||||
if ( "lowerc_cp_i" != "$lowerc_cp_base" ) then
|
||||
# If they _don't_ match, then basename found $lowerc_cp_ext and stripped it off.
|
||||
set lowerc_cp_newbase = `echo $lowerc_cp_base | tr '[A-Z]' '[a-z]'`
|
||||
if ( "$lowerc_cp_base" != "$lowerc_cp_newbase" ) then
|
||||
# If _not_ overwriting an existing file.
|
||||
set lowerc_cp_dirname = `dirname $lowerc_cp_i`
|
||||
echo "cp $lowerc_cp_dirname/$lowerc_cp_i ---> $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext"
|
||||
cp $lowerc_cp_dirname/$lowerc_cp_i $lowerc_cp_dirname/$lowerc_cp_newbase$lowerc_cp_ext
|
||||
endif
|
||||
endif
|
||||
end
|
||||
|
||||
unset lowerc_cp_base
|
||||
unset lowerc_cp_dirname
|
||||
unset lowerc_cp_ext
|
||||
unset lowerc_cp_i
|
||||
unset lowerc_cp_newbase
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
#!/bin/sh
|
||||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
|
||||
ext=.m
|
||||
for i in $*
|
||||
do
|
||||
base=`basename $i $ext`
|
||||
if test $i != $base
|
||||
then {
|
||||
newf=`echo $base | tr '[a-z]' '[A-Z]'`
|
||||
if test $base != $newf
|
||||
then {
|
||||
dir=`dirname $i`
|
||||
echo $dir/$i "---> " $dir/$newf$ext
|
||||
mv $i $dir/$newf$ext
|
||||
}
|
||||
fi
|
||||
}
|
||||
fi
|
||||
done
|
||||
|
|
@ -1,32 +0,0 @@
|
|||
#!/bin/csh
|
||||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
|
||||
set upperc_cp_ext = ".m"
|
||||
foreach upperc_cp_i ($*)
|
||||
set upperc_cp_base = `basename $upperc_cp_i $upperc_cp_ext`
|
||||
if ( "$upperc_cp_i" != "$upperc_cp_base" ) then
|
||||
# If they _don't_ match, then basename found $upperc_cp_ext and stripped it off.
|
||||
set upperc_cp_newbase = `echo $upperc_cp_base | tr '[a-z]' '[A-Z]'`
|
||||
if ( "$upperc_cp_base" != "$upperc_cp_newbase" ) then
|
||||
# If _not_ overwriting an existing file.
|
||||
set upperc_cp_dirname = `dirname $upperc_cp_i`
|
||||
echo "cp $upperc_cp_dirname/$upperc_cp_i ---> $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext"
|
||||
cp $upperc_cp_dirname/$upperc_cp_i $upperc_cp_dirname/$upperc_cp_newbase$upperc_cp_ext
|
||||
endif
|
||||
endif
|
||||
end
|
||||
|
||||
unset upperc_cp_base
|
||||
unset upperc_cp_dirname
|
||||
unset upperc_cp_ext
|
||||
unset upperc_cp_i
|
||||
unset upperc_cp_newbase
|
||||
|
|
@ -1,29 +0,0 @@
|
|||
#!/bin/sh
|
||||
#################################################################
|
||||
# #
|
||||
# Copyright 2001 Sanchez Computer Associates, Inc. #
|
||||
# #
|
||||
# This source code contains the intellectual property #
|
||||
# of its copyright holder(s), and is made available #
|
||||
# under a license. If you do not know the terms of #
|
||||
# the license, please stop and do not read further. #
|
||||
# #
|
||||
#################################################################
|
||||
|
||||
ext=.m
|
||||
for i in $*
|
||||
do
|
||||
base=`basename $i $ext`
|
||||
if test $i != $base
|
||||
then {
|
||||
newf=`echo $base | tr '[a-z]' '[A-Z]'`
|
||||
if test $base != $newf
|
||||
then {
|
||||
dir=`dirname $i`
|
||||
echo $dir/$i "---> " $dir/$newf$ext
|
||||
cp $i $dir/$newf$ext
|
||||
}
|
||||
fi
|
||||
}
|
||||
fi
|
||||
done
|
||||
Loading…
Reference in New Issue