<?php // CASSIS v0.1 start -->

// ===================================================================

// PHP-only block. Processed only by PHP. Use only // comments here.

// -------------------------------------------------------------------

function js() {

return false;

}

// global configuration

if (php_min_version("5.1.0")) {

date_default_timezone_set("UTC");

}

function php_min_version($s) {

}

// -------------------------------------------------------------------

// string functions requiring separate js/php definitions

function preg_matches($p, $s) {

}

function preg_match_1($p, $s) {

}

// -------------------------------------------------------------------

// date time functions

function date_get_full_year($d = "") {

}

function date_get_timestamp($d = "") {

}

function date_get_ordinal_days($d) {

return 1 + $d->format('z');

}

// mixed-case function names are bad for PHP vs JS. Don't do it.

//function Number($n) {

// return $n-0;

//}

function date_get_rfc3339($d) {

return $d->format('c');

}

// -------------------------------------------------------------------

// old wrappers. transition code away from these

// ** do not use these in new code. **

function getFullYear($d = "") {

// 2010-020 obsoleted. Use date_get_full_year instead

return date_get_full_year($d);

}

// ===================================================================

/*/ // This comment inverter switches from PHP only to JS only.

// JS-only block. Processed only by JS. Use only // comments here.

// -------------------------------------------------------------------

function js() {

return true;

}

// array functions

function array() { // makes an array from arbitrary parameter list.

return Array.prototype.slice.call(arguments);

}

function is_array(a) {

return (typeof(a) === "object") && (a instanceof Array);

}

function count(a) {

return a.length;

}

function array_slice(a, b, e) { // slice an array, begin, optional end

if (a === undefined) { return array(); }

if (b === undefined) { return a; }

if (e === undefined) { return a.slice(b); }

return a.slice(b, e);

}

// -------------------------------------------------------------------

// math and numerical functions

function floor(n) {

return Math.floor(n);

}

function intval(n) {

return parseInt(n, 10);

}

Array.min = function(a) {

// from http://ejohn.org/blog/fast-javascript-maxmin/

return Math.min.apply(Math, a);

};

function min() {

var m = arguments;

if (m.length < 1) {

return false;

}

if (m.length === 1) {

m = m[0];

if (!is_array(m)) {

return m;

}

}

return Array.min(m);

}

function ctype_digit(s) {

return (/^[0-9]+$/).test(s);

}

function ctype_lower(s) {

return (/^[a-z]+$/).test(s);

}

function ctype_space(s) {

return /\s/.test(s);

}

// -------------------------------------------------------------------

// date time functions

function date_create(s) {

if (s) return new Date(s);

else return new Date();

}

function date_get_full_year(d) {

if (arguments.length < 1) {

d = new Date();

}

return d.getFullYear();

}

function date_get_timestamp(d) {

return floor(d.getTime() / 1000);

}

function date_get_rfc3339($d) {

return strcat($d.getFullYear(),'-',

str_pad_left(1 + $d.getUTCMonth(), 2, "0"), '-',

str_pad_left($d.getDate(), 2, "0"), 'T',

str_pad_left($d.getUTCHours(), 2, "0"), ':',

str_pad_left($d.getUTCMinutes(), 2, "0"), ':',

str_pad_left($d.getUTCSeconds(), 2, "0"), 'Z');

}

// newcal

function date_get_ordinal_days($d) {

return ymdp_to_d($d.getFullYear(), 1 + $d.getMonth(), $d.getDate());

}

// -------------------------------------------------------------------

// character and string functions

function ord(s) {

return s.charCodeAt(0);

}

function strlen(s) {

return s.length;

}

function substr(s, o, n) {

var m = strlen(s);

if ((o < 0 ? -1-o : o) >= m) { return false; }

if (o < 0) { o = m + o; }

if (n < 0) { n = m - o + n; }

if (n === undefined) { n = m - o; }

return s.substring(o, o + n);

}

function substr_count(s, n) {

return s.split(n).length - 1;

}

function strpos(h, n, o) {

// clients must triple-equal test return for === false for no match!

// or use offset(n, h) instead (0 = not found, else 1-based index)

if (arguments.length === 2) {

o = 0;

}

o = h.indexOf(n, o);

if (o === -1) { return false; }

else { return o; }

}

function stripos(h, n, o) {

// clients must triple-equal test return for === false for no match!

if (arguments.length === 2) {

o = 0;

}

o = h.toLowerCase().indexOf(n.toLowerCase(), o);

if (o === -1) { return false; }

else { return o; }

}

function strncmp(s1, s2, n) {

s1 = substr(String(s1), 0, n);

s2 = substr(String(s2), 0, n);

return (s1 === s2) ? 0 :

((s1 < s2) ? -1 : 1);

}

function explode(d, s, n) {

if (arguments.length === 2) {

return s.split(d);

}

return s.split(d, n);

}

function implode(d, a) {

return a.join(d);

}

function rawurlencode(s) {

return encodeURIComponent(s);

}

function htmlspecialchars(s) {

var c, i;

c = [["&","&amp;"], ["<","&lt;"], [">","&gt;"],

["'","&#039;"], ['"',"&quot;"]];

for (i = 0; i < c.length; i+=1) {

s = s.replace(new RegExp(c[i][0], "g"), c[i][1]);

}

return s;

}

function str_ireplace(a, b, s) {

var i;

if (!is_array(a)) {

return s.replace(new RegExp(a, "gi"), is_array(b) ? b[0] : b);

}

else {

for (i=0; i<a.length; i++) {

s = s.replace(new RegExp(a[i], "gi"), is_array(b) ? b[i] : b);

}

return s;

}

}

function preg_match(p, s) {

return (s.match(trim_slashes(p)) ? 1 : 0);

}

function preg_split(p, s) {

return s.split(new RegExp(trim_slashes(p),"gi"));

}

function trim() {

var c, i, j, m, s;

m = arguments;

s = m[0];

c = count(m) > 1 ? m[1] : " \t\n\r\f\x00\x0b\xa0";

i = 0;

j = strlen(s);

while (strpos(c,s[i])!==false && i<j) {

i+=1;

}

j-=1;

while (j>i && strpos(c,s[j])!==false) {

j-=1;

}

j+=1;

if (j>i) {

return substr(s,i,j-i);

}

else {

return '';

}

}

function rtrim() {

var c,j,m,s;

m = arguments;

s = m[0];

c = count(m)>1 ? m[1] : " \t\n\r\f\x00\x0b\xa0";

j = strlen(s)-1;

while (j>=0 && strpos(c,s[j])!==false) {

j-=1;

}

if (j>=0) {

return substr(s,0,j+1);

}

else {

return '';

}

}

function strtolower(s) {

return s.toLowerCase();

}

function ucfirst(s) {

return s.charAt(0).toUpperCase() + substr(s, 1);

}

// -------------------------------------------------------------------

// more javascript-only php-equivalent functions here

// -------------------------------------------------------------------

// string functions requiring separate js/php definitions

function preg_matches(p, s) {

return s.match(new RegExp(trim_slashes(p), "gi")); // match is a keyword in PHP 8.0

}

function preg_match_1(p, s) {

return s.match(new RegExp(trim_slashes(p), "i")); // match is a keyword in PHP 8.0

}

// -------------------------------------------------------------------

// pacify jslint/jshint

// -- define functions and variables only used in PHP flow.

function func_get_args() { }

var FALSE = false;

var PREG_PATTERN_ORDER;

var STR_PAD_LEFT;

// -- may eventually define these for JS.

function date_format() { }

function str_pad() { }

function DateTime() { }

// ===================================================================

/**/ // unconditional comment closer exits PHP comment block.

