300160d8b0
+ website
+ Added Harbour website (except art, docs and stat subdirs)
; TODO: configure automatic mechanism to extract site from
here and regularly updload to sf.net web area
; TODO: Clean HTML code, remove unused picture/files, avoid JS
Any takers?
; NOTE: Please make modifications to website code only in
SVN, then upload the content to web server manually.
IOW never update on web server directly.
96 lines
9.2 KiB
HTML
96 lines
9.2 KiB
HTML
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3c.org/TR/1999/REC-html401-19991224/loose.dtd">
|
|
<HTML xmlns="http://www.w3.org/1999/xhtml"><HEAD><TITLE>array16.prg</TITLE>
|
|
<META http-equiv=Content-Type content="text/html; charset=iso-8859-1">
|
|
<META content="MSHTML 6.00.6000.16386" name=GENERATOR>
|
|
<STYLE type=text/css>
|
|
<!--
|
|
body { color: #000000; background-color: #FFFFFF; }
|
|
.any1-activedot { color: #800080; }
|
|
.any1-comment { color: #008080; }
|
|
.any1-constant { color: #800080; }
|
|
.any1-escapeampersand { color: #00FF00; font-weight: bold; }
|
|
.any1-function { color: #808000; }
|
|
.any1-identifier { color: #000000; }
|
|
.any1-number { color: #FF0000; }
|
|
.any1-preprocessor { }
|
|
.any1-reservedword { color: #800000; }
|
|
.any1-space { }
|
|
.any1-string { color: #0000FF; }
|
|
.any1-symbol { }
|
|
.any1-variable { color: #808000; }
|
|
-->
|
|
</STYLE>
|
|
</HEAD>
|
|
<BODY bgColor=#ffffff>
|
|
<PRE><CODE><SPAN style="FONT: 10pt Courier New"><SPAN class=any1-comment>// Harbour multidimensional arrays support
|
|
|
|
</SPAN><SPAN class=any1-reservedword>function</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Main</SPAN><SPAN class=any1-symbol>()
|
|
|
|
</SPAN><SPAN class=any1-reservedword>local</SPAN><SPAN class=any1-space> a := { </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>200</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-string>"Third"</SPAN><SPAN class=any1-space> }
|
|
</SPAN><SPAN class=any1-reservedword>local</SPAN><SPAN class=any1-space> b := </SPAN><SPAN class=any1-function>Array</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-number>8832</SPAN><SPAN class=any1-space> ) </SPAN><SPAN class=any1-comment>// 8832 elements !!! Maximum for 16 Bit !!!
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>ValType</SPAN><SPAN class=any1-symbol>( a ) )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>ValType</SPAN><SPAN class=any1-symbol>( { </SPAN><SPAN class=any1-string>"A"</SPAN><SPAN class=any1-space> } ) )
|
|
|
|
</SPAN><SPAN class=any1-function>AAdd</SPAN><SPAN class=any1-symbol>( a, </SPAN><SPAN class=any1-string>"new element"</SPAN><SPAN class=any1-space> )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>Len</SPAN><SPAN class=any1-symbol>( a ) )
|
|
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ] )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-space> ] )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>4</SPAN><SPAN class=any1-space> ] )
|
|
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>ATail</SPAN><SPAN class=any1-symbol>( a ) )
|
|
|
|
a[ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-space> ] := { </SPAN><SPAN class=any1-string>"this"</SPAN><SPAN class=any1-symbol>, { </SPAN><SPAN class=any1-string>"seems"</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-string>"to"</SPAN><SPAN class=any1-symbol>, { </SPAN><SPAN class=any1-string>"work"</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-string>"so"</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-string>"well"</SPAN><SPAN class=any1-space> } } }
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] ) </SPAN><SPAN class=any1-comment>// "work"
|
|
|
|
</SPAN><SPAN class=any1-space> a[ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] := </SPAN><SPAN class=any1-string>"Harbour power!"</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-comment>// different ways to specify the indexes
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( a[ </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] )
|
|
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>ValType</SPAN><SPAN class=any1-symbol>( b ) )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>Len</SPAN><SPAN class=any1-symbol>( b ) )
|
|
|
|
b[ </SPAN><SPAN class=any1-number>8832</SPAN><SPAN class=any1-space> ] := </SPAN><SPAN class=any1-string>"Harbour"
|
|
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>8832</SPAN><SPAN class=any1-space> ] )
|
|
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>atail</SPAN><SPAN class=any1-symbol>( b ) )
|
|
|
|
</SPAN><SPAN class=any1-function>ASize</SPAN><SPAN class=any1-symbol>( b, </SPAN><SPAN class=any1-number>200</SPAN><SPAN class=any1-space> )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( </SPAN><SPAN class=any1-function>Len</SPAN><SPAN class=any1-symbol>( b ) )
|
|
|
|
b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ] := </SPAN><SPAN class=any1-number>10
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Test</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ]++ )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ] )
|
|
|
|
b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ] := </SPAN><SPAN class=any1-number>10
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Test</SPAN><SPAN class=any1-symbol>( ++b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ] )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>100</SPAN><SPAN class=any1-space> ] )
|
|
|
|
b := { </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>, { </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-symbol>, { </SPAN><SPAN class=any1-number>4</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>5</SPAN><SPAN class=any1-space> } } }
|
|
</SPAN><SPAN class=any1-variable>Test</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ]++ )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] )
|
|
|
|
b[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] := </SPAN><SPAN class=any1-number>2
|
|
</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Test</SPAN><SPAN class=any1-symbol>( ++b[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] )
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( b[ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-space> ][ </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-space> ] )
|
|
|
|
</SPAN><SPAN class=any1-variable>ReleaseTest</SPAN><SPAN class=any1-symbol>()
|
|
|
|
</SPAN><SPAN class=any1-reservedword>return</SPAN><SPAN class=any1-space> nil
|
|
|
|
</SPAN><SPAN class=any1-reservedword>function</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>Test</SPAN><SPAN class=any1-symbol>( n )
|
|
|
|
</SPAN><SPAN class=any1-function>QOut</SPAN><SPAN class=any1-symbol>( n )
|
|
|
|
</SPAN><SPAN class=any1-reservedword>return</SPAN><SPAN class=any1-space> nil
|
|
|
|
</SPAN><SPAN class=any1-reservedword>function</SPAN><SPAN class=any1-space> </SPAN><SPAN class=any1-variable>ReleaseTest</SPAN><SPAN class=any1-symbol>()
|
|
|
|
</SPAN><SPAN class=any1-reservedword>local</SPAN><SPAN class=any1-space> a := { </SPAN><SPAN class=any1-number>1</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>2</SPAN><SPAN class=any1-symbol>, </SPAN><SPAN class=any1-number>3</SPAN><SPAN class=any1-space> }
|
|
|
|
</SPAN><SPAN class=any1-reservedword>return</SPAN><SPAN class=any1-space> nil
|
|
</SPAN></SPAN>
|
|
</CODE></PRE></BODY></HTML>
|