Class Form - main/w2/form.php

<?php
 
# For Licence and Disclaimer of this code, see http://coresky.net/license
 
class xForm
{
    public $cfg;
    public $ary;
 
    function __construct($cfg, $ary) {
        isset($cfg['opt']) or $cfg['opt'] = 0; # default option
        $this->cfg = $cfg;
        $this->ary = $ary;
    }
}
 
class Form # 2do <keygen>
{
    private $dm = [
        '+' => 'this field cannot be empty',
        '-' => 'enter valid E-mail',
        '~' => 'enter valid phone number',
        '.' => 'enter login',
        '*' => 'enter password',
        '#' => 'enter numbers', #    '/' => 'RegExp', # '|' => 'Function', key 0 => MODIFY KEYS
    ];
    private $re = [
        '-' => RE_EMAIL,
        '~' => RE_PHONE,
        '.' => RE_LOGIN,
        '*' => RE_PASSW,
        '#' => '/^\d+$/',
    ];
    private $tag = [
        'method' => 'post',
        'enctype' => 'multipart/form-data',
        'id' => 'f1',
    ];
    const OPT_TABLE = 1;
    const OPT_DIV   = 2;
 
    private $form;
    private $post = [];
    private $row = [];
    private $js = [];
    private $mk = false;
    private $validation = false;
    private $cv_hash = []; # cv - conditional validation
    private $cv_flag = false;
 
    static function A($row, $form) { # no validation
        $me = new Form($form);
        return $me->tag($me->html($row, $me->mk));
    }
 
    static function X() {
        $in = func_get_args();
        $cfg = array_shift($in);
        array_walk($in, function(&$ary) {
            is_array($ary) or $ary = [$ary];
        });
        return new xForm($cfg, $in);
    }
 
    function def($row = []) { # default processing
        $html = $this->html($row, $this->mk); # this one should be running first then ->js()
        return $this->js() . $this->tag($html);
    }
 
    function validate() {
        $this->validation = true;
        $this->cv_prepare($this->js, $this->mk);
        $this->walk($this->form);
        return $this->post;
    }
 
    function table($row = []) { # 2do ?
        return $this->walk($this->form, [], function($name, $ary, $rs) {
            
        });
    }
 
    function __construct($form, $tag = []) {
        $this->set_new($form, $this->mk);
        $this->tag = $tag + $this->tag;
    }
 
    function js() {
        $s = '{' . array_join($this->js, function($k, $v) {
            $v = is_string($v) ? "'$v'" : sprintf("['$v[0]', %s]", '/' == @$v[1][0] ? $v[1] : "'$v[1]'");
            return "'$k':$v";
        }, ",\n") . '}';
        $js = "$(function() {\nsky.f.set('#{$this->tag['id']}', $s);\n});";
        return tag('', "id=\"{$this->tag['id']}-message\"") . js($js);
    }
 
    function tag($html) {
        $etc = array_join($this->tag, function($k, $v) {
            if (!$k) return trim($v);
            return $k . '="' . $v . '"';
        }, ' ');
        return tag($html, $etc, 'form');
    }
 
    function input($type, $val, $etc) {
        return sprintf('<input type="%s" value="%s"%s /> ', $type, html($val), $etc ? ' ' . trim($etc) : '');
    }
 
    private function set_new($form, &$mk) {
        $_mk = [];
        if (isset($form[-1][0])) {
            $mk = $_mk = $form[-1][0];
            unset($form[-1][0]);
        }
        if (isset($form[-1])) {
            $this->js = $form[-1] + $this->js;
            if ($this->validation)
                $this->cv_prepare($form[-1], $_mk);
            unset($form[-1]);
        }
        $this->form = $form;
    }
 
    private function cv_prepare($ary, $mk) {
        foreach ($ary as $k => $v) {
            if (is_array($v) && '/' != $k[0]) {
                $k = $this->modify_key($mk, $k);
                if ($_POST[$k]) continue;
                $this->cv_hash[$v[0]] = $v[1];
            }
        }
    }
    
