<!-- Collection of code snippets by Arne Vajhøj -->
<!-- (from articles on eksperten.dk / vajhoej.dk written sometime between 2004 and now) -->
<?php

/*
 * Minimalistic/hardcoded serializer/deserializer framework.
 */
class Util {
    public static function Object2JSON($o) {
        switch(get_class($o)) {
            // simple data classes
            case 'T1':
                return json_encode($o);
            // array wrapper classes
            case 'T1Array':
                return json_encode($o->array);
            default:
                throw new Exception('Unknown type: ' . $clz);
        }
    }
    public static function Object2XML($o) {
        $clz = get_class($o);
        $res = sprintf('<%s>', strtolower($clz));
        switch($clz) {
            // simple data classes
            case 'T1':
                foreach(get_object_vars($o) as $nam => $val) {
                    $res .= sprintf('<%s>%s</%s>', $nam, $val, $nam);
                }
                break;
            // array wrapper classes
            case 'T1Array':
                foreach($o->array as $elm) {
                    $res .= Util::Object2XML($elm);
                }
                break;
            default:
                throw new Exception('Unknown type: ' . $clz);
        }
        $res .= sprintf('</%s>', strtolower($clz));
        return $res;
    }
    public static function Object2String($o, $typ) {
        if($typ == 'application/xml') {
            return Util::Object2XML($o);
        } else if($typ == 'application/json') {
            return Util::Object2JSON($o);
        } else {
            throw new Exception('Unknown type: ' . $typ);
        }
    }
    public static function XML2Object($clz, $xml) {
        $temp = simplexml_load_string($xml);
        $res = new $clz();
        switch($clz) {
            // simple data classes
            case 'T1':
                foreach(get_object_vars($res) as $nam => $val) {
                    if(is_int($res->$nam)) {
                        $res->$nam = (int)$temp->$nam;
                    } else {
                        $res->$nam = (string)$temp->$nam;
                    }
                }
                break;
            // array wrapper classes
            case 'T1Array':
                $elmclz = substr($clz, 0, -5);
                foreach($temp as $elm) {
                    $o = new $elmclz();
                    foreach(get_object_vars($o) as $nam => $val) {
                        if(is_int($o->$nam)) {
                            $o->$nam = (int)$elm->$nam;
                        } else {
                            $o->$nam = (string)$elm->$nam;
                        }
                    }
                    $res->array[] = $o;
                }
                break;
            default:
                throw new Exception('Unknown type: ' . $clz);
        }
        return $res;
    }
    public static function JSON2Object($clz, $json) {
        $temp = json_decode($json);
        $res = new $clz();
        switch($clz) {
            // simple data classes
            case 'T1':
                foreach(get_object_vars($res) as $nam => $val) {
                    $res->$nam = $temp->$nam;
                }
                break;
            // array wrapper classes
            case 'T1Array':
                $elmclz = substr($clz, 0, -5);
                foreach($temp as $elm) {
                    $o = new $elmclz();
                    foreach(get_object_vars($o) as $nam => $val) {
                        $o->$nam = $elm->$nam;
                    }
                    $res->array[] = $o;
                }
                break;
            default:
                throw new Exception('Unknown type: ' . $clz);
        }
        return $res;
    }
    public static function String2Object($clz, $s, $typ) {
        if($typ == 'application/xml') {
            return Util::XML2Object($clz, $s);
        } else if($typ == 'application/json') {
            return Util::JSON2Object($clz, $s);
        } else {
            throw new Exception('Unknown type: ' . $typ);
        }
    }
}

class T1 {
    public $f1;
    public $f2;
    public function __construct($f1 = 0, $f2 = '') {
        $this->f1 = $f1;
        $this->f2 = $f2;
    }
}

class T1Array {
    public $array;
    public function __construct($array = array()) {
        $this->array = $array;
    }
}

class Test {
    public function getOne($f1) {
        // dummy implementation
        return new T1($f1, 'getOne');
    }
    public function getAll() {
        // dummy implementation
        $res = array();
        $res[] = new T1(1, 'getAll #1');
        $res[] = new T1(2, 'getAll #2');
        $res[] = new T1(3, 'getAll #3');
        return $res;
    }
    public function getSome($start, $finish) {
        // dummy implementation
        $res = array();
        for($i = 0; $i < $finish - $start + 1; $i++) {
            $res[] = new T1($start + $i, 'getSome #' . ($start + $i));
        }
        return $res;
    }
    public function save($o) {
        // dummy implementation
        return $o->f1 > 0 && strlen($o->f2) > 0;
    }
    public function delete($f1) {
        // dummy implementation
        return $f1 > 0;
    }
}

ini_set('include_path', '.;C:\DivNative\32bit\php-5.6.23-Win32-VC11-x86\vendor'); 

require 'autoload.php';

use \Slim\App;

$app = new App();

header("Access-Control-Allow-Origin: *");

////$app->add(function ($request, $response, $next) {
////    return $next($request, $response)->withHeader("Access-Control-Allow-Origin", "*");
////});

$app->get('/t1/{f1}', function($request, $response, $args) {
    $acctyp = $request->getHeader('Accept')[0];
    $f1 = (int)$args['f1'];
    $real = new Test();
    $o = $real->getOne($f1);
    $response->getBody()->write(Util::Object2String($o, $acctyp));
    return $response->withHeader('Content-Type', $acctyp);
});

$app->get('/t1', function($request, $response, $args) {
    $acctyp = $request->getHeader('Accept')[0];
    $real = new Test();
    if(isset($_SERVER['QUERY_STRING']) && strlen($_SERVER['QUERY_STRING']) > 0) {
        parse_str($_SERVER['QUERY_STRING'], $q);
        $a = $real->getSome($q['start'], $q['finish']);
    } else {
        $a = $real->getAll();
    }
    $response->getBody()->write(Util::Object2String(new T1Array($a), $acctyp));
    return $response->withHeader('Content-Type', $acctyp);
});

$app->post('/t1', function($request, $response, $args) {
    $acctyp = $request->getHeader('Accept')[0];
    $contyp = $request->getHeader('Content-Type')[0];
    $o = Util::String2Object('T1', $request->getBody(), $contyp);
    $real = new Test();
    if($real->save($o)) {
        $response->getBody()->write(Util::Object2String($o, $acctyp));
        return $response->withHeader('Content-Type', $acctyp);
    } else {
        return $response->withStatus(404, 'Not found');
    }
});

$app->put('/t1/{f1}', function($request, $response, $args) {
    $f1 = (int)$args['f1'];
    $contyp = $request->getHeader('Content-Type')[0];
    $o = Util::String2Object('T1', $request->getBody(), $contyp);
    $real = new Test();
    if($o->f1 == $f1 && $real->save($o)) {
        return $response->withStatus(204);
    } else {
        return $response->withStatus(404, 'Not found');
    }
});

$app->delete('/t1/{f1}', function($request, $response, $args) {
    $f1 = (int)$args['f1'];
    $real = new Test();
    if($real->delete($f1)) {
        return $response->withStatus(204);
    } else {
        return $response->withStatus(404, 'Not found');
    }
});

////$app->options('/{routes:.*}', function ($request, $response, $args) {
////    return $response->withHeader("Access-Control-Allow-Methods", "GET, POST, PUT, DELETE, OPTIONS")->withHeader("Access-Control-Allow-Headers", "Content-Type, Accept");
////});

$app->run();
?>