// JS+PHP block. Processed by both JS and PHP. /*...*/ comments ok.

// -------------------------------------------------------------------

/* original js/php test - doesn't pass jslint/jshint.

function js() {

return "00"==false;

}

*/

/*global document: false, window: false */

/// ///

// -------------------------------------------------------------------

// character and string functions

// strcat: takes as many strings as you want to give it.

function strcat() { /// ///

}

function number($s) {

return $s - 0;

}

function string($n) {

}

function str_pad_left($s1, $n, $s2) {

}

function trim_slashes($s) {

}

function preg_replace_1($p, $r, $s) {

}

function ctype_email_local($s) {

// close enough. no '.' because this is used for last char of.

return (preg_match("/^[a-zA-Z0-9_%+-]+$/", $s));

}

function ctype_uri_scheme($s) {

return (preg_match("/^[a-zA-Z][a-zA-Z0-9+.-]*$/", $s));

}

// -------------------------------------------------------------------

// newbase60

function num_to_sxg($n) { /// ///

}

function num_to_sxgf($n, $f) {

if (!$f) { $f=1; }

return str_pad_left(num_to_sxg($n), $f, "0");

}

function sxg_to_num($s) { /// ///

}

function sxg_to_numf($s, $f) {

if ($f===undefined) { $f=1; }

return str_pad_left(sxg_to_num($s), $f, "0");

}

