847 lines
		
	
	
		
			30 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
			
		
		
	
	
			847 lines
		
	
	
		
			30 KiB
		
	
	
	
		
			PHP
		
	
	
	
	
	
| <?php
 | |
| namespace nur\v\html5;
 | |
| 
 | |
| use nur\A;
 | |
| use nur\func;
 | |
| use nur\md;
 | |
| use nur\v\model\IFormManager;
 | |
| use nur\v\v;
 | |
| 
 | |
| class Html5FormManager implements IFormManager {
 | |
|   function __construct($options=null, ?array $schema=null) {
 | |
|     $this->resetManager($options, $schema);
 | |
|   }
 | |
| 
 | |
|   const MANAGER_OPTIONS_SCHEMA = [
 | |
|     "type" => [null, null, "type de formulaire par défaut"],
 | |
|   ];
 | |
| 
 | |
|   /** @var array */
 | |
|   protected $stack;
 | |
| 
 | |
|   /** @var array */
 | |
|   protected $options;
 | |
| 
 | |
|   /** @var array */
 | |
|   protected $schema;
 | |
| 
 | |
|   function resetManager($options=null, ?array $schema=null): void {
 | |
|     $this->stack = [];
 | |
|     md::ensure_schema($options, self::MANAGER_OPTIONS_SCHEMA, null, false);
 | |
|     $this->options = $options;
 | |
|     $this->schema = $schema;
 | |
|     $this->inForm = false;
 | |
|     $this->inSection = false;
 | |
|     $this->inGroup = false;
 | |
|   }
 | |
| 
 | |
|   function push($options=null, ?array $schema=null): void {
 | |
|     A::push($this->stack, [$this->options, $this->schema]);
 | |
|     md::ensure_schema($options, self::MANAGER_OPTIONS_SCHEMA, null, false);
 | |
|     if ($options !== null) $this->options = $options;
 | |
|     if ($schema !== null) $this->schema = $schema;
 | |
|   }
 | |
|   function pop(): void {
 | |
|     $last = A::pop($this->stack);
 | |
|     if ($last !== null) {
 | |
|       [$this->options, $this->schema] = $last;
 | |
|     }
 | |
|   }
 | |
| 
 | |
|   protected static function build_attrs(?array $attrs, array $options, ?array $set_keys=null, ?array $merge_keys=null): array {
 | |
|     A::update_nx($attrs, $options["attrs"]);
 | |
|     if ($set_keys !== null) {
 | |
|       foreach ($set_keys as $key) {
 | |
|         A::set_nz($attrs, $key, $options[$key]);
 | |
|       }
 | |
|     }
 | |
|     if ($merge_keys !== null) {
 | |
|       foreach ($merge_keys as $key) {
 | |
|         if ($options[$key]) A::merge($attrs[$key], $options[$key]);
 | |
|         A::set_nz($attrs, $key, $options[$key]);
 | |
|       }
 | |
|     }
 | |
|     return $attrs;
 | |
|   }
 | |
| 
 | |
|   /** @var bool */
 | |
|   protected $inForm;
 | |
|   /** @var array */
 | |
|   protected $formSuffix;
 | |
| 
 | |
|   function started(): bool {
 | |
|     return $this->inForm;
 | |
|   }
 | |
| 
 | |
|   const FORM_OPTIONS_SCHEMA = [
 | |
|     "type" => [null, null, "type de formulaire"],
 | |
|     "action" => [null, null, "action du formulaire"],
 | |
|     "method" => [null, null, "méthode du formulaire (post, get)"],
 | |
|     "upload" => [null, null, "ce formulaire est-il utilisé pour uploader des fichiers?"],
 | |
|     "id" => [null, null, "identifiant du formulaire"],
 | |
|     "enctype" => [null, null, "type d'encodage"],
 | |
|     "class" => [null, null, "classes CSS du formulaire"],
 | |
|     "style" => [null, null, "style CSS du formulaire"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function start($options=null, ?array $schema=null): array {
 | |
|     $vs = [];
 | |
|     if ($this->inForm) $vs[] = $this->end();
 | |
| 
 | |
|     $this->push(null, $schema);
 | |
|     $this->inForm = true;
 | |
| 
 | |
|     md::ensure_schema($options, self::FORM_OPTIONS_SCHEMA, null, false);
 | |
|     A::replace_z($options, "type", $this->options["type"]);
 | |
| 
 | |
|     $vs[] = q($options["prefix"]);
 | |
|     $this->formSuffix = q($options["suffix"]);
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "action", "method", "id", "enctype", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["upload"]) {
 | |
|       $attrs["method"] = "post";
 | |
|       $attrs["enctype"] = "multipart/form-data";
 | |
|     }
 | |
|     $vs[] = v::start("form", $attrs);
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   function end(): array {
 | |
|     if (!$this->inForm) return [];
 | |
| 
 | |
|     $vs = [];
 | |
|     if ($this->inGroup) $vs[] = $this->endGroup();
 | |
|     if ($this->inSection) $vs[] = $this->endSection();
 | |
| 
 | |
|     $vs[] = v::end("form");
 | |
|     $vs[] = $this->formSuffix;
 | |
|     $this->pop();
 | |
|     $this->inForm = false;
 | |
|     $this->formSuffix = null;
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   /** @var bool */
 | |
|   protected $inSection;
 | |
|   /** @var array */
 | |
|   protected $sectionSuffix;
 | |
| 
 | |
|   const SECTION_OPTIONS_SCHEMA = [
 | |
|     "section" => [null, null, "libellé de la section"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function section($options=null): array {
 | |
|     if (!$this->inForm) return [];
 | |
| 
 | |
|     md::ensure_schema($options, self::SECTION_OPTIONS_SCHEMA, null, false);
 | |
| 
 | |
|     $vs = [];
 | |
|     if ($this->inGroup) $vs[] = $this->endGroup();
 | |
|     if ($this->inSection) $vs[] = $this->endSection();
 | |
|     $this->inSection = true;
 | |
| 
 | |
|     $vs[] = q($options["prefix"]);
 | |
|     $this->sectionSuffix = q($options["suffix"]);
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "id", "style",
 | |
|     ], ["class"]);
 | |
|     $vs[] = v::tag("h2", [$attrs, q($options["section"])]);
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
|   function endSection(): array {
 | |
|     if (!$this->inSection) return [];
 | |
| 
 | |
|     $vs = [$this->sectionSuffix];
 | |
|     $this->inSection = false;
 | |
|     $this->sectionSuffix = null;
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   /** @var bool */
 | |
|   protected $inGroup;
 | |
|   /** @var array */
 | |
|   protected $groupSuffix;
 | |
| 
 | |
|   const GROUP_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du groupe"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function group($options=null): array {
 | |
|     if (!$this->inForm) return [];
 | |
| 
 | |
|     md::ensure_schema($options, self::GROUP_OPTIONS_SCHEMA, null, false);
 | |
| 
 | |
|     $vs = [];
 | |
|     if ($this->inGroup) $vs[] = $this->endGroup();
 | |
|     $this->inGroup = true;
 | |
| 
 | |
|     $vs[] = q($options["prefix"]);
 | |
|     $this->groupSuffix = q($options["suffix"]);
 | |
| 
 | |
|     $vs[] = v::start("p", q($options["label"]));
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
|   function endGroup(): array {
 | |
|     if (!$this->inGroup) return [];
 | |
| 
 | |
|     $vs = ["</p>", $this->groupSuffix];
 | |
|     $this->inGroup = false;
 | |
|     $this->groupSuffix = null;
 | |
| 
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const PREFIX = "\n";
 | |
| 
 | |
|   /** @var array contenu à afficher avant chaque élément de formulaire */
 | |
|   protected $prefix = [self::PREFIX];
 | |
| 
 | |
|   function setPrefix(?string $prefix=null) {
 | |
|     if ($prefix === null) $prefix = static::PREFIX;
 | |
|     $this->prefix = q($prefix);
 | |
|   }
 | |
| 
 | |
|   const SUFFIX = null;
 | |
| 
 | |
|   /** @var array contenu à afficher après chaque élément de formulaire */
 | |
|   protected $suffix = [self::SUFFIX];
 | |
| 
 | |
|   function setSuffix(?string $suffix=null) {
 | |
|     if ($suffix === null) $suffix = static::SUFFIX;
 | |
|     $this->suffix = q($suffix);
 | |
|   }
 | |
| 
 | |
|   const FIXED_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé"],
 | |
|     "id" => [null, null, "identifiant"],
 | |
|     "value" => [null, null, "valeur"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function fixed($label, string $name, $value, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::FIXED_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "id", "style",
 | |
|     ], ["class"]);
 | |
|     $vs[] = v::tag("span", [$attrs, q($options["value"])]);
 | |
| 
 | |
|     if ($label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const HIDDEN_OPTIONS_SCHEMA = [
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|   ];
 | |
| 
 | |
|   function hidden(string $name, $value, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::HIDDEN_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
| 
 | |
|     $attrs = self::build_attrs(["type" => "hidden"], $options, [
 | |
|       "id", "name", "value",
 | |
|     ]);
 | |
|     return v::tag1("input", $attrs);
 | |
|   }
 | |
|   function hiddens(array $values, string ...$names): array {
 | |
|     if (!$names) $names = array_keys($values);
 | |
|     $vs = [];
 | |
|     foreach ($names as $name) {
 | |
|       $value = A::get($values, $name);
 | |
|       $vs[] = $this->hidden($name, $value);
 | |
|     }
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const INPUT_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur par défaut du champ"],
 | |
|     "placeholder" => [null, null, "valeur suggérée"],
 | |
|     "required" => [null, null, "ce champ est-il requis?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   protected function _input(string $type, $label, string $name, $value, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::INPUT_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(["type" => $type], $options, [
 | |
|       "id", "name", "value", "placeholder", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["required"]) $attrs["required"] = "required";
 | |
|     $vs[] = v::tag1("input", $attrs);
 | |
| 
 | |
|     if ($label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   function text($label, string $name, $value, ?array $options=null): array {
 | |
|     return $this->_input("text", $label, $name, $value, $options);
 | |
|   }
 | |
|   function texts($label, array $values, string ...$names): array {
 | |
|     if (!$names) $names = array_keys($values);
 | |
|     $vs = [];
 | |
|     if ($label) $vs[] = q($label);
 | |
|     foreach ($names as $name) {
 | |
|       $value = A::get($values, $name);
 | |
|       $vs[] = $this->text(null, $name, $value);
 | |
|     }
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   function password($label, string $name, $value, ?array $options=null): array {
 | |
|     return $this->_input("password", $label, $name, $value, $options);
 | |
|   }
 | |
| 
 | |
|   const SELECT_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur par défaut du champ"],
 | |
|     "required" => [null, null, "ce champ est-il requis?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "items" => [null, null, "liste d'éléments à afficher"],
 | |
|     "items_func" => [null, null, "fonction fournissant une liste d'éléments à afficher"],
 | |
|     "item_value_key" => [null, null, "clé de la valeur d'un élément"],
 | |
|     "item_value_func" => [null, null, "fonction fournissant la clé de la valeur d'un élément"],
 | |
|     "item_text_key" => [null, null, "clé du libellé d'un élément"],
 | |
|     "item_text_func" => [null, null, "fonction fournissant la clé du libellé d'un élément"],
 | |
|     "no_item_value" => [null, null, "valeur si aucun élément n'est sélectionné"],
 | |
|     "no_item_text" => [null, null, "libellé si aucun élément n'est sélectionné"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|     "option_prefix" => [null, null, "contenu à afficher avant chaque option"],
 | |
|     "option_suffix" => [null, null, "contenu à afficher après chaque option"],
 | |
|   ];
 | |
| 
 | |
|   private function vof(
 | |
|     array $options,
 | |
|     ?string $value_key=null,
 | |
|     $value_func=null,
 | |
|     $item=null, ?string $item_key=null, ?int $item_index = null,
 | |
|     ...$item_func_args) {
 | |
|     if ($value_key !== null) {
 | |
|       $value = A::get($options, $value_key);
 | |
|       if ($value !== null) return $value;
 | |
|     }
 | |
|     if ($value_func !== null) {
 | |
|       $func = A::get($options, $value_func);
 | |
|       if ($func !== null) {
 | |
|         func::ensure_func($func, $this, $item_func_args);
 | |
|         $value = func::call($func, ...$item_func_args);
 | |
|         if ($value !== null) return $value;
 | |
|       }
 | |
|     }
 | |
|     if (A::is_array($item)) {
 | |
|       $array_item = A::with($item);
 | |
|       if ($item_key !== null) {
 | |
|         $value_key = A::get($options, $item_key);
 | |
|         if ($value_key !== null) {
 | |
|           $value = A::get($array_item, $value_key);
 | |
|           if ($value !== null) return $value;
 | |
|         }
 | |
|       }
 | |
|       if ($item_index !== null) {
 | |
|         $index = 0;
 | |
|         foreach ($array_item as $value) {
 | |
|           if ($index === $item_index) {
 | |
|             return $value;
 | |
|           }
 | |
|           $index++;
 | |
|         }
 | |
|       }
 | |
|     }
 | |
|     return $item;
 | |
|   }
 | |
| 
 | |
|   function select($label, string $name, $value, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::SELECT_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $value = $options["value"];
 | |
|     $items = $this->vof($options, "items", "items_func");
 | |
|     $no_item_value = $options["no_item_value"];
 | |
|     $no_item_text = $options["no_item_text"];
 | |
| 
 | |
|     $oos = array();
 | |
|     if ($no_item_value !== null) {
 | |
|       $oos[] = array(
 | |
|         "value" => $no_item_value,
 | |
|         "text" => $no_item_text,
 | |
|         "selected" => $value == $no_item_value,
 | |
|       );
 | |
|     }
 | |
|     foreach ($items as $key => $item) {
 | |
|       $item_value = $this->vof($options, null, "item_value_func", $item, "item_value_key", 0, $item, $key);
 | |
|       $item_text = $this->vof($options, null, "item_text_func", $item, "item_text_key", 1, $item, $key);
 | |
|       if (!$item_text) $item_text = $item_value;
 | |
|       $oos[] = array(
 | |
|         "value" => $item_value,
 | |
|         "text" => $item_text,
 | |
|         "selected" => $value == $item_value,
 | |
|       );
 | |
|     }
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "id", "name", "value", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["required"]) $attrs["required"] = "required";
 | |
|     $vs[] = v::start("select", $attrs);
 | |
|     foreach ($oos as $oo) {
 | |
|       $vs[] = q($options["option_prefix"]);
 | |
|       $vs[] = v::tag("option", [
 | |
|         "value" => $oo["value"],
 | |
|         "selected" => $oo["selected"]? "selected": false,
 | |
|         q($oo["text"]),
 | |
|       ]);
 | |
|       $vs[] = q($options["option_suffix"]);
 | |
|     }
 | |
|     $vs[] = v::end("select");
 | |
| 
 | |
|     if ($label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const CHECKBOX_OPTIONS_SCHEMA = [
 | |
|     "text" => [null, null, "libellé de la case à cocher"],
 | |
|     "id" => [null, null, "identifiant de la case à cocher"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur du champ"],
 | |
|     "checked" => [null, null, "la case est-elle cochée?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function checkbox($text, string $name, $value, ?bool $checked=null, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::CHECKBOX_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "text", $text);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::set_nz($options, "checked", $checked);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $text = $options["text"];
 | |
|     if (is_string($text)) $text = " $text";
 | |
|     $vs = [q($options["prefix"])];
 | |
|     if ($text) $vs[] = v::start("label");
 | |
| 
 | |
|     $attrs = self::build_attrs(["type" => "checkbox"], $options, [
 | |
|       "id", "name", "value", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["checked"]) $attrs["checked"] = "checked";
 | |
|     $vs[] = v::tag1("input", $attrs);
 | |
| 
 | |
|     if ($text) {
 | |
|       $vs[] = q($text);
 | |
|       $vs[] = v::end("label");
 | |
|     }
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const CHECKBOXES_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "values" => [null, null, "valeurs cochées par défaut"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "items" => [null, null, "liste d'éléments à afficher"],
 | |
|     "items_func" => [null, null, "fonction fournissant une liste d'éléments à afficher"],
 | |
|     "item_value_key" => [null, null, "clé de la valeur d'un élément"],
 | |
|     "item_value_func" => [null, null, "fonction fournissant la clé de la valeur d'un élément"],
 | |
|     "item_text_key" => [null, null, "clé du libellé d'un élément"],
 | |
|     "item_text_func" => [null, null, "fonction fournissant la clé du libellé d'un élément"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|     "checkbox_prefix" => [null, null, "contenu à afficher avant chaque case à cocher"],
 | |
|     "checkbox_suffix" => [null, null, "contenu à afficher après chaque case à cocher"],
 | |
|   ];
 | |
| 
 | |
|   function checkboxes($label, string $name, $values, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::CHECKBOXES_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "values", $values);
 | |
| 
 | |
|     $name = $options["name"];
 | |
|     $values = A::with($options["values"]);
 | |
|     $items = $this->vof($options, "items", "items_func");
 | |
| 
 | |
|     $oos = array();
 | |
|     foreach ($items as $key => $item) {
 | |
|       $item_value = $this->vof($options, null, "item_value_func", $item, "item_value_key", 0, $item, $key);
 | |
|       $item_text = $this->vof($options, null, "item_text_func", $item, "item_text_key", 1, $item, $key);
 | |
|       if (!$item_text) $item_text = $item_value;
 | |
|       $oos[] = array(
 | |
|         "name" => "${name}[$key]",
 | |
|         "value" => $item_value,
 | |
|         "text" => $item_text,
 | |
|         "checked" => in_array($item_value, $values),
 | |
|       );
 | |
|     }
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "id", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     $first = true;
 | |
|     foreach ($oos as $oo) {
 | |
|       $vs[] = q($options["checkbox_prefix"]);
 | |
|       $vs[] = $this->checkbox($oo["text"],
 | |
|         $oo["name"], $oo["value"], $oo["checked"],
 | |
|         ["attrs" => $attrs]);
 | |
|       $vs[] = q($options["checkbox_suffix"]);
 | |
|       if ($first && $label) $vs[] = v::end("label");
 | |
|       $attrs["id"] = false; # id uniquement sur le premier
 | |
|       unset($attrs["accesskey"]); # accesskey uniquement sur le premier
 | |
|       unset($attrs["tabindex"]); # accesskey uniquement sur le premier
 | |
|       $first = false;
 | |
|     }
 | |
| 
 | |
|     if ($first && $label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const RADIOBUTTON_OPTIONS_SCHEMA = [
 | |
|     "text" => [null, null, "libellé du bouton radio"],
 | |
|     "id" => [null, null, "identifiant du bouton radio"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur du champ"],
 | |
|     "checked" => [null, null, "le bouton est-il sélectionné?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function radiobutton($text, string $name, $value, ?bool $checked=null, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::RADIOBUTTON_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "text", $text);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::set_nz($options, "checked", $checked);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $text = $options["text"];
 | |
|     if (is_string($text)) $text = " $text";
 | |
|     $vs = [q($options["prefix"])];
 | |
|     if ($text) $vs[] = v::start("label");
 | |
| 
 | |
|     $attrs = self::build_attrs(["type" => "radio"], $options, [
 | |
|       "id", "name", "value", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["checked"]) $attrs["checked"] = "checked";
 | |
|     $vs[] = v::tag1("input", $attrs);
 | |
| 
 | |
|     if ($text) {
 | |
|       $vs[] = q($text);
 | |
|       $vs[] = v::end("label");
 | |
|     }
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const RADIOBUTTONS_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur cochée par défaut"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "items" => [null, null, "liste d'éléments à afficher"],
 | |
|     "items_func" => [null, null, "fonction fournissant une liste d'éléments à afficher"],
 | |
|     "item_value_key" => [null, null, "clé de la valeur d'un élément"],
 | |
|     "item_value_func" => [null, null, "fonction fournissant la clé de la valeur d'un élément"],
 | |
|     "item_text_key" => [null, null, "clé du libellé d'un élément"],
 | |
|     "item_text_func" => [null, null, "fonction fournissant la clé du libellé d'un élément"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|     "radiobutton_prefix" => [null, null, "contenu à afficher avant chaque bouton radio"],
 | |
|     "radiobutton_suffix" => [null, null, "contenu à afficher après chaque bouton radio"],
 | |
|   ];
 | |
| 
 | |
|   function radiobuttons($label, string $name, $value, ?array $options): array {
 | |
|     md::ensure_schema($options, self::RADIOBUTTONS_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $id = $options["id"];
 | |
|     $name = $options["name"];
 | |
|     $value = $options["value"];
 | |
|     $items = $this->vof($options, "items", "items_func");
 | |
| 
 | |
|     $oos = array();
 | |
|     $i = 0;
 | |
|     foreach ($items as $key => $item) {
 | |
|       $item_value = $this->vof($options, null, "item_value_func", $item, "item_value_key", 0, $item, $key);
 | |
|       $item_text = $this->vof($options, null, "item_text_func", $item, "item_text_key", 1, $item, $key);
 | |
|       if (!$item_text) $item_text = $item_value;
 | |
|       $oos[] = array(
 | |
|         "id" => "$id$i",
 | |
|         "name" => "$name",
 | |
|         "value" => $item_value,
 | |
|         "text" => $item_text,
 | |
|         "checked" => $value === $item_value,
 | |
|       );
 | |
|       $i++;
 | |
|     }
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     $first = true;
 | |
|     foreach ($oos as $oo) {
 | |
|       $vs[] = q($options["radiobutton_prefix"]);
 | |
|       $vs[] = $this->radiobutton($oo["text"],
 | |
|         $oo["name"], $oo["value"], $oo["checked"],
 | |
|         ["id" => $oo["id"], "attrs" => $attrs]);
 | |
|       $vs[] = q($options["radiobutton_suffix"]);
 | |
|       if ($first && $label) $vs[] = v::end("label");
 | |
|       unset($attrs["accesskey"]); # accesskey uniquement sur le premier
 | |
|       unset($attrs["tabindex"]); # accesskey uniquement sur le premier
 | |
|       $first = false;
 | |
|     }
 | |
| 
 | |
|     if ($first && $label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const TEXTAREA_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur par défaut du champ"],
 | |
|     "placeholder" => [null, null, "valeur suggérée"],
 | |
|     "required" => [null, null, "ce champ est-il requis?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function textarea($label, string $name, $value, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::TEXTAREA_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::set_nz($options, "value", $value);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "id", "name", "placeholder", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["required"]) $attrs["required"] = "required";
 | |
|     $vs[] = v::tag("textarea", [$attrs, q($options["value"])]);
 | |
| 
 | |
|     if ($label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const FILE_OPTIONS_SCHEMA = [
 | |
|     "label" => [null, null, "libellé du champ"],
 | |
|     "id" => [null, null, "identifiant du champ"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "accept" => [null, ".pdf,image/*", "types MIME acceptés"],
 | |
|     "required" => [null, null, "ce champ est-il requis?"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "class" => [null, null, "classes CSS du champ"],
 | |
|     "style" => [null, null, "style CSS du champ"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function file($label, string $name, ?array $options=null): array {
 | |
|     md::ensure_schema($options, self::FILE_OPTIONS_SCHEMA, null, false);
 | |
|     A::set_nz($options, "label", $label);
 | |
|     A::set_nz($options, "name", $name);
 | |
|     A::replace_n_indirect($options, "id", "name");
 | |
| 
 | |
|     $label = $options["label"];
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
|     if ($label) $vs[] = v::start("label", q($label));
 | |
| 
 | |
|     $attrs = self::build_attrs(["type" => "file"], $options, [
 | |
|       "id", "name", "accept", "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     if ($options["required"]) $attrs["required"] = "required";
 | |
|     $vs[] = v::tag1("input", $attrs);
 | |
| 
 | |
|     if ($label) $vs[] = v::end("label");
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const SUBMIT_OPTIONS_SCHEMA = [
 | |
|     "submit" => [null, null, "libellé du bouton de soumission"],
 | |
|     "id" => [null, null, "identifiant du bouton"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur du champ"],
 | |
|     "formmethod" => [null, null, "méthode de soumission (post, get)"],
 | |
|     "formaction" => [null, null, "action pour la soumission"],
 | |
|     "formenctype" => [null, null, "type d'encodage pour la soumission"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "type" => [null, null, "type de bouton (submit, reset)"],
 | |
|     "class" => [null, null, "classes CSS du bouton"],
 | |
|     "style" => [null, null, "style CSS du bouton"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function submit($options=null): array {
 | |
|     md::ensure_schema($options, self::SUBMIT_OPTIONS_SCHEMA, null, false);
 | |
|     A::replace_z($options, "type", "submit");
 | |
| 
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "type", "id", "name", "value", "formaction", "formmethod", "formenctype",
 | |
|       "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     $vs[] = v::tag("button", [$attrs, q($options["submit"])]);
 | |
| 
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| 
 | |
|   const RESET_OPTIONS_SCHEMA = [
 | |
|     "reset" => [null, null, "libellé du bouton de soumission"],
 | |
|     "id" => [null, null, "identifiant du bouton"],
 | |
|     "name" => [null, null, "nom du champ"],
 | |
|     "value" => [null, null, "valeur du champ"],
 | |
|     "accesskey" => [null, null, "touche d'accès rapide"],
 | |
|     "tabindex" => [null, null, "index de tabulation"],
 | |
|     "type" => [null, null, "type de bouton (submit, reset)"],
 | |
|     "class" => [null, null, "classes CSS du bouton"],
 | |
|     "style" => [null, null, "style CSS du bouton"],
 | |
|     "attrs" => [null, null, "attributs HTML génériques"],
 | |
|     "prefix" => [null, null, "contenu à afficher avant"],
 | |
|     "suffix" => [null, null, "contenu à afficher après"],
 | |
|   ];
 | |
| 
 | |
|   function reset($options=null): array {
 | |
|     md::ensure_schema($options, self::RESET_OPTIONS_SCHEMA, null, false);
 | |
|     A::replace_z($options, "type", "reset");
 | |
| 
 | |
|     $vs = [$this->prefix, q($options["prefix"])];
 | |
| 
 | |
|     $attrs = self::build_attrs(null, $options, [
 | |
|       "type", "id", "name", "value",
 | |
|       "accesskey", "tabindex", "style",
 | |
|     ], ["class"]);
 | |
|     $vs[] = v::tag("button", [$attrs, q($options["reset"])]);
 | |
| 
 | |
|     $vs[] = q($options["suffix"]);
 | |
|     $vs[] = $this->suffix;
 | |
|     return $vs;
 | |
|   }
 | |
| }
 |