"Fossies" - the Fresh Open Source Software archive

Member "streber_v0.093/themes/starlight/test.html" of archive streber_v0.093.zip:


Caution: In this restricted "Fossies" environment the current HTML page may not be correctly presentated and may have some non-functional links. Alternatively you can here view or download the uninterpreted source code. That can be also achieved for any archive member file by clicking within an archive contents listing on the first character of the file(path) respectively on the according byte size field.

star-light

A configurable syntax-highlighter.

HTML

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en">
 <head>
  <title>Sample HTML</title>

  <meta name="author" content="Dean Edwards"/>
  <!-- keeping code tidy!! -->
  <meta name="copyright" content="&copy; copyright 2005, Dean Edwards"/>
  <style type="text/css">
   body {color: black;}
  </style>
  <script type="text/javascript">
   onload = function() {
    	// do something
   };
  </script>
 </head>
 <body>
  <p>Hello&nbsp;World!</p>
 </body>
</html>

CSS

@import url(http://www.example.com/test.css);

/* comment */
@media screen {
	div.document {
		background-color: #eee;
		width: 0;
	}
}

JavaScript

// this is a "comment"
/* so is this */
var string = "/* string */";
alert('Hello \'Dean\'!');
function getText(a, b, c) {
	if (a && b) return a + b + c.toString();
};

PHP

<?php
// author: dean@edwards.name
$string = "/* string */";
print('Hello Dean!');
function getText($a, $b, $c) {
	return $a + $b + $c;
};
?>

Email/Discussion

So said the script writer:
> I like *bold* text! :-)
>
> But the other man said:
>> I like /italicised/ text. :(
>>
>> A third fellow chimed in:
>>> I think _underlined_ text should suit you both. ;-)
>>>
>> _Hey_! He's right! :-)
> _Groovy_. ;-)

VBScript

Rem this is a "comment"
' so is this
Function MyHex(ByVal Number)
	Dim Sign
	Const HexChars = "0123456789ABCDEF"
	Sign = Sgn(Number)
	Number = Fix(Abs(CDbl(number)))
	If Number = 0 Then
		MyHex = "0"
		Exit Function
	End If
	While Number > 0
		MyHex = Mid(HexChars, 1 + (Number - 16 * Fix(Number / 16)), 1) & MyHex
		Number = Fix(Number/16)
	WEnd
	If Sign = -1 Then MyHex = "-" & MyHex
End Function

T-SQL

CREATE PROC nth (
	@table_name sysname,
	@column_name sysname,
	@nth int
)
AS
BEGIN

--Date written: December 23rd 2000
--Purpose: To find out the nth highest number in a column.

SET @table_name = RTRIM(@table_name)
SET @column_name = RTRIM(@column_name)

DECLARE @exec_str CHAR(400)
IF (SELECT OBJECT_ID(@table_name,'U')) IS NULL
BEGIN
	RAISERROR('Invalid table name',18,1)
	RETURN -1
END