// -------------------------------------------------------------------

// == newbase60 compat functions (before 2011-149)

function numtosxg($n) {

return num_to_sxg($n);

}

function numtosxgf($n, $f) {

return num_to_sxgf($n, $f);

}

function sxgtonum($s) {

return sxg_to_num($s);

}

function sxgtonumf($s, $f) {

return sxg_to_numf($s, $f);

}

/* == end compat functions == */

// -------------------------------------------------------------------

// date and time

function date_create_ymd($s) { /// ///

}

function date_create_timestamp($s) {

}

// function date_get_timestamp($d) // in PHP/JS specific code above.

// function date_get_rfc3339($d) // in PHP/JS specific code above.

function dt_to_time($dt) {

}

function dt_to_date($dt) {

}

function dt_to_ordinal_date($dt) {

return ymd_to_yd(dt_to_date($dt));

}

// -------------------------------------------------------------------

// newcal

function isleap($y) {

return ($y % 4 === 0 && ($y % 100 !== 0 || $y % 400 === 0));

}

function ymdp_to_d($y, $m, $d) { /// ///

}

function ymd_to_d($d) {

}

function ymdp_to_yd($y, $m, $d) {

return strcat(str_pad_left($y, 4, "0"), '-',

str_pad_left(ymdp_to_d($y, $m, $d), 3, "0"));

}

function ymd_to_yd($d) {

}

// function date_get_ordinal_days($d) // in PHP/JS specific code above

function bim_from_od($d) {

return 1+floor(($d-1)/61);

}

function date_get_bim() { /// ///

}

function get_nm_str($m) { /// ///

$a = array("New January", "New February", "New March", "New April", "New May", "New June", "New July", "New August", "New September", "New October", "New November", "New December");

return $a[($m-1)];

}

function nm_from_od($d) {

return ((($d-1) % 61) > 29) ? 2+2*(bim_from_od($d)-1) : 1+2*(bim_from_od($d)-1);

}

// date_get_ordinal_date: optional date argument

function date_get_ordinal_date() { /// ///

}

// -------------------------------------------------------------------

// begin epochdays

function y_to_days($y) {

}

// convert ymd to epoch days and sexagesimal epoch days (sd)

function ymd_to_days($d) {

return yd_to_days(ymd_to_yd($d));

}

/* old:

function ymd_to_days($d) {

// fails in JS, "2013-03-10" and "2013-03-11" both return 15774

return floor(

(date_get_timestamp(date_create_ymd($d)) -

date_get_timestamp(date_create_ymd("1970-01-01")))/86400);

}

*/

function ymd_to_sd($d) {

return num_to_sxg(ymd_to_days($d));

}

function ymd_to_sdf($d, $f) {

return num_to_sxgf(ymd_to_days($d), $f);

}

// ordinal date (YYYY-DDD) to ymd, epoch days, sexagesimal epoch days

