/*
----
This file is part of SECONDO.

Copyright (C) 2004, University in Hagen, Department of Computer Science,
Database Systems for New Applications.

SECONDO 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.

SECONDO 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 SECONDO; if not, write to the Free Software
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
----

*/

#ifndef RASTER2_DISPLAYSTYPE_H
#define RASTER2_DISPLAYSTYPE_H

#include "DisplayTTY.h"

namespace raster2
{

/*
1 Class ~DisplaySType~

The class ~DisplaySType~ provides a display function that can be used by any
type that is based on ~stype$<$T, Helper$>$~.

*/
    class DisplaySType: public DisplayFunction
    {
      public:
        DisplaySType() {};
        virtual ~DisplaySType() {};
        virtual void Display(ListExpr type, ListExpr value) {
            if (nl->IsEqual(value, Symbol::UNDEFINED())) {
              return;
            }
            std::cout << "Origin: (" 
                      << nl->RealValue(nl->First(nl->First(value)))
                      << ", " << nl->RealValue(nl->Second(nl->First(value)))
                      << ")\n";
            std::cout << "Length: " 
                      << nl->RealValue(nl->Third(nl->First(value)))
                      << "\n";
            value = nl->Rest(value);
            int rows = nl->IntValue(nl->First(nl->First(value)));
            int cols = nl->IntValue(nl->Second(nl->First(value)));
            value = nl->Rest(value);
            std::cout << "Values: ";
            bool has_values = false;
            while (!nl->IsEmpty(value)) {
                ListExpr  head = nl->First(value);
                value = nl->Rest(value);
                int row = nl->IntValue(nl->First(head));
                int col = nl->IntValue(nl->Second(head));
                ListExpr values = nl->Third(head);
                for (int r = 0; r < rows; ++r) {
                    for (int c = 0; c < cols; ++c) {
                        int p = 1 + Cardinal(r*rows+c);
                        ListExpr element = nl->Nth(p,values);
                        if (!nl->IsEqual(element,Symbol::UNDEFINED())) {
                            has_values = true;
                            std::cout << "\n        (" << (row + r) << ", "
                                                     << (col + c) << "): "
                                      << nl->ToString(element);
                        }
                    }
                }
            }
            if (!has_values) {
                std::cout << "none";
            }
        }
    };

}
#endif /* RASTER2_DISPLAYSTYPE_H */