From 5df79c53745fde5d6c3340a2979b1429cd5892c1 Mon Sep 17 00:00:00 2001
From: Henrik Rydberg <rydberg@euromail.se>
Date: Sat, 8 Oct 2011 20:30:28 +0200
Subject: Initial import of htcd system 1.0

Signed-off-by: Henrik Rydberg <rydberg@euromail.se>
---
 src/hed/edit.cc   | 262 ++++++++++++++++++++++++++++++++
 src/hed/edit.h    |  61 ++++++++
 src/hed/hed.cc    |  56 +++++++
 src/hed/input.cc  | 107 +++++++++++++
 src/hed/input.h   |  52 +++++++
 src/hed/tables.cc | 442 ++++++++++++++++++++++++++++++++++++++++++++++++++++++
 src/hed/tables.h  |  61 ++++++++
 src/hed/test.cc   |  33 ++++
 8 files changed, 1074 insertions(+)
 create mode 100644 src/hed/edit.cc
 create mode 100644 src/hed/edit.h
 create mode 100644 src/hed/hed.cc
 create mode 100644 src/hed/input.cc
 create mode 100644 src/hed/input.h
 create mode 100644 src/hed/tables.cc
 create mode 100644 src/hed/tables.h
 create mode 100644 src/hed/test.cc

(limited to 'src/hed')

