DZone Snippets: jonas code

Find files in previous folders with mod_rewrite

jonasraoni (Jonas Raoni Soares Silva) — Mon, 08 Sep 2008 18:38:43 GMT

It recursively goes up in the directories structure until it finds the requested file name or fails with status 404



RewriteEngine On

RewriteCond %{REQUEST_FILENAME} !-f

RewriteCond %{REQUEST_FILENAME} !-d

	RewriteRule ^[^/]*/(.*) $1

Assuming the file "/test/x.txt" exists, when requesting the url "/test/blabla/folder/xyz/x.txt", it will go up until finding the requested file:
/test/blabla/folder/x.txt
/test/blabla/x.txt
/test/x.txt (found...)

Thread Process //Pascal class

jonasraoni (Jonas Raoni Soares Silva) — Mon, 07 Jul 2008 07:25:12 GMT

A thread class to open processes on windows and retrieve its output (input isn't supported but it's easy to add).



unit Process;



interface



uses

  SysUtils, Windows, Classes, TLHelp32;



const

  INITIALIZATION_TIMEOUT = 10000;



type

  TStringArray = array of string;

  TProcessArray = array of Cardinal;

  TExceptionEvent = procedure(Sender: TObject; Exception: Exception) of object;

  EProcessError = class(Exception);



  TProcessThread = class(TThread)

  private

    FException: Exception;

    FWatching, FStarted, FSuspended: Boolean;

    FDirectory, FPath, FCommandLine, FEnvironment: PChar;

    FData: string;

    FOnProcessTerminated, FOnDataAvailable: TNotifyEvent;

    InputRead, InputWrite, OutputRead, OutputWrite: THandle;

    FMainProcess: PROCESS_INFORMATION;

    FOnException: TExceptionEvent;

    FOnProcessStarted: TNotifyEvent;

    function GetPriority: TThreadPriority;

    procedure SetPriority(const Value: TThreadPriority);

    procedure FreeResources;

  protected

    procedure CallDataAvailable; virtual;

    procedure CallProcessTerminated; virtual;

    procedure CallProcessOpened; virtual;

    procedure CallException; virtual;

    procedure Execute; override;

  public

    constructor Create(Path, CommandLine, Directory: string; Environment: TStrings = nil; Watch: Boolean = True);

    destructor Destroy; override;



    function IsProcessAlive: Boolean;

    procedure Resume;

    procedure Suspend;

    property OnDataAvailable: TNotifyEvent read FOnDataAvailable write FOnDataAvailable;

    property OnProcessTerminated: TNotifyEvent read FOnProcessTerminated write FOnProcessTerminated;

    property OnProcessStarted: TNotifyEvent read FOnProcessStarted write FOnProcessStarted;

    property OnException: TExceptionEvent read FOnException write FOnException;

    property Data: string read FData;

    property Process: PROCESS_INFORMATION read FMainProcess;

    property Priority: TThreadPriority read GetPriority write SetPriority;



  end;



  TProcessLineThread = class;

  TOnNewLineEvent = procedure(ProcessLine:  TProcessLineThread; const Line: string) of object;

  TProcessLineThread = class(TProcessThread)

  private

    FCurrentLine: string;

    FOnNewLine: TOnNewLineEvent;

    procedure DataAvailable(Sender: TObject);

    procedure Finished(Sender: TObject);

  public

    constructor Create(Path, CommandLine, Directory: string; Environment: TStrings = nil);

    property OnNewLine: TOnNewLineEvent read FOnNewLine write FOnNewLine;

  end;



function KillProcess(const Process: Cardinal): Boolean;

function GetChildrenProcesses(const Process: Cardinal; const IncludeParent: Boolean = True): TProcessArray;



implementation



const

  Priorities: array [TThreadPriority] of Integer =

   (THREAD_PRIORITY_IDLE, THREAD_PRIORITY_LOWEST, THREAD_PRIORITY_BELOW_NORMAL,

    THREAD_PRIORITY_NORMAL, THREAD_PRIORITY_ABOVE_NORMAL,

    THREAD_PRIORITY_HIGHEST, THREAD_PRIORITY_TIME_CRITICAL);



function GetChildrenProcesses(const Process: Cardinal; const IncludeParent: Boolean): TProcessArray;

var

  Snapshot: Cardinal;

  ProcessList: PROCESSENTRY32;

  Current: Integer;