    private function modify_key($mk, $key) {
        if ($mk && $key) {
            $just_add = !isset($mk[1]);
            return $just_add ? $mk[0] . $key : preg_replace($mk[0], $mk[1], $key);
        }
        return $key;
    }
 
    private function proc_char($char, $name, $mk) {
        $name = $this->modify_key($mk, $n = $name);
 
        if ($this->validation) {
            if ('[]' == substr($name, -2)) {
                $vals = $_POST[$_n = substr($name, 0, -2)];
                $this->post[$_n] = $vals;
            } else {
                $vals = [$_POST[$name]];
                $this->post[$name] = $_POST[$name];
            }
            if (!$this->cv_flag && isset($this->cv_hash[$name]))
                $this->cv_flag = $name;
            foreach ($vals as $v) {
                if ($this->cv_flag)
                    continue;
                if ('+' == $char) {
                    if ('' === trim($v)) throw new Error(404);
                    continue;
                }
                $re = '/' == $char ? $this->js[$n][1] : $this->re[$char];
                if (!preg_match($re, $v)) throw new Error(404);
            }
            if ($this->cv_flag && $name == $this->cv_hash[$this->cv_flag])
                $this->cv_flag = false;
        } elseif ('/' == $char) {
            if ($mk) {
                $this->js[$name] = $this->js[$n];
                unset($this->js[$n]);
            }
        } else {
            if (!isset($this->js[$name]))
                $this->js[$name] = $char;
            if (!is_array(@$this->js[$char])) { # push default message
                $mess = isset($this->js[$char]) ? $this->js[$char] : $this->dm[$char];
                $this->js[$char] = [$mess, '+' == $char ? '' : $this->re[$char]];
            }
        }
    }
 
    private function proc_x($xf, $mk = []) {
        $cnt = count($ary = $xf->ary);
        $is_tbl = $xf->cfg['opt'] & self::OPT_TABLE || $cnt > 2;
        $is_div = $xf->cfg['opt'] & self::OPT_DIV;
 
        foreach ($ary as $i => &$one) {
            $_mk = $mk;
            $this->set_new($one, $_mk);
            $one = $this->html([], $_mk, false);
            if (isset($xf->cfg[$i])) $one = [$one, $xf->cfg[$i]];
        }
 
        $etc = isset($xf->cfg['etc']) ? $xf->cfg['etc'] : 'style="width:100%"';
 
        if ($is_tbl) {
            $out = tag(td($ary), $etc, 'table');
            return $is_div ? tag($out, '') : $out;
        }
        if (1 == $cnt) {
            return $is_div ? tag($ary[0], $etc) : $ary[0];
        }
        $out = sprintf(TPL_FORM, $ary[0], $ary[1]); # else std tpl
        return $is_div ? tag($out, $etc) : $out;
    }
 
    private function walk($form, $mk = [], $func = false, $depth = 0) {
        $out = '';
        $rs = $depth % 2;
        foreach ($form as $name => $ary) {
            $char = false;
 
            if ($ary instanceof xForm) {
                $out .= $this->proc_x($ary, $mk);
                continue;
                
            } elseif (!is_array($ary)) {
                if (is_int($name)) {
                    $out .= $ary;
                    continue;
                }
                $ary = [$ary, 'hidden'];
                if ($this->validation) {
                    $this->post[$name] = $_POST[$name];
                    continue;
                }
 
            } elseif (is_int($name)) {
                $ar0 = is_array($ary[0]); # no left side
                if ($ar0 || is_array($ary[1])) { # horiz layout (row style) !
                    $lft = ($ary[0] instanceof xForm) ? $this->proc_x($ary[0], $mk) : ($ar0 ? '' : $ary[0]);
                    $rgt = $this->walk($ar0 ? $ary[0] : $ary[1], $mk, $func, 1 + $depth);
                    if (!$this->validation) {
                        if ($rs) {
                            $out .= tag($rgt, 'class="elm" style="width:100%"', 'li');
                        } else {
                            $rgt = tag($rgt, 'class="row"', 'ul');
                            $out .= $ar0 ? $rgt : sprintf(TPL_FORM, $lft, $rgt);
                        }
                    }
                    continue;
                }
                $name = '';
 
            } elseif (false !== strpos('+-~.*#/|', $name[0])) {
                $this->proc_char($char = $name[0], $name = substr($name, 1), $mk);
            } elseif ($this->validation) {
                if (isset($_POST[$name]))
                $this->post[$name] = $_POST[$name]; # collect form fields only !
            }
 
            if ($func) { # draw html
                if ($ary[0] instanceof xForm) {
                    $ary[0] = $this->proc_x($ary[0], $mk);
                }
                if (is_string($res = $func($this->modify_key($mk, $name), $ary, $rs))) {
                    $out .= $res;
                    continue;
                }
                $p2 = $char ? '%s' . tag('', 'class="red"', 'span') : '%s';
                if ($rs) {
                    $cls = in_array(@$ary[1], ['radio', 'checkbox']) ? 'elm-chk' : 'elm';
                    $tpl = ($ary[0] == '' ? '%s' : '<li class="desc">%s</li>') . tag($p2, "class=\"$cls\"", 'li');
                } else {
                    $tpl = sprintf(TPL_FORM, '%s', $p2);
                }
                $out .= sprintf($tpl, $res[0], $res[1]);
            }
        }
        return $out;
    }
 
