"version 0.1.1"

svn path=/trunk/; revision=267

1 files changed, 40 insertions, 0 deletions

diff --git a/externals/grill/vasp/source/vbuffer.cpp b/externals/grill/vasp/source/vbuffer.cpp
new file mode 100644
index 00000000..137e066c
--- /dev/null
+++ b/externals/grill/vasp/source/vbuffer.cpp
@@ -0,0 +1,40 @@
+#include "vbuffer.h"
+#include "buflib.h"
+
+V VSymbol::Inc() { if(sym) BufLib::IncRef(sym); }
+V VSymbol::Dec() { if(sym) BufLib::DecRef(sym); }
+
+///////////////////////////////////////////////////////////////////////////
+// SysBuf class
+///////////////////////////////////////////////////////////////////////////
+
+SysBuf &SysBuf::Set(const VSymbol &s,I c,I l,I o)
+{
+	buf.Set(s.Symbol());
+
+	chn = c;
+	if(chn > Channels()) {
+		I chn1 = Channels()-1;
+		post("vasp - buffer %s: Channel index (%i) is out of range, set to highest (%i)",s.Name(),chn,chn1);
+		chn = chn1; // simply correct the channel??
+	}
+	offs = o;
+	if(offs < 0) {
+		post("vasp - buffer %s: Offset (%i) is out of range, set to 0",s.Name(),offs);
+		offs = 0;
+	}
+	if(offs > Frames()) {
+//		post("vasp - buffer %s: Offset (%i) is out of range, set to %i",s.Name(),offs,Frames());
+		offs = Frames();
+	}
+	len = l >= 0?l:Frames();
+	if(offs+len > Frames()) {
+		I len1 = Frames()-offs;
+		if(l >= 0) post("vasp - buffer %s: Length (%i) is out of range, corrected to %i",s.Name(),len,len1);
+		len = len1;
+	}
+
+	return *this;
+}
+
+