public static function starComment ($strComment, $intTabs = 0)
	{
		
		// Set return
		
		$strReturn	= '';
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Find the position of the first /
		
		$intFirstSlash	= strpos ($arrComment[0], '/');
		
		// Set prefix
		
		$strPrefix		= ($intFirstSlash)? substr ($arrComment[0], 0, $intFirstSlash) : NULL;
		
		// Clean comment
		
		$strComment		= self::cleanComment ($strComment);
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Set the high count
		
		$intHigh	= 0;
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// If the length is above the high count
			
			if (strlen ($strLine) > $intHigh)
			{
				
				// Set length as high count
				
				$intHigh	= strlen ($strLine);
				
			}
			
		}
		
		// For each line
		
		foreach ($arrComment as &$strLine)
		{
			
			// Count chars
			
			$strCountChars	= count_chars ($strLine, 3);
			
			// If the comment consists of only -'s
			
			if ($strCountChars == '-')
			{
				
				// Set the line to be -'s
				
				$strLine	= str_repeat ('-', $intHigh);
				
			}
			
		}
		
		// Unset reference
		
		unset ($strLine);
		
		// Set tabs
		
		$strTabs	= str_repeat ("\t", $intTabs);
		
		// Add the first lines
		
		$strReturn	.= $strTabs . $strPrefix . '/****' . str_repeat ('*', $intHigh) . '*****' . "\n" . 
					   $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n";
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// Add to return
			
			$strReturn	.= $strTabs . $strPrefix . '*    ' . str_pad ($strLine, $intHigh) . '    *' . "\n";
			
		}
		
		// Add the last lines
		
		$strReturn	.= $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n" . 
					   $strTabs . $strPrefix . '*****' . str_repeat ('*', $intHigh) . '****/';
		
		// Return
		
		return $strReturn;
		
	}
public static function starComment ($strComment, $intTabs = 0)
	{
		
		// Set return
		
		$strReturn	= '';
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Find the position of the first /
		
		$intFirstSlash	= strpos ($arrComment[0], '/');
		
		// Set prefix
		
		$strPrefix		= ($intFirstSlash)? substr ($arrComment[0], 0, $intFirstSlash) : NULL;
		
		// Clean comment
		
		$strComment		= self::cleanComment ($strComment);
		
		// Split comment into lines
		
		$arrComment		= explode ("\n", $strComment);
		
		// Set the high count
		
		$intHigh	= 0;
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// If the length is above the high count
			
			if (strlen ($strLine) > $intHigh)
			{
				
				// Set length as high count
				
				$intHigh	= strlen ($strLine);
				
			}
			
		}
		
		// For each line
		
		foreach ($arrComment as &$strLine)
		{
			
			// Count chars
			
			$strCountChars	= count_chars ($strLine, 3);
			
			// If the comment consists of only -'s
			
			if ($strCountChars == '-')
			{
				
				// Set the line to be -'s
				
				$strLine	= str_repeat ('-', $intHigh);
				
			}
			
		}
		
		// Unset reference
		
		unset ($strLine);
		
		// Set tabs
		
		$strTabs	= str_repeat ("\t", $intTabs);
		
		// Add the first lines
		
		$strReturn	.= $strTabs . $strPrefix . '/****' . str_repeat ('*', $intHigh) . '*****' . "\n" . 
					   $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n";
		
		// For each line
		
		foreach ($arrComment as $strLine)
		{
			
			// Add to return
			
			$strReturn	.= $strTabs . $strPrefix . '*    ' . str_pad ($strLine, $intHigh) . '    *' . "\n";
			
		}
		
		// Add the last lines
		
		$strReturn	.= $strTabs . $strPrefix . '*    ' . str_repeat (' ', $intHigh) . '    *' . "\n" . 
					   $strTabs . $strPrefix . '*****' . str_repeat ('*', $intHigh) . '****/';
		
		// Return
		
		return $strReturn;
		
	}
public static function starComment ( $ strComment , $ intTabs = 0 ) { // Set return $ strReturn = '' ; // Split comment into lines $ arrComment = explode ( "\n" , $ strComment ) ; // Find the position of the first / $ intFirstSlash = strpos ( $ arrComment [ 0 ] , '/' ) ; // Set prefix $ strPrefix = ( $ intFirstSlash ) ? substr ( $ arrComment [ 0 ] , 0 , $ intFirstSlash ) : NULL ; // Clean comment $ strComment = self :: cleanComment ( $ strComment ) ; // Split comment into lines $ arrComment = explode ( "\n" , $ strComment ) ; // Set the high count $ intHigh = 0 ; // For each line foreach ( $ arrComment as $ strLine ) { // If the length is above the high count if ( strlen ( $ strLine ) > $ intHigh ) { // Set length as high count $ intHigh = strlen ( $ strLine ) ; } } // For each line foreach ( $ arrComment as & $ strLine ) { // Count chars $ strCountChars = count_chars ( $ strLine , 3 ) ; // If the comment consists of only -'s if ( $ strCountChars == '-' ) { // Set the line to be -'s $ strLine = str_repeat ( '-' , $ intHigh ) ; } } // Unset reference unset ( $ strLine ) ; // Set tabs $ strTabs = str_repeat ( "\t" , $ intTabs ) ; // Add the first lines $ strReturn .= $ strTabs . $ strPrefix . '/****' . str_repeat ( '*' , $ intHigh ) . '*****' . "\n" . $ strTabs . $ strPrefix . '*    ' . str_repeat ( ' ' , $ intHigh ) . '    *' . "\n" ; // For each line foreach ( $ arrComment as $ strLine ) { // Add to return $ strReturn .= $ strTabs . $ strPrefix . '*    ' . str_pad ( $ strLine , $ intHigh ) . '    *' . "\n" ; } // Add the last lines $ strReturn .= $ strTabs . $ strPrefix . '*    ' . str_repeat ( ' ' , $ intHigh ) . '    *' . "\n" . $ strTabs . $ strPrefix . '*****' . str_repeat ( '*' , $ intHigh ) . '****/' ; // Return return $ strReturn ; }
Return a stared comment
@param string $strComment Comment
@param integer $intTabs Tabs before line
@return string
Return a stared comment