    const TPL_CHK = '<li class="elm-chk"><label><ul class="row"><li class="elm">%s</li><li class="desc-chk">%s</li></ul></label></li>';
    
    function html($row = [], $mk = [], $add_post = true) {
        if (is_numeric($row))
            $row = sql('~select * from $_ where id=$.', $row);
        $this->row = $row + $this->row;
        if ($add_post)
            $this->row = $_POST + $this->row;
        $row =& $this->row;
 
        return $this->walk($this->form, $mk, function($name, $ary, $rs) use ($row) {
            $val = $ary[0];
            if ($n = $name) { # assign!
                $name = " name=\"$name\"";
            }
 
            switch (@$ary[1]) {
                case 'hidden':
                    return $this->input('hidden', isset($row[$n]) ? $row[$n] : $val, $name);
                case 'submit': case 'button': case 'image': case 'reset':
                    $el = $this->input($ary[1], $val, @$ary[2] ? $ary[2] . $name : $name);
                    return sprintf($rs ? '%s%s' : TPL_FORM, '', $el);
                case 'textarea':
                    $el = tag(html(@$row[$n]), isset($ary[2]) ? $ary[2] . $name : $name, 'textarea');
                    if ($rs) return [$val, $el];
                    return tag(($val ? "$val<br>" : '') . $el, '', 'p');
                case 'checkbox':
                    $etc = ((isset($row[$n]) ? $row[$n] : @$ary[3]) ? ' checked' : '') . (@$ary[2] ? $ary[2] . $name : $name);
                    $el = $this->input('checkbox', isset($ary[4]) ? $ary[4] : 1, $etc);
                    return ['', tag($el . $val, '', 'label') . ' &nbsp; &nbsp;'];
                case 'radio':
                    for ($el = ''; list($v, $desc) = each($ary[2]); ) {
                        $etc = ($v == (isset($row[$n]) ? $row[$n] : @$ary[3]) ? ' checked' : '') . (@$ary[4] ? " $ary[4]$name" : $name);
                        $el .= sprintf(self::TPL_CHK, $this->input('radio', $v, $etc), $desc);
                    }
                    return [$val, tag($el, 'class="row"', 'ul')];
                case 'select':
                    $el = tag(option(@$row[$n], $ary[2]), (isset($ary[3]) ? $ary[3] : '') . $name, 'select');
                    return [$val, $el];
                case 'li': # just format purpose
                    return tag($val, isset($ary[2]) ? $ary[2] : 'class="elm-chk"', 'li');
                default: # other inputs
                    $el = $this->input(@$ary[1] ? @$ary[1] : 'text', isset($row[$n]) ? $row[$n] : @$ary[3], @$ary[2] ? $ary[2] . $name : $name);
                    return [$val, $el];
            }
        });
    }
}