begin

  Current := 0;

  SetLength(Result, 1);

  Result[0] := Process;

  repeat

    ProcessList.dwSize := SizeOf(PROCESSENTRY32);

    Snapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

    if (Snapshot = INVALID_HANDLE_VALUE) or not Process32First(Snapshot, ProcessList) then

      Continue;

    repeat

      if ProcessList.th32ParentProcessID = Result[Current] then

      begin

        SetLength(Result, Length(Result) + 1);

        Result[Length(Result) - 1] := ProcessList.th32ProcessID;

      end;

    until Process32Next(Snapshot, ProcessList) = False;

    Inc(Current);

  until Current >= Length(Result);

  if not IncludeParent then

    Result := Copy(Result, 2, Length(Result));

end;



function KillProcess(const Process: Cardinal): Boolean;

var

  Handle: Cardinal;

  List: TProcessArray;

  I: Integer;

begin

  Result := True;

  List := GetChildrenProcesses(Process);

  for I := Length(List) - 1 downto 0 do

    if Result then

    begin

      Handle := OpenProcess(PROCESS_TERMINATE, false, List[I]);

      Result := (Handle <> 0) and TerminateProcess(Handle, 0) and CloseHandle(Handle);

    end;

end;



{ TProcessThread }



procedure TProcessThread.CallDataAvailable;

begin

  if Assigned(FOnDataAvailable) then

    FOnDataAvailable(Self);

end;



procedure TProcessThread.Resume;

var

  SuspendCount: Integer;

begin

  if FStarted then

  begin

    FStarted := True;

    SuspendCount := ResumeThread(FMainProcess.hThread);

    CheckThreadError(SuspendCount >= 0);

    if SuspendCount = 1 then

      FSuspended := False;

  end;

  inherited Resume;

end;



function TProcessThread.GetPriority: TThreadPriority;

begin

  if FStarted then

  begin

    CheckThreadError(GetThreadPriority(FMainProcess.hThread) <> THREAD_PRIORITY_ERROR_RETURN);

  end;

  Result := inherited Priority;

end;



function TProcessThread.IsProcessAlive: Boolean;

var

  Status: Cardinal;

begin

  GetExitCodeProcess(FMainProcess.hProcess, Status);

  Result := Status = STILL_ACTIVE;

end;



procedure TProcessThread.SetPriority(const Value: TThreadPriority);

begin

  if FStarted then

    CheckThreadError(SetThreadPriority(FMainProcess.hThread, Priorities[Value]));

  inherited Priority := Value;

end;



procedure TProcessThread.Suspend;

var

  OldSuspend: Boolean;

begin

  if FStarted then

  begin

    OldSuspend := FSuspended;

    try

      FSuspended := True;

      CheckThreadError(Integer(SuspendThread(FMainProcess.hThread)) >= 0);

    except

      FSuspended := OldSuspend;

      raise;

    end;

  end;

  inherited Suspend;

end;





procedure TProcessThread.CallException;

begin

  if Assigned(FOnException) then

    FOnException(Self, FException);

end;



procedure TProcessThread.CallProcessOpened;

begin

  if Assigned(FOnProcessStarted) then

    FOnProcessStarted(Self);

end;



procedure TProcessThread.CallProcessTerminated;

begin

  if Assigned(FOnProcessTerminated) then

    FOnProcessTerminated(Self);

end;



constructor TProcessThread.Create(Path, CommandLine, Directory: string; Environment: TStrings; Watch: Boolean);

var

  Len, I: Integer;

begin

  inherited Create(True);



  if (Length(CommandLine) > 0) and (Length(Path) > 0) then

    CommandLine := ' ' + CommandLine;



  if Length(Path) > 0 then

  begin

    GetMem(FPath, Length(Path) + 1);

    StrCopy(FPath, PChar(Path));

  end;

  if Length(CommandLine) > 0 then

  begin

    GetMem(FCommandLine, Length(CommandLine) + 1);

    StrCopy(FCommandLine, PChar(CommandLine));

  end;



  if Length(Directory) > 0 then

  begin

    GetMem(FDirectory, Length(Directory) + 1);

    StrCopy(FDirectory, PChar(Directory));

  end;



  FWatching := Watch;



  if Assigned(Environment) then

  begin

    GetMem(FEnvironment, 1);

    Len := 1;

    for I := 0 to Environment.Count - 1 do

    begin

      Inc(Len, Length(Environment[I]) + 1);

      ReallocMem(FEnvironment, Len);

      SetEnvironmentVariable(PChar(Environment.Names[I]), PChar(Environment.ValueFromIndex[I]));

      StrCopy(FEnvironment + Len - Length(Environment[I]) - 2, PChar(Environment[I]));

    end;

    (FEnvironment + Len - 1)^ := #0;

    FreeMem(FEnvironment);

    FEnvironment := nil;

  end;

