1 files changed, 69 insertions, 0 deletions
diff --git a/rhtvision/include/tv/strilist.h b/rhtvision/include/tv/strilist.h
new file mode 100644
index 0000000..0bee550
--- /dev/null
+++ b/rhtvision/include/tv/strilist.h
@@ -0,0 +1,69 @@
+/*
+ *      Turbo Vision - Version 2.0
+ *
+ *      Copyright (c) 1994 by Borland International
+ *      All Rights Reserved.
+ *
+
+Modified by Robert H”hne to be used for RHIDE.
+
+ *
+ *
+ */
+
+#if defined( Uses_TStringList ) && !defined( __TStringList )
+#define __TStringList
+
+class TStrIndexRec;
+
+const int MAXKEYS = 16;
+
+class TStringList : public TObject
+#if !defined( NO_STREAM )
+                                   , public TStreamable
+#endif // NO_STREAM
+{
+
+public:
+
+    ~TStringList();
+
+    void get( char *dest, ushort key );
+
+private:
+
+    ipstream *ip;
+    long basePos;
+    short indexSize;
+    TStrIndexRec *index;
+#if !defined( NO_STREAM )
+    virtual const char *streamableName() const
+	{ return name; }
+
+protected:
+
+    TStringList( StreamableInit );
+    virtual void write( opstream& ) {}
+    virtual void *read( ipstream& );
+
+public:
+
+    static const char * const name;
+    static TStreamable *build();
+#endif // NO_STREAM
+};
+
+#if !defined( NO_STREAM )
+inline ipstream& operator >> ( ipstream& is, TStringList& cl )
+    { return is >> (TStreamable&)cl; }
+inline ipstream& operator >> ( ipstream& is, TStringList*& cl )
+    { return is >> (void *&)cl; }
+
+inline opstream& operator << ( opstream& os, TStringList& cl )
+    { return os << (TStreamable&)cl; }
+inline opstream& operator << ( opstream& os, TStringList* cl )
+    { return os << (TStreamable *)cl; }
+#endif // NO_STREAM
+
+#endif  // Uses_TStringList
+