<?php

require_once('ComicPress.inc');
require_once('ComicPressDBInterface.inc');

class ComicPressStoryline {
  var $_structure;
  var $_category_search;

	function &read_from_options() {
		$this->create_structure($this->get_flattened_storyline());
		return $this;
	}

  /**
   * Get the flattened storyline from options.
   */
	function get_flattened_storyline() {
		$comicpress = &ComicPress::get_instance();
	  return $comicpress->comicpress_options['storyline_order'];
	}

  /**
   * Set the global storyline as a flattened storyline.
   */
	function set_flattened_storyline($storyline) {
		$comicpress = &ComicPress::get_instance();
		$comicpress->comicpress_options['storyline_order'] = $storyline;
		$comicpress->save();
	}

  /**
   * Set the order from a flattened storyline.
   */
	function set_order_via_flattened_storyline($order) {
		$nodes = explode(',', $order);
		$original_nodes = explode(',', $this->get_flattened_storyline());

		$missing_good_nodes = array_diff($original_nodes, $nodes);
		$any_bad_nodes      = array_diff($nodes, $original_nodes);

		if (empty($missing_good_nodes) && empty($any_bad_nodes)) {
			$this->set_flattened_storyline($order);
			return true;
		} else {
			return false;
		}
	}

  /**
   * Create a searchable structure from a node list.
   * @param array $structure The structure to process.
   * @return boolean True if the structure was valid.
   */
  function create_structure($structure) {
    $key = null;
    if (is_string($structure)) {
      $key = $structure;
      $structure = explode(',', $structure);
    } else {
      if (is_array($structure)) {
      	$fixed_structure = array();
      	foreach ($structure as $s) {
      		if (!is_array($s)) { $fixed_structure[] = $s; }
      	}
        $key = implode(',', $fixed_structure);
      }
    }

    if (!is_null($key)) {
      $key = "storyline-structure-${key}";

      if (($result = wp_cache_get($key, 'comicpress')) !== false) {
        $this->_structure = $result;
      } else {
        $new_structure = array();
        $parent   = null;
        $all_leaves = array();

        $adjacents_by_parent = array();

        if (is_array($structure)) {
          $is_valid = true;
          foreach ($structure as $branch) {
            if (is_string($branch)) {
              $parts = explode('/', $branch);
              $valid = false;
              if (count($parts) > 1) {
                if ($parts[0] == '0') { $valid = true; }
              }
              if (!$valid) {
                $is_valid = false; break;
              } else {
                $data = array();
                $leaf = end($parts);
                $all_leaves[] = $leaf;

                $data['level'] = count($parts) - 1;

                if (count($parts) > 2) {
                  $parent = $parts[count($parts) - 2];

                  if (!isset($adjacents_by_parent[$parent])) {
                    $adjacents_by_parent[$parent] = array();
                  }
                  $adjacents_by_parent[$parent][] = $leaf;

                  $data['parent'] = $parent;
                }

                $new_structure[$leaf] = $data;
              }
            } else {
              $is_valid = false; break;
            }
          }
          if ($is_valid) {
            for ($i = 0; $i < count($all_leaves); ++$i) {
              foreach (array('previous' => -1, 'next' => 1) as $type => $dir) {
                if (isset($all_leaves[$i + $dir])) {
                  $new_structure[$all_leaves[$i]][$type] = $all_leaves[$i + $dir];
                }
              }
            }

            $this->_structure = $new_structure;
          }
        }
        wp_cache_set($key, $this->_structure, 'comicpress');
      }
    }
    return is_array($this->_structure);
  }

  function _get_field($field, $id) {
    if (isset($this->_structure)) {
      if (isset($this->_structure[$id])) {
        if (isset($this->_structure[$id][$field])) {
          return $this->_structure[$id][$field];
        }
      }
    }
    return false;
  }

  function parent($id)   { return $this->_get_field('parent', $id); }
  function previous($id) { return $this->_get_field('previous', $id); }
  function next($id)     { return $this->_get_field('next', $id); }
  function valid($id)    {
    if (isset($this->_structure[$id])) {
      return array_keys($this->_structure[$id]);
    }
    return false;
  }

  /**
   * Get the valid navigation directions for a particular post.
   */
  function get_valid_nav($post_id) {
    if (($category = $this->get_valid_post_category($post_id)) !== false) {
      return $this->valid($category);
    }
    return false;
  }

  /**
   * Get the valid comic category for this post.
   */
  function get_valid_post_category($post_id) {
    $result = false;

    foreach (wp_get_post_categories($post_id) as $category) {
      if ($this->valid($category)) {
        if ($result) { return false; }

        $result = $category;
      }
    }
    return $result;
  }

  /**
   * Get all comic categories.
   * @deprecated
   */
	function get_comic_categories() {
		return array_keys($this->_structure);
	}

