Add files via upload

1 files changed, 71 insertions, 0 deletions

diff --git a/sourcecodes/localscore/PrtUtil.h b/sourcecodes/localscore/PrtUtil.h
new file mode 100644
index 00000000..1ef06d9a
--- /dev/null
+++ b/sourcecodes/localscore/PrtUtil.h
@@ -0,0 +1,71 @@
+/*
+ *  R : A Computer Language for Statistical Data Analysis
+ *  Copyright (C) 1998-2012    The R Core Team
+ *
+ *  This program is free software; you can redistribute it and/or modify
+ *  it under the terms of the GNU Lesser General Public License as published by
+ *  the Free Software Foundation; either version 2.1 of the License, or
+ *  (at your option) any later version.
+ *
+ *  This program is distributed in the hope that it will be useful,
+ *  but WITHOUT ANY WARRANTY; without even the implied warranty of
+ *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ *  GNU Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public License
+ *  along with this program; if not, a copy is available at
+ *  http://www.r-project.org/Licenses/
+ */
+
+/*
+ *  These functions are not part of the API.
+ */
+#ifndef PRTUTIL_H_
+#define PRTUTIL_H_
+
+#include <R_ext/Complex.h>
+#include <R_ext/Print.h>
+
+#define formatLogical      Rf_formatLogical
+#define formatInteger      Rf_formatInteger
+#define formatReal         Rf_formatReal
+#define formatComplex      Rf_formatComplex
+#define EncodeLogical      Rf_EncodeLogical
+#define EncodeInteger      Rf_EncodeInteger
+#define EncodeReal         Rf_EncodeReal
+#define EncodeComplex      Rf_EncodeComplex
+#define VectorIndex        Rf_VectorIndex
+#define printIntegerVector Rf_printIntegerVector
+#define printRealVector    Rf_printRealVector
+#define printComplexVector Rf_printComplexVector
+
+#ifdef  __cplusplus
+extern "C" {
+#endif
+
+/* Computation of printing formats */
+void formatLogical(int *, int, int *);
+void formatInteger(int *, int, int *);
+void formatReal(double *, int, int *, int *, int *, int);
+void formatComplex(Rcomplex *, int, int *, int *, int *, int *, int *, int *, int);
+
+/* Formating of values */
+const char *EncodeLogical(int, int);
+const char *EncodeInteger(int, int);
+const char *EncodeReal(double, int, int, int, char);
+const char *EncodeComplex(Rcomplex, int, int, int, int, int, int, char);
+
+/* Printing */
+void VectorIndex(int, int);
+
+void printLogicalVector(int *, int, int);
+void printIntegerVector(int *, int, int);
+void printRealVector   (double *, int, int);
+void printComplexVector(Rcomplex *,int, int);
+
+/* char *Rsprintf(char*, ...); */
+#ifdef  __cplusplus
+}
+#endif
+
+#endif /* PRTUTIL_H_ */