diff --git a/src/hed/edit.cc b/src/hed/edit.cc
new file mode 100644
index 0000000..b38b1e9
--- /dev/null
+++ b/src/hed/edit.cc
@@ -0,0 +1,262 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <hed/edit.h>
+#include <hed/input.h>
+#include <string.h>
+#include <malloc.h>
+
+const mstring end_tag="~";
+
+Editor::Line::Line()
+{
+  line=(char*)malloc(MAXCOLS);
+  line[0]=0;
+  dim=1;
+}
+Editor::Line::Line(char* p,int s)
+{
+  line=(char*)malloc(MAXCOLS);
+  memcpy(line,p,s);
+  dim=s;
+}
+Editor::Line::~Line()
+{
+  delete line;
+}
+int Editor::Line::Insert(int pos,char c)
+{
+  if(pos>=dim) pos=dim-1;
+  if(dim<MAXCOLS) {
+    memmove(line+pos+1,line+pos,dim-pos);
+    line[pos]=c;
+    dim++;
+    return 1;
+  }
+  else return 0;
+}
+int Editor::Line::Append(const Line* p)
+{
+  if(dim-1+p->dim<=MAXCOLS) {
+    memcpy(line+dim-1,p->line,p->dim);
+    dim+=p->dim-1;
+    return 1;
+  }
+  else return 0;
+}
+Editor::Line* Editor::Line::Break(int pos)
+{
+  if(pos>=dim) pos=dim-1;
+  Line* p=new Line(line+pos,dim-pos);
+  line[pos]=0;
+  dim=pos+1;
+  return p;
+}
+void Editor::Line::Delete(int pos)
+{
+  if(dim-1>pos) {
+    memmove(line+pos,line+pos+1,dim-pos-1);
+    dim--;
+  }
+}
+
+/////////////////////////////////////////////////////////////////////////
+
+Editor::Editor(const mstring& s,int ex) : 
+  path(s),
+  from(0),lines(Lines()),atline(0),size(0),
+  tab(0),cols(Columns()),atcol(0),exclusive(ex)
+{
+  memset(map,0,sizeof(Line*)*MAXLINES);
+  map[0]=new Line();
+  size=1;
+  caption=path;
+  caption+=sref(" ok (ESC to go back)");
+  if(!exclusive) caption+=sref(" (readonly)");
+}
+Editor::~Editor()
+{
+  for(int i=0;i<size;i++) delete map[i];
+}
+
+void Editor::Show()
+{
+  ClearScreen();
+  for(int i=from;i<from+lines&&i<size;i++) {
+    if(tab<map[i]->dim) {
+      if(i==size-1) {
+        if(tab<map[i]->dim-1)
+          OutputField(i-from,0,cols,sref(map[i]->line+tab,map[i]->dim-tab-1));
+        OutputField(i-from,map[i]->dim-tab-1,1,end_tag);
+      }
+      else {
+        OutputField(i-from,0,cols,sref(map[i]->line+tab,map[i]->dim-tab));
+      }
+    }
+  }
+  Reverse(1);
+  OutputField(lines,0,cols,caption);
+  Reverse(0);
+  MoveCursor(atline-from,atcol-tab);
+  Refresh();
+}
+
+void Editor::Move(int i,int j)
+{
+  atline+=i;
+  atcol+=j;
+  if(atline<0) atline=0; else if(atline>=size) atline=size-1;
+  if(atline<from) from=atline; else if(atline>=from+lines) from=atline+1-lines;
+  if(atcol<0) atcol=0; else if(atcol>=map[atline]->dim) atcol=map[atline]->dim-1;
+  if(atcol<tab) tab=atcol; else if(atcol>=tab+cols) tab=atcol+1-cols;
+}
+
+void Editor::Home()
+{
+  atline=from=atcol=tab=0;
+}
+
+void Editor::Navigate()
+{
+  int c;
+  while(1) {
+    Show();
+    switch(c=Input()) {
+    case KK_UP:
+    case 16:
+      Move(-1,0);
+      break;
+    case KK_DOWN:
+    case 14:
+      Move(1,0);
+      break;
+    case KK_LEFT:
+    case 2:
+      Move(0,-1); break;
+    case KK_RIGHT:
+    case 6:
+      Move(0,1);
+      break;
+    case KK_NPAGE:
+      Move(lines/2,0);
+      break;
+    case KK_PPAGE:
+      Move(-lines/2,0);
+      break;
+    case KK_HOME:
+    case 1:
+      Move(0,-map[atline]->dim);
+      break;
+    case KK_END:
+    case 5:
+      Move(0,map[atline]->dim);
+      break;
+    case 127:
+    case 4:
+      if(exclusive) Delete();
+      break;
+    case 8:
+      if(exclusive) Backspace();
+      break;
+    case 13:
+      if(exclusive) BreakLine();
+      break;
+    case KK_F(1):
+      if(exclusive) Insert('å');
+      break;
+    case KK_F(2):
+      if(exclusive) Insert('ä');
+      break;
+    case KK_F(3):
+      if(exclusive) Insert('ö');
+      break;
+    case 9:
+      if(exclusive) Insert('\t');
+      break;
+    default:
+      if(exclusive) if(c>=32&&c<127) Insert(c);
+      break;
+    case 27:
+      return;
+    }
+  }
+}
+
+void Editor::Insert(int c)
+{
+  if(map[atline]->Insert(atcol,c)) Move(0,1);
+}
+
+void Editor::BreakLine()
+{
+  if(size<MAXLINES) {
+    Line* p=map[atline]->Break(atcol);
+    memmove(map+atline+2,map+atline+1,sizeof(Line*)*(size-atline-1));
+    map[atline+1]=p;
+    size++;
+    Move(1,-atcol);
+  }
+}
+
+void Editor::Delete()
+{
+  if(map[atline]->dim-1>atcol) {
+    map[atline]->Delete(atcol);
+  }
+  else if(size-1>atline) {
+    delete map[atline];
+    memmove(map+atline,map+atline+1,sizeof(Line*)*(size-atline-1));
+    size--;
+  }
+}
+
+void Editor::Backspace()
+{
+  if(atcol>0) {
+    Move(0,-1);
+    map[atline]->Delete(atcol);
+  }
+  else if(atline>0) {
+    int pos=map[atline-1]->dim-1;
+    if(map[atline-1]->Append(map[atline])) {
+      delete map[atline];
+      memmove(map+atline,map+atline+1,sizeof(Line*)*(size-atline-1));
+      size--;
+      Move(-1,pos-atcol);
+    }
+  }
+}
+
+void Editor::Paste(const mstring& s)
+{
+  for(int i=0;i<s.size();i++) {
+    if(s[i]=='\n') BreakLine();
+    else if(s[i]!='\r') Insert(s[i]);
+  }
+  Home();
+}
+
+void Editor::Copy(mstring& s)
+{
+  s.clear();
+  for(int i=0;i<size;i++) {
+    s+=sref(map[i]->line,map[i]->dim-1);
+    if(i<size-1) s+='\n';
+  }
+}
diff --git a/src/hed/edit.h b/src/hed/edit.h
new file mode 100644
index 0000000..e6ae437
--- /dev/null
+++ b/src/hed/edit.h
@@ -0,0 +1,61 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#ifndef EDITH
+#define EDITH
+
+#include <mt/mstring.h>
+
+struct Editor {
+  static const int MAXLINES=1024;
+  static const int MAXCOLS=256;
+  struct Line {
+    Line();
+    Line(char* p,int s);
+    ~Line();
+    int Insert(int pos,char c);
+    int Append(const Line* p);
+    Line* Break(int pos);
+    void Delete(int pos);
+    char* line;
+    int dim;
+  };
+
+  Editor(const mstring& path,int ex);
+  ~Editor();
+
+  void Copy(mstring& s);
+  void Paste(const mstring& s);
+
+  void Show();
+  void Home();
+  void Move(int i,int j);
+  void Navigate();
+  void Insert(int c);
+  void BreakLine();
+  void Delete();
+  void Backspace();
+
+  mstring path,caption;
+  Line* map[MAXLINES];
+  int from,lines,atline,size;
+  int tab,cols,atcol,exclusive;
+};
+
+#endif
diff --git a/src/hed/hed.cc b/src/hed/hed.cc
new file mode 100644
index 0000000..dc469cc
--- /dev/null
+++ b/src/hed/hed.cc
@@ -0,0 +1,56 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include "tables.h"
+#include "input.h"
+#include <unistd.h>
+
+static fp_stream merr(stderr);
+
+main(int argc,char* argv[])
+{
+  if(argc<2) {
+    merr<<"Usage: "<<argv[0]<<" <hdb> [exclusive]\n";
+    return -1;
+  }
+  char* path=argv[1];
+  int excl=argc>2?atoi(argv[2]):0;
+  mstring err;
+  sleep(1);
+  InitCurses();
+  Tables tab;
+  try {
+    tab.Open(path,excl);
+    tab.Setup(20);
+    tab.Navigate();
+  }
+  catch(const merror_t& e) {
+    err=e.desc;
+  }
+  catch(...) {
+    err="hdb: Unexpected error";
+  }
+  tab.Close();
+  EndCurses();
+  if(err.nempty()) {
+    merr<<err<<"\n";
+    sleep(2);
+  }
+  return 0;
+}
diff --git a/src/hed/input.cc b/src/hed/input.cc
new file mode 100644
index 0000000..4f2b008
--- /dev/null
+++ b/src/hed/input.cc
@@ -0,0 +1,107 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <hed/input.h>
+#include <mt/mstring.h>
+#include <unistd.h>
+#include <poll.h>
+#include <curses.h>
+
+int Lines() { return LINES-1; }
+int Columns() { return COLS-1; }
+
+void ClearScreen() { erase(); }
+void MoveCursor(int i,int j) { move(i,j); }
+
+void InitCurses()
+{
+  initscr();
+  nodelay(stdscr,1);
+  raw();
+  noecho();
+  nonl();
+  keypad(stdscr,1);
+  intrflush(stdscr,FALSE);
+}
+
+void EndCurses()
+{
+  endwin();
+}
+
+void OutputField(int row,int col,int field,const sref& in)
+{
+  mstring tmp=in.left_first_of(cset_newl);
+  int cut=tmp.size()!=in.size();
+  if(tmp.size()<field) tmp.append(field-tmp.size(),' ');
+  if(cut||in.size()>field) { tmp.resize(field-1); tmp.append(1,'\\'); }
+  mvaddstr(row,col,(char*)tmp.c_str());
+}
+
+void Reverse(int n)
+{
+  if(n) attron(A_REVERSE); else attroff(A_REVERSE);
+}
+void Bold(int n)
+{
+  if(n) attron(A_BOLD); else attroff(A_BOLD);
+}
+
+void Refresh()
+{
+  refresh();
+}
+
+int RawInput() {
+  int c=getch();
+  if(c>0) return c;
+  struct pollfd ps={fileno(stdin),POLLIN,0};
+  poll(&ps,1,1000);
+  return getch();
+}
+
+int Input() {
+  int c=RawInput();
+#if 0
+  if(c==27) {
+    napms(1);
+    int c2=getch();
+    if(c2!=-1) {
+      switch(c2) {
+      default: return 0;
+      case 91:
+        switch(RawInput()) {
+        default: return 0;
+        case '2':
+          RawInput();
+          switch(RawInput()) {
+          default: return 0;
+          case 52: return RawInput()==122?KEY_HOME:0;
+          case 54: return RawInput()==122?KEY_PPAGE:0;
+          case 48: return RawInput()==122?KEY_END:0;
+          case 50: return RawInput()==122?KEY_NPAGE:0;
+          }
+        }
+      }
+    }
+  }
+#endif
+  return c;
+}
+
diff --git a/src/hed/input.h b/src/hed/input.h
new file mode 100644
index 0000000..76071ce
--- /dev/null
+++ b/src/hed/input.h
@@ -0,0 +1,52 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include <mt/stringref.h>
+
+#ifndef INPUTH
+#define INPUTH
+
+#define	KK_DOWN         0402		
+#define	KK_UP		0403
+#define	KK_LEFT         0404
+#define	KK_RIGHT	0405
+#define	KK_HOME         0406		
+#define	KK_F0		0410
+#define	KK_F(n)         (KK_F0+(n))	
+#define	KK_NPAGE	0522
+#define	KK_PPAGE	0523
+#define	KK_END		0550
+
+int Input();
+int RawInput();
+
+int Lines();
+int Columns();
+
+void ClearScreen();
+void MoveCursor(int i,int j);
+void OutputField(int row,int col,int field,const sref& p);
+void Reverse(int n);
+void Bold(int n);
+void Refresh();
+
+void InitCurses();
+void EndCurses();
+
+#endif
diff --git a/src/hed/tables.cc b/src/hed/tables.cc
new file mode 100644
index 0000000..c489e6f
--- /dev/null
+++ b/src/hed/tables.cc
@@ -0,0 +1,442 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include "tables.h"
+#include "input.h"
+#include <string.h>
+#include <malloc.h>
+#include <stdio.h>
+
+const mstring star_tag="*";
+
+const int PAD=2;
+const mstring HELP=
+"Commands from record page:\n"
+"\n"
+"DEL - Delete record\n"
+"RET - Edit record\n"
+"n   - New record\n"
+"s   - Sort by table\n"
+"o   - Order by table\n"
+"c   - Check for duplicates\n"
+"f   - Filename for map\n"
+"r   - Remove table\n"
+"a   - Add table\n";
+
+Tables::Tables() : 
+  from(0),lines(Lines()-1),atline(0),writable(0),
+  tab(0),space(10),cols(Columns()),atcol(0),
+  lastfrom(-1),lasttab(-1),lastline(0),lastcol(0)
+{
+  dispcols=cols/space;
+}
+
+Tables::~Tables()
+{
+}
+
+void Tables::Setup(int sp)
+{
+  space=sp;
+  dispcols=cols/space;
+  Home();
+}
+
+void Tables::Show()
+{
+  if(db.remap()) {
+    lastfrom=-1;
+    caption.convert("%d, %d, %d, %d",
+                    db.head()->filesize.get(),
+                    db.head()->fatal.get(),
+                    db.head()->major.get(),
+                    db.head()->minor.get());
+  }
+  if(from!=lastfrom||tab!=lasttab) {
+    ClearScreen();
+    Bold(1);
+    for(int j=tab;j<tab+dispcols&&j<db.Tables();j++) {
+      if(j==db.Index()) {
+        OutputField(0,space*(j-tab),space-PAD-1,db.Table(j));
+        OutputField(0,space*(j-tab)+space-PAD-1,1,star_tag);
+      }
+      else {
+        OutputField(0,space*(j-tab),space-PAD,db.Table(j));
+      }
+    }
+    Bold(0);
+    for(int i=from;i<from+lines&&i<=db.size();i++) {
+      for(int j=tab;j<tab+dispcols&&j<=db.Tables();j++) {
+        sref tmp; if(i<db.size()&&j<db.Tables()) tmp=db(i,j);
+        if(i==atline&&j==atcol) Reverse(1); else Reverse(0);
+        OutputField(i+1-from,space*(j-tab),space-PAD,tmp);
+        if(i==atline&&j==atcol) Reverse(0);
+      }
+    }
+    Reverse(1);
+    OutputField(lines+1,1,cols-1,caption);
+    Reverse(0);
+  }
+  else {
+    int i=lastline,j=lastcol;
+    if(i>=0&&i<=db.size()&&j>=0&&j<=db.Tables()) {
+      sref tmp; if(i<db.size()&&j<db.Tables()) tmp=db(i,j);
+      OutputField(i+1-from,space*(j-tab),space-PAD,tmp);
+    }
+    i=atline; j=atcol;
+    if(i>=0&&i<=db.size()&&j>=0&&j<=db.Tables()) {
+      sref tmp; if(i<db.size()&&j<db.Tables()) tmp=db(i,j);
+      Reverse(1);
+      OutputField(i+1-from,space*(j-tab),space-PAD,tmp);
+      Reverse(0);
+    }
+  }
+  MoveCursor(lines+1,0);
+  Refresh();
+  lastline=atline;
+  lastcol=atcol;
+  lastfrom=from;
+  lasttab=tab;
+}
+
+void Tables::Home()
+{
+  atline=atcol=from=tab=0;
+}
+
+void Tables::Move(int i,int j)
+{
+  atline+=i;
+  if(atline>=db.size()) atline=db.size();
+  if(atline<0) atline=0;
+  if(atline>=from+lines) from=atline+1-lines;
+  if(atline<from) from=atline;
+  atcol+=j;
+  if(atcol>=db.Tables()) atcol=db.Tables();
+  if(atcol<0) atcol=0;
+  if(atcol>=tab+dispcols) tab=atcol+1-dispcols;
+  if(atcol<tab) tab=atcol;
+}
+
+void Tables::Insert()
+{
+  if(db.remap()) lastfrom=-1;
+  if(db.Tables()==0) return;
+  mstring tx,key,ttab=db.Table(db.Index());
+  tx.convert("%s - insert %s",path.c_str(),ttab.c_str());
+  Editor edit(tx,1);
+  edit.Paste("");
+  edit.Navigate();
+  edit.Copy(key);
+  int row=-1;
+  try {
+    spile list(db.Tables());
+    list[db.Index()]=key;
+    row=db.Insert(list,1);
+    if(row>=0) {
+      caption.convert("%s - added record",path.c_str());
+      Move(row-atline,0);
+    }
+    else {
+      caption.convert("%s - record nonunique - not added",path.c_str());
+      Move(0,0);
+    }
+  }
+  catch(const merror_t& e) {
+    caption=e.desc;
+    Move(0,0);
+  }
+  lastfrom=-1;
+}
+
+void Tables::Delete()
+{
+  if(db.remap()) lastfrom=-1;
+  if(atline<db.size()) {
+    db.Rem(atline);
+    Move(0,0);
+    lastfrom=-1;
+  }
+}
+
+void Tables::Navigate()
+{
+  int c;
+  while(1) {
+    Show();
+    switch(c=Input()) {
+    case KK_UP:
+    case 16:
+      Move(-1,0);
+      break;
+    case KK_DOWN:
+    case 14:
+      Move(1,0);
+      break;
+    case KK_LEFT:
+    case 2:
+      Move(0,-1); break;
+    case KK_RIGHT:
+    case 6:
+    case 9:
+      Move(0,1);
+      break;
+    case KK_NPAGE:
+      Move(lines/2,0);
+      break;
+    case KK_PPAGE:
+      Move(-lines/2,0);
+      break;
+    case KK_HOME:
+    case 1:
+      Move(0,-db.Tables());
+      break;
+    case KK_END:
+    case 5:
+      Move(0,db.Tables());
+      break;
+    case 127:
+    case 4:
+      if(writable) Delete();
+      break;
+    case 13:
+      Edit();
+      break;
+    case 's':
+      Sort();
+      break;
+    case 'o':
+      if(writable) Order();
+      break;
+    case 'c':
+      Check();
+      break;
+    case 'f':
+      FileName();
+      break;
+    case 'r':
+      if(writable) RemTable();
+      break;
+    case 'a':
+      if(writable) AddTable();
+      break;
+    case 'n':
+      if(writable) Insert();
+      break;
+    case 27:
+      if(Command()) break;
+      else return;
+    }
+
+  }
+}
+
+int Tables::Command()
+{
+  mstring tmp=caption;
+  caption="q (quit), s (save), h (help)";
+  lastfrom=-1;
+  Show();
+  switch(Input()) {
+  case 'q':
+    return 0;
+  case 's':
+    Save();
+    break;
+  case 'h':
+    Help();
+    break;
+  default:
+    caption=tmp;
+    break;
+  }
+  lastfrom=-1;
+  return 1;
+}
+
+void Tables::Help()
+{
+  Editor edit("help",0);
+  edit.Paste(HELP);
+  edit.Navigate();
+  lastfrom=-1;
+}
+
+void Tables::Edit()
+{
+  if(db.remap()) lastfrom=-1;
+  if(atline<db.size()&&atcol<db.Tables()) {
+    mstring tx;
+    tx.convert("%s - (%d,%d)",path.c_str(),atline+1,atcol+1);
+    Editor edit(tx,writable&&atcol!=db.Index());
+    edit.Paste(db(atline,atcol));
+    edit.Navigate();
+    edit.Copy(tx);
+    try {
+      if(writable) db.Set(atline,atcol,tx);
+      caption=path;
+      caption+=sref(" edited.");
+    }
+    catch(const merror_t& e) {
+      caption=e.desc;
+    }
+    catch(...) {
+    }
+    Move(0,0);
+    lastfrom=-1;
+  }
+}
+
+void Tables::Sort()
+{
+  if(db.remap()) lastfrom=-1;
+  if(atline<=db.size()&&atcol<db.Tables()) {
+    mstring tx=db.Compname();
+    Editor edit("compname",1);
+    edit.Paste(tx);
+    edit.Navigate();
+    edit.Copy(tx);
+    db.Sort(db.Table(atcol),tx);
+    mstring ttab=db.Table(db.Index());
+    caption.convert("%s sorted: %s %s",path.c_str(),ttab.c_str(),tx.c_str());
+    Move(0,0);
+    lastfrom=-1;
+  }
+}
+
+void Tables::Order()
+{
+  if(db.remap()) lastfrom=-1;
+  if(atline<=db.size()&&atcol<db.Tables()) {
+    mstring tx=db.Compname();
+    Editor edit("compname",1);
+    edit.Paste(tx);
+    edit.Navigate();
+    edit.Copy(tx);
+    db.Order(db.Table(atcol),tx);
+    mstring ttab=db.Table(db.Index());
+    caption.convert("%s ordered: %s %s",path.c_str(),ttab.c_str(),tx.c_str());
+    Move(0,0);
+    lastfrom=-1;
+  }
+}
+
+void Tables::Check()
+{
+  if(db.remap()) lastfrom=-1;
+  int idx=db.Index();
+  mswrite mm;
+  for(int i=0;i<db.size()-1;i++) {
+    if(db(i,idx)==db(i+1,idx)) mm<<db(i,idx)<<" duplicated\n";
+  }
+  if(mm.str().empty()) mm<<"Nothing duplicated\n";
+  Editor edit("check",0);
+  edit.Paste(mm.str());
+  edit.Navigate();
+  lastfrom=-1;
+}
+
+void Tables::FileName()
+{
+  if(db.remap()) lastfrom=-1;
+  mstring tx; tx.convert("%s - filename",path.c_str());
+  Editor edit(tx,1);
+  tx.convert("%s",path.c_str());
+  edit.Paste(tx);
+  edit.Navigate();
+  edit.Copy(tx);
+  path=tx;
+  lastfrom=-1;
+}
+
+void Tables::AddTable()
+{
+  if(db.remap()) lastfrom=-1;
+  mstring tx;
+  tx.convert("%s - add table (def: 2nd line)",path.c_str());
+  Editor edit(tx,1);
+  edit.Paste("");
+  edit.Navigate();
+  mstring tb;
+  edit.Copy(tb);
+  sref first,rest=tb;
+  Splitln(first,rest);
+  mstring name=first;
+  Splitln(first,rest);
+  int ok=-db.Tables();
+  db.InsertTable(atcol,name);
+  ok+=db.Tables();
+  if(ok) {
+    Move(0,0);
+    caption.convert("%s - added table",path.c_str());
+  }
+  else caption.convert("%s - not unique - table not added",path.c_str());
+  lastfrom=-1;
+}
+
+void Tables::RemTable()
+{
+  if(db.remap()) lastfrom=-1;
+  if(atcol<db.Tables()&&atcol!=db.Index()) {
+    db.RemTable(atcol);
+    Move(0,0);
+    caption.convert("%s - removed table",path.c_str());
+  }
+  else caption.convert("%s - key table - not removed",path.c_str());
+  lastfrom=-1;
+}
+
+void Tables::Open(const mstring& s,int ex)
+{
+  path=s;
+  writable=ex;
+  db.Open(s,ex);
+  if(ex) db.Saveas(path+sref(".bak"));
+  caption=s;
+  caption+=sref(" loaded");
+  if(ex) caption+=sref(" (exclusive)");
+  lastfrom=-1;
+}
+
+void Tables::Save()
+{
+  try {
+    db.Saveas(path);
+    caption=path;
+    caption+=sref(" saved");
+  }
+  catch(const merror_t& e) {
+    caption=e.desc;
+  }
+  lastfrom=-1;
+}
+
+void Tables::Close()
+{
+  if(writable) {
+    db.Close();
+    caption=path;
+    caption+=sref(" closed");
+  }
+  else {
+    caption=path;
+    caption+=sref(" readonly - not closed");
+  }
+  lastfrom=-1;
+}
diff --git a/src/hed/tables.h b/src/hed/tables.h
new file mode 100644
index 0000000..205ca63
--- /dev/null
+++ b/src/hed/tables.h
@@ -0,0 +1,61 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#ifndef TABLESH
+#define TABLESH
+
+#include <hed/edit.h>
+#include <hdb/db.h>
+
+struct Tables {
+  Tables();
+  ~Tables();
+
+  void Open(const mstring& path,int ex=0);
+  void Save();
+  void Close();
+
+  void Setup(int sp);
+
+  void Show();
+  void Home();
+  void Move(int i,int j);
+  void Navigate();
+  int Command();
+
+  void Sort();
+  void Order();
+  void Check();
+
+  void Edit();
+  void Insert();
+  void Delete();
+  void FileName();
+  void AddTable();
+  void RemTable();
+  void Help();
+
+  dbmap db;
+  mstring path,caption;
+  int from,lines,atline,writable;
+  int tab,space,cols,dispcols,dim,atcol;
+  int lastfrom,lasttab,lastline,lastcol;
+};
+
+#endif
diff --git a/src/hed/test.cc b/src/hed/test.cc
new file mode 100644
index 0000000..318334f
--- /dev/null
+++ b/src/hed/test.cc
@@ -0,0 +1,33 @@
+/*************************************************************************
+ *
+ * HTCd - Copyright (C) 1998-2006 Henrik Rydberg
+ *
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 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 General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+ */
+
+#include "input.h"
+#include <stdio.h>
+
+main(int argc,char* argv[])
+{
+  InitCurses();
+  while(1) {
+    int c=RawInput();
+    fprintf(stderr,"%d\r\n",c);
+    if(c==27) break;
+  }
+  EndCurses();
+  return 0;
+}
-- 
cgit v1.2.3