  /**
   * Get a simple storyline.
   */
	function get_simple_storyline() {
	  $simple_storyline = array('0' => array());
		foreach ($this->_structure as $category_id => $adjacents) {
			$parent = 0;
			if (isset($adjacents['parent'])) { $parent = $adjacents['parent']; }
			if (!isset($simple_storyline[$parent])) {
				$simple_storyline[$parent] = array();
			}
			$simple_storyline[$parent][$category_id] = true;
		}

		return $this->_merge_simple_storyline($simple_storyline);
	}

  /**
   * Get a simple structure.
   */
	function get_category_simple_structure($parent = null) {
		$structure = array();
		foreach (get_all_category_ids() as $category_id) {
			$category = get_category($category_id);
			if (!isset($structure[$category->parent])) {
				$structure[$category->parent] = array();
			}
			$structure[$category->parent][$category_id] = true;
		}
		$structure = $this->_merge_simple_storyline($structure);
    if (!empty($parent)) {
      if (isset($structure[0])) {
        foreach ($structure[0] as $key => $children) {
          if ($key != $parent) { unset($structure[0][$key]); }
        }
      }
    }
		return $structure;
	}

  /**
   * Get a flattened category node list.
   */
	function get_category_flattened($parent = null) {
		return $this->flatten_simple_storyline($this->get_category_simple_structure($parent));
	}

  /**
   * Merge a flat simple storyline into a tree.
   */
	function _merge_simple_storyline($simple_storyline) {
		while (count($simple_storyline) > 0) {
			$merge_found = false;
			foreach ($simple_storyline as $parent => $children) {
				$has_no_descendents = true;
				foreach (array_keys($children) as $child) {
					if (is_numeric($child)) {
						if (isset($simple_storyline[$child])) {
							$has_no_descendents = false;
							break;
						}
					}
				}
				if ($has_no_descendents) {
					$merge_found = $parent; break;
				}
			}
			if ($merge_found !== false) {
				foreach ($simple_storyline as $parent => $children) {
					if (isset($children[$merge_found])) {
					  $simple_storyline[$parent][$merge_found] = $simple_storyline[$merge_found];
						unset($simple_storyline[$merge_found]);
						break;
					}
				}
			}
			if (!$merge_found) { break; }
		}
		return $simple_storyline;
	}

	/**
	 * Integrates a bunch of other things.
	 */
	function normalize($flattened_storyline = null, $set = true) {
		$comicpress = ComicPress::get_instance();
		if (is_null($flattened_storyline)) {
			$flattened_storyline = $this->get_flattened_storyline();
		}
		$all_categories_flattened = $this->get_category_flattened();

		$result = $this->normalize_flattened_storyline($flattened_storyline, $all_categories_flattened);
		if ($set) {
			$this->set_flattened_storyline($result);
		}
		return $result;
	}

  /**
   * Sort nodes by node count.
   */
	function _length_sort($parts) {
		$new = array();
		foreach ($parts as $part) {
		  $p = explode('/', $part);
			if (!isset($new[count($p)])) {
				$new[count($p)] = array();
			}
			$new[count($p)][] = $part;
		}
		ksort($new);
		$output = array();
		foreach (array_values($new) as $values) {
			$output = array_merge($output, $values);
		}
		return $output;
	}

  /**
   * Normalize a flattened storyline, inserting and removing categories from the list is necessary.
   */
	function normalize_flattened_storyline($storyline, $comic_categories) {
		$storyline_nodes = explode(",", $storyline);
		$category_nodes  = explode(",", $comic_categories);

		$missing_from_storyline = array_diff($category_nodes, $storyline_nodes);
		$extra_in_storyline     = array_diff($storyline_nodes, $category_nodes);

		if (!empty($missing_from_storyline)) {
			$missing_from_storyline = $this->_length_sort($missing_from_storyline);
			foreach ($missing_from_storyline as $node) {
				$parent_pattern = implode('/', array_slice(explode('/', $node), 0, -1));
				$last = null;
				for ($i = 0, $il = count($storyline_nodes); $i < $il; ++$i) {
					if (strpos($storyline_nodes[$i], $parent_pattern) === 0) {
						$last = $i;
					}
				}
				if (!is_null($last)) {
					array_splice($storyline_nodes, $last + 1, 0, array($node));
				} else {
					$storyline_nodes[] = $node;
				}
			}
		}

		if (!empty($extra_in_storyline)) {
			$new = array();
			foreach ($storyline_nodes as $node) {
				if (!in_array($node, $extra_in_storyline)) {
					$new[] = $node;
				}
			}
			$storyline_nodes = $new;
		}

		return implode(',', $storyline_nodes);
	}

  /**
   * Flatten a simple storyline.
   */
	function flatten_simple_storyline($storyline) {
		return implode(',', $this->_follow_simple_storyline($storyline));
	}

  /**
   * Follow the nodes of a simple storyline, creating a node list.
   */
	function _follow_simple_storyline($storyline, $parent = null) {
		$output = array();
		foreach ($storyline as $key => $children) {
			if (is_null($parent)) {
				$new_parent = $key;
			} else {
				$new_parent = $parent . '/' . $key;
				$output[] = $new_parent;
			}
			if (is_array($children)) {
				$output = array_merge($output, $this->_follow_simple_storyline($children, $new_parent));
			}
		}
		return $output;
	}