end;



destructor TProcessThread.Destroy;

begin

  FreeMem(FPath);

  FreeMem(FCommandLine);

  FreeMem(FDirectory);

  FreeResources;

  if Assigned(FEnvironment) then

    FreeMem(FEnvironment);

  inherited;

end;



procedure TProcessThread.Execute;

const

  MAX_BUFFER = 512 * 1024;

var

  MaxBytes, Available, BytesRead: Cardinal;

  Buffer: array[0..MAX_BUFFER] of Char;



  function Read: Boolean;

  begin

    Result := True;

    FillChar(Buffer, MAX_BUFFER, #0);

    PeekNamedPipe(OutputRead, @Buffer, MAX_BUFFER, @BytesRead, @Available, nil);



    if BytesRead < MAX_BUFFER then

    begin

      MaxBytes := BytesRead;

    end

    else

      MaxBytes := MAX_BUFFER;



    if MaxBytes > 0 then

      if ReadFile(OutputRead, Buffer, MaxBytes, BytesRead, nil) then

      begin

        if BytesRead > 0 then

        begin

          FData := StrPas(Buffer);

          Synchronize(CallDataAvailable);

        end;

      end

      else

        Result := False;

  end;



var

  Startup: STARTUPINFO;

  SecurityDescriptor: SECURITY_DESCRIPTOR;

  SecurityAttributes: SECURITY_ATTRIBUTES;

begin

  try

    ZeroMemory(@Startup, SizeOf(STARTUPINFO));

    Startup.cb := SizeOf(STARTUPINFO);

    ZeroMemory(@SecurityDescriptor, SizeOf(SECURITY_DESCRIPTOR));

    ZeroMemory(@SecurityAttributes, SizeOf(SECURITY_ATTRIBUTES));

    InputRead := 0;

    InputWrite := 0;

    OutputRead := 0;

    OutputWrite := 0;



    if Win32Platform = VER_PLATFORM_WIN32_NT then

    begin

      InitializeSecurityDescriptor(@SecurityDescriptor, SECURITY_DESCRIPTOR_REVISION);

      SetSecurityDescriptorDacl(@SecurityDescriptor, True, nil, False);

      SecurityAttributes.lpSecurityDescriptor := @SecurityDescriptor;

    end

    else

      SecurityAttributes.lpSecurityDescriptor := nil;

    SecurityAttributes.nLength := SizeOf(SECURITY_ATTRIBUTES);

    SecurityAttributes.bInheritHandle := True;

    if not CreatePipe(OutputRead, OutputWrite, @SecurityAttributes, 0)

    or not CreatePipe(InputRead, InputWrite, @SecurityAttributes, 0) then

      raise EProcessError.Create('Error while opening pipes');



    SetHandleInformation(OutputRead, HANDLE_FLAG_INHERIT, 0);

    SetHandleInformation(InputWrite, HANDLE_FLAG_INHERIT, 0);



    GetStartupInfo(Startup);

    Startup.dwFlags := STARTF_USESHOWWINDOW OR STARTF_USESTDHANDLES;



    Startup.hStdOutput := OutputWrite;

    Startup.hStdError := OutputWrite;

    Startup.hStdInput := InputRead;



    FlushFileBuffers(OutputWrite);

    FlushFileBuffers(OutputRead);

    FlushFileBuffers(InputRead);

    FlushFileBuffers(InputWrite);



    Startup.wShowWindow := SW_HIDE;



    if not CreateProcess(FPath, FCommandLine, nil, nil, True, CREATE_NEW_CONSOLE OR NORMAL_PRIORITY_CLASS, FEnvironment, FDirectory, Startup, FMainProcess) then

      raise EProcessError.Create('Error while starting Process: ' + SysErrorMessage(GetLastError) + ':' + FPath + ':' + FCommandLine + ':' + FDirectory);

    WaitForInputIdle(FMainProcess.hProcess, INITIALIZATION_TIMEOUT);

    FStarted := True;

    SetPriority(GetPriority);

    Synchronize(CallProcessOpened);

    

    if not FWatching then

      Exit;



    repeat

      if not Read then

        Break;

    until not IsProcessAlive or Terminated;

    Read;



    if not IsProcessAlive then

      Synchronize(CallProcessTerminated);

      

  except

    on E: Exception do

    begin

      FException := E;

      Synchronize(CallException);

    end;

  end;

end;



procedure TProcessThread.FreeResources;

begin

  KillProcess(FMainProcess.dwProcessId);



  if OutputRead <> 0 then

  begin

    CloseHandle(OutputRead);

    OutputRead := 0;

  end;

  if OutputWrite <> 0 then

  begin

    CloseHandle(OutputWrite);

    OutputWrite := 0;

  end;

  if InputWrite <> 0 then

  begin

    CloseHandle(InputWrite);

    InputWrite := 0;

  end;

  if InputRead <> 0 then

  begin

    CloseHandle(InputRead);

    InputRead := 0;

  end;

end;



{  TProcessLineThread }



constructor  TProcessLineThread.Create(Path, CommandLine, Directory: string; Environment: TStrings);

begin

  inherited Create(Path, CommandLine, Directory, Environment);

  OnDataAvailable := DataAvailable;

  OnTerminate := Finished;

end;



procedure  TProcessLineThread.DataAvailable(Sender: TObject);

var

  I, L: Integer;

begin

  I := 0;

  L := Length(Data);

  while I < L do

  begin

    Inc(I);

    if Data[I] in [#13, #10] then

    begin

      if (I < L) and (Data[I+1] in [#13, #10]) then

        Inc(I);

      if Assigned(FOnNewLine) then

        FOnNewLine(Self, FCurrentLine);

      FCurrentLine := '';

    end

    else

      FCurrentLine := FCurrentLine + Data[I];

  end;

end;



procedure  TProcessLineThread.Finished(Sender: TObject);

begin

  if (FCurrentLine <> '') and Assigned(FOnNewLine) then

    FOnNewLine(Self, FCurrentLine);

end;



end.

Replace working as PHP str_replace //JavaScript Function

jonasraoni (Jonas Raoni Soares Silva) — Thu, 17 Apr 2008 05:10:07 GMT

Useless JavaScript implementation of the php function str_replace.



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com



function replace(f, r, s){

	var ra = r instanceof Array, sa = s instanceof Array, l = (f = [].concat(f)).length, r = [].concat(r), i = (s = [].concat(s)).length;

	while(j = 0, i--)

		while(s[i] = s[i].split(f[j]).join(ra ? r[j] || "" : r[0]), ++j < l);

	return sa ? s : s[0];

}

Output JavaScript variables from PHP

jonasraoni (Jonas Raoni Soares Silva) — Wed, 09 Apr 2008 23:57:18 GMT

Class with useful static methods for outputting PHP values into JavaScript format.



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com



class JS{

	//generic and maybe not the desired results xD

	function value($o){

		if($o === null)

			return 'null';

		$t = strtolower(gettype($o));

		if($t == 'string' && is_numeric($o) && ($o[0] || strlen($o) == 1) || in_array($t, array('double', 'integer')))

			$t = 'number';

		elseif($t == 'string' && preg_match('@^\d{4}(?:-\d{1,2}){1,2}(?: (?:\d{1,2}:){2}\d{1,2})?$@', $o)) //strtotime works also with "strange" values strtotime('x')

			$t = 'date';

		elseif($t == 'array' && ($c = count($k = array_keys($o))) && $k !== range(0, $c - 1))

			$t = 'object';

		elseif(!in_array($t, array('boolean', 'string', 'array', 'object')))

			$t = 'string';

		$t = 'from' . $t;

		return self::$t($o);

	}

	function fromNumber($o){

		return +$o . '';

	}

	function fromObject($o){

		$r = array();

		foreach($o as $n => $v)

			$r[] = self::fromString($n) . ':' . self::value($v);

		return '{' . implode(',', $r) . '}';

	}

	function fromBoolean($o){

		return $o ? 'true' : 'false';

	}

	//$q = should quote? 

	//$c = char that will be used to quote

	function fromString($o, $q = true, $c = '"'){

		return ($p = $q ? $c : '') . preg_replace('/\r\n|\n\r|\r/', '\n', str_replace($c, '\\' . $c, str_replace('\\', '\\\\', $o))) . $p;

	}

	function fromArray($o){

		$s = '';

		foreach($o as $v)

			$s .= ($s ? ',' : '') . self::value($v);

		return '[' . $s . ']';

	}

	function fromDate($o){

		(is_numeric($o) && $o = +$o) || ($o = strtotime($o)) > 0 || ($o = mktime());

		$o = explode(',', date('Y,n,j,G,i,s', $o));

		foreach($o as $i => $v)

			$o[$i] = +$v;

		return 'new Date(' . implode(',', $o)  . ')';

	}

}

Example



$o = new stdClass;

$o->abc = 123;

echo implode("\n
", array(

	JS::value('1984-07-22 11:30:12'),

	JS::value('Test'),

	JS::value(1234),

	JS::value(true),

	JS::value(array(1,2,3)),

	JS::value(array('lala' => 'x')),

	JS::value($o)

));

Point Inside a Polygon //JavaScript Function

jonasraoni (Jonas Raoni Soares Silva) — Sun, 30 Mar 2008 16:57:56 GMT

Checks whether a point is inside a polygon.
Adapted from: [http://www.ecse.rpi.edu/Homepages/wrf/Research/Short_Notes/pnpoly.html]

[UPDATED CODE AND HELP CAN BE FOUND HERE: Point Inside a Polygon]



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com/math/is-point-in-poly [v1.0]



function isPointInPoly(poly, pt){

	for(var c = false, i = -1, l = poly.length, j = l - 1; ++i < l; j = i)

		((poly[i].y <= pt.y && pt.y < poly[j].y) || (poly[j].y <= pt.y && pt.y < poly[i].y))

		&& (pt.x < (poly[j].x - poly[i].x) * (pt.y - poly[i].y) / (poly[j].y - poly[i].y) + poly[i].x)

		&& (c = !c);

	return c;

}

Example

UTF-8 Converter //JavaScript Object

jonasraoni (Jonas Raoni Soares Silva) — Sun, 30 Mar 2008 16:52:18 GMT

Converts a sequence of ANSI characters to UTF-8 and vice-versa.

[UPDATED CODE AND HELP CAN BE FOUND HERE]



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com/geral/utf-8 [v1.0]



UTF8 = {

	encode: function(s){

		for(var c, i = -1, l = (s = s.split("")).length, o = String.fromCharCode; ++i < l;

			s[i] = (c = s[i].charCodeAt(0)) >= 127 ? o(0xc0 | (c >>> 6)) + o(0x80 | (c & 0x3f)) : s[i]

		);

		return s.join("");

	},

	decode: function(s){

		for(var a, b, i = -1, l = (s = s.split("")).length, o = String.fromCharCode, c = "charCodeAt"; ++i < l;

			((a = s[i][c](0)) & 0x80) &&

			(s[i] = (a & 0xfc) == 0xc0 && ((b = s[i + 1][c](0)) & 0xc0) == 0x80 ?

			o(((a & 0x03) << 6) + (b & 0x3f)) : o(128), s[++i] = "")

		);

		return s.join("");

	}

};

Example



var s = "aáéíóúe";

document.write(

	('UTF8.encode("' + s + '") = ').bold(), UTF8.encode(s), "
",

	('UTF8.decode(UTF8.encode("' + s + '"))) = ').bold(), UTF8.decode(UTF8.encode(s))

);

TimeLine //JavaScript Class

jonasraoni (Jonas Raoni Soares Silva) — Sun, 30 Mar 2008 16:49:21 GMT

Simulates the Adobe Flash timeline. You define the amount of frames, the speed in fps (frames per second) and, at each frame passage an event is called, useful for animations.

[UPDATED CODE AND HELP CAN BE FOUND HERE]



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com/classes/timeline [v1.0]



TimeLine = function(fps, f){

	this.fps = fps, this.frames = f;

};

with({o: TimeLine, $: TimeLine.prototype}){

	o.timers = [];

	$.running = !!($.current = +(o.timer = $.time = null));

	o.run = function(){

		var o = this;

		o.timer || (o.timer = setInterval(function(){

			for(var h, d = +(new Date), t = o.timers, i = t.length; i--;){

				(!t[i].running || ((d - t[i].time) / (1e3 / t[i].fps) > t[i].current + 1 &&

				t[i].onframe(++t[i].current), t[i].current >= t[i].frames)) &&

				(h = t.splice(i, 1)[0], h.stop(1));

			}

		}, 1));

	};

	$.start = function(c){

		var o = this, t = TimeLine;

		if(o.running) return;

		o.running = true, o.current = c || 0;

		o.time = new Date, o.onstart && o.onstart();

		if(!o.onframe || o.frames <= 0 || o.fps <= 0)

			return o.stop(1);

		t.timers.push(this), t.run();

	};

	$.stop = function(){

		var o = this;

		o.running = false;

		if(!TimeLine.timers.length)

			TimeLine.timer = clearInterval(TimeLine.timer), null;

		arguments.length && o.onstop && o.onstop();

	};

}

Example





25 fps

12 fps



TimeLine working together with the ease in quad function.

Selection //JavaScript Class

jonasraoni (Jonas Raoni Soares Silva) — Sat, 06 Oct 2007 15:02:21 GMT

Retrieves and sets the cursor position, as well the selected text of inputs and textareas. After searching, I saw it's the only code which retrieves right information in textareas under Internet Explorer without damaging the "Ctrl+Z"

[UPDATED CODE AND HELP CAN BE FOUND HERE]



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com/forms/selection [v1.0]



Selection = function(input){

	this.isTA = (this.input = input).nodeName.toLowerCase() == "textarea";

};

with({o: Selection.prototype}){

	o.setCaret = function(start, end){

		var o = this.input;

		if(Selection.isStandard)

			o.setSelectionRange(start, end);

		else if(Selection.isSupported){

			var t = this.input.createTextRange();

			end -= start + o.value.slice(start + 1, end).split("\n").length - 1;

			start -= o.value.slice(0, start).split("\n").length - 1;

			t.move("character", start), t.moveEnd("character", end), t.select();

		}

	};

	o.getCaret = function(){

		var o = this.input, d = document;

		if(Selection.isStandard)

			return {start: o.selectionStart, end: o.selectionEnd};

		else if(Selection.isSupported){

			var s = (this.input.focus(), d.selection.createRange()), r, start, end, value;

			if(s.parentElement() != o)

				return {start: 0, end: 0};

			if(this.isTA ? (r = s.duplicate()).moveToElementText(o) : r = o.createTextRange(), !this.isTA)

				return r.setEndPoint("EndToStart", s), {start: r.text.length, end: r.text.length + s.text.length};

			for(var $ = "[###]"; (value = o.value).indexOf($) + 1; $ += $);

			r.setEndPoint("StartToEnd", s), r.text = $ + r.text, end = o.value.indexOf($);

			s.text = $, start = o.value.indexOf($);

			if(d.execCommand && d.queryCommandSupported("Undo"))

				for(r = 3; --r; d.execCommand("Undo"));

			return o.value = value, this.setCaret(start, end), {start: start, end: end};

		}

		return {start: 0, end: 0};

	};

	o.getText = function(){

		var o = this.getCaret();

		return this.input.value.slice(o.start, o.end);

	};

	o.setText = function(text){

		var o = this.getCaret(), i = this.input, s = i.value;

		i.value = s.slice(0, o.start) + text + s.slice(o.end);

		this.setCaret(o.start += text.length, o.start);

	};

	new function(){

		var d = document, o = d.createElement("input"), s = Selection;

		s.isStandard = "selectionStart" in o;

		s.isSupported = s.isStandard || (o = d.selection) && !!o.createRange();

	};

}

Example





	

		Selection Test

		<br />www.jsfromhell.com
<br />Jonas Carlos Lalala
<br />Bin Laden x Bush
<br />

CSV Parser / Writer for PHP

jonasraoni (Jonas Raoni Soares Silva) — Mon, 11 Dec 2006 22:36:10 GMT

CSV Parser / Writer

Example A:



//cell separator, row separator, value enclosure

$csv = new CSV(';', "\r\n", '"');



//parse the string content

$csv->setContent(file_get_contents('data.csv'));



//returns an array with the CSV data

print_r($csv->getArray());

Exemple B:



$csv = new CSV(';', "\r\n", '"');

//sets up the content through an array

$csv->setArray(

	array(

		array('col"una1', "colu\r\nna2"),

		array('col;una3', 'coluna4')

	)

);

//retorns string with the CSV representation

print $csv->getContent();



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com

class CSV{

	var $cellDelimiter;

	var $valueEnclosure;

	var $rowDelimiter;



	function CSV($cellDelimiter, $rowDelimiter, $valueEnclosure){

		$this->cellDelimiter = $cellDelimiter;

		$this->valueEnclosure = $valueEnclosure;

		$this->rowDelimiter = $rowDelimiter;

		$this->o = array();

	}

	function getArray(){

		return $this->o;

	}

	function setArray($o){

		$this->o = $o;

	}

	function getContent(){

		if(!(($bl = strlen($b = $this->rowDelimiter)) && ($dl = strlen($d = $this->cellDelimiter)) && ($ql = strlen($q = $this->valueEnclosure))))

			return '';

		for($o = $this->o, $i = -1; ++$i < count($o);){

			for($e = 0, $j = -1; ++$j < count($o[$i]);)

				(($e = strpos($o[$i][$j], $q) !== false) || strpos($o[$i][$j], $b) !== false || strpos($o[$i][$j], $d) !== false)

				&& $o[$i][$j] = $q . ($e ? str_replace($q, $q . $q, $o[$i][$j]) : $o[$i][$j]) . $q;

			$o[$i] = implode($d, $o[$i]);

		}

		return implode($b, $o);

	}

	function setContent($s){

		$this->o = array();

		if(!strlen($s))

			return true;

		if(!(($bl = strlen($b = $this->rowDelimiter)) && ($dl = strlen($d = $this->cellDelimiter)) && ($ql = strlen($q = $this->valueEnclosure))))

			return false;

		for($o = array(array('')), $this->o = &$o, $e = $r = $c = 0, $i = -1, $l = strlen($s); ++$i < $l;){

			if(!$e && substr($s, $i, $bl) == $b){

				$o[++$r][$c = 0] = '';

				$i += $bl - 1;

			}

			elseif(substr($s, $i, $ql) == $q){

				$e ? (substr($s, $i + $ql, $ql) == $q ?

				$o[$r][$c] .= substr($s, $i += $ql, $ql) : $e = 0)

				: (strlen($o[$r][$c]) == 0 ? $e = 1 : $o[$r][$c] .= substr($s, $i, $ql));

				$i += $ql - 1;

			}

			elseif(!$e && substr($s, $i, $dl) == $d){

				$o[$r][++$c] = '';

				$i += $dl - 1;

			}

			else

				$o[$r][$c] .= $s[$i];

		}

		return true;

	}

}

?>

ProbabilityRandom //PHP Class

jonasraoni (Jonas Raoni Soares Silva) — Sun, 20 Aug 2006 21:35:57 GMT

Class to return items based on their probability.

Updated version can be found here

usage



$prExample = new ProbabilityRandom;



$prExample->add( 'I have more chances than everybody :]', 30 );

$prExample->add( 'I have good chances', 10 );

$prExample->add( 'I\'m difficult to appear...', 1 );



for( $x=10; $x--; print $prExample->get() . '
' );



//+ Jonas Raoni Soares Silva

//@ http://jsfromhell.com

class ProbabilityRandom {

	#private vars

	var

		$data = array(),

		$universe = 0;



	#add an item to the list and defines its probability of being chosen

	function add( $data, $probability ){

		$this->data[ $x = sizeof( $this->data ) ] = new stdClass;

		$this->data[ $x ]->value = $data;

		$this->universe += $this->data[ $x ]->probability = abs( $probability );

	}



	#remove an item from the list

	function remove( $index ){

		if( $index > -1 && $index < sizeof( $this->data ) ) {

			$item = array_splice( $this->data, $index, 1 );

			$this->universe -= $item->probability;

		}

	}



	#clears the class

	function clear(){

		$this->universe = sizeof( $this->data = array() );

	}



	#return a randomized item from the list

	function get(){

		if( !$this->universe )

			return null;

		$x = round( mt_rand( 0, $this->universe ) );

		$max = $i = 0;

		do

			$max += $this->data[ $i++ ]->probability;

		while( $x > $max );

		return $this->data[ $i-1 ]->value;

	}

}