Mirror of Quill
You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
 
 
 
 

1584 lines
44 KiB

/* <!--
cassis.js Copyright 2008-2015 Tantek Çelik http://tantek.com
http://cassisproject.com conceived:2008-254; created:2009-299;
license:http://creativecommons.org/licenses/by-sa/3.0/ -->
if you see this in the browser, you need to wrap your PHP include of cassis.js and use thereof with calls to ob_start and ob_end_clean, e.g.:
ob_start();
include 'cassis.js';
// your code that calls CASSIS functions goes here
ob_end_clean();
/* <!-- <?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) {
$s = explode(".", $s);
$phpv = explode(".", phpversion());
for ($i=0; $i < count($s); $i+=1) {
if ($s[$i] > $phpv[$i]) {
return false;
}
}
return true;
}
// -------------------------------------------------------------------
// date time functions
function date_get_full_year($d = "") {
if ($d == "") {
$d = new DateTime();
}
return $d->format('Y');
}
function date_get_timestamp($d) {
return $d->format('U'); // $d->getTimestamp(); // in PHP 5.3+
}
// mixed-case function names are bad for PHP vs JS. Don't do it.
//function Number($n) {
// return $n-0;
//}
// -------------------------------------------------------------------
// 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_space(s) {
return /\s/.test(s);
}
// -------------------------------------------------------------------
// date time functions
function date_create(s) {
var d = new Date();
d.parse(s);
return d;
}
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);
}
// -------------------------------------------------------------------
// 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 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 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
// -------------------------------------------------------------------
// 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 preg_match_all() { }
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 */
/// ?> <!-- ///
// -------------------------------------------------------------------
// javascript-only framework functions
function doevent(el, evt) {
if (evt==="click" && el.tagName==='A') {
// dispatch/fireEvent fails FF3.5+/IE8+ on [a href] w "click" event
window.location = el.href; // workaround
return true;
}
if (document.createEvent) {
var eo = document.createEvent("HTMLEvents");
eo.initEvent(evt, true, true);
return !el.dispatchEvent(eo);
}
else if (document.createEventObject) {
return el.fireEvent("on"+evt);
}
}
function targetelement(e) {
var t;
e = e ? e : window.event;
t = e.target ? e.target : e.srcElement;
t = (t.nodeType == 3) ? t.parentNode : t; // Safari workaround
return t;
}
// CommonJS (node, browserify, npm) Exports
if (typeof exports !== 'undefined' &&
typeof module !== 'undefined' && module.exports) {
exports.auto_link = auto_link;
exports.num_to_sxg = num_to_sxg;
exports.sxg_to_num = sxg_to_num;
}
/// --> <?php ///
// -------------------------------------------------------------------
// character and string functions
// strcat: takes as many strings as you want to give it.
function strcat() { /// ?> <!-- ///
var $args, $i, $isjs, $r; /// --> <?php ///
$r = "";
$isjs = js();
$args = $isjs ? arguments : func_get_args();
for ($i=count($args)-1; $i>=0; $i-=1) {
$r = $isjs ? $args[$i] + $r : $args[$i] . $r;
}
return $r;
}
function number($s) {
return $s - 0;
}
function string($n) {
if (js()) {
if (typeof($n)==="number") {
return Number($n).toString();
} else if (typeof($n)==="undefined") {
return "";
} else {
return $n.toString();
}
}
else {
return "" . $n;
}
}
function str_pad_left($s1, $n, $s2) {
$s1 = string($s1);
$s2 = string($s2);
if (js()) {
$n -= strlen($s1);
while ($n >= strlen($s2)) {
$s1 = strcat($s2, $s1);
$n -= strlen($s2);
}
if ($n > 0) {
$s1 = strcat(substr($s2, 0, $n), $s1);
}
return $s1;
} else {
return str_pad($s1, $n, $s2, STR_PAD_LEFT);
}
}
function trim_slashes($s) {
if ($s[0]==="/") { // strip unnecessary / delim PHP regex funcs want
return substr($s, 1, strlen($s)-2);
}
return $s;
}
// define a few JS functions that PHP already has, using CASSIS funcs
/// ?> <!-- ///
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"));
}
/// --> <?php ///
function preg_match_1($p, $s) { /// ?> <!-- ///
var $m; /// --> <?php ///
if (js()) {
return $s.match(new RegExp(trim_slashes($p), "i"));
} else {
$m = array();
if (preg_match($p, $s, $m) !== FALSE) {
return $m[0];
} else {
return null; //array();
}
}
}
function preg_replace_1($p, $r, $s) {
if (js()) {
return $s.replace(new RegExp(trim_slashes($p), "i"), $r);
}
else {
$r = preg_replace($p, $r, $s, 1);
if ($r !== null) { return $r; }
else { return $s; }
}
}
function preg_matches($p, $s) { /// ?> <!-- ///
var $m; /// --> <?php ///
if (js()) {
return $s.match(new RegExp(trim_slashes($p), "gi"));
} else {
$m = array();
if (preg_match_all($p, $s, $m, PREG_PATTERN_ORDER) !== FALSE) {
return $m[0];
} else {
return null; //array();
}
}
}
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) { /// ?> <!-- ///
var $d, $m, $p, $s; /// --> <?php ///
$m = "0123456789ABCDEFGHJKLMNPQRSTUVWXYZ_abcdefghijkmnopqrstuvwxyz";
$p = "";
$s = "";
if ($n==="" || $n===0) { return "0"; }
if ($n<0) {
$n = -$n;
$p = "-";
}
while ($n>0) {
if(!js() && function_exists('bcmod')) {
$d = bcmod($n, 60);
$s = $m[$d] . $s;
$n = bcdiv(bcsub($n, $d), 60);
} else {
$d = $n % 60;
$s = strcat($m[$d], $s);
$n = ($n-$d)/60;
}
}
return strcat($p, $s);
}
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) { /// ?> <!-- ///
var $c, $i, $j, $m, $n; /// --> <?php ///
$j = strlen($s);
$m = 1;
$n = 0;
if ($s[0]==="-") {
$m = -1;
$j-=1;
$s = substr($s, 1, $j);
}
for ($i=0; $i<$j; $i+=1) { // iterate from first to last char of $s
$c = ord($s[$i]); // put current ASCII of char into $c
if ($c>=48 && $c<=57) { $c=$c-48; }
else if ($c>=65 && $c<=72) { $c-=55; }
else if ($c===73 || $c===108) { $c=1; } // typo cap I lower l to 1
else if ($c>=74 && $c<=78) { $c-=56; }
else if ($c===79) { $c=0; } // error correct typo capital O to 0
else if ($c>=80 && $c<=90) { $c-=57; }
else if ($c===95 || $c===45) { $c=34; } // _ and dash - to _
else if ($c>=97 && $c<=107) { $c-=62; }
else if ($c>=109 && $c<=122) { $c-=63; }
else { break; } // treat all other noise as end of number
if(!js() && function_exists('bcadd')) {
$n = bcadd(bcmul(60, $n), $c);
} else {
$n = 60*$n + $c;
}
}
return $n*$m;
}
function sxg_to_numf($s, $f) {
if ($f===undefined) { $f=1; }
return str_pad_left(sxg_to_num($s), $f, "0");
}
// -------------------------------------------------------------------
// == newbase60 compat functions only == (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);
}
// -------------------------------------------------------------------
// date and time
function date_create_ymd($s) { /// ?> <!-- ///
var $d; /// --> <?php ///
if (!$s) {
return (js() ? new Date() : new DateTime());
}
if (js()) {
if (substr($s,4,1)==='-') {
$s=strcat(substr($s,0,4), substr($s,5,2), substr($s,8,2));
}
$d = new Date(substr($s,0,4),substr($s,4,2)-1,substr($s,6,2));
$d.setHours(0); // was setUTCHours, avoiding bc JS no default tz
return $d;
} else {
return date_create(strcat($s, " 00:00:00"));
}
}
function date_create_timestamp($s) {
if (js()) {
return new Date(1000*$s);
} else {
return new DateTime(strcat("@", string($s)));
}
}
// function date_get_timestamp($d) // in PHP/JS specific code above.
function date_get_rfc3339($d) {
if (js()) {
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');
} else {
return date_format($d, 'c');
}
}
function dt_to_time($dt) {
$dt = explode("T", $dt);
if (count($dt)==1) {
$dt = explode(" ", $dt);
}
return (count($dt)>1) ? $dt[1] : "0:00";
}
function dt_to_date($dt) {
$dt = explode("T", $dt);
if (count($dt)==1) {
$dt = explode(" ", $dt);
}
return $dt[0];
}
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) { /// ?> <!-- ///
var $md; /// --> <?php ///
$md = array(
array(0,31,59,90,120,151,181,212,243,273,304,334),
array(0,31,60,91,121,152,182,213,244,274,305,335));
return $md[number(isleap($y))][$m-1] + number($d);
}
function ymd_to_d($d) {
if (substr($d, 4, 1)==='-') {
return ymdp_to_d(substr($d,0,4),substr($d,5,2),substr($d,8,2));
} else {
return ymdp_to_d(substr($d,0,4),substr($d,4,2),substr($d,6,2));
}
}
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) {
if (substr($d, 4, 1)==='-') {
return ymdp_to_yd(substr($d,0,4),substr($d,5,2),substr($d,8,2));
} else {
return ymdp_to_yd(substr($d,0,4),substr($d,4,2),substr($d,6,2));
}
}
function date_get_ordinal_days($d) {
if (js()) {
return ymdp_to_d($d.getFullYear(), 1+$d.getMonth(), $d.getDate());
} else {
return 1+date_format($d, 'z');
}
}
function bim_from_od($d) {
return 1+floor(($d-1)/61);
}
function date_get_bim() { /// ?> <!-- ///
var $args; /// --> <?php ///
$args = js() ? arguments : func_get_args();
return bim_from_od(
date_get_ordinal_days(
date_create_ymd((count($args) > 0) ? $args[0] : 0)));
}
function get_nm_str($m) { /// ?> <!-- ///
var $a; /// --> <?php ///
$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() { /// ?> <!-- ///
var $args, $d; /// --> <?php ///
$args = js() ? arguments : func_get_args();
$d = date_create_ymd((count($args) > 0) ? $args[0] : 0);
return strcat(date_get_full_year($d), '-',
str_pad_left(date_get_ordinal_days($d), 3, "0"));
}
// -------------------------------------------------------------------
// begin epochdays
function y_to_days($y) {
// convert y-01-01 to epoch days
return floor(
(date_get_timestamp(date_create_ymd(strcat($y, "-01-01"))) -
date_get_timestamp(date_create_ymd("1970-01-01")))/86400);
}
// 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) { /// ?> <!-- ///
var $md, $m; /// --> <?php ///
$md = array(
array(0,31,59,90,120,151,181,212,243,273,304,334,365),
array(0,31,60,91,121,152,182,213,244,274,305,335,366));
$d -= 1;
$m = trunc($d / 29);
if ($md[isleap($y) - 0][$m] > $d) $m -= 1;
$d = $d - $md[isleap($y)-0][$m] + 1;
$m += 1;
return strcat($y, '-', str_pad_left($m, 2, '0'),
'-', str_pad_left($d, 2, '0'));
}
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) { /// ?> <!-- ///
var $a, $y; /// --> <?php ///
$d = date_create_timestamp(
date_get_timestamp(
date_create_ymd("1970-01-01")) + $d*86400);
$y = date_get_full_year($d);
$a = date_create_ymd(strcat($y, "-01-01"));
return strcat($y, "-",
str_pad_left(
1 + floor((
date_get_timestamp($d) - date_get_timestamp($a))/86400), 3, "0"));
}
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) {
if (!$wa ||
(substr($wa, 0, 7) === 'http://') ||
(substr($wa, 0, 8) === 'https://') ||
(substr($wa, 0, 6) === 'irc://')) {
return $wa;
}
if ((substr($wa, 0, 7) === 'Http://') ||
(substr($wa, 0, 8) === 'Https://')) {
// handle iOS4 overcapitalization of input entries
return strcat('h', substr($wa, 1, strlen($wa)));
}
// TBI: may want to handle typos as well like:
// missing/extra : or / http:/ http///
// missing letter in protocol: ttps htps htts, ttp htp htt, ir ic rc
// use strtolower(substr($wa, 0, 6)); // handle capitals in URLs
if (substr($wa,0,1) === '@') {
return strcat('https://twitter.com/', substr($wa, 1, strlen($wa)));
}
if ($addhttp) {
$wa = strcat('http://', $wa);
}
return $wa;
}
function uri_clean($uri) {
$uri = web_address_to_uri($uri, false);
// prune the optional http:// for a neater param
if (substr($uri, 0, 7) === 'http://') {
$uri = explode('://', $uri);
$uri = array_slice($uri, 1);
$uri = implode('://', $uri);
}
// URL encode
return str_ireplace("%3A", ":",
str_ireplace("%2F", "/", rawurlencode($uri)));
}
function protocol_of_uri($uri) {
if (offset(':', $uri) === 0) { return ""; }
$uri = explode(':', $uri, 2);
if (!ctype_uri_scheme($uri[0])) { return ""; }
return strcat($uri[0], ':');
}
// returns e.g. //ttk.me/b/4DY1?seriously=yes#ud
function relative_uri_hash($uri) {
if (offset(':', $uri) === 0) { return ""; }
$uri = explode(':', $uri, 2);
if (!ctype_uri_scheme($uri[0])) { return ""; }
return $uri[1];
}
// returns e.g. ttk.me
function hostname_of_uri($uri) {
$uri = explode('/', $uri, 4);
if (count($uri) > 2) {
$uri = $uri[2];
if (offset(':', $uri) !== 0) {
$uri = explode(':', $uri, 2);
$uri = $uri[0];
}
return $uri;
}
return '';
}
function sld_of_uri($uri) {
$uri = hostname_of_uri($uri);
$uri = explode('.', $uri);
if (count($uri) > 1) {
return $uri[count($uri) - 2];
}
return "";
}
function path_of_uri($uri) {
$uri = explode('/', $uri, 4);
if (count($uri) > 3) {
$uri = array_slice($uri, 3);
$uri = strcat('/', implode('/', $uri));
if (offset('?', $uri) !== 0) {
$uri = explode('?', $uri, 2);
$uri = $uri[0];
}
if (offset('#', $uri) !== 0) {
$uri = explode('#', $uri, 2);
$uri = $uri[0];
}
return $uri;
}
return '/';
}
function is_http_uri($uri) {
$uri = explode(":", $uri, 2);
return !!strncmp($uri[0], "http", 4);
}
// -------------------------------------------------------------------
// compat as of 2011-149
function webaddresstouri($wa, $addhttp) {
return web_address_to_uri($wa, $addhttp);
}
function uriclean($uri) { return uri_clean($uri); }
// -------------------------------------------------------------------
// hexatridecimal
function num_to_hxt($n) { /// ?> <!-- ///
var $d, $m, $s; /// --> <?php ///
$m = "0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ";
$s = "";
if ($n === undefined || $n === 0) { return "0"; }
while ($n>0) {
$d = $n % 36;
$s = strcat($m[$d], $s);
$n = ($n-$d)/36;
}
return $s;
}
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) { /// ?> <!-- ///
var $c, $i, $j, $n; /// --> <?php ///
$j = strlen($h);
$n = 0;
for ($i=0; $i<$j; $i+=1) { // iterate from first to last char of $h
$c = ord($h[$i]); // put current ASCII of char into $c
if ($c>=48 && $c<=57) { $c=$c-48; } // 0-9
else if ($c>=65 && $c<=90) { $c-=55; } // A-Z
else if ($c>=97 && $c<=122) { $c-=87; } // a-z treat as A-Z
else { $c = 0; } // treat all other noise as 0
$n = 36*$n + $c;
}
return $n;
}
// -------------------------------------------------------------------
// 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) { /// ?> <!-- ///
var $d, $f, $i; /// --> <?php ///
$n = string($n);
$d = 0;
$f = 2;
for ($i=strlen($n)-1; $i>=0; $i-=1) {
$d += $n[$i]*$f;
$f += 1;
}
$d = 11-($d % 11);
if ($d===10) {$d="X";}
else if ($d===11) {$d="0";}
else {$d=string($d);}
return strcat(str_pad_left($n, 9, "0"), $d);
}
// -------------------------------------------------------------------
// 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) {
$n = strpos($h, $n);
if ($n === false) {
return 0;
} else {
return $n+1;
}
}
function contains($h, $n) {
// HyperTalk syntax haystack contains needle: if ("abc" contains "b")
return strpos($h, $n)!==false;
}
function last_character_of($s) {
return (strlen($s) > 0) ? $s[strlen($s)-1] : '';
}
function line_1_of($s) { /// ?> <!-- ///
var $r; /// --> <?php ///
$r = preg_match_1('/^[\\w\\W]*?[\\n\\r]+?/', $s);
if ($r === null) { return $s; }
return substr($r, 0, strlen($r)-1);
}
function delete_line_1_of($s) {
if (preg_match_1('/^[\\w\\W]*?[\\n\\r]+?/', $s) === null) {
return '';
}
return preg_replace_1('/^[\\w\\W]*?[\\n\\r]+?/', '', $s);
}
// -------------------------------------------------------------------
// microformats
// xpath expressions to extract microformats
function xp_has_class($s) {
return strcat("//*[contains(concat(' ',@class,' '),' ",$s," ')]");
}
function xpr_has_class($s) {
return strcat(".//*[contains(concat(' ',@class,' '),' ",$s," ')]");
}
function xp_has_id($s) {
return strcat("//*[@id='", $s, "']");
}
function xp_attr_starts_with($a, $s) {
return strcat("//*[starts-with(@", $a, ",'", $s, "')]");
}
function xp_has_rel($s) {
return strcat("//*[contains(concat(' ',@rel,' '),' ", $s, " ')]");
}
function xpr_has_rel($s) {
return strcat(".//*[contains(concat(' ',@rel,' '),' ", $s, " ')]");
}
function xpr_attr_starts_with_has_rel($a, $s, $r) {
return strcat(".//*[contains(concat(' ',@rel,' '),' ", $r,
" ') and starts-with(@", $a, ",'", $s, "')]");
}
// value class pattern readable date time from ISO8601 datetime
function vcp_dt_readable($d) { /// ?> <!-- ///
var $r; /// --> <?php ///
$d = explode("T", $d);
$r = "";
if (count($d)>1) {
$r = explode("-", $d[1]);
if (count($d)==1) {
$r = explode("+", $d[1]);
}
if (count($d)>1) {
$r = strcat('<time class="value" datetime="',$d[1],'">',
$r[0],'</time> on ');
}
else {
$r = strcat('<time class="value">',$d[1],'</time> on ');
}
}
return strcat($r, '<time class="value">', $d[0], '</time>');
}
// -------------------------------------------------------------------
// compat as of 2011-149
function xphasclass($s) { return xp_has_class($s); }
function xprhasclass($s) { return xpr_has_class($s); }
function xphasid($s) { return xp_has_id($s); }
function xpattrstartswith($a, $s) {
return xp_attr_starts_with($a, $s);
}
function xphasrel($s) { return xp_has_rel($s); }
function xprhasrel($s) { return xpr_has_rel($s); }
function xprattrstartswithhasrel($a, $s, $r) {
return xpr_attr_starts_with_has_rel($a, $s, $r);
}
function vcpdtreadable($d) { return vcp_dt_readable($d); }
// -------------------------------------------------------------------
// whistle
// algorithmic URL shortener core
// YYYY/DDD/tnnn to tdddss
// ordinal date, type, decimal #, to sexagesimal epoch days, sexagesimal #
function whistle_short_path($p) {
return strcat(substr($p, 9, 1),
((substr($p, 9, 1)!=='t') ? "/" : ""),
yd_to_sdf(substr($p, 0, 8), 3),
num_to_sxg(substr($p, 10, 3)));
}
// -------------------------------------------------------------------
// falcon
function html_unesc_amp_only($s) {
return str_ireplace('&amp;', '&', $s);
}
function html_esc_amper_once($s) {
return str_ireplace('&', '&amp;', html_unesc_amp_only($s));
}
function html_esc_amp_ang($s) {
return str_ireplace('<', '&lt;',
str_ireplace('>', '&gt;', html_esc_amper_once($s)));
}
function ellipsize_to_word($s, $max, $e, $min) { /// ?> <!-- ///
var $elen, $i, $slen; /// --> <?php ///
if (strlen($s)<=$max) {
return $s; // no need to ellipsize
}
$elen = strlen($e);
$slen = $max-$elen;
// if last characters before $max+1 are ': ', truncate w/o ellipsis.
// no need to take length of ellipsis into account
if ($e==='...') {
for ($i=1; $i<=$elen+1; $i+=1) {
if (substr($s, $max-$i, 2)===': ') {
return substr($s, 0, $max-$i+1);
}
}
}
if ($min) {
// if a non-zero minimum is provided, then
// find previous space or word punctuation to break at.
// do not break at %`'"&.!?^ - reasons why to be documented.
while ($slen>$min &&
!contains('@$ -~*()_+[]{}|;,<>', $s[$slen-1])) {
$slen-=1;
}
}
// at this point we've got a min length string,
// only do minimum trimming necessary to avoid a punctuation error.
// trim slash after colon or slash
if ($s[$slen-1]==='/' && $slen > 2) {
if ($s[$slen-2]===':') {
$slen-=1;
}
if ($s[$slen-2]==='/') {
$slen-=2;
}
}
//if trimmed at a ":" in a URL, trim the whole thing
//or trimmed at "http", trim the whole URL
if ($s[$slen-1]===':' && $slen > 5 &&
substr($s, $slen-5, 5)==='http:') {
$slen -= 5;
} else if ($s[$slen-1]==='p' && $slen > 4 &&
substr($s, $slen-4, 4)==='http') {
$slen -= 4;
} else if ($s[$slen-1]==='t' && $slen > 4 &&
(substr($s, $slen-3, 4)==='http' ||
substr($s, $slen-3, 4)===' htt')) {
$slen -= 3;
} else if ($s[$slen-1]==='h' && $slen > 4 &&
substr($s, $slen-1, 4)==='http') {
$slen -= 1;
}
//if char immediately before ellipsis would be @$ then trim it
if ($slen > 0 && contains('@$', $s[$slen-1])) {
$slen-=1;
}
//if char before ellipsis would be sentence terminator, trim 2 more
while ($slen > 1 && contains('.!?', $s[$slen-1])) {
$slen-=2;
}
// trim extra whitespace before ellipsis down to one space
if ($slen > 2 && contains("\n\r ", $s[$slen-1])) {
while (contains("\n\r ", $s[$slen-2]) && $slen > 2) {
--$slen;
}
}
if ($slen < 1) { // somehow shortened too much
return $e; // or ellipsis by itself exceeded max, return ellipsis.
}
// if last two chars are ': ', omit ellipsis.
if ($e==='...' && substr($s, $slen-2, 2)===': ') {
return substr($s, 0, $slen);
}
return strcat(substr($s, 0, $slen), $e);
}
function trim_leading_urls($s) {
// deliberately trim URLs with explicit http: / https: from start
// keep schemeless URLs, @-names as expected user-visible text
// if empty or just space after trimming, just return original
$r = trim($s);
while (substr($r, 0, 5) == 'http:' || substr($r, 0, 6) == 'https:')
{
$ws = offset(' ', $r);
$rs = offset("\r", $r);
if ($rs == 0) { $rs = offset("\n", $r); }
if ($rs != 0 && $rs < $ws) { $ws = $rs; }
if ($ws == 0) { return $s; }
$r = substr($r, $ws, strlen($r)-$ws);
}
$r = trim($r);
return ((strlen($r) > 0) ? $r : $s);
}
function auto_space($s) {
// replace linebreaks with <br class="auto-break"/>
// and one leading space with &nbsp;
// replace " " with " &nbsp;"
// replace leading spaces (on a line or before spaces) with nbsp;
if ($s[0] === ' ') {
$s = strcat('&#xA0;', substr($s, 1, strlen($s)-1));
}
return str_ireplace(array("\r\n", "\r", "\n ", "\n", " "),
array("\n", "\n", '<br class="auto-break"/>&#xA0;',
'<br class="auto-break"/>',
' &#xA0;'),
$s);
}
function auto_link_re() {
return '/(?:\\@[_a-zA-Z0-9]{1,17})|(?:(?:(?:(?:http|https|irc)?:\\/\\/(?:(?:[!$&-.0-9;=?A-Z_a-z]|(?:\\%[a-fA-F0-9]{2}))+(?:\\:(?:[!$&-.0-9;=?A-Z_a-z]|(?:\\%[a-fA-F0-9]{2}))+)?\\@)?)?(?:(?:(?:[a-zA-Z0-9][-a-zA-Z0-9]*\\.)+(?:(?:aero|arpa|asia|a[cdefgilmnoqrstuwxz])|(?:biz|b[abdefghijmnorstvwyz])|(?:cat|com|coop|c[acdfghiklmnoruvxyz])|d[ejkmoz]|(?:edu|e[cegrstu])|f[ijkmor]|(?:gov|g[abdefghilmnpqrstuwy])|h[kmnrtu]|(?:info|int|i[delmnoqrst])|j[emop]|k[eghimnrwyz]|l[abcikrstuvy]|(?:mil|museum|m[acdeghklmnopqrstuvwxyz])|(?:name|net|n[acefgilopruz])|(?:org|om)|(?:pro|p[aefghklmnrstwy])|qa|r[eouw]|(?:space|s[abcdeghijklmnortuvyz])|(?:tel|travel|t[cdfghjklmnoprtvwz])|u[agkmsyz]|v[aceginu]|(?:wtf|w[fs])|xyz|y[etu]|z[amw]))|(?:(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[1-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])\\.(?:25[0-5]|2[0-4][0-9]|[0-1][0-9]{2}|[1-9][0-9]|[0-9])))(?:\\:\\d{1,5})?)(?:\\/(?:(?:[!#&-;=?-Z_a-z~])|(?:\\%[a-fA-F0-9]{2}))*)?)(?=\\b|\\s|$)/';
// ccTLD compressed regular expression clauses (re)created.
// .mobi .jobs deliberately excluded to discourage layer violations.
// see http://flic.kr/p/2kmuSL for more on the problematic new gTLDs
// part of $re derived from Android Open Source Project, Apache 2.0
// with a bunch of subsequent fixes/improvements (e.g. ttk.me/t44H2)
// thus auto_link_re is also Apache 2.0 licensed
// http://www.apache.org/licenses/LICENSE-2.0
// - Tantek 2010-046 (moved to auto_link_re 2012-062)
}
// auto_link: param 1: text;
// optional: param 2: do embeds or not (false),
// param 3: do auto_links or not (true)
// auto_link is idempotent, works on plain text or typical markup.
function auto_link() {
/// ?> <!-- ///
var $args, $afterchar, $afterlink, $do_embed, $fe, $i, $isjs,
$mi, $mlen, $ms, $re,
$sp, $spe, $spliti, $t, $wmi, $yvid;
/// --> <?php ///
$isjs = js();
$args = $isjs ? arguments : func_get_args();
if (count($args) === 0) {
return '';
}
$t = $args[0];
$do_embed = (count($args) > 1) && ($args[1]!==false);
$do_link = (count($args) < 3) || ($args[2]!==false);
$re = auto_link_re();
$ms = preg_matches($re, $t);
if (!$ms) {
return $t;
}
$mlen = count($ms);
$sp = preg_split($re, $t);
$t = "";
$sp[0] = string($sp[0]); // force undefined to ""
for ($i=0; $i<$mlen; $i+=1) {
$mi = $ms[$i];
$spliti = $sp[$i];
$t = strcat($t, $spliti);
$sp[$i+1] = string($sp[$i+1]); // force undefined to ""
if (substr($sp[$i+1], 0, 1)==='/') { //regex omits end/ before </a
$sp[$i+1] = substr($sp[$i+1], 1, strlen($sp[$i+1])-1);
$mi = strcat($mi, '/'); // include / in the match
}
$spe = substr($spliti, -2, 2);
// avoid 2x-linking, don't link CSS @-rules, attr values, asciibet
if ((!$spe || !preg_match('/(?:\\=[\\"\\\']?|t;)/', $spe)) &&
substr(trim($sp[$i+1]), 0, 3)!=='</a' &&
(!contains(
'@charset@font@font-face@import@media@namespace@page@ABCDEFGHIJKLMNOPQ@',
strcat($mi, '@')))) {
$afterlink = '';
$afterchar = substr($mi, -1, 1);
while (contains('.!?,;"\')]}', $afterchar) && // trim punc from
($afterchar!==')' || !contains($mi,'('))) { // 1 () pair
$afterlink = strcat($afterchar, $afterlink);
$mi = substr($mi, 0, -1);
$afterchar = substr($mi, -1, 1);
}
$fe = 0;
if ($do_embed) {
$fe = strtolower(
(substr($mi, -4, 1)==='.') ? substr($mi, -4, 4)
: substr($mi, -5, 5));
}
$wmi = web_address_to_uri($mi, true);
$prot = protocol_of_uri($wmi);
$hn = hostname_of_uri($wmi);
$pa = path_of_uri($wmi);
$ih = is_http_uri($wmi);
$ahref = '<span class="figure" style="text-align:left">';
$enda = '</span>';
if ($do_link) {
$ahref = strcat('<a class="auto-link figure" href="',
$wmi, '">');
$enda = '</a>';
}
if ($fe &&
($fe === '.jpeg' || $fe === '.jpg' || $fe === '.png' ||
$fe === '.gif' || $fe === '.svg')) {
$alt = strcat('a ',
(offset('photo', $mi) != 0) ? 'photo'
: substr($fe, 1));
$t = strcat($t, $ahref, '<img class="auto-embed" alt="',
$alt, '" src="', $wmi, '"/>', $enda, $afterlink);
} else if ($fe &&
($fe === '.mp4' || $fe === '.mov' ||
$fe === '.ogv' || $fe === '.webm'))
{
$t = strcat($t, $ahref, '<video class="auto-embed" ',
'controls="controls" src="', $wmi, '"></video>',
$enda, $afterlink);
} else if ($hn === 'vimeo.com'
&& ctype_digit(substr($pa, 1))) {
if ($do_link) {
$t = strcat($t, '<a class="auto-link" href="',
'https:', relative_uri_hash($wmi),
'">', $mi, '</a> ');
}
$t = strcat($t, '<iframe class="vimeo-player auto-embed figure" width="480" height="385" style="border:0" src="', 'https://player.vimeo.com/video/',
substr($pa, 1), '"></iframe>',
$afterlink);
} else if ($hn === 'youtu.be' ||
(($hn === 'youtube.com' || $hn === 'www.youtube.com')
&& ($yvid = offset('watch?v=', $mi)) !== 0)) {
if ($hn === 'youtu.be') {
$yvid = substr($pa, 1);
} else {
$yvid = explode('&', substr($mi, $yvid+7));
$yvid = $yvid[0];
}
if ($do_link) {
$t = strcat($t, '<a class="auto-link" href="',
'https:', relative_uri_hash($wmi),
'">', $mi, '</a> ');
}
$t = strcat($t, '<iframe class="youtube-player auto-embed figure" width="480" height="385" style="border:0" src="', 'https://www.youtube.com/embed/',
$yvid, '"></iframe>',
$afterlink);
} else if ($mi[0] === '@' && $do_link) {
if ($sp[$i+1][0] === '.' &&
$spliti != '' &&
ctype_email_local(substr($spliti, -1, 1))) {
// if email address, simply append info, no linking
$t = strcat($t, $mi, $afterlink);
}
else {
// treat it as a Twitter @-username reference and link it
$t = strcat($t, '<a class="auto-link h-x-username" href="',
$wmi, '">', $mi, '</a>',
$afterlink);
}
} else if ($do_link) {
$t = strcat($t, '<a class="auto-link" href="',
$wmi, '">', $mi, '</a>',
$afterlink);
} else {
$t = strcat($t, $mi, $afterlink);
}
} else {
$t = strcat($t, $mi);
}
}
return strcat($t, $sp[$mlen]);
}
// returns array of URLs after literal "in-reply-to:" in text
function get_in_reply_to_urls($s) {
/// ?> <!-- ///
var $irtn, $r, $re, $i, $j,
$ms, $sp, $afterlink, $ac;
/// --> <?php ///
$s = explode('in-reply-to: ', $s);
$irtn = count($s);
if ($irtn < 2) { return array(); }
$r = array();
$re = auto_link_re();
for ($i=1; $i<$irtn; $i++) {
// iterate through all strings after an 'in-reply-to: ' for URLs
$ms = preg_matches($re, $s[$i]);
$msn = count($ms);
if ($ms) {
$sp = preg_split($re, $s[$i]);
$j = 0;
$afterlink = '';
while ($j<$msn &&
$afterlink == '' &&
($sp[$j] == '' || ctype_space($sp[$j]))) {
// iterate through space separated URLs and add them to $r
$m = $ms[$j];
if ($m[0] != '@') { // skip @-references
$ac = substr($m, -1, 1);
while (contains('.!?,;"\')]}', $ac) && // trim punc @ end
($ac != ')' || !contains($m, '('))) {
// allow one paren pair
// *** not sure twitter is this smart
$afterlink = strcat($ac, $afterlink);
$m = substr($m, 0, -1);
$ac = substr($m, -1, 1);
}
if (substr($m, 0, 6) === 'irc://') {
// skip it. no known use of in-reply-to an IRC URL
} else {
$r[count($r)] = webaddresstouri($m, true);
}
}
$j++;
}
}
}
return $r;
}
// Twitter POSSE support
// replace URLs with https://j.mp/0011235813 to mimic Twitter's t.co
function tw_text_proxy() {
/// ?> <!-- ///
var $args, $afterchar, $afterlink, $i, $isjs,
$mlen, $ms, $re,
$sp, $spe, $spliti, $prot, $proxy_url;
/// --> <?php ///
$isjs = js();
$args = $isjs ? arguments : func_get_args();
if (count($args) === 0) {
return '';
}
$t = $args[0];
$re = auto_link_re();
$ms = preg_matches($re, $t);
if (!$ms) {
return $t;
}
$mlen = count($ms);
$sp = preg_split($re, $t);
$t = "";
$sp[0] = string($sp[0]); // force undefined to ""
for ($i=0; $i<$mlen; $i++) {
$mi = $ms[$i];
$spliti = $sp[$i];
$t = strcat($t, $spliti);
$sp[$i+1] = string($sp[$i+1]); // force undefined to ""
if (substr($sp[$i+1], 0, 1)=='/') { // regex omits '/' before </a
$sp[$i+1] = substr($sp[$i+1], 1, strlen($sp[$i+1])-1);
$mi = strcat($mi, '/'); // explicitly include in match
}
$spe = substr($spliti, -2, 2);
// don't proxy @-names, plain ccTLDs
if ($mi[0]!='@' &&
(substr($mi, -3, 1) !== '.' || substr_count($mi, '.') > 1)) {
$afterlink = '';
$afterchar = substr($mi, -1, 1);
while (contains('.!?,;"\')]}', $afterchar) && // trim punc @ end
($afterchar !== ')' || !contains($mi, '('))) {
// allow one paren pair
// *** not sure twitter is this smart
$afterlink = strcat($afterchar, $afterlink);
$mi = substr($mi, 0, -1);
$afterchar = substr($mi, -1, 1);
}
$prot = protocol_of_uri($mi);
$proxy_url = '';
if ($prot === 'irc:') {
$proxy_url = $mi; // Twitter doesn't tco irc: URLs
} else { /* 'https:', 'http:' or presumed for schemeless URLs */
$proxy_url = 'https://j.mp/0011235813';
}
$t = strcat($t, $proxy_url, $afterlink);
}
else {
$t = strcat($t, $mi);
}
}
return strcat($t, $sp[$mlen]);
}
// note_length_check:
// checks if $note fits in $maxlen characters.
// if $username is non-empty, checks if RT'd $note fits in $maxlen
// 0 - bad params or other precondition failure error
// 200 - exactly fits max characters with RT if username provided
// 206 - less than max chars with RT if username provided
// 207 - more than RT safe length, but less than tweet max
// 208 - tweet max length but with RT would be over
// 413 - (entity too large) over max tweet length
// strlen('RT @: ') === 6.
function note_length_check($note, $maxlen, $username) {
/// ?> <!-- ///
var $note_size_chk_u, $note_size_chk_n;
/// --> <?php ///
if ($maxlen < 1) { return 0; }
$note_size_chk_u = $username ? 6 + strlen(string($username)) : 0;
$note_size_chk_n = strlen(string($note)) + $note_size_chk_u;
if ($note_size_chk_n === $maxlen) { return 200; }
if ($note_size_chk_n < $maxlen) { return 206; }
if ($note_size_chk_n - $note_size_chk_u < $maxlen) { return 207; }
if ($note_size_chk_n - $note_size_chk_u === $maxlen) { return 208; }
return 413;
}
function tw_length_check($t, $maxlen, $username) {
return note_length_check(tw_text_proxy($t),
$maxlen, $username);
}
function tw_url_to_status_id($u) {
// $u - tweet permalink url
// returns tweet status id string; 0 if not a tweet permalink.
if (!$u) return 0;
$u = explode("/", string($u)); // https:,,twitter.com,t,status,nnn
if ($u[2] != "twitter.com" ||
$u[4] != "status" ||
!ctype_digit($u[5])) {
return 0;
}
return $u[5];
}
function tw_url_to_username($u) {
// $u - tweet permalink url
// returns twitter username; 0 if not a tweet permalink.
if (!$u) return 0;
$u = explode("/", string($u)); // https:,,twitter.com,t,status,nnn
if ($u[2] != "twitter.com" ||
$u[4] != "status" ||
!ctype_digit($u[5])) {
return 0;
}
return $u[3];
}
function fb_url_to_event_id($u) {
// $u - fb event permalink url
// returns fb event id string; 0 if not a fb event permalink.
if (!$u) return 0;
$u = explode("/", string($u)); // https:,,fb.com,events,nnn
if (($u[2] != "fb.com" && $u[2] != "facebook.com" &&
$u[2] != "www.facebook.com") ||
$u[3] != "events" ||
!ctype_digit($u[4])) {
return 0;
}
return $u[4];
}
// ===================================================================
// end CASSIS v0.1, cassis.js
// ?> -->