From 19fcec84d8d7d21e796c7624e521b60d28ee21ed Mon Sep 17 00:00:00 2001
From: Daniel Baumann <daniel.baumann@progress-linux.org>
Date: Sun, 7 Apr 2024 20:45:59 +0200
Subject: Adding upstream version 16.2.11+ds.

Signed-off-by: Daniel Baumann <daniel.baumann@progress-linux.org>
---
 src/boost/libs/yap/example/autodiff_library/Tape.h | 97 ++++++++++++++++++++++
 1 file changed, 97 insertions(+)
 create mode 100644 src/boost/libs/yap/example/autodiff_library/Tape.h

(limited to 'src/boost/libs/yap/example/autodiff_library/Tape.h')

diff --git a/src/boost/libs/yap/example/autodiff_library/Tape.h b/src/boost/libs/yap/example/autodiff_library/Tape.h
new file mode 100644
index 000000000..9ca62c4df
--- /dev/null
+++ b/src/boost/libs/yap/example/autodiff_library/Tape.h
@@ -0,0 +1,97 @@
+/*
+ * Tape.h
+ *
+ *  Created on: 15 Apr 2013
+ *      Author: s0965328
+ */
+
+#ifndef TAPE_H_
+#define TAPE_H_
+
+#include <vector>
+#include <string>
+#include <cassert>
+#include <sstream>
+#include <iostream>
+
+
+namespace AutoDiff {
+
+using namespace std;
+#define TT 	(Tape<double>::valueTape)
+#define II 	(Tape<unsigned int>::indexTape)
+
+template<typename T> class Tape {
+public:
+	Tape<T> () : index(0){};
+	T& at(const unsigned int index);
+	const T& get(const unsigned int index);
+	void set(T& v);
+	unsigned int size();
+	void clear();
+	bool empty();
+	string toString();
+	virtual ~Tape();
+
+	vector<T> vals;
+	unsigned int index;
+
+	static Tape<double>* valueTape;
+	static Tape<unsigned int>* indexTape;
+};
+
+
+template<typename T> Tape<T>::~Tape<T>()
+{
+	index = 0;
+	vals.clear();
+}
+
+template<typename T> T& Tape<T>::at(const unsigned int i)
+{
+	assert(this->vals.size()>i);
+	return vals[i];
+}
+template<typename T> const T& Tape<T>::get(const unsigned int i)
+{
+	assert(this->vals.size()>i);
+	return vals[i];
+}
+template <typename T> void Tape<T>::set(T& v)
+{
+	vals.push_back(v);
+	index++;
+}
+
+template<typename T> unsigned int Tape<T>::size()
+{
+	return this->vals.size();
+}
+
+template<typename T> bool Tape<T>::empty()
+{
+	return vals.empty();
+}
+
+template<typename T> void Tape<T>::clear()
+{
+	this->vals.clear();
+	this->index = 0;
+	assert(this->vals.size()==0);
+	assert(this->vals.empty());
+}
+
+template<typename T>  string Tape<T>::toString()
+{
+	assert(vals.size()>=index);
+	ostringstream oss;
+	oss<<"Tape size["<<vals.size()<<"]";
+	for(unsigned int i=0;i<vals.size();i++){
+		if(i%10==0) oss<<endl;
+		oss<<vals[i]<<",";
+	}
+	oss<<endl;
+	return oss.str();
+}
+}
+#endif /* TAPE_H_ */
-- 
cgit v1.2.3