/**
* Displays an alpha list used to filter a list by first letter.
*
* @access public
*
* @param string $caption A string with the text to display before the list.
*
* @return void
*/
function render_filter_first_letter($caption = null)
{
$ci =& get_instance();
$out = '<span class="filter-link-list">';
// All get params
$params = $ci->input->get();
// Current Filter
if (isset($params['firstletter'])) {
$current = strtolower($params['firstletter']);
unset($params['firstletter']);
} else {
$current = '';
}
// Build our url
if (is_array($params)) {
$url_params = array();
foreach ($params as $key => $value) {
$url_params[urlencode($key)] = urlencode($value);
}
$url = current_url() . '?' . array_implode('=', '&', $url_params);
} else {
$url = current_url() . '?';
}
// If there's a current filter, we need to
// replace the caption with a clear button.
if (!empty($current)) {
$href = htmlentities($url, ENT_QUOTES, 'UTF-8');
$out .= '<a href="' . $href . '" class="btn btn-small btn-primary">' . lang('bf_clear') . '</a>';
} else {
$out .= $caption;
}
// Source
$letters = array('A', 'B', 'C', 'D', 'E', 'F', 'G', 'H', 'I', 'J', 'K', 'L', 'M', 'N', 'O', 'P', 'Q', 'R', 'S', 'T', 'U', 'V', 'W', 'X', 'Y', 'Z');
// Create our list.
foreach ($letters as $letter) {
$href_url = $url . '&firstletter=' . strtolower($letter);
$href = htmlentities($href_url, ENT_QUOTES, 'UTF-8');
$out .= '<a href="' . $href . '">';
$out .= $letter;
$out .= '</a>';
}
$out .= '</span>';
echo $out;
}
$attemptnumber = question_new_attempt_uniqueid('blended');
$attempts[$i] = blended_generate_attempt($attemptnumber, $quiz, $USER, $timestamp);
$jobs[$i]->quiz = $quiz->id;
$jobs[$i]->quiz_name = $quiz->name;
$jobs[$i]->blended = $blended->id;
$jobs[$i]->userid = $USER->id;
$jobs[$i]->status = JOB_STATE_WAITING;
$jobs[$i]->timestamp = $timestamp;
$jobs[$i]->attempt_id = $attempts[$i]->id;
// encode options in this column
$options = array();
$option['identifyLabel'] = $identifyLabel;
$option['columns'] = $columns;
$option['logourl'] = $logourl['value'];
$option['fontsize'] = $fontsize;
$optStr = array_implode('=', ',', $option);
//print("<pre>".$optStr."</pre>");print_object($logourl);die;
$jobs[$i]->options = $optStr;
if (!($jobs[$i]->id = insert_record('blended_jobs', $jobs[$i]))) {
error('Could not create new quiz');
}
}
// for numberpaperquiz
}
if ($cron == 1) {
mtrace("<p>Su cuestionario sera generado mas tarde</a></p>");
$continue = "{$CFG->wwwroot}/mod/blended/edit_paperquiz.php?a={$a}";
print_continue($continue);
// Finish the page
print_footer($course);
} else {
/**
* Fetchs Gangs and CityScapes near the cords provided
* @param array $cords Array of ['x'] and ['y'] cords.
* @param array $level Level of Gang your hunting for.
* @return not sure yet lol builds a array of available gangs to hit, not sure if should return them or maybe save them to a file or what.
*/
public function get_map($cords = array(), $level = 1)
{
$url = "http://realm184.c2.godfather.wonderhill.com/api/map.json?";
$data = array('x' => $cords['x'], 'gangster' => $this->_wangsta, 'y' => $cords['y'], '_session_id' => $this->_session, 'user_id' => $this->_user_id, 'city_id' => $this->_city);
$url = $url . array_implode('=', '&', $data);
$this->_connection = curl_init();
// set user agent
curl_setopt($this->_connection, CURLOPT_USERAGENT, $this->user_agent);
// set the target url
curl_setopt($this->_connection, CURLOPT_URL, $url);
curl_setopt($this->_connection, CURLOPT_RETURNTRANSFER, true);
// execute curl,fetch the result and close curl connection
$this->_result = curl_exec($this->_connection);
$this->_info = curl_getinfo($this->_connection);
if (is_string($this->_result)) {
$this->_result = json_decode($this->_result);
}
$terrain = $this->_result->terrain;
//$useful = array( 'Gang', 'CityScape' );
$useful = array('Gang');
$gangs = array();
$total = count($terrain);
$i = 0;
foreach ($terrain as $citys) {
foreach ($citys as $map) {
//$map = array_shift( $map );
// Check for Gang/CS
if ($level != $map[1] or !in_array($map[0], $useful)) {
continue;
}
$gangs['x'] = $map[2];
$gangs['y'] = $map[3];
$this->_gangs[$i] = $gangs;
++$i;
}
}
return $this->_gangs;
}
public function getQueryId()
{
if ($this->config->get('log_queries')) {
if (count($arguments = $this->request->query())) {
return $this->dataRepositoryManager->getQueryId(array('query' => array_implode('=', '|', $arguments), 'arguments' => $arguments));
}
}
}
function array_implode($arrays, &$target = array())
{
foreach ($arrays as $item) {
if (is_array($item)) {
array_implode($item, $target);
} else {
$target[] = $item;
}
}
return $target;
}
$title = !empty($title_rss_calendars) ? $title_rss_calendars : $tmp;
$tmp = tra("Upcoming events.");
$desc = !empty($desc_rss_calendars) ? $desc_rss_calendars : $tmp;
$now = date("U");
$id = "calitemId";
$titleId = "name";
$descId = "body";
$dateId = "start";
$authorId = "user";
$readrepl = "tiki-calendar.php?editmode=details&{$id}=%s";
if (isset($_REQUEST["calendarIds"])) {
$calendarIds = $_REQUEST["calendarIds"];
if (!is_array($calendarIds)) {
$calendarIds = array($calendarIds);
}
$uniqueid = $feed . "." . array_implode(".", $calendarIds);
} else {
$uniqueid = $feed;
$calendarIds = array();
}
$tmp = $tikilib->get_preference('title_rss_' . $feed, '');
if ($tmp != '') {
$title = $tmp;
}
$tmp = $tikilib->get_preference('desc_rss_' . $feed, '');
if ($desc != '') {
$desc = $tmp;
}
$allCalendars = $calendarlib->list_calendars();
// build a list of viewable calendars
$calendars = array();
function execcode($f)
{
global $thestack;
global $stackmark;
global $thename;
global $vars, $vars_stash, $vars_overload;
global $thrown;
global $extensions;
global $stdinput;
$catch = array();
$m = 0;
$a = "";
$f .= "\n";
for ($i = 0; $i < strlen($f); $i++) {
$c = $f[$i];
if ($thrown) {
$v3 = null;
if (isset($catch[$thrown[0]])) {
$v3 = $thrown[0];
} else {
if (is_int($thrown[0])) {
if ($thrown[0] > 0) {
foreach ($catch as $k => $v) {
if (is_int($k)) {
if ($k > 0 && ($thrown[0] & $k) == $thrown[0]) {
$v3 = $k;
}
}
}
} else {
foreach ($catch as $k => $v) {
if (is_int($k)) {
if ($k <= 0 && (-$thrown[0] & -$k) == -$k) {
$v3 = $k;
}
}
}
}
} else {
if (isset($catch[''])) {
$v3 = '';
}
}
}
if ($v3 !== null) {
array_push($thestack, $i, $thrown);
$v = $catch[$v3];
$v2 = preg_match('/(^|\\r|\\n)\\s*' . preg_quote($v, '/') . '(\\s)/', $f, $v1, PREG_OFFSET_CAPTURE);
if ($v2) {
$i = $v1[2][1];
} else {
return 1;
}
$thrown = false;
} else {
return 1;
}
}
if ($m > 0) {
if ($c == '{') {
$m++;
}
if ($c == '}') {
$m--;
}
if ($m == 0) {
$thestack[] = $a;
} else {
$a = $a . $c;
}
} else {
if (ctype_alpha($c) || ctype_digit($c) || $c == "_") {
if ($c == "_" && isset($vars_overload[$thename])) {
$thename = $vars_overload[$thename];
}
$thename = $thename . $c;
if (!ctype_upper($c) && ctype_upper($thename[0]) && $thename != "") {
$c = $thename;
$thename = "";
}
} else {
if ($c == ":") {
if ($thename == "") {
$thename = "_";
}
if (isset($vars_overload[$thename])) {
$thename = $vars_overload[$thename];
}
if (is_array($thename)) {
$v1 =& $vars[$thename[0]];
foreach ($thename as $k => $v) {
if ($k) {
$v1 =& $v1[$v];
}
}
$v2 = array_pop($thestack);
foreach ($v2 as $v) {
$v1 =& $v1[$v];
}
$v1 = array_pop($thestack);
unset($v1);
} else {
$vars[$thename] = array_pop($thestack);
}
$thename = "";
} else {
if ($c == ";" && $thename != "") {
$c = "";
if (isset($extensions[$thename])) {
call_user_func($extensions[$thename], &$c, &$f, &$i);
}
$thename = "";
} else {
if ($c == "'" && $thename != "") {
if (isset($vars_overload[$thename])) {
$thename = $vars_overload[$thename];
}
if (is_array($thename)) {
$thename = implode(' ', $thename) . ' ';
}
$thestack[] = $thename;
$thename = "";
$c = "";
} else {
if ($thename != "" && (ctype_lower($thename[0]) || ctype_digit($thename[0]) || $thename[0] == "_")) {
if (isset($vars_overload[$thename])) {
$thename = $vars_overload[$thename];
}
if (is_array($thename)) {
$v1 =& $vars[$thename[0]];
foreach ($thename as $k => $v) {
if ($k) {
$v1 =& $v1[$v];
}
}
$v2 = array_pop($thestack);
foreach ($v2 as $v) {
$v1 =& $v1[$v];
}
$thestack[] = $v1;
unset($v1);
} else {
if (ctype_digit($thename)) {
$thestack[] = 0 + $thename;
} else {
if (substr($thename, 0, 2) == '0x' && ctype_xdigit(substr($thename, 2))) {
$thestack[] = hexdec(substr($thename, 2));
} else {
if ($thename[0] == "_" && ctype_digit(substr($thename, 1)) && $thename != "_") {
$thestack[] = 0 - substr($thename, 1);
} else {
if (isset($vars[$thename])) {
$thestack[] = $vars[$thename];
}
}
}
}
}
$thename = "";
} else {
if ($thename != "") {
$c = $thename . $c;
if (!ctype_upper($c)) {
$thename = "";
}
}
}
}
}
}
}
if ($c == '{') {
//string
$a = "";
$m = 1;
}
$v = $thestack[count($thestack) - 1];
//if(is_int($v) && isset($extensions['__number'])) call_user_func($extensions['__number'],&$c,&$f,&$i);
//if(is_object($v)) $v->next_command(&$c,&$f,&$i);
if ($c == '~') {
//not/eval/dump/--in-out-listnum
$v = array_pop($thestack);
if (is_int($v)) {
$thestack[] = ~$v;
} else {
if (is_string($v)) {
execcode($v);
} else {
if (is_array($v)) {
$thestack = array_merge($thestack, $v);
} else {
if (is_object($v)) {
$v->cmd_eval();
} else {
if (is_null($v)) {
$v = '';
while (!feof($stdinput)) {
$v .= fread($stdinput, 8192);
}
mark_stack();
execcode($v);
if (!isset($vars['y'])) {
$vars['y'] = $thestack[0];
}
end_mark_stack();
$f .= "\nPa";
}
}
}
}
}
}
if ($c == '}') {
//right-brace
$v = array_pop($thestack);
if (is_string($v)) {
$thestack[] = str_split($v);
} else {
if (is_int($v)) {
$thestack[] = (int) abs($v);
if ($v > 0) {
$thestack[] = range($v, 1);
} else {
$thestack[] = array();
}
} else {
if (is_array($v)) {
$thestack[] = $v;
$vars['_'] = $v;
}
}
}
}
if ($c == '`') {
//reverse-eval
$v = array_pop($thestack);
if (is_int($v)) {
if ($v >= 0) {
$thestack[] = '' . $v;
} else {
$thestack[] = '_' . -$v;
}
} else {
if (is_string($v)) {
$thestack[] = '{' . $v . '}';
}
}
}
if ($c == '!') {
//logical-not
$v = array_pop($thestack);
if ($v === 0 || $v === "" || $v === array()) {
$thestack[] = 1;
} else {
$thestack[] = 0;
}
}
if ($c == '@') {
//rotate
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
array_push($thestack, $v2, $v1, $v3);
}
if ($c == '$') {
//copy/sort
$v = array_pop($thestack);
if (is_int($v)) {
$thestack[] = $thestack[count($thestack) - 1 - $v];
} else {
if (is_string($v)) {
$v = str_split($v);
sort($v);
$thestack[] = implode('', $v);
} else {
if (is_array($v)) {
sort($v);
$thestack[] = $v;
}
}
}
}
if ($c == '+') {
//add/concatenate
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_array($v2) && !is_array($v1)) {
$thestack[] = array_merge($v2, array($v1));
} else {
if (is_int($v1)) {
$thestack[] = $v2 + $v1;
} else {
if (is_string($v1)) {
$thestack[] = $v2 . $v1;
} else {
if (is_array($v1)) {
$thestack[] = array_merge((array) $v2, $v1);
}
}
}
}
}
if ($c == '-') {
//subtract/set-subtract
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_array($v1) || is_array($v2)) {
$thestack[] = array_values(array_diff($v2, (array) $v1));
} else {
if (is_int($v1)) {
$thestack[] = $v2 - $v1;
} else {
if (is_string($v1)) {
$thestack[] = str_replace($v1, '', $v2);
}
}
}
}
if ($c == '*') {
//multiply/repeat/join/fold
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = $v2 * $v1;
} else {
if (is_int($v1) && is_string($v2)) {
$thestack[] = str_repeat($v2, $v1);
} else {
if (is_int($v1) && is_array($v2)) {
$thestack[] = array_repeat($v2, $v1);
} else {
if (is_string($v1) && is_string($v2)) {
$thestack[] = implode($v1, str_split($v2));
} else {
if (is_array($v1) && is_array($v2)) {
$thestack[] = array_implode($v1, $v2);
} else {
if (is_string($v1) && is_array($v2)) {
$thestack[] = array_shift($v2);
foreach ($v2 as $v) {
$thestack[] = $v;
execcode($v1);
}
}
}
}
}
}
}
}
if ($c == '/') {
//divide/explode/chunk/each
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = (int) ($v2 / $v1);
} else {
if (is_int($v1) && is_string($v2)) {
$thestack[] = str_split($v2, $v1);
} else {
if (is_int($v1) && is_array($v2)) {
$thestack[] = array_chunk($v2, $v1);
} else {
if (is_string($v1) && is_string($v2)) {
$thestack[] = explode($v1, $v2);
} else {
if (is_array($v1) && is_array($v2)) {
// It's supposed to do something?
} else {
if (is_string($v1) && is_array($v2)) {
foreach ($v2 as $v) {
$thestack[] = $v;
execcode($v1);
}
}
}
}
}
}
}
}
if ($c == '%') {
//modulo/skip-elements/while
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
while ($v2 < 0) {
$v2 += $v1;
}
$thestack[] = $v2 % $v1;
} else {
if (is_int($v1) && is_array($v2)) {
$out = array();
if ($v1) {
for ($v = $v1 > 0 ? 0 : count($v2) - 1; isset($v2[$v]); $v += $v1) {
$out[] = $v2[$v];
}
}
$thestack[] = $out;
} else {
if (is_string($v1) && is_string($v2)) {
execcode($v2);
while (array_pop($thestack)) {
execcode($v1 . "\n" . $v2);
}
} else {
if (is_string($v1) && is_array($v2)) {
mark_stack();
foreach ($v2 as $v) {
$thestack[] = $v;
execcode($v1);
}
end_mark_stack();
}
}
}
}
}
if ($c == '|') {
//or/set-or
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = $v2 | $v1;
} else {
if (is_array($v1) && is_array($v2)) {
$thestack[] = array_values(array_unique(array_merge($v2, $v1)));
} else {
if (is_string($v1)) {
if ($v2) {
$thestack[] = $v2;
} else {
execcode($v1);
}
}
}
}
}
if ($c == '&') {
//and/set-and
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = $v2 & $v1;
} else {
if (is_array($v1) && is_array($v2)) {
$thestack[] = array_values(array_intersect($v2, $v1));
} else {
if (is_string($v1)) {
if ($v2) {
execcode($v1);
} else {
$thestack[] = $v2;
}
}
}
}
}
if ($c == '^') {
//xor/set-xor/filter
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = $v2 ^ $v1;
} else {
if (is_array($v1) && is_array($v2)) {
$thestack[] = array_merge(array_diff($v2, $v1), array_diff($v1, $v2));
} else {
if (is_string($v1) && is_array($v2)) {
$out = array();
foreach ($v2 as $v) {
$thestack[] = $v;
execcode($v1);
if (array_pop($thestack)) {
$out[] = $v;
}
}
$thestack[] = $out;
}
}
}
}
if ($c == '[') {
//mark
mark_stack();
}
if ($c == ']') {
//end-mark/quick-echo-string
if (count($stackmark)) {
end_mark_stack();
} else {
$v = array_pop($thestack);
if (is_array($v)) {
$v = implode('', $v);
}
echo $v;
}
}
if ($c == '\\') {
//swap
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
array_push($thestack, $v1, $v2);
}
if ($c == ';') {
//discard
array_pop($thestack);
}
if ($c == '<') {
//less
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2) || is_string($v1) && is_string($v2)) {
$thestack[] = (int) ($v2 < $v1);
} else {
if (is_int($v1) && is_array($v2)) {
$thestack[] = array_splice($v2, 0, $v1);
}
}
}
if ($c == '>') {
//greater
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2) || is_string($v1) && is_string($v2)) {
$thestack[] = (int) ($v2 > $v1);
} else {
if (is_int($v1) && is_array($v2)) {
$thestack[] = array_splice($v2, $v1);
}
}
}
if ($c == '=') {
//equal/array-element
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2) || is_string($v1) && is_string($v2)) {
$thestack[] = (int) ($v2 == $v1);
} else {
if (is_int($v1) && is_array($v2)) {
if ($v1 < 0) {
$v1 = count($v2) + $v1;
}
$thestack[] = $v2[$v1];
}
}
}
if ($c == ',') {
//range/count
$v1 = array_pop($thestack);
if (is_int($v1)) {
if ($v1 > 0) {
$thestack[] = range(0, $v1 - 1);
}
if ($v1 == 0) {
$thestack[] = array();
}
if ($v1 < 0) {
$thestack[] = range(-1, $v1);
}
} else {
if (is_array($v1)) {
$thestack[] = count($v1);
} else {
if (is_string($v1)) {
$thestack[] = strlen($v1);
}
}
}
}
if ($c == '.') {
//duplicate
$v = array_pop($thestack);
array_push($thestack, $v, $v);
}
if ($c == '?') {
//power/find/if
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_int($v1) && is_int($v2)) {
$thestack[] = (int) pow($v2, $v1);
} else {
if (is_array($v1)) {
$v = array_search($v2, $v1);
if (is_int($v)) {
$thestack[] = $v;
} else {
$thestack[] = -1;
}
} else {
if (is_string($v1) && is_array($v2)) {
$out = -1;
foreach ($v2 as $k => $v) {
$thestack[] = $v;
execcode($v1);
if (array_pop($thestack)) {
$out = $k;
break;
}
}
$thestack[] = $out;
} else {
if (is_string($v1) && is_int($v2)) {
if ($v2) {
execcode($v1);
}
} else {
if (is_string($v1) && is_string($v2)) {
$v = strpos($v2, $v1);
if ($v === false) {
$v = -1;
}
$thestack[] = $v;
}
}
}
}
}
}
if ($c == '(') {
//decrement/uncons-first
$v = array_pop($thestack);
if (is_int($v)) {
$thestack[] = $v - 1;
} else {
if (is_array($v)) {
$v2 = array_shift($v);
array_push($thestack, $v, $v2);
} else {
if (is_string($v)) {
$v = str_split($v, 1);
$v2 = array_shift($v);
array_push($thestack, implode("", $v), $v2);
}
}
}
}
if ($c == ')') {
//increment/uncons-last/--in-out-line-array
$v = array_pop($thestack);
if (is_int($v)) {
$thestack[] = $v + 1;
} else {
if (is_array($v)) {
$v2 = array_pop($v);
array_push($thestack, $v, $v2);
} else {
if (is_string($v)) {
$v = str_split($v, 1);
$v2 = array_pop($v);
array_push($thestack, implode("", $v), $v2);
} else {
if (is_null($v)) {
$f = 'Ia10"/' . substr($f, $i + 1) . ' A_P.';
$i = -1;
}
}
}
}
}
if ($c == '"') {
//chr/ord-list/reverse-array/--in-out-per-line
$v = array_pop($thestack);
if (is_int($v)) {
$thestack[] = chr($v);
} else {
if (is_string($v)) {
$out = array();
for ($v1 = 0; $v1 < strlen($v); $v1++) {
$out[] = ord($v[$v1]);
}
$thestack[] = $out;
} else {
if (is_array($v)) {
$thestack[] = array_reverse($v);
} else {
if (is_null($v)) {
$f = '{0 I1\\;' . substr($f, $i + 1) . ' P,1}Fd';
$i = -1;
}
}
}
}
}
if ($c == '#') {
//replace-execution/adjust-stack-mark/almost-execute/--in-out
$v = array_pop($thestack);
if (is_string($v)) {
$f = $v . substr($f, $i + 1);
$i = -1;
} else {
if (is_int($v)) {
$v1 = array_pop($stackmark);
$stackmark[] = $v1 - $v;
} else {
if (is_array($v)) {
foreach ($v as $v1 => $v2) {
$v[$v1] = almost_execute($v2);
}
$thestack[] = $v;
} else {
if (is_null($v)) {
$f = ' Ia ' . substr($f, $i + 1) . ' P. ';
$i = -1;
}
}
}
}
}
if ($c == 'A+') {
//array-sum
$v = array_pop($thestack);
if (is_string($v)) {
$v2 = array_pop($thestack);
mark_stack();
foreach ($v2 as $v1) {
$thestack[] = $v;
execcode($v);
}
end_mark_stack();
}
$thestack[] = array_sum($v);
}
if ($c == 'A.') {
//array-implode
$v = array_pop($thestack);
$thestack[] = implode('', $v);
}
if ($c == 'A,') {
//array-implode-delimiter
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = implode($v1, $v2);
}
if ($c == 'A_') {
//array-implode-newline
$v = array_pop($thestack);
if (is_array($v)) {
$thestack[] = implode("\n", $v);
} else {
$thestack[] = '' . $v;
}
}
if ($c == 'A#') {
//array-implode-space
$v = array_pop($thestack);
if (is_array($v)) {
$thestack[] = implode(" ", $v);
} else {
$thestack[] = '' . $v;
}
}
if ($c == 'A*') {
//array-product
$v = array_pop($thestack);
if (is_string($v)) {
$v2 = array_pop($thestack);
mark_stack();
foreach ($v2 as $v1) {
$thestack[] = $v;
execcode($v);
}
end_mark_stack();
}
$out = 1;
foreach ($v as $v1) {
$out *= $v1;
}
$thestack[] = $out;
}
if ($c == 'Az') {
//array-zip
$v = array_pop($thestack);
if (!count($v)) {
$thestack[] = array();
} else {
if (is_array($v[0])) {
$thestack[] = array_zip($v);
} else {
if (is_string($v[0])) {
$v = array_map(str_split, $v);
$thestack[] = array_map(implode, array(), array_zip($v));
} else {
if (is_int($v[0])) {
$v2 = array_fill(0, 32, (int) 0);
for ($v1 = 0; $v1 < count($v); $v1++) {
for ($v3 = 0; $v3 < 32; $v3++) {
$v2[$v3] |= ($v[$v1] >> $v3 & 1) << $v1;
}
}
$thestack[] = $v2;
}
}
}
}
}
//if($c=='As') { //array-shuffle/string-shuffle
// $v=array_pop($thestack);
// if(is_array($v)) {
// shuffle($v);
// $thestack[]=$v;
// } else if(is_string($v)) {
// $v=str_split($v,1);
// shuffle($v);
// $thestack[]=implode("",$v);
// }
//}
if ($c == 'Ar') {
//array-reverse/string-reverse
$v = array_pop($thestack);
if (is_array($v)) {
$thestack[] = array_reverse($v);
}
if (is_string($v)) {
$thestack[] = strrev($v);
}
if (is_int($v)) {
$thestack[] = (int) (0 + strrev('' . $v));
}
}
if ($c == 'A$') {
//array-multisort
$v = array_pop($thestack);
call_user_func_array(array_multisort, &$v);
$thestack[] = $v;
}
if ($c == 'A=') {
//array-set-element
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
if (is_array($v2) && is_int($v1)) {
if ($v1 >= 0 && $v1 <= count($v2)) {
$v2[$v1] = $v3;
}
$thestack[] = $v2;
}
}
if ($c == 'Af') {
//array-flatten
$v = array_pop($thestack);
foreach ($v as $v1 => $v2) {
$v[$v1] = (array) $v2;
}
$thestack[] = call_user_func_array(array_merge, $v);
}
if ($c == 'A\\') {
//array-diagonal-bs
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$out = array();
foreach ($v2 as $k => $v) {
if (isset($v[$v1 + $k])) {
$out[] = $v[$v1 + $k];
}
}
$thestack[] = $out;
}
if ($c == 'A/') {
//array-diagonal-fs
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$out = array();
foreach ($v2 as $k => $v) {
if (isset($v[$v1 - $k])) {
$out[] = $v[$v1 - $k];
}
}
$thestack[] = $out;
}
if ($c == 'At') {
//array-tuples
$v = array_pop($thestack);
if (count($v) && !is_array($v[0])) {
$v = array(array_pop($thestack), $v);
}
$thestack[] = array_tuples($v);
}
if ($c == 'Ax') {
//array-cross
$v1 = (array) array_pop($thestack);
$v2 = (array) array_pop($thestack);
$v3 = array_pop($thestack);
mark_stack();
foreach (array_tuples(array($v1, $v2)) as $v) {
$thestack[] = $v;
execcode($v3);
}
end_mark_stack();
}
if ($c == 'Ag') {
//array-get-consecutive
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$out = array();
for ($k = 0; $k <= count($v2) - $v1; $k++) {
$out[] = array_slice($v2, $k, $v1);
}
$thestack[] = $out;
}
if ($c == 'A-') {
//array-remove-element
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
while ($v1 < 0) {
$v1 += count($v2);
}
$v1 = $v1 % count($v2);
$v1 = array_splice($v2, $v1, 1);
$thestack[] = $v2;
$thestack[] = $v1;
}
if ($c == 'Au') {
//array-u-turn
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
while ($v1 < 0) {
$v1 += count($v2);
}
$thestack[] = array_merge(array_slice($v2, $v1), array_slice($v2, 0, $v1));
}
if ($c == 'A?') {
//array-test-unique
$v = array_pop($thestack);
if (count($v) == count(array_unique($v))) {
$thestack[] = 1;
} else {
$thestack[] = 0;
}
}
if ($c == 'AP[') {
//array-pad-left
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
$thestack[] = array_slice(array_merge(array_fill(0, $v2, $v1), $v3), -$v2);
}
if ($c == 'AP]') {
//array-pad-right
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
$thestack[] = array_slice(array_merge($v3, array_fill(0, $v2, $v1)), 0, $v2);
}
if ($c == 'AZt') {
//array-tuples-callback
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = array_tuples_callback($v2, $v1);
}
if ($c == 'B+') {
//bcmath-add
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcadd($v2, $v1);
}
if ($c == 'B-') {
//bcmath-subtract
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcsub($v2, $v1);
}
if ($c == 'B*') {
//bcmath-multiply
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcmul($v2, $v1);
}
if ($c == 'B/') {
//bcmath-divide
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcdiv($v2, $v1);
}
if ($c == 'B%') {
//bcmath-modulo
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcmod($v2, $v1);
}
if ($c == 'B?') {
//bcmath-power
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bcpow($v2, $v1);
}
if ($c == 'B=') {
//bcmath-compare
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = bccomp($v2, $v1);
}
if ($c == 'Bs') {
//bcmath-scale
$v = array_pop($thestack);
$thestack[] = bcscale($v);
}
if ($c == 'F<') {
//flow-control-restart
$i = -1;
}
if ($c == 'F>') {
//flow-control-exit
return 0;
}
if ($c == 'F[') {
//flow-control-conditional-restart
if (array_pop($thestack)) {
$i = -1;
}
}
if ($c == 'F]') {
//flow-control-conditional-exit
if (array_pop($thestack)) {
return 0;
}
}
if ($c == 'Fd') {
//flow-control-do
$v = array_pop($thestack);
do {
execcode($v);
} while (array_pop($thestack));
}
if ($c == 'Fi') {
//flow-control-if-else
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
if ($v3) {
execcode($v2);
} else {
execcode($v1);
}
}
if ($c == 'F%') {
//flow-control-recursive-map
$v = array_pop($thestack);
if (is_array($v)) {
mark_stack();
foreach ($v as $v1) {
$thestack[] = $v1;
execcode($f);
}
end_mark_stack();
return 0;
} else {
$thestack[] = $v;
}
}
if ($c == 'F/') {
//flow-control-recursive-each
$v = array_pop($thestack);
if (is_array($v)) {
foreach ($v as $v1) {
$thestack[] = $v1;
execcode($f);
}
return 0;
} else {
$thestack[] = $v;
}
}
if ($c == 'F.') {
//flow-control-goto
$v = array_pop($thestack);
$v2 = preg_match('/(^|\\r|\\n)\\s*' . preg_quote($v, '/') . '(\\s)/', $f, $v1, PREG_OFFSET_CAPTURE);
if ($v2) {
$i = $v1[2][1];
}
}
if ($c == 'F?') {
//flow-control-conditional-goto
$v = array_pop($thestack);
$v2 = array_pop($thestack);
$v2 = $v2 && preg_match('/(^|\\r|\\n)\\s*' . preg_quote($v, '/') . '(\\s)/', $f, $v1, PREG_OFFSET_CAPTURE);
if ($v2) {
$i = $v1[2][1];
}
}
if ($c == 'Fg') {
//flow-control-gosub
$v = array_pop($thestack);
$v2 = preg_match('/(^|\\r|\\n)\\s*' . preg_quote($v, '/') . '(\\s)/', $f, $v1, PREG_OFFSET_CAPTURE);
if ($v2) {
$thestack[] = $i;
$i = $v1[2][1];
}
}
if ($c == 'Fc') {
//flow-control-conditional-gosub
$v = array_pop($thestack);
$v2 = array_pop($thestack);
$v2 = $v2 && preg_match('/(^|\\r|\\n)\\s*' . preg_quote($v, '/') . '(\\s)/', $f, $v1, PREG_OFFSET_CAPTURE);
if ($v2) {
$thestack[] = $i;
$i = $v1[2][1];
}
}
if ($c == 'Fr') {
//flow-control-return
$i = array_pop($thestack);
}
if ($c == 'F~') {
//flow-control-alt-exec
$v = array_pop($thestack);
if (execcode($v)) {
return 1;
}
}
if ($c == 'F1') {
//flow-control-reconsider
return 1;
}
if ($c == 'F2') {
//flow-control-conditional-reconsider
if (array_pop($thestack)) {
return 1;
}
}
if ($c == 'Fm') {
//flow-control-maybe
$v = array_pop($thestack) . "\n" . substr($f, $i + 1);
if (!maybe_execute($v)) {
return 0;
}
}
if ($c == 'Fw') {
//flow-control-maybe-not
$v = array_pop($thestack);
if (!maybe_execute(substr($f, $i + 1))) {
return 0;
}
execcode($v);
}
if ($c == 'Fy') {
//flow-control-yield
$v = array_pop($thestack);
$thestack[] = array($i, $f);
if (is_string($v)) {
$v = array(-1, $v);
}
$i = $v[0];
$f = $v[1];
}
if ($c == 'Ft') {
//flow-control-throw
$thrown = array_pop($thestack);
if (is_object($thrown[0])) {
$thrown[0] = $thrown[0]->convert();
}
}
if ($c == 'F(') {
//flow-control-catch
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_object($v2)) {
$v2 = $v2->convert();
}
$catch[$v2] = $v1;
}
if ($c == 'F)') {
//flow-control-fumble
$v2 = array_pop($thestack);
if (is_object($v2)) {
$v2 = $v2->convert();
}
unset($catch[$v2]);
}
if ($c == 'Fp') {
//flow-control-fixed-point
$v1 = array_pop($thestack);
execcode($v1);
$v2 = array_pop($thestack);
do {
$v = $v2;
$thestack[] = $v;
execcode($v1);
$v2 = array_pop($thestack);
} while ($v != $v2);
$thestack[] = $v;
}
if ($c == 'Fo') {
//flow-control-forever
$f = substr($f, $i + 1) . "\nF<";
$i = -1;
}
if ($c == 'F|') {
//flow-control-conditional-drop-exit
if (!array_pop($thestack)) {
array_pop($thestack);
return 0;
}
}
if ($c == 'F9') {
//flow-control-alt-point
$v1 = array_pop($thestack);
execcode($v1);
$v2 = array_pop($thestack);
$v = array();
do {
$v[] = $v2;
$thestack[] = $v2;
execcode($v1);
$v2 = array_pop($thestack);
} while (array_search($v2, $v, true) === false);
$thestack[] = $v2;
}
if ($c == 'Ia') {
//input-all
//$v=file_get_contents("php://stdin");
$v = '';
while (!feof($stdinput)) {
$v .= fread($stdinput, 8192);
}
$thestack[] = str_replace("\r", "", $v);
}
if ($c == 'Il') {
//input-line
$v = fgets($stdinput);
while ($v[strlen($v) - 1] == "\r" || $v[strlen($v) - 1] == "\n") {
$v = substr($v, 0, -1);
}
$thestack[] = $v;
}
if ($c == 'I1') {
//input-line-or-eof
$v = fgets($stdinput);
if (feof($stdinput)) {
return 0;
}
while ($v[strlen($v) - 1] == "\r" || $v[strlen($v) - 1] == "\n") {
$v = substr($v, 0, -1);
}
$thestack[] = $v;
}
if ($c == 'I0') {
//input-until
$v1 = array_pop($thestack);
$o = "";
$v3 = 0;
while (($v = fgetc($stdinput)) !== false) {
if ($v == $v1[0] && $v3 == 0) {
break;
}
if (strlen($v1) > 2) {
if ($v == $v1[1]) {
$v3++;
}
if ($v == $v1[2]) {
$v3--;
}
}
$o .= $v;
}
$thestack[] = $o;
}
if ($c == 'M2') {
//math-dec-to-bin
$v = array_pop($thestack);
$thestack[] = decbin($v);
}
//if($c=='Mr') { //math-random
// $v=array_pop($thestack);
// $thestack[]=mt_rand(0,$v-1);
//}
if ($c == 'Ma') {
//math-absolute
$v = array_pop($thestack);
$thestack[] = abs($v);
}
if ($c == 'Ms') {
//math-sign
$v = array_pop($thestack);
$thestack[] = $v ? $v > 0 ? 1 : -1 : 0;
}
if ($c == 'M$') {
//math-interleave
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v1 = ($v1 | $v1 << 8) & 0xff00ff;
$v1 = ($v1 | $v1 << 4) & 0xf0f0f0f;
$v1 = ($v1 | $v1 << 2) & 0x33333333;
$v1 = ($v1 | $v1 << 1) & 0x55555555;
$v2 = ($v2 | $v2 << 8) & 0xff00ff;
$v2 = ($v2 | $v2 << 4) & 0xf0f0f0f;
$v2 = ($v2 | $v2 << 2) & 0x33333333;
$v2 = ($v2 | $v2 << 1) & 0x55555555;
$thestack[] = $v1 | $v2 << 1;
}
if ($c == 'Mb') {
//math-base-convert
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
$thestack[] = base_convert((string) $v1, $v2, $v3);
}
if ($c == 'Md') {
//math-decimal
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = (int) base_convert($v2, $v1, 10);
}
if ($c == 'P.') {
//print-value
$v = array_pop($thestack);
if (is_array($v)) {
echo $v[0];
} else {
echo $v;
}
}
if ($c == 'P,') {
//print-value-newline
echo array_pop($thestack) . "\n";
}
if ($c == 'P_') {
//print-newline
echo "\n";
}
if ($c == 'Pr') {
//print-r
print_r(array_pop($thestack));
}
if ($c == 'Ps') {
//print-stack
var_dump($thestack);
}
if ($c == 'Pc') {
//print-character
$v = array_pop($thestack);
if (is_int($v)) {
echo chr($v);
}
if (is_string($v)) {
echo $v[0];
}
if (is_array($v)) {
foreach ($v as $v1) {
echo chr($v1);
}
}
}
if ($c == 'Pf') {
//print-format
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
call_user_func_array(printf, array_merge((array) $v1, (array) $v2));
}
if ($c == 'Pa') {
//print-all-list
$v = array_pop($thestack);
if (is_array($v)) {
echo implode("\n", $v);
} else {
echo $v;
}
}
if ($c == 'Sc') {
//string-contains
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = strcspn($v2, $v1) == strlen($v2) ? 0 : 1;
}
if ($c == 'Sn') {
//string-append-newline
$v = array_pop($thestack);
$thestack[] = $v . "\n";
}
if ($c == 'St') {
//string-translate
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
$thestack[] = strtr($v3, $v2, $v1);
}
if ($c == 'Sl') {
//string-lowercase
$v = array_pop($thestack);
$thestack[] = strtolower($v);
}
if ($c == 'Su') {
//string-uppercase
$v = array_pop($thestack);
$thestack[] = strtoupper($v);
}
if ($c == 'Sf') {
//string-format
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = call_user_func_array(sprintf, array_merge((array) $v1, (array) $v2));
}
if ($c == 'Sb') {
//string-brainfuck
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack = array_merge($thestack, brainfuck($v1, $v2));
}
if ($c == 'Sx') {
//string-expand
$v = array_pop($thestack);
$thestack[] = str_expand_special($v);
}
if ($c == 'S|') {
//string-trim
$v = array_pop($thestack);
if (is_array($v)) {
$v = implode("\n", $v);
}
$thestack[] = trim($v);
}
if ($c == 'S[') {
//string-ltrim
$v = array_pop($thestack);
if (is_array($v)) {
$v = implode("\n", $v);
}
$thestack[] = ltrim($v);
}
if ($c == 'S]') {
//string-rtrim
$v = array_pop($thestack);
if (is_array($v)) {
$v = implode("\n", $v);
}
$thestack[] = rtrim($v);
}
if ($c == 'S(') {
//string-cspn
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = strcspn($v2, $v1);
}
if ($c == 'S)') {
//string-spn
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$thestack[] = strspn($v2, $v1);
}
if ($c == 'S0') {
//string-upto-first
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (strlen($v1) == 1) {
$v = strpos($v2, $v1);
if ($v === false) {
array_push($thestack, "", $v2);
} else {
array_push($thestack, substr($v2, $v + 1), substr($v2, 0, $v));
}
} else {
if (strlen($v1) == 3) {
$v3 = 0;
for ($k = 0; $k < strlen($v2); $k++) {
if ($v3 == 0 && $v2[$k] == $v1[0]) {
break;
}
if ($v2[$k] == $v1[1]) {
$v3++;
}
if ($v2[$k] == $v1[2]) {
$v3--;
}
}
array_push($thestack, substr($v2, $k + 1), substr($v2, 0, $k));
}
}
}
if ($c == 'S5') {
//string-remove-disallowed
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
if (is_array($v2)) {
$v2 = implode("\n", $v2);
}
$thestack[] = preg_replace('|[^' . preg_quote($v1, '-') . ']|', "", $v2);
}
if ($c == 'S!') {
//string-regex-match-offset
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
preg_match_all($v1, $v2, $out, PREG_OFFSET_CAPTURE);
$v = array();
foreach ($out[0] as $v3) {
$v[] = $v3[1];
}
$thestack[] = $v;
}
if ($c == 'S?') {
//string-regex-match
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
preg_match_all($v1, $v2, $out, PREG_SET_ORDER);
$thestack[] = $out;
}
if ($c == 'S"') {
//string-regex-quote
$v = array_pop($thestack);
$thestack[] = preg_quote($v, '/');
}
if ($c == 'S~') {
//string-regex-replace-call
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$v3 = array_pop($thestack);
$v4 = substr($v2, strrpos($v2, $v2[0]) + 1);
$v2 = substr($v2, 0, strrpos($v2, $v2[0]) + 1) . strtr($v4, "[1-", " ");
if (strpos($v4, "-") !== false) {
$v1 = "0= " . $v1;
}
if (strpos($v4, "[") !== false) {
mark_stack();
$v1 .= " {}";
}
if (strpos($v4, "1") !== false) {
$thestack[] = preg_replace_callback($v2, array(new flogback($v1), 'call'), $v3, 1);
} else {
$thestack[] = preg_replace_callback($v2, array(new flogback($v1), 'call'), $v3);
}
if (strpos($v4, "[") !== false) {
array_pop($thestack);
end_mark_stack();
}
}
if ($c == 'S`') {
//string-heredoc
$f = substr($f, $i + 1);
$i = -1;
$v1 = substr($f, 0, strpos($f, "\n"));
$f = substr($f, strpos($f, "\n") + 1);
$v2 = strpos($f, "\n" . $v1 . "\n");
$thestack[] = substr($f, 0, $v2);
$f = substr($f, $v2 + 2 + strlen($v1));
}
if ($c == 'V<') {
//variable-stash
$v = array_pop($thestack);
if (is_string($v)) {
$v = explode("|", $v);
}
foreach ($v as $v1) {
$vars_stash[$v1][] = $vars[$v1];
}
}
if ($c == 'V>') {
//variable-retrieve
$v = array_pop($thestack);
if (is_string($v)) {
$v = explode("|", $v);
}
foreach ($v as $v1) {
$vars[$v1] = array_pop($vars_stash[$v1]);
}
}
if ($c == 'V!') {
//variable-overload
$v1 = array_pop($thestack);
$v2 = array_pop($thestack);
$vars_overload[$v2] = $v1;
}
if ($c == 'V=') {
//variable-not-overload
$v = array_pop($thestack);
unset($vars_overload[$v]);
}
if ($c == 'V?') {
//variable-which-overload
$v = array_pop($thestack);
if (isset($vars_overload[$v])) {
$thestack[] = $vars_overload[$v];
} else {
$thestack[] = $v;
}
}
if ($c == 'Vx') {
//variable-delete
$v = array_pop($thestack);
if (is_string($v)) {
$v = explode("|", $v);
}
foreach ($v as $v1) {
unset($vars[$v1]);
unset($vars_stash[$v1]);
unset($vars_overload[$v1]);
}
}
if ($c == 'Vl') {
//variable-local
$v = array_pop($thestack);
if (is_string($v)) {
$v = explode("|", $v);
}
foreach ($v as $v1) {
$vars_stash[$v1][] = $vars[$v1];
}
$out = execcode(substr($f, $i + 1));
foreach ($v as $v1) {
$vars[$v1] = array_pop($vars_stash[$v1]);
}
return $out;
}
if ($c == 'V(') {
//variable-select-prev
$v = array_pop($thestack);
$vars_overload[$v][count($vars_overload[$v]) - 1]--;
}
if ($c == 'V)') {
//variable-select-next
$v = array_pop($thestack);
$vars_overload[$v][count($vars_overload[$v]) - 1]++;
}
if ($c == 'Vi') {
//variable-select-inner
$v = array_pop($thestack);
$vars_overload[$v][] = 0;
}
if ($c == 'Vo') {
//variable-select-outer
$v = array_pop($thestack);
array_pop($vars_overload[$v]);
}
if ($c == 'X+') {
//matrix-add
$v2 = array_pop($thestack);
$v1 = array_pop($thestack);
$thestack[] = matrix_add($v1, $v2);
}
if ($c == 'Z^') {
//misc-inline-filter
$v = array_pop($thestack);
if ($v === 0 || $v === "" || $v === array()) {
array_pop($thestack);
}
}
if ($c == 'Z2') {
//misc-2dup
$v2 = array_pop($thestack);
$v1 = array_pop($thestack);
array_push($thestack, $v1, $v2, $v1, $v2);
}
if ($c == 'Z3') {
//misc-3dup
$v3 = array_pop($thestack);
$v2 = array_pop($thestack);
$v1 = array_pop($thestack);
array_push($thestack, $v1, $v2, $v3, $v1, $v2, $v3);
}
if ($c == 'Zo') {
//misc-over
$v2 = array_pop($thestack);
$v1 = array_pop($thestack);
array_push($thestack, $v1, $v2, $v1);
}
}
}
if ($m) {
if (is_array($thestack[count($thestack) - 1])) {
$v2 = array_pop($thestack);
mark_stack();
foreach ($v2 as $v) {
$thestack[] = $v;
execcode($a);
}
end_mark_stack();
} else {
execcode($a);
}
}
}
