Kalender DFGEN

March 2010
M T W T F S S
« Feb    
1234567
891011121314
15161718192021
22232425262728
293031  

library strlib.php

Berikut adalah library strlib.php, yang menjadi pustaka untuk membuat HTML Form handler dan HTML Form Generator berdasarkan framework DFGEN.

<?php
/*
write by Putu Swastawa
since 2009-09
*/

function isdigit($c){
switch($c){
case “0″: return true;
case “1″: return true;
case “2″: return true;
case “3″: return true;
case “4″: return true;
case “5″: return true;
case “6″: return true;
case “7″: return true;
case “8″: return true;
case “9″: return true;
default: return false;
}
}

function isletter($c){
$tm = strtoupper($c);
switch($tm){
case “A”: return true;
case “B”: return true;
case “C”: return true;
case “D”: return true;
case “E”: return true;
case “F”: return true;
case “G”: return true;
case “H”: return true;
case “I”: return true;
case “J”: return true;
case “K”: return true;
case “L”: return true;
case “M”: return true;
case “N”: return true;
case “O”: return true;
case “P”: return true;
case “Q”: return true;
case “R”: return true;
case “S”: return true;
case “T”: return true;
case “U”: return true;
case “V”: return true;
case “W”: return true;
case “X”: return true;
case “Y”: return true;
case “Z”: return true;
default: return false;
}
}

function delnondigit($processed){
$tm = ”;
$j = strlen($processed);
for($i=0;$i<$j;$i++){
$c = substr($processed,$i,1);
if(isdigit($c)){
$tm .= $c;
}
}
return $tm;
}

function delnonletter($processed){
$tm = ”;
$j = strlen($processed);
for($i=0;$i<$j;$i++){
$c = substr($processed,$i,1);
if(isletter($c)){
$tm .= $c;
}
}
return $tm;
}

function capitalize_first($sprocessed){
$res = substr(strtoupper($sprocessed),0,1).substr(strtolower($sprocessed),1);
return $res;
}

function is_listedchar($c,$validchar){
$res = false;
for($i=0;$i<strlen($validchar);$i++){
if($c==$validchar[$i]){
$res = true;
break;
}
}
return $res;
}

function del_nonlisted_char($sprocessed, $validchar){
$res = ”;
$max = strlen($sprocessed);
for($i=0;$i<$max;$i++){
if((is_listedchar($sprocessed[$i],$validchar))){
$res .= $sprocessed[$i];
}
}
return $res;
}

function make_unique($processed){
$res = ”;
$max =strlen($processed);
for($i=0;$i<$max;$i++){
if(!(is_listedchar($processed[$i],$res))){
$res .= $processed[$i];
}
}
return $res;
}

?>