function ydp_to_ymd($y, $d) { /// ///

}

function yd_to_ymd($d) {

return ydp_to_ymd(substr($d, 0, 4), substr($d, 5, 3));

}

function yd_to_days($d) {

return y_to_days(substr($d, 0, 4)) - 1 + number(substr($d, 5, 3));

}

function yd_to_sd($d) {

return num_to_sxg(yd_to_days($d));

}

function yd_to_sdf($d, $f) {

return num_to_sxgf(yd_to_days($d), $f);

}

// convert epoch days or sexagesimal epoch days (sd) to ordinal date

function days_to_yd($d) { /// ///

}

function sd_to_yd($d) {

return days_to_yd(sxg_to_num($d));

}

// -------------------------------------------------------------------

// compat as of 2011-143

function ymdptod($y,$m,$d) { return ymdp_to_d($y,$m,$d); }

function ymdptoyd($y,$m,$d) { return ymdp_to_yd($y,$m,$d); }

function ymdtoyd($d) { return ymd_to_yd($d); }

function bimfromod($d) { return bim_from_od($d); }

function getnmstr($m) { return get_nm_str($m); }

function nmfromod($d) { return nm_from_od($d); }

function ymdtodays($d) { return ymd_to_days($d); }

function ymdtosd($d) { return ymd_to_sd($d); }

function ymdtosdf($d,$f) { return ymd_to_sdf($d, $f); }

function ydtodays($d) { return yd_to_days($d); }

function ydtosd($d) { return yd_to_sd($d); }

function ydtosdf($d,$f) { return yd_to_sdf($d, $f); }

function daystoyd($d) { return days_to_yd($d); }

function sdtoyd($d) { return sd_to_yd($d); }

// -------------------------------------------------------------------

// HTTP

function is_http_header($s) {

return (preg_match_1('/^[a-zA-Z][-\\w]*:/',$s)!==null);

}

// -------------------------------------------------------------------

// webaddress

function web_address_to_uri($wa, $addhttp) {

}

function uri_clean($uri) {

}

// returns e.g. http:

function protocol_of_uri($uri) {

}

// returns e.g. //ttk.me/b/4DY1?seriously=yes#ud

function relative_uri_hash($uri) {

}

// returns e.g. ttk.me

function hostname_of_uri($uri) {

}

function sld_of_uri($uri) {

}

function path_of_uri($uri) {

}

function prepath_of_uri($uri) {

}

function segment_of_uri($n, $u) {

}

function fragment_of_uri($u) {

}

function is_http_uri($uri) {

$uri = explode(':', $uri, 2);

return !!strncmp($uri[0], 'http', 4);

}

function get_absolute_uri($uri, $base) {

}

// -------------------------------------------------------------------

// compat as of 2011-149

function webaddresstouri($wa, $addhttp) {

return web_address_to_uri($wa, $addhttp);

}

function uriclean($uri) { return uri_clean($uri); }

// -------------------------------------------------------------------

// HTTP related

function is_html_type($ct) {

}

// -------------------------------------------------------------------

// hexatridecimal

function num_to_hxt($n) { /// ///

}

function num_to_hxtf($n, $f) {

if ($f === undefined) { $f=1; }

return str_pad_left(num_to_hxt($n), $f, "0");

}

function hxt_to_num($h) { /// ///

}

// -------------------------------------------------------------------

// compat as of 2011-149

function numtohxt($n) { return num_to_hxt($n); }

function numtohxtf($n,$f) { return num_to_hxtf($n, $f); }

function hxttonum($h) { return hxt_to_num($h); }

// -------------------------------------------------------------------

// ISBN-10

function num_to_isbn10($n) { /// ///

}

// -------------------------------------------------------------------

// compat as of 2011-149

function numtoisbn10($n) { return num_to_isbn10($n); }

// -------------------------------------------------------------------

// HyperTalk

function trunc($n) { // just an alias from BASIC days

return floor($n);

}

function offset($n, $h) {