  function &include_all() {
    $this->_category_search = array_keys($this->_structure);
    return $this;
  }

  function &exclude_all() {
    $this->_category_search = array();
    return $this;
  }

  function _find_children($parent) {
  	if (!is_numeric($parent)) {
  		foreach (get_all_category_ids() as $id) {
  			$category = get_category($id);
  			if ($category->slug == $parent) {
  				$parent = $id; break;
  			}
  		}
  	}
  	if (is_numeric($parent)) {
	    $children = array($parent);
	    do {
	      $found_children = false;
	      foreach ($this->_structure as $category_id => $info) {
	        if (!in_array($category_id, $children)) {
	        	if (isset($info['parent'])) {
		          if (in_array($info['parent'], $children)) {
		            $children[] = $category_id;
		            $found_children = true;
		          }
	        	}
	        }
	      }
	    } while ($found_children);

	    return $children;
  	}
  	return false;
  }

  function &_include() {
  	$args = func_get_args();
  	$method = array_shift($args);
    $this->_category_search = array_unique(array_merge($this->_category_search, call_user_func_array(array($this, $method), $args)));
    sort($this->_category_search);
    return $this;
  }

  function &_exclude() {
  	$args = func_get_args();
  	$method = array_shift($args);
  	$this->_category_search = array_diff($this->_category_search, call_user_func_array(array($this, $method), $args));
    sort($this->_category_search);
    return $this;
  }

  function _find_level_or_above($level = null) {
    $found = array();
    foreach ($this->_structure as $category_id => $info) {
      if ($info['level'] <= $level) { $found[] = $category_id; }
    }
    return $found;
  }

  function _find_only($id = null) {
  	if (isset($this->_structure[$id])) {
  		return array($id);
  	}
  	return array();
  }

  function _find_level($level = null) {
		$found = array();
		foreach ($this->_structure as $category_id => $info) {
			if ($info['level'] == $level) { $found[] = $category_id; }
		}
		return $found;
  }

  function _ensure_post_id($thing) {
  	$id = null;
  	if (is_object($thing)) {
			if (isset($thing->ID)) { $id = $thing->ID; }
  	} else {
  		if (is_numeric($thing)) { $id = $thing; }
  	}
  	return $id;
  }

  function _find_post_category($post = null) {
  	$found = array();

  	$id = $this->_ensure_post_id($post);

  	if (!is_null($id)) {
  		if (count($categories = wp_get_post_categories($id)) == 1) {
  			$found = $categories;
  		}
  	}
  	return $found;
  }

  function _find_adjacent($category = null, $next = false) {
  	$found = array();

  	if (!is_null($category)) {
  	  if (isset($this->_structure[$category])) {
				$field = $next ? 'next' : 'previous';
				if (isset($this->_structure[$category][$field])) {
					$found = array($this->_structure[$category][$field]);
				}
  	  }
  	}

  	return $found;
  }

  function _find_post_root($post = null) {
  	$found = array();

  	$id = $this->_ensure_post_id($post);

  	if (!is_null($id)) {
  		if (count($categories = wp_get_post_categories($id)) == 1) {
  			$comic_post = new ComicPressComicPost(get_post($id));
  			$parents = $comic_post->find_parents();
  			if (!empty($parents)) {
  				$parents = array_keys($parents); $found = $this->_find_children(end($parents));
  			}

  		}
  	}
  	return $found;
  }

  function end_search() {
    $result = $this->_category_search;
    $this->_category_search = array();
    return $result;
  }

  function build_from_restrictions($restrictions = null) {
  	global $post;

		$this->read_from_options()->exclude_all();

		$include_all = true;
		if (is_array($restrictions)) {
			if (!empty($restrictions)) {
				$include_all = false;
			}
		}

		if (!$include_all) {
			foreach ($restrictions as $type => $list) {
				if (substr($type, 0, 1) == "!") {
				  $method_root = 'exclude';
					$method_type = substr($type, 1);
				} else {
					$method_root = 'include';
					$method_type = $type;
				}

				if (!is_array($list)) { $list = array($list); }

				foreach ($list as $restriction) {
					$method = '';
					$args = array($restriction);
					switch ($method_type) {
						case 'child_of': $method = 'children'; break;
						case 'root_of': $method = 'post_root'; break;
						case 'from_post': $method = 'post_category'; break;
						case 'previous':
							$method = 'adjacent';
							$args[] = false;
							break;
						case 'next':
							$method = 'adjacent';
							$args[] = true;
							break;
						default:
							$method = $method_type; break;
					}
					if (!empty($method)) {
						array_unshift($args, "_find_${method}");
						call_user_func_array(array($this, "_${method_root}"), $args);
					}
				}
			}
		} else {
			$this->include_all();
		}

		return $this->end_search();
  }
}

?>