diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 9607778391..839d144d57 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,17 @@ The license applies to all entries newer than 2009-04-28. */ +2012-09-22 12:05 UTC+0200 Viktor Szakats (harbour syenar.net) + + 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. + 2012-09-22 02:27 UTC-0800 Pritpal Bedi (bedipritpal@hotmail.com) * contrib/hbide/actions.prg + Added: prompts of IdePARTS in "View" menu. @@ -23,7 +34,7 @@ - Deleted: some redundant code. * contrib/hbide/main.prg * contrib/hbide/parts.prg - + Added: new part "IdeREPORTS" as a non-dock widget. It is + + Added: new part "IdeREPORTS" as a non-dock widget. It is parallel to "IdeDBU". - Deleted: ReportsManager relevant docking widget code. diff --git a/harbour/website/about.html b/harbour/website/about.html new file mode 100644 index 0000000000..cf074ee9b6 --- /dev/null +++ b/harbour/website/about.html @@ -0,0 +1,111 @@ + + + + +Harbour Project - About + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 About Harbour 
 Harbour is a compiler for the xBase superset language often referred to as Clipper (the language that is implemented by the compiler CA-Clipper). Harbour is a cross-platform compiler and is known to compile and run on:
    +
  • MS-DOS,
    • +
  • Windows (32 & 64),
    • +
  • Windows CE,
    • +
  • Pocket PC,
    • +
  • OS/2,
    • +
  • GNU/Linux,
    • +
  • Mac OSX.
    • +
+ Harbour is a free and open-source project. It can be used to make open source applications, free or commercial products. To learn more about Harbour licence click here.		 
 
+ + + + + + + + + + +
Why use it? 
 
    +
  • Because it is free software 100% compatible with Clipper compilers
    • +
  • Because it removes some of the limits imposed by the base implementation but the extent of this will depend on your chosen platform.
    • +
  • Because Harbour is proven to be stable, robust and efficient.
    • +
  • Because Harbour supports RDDs (Replaceable Database Drivers) to allow multiple data sources which allows an application to scale.
    • +
  • Because Harbour is portable across multiple operating systems with the same code base.
    • +
  • Because Harbour's architecture is fully open and supports a third-party add on market.
    • +
  • Because Harbour is open-source and therefore you are not at the mercy of the decisions of a private company.
    • +
  • Because Harbour is developed by a very experienced and capable team of developers.
    +
    + Most importantly, try Harbour for yourself, decide for yourself why it has advantages for you. This product will be an harbour for clipper.
    • +
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/changelog.html b/harbour/website/changelog.html new file mode 100644 index 0000000000..0b87bf068e --- /dev/null +++ b/harbour/website/changelog.html @@ -0,0 +1,80 @@ + + + + +Harbour Project - Changelog + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 Changelog 
 Through the ChangeLog you can give a list of amendments that were added to the repository project. This list is updated frequently by developers and is available at:
+
+ http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/ChangeLog		 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/contact.html b/harbour/website/contact.html new file mode 100644 index 0000000000..1510403fd0 --- /dev/null +++ b/harbour/website/contact.html @@ -0,0 +1,120 @@ + + + + +Harbour Project - Contact US + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 Contact us 
 Important: Note that this program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. +This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Read more » 
   
 Webmaster
+ Do you have a question or concern regarding the functionality of this site? Click here and send an email to the webmaster or post a topic in our mailing with the subject "website".		 
   
 Suggestions?
+ To contribute to the project by sending us suggestions or other contributions, just register in our mailling and submit your topic. To access our mailing list clicking here.		 
   
 Need support?
+ Although this is an open project and without any implicit or explicit support, some professionals have joined our mailing lists with the intention of voluntarily helping users. For more info visit our list clicking here.		 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/credits.html b/harbour/website/credits.html new file mode 100644 index 0000000000..101456b8f1 --- /dev/null +++ b/harbour/website/credits.html @@ -0,0 +1,78 @@ + + + + +Harbour Project - Empty + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 Title Here 
 Another long text here 
 
 
+ + + + + +
Copyright c 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/crew.html b/harbour/website/crew.html new file mode 100644 index 0000000000..ccea3ad097 --- /dev/null +++ b/harbour/website/crew.html @@ -0,0 +1,774 @@ + + + + +Harbour Project - The Crew + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + +
+ + + + + + + + +
  + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
The Harbour Crew
Per country in alphabetic order:
 
 
Australia
+ Matt Hamilton   
+ Captain of Strings.c & Math.c
+ A VIP shipmaster! A Admiral actual!
+
+ Peter Townsend 
+ cephas@tpgi.com.au
 
Belgium
+ Patrick Mast   
+ eMail@PatrickMast.com
+ Harbour WebMaster
+ Harbour public relations and
+ real-life application tester.
+
+ Jean-Francois Lefebvre   
+ jfl@mafact.com
+ 1st Classes Master
+
+ Richard-Alexandre Cuylen   
+ racuylen@altern.org
+ 2nd Classes Master
 
Brazil
+ Felipe Coury   
+ fcoury@creation.com.br
+ Harbour Internet Integration Captain Radio operator
+ and Brazilian Harbour Community Informant.
+
+ Luiz Rafael Culik   
+ culik@sl.conex.net
+ Harbour Norton Guide Captain
+
+ Vailton Renato   
+ vailtom@gmail.com
+Trainee for Webdesigner
 
Canada
+ April White
+ awhite@mail.rosecom.ca
+
+Bil Simser
+ bsimser@home.com
+ Pascal Captain
+ The Dread Pirate Pascal.
+
+ Leslee Griffith
+ les.griffith@vantagesystems.ca
+
+ Luis Krause Mantilla
+ lkrausem@shaw.ca
+
+ Paul Tucker   
+ ptucker@sympatico.ca
+MSVC and GTAPI Master
 
Chile
+ Gonzalo Diethelm
+ gonzalo.diethelm@iname.com
+ GNU Tools Pusher
+ Harbour standard GNU tools pusher.
 
Germany
+ Martin Vogel   
+ vogel@inttec.de
+ Cl*pper Tools Captain
 
Hungary
+ Viktor Szakáts
+ syenar.net
+ Error & Regression Test Captain
+ Coding Style Guide
 
India
+ Pritpal Bedi
+ pritpal@vouchcac.com
+ A student of software
+ analysis & design
 
Indonesia
+ Andi Jahja
+ andij@aonlippo.co.id
+ The Janitor
 
Israel
+ Chen Kedem   
+ niki@synel.co.il
+ The Documentor
+ Harbour documentation writer
 
Italy
+ Francesco Saverio Giudice
+ info/at/fsgiudice.com
+ Contrib Developer +
+
+Matteo Baccan   
+ baccan@isanet.it
+ Tester and Java interface developer
+
+
+ Massimo Belgrano
+ Massimo.belgrano@gmail.com
+ Fleet Admiral of Newsgroup, Lieutenant of
+ application tester, + and Half + soldier developer.
+
+ Maurilio Longo   
+ maurilio.longo@libero.it
+ OS/2 Pirate and Harbour sailor.
 
Korea
+ Kwon, Oh-Chul   
+ ohchul@fivetech.net
+ Asian Harbour Captain
 
Netherlands
+ Eddie Runia
+ eddie@runia.com
+ Resident Medic
+ Debug doctor with a bought fake diploma.
 
Poland
+ Przemysław Czerpak
+ druzus/at/priv.onet.pl
+ Harbour Master
+
+ Robert Arseniuk
+ roberta@jmpolska.com
+ Arrays Captain
+ Captain of the Harbour Arrays.
+
+ Ryszard Glab
+ rglab@imid.med.pl
+ 2nd Harbour Master
+ Nearest to the Harbour Master!
 
Russia
+ Alexander S. Kresin
+ alex@belacy.belgorod.su
+ Preprocessor Captain
+
+ Vladimir Kazimirchik   
+ v_kazimirchik@yahoo.com
+ Harbour for OS/2 fanatic
 
Scotland
+ Rab Thomson
+ Ship's Rat
+ Gnawing at the leftovers, and did someone
+ say something about sinking ships?
 
Spain
+ Antonio Linares    
+ alinares@fivetech.com
+ Harbour Starter
+ The Great Man who started the engines!
+
+ Ignacio Ortiz de Zuniga   
+ ignacio@fivetech.com
+ Harbour GET Captain
+
+ Bruno Cantero    
+ bruno@issnet.net
+ RDD Captain
+ Happy C and Clipper developer
+
+ Jose Lalin
+ Towboat Skipper
+ Helping ships to come alongside.
+
+ Manuel Ruiz
+ mrt@joca.es
+
+ Nicolas del Pozo
+ niko@geroa.com
 
USA
+ Brian Hays
+ bhays@abacuslaw.com
+ Ship's Carpenter
+ Roving Editor, Barnacle Scraper and Window Cleaner
+
+ David G. Holm    
+ dholm@jsd-llc.com
+ Set Captain
+ The Clipper Compatibility Fanatic.
+
+ Mark W. Schumann
+ Animal Trainer
+ Trainer of the Harbour Animal.
+
+ Phil Barnett    
+ philb@philb.us
+ Harbour Manager
+ Keeper of Pieces and Parts.
+
+ Ron Pinkas    
+ ron@profit-master.com
+ Clipper-Head
+ The Clipper-Head who doesn't mind becoming
+ a 'c'-man to keep Clipper sailing into the future.
+
+ Tim Stone    
+ timstone@mstrlink.com
+ List House Keeper
+ List House Keeper and Manual Captain.
+
+ Jon Berg
+ Stoker
+ Just keep shoveling coal into the harbor engine. (Tester)
+ Held a higher rank on the old Clipper ships before I got
+ busted with the advent of steam engines.
 
Country + unknown
+ Ross Presser
+ Captain Boy
+ Unreliable Yet Sometimes Helpful Cabin Boy.
+
+ Janica Lubos
+ janica@fornax.elf.stuba.sk
 
  + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + +
 Countries 
 
 
  + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Australia
Belgium
Brazil
Canada
Chile
Germany
Hungary
India
Indonesia
Israel
Italy
Korea
Netherlands
Poland
Russia
Scotland
Spain
USA
Unknown
 
   
 
+ + + + + + + + + + + + + + + + + + + + +
 First Name Alphabetic 
 
 
  + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Alexander S. Kresin
Andi Jahja
Antonio Linares
April White
Bil Simser
Brian Hays
Bruno Cantero
Chen Kedem
David G. Holm
Eddie Runia
Francesco Saverio Giudice
Felipe Coury
Gonzalo Diethelm
Ignacio Ortiz
+ de Zuniga
Janica Lubos
Jean-Francois Lefebvre
Jon Berg
Jose Lalin
Kwon, Oh-Chul
Leslee Griffith
Luis Krause Mantilla
Luiz Rafael Culik
Manuel Ruiz
Mark W. Schumann
Martin Vogel
Massimo Belgrano
Matt Hamilton
Matteo Baccan
Maurilio Longo
Nicolas del Pozo
Patrick Mast
Paul Tucker
Peter Townsend
Phil Barnett
Pritpal Bedi
Przemysław Czerpak
Rab Thomson
Richard Alexandre Cuylen
Robert Arseniuk
Ron Pinkas
Ross Presser
Ryszard Glab
Tim Stone
Vailton Renato
Viktor Szakáts
Vladimir Kazimirchik
 
   
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/css/styles.css b/harbour/website/css/styles.css new file mode 100644 index 0000000000..15f5c0cb4d --- /dev/null +++ b/harbour/website/css/styles.css @@ -0,0 +1,206 @@ +@charset "utf-8"; +/* CSS Document */ + +body,td,th { + font-family: Verdana, Arial, Helvetica, sans-serif; + font-size: 12px; +} +body { + background-color: #333333; + margin-left: 0px; + margin-top: 0px; + margin-right: 0px; + margin-bottom: 0px; +} +.header1 { + /*font-weight: bolder;*/ + font-size: 20px; + color: #bc0000; +} +.text_under { + text-decoration: underline; +} +.footer { + font-family: Arial, Helvetica, sans-serif; + font-size: 8px; + color: #FFFFFF; +} +.title { + font-weight: bolder; + font-size: 14px; + color: #bc0000; +} +.title_blue { + font-weight: bolder; + font-size: 14px; + color: #06639d; +} +.title_text { + color: #000000; + font-weight: bolder; + font-style: italic; +} +.title_date { + color: #666666; + font-style: italic; +} +.sample_subtitle{ + color: #bc0000; + font-weight: bold; +} +.sample_link_missing{ + color: #666666; +} +.sample_linkback { + font-size: 9px; + font-style: italic; + color: #000000; + text-decoration: none; +} +.black_link { + color: #000000; +} +.blue_link { + color: #0099FF; + text-decoration: none; +} +.read_more { + font-size: 9px; + font-style: italic; +} +a:hover { + color: #FF0000; +} +a:active { + color: #FF0000; +} + +.tabela_box_trans_TL { background-image: url('/images/table-azul-top-left.gif'); background-repeat: no-repeat; background-position: 0 0; width: 6px; height: 6px;} +.tabela_box_trans_TR { background-image: url('/images/table-azul-top-right.gif'); background-repeat: no-repeat; background-position: top right; width: 6px; height: 6px;} +.tabela_box_trans_BR { background-image: url('/images/table-azul-bottom-right.gif'); background-repeat: no-repeat; background-position: bottom right; width: 6px; height: 6px;} +.tabela_box_trans_BL { background-image: url('/images/table-azul-bottom-left.gif'); background-repeat: no-repeat; background-position: bottom left; width: 6px; height: 6px;} + +/* + * From xDevStudio export HTML tool... + */ +.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; } + +.pagina_titulo { + color: #0066CC; + text-transform: uppercase; + font-family: Arial, Helvetica, sans-serif; + font-size: 12pt; + font-weight: bold; +} +.pagina_titulo_non_captalize { + color: #0066CC; + font-family: Arial, Helvetica, sans-serif; + font-size: 12pt; + font-weight: bold; +} +.pagina_subtitulo { + color: #990000; + font-weight: bold; +} +.titulo_citacao { + color: #0066FF; + font-style: italic; +} +.texto_subtitulo { + color: #0066CC; + font-style: italic; + font-weight: bold; +} +.texto_subtitulo_maiusculo { + color: #0066CC; + font-weight: bold; + text-transform: uppercase; +} +.redbox { + color: #bc0000; + margin: 3px; + font-style: italic; +/* padding: 3px; + background-color: #FF0000; + /***/ +} +.crew_country { + font-weight: bolder; + color: #BC0000; +} +.crew_person_name { + font-weight: bolder; + color: #1C69B7; +} +.crew_mail { + color: #0099FF; + text-decoration: none; +} +.crew_country_link { + color: #0066FF; + text-decoration: none; +} +.crew_aphalist_link { + color: #000066; + text-decoration: none; +} +.crew_page_top { + background-image: url(/images/arrow_up.gif); + background-repeat: no-repeat; + background-position: right bottom; + width: 7px; +} +.whitelink { + color: #FFFFFF; + text-decoration: none; +} +.source_code{ + font-size: 10pt; + font-family: "Courier New", Courier, monospace; +} +.news_category { + color: #BC0000; + font-weight: bolder; +} +.news_item { + background-image: url(/images/button-ok.jpg); + background-repeat: no-repeat; + background-position: 2px center; + padding-left: 15px; +} +.news_info { + background-image: url(/images/button-info.jpg); + background-repeat: no-repeat; + background-position: 2px center; + padding-left: 15px; +} +.news_warn { + background-image: url(/images/button-yellow.jpg); + background-repeat: no-repeat; + background-position: 2px center; + padding-left: 15px; +} +.news_error { + background-image: url(/images/button-red.jpg); + background-repeat: no-repeat; + background-position: 2px center; + padding-left: 15px; +} +.news_fixed { + background-image: url(/images/button-green.jpg); + background-repeat: no-repeat; + background-position: 2px center; + padding-left: 15px; +} diff --git a/harbour/website/download.htm b/harbour/website/download.htm new file mode 100644 index 0000000000..128054340b --- /dev/null +++ b/harbour/website/download.htm @@ -0,0 +1,13 @@ + + + + +This page has moved! + + + + +This page has moved. If your browser doesn't automatically redirect to its new location, click here. + + diff --git a/harbour/website/download_contrib.html b/harbour/website/download_contrib.html new file mode 100644 index 0000000000..c3781bb1a6 --- /dev/null +++ b/harbour/website/download_contrib.html @@ -0,0 +1,456 @@ + + + + +Harbour Project - Contribution + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 Harbour Contributions 
 Contributions are 3rd party libraries, sources or other products, which are bundled with the main Harbour distribution. The contrib is available in the ZIP package that contains the sources of Harbour Project.
+
+ Important: Common to all contributions is that you can download them freely but please note the licensing terms, which are included in the distribution folder.		 
   
 gtAlleg
+ Author: Mauricio Abre <maurifull@datafull.com>
+ Allegro based virtual GT with graphic extensions. This GT driver uses the powerful Allegro library to create windows also Allegro library is mostly used for game programming.		 
 
 
 
+ gtwvg
+ Author: Pritpal Bedi <pritpal@vouchcac.com>
+This library can be used for pure console applications instead of GTWVT. But if used with GUI extensions, very appealing Windows screens without sacrificing the Clipper syntax. Additionally GTWVG has a nice set of Wvt*Classes() which employ the common event loop.
+ 
+You can create high performance dialogs with multiple Tbrowe, Reads, Bitmaps, Buttons, i.e. all GUI elements you can think of.		 
 
 
 
+ hbbmcdx
+ RDD bmdbfcdx compatible with dbfcdx of harbour, with bitmap filters and other extensions. 		 
 
 
 
+ hbct
+ This library has functions and procedures compatible with the famous Clipper Tools for CA-Clipper (CT.LIB).		 
 
 
 
+ hbcurl
+ Authors: Viktor Szakáts / Luiz Rafael Culik Guimaraes
+ This is a Harbour interface for libcurl. Note what libcurl is a free and easy-to-use client-side URL transfer library, supporting FTP, FTPS, HTTP, HTTPS, SCP, SFTP, TFTP, TELNET, DICT, LDAP, LDAPS and FILE.
+
+ libcurl supports SSL certificates, HTTP POST, HTTP PUT, FTP uploading, HTTP form based upload, proxies, cookies, user+password authentication (Basic, Digest, NTLM, Negotiate, Kerberos4), file transfer resume, http proxy tunneling and more! See more info at http://curl.haxx.se/libcurl.		 
 
 
 
+ hbfbird
+ Author: Rodrigo Moreno <rodrigo_moreno@yahoo.com>
+ Harbour Low Level api for Firebird and Interbase RDBMS, including classes and functions to work with these RDBMS.		 
 
 
 
+ hbfimage
+ Author: Francesco Saverio Giudice <info@fsgiudice.com>
+ FreeImage graphic library low level (client api) interface code for Harbour. FreeImage Library is a porting to Harbour of famous FreeImage Project library. FreeImage is an Open Source library project for developers who would like to support popular graphics image formats like PNG, BMP, JPEG, TIFF and others as needed by today's multimedia applications.
+
+ FreeImage is easy to use, fast, multithreading safe, compatible with all 32-bit versions of Windows, and cross-platform (works both with Linux and Mac ). See more at http://freeimage.sourceforge.net/		 
 
 
 
+ hbgd
+ Authors: Francesco Saverio Giudice <info@fsgiudice.com> / Laverson Espíndola <laverson.espindola@gmail.com>
+ HBGD is basically a wrapper of Thomas Boutell's GD Library version 2.0.33 for Harbour. The GD Library is a powerfull graphic library very usefull expecially under CGI environment. HBGD actually contains almost all GD functions, more a set of functions that extends original library and a set of classes that make easier to work with this library. More info at http://www.boutell.com/gd/		 
 
 
 
+ hbgf
+ Portable functions for creating GUI objects like windows, menus, buttons, etc. inside prg source code. Supports Win32, GTK & OS /2.		 
 
 
 
+ hbgt
Several functions for manipulation of strings and some generic compatible with Flagship.		 
 
 
 
+ hbhpdf
+ Author: Pritpal Bedi <pritpal@hotmail.com>
+ HaruLib wrappers for Harbour. Haru is a free, cross platform, open-sourced software library for generating PDF written in ANSI-C. More info at http://www.libharu.org and http://sourceforge.net/projects/libharu		 
 
 
 
+ hbmisc
+ Misc functions for manipulating strings, numbers, type conversions, classes for working with HTML and files, etc.		 
 
 
 
+ hbmysql
+ Author: Maurilio Longo <maurilio.longo@libero.it>
+ Harbour MySQL access classes. Includes a dbf2mysql.prg utility to converts a .dbf file into a MySQL table.		 
 
 
 
+ hbmzip
+ This library contains compression related functions to work with zip file support based on minizip library (http://www.winimage.com/zLibDll/minizip.html) including: +
    +
  • minizip version 1.01e source files
    • +
  • wrapper functions for minizip
    • +
  • some additionl functions to provide a higher level API for zip files
    • +
 
 
 
 
+ hbNF
+ A port in Harbour of the Nanforum Library for Clipper.		 
 
 
 
+ hbodbc
+ Harbour ODBC Library. Includes functions, procedures and classes to work with various RDBMS.		 
 
 
 
+ hbpgsql
+ Author: Maurilio Longo <maurilio.longo@libero.it>
+ Harbour Low Level api for Postgres RDBMS. Includes a dbf2pg.prg utility to converts a .dbf file into a Postgres table.		 
 
 
 
+ hbsqlit3
+ Author: P.Chornyj <myorg63@mail.ru>
+ Harbour interface for SQLite version 3. This library allow access a sqlite database using Harbour.		 
 
 
 
+ hbssl
+ Author: Viktor Szakáts
+ OpenSSL API Harbour interface. Supports SSL, SSL_CIPHER, SSL_CTX, RAND, SSL_SESSION functions.		 
 
 
 
+ hbtip
+ + TIP Class oriented Internet protocol library for Harbour. Supports FTP, POP3, HTTP and more.		 
 
 
 
+ hbtpathy
+ Author: Maurilio Longo <maurilio.longo@libero.it>
+ Telepathy emulation library. Telepathy is the best serial communication library for Nantucket/CA Clipper and this library has a significant amount of the functionality contained in Telepathy in + this Harbour port.		 
 
 
 
+ hbvpdf
+ Author: Victor K. <http://www.ihaveparts.com>
+ This is a pure Clipper Pdf Library what includes Harbour support and runs without the need for external files.		 
 
 
 
+ hbwin
+ This library has functions, procedures and classes to access Win32 API. + Among these features are: +
    +
  • Windows registry
    • +
  • Printing subsystem for Win32 using GUI printing
    • +
  • Support for OLE objects
    • +
  • DLL handling functions
    + and more.
    +
    • +
 
 
 
 
+ rddado
+ Author: Fernando Mancera <fmancera@viaopen.com> / Antonio Linares <alinares@fivetechsoft.com>
+ ADORDD - RDD to automatically manage Microsoft ADO databases.		 
 
 
 
+ rddads
+ Author: Alexander Kresin <alex@belacy.belgorod.su>
+ RDDADS is an RDD for the Advantage Database Server, an xBase data server by Extended Systems. With this library your Harbour application can access a remote database server for a +true client/server architecture, or it can use the "local server" ADSLOC32.DLL for stand-alone or even small network installations. For more info visit http://www.advantagedatabase.com		 
 
 
 
+ rddsql
+ Author: Mindaugas Kavaliauskas <dbtopas at dbtopas.lt>
+ SQL MIX (Memory Index) Database Driver. This library provides access to FB, MySQL and PostgreSQL servers.		 
 
 
 
+ xhb
+ Files containing functions, procedures and defines for cross-compatibility with xHarbour project.		 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/empty_template.html b/harbour/website/empty_template.html new file mode 100644 index 0000000000..1f9c1a301c --- /dev/null +++ b/harbour/website/empty_template.html @@ -0,0 +1,78 @@ + + + + +Harbour Project - Empty + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 Title Here 
 Another long text here 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/faq/harbour.html b/harbour/website/faq/harbour.html new file mode 100644 index 0000000000..a6872a51dc --- /dev/null +++ b/harbour/website/faq/harbour.html @@ -0,0 +1,94 @@ + + + + + +Frequently Asked Questions about Harbour + + + +

Frequently Asked Questions about Harbour

+

David G. Holm <harbour-faq@netfang.net>

Revision: 1.45 Date: 2004/05/03 19:00:32 +

1. Legal Stuff

+
+
1.1. Copyright
+
1.2. Licence
+
1.3. Warranty
+
1.4. Trademarks
+
+

2. About Harbour

+
+
2.1. What is Harbour?
+
2.2. Why develop Harbour?
+
2.3. Who is developing Harbour?
+
2.4. Who owns Harbour?
+
2.5. So who do I blame when it all goes wrong?
+
2.6. How did Harbour get started?
+
2.7. What is "free software"?
+
2.8. So is Harbour in the public domain?
+
2.9. What is the GPL?
+
2.10. Why was the GPL chosen as the licence for Harbour?
+
2.11. What is the Harbour exception?
+
2.12. So why don't you use the LGPL?
+
2.13. Will my applications be affected by the GPL?
+
+

3. Helping develop Harbour

+
+
3.1. How do I get started?
+
3.2. What C compiler should I use?
+
3.3. What other tools do I need?
+
3.4. Where can I find the source?
+
3.5. What is CVS and how do I use it?
+
3.6. How do I build Harbour?
+
3.7. What needs working on?
+
3.8. Are there any development guidelines?
+
3.9. Is it ok to extend the language with some spiffy new feature?
+
3.10. So what's with all these language extensions then?
+
3.11. I can't code C, how can I help development?
+
3.12. I've got loads of Clipper code I can donate, what shall I do?
+
3.13. I can't submit Clipper code either, can I still help anyway?
+
+

4. The Harbour mailing lists

+
+
4.1. Is there a developer's mailing list?
+
4.2. Is there a user's mailing list?
+
4.3. Is there a general discussion mailing list?
+
4.4. How do I remove myself from the mailing lists?
+
4.5. Are there any rules on the lists?
+
4.6. Are the lists archived anywhere?
+
4.7. Are there any newsgroups for Harbour?
+
+

5. Installing Harbour

+
+
5.1. Where can I get pre-built binaries?
+
+

6. General Harbour questions

+
+
6.1. When will Harbour be finished?
+
6.2. Are applications <attribute> than CA-Clipper applications?
+
6.3. What advantages does Harbour have over other Clipper compilers?
+
6.4. What advantages do other Clipper compilers have over Harbour?
+
6.5. Will Harbour support existing CA-Clipper 3rd party products?
+
6.6. Is Harbour a Windows development tool?
+
6.7. What platforms are supported by Harbour?
+
+

7. Pointers and links

+
+
7.1. Harbour related links
+
7.2. Articles about Harbour
+
7.3. Free (in either sense of the word) development tool links
+
7.4. Clipper related links
+
7.5. Free software related links
+
7.6. Other handy links
+
+

8. Administrative information

+
+
8.1. Document URL.
+
8.2. Downloading this document.
+
8.3. Feedback about the FAQ.
+
8.4. Document history
+
+ + + + diff --git a/harbour/website/faq/harbour1.html b/harbour/website/faq/harbour1.html new file mode 100644 index 0000000000..42f1a46a52 --- /dev/null +++ b/harbour/website/faq/harbour1.html @@ -0,0 +1,31 @@ + + + + + +Legal Stuff + + + +Frequently Asked Questions about Harbour + : Legal Stuff
+Previous: Frequently Asked Questions about Harbour
+Next: Copyright + + +
+

1. Legal Stuff

+

1.1. Copyright

+

1.2. Licence

+

1.3. Warranty

+

1.4. Trademarks

+
+Frequently Asked Questions about Harbour + : Legal Stuff
+Previous: Frequently Asked Questions about Harbour
+Next: Copyright + + + + + diff --git a/harbour/website/faq/harbour10.html b/harbour/website/faq/harbour10.html new file mode 100644 index 0000000000..1fc941d4e8 --- /dev/null +++ b/harbour/website/faq/harbour10.html @@ -0,0 +1,32 @@ + + + + + +Who owns Harbour? + + + +Frequently Asked Questions about Harbour + : About Harbour + : Who owns Harbour?
+Previous: Who is developing Harbour?
+Next: So who do I blame when it all goes wrong? + + +
+

2.4. Who owns Harbour?

+

Nobody owns Harbour but many people hold the copyright on portions of +Harbour.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : Who owns Harbour?
+Previous: Who is developing Harbour?
+Next: So who do I blame when it all goes wrong? + + + + + diff --git a/harbour/website/faq/harbour11.html b/harbour/website/faq/harbour11.html new file mode 100644 index 0000000000..de3bf52713 --- /dev/null +++ b/harbour/website/faq/harbour11.html @@ -0,0 +1,42 @@ + + + + + +So who do I blame when it all goes wrong? + + + +Frequently Asked Questions about Harbour + : About Harbour + : So who do I blame when it all goes wrong?
+Previous: Who owns Harbour?
+Next: How did Harbour get started? + + +
+

2.5. So who do I blame when it all goes wrong?

+

Harbour is +free software and comes with +no warranty. The warranty statement is that which is +provided by the +GPL: +

+This program is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for +more details. +
+

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : So who do I blame when it all goes wrong?
+Previous: Who owns Harbour?
+Next: How did Harbour get started? + + + + + diff --git a/harbour/website/faq/harbour12.html b/harbour/website/faq/harbour12.html new file mode 100644 index 0000000000..bb84910bf7 --- /dev/null +++ b/harbour/website/faq/harbour12.html @@ -0,0 +1,38 @@ + + + + + +How did Harbour get started? + + + +Frequently Asked Questions about Harbour + : About Harbour + : How did Harbour get started?
+Previous: So who do I blame when it all goes wrong?
+Next: What is "free software"? + + +
+

2.6. How did Harbour get started?

+

The idea of a +free software Clipper compiler +has been floating around for a long time and the subject has often cropped +up in discussion on comp.lang.clipper. Actual work to get something developed started +early in 1999 when Antonio Linares started a thread to +discuss some ideas about developing a Clipper grammar using Lex and Yacc.

+

The rest, as they say, is history (that history might form the basis of +another document should I ever get the time to compile it).

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : How did Harbour get started?
+Previous: So who do I blame when it all goes wrong?
+Next: What is "free software"? + + + + + diff --git a/harbour/website/faq/harbour13.html b/harbour/website/faq/harbour13.html new file mode 100644 index 0000000000..35132f01f0 --- /dev/null +++ b/harbour/website/faq/harbour13.html @@ -0,0 +1,41 @@ + + + + + +What is "free software"? + + + +Frequently Asked Questions about Harbour + : About Harbour + : What is "free software"?
+Previous: How did Harbour get started?
+Next: So is Harbour in the public domain? + + +
+

2.7. What is "free software"?

+

In general terms free software is one phrase for describing software that +comes with certain freedoms, the free doesn't speak about the price, it +speaks about your freedoms to use the software. A common suggestion is that +you think "free speech" instead of "free beer".

+

See http://www.fsf.org/philosophy/free-sw.html for the Free +Software Foundation's definition of "free software".

+

A related term is OpenSource, you can find out more about the idea of +OpenSource at http://www.opensource.org/. You might also +want to note that the FSF don't consider OpenSource and Free Software to be +the same thing, see http://www.fsf.org/philosophy/free-software-for-freedom.html for more +details.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : What is "free software"?
+Previous: How did Harbour get started?
+Next: So is Harbour in the public domain? + + + + + diff --git a/harbour/website/faq/harbour14.html b/harbour/website/faq/harbour14.html new file mode 100644 index 0000000000..6b2d568e26 --- /dev/null +++ b/harbour/website/faq/harbour14.html @@ -0,0 +1,39 @@ + + + + + +So is Harbour in the public domain? + + + +Frequently Asked Questions about Harbour + : About Harbour + : So is Harbour in the public domain?
+Previous: What is "free software"?
+Next: What is the GPL? + + +
+

2.8. So is Harbour in the public domain?

+

No, Harbour isn't in the public domain. Most parts of Harbour are copyrighted works and you +should respect those copyrights as you would any other copyright. With a +small number of exceptions each of the +Harbour authors have placed their code under Harbour's chosen licence, currently +that licence is the +GPL and/or the GPL with +Harbour exception.

+

Note, however, that some files that are part of harbour have been placed in +the public domain.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : So is Harbour in the public domain?
+Previous: What is "free software"?
+Next: What is the GPL? + + + + + diff --git a/harbour/website/faq/harbour15.html b/harbour/website/faq/harbour15.html new file mode 100644 index 0000000000..d2e6f7d435 --- /dev/null +++ b/harbour/website/faq/harbour15.html @@ -0,0 +1,37 @@ + + + + + +What is the GPL? + + + +Frequently Asked Questions about Harbour + : About Harbour + : What is the GPL?
+Previous: So is Harbour in the public domain?
+Next: Why was the GPL chosen as the licence for Harbour? + + +
+

2.9. What is the GPL?

+

The GPL is the +licence of the GNU system, it is a +free software +licence. You might also hear it referred to as the Copyleft.

+

The GPL is currently the licence under which parts of Harbour are released, +other parts of Harbour are under the GPL plus the +Harbour exception.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : What is the GPL?
+Previous: So is Harbour in the public domain?
+Next: Why was the GPL chosen as the licence for Harbour? + + + + + diff --git a/harbour/website/faq/harbour16.html b/harbour/website/faq/harbour16.html new file mode 100644 index 0000000000..de02b36119 --- /dev/null +++ b/harbour/website/faq/harbour16.html @@ -0,0 +1,37 @@ + + + + + +Why was the GPL chosen as the licence for Harbour? + + + +Frequently Asked Questions about Harbour + : About Harbour + : Why was the GPL chosen as the licence for Harbour?
+Previous: What is the GPL?
+Next: What is the Harbour exception? + + +
+

2.10. Why was the GPL chosen as the licence for Harbour?

+

That's really a question best asked of each of the Harbour copyright +holders. A simple answer would be that the GPL is seen as one of the more +restrictive +free software licences and, for +that reason more than any other, it appeared to give the maximum amount of +freedom and at the same time the correct degree of control over use and +distribution.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : Why was the GPL chosen as the licence for Harbour?
+Previous: What is the GPL?
+Next: What is the Harbour exception? + + + + + diff --git a/harbour/website/faq/harbour17.html b/harbour/website/faq/harbour17.html new file mode 100644 index 0000000000..452b450d29 --- /dev/null +++ b/harbour/website/faq/harbour17.html @@ -0,0 +1,92 @@ + + + + + +What is the Harbour exception? + + + +Frequently Asked Questions about Harbour + : About Harbour + : What is the Harbour exception?
+Previous: Why was the GPL chosen as the licence for Harbour?
+Next: So why don't you use the LGPL? + + +
+

2.11. What is the Harbour exception?

+

There is one small wrinkle regarding the use of the GPL as the licence for +Harbour. Harbour comes in a number of parts, these can best be described as +the compiler (including pre-processor), the virtual machine and the run-time +library. The GPL dictates that anyone distributing binary versions of GPLd +code must make an offer of providing the source and that the code linked +against the GPLd code must also fall under the GPL. Failure to do so is a +breach of licence.

+

In Harbour terms this means different things depending on which portion of +Harbour you are considering. The compiler itself can live under the GPL, it +isn't part of the run-time and so poses no problem. This isn't true for the +HVM and +RTL because they get linked into your application and so would +require that your code be distributed under a compatible licence. While the +Harbour developers would like to see you develop +free software they have decided to let you make this choice.

+

To solve this problem the developers have employed the "Harbour +Exception". This idea comes from the GPL exception used by guile. In effect, +the exception states that you must observe the GPL except when the code in +question is being used as the HVM and RTL of an application compiled with +Harbour.

+

The wording of the exception currently reads: +

+The exception is that, if you link the Harbour libraries with other +files to produce an executable, this does not by itself cause the +resulting executable to be covered by the GNU General Public License. +Your use of that executable is in no way restricted on account of +linking the Harbour library code into it. +
+
+This exception does not however invalidate any other reasons why +the executable file might be covered by the GNU General Public License. +
+
+This exception applies only to the code released by the Harbour +Project under the name Harbour. If you copy code from other +Harbour Project or Free Software Foundation releases into a copy of +Harbour, as the General Public License permits, the exception does +not apply to the code that you add in this way. To avoid misleading +anyone as to the status of such modified files, you must delete +this exception notice from them. +
+
+If you write modifications of your own for Harbour, it is your choice +whether to permit this exception to apply to your modifications. +If you do not wish that, delete this exception notice. +
+ +Please note that the original wording of the exception was based on an +earlier version of the guile exception. That version of the exception was +less verbose and less clear. The wording of that version read: +
+The exception is that if you link the Harbour Runtime Library (HRL) and/or +the Harbour Virtual Machine (HVM) with other files to produce an executable, +this does not by itself cause the resulting executable to be covered by the +GNU General Public License. Your use of that executable is in no way +restricted on account of linking the RTL and/or HVM code into it. +
+ +The Harbour sources are being converted over to the new exception as each +copyright holder makes the change. The intention is that every item of +source that uses the Harbour exception will clearly use the more verbose +version.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : What is the Harbour exception?
+Previous: Why was the GPL chosen as the licence for Harbour?
+Next: So why don't you use the LGPL? + + + + + diff --git a/harbour/website/faq/harbour18.html b/harbour/website/faq/harbour18.html new file mode 100644 index 0000000000..3f47060642 --- /dev/null +++ b/harbour/website/faq/harbour18.html @@ -0,0 +1,47 @@ + + + + + +So why don't you use the LGPL? + + + +Frequently Asked Questions about Harbour + : About Harbour + : So why don't you use the LGPL?
+Previous: What is the Harbour exception?
+Next: Will my applications be affected by the GPL? + + +
+

2.12. So why don't you use the LGPL?

+

Given +the above it might be reasonable to +ask why the Harbour developers didn't elect to use the LGPL instead. The +reason simply comes down to the requirements of the LGPL and what can be +reasonably asked of anyone who wishes to make use of Harbour.

+

The LGPL requires that any binary distribution of the LGPLd code (in other +words, an application compiled with Harbour and linked against the HVM and +RTL) should be distributed in a method that allows the user to re-link the +application against different and/or later copies of the code under the +LGPL. This is an unreasonable and unworkable requirement as far as the +Harbour developers are concerned.

+

For the most part it would be fine on platforms where an application can be +linked against a dynamic version of the HVM and RTL, but any platform that +doesn't support dynamic linking (PC/MS/DR/Open/Free-DOS for example) would +be effectively shut out of Harbour usage. The Harbour developers consider +this to be a reduction of freedom and this isn't acceptable for free +software.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : So why don't you use the LGPL?
+Previous: What is the Harbour exception?
+Next: Will my applications be affected by the GPL? + + + + + diff --git a/harbour/website/faq/harbour19.html b/harbour/website/faq/harbour19.html new file mode 100644 index 0000000000..40f4e28503 --- /dev/null +++ b/harbour/website/faq/harbour19.html @@ -0,0 +1,50 @@ + + + + + +Will my applications be affected by the GPL? + + + +Frequently Asked Questions about Harbour + : About Harbour + : Will my applications be affected by the GPL?
+Previous: So why don't you use the LGPL?
+Next: Helping develop Harbour + + +
+

2.13. Will my applications be affected by the GPL?

+

No, the +Harbour exception seeks to ensure +that, when you build an application with Harbour, compiling with the Harbour +compiler and linking against the HVM and RTL, your rights to licence your +own code are not in any way affected.

+

Harbour's licence is there to try and protect the freedom offered by the +Harbour developers. Harbour's licence isn't there to try and force you to +choose a specific licence.

+

Be assured that it isn't the intention of the +Harbour developers that your applications will have to be released +as free software. Supporting free software would be the right thing to do but the +Harbour developers have decided not to insist on this; we think it is more +useful in this situation to set up Harbour's license so that it does not +make any conditions on the status of your work that was built with and +against Harbour.

+

As always, don't take anyone else's word for this stuff, when in doubt, read +the licence. If you're still in doubt pay someone who knows what they are +doing to read the licence for you. Hopefully you do this with licences for +your other development tools, Harbour is no different, it has a licence that +you need to understand.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : Will my applications be affected by the GPL?
+Previous: So why don't you use the LGPL?
+Next: Helping develop Harbour + + + + + diff --git a/harbour/website/faq/harbour2.html b/harbour/website/faq/harbour2.html new file mode 100644 index 0000000000..b80b2690f4 --- /dev/null +++ b/harbour/website/faq/harbour2.html @@ -0,0 +1,34 @@ + + + + + +Copyright + + + +Frequently Asked Questions about Harbour + : Legal Stuff + : Copyright
+Previous: Legal Stuff
+Next: Licence + + +
+

1.1. Copyright

+

This document as a whole is copyrighted (c) 1999 - 2004 David G. Holm. +Some portions of the document may be copyright other individual authors +and are used with their permission. This document would not exist were +it not for the efforts of the original maintainer, Dave Pearson.

+ +
+Frequently Asked Questions about Harbour + : Legal Stuff + : Copyright
+Previous: Legal Stuff
+Next: Licence + + + + + diff --git a/harbour/website/faq/harbour20.html b/harbour/website/faq/harbour20.html new file mode 100644 index 0000000000..4b547a425d --- /dev/null +++ b/harbour/website/faq/harbour20.html @@ -0,0 +1,40 @@ + + + + + +Helping develop Harbour + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour
+Previous: Will my applications be affected by the GPL?
+Next: How do I get started? + + +
+

3. Helping develop Harbour

+

3.1. How do I get started?

+

3.2. What C compiler should I use?

+

3.3. What other tools do I need?

+

3.4. Where can I find the source?

+

3.5. What is CVS and how do I use it?

+

3.6. How do I build Harbour?

+

3.7. What needs working on?

+

3.8. Are there any development guidelines?

+

3.9. Is it ok to extend the language with some spiffy new feature?

+

3.10. So what's with all these language extensions then?

+

3.11. I can't code C, how can I help development?

+

3.12. I've got loads of Clipper code I can donate, what shall I do?

+

3.13. I can't submit Clipper code either, can I still help anyway?

+
+Frequently Asked Questions about Harbour + : Helping develop Harbour
+Previous: Will my applications be affected by the GPL?
+Next: How do I get started? + + + + + diff --git a/harbour/website/faq/harbour21.html b/harbour/website/faq/harbour21.html new file mode 100644 index 0000000000..0fee3177ee --- /dev/null +++ b/harbour/website/faq/harbour21.html @@ -0,0 +1,34 @@ + + + + + +How do I get started? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : How do I get started?
+Previous: Helping develop Harbour
+Next: What C compiler should I use? + + +
+

3.1. How do I get started?

+

The first thing you should do is join the +developer's mailing list and read the mail for a few days to get a +feel for what is going on. You might also want to take a look at +the archives too.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : How do I get started?
+Previous: Helping develop Harbour
+Next: What C compiler should I use? + + + + + diff --git a/harbour/website/faq/harbour22.html b/harbour/website/faq/harbour22.html new file mode 100644 index 0000000000..9c3e4138c4 --- /dev/null +++ b/harbour/website/faq/harbour22.html @@ -0,0 +1,87 @@ + + + + + +What C compiler should I use? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : What C compiler should I use?
+Previous: How do I get started?
+Next: What other tools do I need? + + +
+

3.2. What C compiler should I use?

+

What C compiler do you want to use?

+

The +Harbour developers consider GNU GCC to be the supported +compiler of the Harbour project, use of the GCC port for your chosen +platform is encouraged.

+

However, should you wish to use a different C compiler your contribution to +make it work is more than welcome. Currently the following C compiler and +platform combinations are supported by someone in the development team: +

+ +Instructions on how to build Harbour with the above compilers should reside +in the doc directory of the Harbour source tree. If such documentation +is missing please consider asking about it on the +development mailing list and, once you've got the information, formatting +it and placing it in the doc directory to help others who may wish to +ask the same question.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : What C compiler should I use?
+Previous: How do I get started?
+Next: What other tools do I need? + + + + + diff --git a/harbour/website/faq/harbour23.html b/harbour/website/faq/harbour23.html new file mode 100644 index 0000000000..c4c8fe2589 --- /dev/null +++ b/harbour/website/faq/harbour23.html @@ -0,0 +1,140 @@ + + + + + +What other tools do I need? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : What other tools do I need?
+Previous: What C compiler should I use?
+Next: Where can I find the source? + + +
+

3.3. What other tools do I need?

+

To build Harbour you'll need the following tools:

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : What other tools do I need?
+Previous: What C compiler should I use?
+Next: Where can I find the source? + + + + + diff --git a/harbour/website/faq/harbour24.html b/harbour/website/faq/harbour24.html new file mode 100644 index 0000000000..7e1c7fef60 --- /dev/null +++ b/harbour/website/faq/harbour24.html @@ -0,0 +1,67 @@ + + + + + +Where can I find the source? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : Where can I find the source?
+Previous: What other tools do I need?
+Next: What is CVS and how do I use it? + + +
+

3.4. Where can I find the source?

+

There are three methods of getting the source for harbour, which method you +use will depend on how up-to-date you feel you need to be. +

+

+

Please note that if you do want to help develop Harbour then the last option +is the best option (and, in the long term, the only useful option for all +concerned).

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : Where can I find the source?
+Previous: What other tools do I need?
+Next: What is CVS and how do I use it? + + + + + diff --git a/harbour/website/faq/harbour25.html b/harbour/website/faq/harbour25.html new file mode 100644 index 0000000000..ffb4976652 --- /dev/null +++ b/harbour/website/faq/harbour25.html @@ -0,0 +1,139 @@ + + + + + +What is CVS and how do I use it? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : What is CVS and how do I use it?
+Previous: Where can I find the source?
+Next: How do I build Harbour? + + +
+

3.5. What is CVS and how do I use it?

+

Before proceeding you should probably have a good read of the introduction to CVS by Jim Blandy. Reading this document should save you a lot of confusion later +on.

+

To use the CVS server you first need to get a copy of the CVS client +software for your operating system:

+

+

+

+

Once you have got your CVS client installed you can gain anonymous access to +the Harbour CVS server. Depending on platform, the first thing you need to +do is set the CVSROOT environment variable to:

+

+

+
+:pserver:anonymous@cvs.sourceforge.net:/cvsroot/harbour-project
+
+
+

+

In addition to the above some environments might require extra information. +For example, the DOS, Windows and OS/2 CVS clients need to be given two +extra environment variables, HOMEDRIVE and HOMEPATH. These two +environment variables tell the CVS client where the source will live +locally. For example, if your Harbour development directory is at +S:\FREESOFT\HARBOUR you'd set:

+

+

+
+SET HOMEDRIVE=S
+SET HOMEPATH=\FREESOFT\HARBOUR\
+
+
+

+

Users of the Windows client have reported that the HOMEPATH environment +variable must start with and finish with a directory separator. Users of the +DOS client have reported that the HOMEDRIVE environment variable must +end with a colon.

+

Ensure that your harbour directory is created and change into it. Then run:

+

+

+
+cvs login
+
+
+

+

and press enter when prompted for a password. Now run:

+

+

+
+cvs extract -P harbour
+
+
+

+

to get a copy of the Harbour CVS repository (users of the DOS client have +reported that it doesn't have the extract command and that the +checkout command should be used instead, I'm also told that the cvs +client on GNU/Linux requires that you use checkout).

+

Note: The CVS commands and directories are case sensitive: harbour +must be in all lower case (also note that on SourceForge Harbour is known as +"harbour-project").

+

Later, when you want to get changes from the CVS, you can do one of two +things:

+

+

+

+

If you have problems after reading the above please consider reading the +CVS introduction and also the documentation for the CVS client you've +installed. If, after reading both those documents, you are still having +problems you should drop a polite message into the +developer's mailing list detailing your platform, environment, all +the steps you performed and the exact nature of the problem.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : What is CVS and how do I use it?
+Previous: Where can I find the source?
+Next: How do I build Harbour? + + + + + diff --git a/harbour/website/faq/harbour26.html b/harbour/website/faq/harbour26.html new file mode 100644 index 0000000000..b199111d75 --- /dev/null +++ b/harbour/website/faq/harbour26.html @@ -0,0 +1,33 @@ + + + + + +How do I build Harbour? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : How do I build Harbour?
+Previous: What is CVS and how do I use it?
+Next: What needs working on? + + +
+

3.6. How do I build Harbour?

+

The method used to build Harbour may differ from platform to platform and +even from tool set to tool set. Please have a good read of the files in the +doc directory of the Harbour source.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : How do I build Harbour?
+Previous: What is CVS and how do I use it?
+Next: What needs working on? + + + + + diff --git a/harbour/website/faq/harbour27.html b/harbour/website/faq/harbour27.html new file mode 100644 index 0000000000..235d6dc6c6 --- /dev/null +++ b/harbour/website/faq/harbour27.html @@ -0,0 +1,37 @@ + + + + + +What needs working on? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : What needs working on?
+Previous: How do I build Harbour?
+Next: Are there any development guidelines? + + +
+

3.7. What needs working on?

+

See TODO in the root directory of the harbour sources.

+

If you're looking to get stuck into some Harbour development you'd do +well to subscribe to the +developer's mailing list, hang out there for a few days to get a feel for what is going on and +then either start contributing bug fixes (always a good way of getting +started) or simply announce your intention to work on an entry on the TODO list.

+ + +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : What needs working on?
+Previous: How do I build Harbour?
+Next: Are there any development guidelines? + + + + + diff --git a/harbour/website/faq/harbour28.html b/harbour/website/faq/harbour28.html new file mode 100644 index 0000000000..a61a77a509 --- /dev/null +++ b/harbour/website/faq/harbour28.html @@ -0,0 +1,49 @@ + + + + + +Are there any development guidelines? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : Are there any development guidelines?
+Previous: What needs working on?
+Next: Is it ok to extend the language with some spiffy new feature? + + +
+

3.8. Are there any development guidelines?

+

Not as such no. That said, if you are going to cut some code for Harbour you +might want to consider the following random observations: +

+

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : Are there any development guidelines?
+Previous: What needs working on?
+Next: Is it ok to extend the language with some spiffy new feature? + + + + + diff --git a/harbour/website/faq/harbour29.html b/harbour/website/faq/harbour29.html new file mode 100644 index 0000000000..edff8c5242 --- /dev/null +++ b/harbour/website/faq/harbour29.html @@ -0,0 +1,51 @@ + + + + + +Is it ok to extend the language with some spiffy new feature? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : Is it ok to extend the language with some spiffy new feature?
+Previous: Are there any development guidelines?
+Next: So what's with all these language extensions then? + + +
+

3.9. Is it ok to extend the language with some spiffy new feature?

+

As a rule, no. As +stated earlier Harbour is +designed, as much as possible, to be a +CA-Clipper 5.2e compatible Clipper compiler (with some 5.3 bits +thrown in when it makes sense). As such, until such a time as we're all done +on the compatibility front, the +Harbour developers would prefer to keep the language as "pure" as +possible.

+

That said, if you've got an idea for something you think should be added to +the language please feel free to make your case on the +developer's mailing list. Please note that emails along the lines of +"I want feature X because I'd like to have it" don't cut +much ice. Emails to that effect that actually offer a working patch might +cut a little ice. Preferably, you'll come to the list with a well thought +out and documented case for the addition of a new language extension and +you'll be willing to discuss the proposal.

+

Also, don't be upset if it is rejected, this is +free software after all, if you really feel that the extension is +required you can maintain a patch in parallel or, if you really must (but +we'd prefer if you didn't), you could maintain a forked distribution of +Harbour.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : Is it ok to extend the language with some spiffy new feature?
+Previous: Are there any development guidelines?
+Next: So what's with all these language extensions then? + + + + + diff --git a/harbour/website/faq/harbour3.html b/harbour/website/faq/harbour3.html new file mode 100644 index 0000000000..1c35e9c2a5 --- /dev/null +++ b/harbour/website/faq/harbour3.html @@ -0,0 +1,33 @@ + + + + + +Licence + + + +Frequently Asked Questions about Harbour + : Legal Stuff + : Licence
+Previous: Copyright
+Next: Warranty + + +
+

1.2. Licence

+

This document should be considered as free software, distributed under the +terms of the GNU General Public Licence, version 2. For details see the file +COPYING.

+ +
+Frequently Asked Questions about Harbour + : Legal Stuff + : Licence
+Previous: Copyright
+Next: Warranty + + + + + diff --git a/harbour/website/faq/harbour30.html b/harbour/website/faq/harbour30.html new file mode 100644 index 0000000000..de01b08911 --- /dev/null +++ b/harbour/website/faq/harbour30.html @@ -0,0 +1,37 @@ + + + + + +So what's with all these language extensions then? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : So what's with all these language extensions then?
+Previous: Is it ok to extend the language with some spiffy new feature?
+Next: I can't code C, how can I help development? + + +
+

3.10. So what's with all these language extensions then?

+

Hey, come on, there aren't that many!

+

Seriously, ok, hands up, you've got us bang to rights. Harbour does include +some extensions to "standard" Clipper but you'll notice that +these extensions are, on the whole, either replacements for "must +have" 3rd party add-ons that people used with +CA-Clipper or they are a feature that is native to +other Clipper compiler implementations.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : So what's with all these language extensions then?
+Previous: Is it ok to extend the language with some spiffy new feature?
+Next: I can't code C, how can I help development? + + + + + diff --git a/harbour/website/faq/harbour31.html b/harbour/website/faq/harbour31.html new file mode 100644 index 0000000000..b81214342d --- /dev/null +++ b/harbour/website/faq/harbour31.html @@ -0,0 +1,38 @@ + + + + + +I can't code C, how can I help development? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : I can't code C, how can I help development?
+Previous: So what's with all these language extensions then?
+Next: I've got loads of Clipper code I can donate, what shall I do? + + +
+

3.11. I can't code C, how can I help development?

+

How about doing some Clipper (the language) coding? Parts of Harbour have +been and can be written in itself. Why not look at +what needs doing in the run-time library and seeing what could be +coded using normal Clipper code?

+

Don't worry about speed for the moment, chances are the functions you're +thinking about are not speed critical, even if they are someone can come +along and, using your implementation as the base design, re-code it in C for +extra speed (if re-coding will speed it up).

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : I can't code C, how can I help development?
+Previous: So what's with all these language extensions then?
+Next: I've got loads of Clipper code I can donate, what shall I do? + + + + + diff --git a/harbour/website/faq/harbour32.html b/harbour/website/faq/harbour32.html new file mode 100644 index 0000000000..b5881dff74 --- /dev/null +++ b/harbour/website/faq/harbour32.html @@ -0,0 +1,37 @@ + + + + + +I've got loads of Clipper code I can donate, what shall I do? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : I've got loads of Clipper code I can donate, what shall I do?
+Previous: I can't code C, how can I help development?
+Next: I can't submit Clipper code either, can I still help anyway? + + +
+

3.12. I've got loads of Clipper code I can donate, what shall I do?

+

Harbour isn't a project to create a repository of free Clipper code so, +unless your code directly implements a core Clipper run-time library +function it probably isn't a lot of use to Harbour.

+

However, don't let your code go to waste, why not consider starting a +non-compiler specific but cross-platform free software Clipper library that +will benefit programmers using any of the +Clipper compiler implementations?

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : I've got loads of Clipper code I can donate, what shall I do?
+Previous: I can't code C, how can I help development?
+Next: I can't submit Clipper code either, can I still help anyway? + + + + + diff --git a/harbour/website/faq/harbour33.html b/harbour/website/faq/harbour33.html new file mode 100644 index 0000000000..d5015fdb83 --- /dev/null +++ b/harbour/website/faq/harbour33.html @@ -0,0 +1,37 @@ + + + + + +I can't submit Clipper code either, can I still help anyway? + + + +Frequently Asked Questions about Harbour + : Helping develop Harbour + : I can't submit Clipper code either, can I still help anyway?
+Previous: I've got loads of Clipper code I can donate, what shall I do?
+Next: The Harbour mailing lists + + +
+

3.13. I can't submit Clipper code either, can I still help anyway?

+

You could help out any number of ways. Documentation is one area where +volunteers are needed (it's a dirty job but someone has to do it). Perhaps +you could help maintain the +TODO list? +How about creating and maintaining binary snapshots of each of the releases?

+

Simply put, if you really want to help Harbour development, you'll find a +way.

+ +
+Frequently Asked Questions about Harbour + : Helping develop Harbour + : I can't submit Clipper code either, can I still help anyway?
+Previous: I've got loads of Clipper code I can donate, what shall I do?
+Next: The Harbour mailing lists + + + + + diff --git a/harbour/website/faq/harbour34.html b/harbour/website/faq/harbour34.html new file mode 100644 index 0000000000..689b258595 --- /dev/null +++ b/harbour/website/faq/harbour34.html @@ -0,0 +1,34 @@ + + + + + +The Harbour mailing lists + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists
+Previous: I can't submit Clipper code either, can I still help anyway?
+Next: Is there a developer's mailing list? + + +
+

4. The Harbour mailing lists

+

4.1. Is there a developer's mailing list?

+

4.2. Is there a user's mailing list?

+

4.3. Is there a general discussion mailing list?

+

4.4. How do I remove myself from the mailing lists?

+

4.5. Are there any rules on the lists?

+

4.6. Are the lists archived anywhere?

+

4.7. Are there any newsgroups for Harbour?

+
+Frequently Asked Questions about Harbour + : The Harbour mailing lists
+Previous: I can't submit Clipper code either, can I still help anyway?
+Next: Is there a developer's mailing list? + + + + + diff --git a/harbour/website/faq/harbour35.html b/harbour/website/faq/harbour35.html new file mode 100644 index 0000000000..25c35caf4d --- /dev/null +++ b/harbour/website/faq/harbour35.html @@ -0,0 +1,35 @@ + + + + + +Is there a developer's mailing list? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a developer's mailing list?
+Previous: The Harbour mailing lists
+Next: Is there a user's mailing list? + + +
+

4.1. Is there a developer's mailing list?

+

Yes, the list lives at harbour@lists.harbour-project.org. To subscribe to the Harbour development mailing +list simply send an email to +harbour-request@lists.harbour-project.org and in the email say +"subscribe". Alternatively you can subscribe via the World Wide +Web at http://www.matrixlist.com/mailman/listinfo/harbour/.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a developer's mailing list?
+Previous: The Harbour mailing lists
+Next: Is there a user's mailing list? + + + + + diff --git a/harbour/website/faq/harbour36.html b/harbour/website/faq/harbour36.html new file mode 100644 index 0000000000..340b76b2a3 --- /dev/null +++ b/harbour/website/faq/harbour36.html @@ -0,0 +1,35 @@ + + + + + +Is there a user's mailing list? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a user's mailing list?
+Previous: Is there a developer's mailing list?
+Next: Is there a general discussion mailing list? + + +
+

4.2. Is there a user's mailing list?

+

Yes, the list lives at harbourusers@lists.harbour-project.org. To subscribe to the Harbour user's mailing +list simply send an email to +harbourusers-request@lists.harbour-project.org and in the email say +"subscribe". Alternatively you can subscribe via the World Wide +Web at http://www.matrixlist.com/mailman/listinfo/harbourusers/.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a user's mailing list?
+Previous: Is there a developer's mailing list?
+Next: Is there a general discussion mailing list? + + + + + diff --git a/harbour/website/faq/harbour37.html b/harbour/website/faq/harbour37.html new file mode 100644 index 0000000000..6c4758a10f --- /dev/null +++ b/harbour/website/faq/harbour37.html @@ -0,0 +1,35 @@ + + + + + +Is there a general discussion mailing list? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a general discussion mailing list?
+Previous: Is there a user's mailing list?
+Next: How do I remove myself from the mailing lists? + + +
+

4.3. Is there a general discussion mailing list?

+

Yes, the list lives at harbourtalk@lists.harbour-project.org. To subscribe to the Harbour discussion mailing +list simply send an email to +harbourtalk-request@lists.harbour-project.org and in the email say +"subscribe". Alternatively you can subscribe via the World Wide +Web at http://www.matrixlist.com/mailman/listinfo/harbourtalk/.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Is there a general discussion mailing list?
+Previous: Is there a user's mailing list?
+Next: How do I remove myself from the mailing lists? + + + + + diff --git a/harbour/website/faq/harbour38.html b/harbour/website/faq/harbour38.html new file mode 100644 index 0000000000..1709268107 --- /dev/null +++ b/harbour/website/faq/harbour38.html @@ -0,0 +1,57 @@ + + + + + +How do I remove myself from the mailing lists? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : How do I remove myself from the mailing lists?
+Previous: Is there a general discussion mailing list?
+Next: Are there any rules on the lists? + + +
+

4.4. How do I remove myself from the mailing lists?

+

Every email that comes from the Harbour mailing lists contains instructions +for unsubscribing. The information is in the header of the email. For those +people with MUAs that don't allow them to read such vital information here +are the headers at the time of writing:

+

+

+
harbour

+

+List-Unsubscribe: http://www.matrixlist.com/mailman/listinfo/harbour, mailto:harbour-request@lists.harbour-project.org?subject=unsubscribe +
+

+
harbourusers

+

+List-Unsubscribe: http://www.matrixlist.com/mailman/listinfo/harbourusers, mailto:harbourusers-request@lists.harbour-project.org?subject=unsubscribe +
+

+
harbourtalk

+

+List-Unsubscribe: http://www.matrixlist.com/mailman/listinfo/harbourtalk, mailto:harbourtalk-request@lists.harbour-project.org?subject=unsubscribe +
+

+
+ +No matter what mailing list you are on it is always a good idea to never +subscribe unless you know how to unsubscribe. This can be as simple as +keeping the subscription confirmation message that many lists send out (they +often include instructions on how to unsubscribe).

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : How do I remove myself from the mailing lists?
+Previous: Is there a general discussion mailing list?
+Next: Are there any rules on the lists? + + + + + diff --git a/harbour/website/faq/harbour39.html b/harbour/website/faq/harbour39.html new file mode 100644 index 0000000000..83eec6cfbd --- /dev/null +++ b/harbour/website/faq/harbour39.html @@ -0,0 +1,69 @@ + + + + + +Are there any rules on the lists? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are there any rules on the lists?
+Previous: How do I remove myself from the mailing lists?
+Next: Are the lists archived anywhere? + + +
+

4.5. Are there any rules on the lists?

+

There are no rules as such but you might want to consider the following +guidelines:

+

+

+

+

The above isn't an exhaustive list of guidelines, neither are any of the +above actually "enforced" (although you might find one or two +people politely suggesting you consider abiding by them). Generally speaking +the rules on the Harbour lists are those that apply to good email +composition in general.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are there any rules on the lists?
+Previous: How do I remove myself from the mailing lists?
+Next: Are the lists archived anywhere? + + + + + diff --git a/harbour/website/faq/harbour4.html b/harbour/website/faq/harbour4.html new file mode 100644 index 0000000000..8dc48f9b30 --- /dev/null +++ b/harbour/website/faq/harbour4.html @@ -0,0 +1,34 @@ + + + + + +Warranty + + + +Frequently Asked Questions about Harbour + : Legal Stuff + : Warranty
+Previous: Licence
+Next: Trademarks + + +
+

1.3. Warranty

+

This document is distributed in the hope that it will be useful, but WITHOUT +ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or +FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License for +more details.

+ +
+Frequently Asked Questions about Harbour + : Legal Stuff + : Warranty
+Previous: Licence
+Next: Trademarks + + + + + diff --git a/harbour/website/faq/harbour40.html b/harbour/website/faq/harbour40.html new file mode 100644 index 0000000000..e8096d7074 --- /dev/null +++ b/harbour/website/faq/harbour40.html @@ -0,0 +1,32 @@ + + + + + +Are the lists archived anywhere? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are the lists archived anywhere?
+Previous: Are there any rules on the lists?
+Next: Are there any newsgroups for Harbour? + + +
+

4.6. Are the lists archived anywhere?

+

You can access the developer's list at http://www.matrixlist.com/pipermail/harbour/, the user's list at http://www.matrixlist.com/pipermail/harbourusers/ and the discussion list +at http://www.matrixlist.com/pipermail/harbourtalk/.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are the lists archived anywhere?
+Previous: Are there any rules on the lists?
+Next: Are there any newsgroups for Harbour? + + + + + diff --git a/harbour/website/faq/harbour41.html b/harbour/website/faq/harbour41.html new file mode 100644 index 0000000000..3ace79509f --- /dev/null +++ b/harbour/website/faq/harbour41.html @@ -0,0 +1,33 @@ + + + + + +Are there any newsgroups for Harbour? + + + +Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are there any newsgroups for Harbour?
+Previous: Are the lists archived anywhere?
+Next: Installing Harbour + + +
+

4.7. Are there any newsgroups for Harbour?

+

No, there are no newsgroups specific to Harbour. However, Harbour is a +Clipper compatible compiler which means that Harbour is an on-topic subject +for the Usenet group comp.lang.clipper.

+ +
+Frequently Asked Questions about Harbour + : The Harbour mailing lists + : Are there any newsgroups for Harbour?
+Previous: Are the lists archived anywhere?
+Next: Installing Harbour + + + + + diff --git a/harbour/website/faq/harbour42.html b/harbour/website/faq/harbour42.html new file mode 100644 index 0000000000..2925d9f2f2 --- /dev/null +++ b/harbour/website/faq/harbour42.html @@ -0,0 +1,28 @@ + + + + + +Installing Harbour + + + +Frequently Asked Questions about Harbour + : Installing Harbour
+Previous: Are there any newsgroups for Harbour?
+Next: Where can I get pre-built binaries? + + +
+

5. Installing Harbour

+

5.1. Where can I get pre-built binaries?

+
+Frequently Asked Questions about Harbour + : Installing Harbour
+Previous: Are there any newsgroups for Harbour?
+Next: Where can I get pre-built binaries? + + + + + diff --git a/harbour/website/faq/harbour43.html b/harbour/website/faq/harbour43.html new file mode 100644 index 0000000000..a4e8429a64 --- /dev/null +++ b/harbour/website/faq/harbour43.html @@ -0,0 +1,59 @@ + + + + + +Where can I get pre-built binaries? + + + +Frequently Asked Questions about Harbour + : Installing Harbour + : Where can I get pre-built binaries?
+Previous: Installing Harbour
+Next: General Harbour questions + + +
+

5.1. Where can I get pre-built binaries?

+

While Harbour is still in development the preferred method of getting a +Harbour binary is to download the source and build it yourself because this +aids the development effort.

+

However, the +Harbour developers also +appreciate the efforts of people who don't want to develop Harbour itself +but do want to test it and report bugs. To this end some people maintain +Harbour binaries that are ready to be installed.

+

Please keep in mind that the following may not be the very latest cut of +Harbour (Harbour changes by the hour while in this early phase of +development) and that some platforms might be better supported than others. +If you see that a platform isn't supported or is out of date please consider +stepping in and making available binaries for that platform.

+

+

+

+

If you can't find binaries for your environment via the above links then +this means that someone isn't contributing for that environment, perhaps +you'd care to step in and fill that gap?

+ +
+Frequently Asked Questions about Harbour + : Installing Harbour + : Where can I get pre-built binaries?
+Previous: Installing Harbour
+Next: General Harbour questions + + + + + diff --git a/harbour/website/faq/harbour44.html b/harbour/website/faq/harbour44.html new file mode 100644 index 0000000000..6242e1e0ed --- /dev/null +++ b/harbour/website/faq/harbour44.html @@ -0,0 +1,34 @@ + + + + + +General Harbour questions + + + +Frequently Asked Questions about Harbour + : General Harbour questions
+Previous: Where can I get pre-built binaries?
+Next: When will Harbour be finished? + + +
+

6. General Harbour questions

+

6.1. When will Harbour be finished?

+

6.2. Are applications <attribute> than CA-Clipper applications?

+

6.3. What advantages does Harbour have over other Clipper compilers?

+

6.4. What advantages do other Clipper compilers have over Harbour?

+

6.5. Will Harbour support existing CA-Clipper 3rd party products?

+

6.6. Is Harbour a Windows development tool?

+

6.7. What platforms are supported by Harbour?

+
+Frequently Asked Questions about Harbour + : General Harbour questions
+Previous: Where can I get pre-built binaries?
+Next: When will Harbour be finished? + + + + + diff --git a/harbour/website/faq/harbour45.html b/harbour/website/faq/harbour45.html new file mode 100644 index 0000000000..5a5bb21433 --- /dev/null +++ b/harbour/website/faq/harbour45.html @@ -0,0 +1,38 @@ + + + + + +When will Harbour be finished? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : When will Harbour be finished?
+Previous: General Harbour questions
+Next: Are applications <attribute> than CA-Clipper applications? + + +
+

6.1. When will Harbour be finished?

+

"When it's finished".

+

Seriously, Harbour will be finished when it is finished. If the pace of +Harbour development isn't fast enough for you you can always contribute +something to the project to make it go faster. Such contributions could be +code, documentation, faster machines for the +key developers (but one suspects a free supply of pizza would be +more welcome) or even an offer to employ one or more of the key developers +to work on Harbour full time.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : When will Harbour be finished?
+Previous: General Harbour questions
+Next: Are applications <attribute> than CA-Clipper applications? + + + + + diff --git a/harbour/website/faq/harbour46.html b/harbour/website/faq/harbour46.html new file mode 100644 index 0000000000..51bded45a5 --- /dev/null +++ b/harbour/website/faq/harbour46.html @@ -0,0 +1,47 @@ + + + + + +Are applications <attribute> than CA-Clipper applications? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : Are applications <attribute> than CA-Clipper applications?
+Previous: When will Harbour be finished?
+Next: What advantages does Harbour have over other Clipper compilers? + + +
+

6.2. Are applications <attribute> than CA-Clipper applications?

+

Or, to put it another way, will your application be bigger, smaller, slower, +faster, sexier, etc.... Generally, at least at this stage in the life of +Harbour, any given body of code that can be compiled with Harbour and with +CA-Clipper, on the same machine and with the +same environment (it wouldn't be much of a comparison otherwise would it?) +will run slower and will probably be "bigger" when compiled with +Harbour.

+

The same is probably true when comparing Harbour compiled code with other +Clipper compatible compilers.

+

The reasons for this are many and varied and, as is pointed out in many +places in this document, Harbour is still early in its life and continuing +development and Clipper compatibility are of greatest importance. The issue +of "performance" will be addressed when it is most appropriate +to do so, and when people are available to look into it.

+

As always, if the performance of Harbour is an issue for you now and you +want to see Harbour perform as per your expectations then +contributions speak louder than benchmark results.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : Are applications <attribute> than CA-Clipper applications?
+Previous: When will Harbour be finished?
+Next: What advantages does Harbour have over other Clipper compilers? + + + + + diff --git a/harbour/website/faq/harbour47.html b/harbour/website/faq/harbour47.html new file mode 100644 index 0000000000..7a04200067 --- /dev/null +++ b/harbour/website/faq/harbour47.html @@ -0,0 +1,43 @@ + + + + + +What advantages does Harbour have over other Clipper compilers? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : What advantages does Harbour have over other Clipper compilers?
+Previous: Are applications <attribute> than CA-Clipper applications?
+Next: What advantages do other Clipper compilers have over Harbour? + + +
+

6.3. What advantages does Harbour have over other Clipper compilers?

+

The main advantage Harbour has over +other Clipper compilers is that it is +free software. Harbour also attempts to remove some of the limits imposed by +the base implementation but the extent of this will depend on your chosen +platform.

+

The +Harbour developers make no claim that +Harbour is better or worse than +any other implementation of the language, however, at the same time, each individual +developer can probably sing the praises regarding the area of Harbour they +have worked on.

+

Most importantly, try Harbour for yourself, decide for yourself why it has +advantages for you.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : What advantages does Harbour have over other Clipper compilers?
+Previous: Are applications <attribute> than CA-Clipper applications?
+Next: What advantages do other Clipper compilers have over Harbour? + + + + + diff --git a/harbour/website/faq/harbour48.html b/harbour/website/faq/harbour48.html new file mode 100644 index 0000000000..e056e41f2b --- /dev/null +++ b/harbour/website/faq/harbour48.html @@ -0,0 +1,52 @@ + + + + + +What advantages do other Clipper compilers have over Harbour? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : What advantages do other Clipper compilers have over Harbour?
+Previous: What advantages does Harbour have over other Clipper compilers?
+Next: Will Harbour support existing CA-Clipper 3rd party products? + + +
+

6.4. What advantages do other Clipper compilers have over Harbour?

+

Currently the advantages +other Clipper compilers have over Harbour are: +

+

+

As time passes most of the above advantages will be eroded. Note that the +documentation process is well under way and that support is simply a +comp.lang.clipper post away. +The only advantage that won't be eroded is the last one in the list.

+

I'm sure that users of +other compilers, +not to mention their authors, feel they have other advantages too. This is +fine. Harbour isn't an exercise in removing or replacing those compilers, +Harbour is an effort to complement the +list of Clipper compilers with a +free software +offering.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : What advantages do other Clipper compilers have over Harbour?
+Previous: What advantages does Harbour have over other Clipper compilers?
+Next: Will Harbour support existing CA-Clipper 3rd party products? + + + + + diff --git a/harbour/website/faq/harbour49.html b/harbour/website/faq/harbour49.html new file mode 100644 index 0000000000..78bddd197a --- /dev/null +++ b/harbour/website/faq/harbour49.html @@ -0,0 +1,38 @@ + + + + + +Will Harbour support existing CA-Clipper 3rd party products? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : Will Harbour support existing CA-Clipper 3rd party products?
+Previous: What advantages do other Clipper compilers have over Harbour?
+Next: Is Harbour a Windows development tool? + + +
+

6.5. Will Harbour support existing CA-Clipper 3rd party products?

+

No, but the above is the wrong question to ask. The question to ask is +"will existing +CA-Clipper 3rd party +products support Harbour?", that's a question you should ask of the +product author.

+

See the Harbour web site +for details of which 3rd party product authors are currently developing for +Harbour or intend to support Harbour in the near future.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : Will Harbour support existing CA-Clipper 3rd party products?
+Previous: What advantages do other Clipper compilers have over Harbour?
+Next: Is Harbour a Windows development tool? + + + + + diff --git a/harbour/website/faq/harbour5.html b/harbour/website/faq/harbour5.html new file mode 100644 index 0000000000..649fa3fd3f --- /dev/null +++ b/harbour/website/faq/harbour5.html @@ -0,0 +1,32 @@ + + + + + +Trademarks + + + +Frequently Asked Questions about Harbour + : Legal Stuff + : Trademarks
+Previous: Warranty
+Next: About Harbour + + +
+

1.4. Trademarks

+

This document may make reference to various trademarks, these trademarks are +acknowledged and are only used for reference purposes.

+ +
+Frequently Asked Questions about Harbour + : Legal Stuff + : Trademarks
+Previous: Warranty
+Next: About Harbour + + + + + diff --git a/harbour/website/faq/harbour50.html b/harbour/website/faq/harbour50.html new file mode 100644 index 0000000000..6480c7565d --- /dev/null +++ b/harbour/website/faq/harbour50.html @@ -0,0 +1,34 @@ + + + + + +Is Harbour a Windows development tool? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : Is Harbour a Windows development tool?
+Previous: Will Harbour support existing CA-Clipper 3rd party products?
+Next: What platforms are supported by Harbour? + + +
+

6.6. Is Harbour a Windows development tool?

+

No, Harbour is a cross platform +CA-Clipper +compatible compiler, it can be used for development on any supported +platform.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : Is Harbour a Windows development tool?
+Previous: Will Harbour support existing CA-Clipper 3rd party products?
+Next: What platforms are supported by Harbour? + + + + + diff --git a/harbour/website/faq/harbour51.html b/harbour/website/faq/harbour51.html new file mode 100644 index 0000000000..b2d2ed5a96 --- /dev/null +++ b/harbour/website/faq/harbour51.html @@ -0,0 +1,39 @@ + + + + + +What platforms are supported by Harbour? + + + +Frequently Asked Questions about Harbour + : General Harbour questions + : What platforms are supported by Harbour?
+Previous: Is Harbour a Windows development tool?
+Next: Pointers and links + + +
+

6.7. What platforms are supported by Harbour?

+

There is no definitive list of supported platforms because any platform can +be supported if someone is willing to make Harbour work on it. As of the +time of writing Harbour is known to compile and run on +MS-DOS, +MS-Windows, +OS/2, +GNU/Linux +and +FreeBSD.

+ +
+Frequently Asked Questions about Harbour + : General Harbour questions + : What platforms are supported by Harbour?
+Previous: Is Harbour a Windows development tool?
+Next: Pointers and links + + + + + diff --git a/harbour/website/faq/harbour52.html b/harbour/website/faq/harbour52.html new file mode 100644 index 0000000000..75b5728261 --- /dev/null +++ b/harbour/website/faq/harbour52.html @@ -0,0 +1,39 @@ + + + + + +Pointers and links + + + +Frequently Asked Questions about Harbour + : Pointers and links
+Previous: What platforms are supported by Harbour?
+Next: Harbour related links + + +
+

7. Pointers and links

+

The following is a random collection of pointers and links that deal with +subjects connected to Harbour and the development of Harbour. The links +appear in no particular order and no one link is in any way an endorsement +of the target site by the +Harbour development team.

+ +

7.1. Harbour related links

+

7.2. Articles about Harbour

+

7.3. Free (in either sense of the word) development tool links

+

7.4. Clipper related links

+

7.5. Free software related links

+

7.6. Other handy links

+
+Frequently Asked Questions about Harbour + : Pointers and links
+Previous: What platforms are supported by Harbour?
+Next: Harbour related links + + + + + diff --git a/harbour/website/faq/harbour53.html b/harbour/website/faq/harbour53.html new file mode 100644 index 0000000000..1e895afd24 --- /dev/null +++ b/harbour/website/faq/harbour53.html @@ -0,0 +1,40 @@ + + + + + +Harbour related links + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Harbour related links
+Previous: Pointers and links
+Next: Articles about Harbour + + +
+

7.1. Harbour related links

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Harbour related links
+Previous: Pointers and links
+Next: Articles about Harbour + + + + + diff --git a/harbour/website/faq/harbour54.html b/harbour/website/faq/harbour54.html new file mode 100644 index 0000000000..7742017836 --- /dev/null +++ b/harbour/website/faq/harbour54.html @@ -0,0 +1,35 @@ + + + + + +Articles about Harbour + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Articles about Harbour
+Previous: Harbour related links
+Next: Free (in either sense of the word) development tool links + + +
+

7.2. Articles about Harbour

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Articles about Harbour
+Previous: Harbour related links
+Next: Free (in either sense of the word) development tool links + + + + + diff --git a/harbour/website/faq/harbour55.html b/harbour/website/faq/harbour55.html new file mode 100644 index 0000000000..2060ba21cf --- /dev/null +++ b/harbour/website/faq/harbour55.html @@ -0,0 +1,49 @@ + + + + + +Free (in either sense of the word) development tool links + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Free (in either sense of the word) development tool links
+Previous: Articles about Harbour
+Next: Clipper related links + + +
+

7.3. Free (in either sense of the word) development tool links

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Free (in either sense of the word) development tool links
+Previous: Articles about Harbour
+Next: Clipper related links + + + + + diff --git a/harbour/website/faq/harbour56.html b/harbour/website/faq/harbour56.html new file mode 100644 index 0000000000..8217ac916d --- /dev/null +++ b/harbour/website/faq/harbour56.html @@ -0,0 +1,49 @@ + + + + + +Clipper related links + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Clipper related links
+Previous: Free (in either sense of the word) development tool links
+Next: Free software related links + + +
+

7.4. Clipper related links

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Clipper related links
+Previous: Free (in either sense of the word) development tool links
+Next: Free software related links + + + + + diff --git a/harbour/website/faq/harbour57.html b/harbour/website/faq/harbour57.html new file mode 100644 index 0000000000..f4bee265c0 --- /dev/null +++ b/harbour/website/faq/harbour57.html @@ -0,0 +1,48 @@ + + + + + +Free software related links + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Free software related links
+Previous: Clipper related links
+Next: Other handy links + + +
+

7.5. Free software related links

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Free software related links
+Previous: Clipper related links
+Next: Other handy links + + + + + diff --git a/harbour/website/faq/harbour58.html b/harbour/website/faq/harbour58.html new file mode 100644 index 0000000000..750ec85433 --- /dev/null +++ b/harbour/website/faq/harbour58.html @@ -0,0 +1,42 @@ + + + + + +Other handy links + + + +Frequently Asked Questions about Harbour + : Pointers and links + : Other handy links
+Previous: Free software related links
+Next: Administrative information + + +
+

7.6. Other handy links

+

+

+

+ +
+Frequently Asked Questions about Harbour + : Pointers and links + : Other handy links
+Previous: Free software related links
+Next: Administrative information + + + + + diff --git a/harbour/website/faq/harbour59.html b/harbour/website/faq/harbour59.html new file mode 100644 index 0000000000..ac45d35e8c --- /dev/null +++ b/harbour/website/faq/harbour59.html @@ -0,0 +1,31 @@ + + + + + +Administrative information + + + +Frequently Asked Questions about Harbour + : Administrative information
+Previous: Other handy links
+Next: Document URL. + + +
+

8. Administrative information

+

8.1. Document URL.

+

8.2. Downloading this document.

+

8.3. Feedback about the FAQ.

+

8.4. Document history

+
+Frequently Asked Questions about Harbour + : Administrative information
+Previous: Other handy links
+Next: Document URL. + + + + + diff --git a/harbour/website/faq/harbour6.html b/harbour/website/faq/harbour6.html new file mode 100644 index 0000000000..8ad60735f7 --- /dev/null +++ b/harbour/website/faq/harbour6.html @@ -0,0 +1,40 @@ + + + + + +About Harbour + + + +Frequently Asked Questions about Harbour + : About Harbour
+Previous: Trademarks
+Next: What is Harbour? + + +
+

2. About Harbour

+

2.1. What is Harbour?

+

2.2. Why develop Harbour?

+

2.3. Who is developing Harbour?

+

2.4. Who owns Harbour?

+

2.5. So who do I blame when it all goes wrong?

+

2.6. How did Harbour get started?

+

2.7. What is "free software"?

+

2.8. So is Harbour in the public domain?

+

2.9. What is the GPL?

+

2.10. Why was the GPL chosen as the licence for Harbour?

+

2.11. What is the Harbour exception?

+

2.12. So why don't you use the LGPL?

+

2.13. Will my applications be affected by the GPL?

+
+Frequently Asked Questions about Harbour + : About Harbour
+Previous: Trademarks
+Next: What is Harbour? + + + + + diff --git a/harbour/website/faq/harbour60.html b/harbour/website/faq/harbour60.html new file mode 100644 index 0000000000..5f797c2581 --- /dev/null +++ b/harbour/website/faq/harbour60.html @@ -0,0 +1,41 @@ + + + + + +Document URL. + + + +Frequently Asked Questions about Harbour + : Administrative information + : Document URL.
+Previous: Administrative information
+Next: Downloading this document. + + +
+

8.1. Document URL.

+

The primary location of this document is /faq/. There is every +chance that you might be reading this document from another location, this +is perfectly fine. However, keep in mind that only the above URL can be +relied upon to be the most up-to-date copy.

+

Alejandro de Garate has +translated portions of this document for inclusion in his Spanish harbour web site. Please note that I can't vouch for the correctness of the content +because I don't speak Spanish.

+

dongming wang has translated this +FAQ into Chinese. See +http://www.xbase.8u8.com/html/xbase/harbour/harbour-faq/harbour.html. +Once again, please note that I can't vouch for the correctness of the translation.

+ +
+Frequently Asked Questions about Harbour + : Administrative information + : Document URL.
+Previous: Administrative information
+Next: Downloading this document. + + + + + diff --git a/harbour/website/faq/harbour61.html b/harbour/website/faq/harbour61.html new file mode 100644 index 0000000000..3c72a64f89 --- /dev/null +++ b/harbour/website/faq/harbour61.html @@ -0,0 +1,34 @@ + + + + + +Downloading this document. + + + +Frequently Asked Questions about Harbour + : Administrative information + : Downloading this document.
+Previous: Document URL.
+Next: Feedback about the FAQ. + + +
+

8.2. Downloading this document.

+

You can download this document as either a zip file or a gziped tar archive. Please note that these archives contain the SGML source, the +HTML version, the PostScript version, and the plain text version of the FAQ, +along with a Makefile and two perl scripts that are used to build the FAQ +from the SGML source.

+ +
+Frequently Asked Questions about Harbour + : Administrative information + : Downloading this document.
+Previous: Document URL.
+Next: Feedback about the FAQ. + + + + + diff --git a/harbour/website/faq/harbour62.html b/harbour/website/faq/harbour62.html new file mode 100644 index 0000000000..747c4bd1c5 --- /dev/null +++ b/harbour/website/faq/harbour62.html @@ -0,0 +1,42 @@ + + + + + +Feedback about the FAQ. + + + +Frequently Asked Questions about Harbour + : Administrative information + : Feedback about the FAQ.
+Previous: Downloading this document.
+Next: Document history + + +
+

8.3. Feedback about the FAQ.

+

Feedback about this FAQ is always welcome. Comments, fixes, additions, +subtractions or questions about the document should be sent to harbour-faq@netfang.net.

+

Please note that questions about Harbour should be directed to one of +the Harbour mailing lists (development questions to the +developer's mailing list and other questions to the +Harbour user's mailing list) and/or the +Usenet group comp.lang.clipper.

+

Let me repeat that, the harbour-faq email address isn't for asking questions +about installing or using Harbour, if you feel the need to send such +questions to that address you've probably not read this document or you've +totally missed the point of the content. Either way, there is little chance +of me being able to help you by that point.

+ +
+Frequently Asked Questions about Harbour + : Administrative information + : Feedback about the FAQ.
+Previous: Downloading this document.
+Next: Document history + + + + + diff --git a/harbour/website/faq/harbour63.html b/harbour/website/faq/harbour63.html new file mode 100644 index 0000000000..75aba4a5ed --- /dev/null +++ b/harbour/website/faq/harbour63.html @@ -0,0 +1,288 @@ + + + + + +Document history + + + +Frequently Asked Questions about Harbour + : Administrative information + : Document history
+Previous: Feedback about the FAQ.
+Next: Frequently Asked Questions about Harbour + + +
+

8.4. Document history

+

+

+Revision 1.45  2004/05/03 19:00:32
+
+Updated CVSROOT to match current SourceForge usage.
+
+Revision 1.44  2003/08/21 22:59:10
+
+Fixed several broken links.
+Removed a couple of broken links that could not be fixed.
+Changed my binary download link from the mirror site to the primary site.
+Added Bruno Cantero's C3 compiler to the Clipper compatible compiler list.
+
+Revision 1.43  2003/08/20 21:22:01
+
+Added xHarbour to Clipper related links
+
+Revision 1.42  2003/04/28 17:35:31
+
+Dave Pearson assigned the FAQ copyright to David G. Holm.
+
+Revision 1.41  2003/04/25 17:44:57
+
+The SGML conversion tool that I use mandates the use of name= for all URLs
+
+Revision 1.40  2003/04/24 21:09:35
+
+David G. Holm took over the Harbour FAQ at the request of Dave Pearson
+
+Revision 1.39  2003/04/16 14:10:23
+
+Changed the "primary location" for this document.
+
+Revision 1.38  2003/02/10 10:28:49
+
+Updated the links for Mingw and CygWin.
+
+Revision 1.37  2002/10/31 14:27:07
+
+Added pointer to Windows port GNU make as provided by Gerardo Perez.
+
+Revision 1.36  2002/10/03 08:25:08
+
+Improved the consistency of terms regarding the HVM and RTL.
+Re-wrote section 2.13, it was very out of date.
+Added a pointer to the Chinese translation of the FAQ.
+
+Revision 1.35  2001/12/18 08:13:03
+
+Removed the text in FAQ 2.5 that said that the wording of the warranty might
+change at some point in the future. Now that the licence details are settled
+this isn't an issue.
+Added FreeBSD to the list of known supported platforms in FAQ 6.7.
+Gave (hopefully) useful URLs to each platform listed in the above list.
+Minor text corrections.
+
+Revision 1.34  2001/12/14 17:52:27
+
+Fixed a minor spelling mistake.
+
+Revision 1.33  2001/12/14 17:48:26
+
+Updated the link to Andi's binary distribution site.
+
+Revision 1.32  2001/11/29 13:21:02
+
+Updated the link to Andi's binary distributions.
+
+Revision 1.31  2001/11/13 08:34:21
+
+todo.txt has been renamed to TODO. Updated FAQ 3.7 to point to the new name
+for the file.
+
+Revision 1.30  2001/11/12 16:23:36
+
+Added pointers to Andi's unstable binary distributions.
+
+Revision 1.29  2001/09/24 09:07:18
+
+Added a pointer to Clip in the list of other Clipper compiler
+implementations.
+
+Revision 1.28  2001/08/21 10:21:20
+
+Changed question 3.7 to reflect the fact that there is now a TODO list.
+
+Revision 1.27  2001/07/05 10:15:39
+
+Replaced the (non-working since Deja died) Deja link to Antonio's initial
+comp.lang.clipper post with a link to the article in Google Groups' archive.
+
+Revision 1.26  2001/05/04 10:03:10
+
+The CVS server has had the Harbour-project renamed to harbour-project.
+Changed all CVS references to take this into account.
+
+Revision 1.25  2001/04/26 10:11:19
+
+Updated the copyright details of this document.
+
+Revision 1.24  2001/04/26 10:10:17
+
+Updated some of the entries regarding licence choices and the Harbour
+exception. The exception has changed slightly and the GPL is here to stay.
+
+Revision 1.23  2001/02/27 18:13:12
+
+Attila Feher pointed out that the pointers to the DJGPP port of GNU make on
+ftp.cdrom.com had decayed. Fixed.
+
+Revision 1.22  2001/01/20 08:52:48
+
+Updated CVS information, the Blandy document has moved and Alex Schaft
+pointed out a problem with following the anonymous CVS example from a
+GNU/Linux box.
+
+Revision 1.21  2000/12/19 13:09:55
+
+Changed the www.hagbard.demon.co.uk links to www.davep.org links.
+
+Revision 1.20  2000/10/12 13:35:19
+
+Changed all mailing list links from eGroups to harbour's own list server.
+
+Revision 1.19  2000/08/25 15:46:56
+
+Correct the CVS tutorial links.
+Added a pointer to the Harbour User's mailing list archives.
+Added a pointer to my Harbour page.
+
+Revision 1.18  2000/06/06 12:22:45
+
+Added details about the Harbour user's mailing list.
+Added "Are there any newsgroups for Harbour?".
+
+Revision 1.17  2000/05/24 17:23:56
+
+Changed all the OneList links to eGroups links.
+
+Revision 1.16  2000/05/22 09:52:16
+
+Added a pointer to Borland's free (of cost) compiler.
+Changed some of the details about source snapshots.
+Added a section for pointers to articles about Harbour.
+
+Revision 1.15  2000/02/17 09:16:53
+
+Removed a link to Matthew's that I missed in the last version.
+
+Revision 1.14  2000/02/17 09:13:12
+
+Removed the pointer to Matthew Collins' snapshot page while he's unable to
+maintain it.
+Expanded the answer to question 6.4 to reflect the fact that harbour
+development is coming along apace.
+Added a pointer to the Spanish language pages that contain a translation of
+parts of this document.
+Fixed random spelling mistakes.
+
+Revision 1.13  2000/01/27 10:00:57
+
+Added "Is Harbour a Windows development tool?".
+Added "What platforms are supported by Harbour?".
+Removed the pointers to Andi Jahja's harbour snapshot and binary FAQ
+distribution while he isn't in a position to support them.
+
+Revision 1.12  2000/01/17 12:42:46
+
+Brian Hays pointed out that the DOS CVS client and section 3.5 didn't fully
+agree. Fixed.
+
+Revision 1.11  2000/01/10 16:55:43
+
+Fixed one or two language bugs.
+Improved some of the language regarding the GPL (thanks to RMS for his input
+on this subject).
+Noted that this document is now available from Harbour's SourceForge pages.
+
+Revision 1.10  1999/12/20 18:56:52
+
+Changed the Clipper compiler implementation list in section 7.3 so that it
+better outlines what level of the language each compiler implements.
+Updated the URL for The Oasis.
+The FAQ is now available as a PostScript file.
+Changed the email addresses to point to davep.org instead of hagbard.
+Changed the details of the CVS server now that we've moved to SourceForge.
+
+Revision 1.9  1999/11/18 17:10:36
+
+Added details of Andi's unstable snapshot.
+Where approptiate, parts of the main document have been linked to the
+Clipper implementation list in section 7.3.
+Changed section 6.5 so that it mentions the 3rd party support list.
+
+Revision 1.8  1999/11/16 16:35:41
+
+Corrected the notes about David's and Matthew's web sites in section 7.1,
+I'd moved David's to Matthew's and forgot to add one for Matthew.
+
+Revision 1.7  1999/11/16 16:31:52
+
+Added a warning about using non-free licenced copyrighted code to the
+development guidelines in section 3.8.
+Changed the wording in section 4.2 to suggest thet harbour will have a users
+mailing list "post-alpha" instead of "post-beta".
+Added details about Matthew Collins' unstable snapshot to section 3.4.
+Hunted down and fixed a couple more `htmlurl' tags that should have been
+`url' tags.
+Added details of Andi Jahja's alternative (WinTel oriented) FAQ formats.
+One or two general tidy-ups.
+
+Revision 1.6  1999/10/10 08:02:41
+
+The HTML produced from harbour.sgml is now passed thru a perl script which
+adds some extra colour and formatting information to make the FAQ better fit
+the colour scheme of the harbour web site (if you didn't notice the problem
+your browser is probably dictating how you view information).
+
+Revision 1.5  1999/10/09 15:11:07
+
+Removed the split of DOS 16/32 bit in the make details part of section 3.3.
+Changed the `htmlurl' tags into `url' tags in section 3.3, this means that
+the URLs actually show up in the plain text version of the FAQ.
+Changed the C compiler entry in 3.3 so that it reads better in both the HTML
+and plain text versions of the FAQ.
+Changed the CVS entry in 3.3 so that it reads better in both the HTML and
+plain text versions of the FAQ.
+The heading for the CVS links in section 7.5 read "RCS" when it should have
+read "CVS". Fixed.
+Placed the Clipper compiler implementations listed in section 7.3 into their
+own sub-list.
+
+Revision 1.4  1999/10/06 05:44:16
+
+Rewrote section 3.4 to reflect the fact that three different methods of
+getting the Harbour source now exist.
+
+Revision 1.3  1999/10/02 13:44:15
+
+Updated the information about the downloading of binary archives from the
+Harbour web site.
+Fixed one or two spelling mistakes and grammatical errors.
+
+Revision 1.2  1999/10/02 07:47:06
+
+Fixed some formatting bugs and spelling mistakes.
+Added details of David Holm's Harbour site.
+Noted in the CVS client setup advice that OS/2 requires the same environment
+variables as Windows.
+Made a move to fill the gaps in the development tool pointer list (your
+contributions are still needed people!).
+
+Revision 1.1  1999/10/01 13:36:23
+
+Initial revision
+
+
+

+ +
+Frequently Asked Questions about Harbour + : Administrative information + : Document history
+Previous: Feedback about the FAQ.
+Next: Frequently Asked Questions about Harbour + + + + + diff --git a/harbour/website/faq/harbour7.html b/harbour/website/faq/harbour7.html new file mode 100644 index 0000000000..67c550d6c2 --- /dev/null +++ b/harbour/website/faq/harbour7.html @@ -0,0 +1,43 @@ + + + + + +What is Harbour? + + + +Frequently Asked Questions about Harbour + : About Harbour + : What is Harbour?
+Previous: About Harbour
+Next: Why develop Harbour? + + +
+

2.1. What is Harbour?

+

Harbour is a +free software compiler for the +xBase superset language often referred to as Clipper (the language that is +implemented by the compiler +CA-Clipper). +Harbour's chosen base implementation is, for the moment, the 5.2e version of +CA-Clipper. This isn't to say that the +additions found in 5.3 won't make it into Harbour, it simply reflects the +fact that many Clipper programmers see 5.2e as the "last best" +implementation of Clipper.

+

If the 5.3 extensions to the language are important to you please feel free +to +contribute to the project.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : What is Harbour?
+Previous: About Harbour
+Next: Why develop Harbour? + + + + + diff --git a/harbour/website/faq/harbour8.html b/harbour/website/faq/harbour8.html new file mode 100644 index 0000000000..059c621d33 --- /dev/null +++ b/harbour/website/faq/harbour8.html @@ -0,0 +1,34 @@ + + + + + +Why develop Harbour? + + + +Frequently Asked Questions about Harbour + : About Harbour + : Why develop Harbour?
+Previous: What is Harbour?
+Next: Who is developing Harbour? + + +
+

2.2. Why develop Harbour?

+

There are probably more reasons for developing Harbour than there are +Harbour developers. To gain a better understanding of why some +free software gets developed you might want to +have a read of The Cathedral and the Bazaar.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : Why develop Harbour?
+Previous: What is Harbour?
+Next: Who is developing Harbour? + + + + + diff --git a/harbour/website/faq/harbour9.html b/harbour/website/faq/harbour9.html new file mode 100644 index 0000000000..135bd0f8ca --- /dev/null +++ b/harbour/website/faq/harbour9.html @@ -0,0 +1,37 @@ + + + + + +Who is developing Harbour? + + + +Frequently Asked Questions about Harbour + : About Harbour + : Who is developing Harbour?
+Previous: Why develop Harbour?
+Next: Who owns Harbour? + + +
+

2.3. Who is developing Harbour?

+

Many people. There are a small handful of people who could be called the +"core development team" but the actual set of people who are +contributing to the project is constantly in flux. Anyone can join the +"development team" and, if you've got something to offer the +project, you'll be more than welcome.

+

Anyone wondering who the core developers are should pop over to the Harbour project web site and +look at the crew list.

+ +
+Frequently Asked Questions about Harbour + : About Harbour + : Who is developing Harbour?
+Previous: Why develop Harbour?
+Next: Who owns Harbour? + + + + + diff --git a/harbour/website/faq/harbour_toc.html b/harbour/website/faq/harbour_toc.html new file mode 100644 index 0000000000..2b115d8dbc --- /dev/null +++ b/harbour/website/faq/harbour_toc.html @@ -0,0 +1,98 @@ + + + + + +Frequently Asked Questions about Harbour + +

Frequently Asked Questions about Harbour

+
+
1. Legal Stuff +
+
1.1. Copyright +
1.2. Licence +
1.3. Warranty +
1.4. Trademarks +
+
+
2. About Harbour +
+
2.1. What is Harbour? +
2.2. Why develop Harbour? +
2.3. Who is developing Harbour? +
2.4. Who owns Harbour? +
2.5. So who do I blame when it all goes wrong? +
2.6. How did Harbour get started? +
2.7. What is "free software"? +
2.8. So is Harbour in the public domain? +
2.9. What is the GPL? +
2.10. Why was the GPL chosen as the licence for Harbour? +
2.11. What is the Harbour exception? +
2.12. So why don't you use the LGPL? +
2.13. Will my applications be affected by the GPL? +
+
+
3. Helping develop Harbour +
+
3.1. How do I get started? +
3.2. What C compiler should I use? +
3.3. What other tools do I need? +
3.4. Where can I find the source? +
3.5. What is CVS and how do I use it? +
3.6. How do I build Harbour? +
3.7. What needs working on? +
3.8. Are there any development guidelines? +
3.9. Is it ok to extend the language with some spiffy new feature? +
3.10. So what's with all these language extensions then? +
3.11. I can't code C, how can I help development? +
3.12. I've got loads of Clipper code I can donate, what shall I do? +
3.13. I can't submit Clipper code either, can I still help anyway? +
+
+
4. The Harbour mailing lists +
+
4.1. Is there a developer's mailing list? +
4.2. Is there a user's mailing list? +
4.3. Is there a general discussion mailing list? +
4.4. How do I remove myself from the mailing lists? +
4.5. Are there any rules on the lists? +
4.6. Are the lists archived anywhere? +
4.7. Are there any newsgroups for Harbour? +
+
+
5. Installing Harbour +
+
5.1. Where can I get pre-built binaries? +
+
+
6. General Harbour questions +
+
6.1. When will Harbour be finished? +
6.2. Are applications <attribute> than CA-Clipper applications? +
6.3. What advantages does Harbour have over other Clipper compilers? +
6.4. What advantages do other Clipper compilers have over Harbour? +
6.5. Will Harbour support existing CA-Clipper 3rd party products? +
6.6. Is Harbour a Windows development tool? +
6.7. What platforms are supported by Harbour? +
+
+
7. Pointers and links +
+
7.1. Harbour related links +
7.2. Articles about Harbour +
7.3. Free (in either sense of the word) development tool links +
7.4. Clipper related links +
7.5. Free software related links +
7.6. Other handy links +
+
+
8. Administrative information +
+
8.1. Document URL. +
8.2. Downloading this document. +
8.3. Feedback about the FAQ. +
8.4. Document history +
+
+
+ diff --git a/harbour/website/faq/index.html b/harbour/website/faq/index.html new file mode 100644 index 0000000000..a6872a51dc --- /dev/null +++ b/harbour/website/faq/index.html @@ -0,0 +1,94 @@ + + + + + +Frequently Asked Questions about Harbour + + + +

Frequently Asked Questions about Harbour

+

David G. Holm <harbour-faq@netfang.net>

Revision: 1.45 Date: 2004/05/03 19:00:32 +

1. Legal Stuff

+
+
1.1. Copyright
+
1.2. Licence
+
1.3. Warranty
+
1.4. Trademarks
+
+

2. About Harbour

+
+
2.1. What is Harbour?
+
2.2. Why develop Harbour?
+
2.3. Who is developing Harbour?
+
2.4. Who owns Harbour?
+
2.5. So who do I blame when it all goes wrong?
+
2.6. How did Harbour get started?
+
2.7. What is "free software"?
+
2.8. So is Harbour in the public domain?
+
2.9. What is the GPL?
+
2.10. Why was the GPL chosen as the licence for Harbour?
+
2.11. What is the Harbour exception?
+
2.12. So why don't you use the LGPL?
+
2.13. Will my applications be affected by the GPL?
+
+

3. Helping develop Harbour

+
+
3.1. How do I get started?
+
3.2. What C compiler should I use?
+
3.3. What other tools do I need?
+
3.4. Where can I find the source?
+
3.5. What is CVS and how do I use it?
+
3.6. How do I build Harbour?
+
3.7. What needs working on?
+
3.8. Are there any development guidelines?
+
3.9. Is it ok to extend the language with some spiffy new feature?
+
3.10. So what's with all these language extensions then?
+
3.11. I can't code C, how can I help development?
+
3.12. I've got loads of Clipper code I can donate, what shall I do?
+
3.13. I can't submit Clipper code either, can I still help anyway?
+
+

4. The Harbour mailing lists

+
+
4.1. Is there a developer's mailing list?
+
4.2. Is there a user's mailing list?
+
4.3. Is there a general discussion mailing list?
+
4.4. How do I remove myself from the mailing lists?
+
4.5. Are there any rules on the lists?
+
4.6. Are the lists archived anywhere?
+
4.7. Are there any newsgroups for Harbour?
+
+

5. Installing Harbour

+
+
5.1. Where can I get pre-built binaries?
+
+

6. General Harbour questions

+
+
6.1. When will Harbour be finished?
+
6.2. Are applications <attribute> than CA-Clipper applications?
+
6.3. What advantages does Harbour have over other Clipper compilers?
+
6.4. What advantages do other Clipper compilers have over Harbour?
+
6.5. Will Harbour support existing CA-Clipper 3rd party products?
+
6.6. Is Harbour a Windows development tool?
+
6.7. What platforms are supported by Harbour?
+
+

7. Pointers and links

+
+
7.1. Harbour related links
+
7.2. Articles about Harbour
+
7.3. Free (in either sense of the word) development tool links
+
7.4. Clipper related links
+
7.5. Free software related links
+
7.6. Other handy links
+
+

8. Administrative information

+
+
8.1. Document URL.
+
8.2. Downloading this document.
+
8.3. Feedback about the FAQ.
+
8.4. Document history
+
+ + + + diff --git a/harbour/website/favicon.ico b/harbour/website/favicon.ico new file mode 100644 index 0000000000..6e218a9d3d Binary files /dev/null and b/harbour/website/favicon.ico differ diff --git a/harbour/website/images/about.png b/harbour/website/images/about.png new file mode 100644 index 0000000000..87200ee438 Binary files /dev/null and b/harbour/website/images/about.png differ diff --git a/harbour/website/images/alert.png b/harbour/website/images/alert.png new file mode 100644 index 0000000000..4848c98e7b Binary files /dev/null and b/harbour/website/images/alert.png differ diff --git a/harbour/website/images/arrow_r.gif b/harbour/website/images/arrow_r.gif new file mode 100644 index 0000000000..8ad98e6f8d Binary files /dev/null and b/harbour/website/images/arrow_r.gif differ diff --git a/harbour/website/images/arrow_up.gif b/harbour/website/images/arrow_up.gif new file mode 100644 index 0000000000..34b064009f Binary files /dev/null and b/harbour/website/images/arrow_up.gif differ diff --git a/harbour/website/images/bg1.png b/harbour/website/images/bg1.png new file mode 100644 index 0000000000..c43ea6ab61 Binary files /dev/null and b/harbour/website/images/bg1.png differ diff --git a/harbour/website/images/blank.gif b/harbour/website/images/blank.gif new file mode 100644 index 0000000000..c5073147f9 Binary files /dev/null and b/harbour/website/images/blank.gif differ diff --git a/harbour/website/images/button-blue.jpg b/harbour/website/images/button-blue.jpg new file mode 100644 index 0000000000..8b085655b0 Binary files /dev/null and b/harbour/website/images/button-blue.jpg differ diff --git a/harbour/website/images/button-green.jpg b/harbour/website/images/button-green.jpg new file mode 100644 index 0000000000..e689eaae6b Binary files /dev/null and b/harbour/website/images/button-green.jpg differ diff --git a/harbour/website/images/button-info.jpg b/harbour/website/images/button-info.jpg new file mode 100644 index 0000000000..e9a5592f36 Binary files /dev/null and b/harbour/website/images/button-info.jpg differ diff --git a/harbour/website/images/button-ok.jpg b/harbour/website/images/button-ok.jpg new file mode 100644 index 0000000000..71b8f00012 Binary files /dev/null and b/harbour/website/images/button-ok.jpg differ diff --git a/harbour/website/images/button-red.jpg b/harbour/website/images/button-red.jpg new file mode 100644 index 0000000000..4adcdc9e03 Binary files /dev/null and b/harbour/website/images/button-red.jpg differ diff --git a/harbour/website/images/button-withe.jpg b/harbour/website/images/button-withe.jpg new file mode 100644 index 0000000000..e6110ebcb2 Binary files /dev/null and b/harbour/website/images/button-withe.jpg differ diff --git a/harbour/website/images/button-yellow.jpg b/harbour/website/images/button-yellow.jpg new file mode 100644 index 0000000000..5e1a095a24 Binary files /dev/null and b/harbour/website/images/button-yellow.jpg differ diff --git a/harbour/website/images/cca_nominate-2.png b/harbour/website/images/cca_nominate-2.png new file mode 100644 index 0000000000..8fd958c051 Binary files /dev/null and b/harbour/website/images/cca_nominate-2.png differ diff --git a/harbour/website/images/cca_nominate.png b/harbour/website/images/cca_nominate.png new file mode 100644 index 0000000000..4a858209c8 Binary files /dev/null and b/harbour/website/images/cca_nominate.png differ diff --git a/harbour/website/images/crew.png b/harbour/website/images/crew.png new file mode 100644 index 0000000000..aeb3146651 Binary files /dev/null and b/harbour/website/images/crew.png differ diff --git a/harbour/website/images/development.png b/harbour/website/images/development.png new file mode 100644 index 0000000000..765a61878a Binary files /dev/null and b/harbour/website/images/development.png differ diff --git a/harbour/website/images/documentation.png b/harbour/website/images/documentation.png new file mode 100644 index 0000000000..d4a06b52e0 Binary files /dev/null and b/harbour/website/images/documentation.png differ diff --git a/harbour/website/images/downloads.png b/harbour/website/images/downloads.png new file mode 100644 index 0000000000..6f3be82316 Binary files /dev/null and b/harbour/website/images/downloads.png differ diff --git a/harbour/website/images/file-doc.png b/harbour/website/images/file-doc.png new file mode 100644 index 0000000000..48310d5c4d Binary files /dev/null and b/harbour/website/images/file-doc.png differ diff --git a/harbour/website/images/fill-gradient-no-meio.jpg b/harbour/website/images/fill-gradient-no-meio.jpg new file mode 100644 index 0000000000..e8716575b7 Binary files /dev/null and b/harbour/website/images/fill-gradient-no-meio.jpg differ diff --git a/harbour/website/images/flagbr.png b/harbour/website/images/flagbr.png new file mode 100644 index 0000000000..be6e066414 Binary files /dev/null and b/harbour/website/images/flagbr.png differ diff --git a/harbour/website/images/flages.png b/harbour/website/images/flages.png new file mode 100644 index 0000000000..a9e993008c Binary files /dev/null and b/harbour/website/images/flages.png differ diff --git a/harbour/website/images/flageua.png b/harbour/website/images/flageua.png new file mode 100644 index 0000000000..e2bce87897 Binary files /dev/null and b/harbour/website/images/flageua.png differ diff --git a/harbour/website/images/flags/australia.jpg b/harbour/website/images/flags/australia.jpg new file mode 100644 index 0000000000..7ee89fe1de Binary files /dev/null and b/harbour/website/images/flags/australia.jpg differ diff --git a/harbour/website/images/flags/belgium.jpg b/harbour/website/images/flags/belgium.jpg new file mode 100644 index 0000000000..6005e055c4 Binary files /dev/null and b/harbour/website/images/flags/belgium.jpg differ diff --git a/harbour/website/images/flags/brazil.jpg b/harbour/website/images/flags/brazil.jpg new file mode 100644 index 0000000000..adb8cbe8d5 Binary files /dev/null and b/harbour/website/images/flags/brazil.jpg differ diff --git a/harbour/website/images/flags/canada.jpg b/harbour/website/images/flags/canada.jpg new file mode 100644 index 0000000000..5618f4b37b Binary files /dev/null and b/harbour/website/images/flags/canada.jpg differ diff --git a/harbour/website/images/flags/chile.jpg b/harbour/website/images/flags/chile.jpg new file mode 100644 index 0000000000..c701f629dd Binary files /dev/null and b/harbour/website/images/flags/chile.jpg differ diff --git a/harbour/website/images/flags/germany.jpg b/harbour/website/images/flags/germany.jpg new file mode 100644 index 0000000000..03ac2b44b2 Binary files /dev/null and b/harbour/website/images/flags/germany.jpg differ diff --git a/harbour/website/images/flags/hungary.jpg b/harbour/website/images/flags/hungary.jpg new file mode 100644 index 0000000000..3a437559cf Binary files /dev/null and b/harbour/website/images/flags/hungary.jpg differ diff --git a/harbour/website/images/flags/india.jpg b/harbour/website/images/flags/india.jpg new file mode 100644 index 0000000000..49af2e5aff Binary files /dev/null and b/harbour/website/images/flags/india.jpg differ diff --git a/harbour/website/images/flags/indonesia.jpg b/harbour/website/images/flags/indonesia.jpg new file mode 100644 index 0000000000..ca91f00efa Binary files /dev/null and b/harbour/website/images/flags/indonesia.jpg differ diff --git a/harbour/website/images/flags/israel.jpg b/harbour/website/images/flags/israel.jpg new file mode 100644 index 0000000000..f0b0582b16 Binary files /dev/null and b/harbour/website/images/flags/israel.jpg differ diff --git a/harbour/website/images/flags/italy.jpg b/harbour/website/images/flags/italy.jpg new file mode 100644 index 0000000000..26b2cfad42 Binary files /dev/null and b/harbour/website/images/flags/italy.jpg differ diff --git a/harbour/website/images/flags/korea.jpg b/harbour/website/images/flags/korea.jpg new file mode 100644 index 0000000000..7ef9fae5e8 Binary files /dev/null and b/harbour/website/images/flags/korea.jpg differ diff --git a/harbour/website/images/flags/netherlands.jpg b/harbour/website/images/flags/netherlands.jpg new file mode 100644 index 0000000000..28bf942dae Binary files /dev/null and b/harbour/website/images/flags/netherlands.jpg differ diff --git a/harbour/website/images/flags/poland.jpg b/harbour/website/images/flags/poland.jpg new file mode 100644 index 0000000000..3511823cc4 Binary files /dev/null and b/harbour/website/images/flags/poland.jpg differ diff --git a/harbour/website/images/flags/russia.jpg b/harbour/website/images/flags/russia.jpg new file mode 100644 index 0000000000..b0a8b90376 Binary files /dev/null and b/harbour/website/images/flags/russia.jpg differ diff --git a/harbour/website/images/flags/scotland.jpg b/harbour/website/images/flags/scotland.jpg new file mode 100644 index 0000000000..b7a44b9f31 Binary files /dev/null and b/harbour/website/images/flags/scotland.jpg differ diff --git a/harbour/website/images/flags/spain.jpg b/harbour/website/images/flags/spain.jpg new file mode 100644 index 0000000000..59011ffe9d Binary files /dev/null and b/harbour/website/images/flags/spain.jpg differ diff --git a/harbour/website/images/flags/unknown.png b/harbour/website/images/flags/unknown.png new file mode 100644 index 0000000000..e9e238c193 Binary files /dev/null and b/harbour/website/images/flags/unknown.png differ diff --git a/harbour/website/images/flags/usa.jpg b/harbour/website/images/flags/usa.jpg new file mode 100644 index 0000000000..d0e0f3fdfd Binary files /dev/null and b/harbour/website/images/flags/usa.jpg differ diff --git a/harbour/website/images/footer.gif b/harbour/website/images/footer.gif new file mode 100644 index 0000000000..2e497841d5 Binary files /dev/null and b/harbour/website/images/footer.gif differ diff --git a/harbour/website/images/grid-amarelo3.png b/harbour/website/images/grid-amarelo3.png new file mode 100644 index 0000000000..c58bde1ae3 Binary files /dev/null and b/harbour/website/images/grid-amarelo3.png differ diff --git a/harbour/website/images/harbour.ico b/harbour/website/images/harbour.ico new file mode 100644 index 0000000000..f92a768e65 Binary files /dev/null and b/harbour/website/images/harbour.ico differ diff --git a/harbour/website/images/harbourart.png b/harbour/website/images/harbourart.png new file mode 100644 index 0000000000..69b82ffec0 Binary files /dev/null and b/harbour/website/images/harbourart.png differ diff --git a/harbour/website/images/header_01.jpg b/harbour/website/images/header_01.jpg new file mode 100644 index 0000000000..08f7fec1cd Binary files /dev/null and b/harbour/website/images/header_01.jpg differ diff --git a/harbour/website/images/header_02.jpg b/harbour/website/images/header_02.jpg new file mode 100644 index 0000000000..432370e957 Binary files /dev/null and b/harbour/website/images/header_02.jpg differ diff --git a/harbour/website/images/header_02.png b/harbour/website/images/header_02.png new file mode 100644 index 0000000000..bbf060c031 Binary files /dev/null and b/harbour/website/images/header_02.png differ diff --git a/harbour/website/images/header_03.png b/harbour/website/images/header_03.png new file mode 100644 index 0000000000..58eb5b1cbb Binary files /dev/null and b/harbour/website/images/header_03.png differ diff --git a/harbour/website/images/header_04.png b/harbour/website/images/header_04.png new file mode 100644 index 0000000000..05c48697ec Binary files /dev/null and b/harbour/website/images/header_04.png differ diff --git a/harbour/website/images/header_05.png b/harbour/website/images/header_05.png new file mode 100644 index 0000000000..88036257b5 Binary files /dev/null and b/harbour/website/images/header_05.png differ diff --git a/harbour/website/images/header_06.png b/harbour/website/images/header_06.png new file mode 100644 index 0000000000..00a2bd0192 Binary files /dev/null and b/harbour/website/images/header_06.png differ diff --git a/harbour/website/images/header_07.png b/harbour/website/images/header_07.png new file mode 100644 index 0000000000..2be8bf2adc Binary files /dev/null and b/harbour/website/images/header_07.png differ diff --git a/harbour/website/images/header_08.png b/harbour/website/images/header_08.png new file mode 100644 index 0000000000..cf5c429c77 Binary files /dev/null and b/harbour/website/images/header_08.png differ diff --git a/harbour/website/images/header_09.png b/harbour/website/images/header_09.png new file mode 100644 index 0000000000..6f3be82316 Binary files /dev/null and b/harbour/website/images/header_09.png differ diff --git a/harbour/website/images/header_10.png b/harbour/website/images/header_10.png new file mode 100644 index 0000000000..255f5db671 Binary files /dev/null and b/harbour/website/images/header_10.png differ diff --git a/harbour/website/images/header_11.png b/harbour/website/images/header_11.png new file mode 100644 index 0000000000..765a61878a Binary files /dev/null and b/harbour/website/images/header_11.png differ diff --git a/harbour/website/images/header_12.png b/harbour/website/images/header_12.png new file mode 100644 index 0000000000..ee787d065a Binary files /dev/null and b/harbour/website/images/header_12.png differ diff --git a/harbour/website/images/header_13.png b/harbour/website/images/header_13.png new file mode 100644 index 0000000000..2582e04d27 Binary files /dev/null and b/harbour/website/images/header_13.png differ diff --git a/harbour/website/images/header_14.png b/harbour/website/images/header_14.png new file mode 100644 index 0000000000..d0149a9ce3 Binary files /dev/null and b/harbour/website/images/header_14.png differ diff --git a/harbour/website/images/header_15.png b/harbour/website/images/header_15.png new file mode 100644 index 0000000000..69b82ffec0 Binary files /dev/null and b/harbour/website/images/header_15.png differ diff --git a/harbour/website/images/header_16.png b/harbour/website/images/header_16.png new file mode 100644 index 0000000000..8b008fb78a Binary files /dev/null and b/harbour/website/images/header_16.png differ diff --git a/harbour/website/images/header_17.png b/harbour/website/images/header_17.png new file mode 100644 index 0000000000..a8fe64c6ab Binary files /dev/null and b/harbour/website/images/header_17.png differ diff --git a/harbour/website/images/header_18.png b/harbour/website/images/header_18.png new file mode 100644 index 0000000000..5bbb7072ec Binary files /dev/null and b/harbour/website/images/header_18.png differ diff --git a/harbour/website/images/header_19.png b/harbour/website/images/header_19.png new file mode 100644 index 0000000000..a1ce949040 Binary files /dev/null and b/harbour/website/images/header_19.png differ diff --git a/harbour/website/images/header_20.png b/harbour/website/images/header_20.png new file mode 100644 index 0000000000..b63f36b907 Binary files /dev/null and b/harbour/website/images/header_20.png differ diff --git a/harbour/website/images/header_21.png b/harbour/website/images/header_21.png new file mode 100644 index 0000000000..9383ac3df2 Binary files /dev/null and b/harbour/website/images/header_21.png differ diff --git a/harbour/website/images/header_22.png b/harbour/website/images/header_22.png new file mode 100644 index 0000000000..bf110a5827 Binary files /dev/null and b/harbour/website/images/header_22.png differ diff --git a/harbour/website/images/header_23.png b/harbour/website/images/header_23.png new file mode 100644 index 0000000000..095a4a8eab Binary files /dev/null and b/harbour/website/images/header_23.png differ diff --git a/harbour/website/images/header_24.png b/harbour/website/images/header_24.png new file mode 100644 index 0000000000..95582f86ab Binary files /dev/null and b/harbour/website/images/header_24.png differ diff --git a/harbour/website/images/header_25.png b/harbour/website/images/header_25.png new file mode 100644 index 0000000000..fc80ede267 Binary files /dev/null and b/harbour/website/images/header_25.png differ diff --git a/harbour/website/images/header_26.png b/harbour/website/images/header_26.png new file mode 100644 index 0000000000..8d813d6f42 Binary files /dev/null and b/harbour/website/images/header_26.png differ diff --git a/harbour/website/images/header_27.png b/harbour/website/images/header_27.png new file mode 100644 index 0000000000..8d813d6f42 Binary files /dev/null and b/harbour/website/images/header_27.png differ diff --git a/harbour/website/images/helmet.png b/harbour/website/images/helmet.png new file mode 100644 index 0000000000..ad9eee2801 Binary files /dev/null and b/harbour/website/images/helmet.png differ diff --git a/harbour/website/images/home.png b/harbour/website/images/home.png new file mode 100644 index 0000000000..a29110ec37 Binary files /dev/null and b/harbour/website/images/home.png differ diff --git a/harbour/website/images/interfaces.png b/harbour/website/images/interfaces.png new file mode 100644 index 0000000000..548e6d136b Binary files /dev/null and b/harbour/website/images/interfaces.png differ diff --git a/harbour/website/images/language_en.png b/harbour/website/images/language_en.png new file mode 100644 index 0000000000..31e988b422 Binary files /dev/null and b/harbour/website/images/language_en.png differ diff --git a/harbour/website/images/library.png b/harbour/website/images/library.png new file mode 100644 index 0000000000..9530a3e8bf Binary files /dev/null and b/harbour/website/images/library.png differ diff --git a/harbour/website/images/menu-bg-grd.jpg b/harbour/website/images/menu-bg-grd.jpg new file mode 100644 index 0000000000..d4d629c8ba Binary files /dev/null and b/harbour/website/images/menu-bg-grd.jpg differ diff --git a/harbour/website/images/menu-bg.gif b/harbour/website/images/menu-bg.gif new file mode 100644 index 0000000000..ba739f5392 Binary files /dev/null and b/harbour/website/images/menu-bg.gif differ diff --git a/harbour/website/images/menu-bg2.gif b/harbour/website/images/menu-bg2.gif new file mode 100644 index 0000000000..2842a620bb Binary files /dev/null and b/harbour/website/images/menu-bg2.gif differ diff --git a/harbour/website/images/menu-bg2.png b/harbour/website/images/menu-bg2.png new file mode 100644 index 0000000000..870eb0cee8 Binary files /dev/null and b/harbour/website/images/menu-bg2.png differ diff --git a/harbour/website/images/mobile2.png b/harbour/website/images/mobile2.png new file mode 100644 index 0000000000..94a6a17ef9 Binary files /dev/null and b/harbour/website/images/mobile2.png differ diff --git a/harbour/website/images/more-samples.png b/harbour/website/images/more-samples.png new file mode 100644 index 0000000000..c39ed4a095 Binary files /dev/null and b/harbour/website/images/more-samples.png differ diff --git a/harbour/website/images/news.gif b/harbour/website/images/news.gif new file mode 100644 index 0000000000..7c464bd47f Binary files /dev/null and b/harbour/website/images/news.gif differ diff --git a/harbour/website/images/news.png b/harbour/website/images/news.png new file mode 100644 index 0000000000..2582e04d27 Binary files /dev/null and b/harbour/website/images/news.png differ diff --git a/harbour/website/images/partners/cailer.png b/harbour/website/images/partners/cailer.png new file mode 100644 index 0000000000..82d5b6e118 Binary files /dev/null and b/harbour/website/images/partners/cailer.png differ diff --git a/harbour/website/images/partners/clip2win.jpg b/harbour/website/images/partners/clip2win.jpg new file mode 100644 index 0000000000..ccd9540d94 Binary files /dev/null and b/harbour/website/images/partners/clip2win.jpg differ diff --git a/harbour/website/images/partners/easyreport.png b/harbour/website/images/partners/easyreport.png new file mode 100644 index 0000000000..c93027b64a Binary files /dev/null and b/harbour/website/images/partners/easyreport.png differ diff --git a/harbour/website/images/partners/fw.jpg b/harbour/website/images/partners/fw.jpg new file mode 100644 index 0000000000..2d2af5702b Binary files /dev/null and b/harbour/website/images/partners/fw.jpg differ diff --git a/harbour/website/images/partners/hwgui.png b/harbour/website/images/partners/hwgui.png new file mode 100644 index 0000000000..8ce828a486 Binary files /dev/null and b/harbour/website/images/partners/hwgui.png differ diff --git a/harbour/website/images/partners/minigui.png b/harbour/website/images/partners/minigui.png new file mode 100644 index 0000000000..4a261e06e5 Binary files /dev/null and b/harbour/website/images/partners/minigui.png differ diff --git a/harbour/website/images/partners/oohg.jpg b/harbour/website/images/partners/oohg.jpg new file mode 100644 index 0000000000..1ad34e6de9 Binary files /dev/null and b/harbour/website/images/partners/oohg.jpg differ diff --git a/harbour/website/images/partners/otc.png b/harbour/website/images/partners/otc.png new file mode 100644 index 0000000000..182a29f0e7 Binary files /dev/null and b/harbour/website/images/partners/otc.png differ diff --git a/harbour/website/images/partners/sybase.jpg b/harbour/website/images/partners/sybase.jpg new file mode 100644 index 0000000000..886347e5c5 Binary files /dev/null and b/harbour/website/images/partners/sybase.jpg differ diff --git a/harbour/website/images/partners/viaopen.jpg b/harbour/website/images/partners/viaopen.jpg new file mode 100644 index 0000000000..8136a7a79f Binary files /dev/null and b/harbour/website/images/partners/viaopen.jpg differ diff --git a/harbour/website/images/partners/vistasoft.jpg b/harbour/website/images/partners/vistasoft.jpg new file mode 100644 index 0000000000..155ac656ea Binary files /dev/null and b/harbour/website/images/partners/vistasoft.jpg differ diff --git a/harbour/website/images/partners/wxharbour.jpg b/harbour/website/images/partners/wxharbour.jpg new file mode 100644 index 0000000000..d97451fc57 Binary files /dev/null and b/harbour/website/images/partners/wxharbour.jpg differ diff --git a/harbour/website/images/partners/xbgtk.jpg b/harbour/website/images/partners/xbgtk.jpg new file mode 100644 index 0000000000..2b2c869b91 Binary files /dev/null and b/harbour/website/images/partners/xbgtk.jpg differ diff --git a/harbour/website/images/partners/xhgtk.jpg b/harbour/website/images/partners/xhgtk.jpg new file mode 100644 index 0000000000..21b01369f0 Binary files /dev/null and b/harbour/website/images/partners/xhgtk.jpg differ diff --git a/harbour/website/images/screen-capture.png b/harbour/website/images/screen-capture.png new file mode 100644 index 0000000000..7b80851767 Binary files /dev/null and b/harbour/website/images/screen-capture.png differ diff --git a/harbour/website/images/search-blue.png b/harbour/website/images/search-blue.png new file mode 100644 index 0000000000..4b3beb22b8 Binary files /dev/null and b/harbour/website/images/search-blue.png differ diff --git a/harbour/website/images/sql.png b/harbour/website/images/sql.png new file mode 100644 index 0000000000..d908f3ce9e Binary files /dev/null and b/harbour/website/images/sql.png differ diff --git a/harbour/website/images/table-azul-bottom-left.gif b/harbour/website/images/table-azul-bottom-left.gif new file mode 100644 index 0000000000..73290fe4e6 Binary files /dev/null and b/harbour/website/images/table-azul-bottom-left.gif differ diff --git a/harbour/website/images/table-azul-bottom-left.png b/harbour/website/images/table-azul-bottom-left.png new file mode 100644 index 0000000000..10b1c0b3d6 Binary files /dev/null and b/harbour/website/images/table-azul-bottom-left.png differ diff --git a/harbour/website/images/table-azul-bottom-right.gif b/harbour/website/images/table-azul-bottom-right.gif new file mode 100644 index 0000000000..4f39b5be4b Binary files /dev/null and b/harbour/website/images/table-azul-bottom-right.gif differ diff --git a/harbour/website/images/table-azul-bottom-right.png b/harbour/website/images/table-azul-bottom-right.png new file mode 100644 index 0000000000..f57773fcd9 Binary files /dev/null and b/harbour/website/images/table-azul-bottom-right.png differ diff --git a/harbour/website/images/table-azul-top-left.gif b/harbour/website/images/table-azul-top-left.gif new file mode 100644 index 0000000000..21624026b4 Binary files /dev/null and b/harbour/website/images/table-azul-top-left.gif differ diff --git a/harbour/website/images/table-azul-top-left.png b/harbour/website/images/table-azul-top-left.png new file mode 100644 index 0000000000..a57aa3a40c Binary files /dev/null and b/harbour/website/images/table-azul-top-left.png differ diff --git a/harbour/website/images/table-azul-top-right.gif b/harbour/website/images/table-azul-top-right.gif new file mode 100644 index 0000000000..69c873fd01 Binary files /dev/null and b/harbour/website/images/table-azul-top-right.gif differ diff --git a/harbour/website/images/table-azul-top-right.png b/harbour/website/images/table-azul-top-right.png new file mode 100644 index 0000000000..df647af66f Binary files /dev/null and b/harbour/website/images/table-azul-top-right.png differ diff --git a/harbour/website/images/team.png b/harbour/website/images/team.png new file mode 100644 index 0000000000..00e8943afa Binary files /dev/null and b/harbour/website/images/team.png differ diff --git a/harbour/website/images/up-alt.png b/harbour/website/images/up-alt.png new file mode 100644 index 0000000000..bcf46fb2b4 Binary files /dev/null and b/harbour/website/images/up-alt.png differ diff --git a/harbour/website/images/uses.png b/harbour/website/images/uses.png new file mode 100644 index 0000000000..ab71ca98b9 Binary files /dev/null and b/harbour/website/images/uses.png differ diff --git a/harbour/website/images/www2.png b/harbour/website/images/www2.png new file mode 100644 index 0000000000..69fbe4ac37 Binary files /dev/null and b/harbour/website/images/www2.png differ diff --git a/harbour/website/images/xml.png b/harbour/website/images/xml.png new file mode 100644 index 0000000000..8938bbc510 Binary files /dev/null and b/harbour/website/images/xml.png differ diff --git a/harbour/website/images/xml2.png b/harbour/website/images/xml2.png new file mode 100644 index 0000000000..e2267d3a7d Binary files /dev/null and b/harbour/website/images/xml2.png differ diff --git a/harbour/website/index.html b/harbour/website/index.html new file mode 100644 index 0000000000..f3223e686f --- /dev/null +++ b/harbour/website/index.html @@ -0,0 +1,443 @@ + + + + +Harbour Project - Home + + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + +
 Overview 
 The Harbour Project is a Free Open Source Software effort to build a multiplatform Clipper language compiler. Harbour consists of the xBase language compiler and the runtime libraries with different terminal plugins and different databases (not just DBF).
+
+Harbour is a cross-platform compiler and is known to compile and run on MS-DOS, Windows (32 & 64), Windows CE, Pocket PC, OS/2, GNU/Linux and Mac OS X. +More features »		 
   
+ + + + + + + + + + + + + + + + + + + + + + +
 Why use it? Project Status: 
 • Harbour is free software 100% compatible with Clipper compilers
• Harbour is proven to be stable, robust and efficient.
• Harbour is portable across multiple operating systems with the same code base.
• You can use it to develop either open source or commercial applications. Learn more»
 + + + + + + + +
Current release: v3.0.0
+ Release Date: 2011-07-17
+ Nightly source: zip  tgz  bz2  xz
+ Nightly binary: exe  7z (win)
+
 
     
 
+ + + + + + + + + + +
 Featured resources: 
  + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 
     
Native SQL, ADO & ODBC + SupportSupport modern tecnologies: XML, FTP, TCP/IP, etc.Cross-platform: 32/64-bit, Mobile, Mac, etc.Create Console, GUI, Service & Web ApplicationsContains many third party libs with additional featuresDeveloped by a very experienced and capable team of developers
 
 
+ + + + + + + + + + + + + + + +
 Licensing   
 Harbour is a free and open-source project. It can be used to make open source applications, free or commercial products. Read more»
 + + + + +
SourceForge.net Logo
 
 
+ + + + + + + + + + + + + + +
    
  + + + + + + + + + + + + + + + + + + +
Harbour Project Development News
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
July 17, 2011 Harbour 3.0.0 released
  After 1.5 years of strong development and 3600 commits, new stable version 3.0.0 is released. Sources are available on sf.net file area, prebuilt binaries will follow shortly.
   
Aug 2, 2010 Harbour successfully ported to VxWorks RTOS
  In 2010 July with few days of development effort, Harbour has been ported successfully to VxWorks 6.8 Real-Time Operating System (x86 CPU target for now) for both GNU GCC and Wind River C Compiler. Many thanks to Wind River Inc. for making their development package available to our open source compiler project. This means now Harbour can run on cars, planes, rockets and robots. :) See more about the technical details in ChangeLog entry '2010-07-16 18:22 UTC+0200 Viktor Szakats' here
   
Jun 3, 2010 Harbour Mailing Lists address change
  Thanking Phil Barnett for providing the Harbour community a great mailing list + for so many years, today, due to server problems, we have migrated the mailing + lists to Google Groups in agreement with Phil and Harbour admins. + Make sure to revise your subscription settings...
   
Dec 23, 2009 Harbour 2.0.0 unified Windows binary release
  Harbour 2.0.0 (Revision 13372) source archives and Windows binary releases are available for download on sourceforge.net. more»
   
Dec 22, 2009 Harbour v2.0.0 is released!
  After 16 months of intensive development the final version 2.0.0 is finally released. There are many highlights and news in this new release, check out some details and download your copy free. more»
   
May 13, 2009 SourceForge Community Choice Awards!
   + + + + +
The SourceForge.net announced the opening of nominations for the fourth annual SourceForge Community Choice Awards. The Harbour project is candidate - nominate us! more»
   
February 15, 2009 New website released!
  Released the new layout for our site. This includes details about the project, several examples and will soon include some tutorials. more»
   
September 17, 2008 Harbour v1.0.1 is released!
  Many deployment fixes into General, Core & Contrib sessions. All users should upgrade to receive the latest fixes. more»
   
August 10, 2008 Harbour Release v1.0.0
  Many deployment fixes into General, Core & Contrib sessions. All users should upgrade to receive the latest fixes. more»
 
See the news archive for past news articles.
  + + + + + + + + + + + + + + + +
 Sample Applications 
  + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Hello world
Hello world A single Hello World with a typical welcome message.
 
FOR EACH example
This example demonstrates how to use the FOR EACH command.
 
CGI/HTML-Generator class
This example shows how to work with Web pages using a custom class to manipulate data coming from a file and returns it to web browser.
 
Ini file reading/writing
Test for Ini files reading/writing using native Harbour functions.
 
TBrowse and TBColumn sample
A simple example demonstrating the use of classes TBrowse and TBColumn.
 
   
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
 
+ + diff --git a/harbour/website/legalnotes.html b/harbour/website/legalnotes.html new file mode 100644 index 0000000000..e29a1e75da --- /dev/null +++ b/harbour/website/legalnotes.html @@ -0,0 +1,107 @@ + + + + +Harbour Project - Legal Notes - Terms of Service + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + + + +
 Legal Notes 
  Copyright
+ The website HTML, text, images audio, video, software or other content that is made available on this website are the property of someone - the author in the case of content produced elsewhere and reproduced here with permission, or Harbour or its content suppliers. Before you use this content in some way please take care to ensure that you have the relevant rights and permissions from the copyright holder.
+
+You are welcome to display on your computer, download and print pages from this website provided the content is only used for personal, educational and non-commercial use. You must retain copyright and other notices on any copies or printouts you make. Certain of the materials available on this site are "open source" materials subject to the GNU General Public License ("GPL") or other open source license and are so marked - use of those materials is governed by the individual applicable license.
+
+Using the software
+ Your use of any software obtained from this site is subject to the terms of any license agreement provided with the software. Some of these agreements incorporate the terms of the GPL or other open source licences. Please read these agreements before installing and using the software; by installing and using the software, you will have accepted the terms of the agreements.
+
+ Trademarks
+ Any trademarks and logos displayed on this website are the property of their owners. For example, Linux is a registered trademark of Linus Torvalds. Debian is a trademark of Software in the Public Interest, Inc. Windows is allegedly a trademark of Microsoft Corporation. + All rights reserved.
+
+ Privacy policy
+ If this site makes forums, message boards, and/or news groups available to its users, please remember that any information that is disclosed in these areas becomes public information and you should exercise caution when deciding to disclose your personal information.
+
+ Links to other websites
+ This website may contain links to other websites and resources. The links are provided for convenience only and Harbour Project is not responsible for the content of any linked websites. The inclusion of any link to a website does not imply endorsement by Harbour of the website or their entities, products or services.
+
+ Disclaimer
+ This website and all information, products and services on it are provided on an "as is" basis, without warranty of any kind, either express or implied. Your use of this website is at your own risk. The Harbour Project disclaims all warranties, express or implied, including without limitation, warranties of merchantability and fitness for a particular purpose. +
+
+ Harbour Project and our developers disclaims liability for any direct, indirect, incidental, special, consequential, exemplary, punitive or other damages, or lost profits, that may result directly or indirectly from the use of this website and any material that is downloaded or obtained through the use of this website. +
+
+ This includes, without limitation, any damage to computer systems, hardware or software, loss of data, or any other performance failures, any errors, bugs, viruses or other defects that result from, or are associated with the use of this website.
+
+ Any doubts about the content on this site, please post a topic in our mailing list that we will assist you.		 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/license.html b/harbour/website/license.html new file mode 100644 index 0000000000..03855391d7 --- /dev/null +++ b/harbour/website/license.html @@ -0,0 +1,217 @@ + + + + +Harbour Project - License + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 The Harbour Project Compiler License 
 Note: This license applies to most of the files in the source/compiler + directory.
+
+ This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version.
+
+ This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + their web site at http://www.gnu.org/).		 
 
+ + + + + + + + + + +
 The Harbour Project Library License
 
  Note: This license applies to most of the files in the include directory, + source directory, and subdirectories.
+
+ This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2, or (at your option) + any later version.
+
+ This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License + along with this software; see the file COPYING. If not, write to + the Free Software Foundation, Inc., 59 Temple Place, Suite 330, + Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
+
+ As a special exception, the Harbour Project gives permission for + additional uses of the text contained in its release of Harbour.
+
+ The exception is that, if you link the Harbour libraries with other + files to produce an executable, this does not by itself cause the + resulting executable to be covered by the GNU General Public License. + Your use of that executable is in no way restricted on account of + linking the Harbour library code into it.
+
+ This exception does not however invalidate any other reasons why + the executable file might be covered by the GNU General Public License.
+
+ This exception applies only to the code released by the Harbour + Project under the name Harbour. If you copy code from other + Harbour Project or Free Software Foundation releases into a copy of + Harbour, as the General Public License permits, the exception does + not apply to the code that you add in this way. To avoid isleading
+ anyone as to the status of such modified files, you must delete + this exception notice from them.
+
+ If you write modifications of your own for Harbour, it is your choice + whether to permit this exception to apply to your modifications. + If you do not wish that, delete this exception notice.		 
 
+ + + + + + + + + + +
 The Old Harbour Project Library License
 
 Note: This license only applies to the following files:
+
+    source\rtl\philes.c
+    source\rtl\binnum.c
+    source\lang\msgeu.c
+    source\lang\msgsl437.c
+    source\lang\msgsl852.c
+    source\lang\msgsliso.c
+    source\lang\msgslwin.c
+    source\lang\msgsr852.c
+    source\lang\msgsriso.c
+
+ This program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version, with one exception:
+
+ The exception is that if you link the Harbour Runtime Library (HRL) + and/or the Harbour Virtual Machine (HVM) with other files to produce + an executable, this does not by itself cause the resulting executable + to be covered by the GNU General Public License. Your use of that + executable is in no way restricted on account of linking the HRL + and/or HVM code into it.
+
+ This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU General Public License for more details.
+
+ You should have received a copy of the GNU General Public License + along with this program; if not, write to the Free Software + Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA (or visit + their web site at http://www.gnu.org/).		 
 
+ + + + + + + + + + +
 The Harbour Project Contrib License
 
 There is no one single license that applies to the Harbour Project + contrib files. Some files use the Harbour Project Compiler license. + Some files use the Harbour Project Library license. Some files use + the old Harbour Project Library license. Some files may even use other + types of free software or open source software licenses. Some files + have been donated to the public domain. If you use any of the contrib + files, you need to investigate the license that applies to each file. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/logos.html b/harbour/website/logos.html new file mode 100644 index 0000000000..46467a2260 --- /dev/null +++ b/harbour/website/logos.html @@ -0,0 +1,179 @@ + + + + +Harbour Project - Official logos + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Official logos  
 Below offer several images containing reference to the Harbour project for use in its software and its Web site. 
   
  + + + + + + + + +
The Harbour + logo was created by Patrick + Mast. Download the Harbour + logo + in PDF, EPS & AI formats with high + resolution (829Kb).Harbour icon in Win/Mac format (5.74KB)
+ Created by Vailton Renato with Axialis IconWorkshop®.
 
 
 
 
 
 Harbour Banners
+ To put Harbour Banner on your webpage, save the image on your computer, then copy and paste the code that is below the desired image in your HTML page. 		 
  + + + + + + + + + + + + + + + + + + +

 
 
 
 
 
 
 
 Harbour Buttons 
 Right-click the mouse and select "Save As" to save the images below on your computer.
+

+ Harbour button in GIF format. (2.09Kb) +


+ "Harbour the future of xBase" (16.8Kb)

+


+ "Powered by HScript" (2.95Kb) +
+

 
 
 
 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/mailing.html b/harbour/website/mailing.html new file mode 100644 index 0000000000..c75eedd2d3 --- /dev/null +++ b/harbour/website/mailing.html @@ -0,0 +1,222 @@ + + + + +Harbour Project - Mailing Lists + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
 Current Mailing Lists 
 The current mailing lists is provided by Google Groups.
+This mailing list is a place for users of the Harbour Project to discuss and help each other to install and configure the software.		 
   
  + + + + + + + + + + + + + + + +
   
  + + + + + +
Developers List
+ This is the main Harbour list. All the core Harbour developers are on this list. This list can be very technical and advanced. If you have questions about the usage of Harbour, use the 'Harbour Users' list instead of this list.
+
+ Subscribe      Read Archives
 
   
 
   
  + + + + + + + + + + + + + + + +
   
  + + + + + +
Harbour Users
+ Use this list if you have questions about the usage of Harbour. Many harbour developers are on this list to assist Harbour users.
+
+ Subscribe      Read Archives
 
   
 
   
 Please read the following guidelines before posting to the list.
+
+ +
+
Send in plain text:
+
Many email programs including Microsoft Outlook default to sending HTML or other styled email. Please configure your email client to send plain text so that everyone will be able to read your message.
+  
+
Send English mails (preferably):
+
This list is an English-language mailing list. Post messages preferably in English.
+  
+
+
Don't ask FAQs:
+
Be sure to read the FAQ and search the archives before you post.
  +
+
+
It is important to remember that...
+
Although this is an open project and without any implicit or explicit support, some professionals have joined our mailing lists with the intention of voluntarily helping users. Use common sense when posting your messages.
+
 
   
  + + + + + + + + + + + + + + + +
   
  + + + + +
Important: Note that this program is free software; you can redistribute it and/or modify + it under the terms of the GNU General Public License as published by + the Free Software Foundation; either version 2 of the License, or + (at your option) any later version. + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY or SUPPORT; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. Read more »
 
   
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/menu/harbour-menu.js b/harbour/website/menu/harbour-menu.js new file mode 100644 index 0000000000..4c0e5ea916 --- /dev/null +++ b/harbour/website/menu/harbour-menu.js @@ -0,0 +1,60 @@ +stm_bm(["menu54d6",900,"/images/","blank.gif",0,"","",0,0,250,0,1000,1,0,0,"/","",0,0,1,2,"default","hand","",1,25],this); +stm_bp("p0",[0,4,0,0,0,0,0,0,100,"",-2,"",-2,10,0,0,"#999999","transparent","",3,0,0,"#000000"]); +stm_ai("p0i0",[2,"","","",16,-1,0,"","_self","","","","",0,0,0,"","",0,0,0,0,1,"#E6EFF9",1,"#FFD602",1,"","",3,3,0,0,"#E6EFF9","#000000","#000000","#000000","8pt Verdana","8pt Verdana",0,0,"","","","",0,0,0]); +stm_aix("p0i1","p0i0",[2,"","home.png","home.png",39,65,0,"index.html","_self","","","","",0,0,0,"","",0,0,0,0,1,"#E6EFF9",1,"#FFFFFF",1,"","",3,3,0,0,"#FFFFFF","#E6EFF9"]); +stm_aix("p0i2","p0i0",[2,"","","",20]); +stm_aix("p0i3","p0i1",[2,"","about.png","about.png",38,65,0,"about.html","_self","","","","",0,0,0,"","",-1,-1]); +stm_bp("p1",[1,4,0,-3,2,0,0,0,100,"",-2,"",-2,50,0,0,"#999999","#E6EFF9","",3,1,1,"#b0c4d7"]); +stm_aix("p1i0","p0i0",[0," About Harbour ","","",-1,-1,0,"about.html","_self","","","","",0,0,0,"","",0,0,0,0,1,"#E6EFF9",1,"#FFFFFF",0,"","",3,3,1,1,"#E6EFF9","#CCCCCC","#000000","#000000","bold 8pt Verdana","bold 8pt Verdana"]); +stm_aix("p1i1","p1i0",[0," License ","","",-1,-1,0,"license.html"]); +stm_ep(); +stm_aix("p0i4","p0i2",[]); +stm_aix("p0i5","p0i1",[2,"","documentation.png","documentation.png",90,65,0,"doc/harbour.html","_self","","","","",0,0,0,"","",-1,-1,0,0,1,"#E6EFF9",1,"#FFD602"]); +stm_bpx("p2","p1",[1,4,0,-3,3,0,0,0,100,"",-2,"",-2,50,0,0,"#CCCCCC"]); +stm_aix("p2i0","p1i0",[0," Basic information (INSTALL) ","","",-1,-1,0,"http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/INSTALL"]); +stm_aix("p2i1","p1i0",[0," ChangeLog ","","",-1,-1,0,"http://harbour-project.svn.sourceforge.net/viewvc/harbour-project/trunk/harbour/ChangeLog"]); +stm_aix("p2i2","p1i0",[0," Clipper 5.3 ","","",-1,-1,0,"http://x-hacker.org/ng/53guide/"]); +stm_aix("p2i3","p1i0",[0," Harbour ","","",-1,-1,0,"doc/harbour.html"]); +stm_aix("p2i4","p1i0",[0," FAQ ","","",-1,-1,0,"faq/harbour.html"]); +stm_aix("p2i5","p1i0",[0," Samples ","","",-1,-1,0,"samples.html"]); +//stm_aix("p2i3","p1i0",[0," Tutorials & Articles ","","",-1,-1,0,"tutorials.html"]); +stm_ep(); +stm_aix("p0i6","p0i2",[]); +stm_aix("p0i7","p0i3",[2,"","downloads.png","downloads.png",67,65,0,"http://sourceforge.net/project/showfiles.php?group_id=681"]); +stm_bpx("p3","p1",[]); +stm_aix("p3i0","p1i0",[0," Binaries & Source ","","",-1,-1,0,"http://sourceforge.net/project/showfiles.php?group_id=681"]); +stm_aix("p3i1","p1i0",[0," Nightly builds ","","",-1,-1,0,"snapshot.html"]); +//stm_aix("p3i2","p1i0",[0," Auxiliar tools ","","",-1,-1,0,"tools.html"]); +stm_aix("p3i3","p1i0",[0," Contributions Libraries ","","",-1,-1,0,"download_contrib.html"]); +stm_aix("p3i4","p1i0",[0," Third-party Tools and Libraries ","","",-1,-1,0,"third-party.html"]); +stm_ep(); +stm_aix("p0i8","p0i2",[]); +stm_aix("p0i9","p0i3",[2,"","development.png","development.png",80,65,0,"mailing.html"]); +stm_bpx("p4","p1",[]); +stm_aix("p4i0","p1i0",[0," Mailing Lists ","","",-1,-1,0,"mailing.html"]); +stm_aix("p4i1","p1i0",[0," Bug/Issue Database ","","",-1,-1,0,"http://sourceforge.net/tracker/?atid=100681&group_id=681&func=browse"]); +stm_aix("p4i2","p1i0",[0," Report Bugs ","","",-1,-1,0,"https://sourceforge.net/bugs/?group_id=681"]); +stm_ep(); +stm_aix("p0i10","p0i2",[]); +stm_aix("p0i11","p0i3",[2,"","news.png","news.png",34,65,0,"news.html"]); +stm_bpx("p5","p1",[]); +stm_aix("p5i0","p1i0",[0," News ","","",-1,-1,0,"news.html"]); +stm_aix("p5i1","p1i0",[0," ChangeLog ","","",-1,-1,0,"changelog.html"]); +stm_ep(); +stm_aix("p0i12","p0i2",[]); +stm_aix("p0i13","p0i1",[2,"","crew.png","crew.png",58,65,0,"crew.html"]); +stm_aix("p0i14","p0i2",[]); +stm_aix("p0i15","p0i3",[2,"","harbourart.png","harbourart.png",72,65,0,"logos.html"]); +stm_bpx("p6","p1",[]); +stm_aix("p6i0","p1i0",[0," Official Art ","","",-1,-1,0,"logos.html"]); +stm_aix("p6i1","p1i0",[0," T-Shirts ","","",-1,-1,0,"tshirts.html"]); +stm_ep(); +stm_aix("p0i16","p0i2",[]); +stm_aix("p0i17","p0i3",[2,"","language_en.png","language_en.png",62,65,0,""]); +stm_bpx("p7","p1",[1,4,0,-3,2,0,28]); +stm_aix("p7i0","p1i0",[0," English ","","",-1,-1,0,"/","_self","","","flageua.png","flageua.png",28,17]); +stm_aix("p7i1","p7i0",[0," Español ","","",-1,-1,0,"http://alex-degarate.110mb.com/harbour/","_self","","","flages.png","flages.png"]); +stm_aix("p7i2","p7i0",[0," Portugués ","","",-1,-1,0,"http://www.harbour-project.com.br","_self","","","flagbr.png","flagbr.png"]); +stm_ep(); +stm_ep(); +stm_em(); diff --git a/harbour/website/menu/stcode.js b/harbour/website/menu/stcode.js new file mode 100644 index 0000000000..8a697c95df --- /dev/null +++ b/harbour/website/menu/stcode.js @@ -0,0 +1,7 @@ +/*================================================================ + ORC_JS, JavaScript Class Framework + version:3.10.80707 + Copyright 2008 by SourceTec Software Co.,LTD + For more information, see:www.sothink.com +================================================================*/ +if(typeof _STNS!="undefined"&&!_STNS.UI){_STNS.UI={UNIUID:0,DOMEVENTS:["mouseover","mouseout","mousemove","mousedown","mouseup","click","keypress","keydown","keyup","dblclick"],foGetUIById:function(id){var o;while(id){if(o=_STNS.UI.oUIs[id]){return o;}id=id.substr(0,id.lastIndexOf("_"));}},fsGetUid:function(){this.iIdNo++;if(_STNS.UI.UNIUID){return "stUI"+_STNS.UI.UNIUID+this.iIdNo;}else{if(window.name){return "stUI"+(_STNS.fsTranD2X(36,(new Date).getTime()))+this.iIdNo;}else{return "stUI"+this.iIdNo;}}},iIdNo:0,oUIs:{},fbDmEnt:function(e,o){var _5=o.id,ob,r=-1;if(!_5){return true;}if(ob=_STNS.UI.foGetUIById(_5)){if(ob.fbGetEnt){r=ob.fbGetEnt(e,o);}}return r;},fsGetEnt:function(o,t,n,_b){var s;if(n==null){var n="";}if(!_b){var _b="";}if(o._oEs[t+n]&&o._oEs[t+n].length){for(var i=0;i<_STNS.UI.DOMEVENTS.length;i++){if(_STNS.UI.DOMEVENTS[i]==t){return "on"+t+"='return "+_b+"_STNS.UI.fbDmEnt(event,this)'";}}}return "";}};with(_STNS.UI){_STNS.UI.CUIObj=_STNS.Class();CUIObj.register("UI/CUIObj");CUIObj.construct=function(){this._oMs={};this._oEs={};this.oParent=null;this.sUid=_STNS.UI.fsGetUid();this.fbGetEnt=_STNS.fbTrue();with(_STNS.UI.CUIObj){this.fvDestroy=fvDestroy;this.fvGetMsg=fvGetMsg;this.fbSetMsg=fbSetMsg;this.fbAttachEnt=fbAttachEnt;this.fbDetachEnt=fbDetachEnt;this.fbDetachAll=fbDetachAll;this.fbFireEnt=fbFireEnt;this.fbCheckEnt=fbCheckEnt;this.foClone=foClone;}_STNS.UI.oUIs[this.sUid]=this;this.sSelf="_STNS.UI.oUIs['"+this.sUid+"']";};CUIObj.fvDestroy=function(){delete _STNS.UI.oUIs[this.sUid];};CUIObj.fvGetMsg=function(m,d){var f,r=true;if(f=this._oMs[m]){if(typeof f=="string"){f=_STNS.ffGetFun(f);}if(f){r=f.call(this,d);}}if(r==true&&this.oParent){this.oParent.fvGetMsg(m,d);}};CUIObj.fbSetMsg=function(m,f){if(typeof f!="function"&&typeof f!="string"){_STNS.fvThrow(new Error("Attach invalid function to "+t+" message."));return false;}this._oMs[m]=f;return true;};CUIObj.fbCheckEnt=function(t){if(this._oEs[t]){return true;}};CUIObj.fbAttachEnt=function(t,f){if(typeof f!="function"&&typeof f!="string"){_STNS.fvThrow(new Error("Attach invalid function to "+t+" event."));return false;}if(this._oEs[t]){for(var i=0;iCUIMenu");CUIMenu.construct=function(){this.sJsPth="";this.sVer=0;this.iTyp=0;this.aPopups=[];this.sId=0;this.iNid=-1;this.iX=0;this.iY=0;this.iWid=0;this.iHei=0;this.iHal=0;this.sImgPth=0;this.sLnkPre=0;this.sBlank=0;this.iClk=0;this.bClked=0;this.iStat=0;this.iDelaySV=250;this.iDelaySH=0;this.iDelayHd=1000;this.iDelayTk=0;this.bHdPopup=true;this.aHdTags=[];this.bRTL=false;this.aCursors=[];this.sSiteRoot="";this.bRunEff=true;this.iTracks=0;this.iTrackLevel=-1;this.oTracks={};this.aScBars=[];this.aMaxSizes=[-1,-1];this.iScType=0;this.bCfm=false;this.bCfShow=false;this.sTarFm="";this.sSrcFm="";this.iCfX=0;this.iCfY=0;this.iCfD=0;this.oFocus=0;this.OutItem=0;with(_STNS.UI.CUIMenu){this.fvDestroy=fvDestroy;this.fsGetImg=fsGetImg;this.fsGetLnk=fsGetLnk;this.fsGetHTML=fsGetHTML;this.fsGetImgTag=fsGetImgTag;this.fsGetEnt=fsGetEnt;this.fsGetStyle=fsGetStyle;this.fdmGetTarFm=fdmGetTarFm;this.fsGetSrcFm=fsGetSrcFm;this.fbShow=fbShow;this.foInsPopup=foInsPopup;this.fbDelPopup=fbDelPopup;this.fvMvto=fvMvto;this.fnGsp=fnGsp;this.fvSsc=fvSsc;this.fbTrack=fbTrack;this.fbCkLnk=fbCkLnk;this.fbClick=fbClick;this.fbKeydown=fbKeydown;}};CUIMenu.MOUSEOVER=1;with(CUIMenu){CUIMenu.MAXSTATE=MOUSEOVER;}CUIMenu.ALIGNS=["left","center","right"];CUIMenu.VALGINS=["top","middle","bottom"];CUIMenu.REPEATS=["no-repeat","repeat-x","repeat-y","repeat"];CUIMenu.BORDERS=["none","solid","double","dotted","dashed","groove","ridge","outset","inset"];CUIMenu.fsGetHTML=function(){var s="";if(this.aPopups.length){return this.aPopups[0].fsGetHTML();}return "";};CUIMenu.fsGetImg=function(s){if(!s){return "";}if(!_STNS.fbIsAbsPth(s)){s=this.sImgPth+s;}if((s.charAt(0)=="/")&&_STNS.bLocal&&this.sSiteRoot){s=this.sSiteRoot+s;}if(s&&_STNS.bBufImg){var p=_STNS.fsGetAbsPth(s);if(!_STNS.oImgs[p]){_STNS.oImgs[p]=1;}}return s;};CUIMenu.fsGetLnk=function(l){if(!_STNS.fbIsAbsPth(l)){l=this.sLnkPre+l;}if((l.charAt(0)=="/")&&_STNS.bLocal&&this.sSiteRoot){l=this.sSiteRoot+l;}if(!l.toLowerCase().indexOf("javascript:")){l+=";void(0)";}l=_STNS.fsGetAbsPth(l);return l;};CUIMenu.fvDestroy=function(){for(var i=0;i0?pos[0]+xs:pos[0]-xs,y=dy>0?pos[1]+ys:pos[1]-ys;this.fvMvto([x,y],p);}};CUIMenu.fbShow=function(){_STNS.fvLoadLib();if(_STNS.bLoaded){var o=document.body,w="beforeEnd";_STNS.fbInsHTML(o,w,this.fsGetHTML());this.aPopups[0].fbInit();this.aPopups[0].fbShow();}else{if(STM_BIMG){_STNS.fvBufImgs();}if(this.iTracks&&(!this.iTyp||this.iTyp==1)){_STNS.fvAddCk(new Function(this.sSelf+".fbTrack()"));}if(!this.iTyp){var s="";document.write(this.fsGetHTML()+s);}else{if(this.iTyp==1){var t=this,p=this.aPopups[0];if(isNaN(this.iX)||isNaN(this.iY)){_STNS.fvAddCk(new Function(this.sSelf+".fvSsc()"));}else{var pos=p.faGetXY();t.iX=pos[0];t.iY=pos[1];}p.fbShow();}else{if(this.iTyp==3){var t=this,p=this.aPopups[0];document.oncontextmenu=function(e){var s,pos;if(!e){e=window.event;pos=_STNS.faCP2PP([e.clientX,e.clientY]);}else{pos=[e.pageX,e.pageY];}t.iX=pos[0];t.iY=pos[1];p.fbHide();p.fbShow();p.fbHide(t.iDelayHd);return false;};}}}}};CUIMenu.fsGetImgTag=function(s,w,h,b,id,f,nw,nh){if(!s){s=this.sBlank;}if(f){s=_STNS.fsGetAbsPth(s);}return _STNS.fsGetImgTag(s,w,h,b,id,nw,nh);};CUIMenu.fsGetEnt=function(o,t,n,f){var sfm="";if(f){var sfm=this.fsGetSrcFm();if(sfm){sfm+=".";}else{sfm="";}}return _STNS.UI.fsGetEnt(o,t,n,sfm);};CUIMenu.fsGetStyle=function(t,f,c){var s="",_r=_STNS;if(!f&&_r.bShield){if(_r.oDefCSS[t]){s="class='st"+t+"'";}if(c){s+=" style=\""+c+"\"";}}else{if(!c&&_r.oDefCSS[t]){s="style=\""+_r.oDefCSS[t]+"\"";}else{if(_r.oDefCSS[t]){s="style=\"";var a=_r.foCss2Obj(c),b=_r.foCss2Obj(_r.oDefCSS[t]);for(var i in b){if(typeof a[i]=="undefined"){a[i]=b[i];}}s+=_r.fsObj2Css(a);s+="\"";}}}return s;};CUIMenu.fsGetSrcFm=function(){var s="",a=this.sSrcFm?("parent."+this.sTarFm).split("."):this.sTarFm.split("."),n=[],f=0;for(var j=0;j=0;j--){s+=n[j]+".";}if(this.sSrcFm){s+=this.sSrcFm;}else{s+="parent";}return s;};CUIMenu.fdmGetTarFm=function(){var j,s=this.sSrcFm?"parent."+this.sTarFm:this.sTarFm,w;try{w=eval(s);return w;}catch(e){return;}};CUIMenu.fbTrack=function(){var _r=_STNS,_c=_r.UI.CUIMenu,is={},ps=[],_ic=_r.UI.CUIItem,d=0,it,ts=[];if(this.iDelayTk>0){this.iDelayTk-=_r.nCkTime;return false;}if(this.iStat&_c.MOUSEOVER){return false;}if(this.oFocus){return false;}var c=this.iTracks&33554432;for(var i=0;i0;i--){if(ps[i]&&this.aPopups[i].oParPopup){ps[this.aPopups[i].oParPopup.iNid]=1;}else{if(typeof ps[i]=="undefined"){ps[i]=0;}}}for(var i=1;i=1){for(var i=d;i>0;i--){pp=pp.oParPopup;pp.fbHide();}}var ri=o.fbRotItem(),si=ri.oSubPopup;if(si){si.fbHide();}ri.fbFireEnt("mouseout");m.oFocus=0;}}}};CUIMenu.fbKeydown=function(_7b){var e=_7b?_7b:window.event;if(e.altKey&&e.keyCode==113){if(typeof (_STNS.index)=="undefined"){_STNS.index=0;}else{if(_STNS.index<_STNS._aStMenus.length-1){_STNS.index++;}else{_STNS.index=0;}}var x=_STNS.index,_r=_STNS,m=_r._aStMenus[x],p=m.aPopups[0],o=m.oFocus;m.bRunEff=false;m.fbClick();if(o){o.fbFireEnt("mouseout");}if(m.iClk&1){m.bClked=true;}for(var j=0;jCUIPopup");CUIPopup.construct=function(){this._tTid=0;this.iTyp=0;this.iNid=-1;this.aItems=[];this.sId=0;this.iDirect=1;this.iWid=-1;this.iHei=-1;this.iOffX=0;this.iOffY=0;this.iSpace=0;this.iPad=0;this.sBgClr="";this.sBgImg="";this.iBgRep=0;this.iBdStyle=0;this.iBdWid=0;this.sBdClr="";this.iZid=1000;this.iStat=0;this.oParItem=0;this.oParMenu=0;this.oParPopup=0;this.iHal=0;this.iDepth=0;this.iOpac=100;this.iShadow=0;this.iSdSize=0;this.sSdClr="";this.iEffDur=0;this.bShInit=false;this.bHdInit=false;this.sShEff=0;this.iShEff=-1;this.sHdEff=0;this.iHdEff=-1;this.aRounds=[];this.aRWids=[];this.aRHeis=[];this.aRdb=[];this.aRBgClrs=[];this.aRBgImgs=[];this.aRBgReps=[];this.aCorners=[];this.aCorWHs=[];this.aScBars=[];this.iMaxSize=-1;this.iScr=0;this.bflg=true;this.bMul=false;this.iMl=2;this.sMBgClrs="#000000";this.sMOpc=0;this.iMSpc=1;this.sMBgImgs="";this.sMBgReps="no-repeat";with(_STNS.UI.CUIPopup){this.fsGetHTML=fsGetHTML;this.fbGetEnt=fbGetEnt;this.fbSetOver=fbSetOver;this.fbSetOut=fbSetOut;this.fbCreate=fbCreate;this.fbInit=fbInit;this.fbShow=fbShow;this.fbShowX=fbShowX;this.fbHide=fbHide;this.fbHideX=fbHideX;this.fbOnShow=fbOnShow;this.fbOnHide=fbOnHide;this.faGetXY=faGetXY;this.foInsItem=foInsItem;this.fbDelItem=fbDelItem;this.fvDestroy=fvDestroy;this.faGetSwh=faGetSwh;this.fvScr=fvScr;this.fvClearScr=fvClearScr;this.fbCheckClkSet=fbCheckClkSet;this.fvHdWels=fvHdWels;this.fvShWels=fvShWels;this.fvWtag=fvWtag;this.fbWover=fbWover;}};CUIPopup.CROSSFRAME=1;CUIPopup.SHOW=2;CUIPopup.MOUSEOVER=4;with(CUIPopup){CUIPopup.MAXSTATE=CROSSFRAME|SHOW|MOUSEOVER;}CUIPopup.VERTICAL=1;CUIPopup.STATIC=2;CUIPopup.DIRECTION_LEFT=1;CUIPopup.DIRECTION_RIGHT=2;CUIPopup.DIRECTION_UPLEFT=3;CUIPopup.DIRECTION_DOWNLEFT=4;CUIPopup.DIRECTION_UPRIGHT=5;CUIPopup.DIRECTION_DOWNRIGHT=6;CUIPopup.fsGetHTML=function(){var _r=_STNS,_c=_r.UI.CUIPopup,m=this.oParMenu,_mc=_r.UI.CUIMenu,s="",scs,its,cf=this.iStat&_c.CROSSFRAME,fs="",v=this.iTyp&_c.VERTICAL,sc=this.aScBars.length?this.aScBars:m.aScBars,_8f=m.iWid&&!this.iNid&&!v;with(this){var _90=_91=isAllSW=0,_92,_93=_r.bIsSF&&this.bMul;for(var i=0;i";if(_96){var _tc=0;for(var c=0;c<_9a;c++){its+="";for(var j=_tc;j<_tc+_9d;j++){if(_99>0){if(!c){var ad=false;for(var t=0;t"+aItems[j].fsGetHTML()+"";if(_93){if(!this.tr[c]){this.tr[c]=[];}this.tr[c].push(aItems[j].iNid);}_99--;}}_tc=_tc+_9d;its+="";_99>0&&_98>0?its+="":"";}}else{if(_95){var _a5=_r.bIsFX&&_r.oNav.version<=20021130;_tprs=_9a==_9b?0:aItems.length%_ml;for(var c=0;c<_9d;c++){its+="";var _a6=0;for(var j=0;j<(_9c==0?_9a:_tprs>0?_9a:_9b);j++){if(_99>0){_a6=j==0?c:_a6+_9d;its+=""+aItems[_a6].fsGetHTML()+"";if(_93){if(!this.tr[c]){this.tr[c]=[];}this.tr[c].push(aItems[_a6].iNid);}_99--;}c==0&&j<_9a-1&&_98>0?(its+="
"):"";}_tprs>0?_tprs--:"";its+="";}}else{for(var j=0;j":"")+""+aItems[j].fsGetHTML()+""+(v?"":"");}else{its+=(v?"":"")+""+aItems[j].fsGetHTML()+""+(v?"":"");}}}}its+="";scs=sc[0]&&sc[1]?(""+(v?"":"")+""+(v?"":"")+""+(v?"":"")+""+(v?"":"")+"
"+sc[0].fsGetHTML()+"
"+"
"+its+"
"+"
"+sc[1].fsGetHTML()+"
"):its;if(_STNS.bIsIE&&(iOpac<100&&iOpac>-1||_STNS.oNav.version>=5.5&&iShadow&&iSdSize)){fs="filter:"+(iOpac<100&&iOpac>-1?"Alpha(opacity="+iOpac+") ":"")+(_STNS.oNav.version>=5.5&&iShadow&&iSdSize?(iShadow==1?"progid:DXImageTransform.Microsoft.dropshadow(color="+sSdClr+",offx="+iSdSize+",offy="+iSdSize+",positive=1)":"progid:DXImageTransform.Microsoft.Shadow(color="+sSdClr+",direction=135,strength="+iSdSize+")"):"")+";";}else{if(_STNS.oNav.name=="gecko"&&_STNS.oNav.version>=20060414){fs=iOpac<100&&iOpac>-1?"-moz-opacity:"+iOpac/100+";":"";}}s+=(iTyp&_c.STATIC?"":"
")+"0&&iBdWid>0?"border-width:"+iBdWid+"px;border-style:"+_mc.BORDERS[iBdStyle]+";border-color:"+sBdClr+";":"")+(!m.iTyp&&iWid&&iWid!=-1?"width:"+_r.fsGetLen("tb",iWid,0,iBdStyle>0&&iBdWid>0?iBdWid:0,1)+";":"")+(!m.iTyp&&iHei&&iHei!=-1?"height:"+_r.fsGetLen("tb",iHei,0,iBdStyle>0&&iBdWid>0?iBdWid:0,1,0)+";":""))+" "+(!m.iTyp&&!this.iNid&&m.iHal?"align="+_mc.ALIGNS[m.iHal]:"")+" "+m.fsGetEnt(this,"mouseover","",cf)+" "+m.fsGetEnt(this,"mouseout","",cf)+">"+(aRHeis[0]&&aRHeis[0]!=-1||(aRHeis[0]==-1&&(aCorners[0]||aCorners[1]||aRounds[0]))?""+(aRWids[3]&&aRWids[3]!=-1||(aRWids[3]==-1&&(aCorners[0]||aCorners[3]||aRounds[3]))?"":"")+""+(aRWids[1]&&aRWids[1]!=-1||(aRWids[1]==-1&&(aCorners[1]||aCorners[2]||aRounds[1]))?"":"")+"":"")+""+(aRWids[3]&&aRWids[3]!=-1||(aRWids[3]==-1&&(aCorners[0]||aCorners[3]||aRounds[3]))?"":"")+""+(aRWids[1]&&aRWids[1]!=-1||(aRWids[1]==-1&&(aCorners[1]||aCorners[2]||aRounds[1]))?"":"")+""+(aRHeis[2]&&aRHeis[2]!=-1||(aRHeis[2]==-1&&(aCorners[3]||aCorners[2]||aRounds[2]))?""+(aRWids[3]&&aRWids[3]!=-1||(aRWids[3]==-1&&(aCorners[0]||aCorners[3]||aRounds[3]))?"":"")+""+(aRWids[1]&&aRWids[1]!=-1||(aRWids[1]==-1&&(aCorners[1]||aCorners[2]||aRounds[1]))?"":"")+"":"")+"
"+m.fsGetImgTag(aCorners[0],aRWids[3],aRHeis[0],0,null,cf,aCorWHs[0],aCorWHs[1])+""+m.fsGetImgTag(aRounds[0],aRWids[0],aRHeis[0],0,null,cf)+""+m.fsGetImgTag(aCorners[1],aRWids[1],aRHeis[0],0,null,cf,aCorWHs[2],aCorWHs[3])+"
"+m.fsGetImgTag(aRounds[3],aRWids[3],aRHeis[3],0,null,cf)+""+scs+""+m.fsGetImgTag(aRounds[1],aRWids[1],aRHeis[1],0,null,cf)+"
"+m.fsGetImgTag(aCorners[3],aRWids[3],aRHeis[2],0,null,cf,aCorWHs[6],aCorWHs[7])+""+m.fsGetImgTag(aRounds[2],aRWids[2],aRHeis[2],0,null,cf)+""+m.fsGetImgTag(aCorners[2],aRWids[1],aRHeis[2],0,null,cf,aCorWHs[4],aCorWHs[5])+"
"+(iTyp&_c.STATIC?m.iHal==2&&(_r.bIsIE||_r.bIsOP)?"
":"":"
");}return s;};CUIPopup.fbGetEnt=function(e,o){var et=e.type||e,oid=o.id,_r=_STNS,_c=_r.UI.CUIPopup;with(this){switch(et){case "mouseover":if(!o._ov&&((_r.bIsIE&&e.srcElement&&_r.fbIsPar(o,e.srcElement))||(!_r.bIsIE&&e.target&&_r.fbIsPar(o,e.target)))){o._ov=1;this.iStat|=_c.MOUSEOVER;return fbFireEnt("mouseover");}break;case "mouseout":if(o._ov&&((_r.bIsIE&&(!e.toElement||!_r.fbIsPar(o,e.toElement)))||!_r.bIsIE&&(!e.relatedTarget||!_r.fbIsPar(o,e.relatedTarget)))){o._ov=0;this.iStat&=_c.MAXSTATE-_c.MOUSEOVER;return fbFireEnt("mouseout");}break;case "keydown":return fbFireEnt("keydown",e.keyCode);default:return fbFireEnt(et);}}return true;};CUIPopup.fvDestroy=function(){for(var i=0;i=0;i--){ps[i].fbShow();}}else{if(d){this._tTid=setTimeout(this.sSelf+".fbShowX()",d);}}}return true;};CUIPopup.fbHide=function(d){var _r=_STNS,_c=_r.UI.CUIPopup,_ic=_r.UI.CUIItem,s=this.iStat&_c.SHOW,m=this.oParMenu;clearTimeout(this._tTid);if(m.iClk&4){}if(!s){d=0;}if(!d){return this.fbOnHide();}else{if(d){this._tTid=setTimeout(this.sSelf+".fbHide()",d);}}return true;};CUIPopup.fbHideX=function(d,b,e,f){var _r=_STNS,_c=_r.UI.CUIPopup,_ic=_r.UI.CUIItem,s=this.iStat&_c.SHOW,m=this.oParMenu,tp,pp=this,pi;if(typeof f=="undefined"){f=0;}if(e==null){e=-1;}if(!d){while(pp&&pp.iDepth<=b&&pp.iDepth>e){clearTimeout(pp._tTid);tp=pp;if(pi=pp.oParItem){pi.fbUpDate(pi.iStat&(_ic.MAXSTATE-_ic.MOUSEOVER_STYLE));}pp=pp.oParPopup;}if(m.bHdPopup||f){if(tp){tp.fbHide();}else{for(var i=0;i5){cl=cw+cl-w.document.body.scrollWidth;}if(x+pw>cl+cw){x=cw+cl-pw;}if(y+ph>ct+ch){y=ct+ch-ph;}if(x_12a){this._sc.style.width=(_12a-(p.MaxScrWH[0]-_126))>=0?(_12a-(p.MaxScrWH[0]-_126))+"px":"1px";this._sc.style.height=_129+"px";this._sc.style.overflow="hidden";if(_r.bIsOP&&_r.oNav.version>=9){var _12b=_r.fdmGetEleById(this.sUid+"_dv",w);if(_12b){_12b.style.width=_12b.childNodes[0].offsetWidth+"px";}}}else{if(!_12a&&_128>CWid){this._sc.style.width=(CWid-(p.MaxScrWH[0]-_126))>=0?(CWid-(p.MaxScrWH[0]-_126))+"px":"1px";this._sc.style.height=_129+"px";this._sc.style.overflow="hidden";if(_r.bIsOP&&_r.oNav.version>=9){var _12b=_r.fdmGetEleById(this.sUid+"_dv",w);if(_12b){_12b.style.width=_12b.childNodes[0].offsetWidth+"px";}}}else{this._sc.style.height=p.MaxDvWH[1]+"px";this._sc.style.width=_126+"px";_r.fdmGetEleById(p.sUid+"_sc0",w).style.display="none";_r.fdmGetEleById(p.sUid+"_sc1",w).style.display="none";}}}else{var _129=p.MaxDvWH[1]+dh,_128=this.MaxScrWH[0]-dw;CWid=_r.fiGetCW(w),CHei=_r.fiGetCH(w),CScrT=_r.fiGetCT(w);if(cf){if(this.oParPopup&&!this.oParPopup.iNid){if(_12c){if(pd==3){CHei=p.iOffY-CScrT;}if(pd==4){CHei=CHei-p.iOffY;}}}else{if(pd==3){CHei=ip[1]-CScrT+p.iOffY;}if(pd==4){CHei=CHei-ip[1]-ih-p.iOffY+CScrT;}}}else{if(pd==3){CHei=ip[1]-CScrT+p.iOffY;}if(pd==4){CHei=CHei-ip[1]-ih-p.iOffY+CScrT;}}var _12c=this.aScBars[0].iScD;_r.fdmGetEleById(p.sUid+"_sc0",w).parentNode.style.display="";_r.fdmGetEleById(p.sUid+"_sc1",w).parentNode.style.display="";if(_12c&&_129>_12c){this._sc.style.height=(_12c-(p.MaxScrWH[1]-_127))>=0?(_12c-(p.MaxScrWH[1]-_127))+"px":"1px";this._sc.style.width=_128+"px";this._sc.style.overflow="hidden";}else{if(!_12c&&_129>CHei){this._sc.style.height=(CHei-(p.MaxScrWH[1]-_127))>=0?(CHei-(p.MaxScrWH[1]-_127))+"px":"1px";this._sc.style.width=_128+"px";this._sc.style.overflow="hidden";}else{this._sc.style.height=_127+"px";_r.bIsIE?this._sc.style.width=p.MaxDvWH[0]+"px":"";_r.fdmGetEleById(p.sUid+"_sc0",w).parentNode.style.display="none";_r.fdmGetEleById(p.sUid+"_sc1",w).parentNode.style.display="none";}}}_r.fiGetEleWid(_r.fdmGetEleById(this.sUid+"_dv",w));for(var i=0;i<2;i++){var oSc=_r.fdmGetEleById(p.sUid+"_sc"+i,w);if(oSc){oSc.onmouseover=Function(this.sSelf+".fvScr("+this.sSelf+",100,"+i+")");oSc.onmousedown=Function(this.sSelf+".fvScr("+this.sSelf+",10,"+i+")");oSc.onmouseup=Function(this.sSelf+".fvScr("+this.sSelf+",100,"+i+")");oSc.onmouseout=Function(this.sSelf+".fvClearScr("+this.sSelf+")");}}var te0,te1;te0=sc[0]?_r.fdmGetEleById(sc[0].sUid+"_img",w):0;te1=sc[1]?_r.fdmGetEleById(sc[1].sUid+"_img",w):0;te0?te0.src=cf?_r.fsGetAbsPth(sc[0].img0):sc[0].img0:"";te1?te1.src=cf?_r.fsGetAbsPth(sc[1].img1):sc[1].img1:"";};CUIPopup.fvScr=function(p,sp,d){if(this.tScr){clearTimeout(this.tScr);}var _r=_STNS,_c=_r.UI.CUIPopup,v=p.iTyp&_c.VERTICAL,cf=p.iStat&_c.CROSSFRAME,m=p.oParMenu,sc=p.aScBars.length?p.aScBars:m.aScBars,te0,te1,w=p.iStat&_c.CROSSFRAME?m.fdmGetTarFm():window,scc=_r.fdmGetEleById(p.sUid+"_scc",w),cw=p.MaxDvWH[0]-_r.fiGetEleWid(scc,w),ch=p.MaxDvWH[1]-_r.fiGetEleHei(scc,w);te0=sc[0]?_r.fdmGetEleById(sc[0].sUid+"_img",w):0;te1=sc[1]?_r.fdmGetEleById(sc[1].sUid+"_img",w):0;if(cf){sc[0].img0=_r.fsGetAbsPth(sc[0].img0);sc[0].img1=_r.fsGetAbsPth(sc[0].img1);sc[1].img0=_r.fsGetAbsPth(sc[1].img0);sc[1].img1=_r.fsGetAbsPth(sc[1].img1);}if(v){if(d){scc.scrollTop+=4;if(scc.scrollTop>=ch){te1.src=sc[1].img0;}else{te0.src=sc[0].img1;te1.src=sc[1].img1;}}else{scc.scrollTop-=4;if(scc.scrollTop<=0){te0.src=sc[0].img0;}else{te0.src=sc[0].img1;te1.src=sc[1].img1;}}}else{if(d){scc.scrollLeft+=4;if(scc.scrollLeft>=cw){te1.src=sc[1].img0;}else{te0.src=sc[0].img1;te1.src=sc[1].img1;}}else{scc.scrollLeft-=4;if(scc.scrollLeft<=0){te0.src=sc[0].img0;}else{te0.src=sc[0].img1;te1.src=sc[1].img1;}}}this.tScr=setTimeout(this.sSelf+".fvScr("+this.sSelf+","+sp+","+d+")",sp);};CUIPopup.fvClearScr=function(p){if(this.tScr){clearTimeout(this.tScr);}};CUIPopup.fvHdWels=function(p){var _r=_STNS,m=this.oParMenu;for(var i=0;i=0){f=1;}}if(f){continue;}else{if(p&&this.fbWover(e,p)){if(_r.bIsOP&&tg=="applet"){var v;if(v=parseInt(e.getAttribute("visLevel"))){e.setAttribute("visLevel",v+c);v+=c;}else{e.setAttribute("visLevel",c);v=c;}if(v==-1){if(e.getAttribute("visSave")){e.setAttribute("visSave",e.style.visibility);}e.style.visibility="hidden";if(typeof (p.mywehd)!="undefined"&&p.mywehd(e)){return;}}else{if(!v){var bv=e.getAttribute("visSave");e.style.visibility=bv?bv:"";if(typeof (p.mywesh)!="undefined"&&p.mywesh(e)){return;}}}}else{if(e.visLevel){e.visLevel+=c;}else{e.visLevel=c;}if(e.visLevel==-1){if(typeof e.visSave=="undefined"){e.visSave=e.style.visibility;}e.style.visibility="hidden";if(typeof (p.mywehd)!="undefined"&&p.mywehd(e)){return;}}else{if(!e.visLevel){e.style.visibility=e.visSave;if(typeof (p.mywesh)!="undefined"&&p.mywesh(e)){return;}}}}}}}};CUIPopup.fbWover=function(e,p){if(!p){return false;}var l=0,t=0,w=e.offsetWidth,h=e.offsetHeight,pos=this.faGetXY(p),pw=_STNS.fiGetEleWid(p),ph=_STNS.fiGetEleHei(p);w?(e._wd=w):(w=e._wd);h?(e._ht=h):(h=e._ht);while(e){l+=e.offsetLeft,t+=e.offsetTop,e=e.offsetParent;}return lpos[0]&&tpos[1];};_STNS.UI.CUISeparator=_STNS.Class(_STNS.UI.CUIObj);CUISeparator=_STNS.Class(_STNS.UI.CUIObj);CUISeparator.register("UI/CUIObj>CUISeparator");CUISeparator.construct=function(){this.iNid=-1;this.iTyp=-1;this.iWid=-1;this.iHei=-1;this.sImg=0;this.iImgWid=-1;this.iImgHei=-1;this.sBgClr=0;this.sBgImg=0;this.iBgRep=0;this.oParMenu=0;this.oParPopup=0;this.sId=0;this.iStat=0;with(_STNS.UI.CUISeparator){this.fsGetHTML=fsGetHTML;this.fbInit=fbInit;}};CUISeparator.CROSSFRAME=1;with(CUISeparator){CUISeparator.MAXSTATE=CROSSFRAME;}CUISeparator.fsGetHTML=function(){var s,m=this.oParMenu,_r=_STNS,_mc=_r.UI.CUIMenu,_c=_r.UI.CUISeparator,cf=this.iStat&_c.CROSSFRAME;with(this){s="
"+(iImgWid&&iImgHei?m.fsGetImgTag(sImg,iImgWid,iImgHei,0,"",cf):" ")+"
";}return s;};CUISeparator.fbInit=function(){var _r=_STNS,w=this.oParPopup.iStat&_r.UI.CUIPopup.CROSSFRAME?this.oParMenu.fdmGetTarFm():window,p=this.oParPopup,e=_r.fdmGetEleById(this.sUid,w);if(e&&this.iHei=="100%"){if(_r.bIsSF){if(!p.bMul){e.style.height=e.offsetParent.offsetParent.offsetHeight-2*p.iSpace+"px";}else{var _16d=0;for(var i=0;iCUIItem");CUIItem.construct=function(){this.iTyp=0;this.sId=0;this.iNid=-1;this.iWid=-1;this.iHei=-1;this.sTxt="";this.sFTxt="";this.aImgs=[];this.iImgWid=-1;this.iImgHei=-1;this.iImgBd=0;this.sLnk=this._sTLnk="#_nolink";this.sTar="";this.sStatus="";this.sTip="";this.aIcos=[];this.iIcoWid=-1;this.iIcoHei=-1;this.iIcoBd=0;this.aArrs=[];this.iArrWid=-1;this.iArrHei=-1;this.iArrBd=0;this.iHal=0;this.iVal=1;this.aBgClrs=[];this.aBgImgs=[];this.aBgReps=[];this.iBdStyle=0;this.iBdWid=0;this.aBdClrs=[];this.aFnts=[];this.aDecos=[];this.aFntClrs=[];this.oParMenu=0;this.oParPopup=0;this.oSubPopup=0;this.iStat=0;this.iLeftWid=0;this.iRightWid=0;this.iScD=0;this.iPad=0;this.bScr=false;with(_STNS.UI.CUIItem){this.fsGetHTML=fsGetHTML;this.fbGetEnt=fbGetEnt;this.fbSetStatus=fbSetStatus;this.fbReStatus=fbReStatus;this.fbSetOver=fbSetOver;this.fbSetOut=fbSetOut;this.fbInit=fbInit;this.fbShowSub=fbShowSub;this.fbHideSub=fbHideSub;this.fbSetFnt=fbSetFnt;this.fbSetBg=fbSetBg;this.fbSetCursor=fbSetCursor;this.fbUpDate=fbUpDate;this.fbOpenLnk=fbOpenLnk;this.fbCkClk=fbCkClk;this.fbEnter=fbEnter;this.fbEsc=fbEsc;this.fbUp=fbUp;this.fbDown=fbDown;this.fbLeft=fbLeft;this.fbRight=fbRight;this.faItems=faItems;this.fbNxtItem=fbNxtItem;this.fbRotItem=fbRotItem;this.fbPopFirItem=fbPopFirItem;this.fbSetFocus=fbSetFocus;this.fbSetfs=fbSetfs;this.fbBlur=fbBlur;this.fbFOver=fbFOver;}};CUIItem.SHIFTKEY=1;CUIItem.CTRLKEY=2;CUIItem.ALTKEY=4;CUIItem.MOUSEOVER=1;CUIItem.MOUSEOVER_STYLE=1227133512;CUIItem.TRACK=2;CUIItem.TRACK_STYLE=2454267024;CUIItem.CROSSFRAME=4;CUIItem.CUR_ICON=56;CUIItem.ICON_BIT=3;CUIItem.CUR_ARROW=448;CUIItem.ARROW_BIT=6;CUIItem.CUR_FONT=1584;CUIItem.FONT_BIT=9;CUIItem.CUR_COLOR=28672;CUIItem.COLOR_BIT=12;CUIItem.CUR_DECORATION=229376;CUIItem.DECORATION_BIT=15;CUIItem.CUR_BGCOLOR=1835008;CUIItem.BGCOLOR_BIT=18;CUIItem.CUR_BGIMAGE=14680064;CUIItem.BGIMAGE_BIT=21;CUIItem.CUR_BGREPEAT=117440521;CUIItem.BGREPEAT_BIT=24;CUIItem.CUR_BORDERCOLOR=939527096;CUIItem.BORDERCOLOR_BIT=27;CUIItem.CUR_IMAGE=7516192768;CUIItem.IMAGE_BIT=30;with(CUIItem){CUIItem.MAXSTATE=MOUSEOVER|TRACK|CROSSFRAME|CUR_ICON|CUR_ARROW|CUR_FONT|CUR_COLOR|CUR_DECORATION|CUR_BGCOLOR|CUR_BGIMAGE|CUR_BGREPEAT|CUR_BORDERCOLOR|CUR_IMAGE;}CUIItem.fsGetHTML=function(){var s="",icos,arrs,_r=_STNS,m=this.oParMenu,p=this.oParPopup,_mc=_STNS.UI.CUIMenu,_c=_STNS.UI.CUIItem,cf=this.iStat&_c.CROSSFRAME,bKQ=_r.bIsKQ;with(this){icos=!bScr&&iIcoWid&&iIcoHei?""+m.fsGetImgTag(aIcos[(iStat&_c.CUR_ICON)>>>_c.ICON_BIT],iIcoWid,iIcoHei,iIcoBd,sUid+"_icoImg",cf)+"":"";arrs=!bScr&&iArrWid&&iArrHei?""+m.fsGetImgTag(aArrs[(iStat&_c.CUR_ARROW)>>>_c.ARROW_BIT],iArrWid,iArrHei,iArrBd,sUid+"_arrImg",cf)+"":"";s+=(!bKQ?"":"")+"0&&iBdWid>0?iBdWid:0,1)+";":"")+(iHei&&iHei!=-1?"height:"+_r.fsGetLen("tb",iHei,0,iBdStyle>0&&iBdWid>0?iBdWid:0,1,0)+";":"")+(iBdStyle>0&&iBdWid>0?"border-width:"+iBdWid+"px;border-style:"+_mc.BORDERS[iBdStyle]+";border-color:"+aBdClrs[(iStat&_c.CUR_BORDERCOLOR)>>>_c.BORDERCOLOR_BIT]+";":"")+(aBgClrs[(iStat&_c.CUR_BGCOLOR)>>>_c.BGCOLOR_BIT]?"background-color:"+aBgClrs[(iStat&_c.CUR_BGCOLOR)>>>_c.BGCOLOR_BIT]+";":"")+(aBgImgs[(iStat&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]?"background-image:url("+(cf?_r.fsGetAbsPth(aBgImgs[(iStat&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]):aBgImgs[(iStat&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT])+");":"")+(_mc.REPEATS[aBgReps[(iStat&_c.CUR_BGREPEAT)>>>_c.BGREPEAT_BIT]]?"background-repeat:"+_mc.REPEATS[aBgReps[(iStat&_c.CUR_BGREPEAT)>>>_c.BGREPEAT_BIT]]+";":"")+(_STNS.bIsOP&&_STNS.oNav.version>=9&&_STNS.oNav.version<9.5?"text-decoration:"+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]?(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&1?"underline ":"")+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&2?"line-through ":"")+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&4?"overline ":""):"none")+";":""))+">"+(m.bRTL?arrs:icos)+""+(m.bRTL?icos:arrs)+"
"+(bKQ?"":"")+" "+">>_c.COLOR_BIT]?"color:"+aFntClrs[(iStat&_c.CUR_COLOR)>>>_c.COLOR_BIT]+";":"")+(aFnts[(iStat&_c.CUR_FONT)>>>_c.FONT_BIT]?"font:"+aFnts[(iStat&_c.CUR_FONT)>>>_c.FONT_BIT]+";":"")+"text-decoration:"+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]?(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&1?"underline ":"")+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&2?"line-through ":"")+(aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&4?"overline ":""):"none")+";")+">"+(iTyp==2?m.fsGetImgTag(aImgs[(iStat&_c.CUR_IMAGE)>>>_c.IMAGE_BIT],iImgWid,iImgHei,iImgBd,sUid+"_img",cf):sTxt)+""+(bKQ?"":"")+"
"+(!bKQ?"":"");}return s;};CUIItem.fbGetEnt=function(e,o){var et=e.type||e,oid=o.id,_r=_STNS,_c=_r.UI.CUIItem,as,r;with(this){switch(et){case "mouseover":if(!o._ov&&((_r.bIsIE&&e.srcElement&&_r.fbIsPar(o,e.srcElement))||(!_r.bIsIE&&e.target&&_r.fbIsPar(o,e.target)))){o._ov=1;if(oid==this.sUid+"_lnk"){return fbFireEnt("mouseoverlink");}this.iStat|=_c.MOUSEOVER;return fbFireEnt("mouseover");}break;case "mouseout":if(o._ov&&((_r.bIsIE&&(!e.toElement||!_r.fbIsPar(o,e.toElement)))||!_r.bIsIE&&(!e.relatedTarget||!_r.fbIsPar(o,e.relatedTarget)))){o._ov=0;if(oid==this.sUid+"_lnk"){return fbFireEnt("mouseoutlink");}this.iStat&=_c.MAXSTATE-_c.MOUSEOVER;return fbFireEnt("mouseout");}break;case "click":as=0;if(e.shiftKey){as|=1;}if(e.ctrlKey){as|=2;}if(e.altKey){as|=4;}as|=8;if(_r.bIsIE&&e.srcElement&&e.srcElement.id&&!e.srcElement.id.indexOf(this.sUid+"_arr")||!_r.bIsIE&&e.target&&e.target.id&&!e.target.id.indexOf(this.sUid+"_arr")){return fbFireEnt("clickarrow",as);}return fbFireEnt("click",as);case "keydown":switch(e.keyCode){case 9:return false;case 13:return fbFireEnt("pressEnter");case 27:return fbFireEnt("pressEsc");case 37:return fbFireEnt("pressLeft");case 38:return fbFireEnt("pressUp");case 39:return fbFireEnt("pressRight");case 40:return fbFireEnt("pressDown");}break;case "mousedown":as=0;if(e.shiftKey){as|=1;}if(e.ctrlKey){as|=2;}if(e.altKey){as|=4;}as|=e.button*8;return fbFireEnt("mousedown",as);default:return fbFireEnt(et,as);}}return true;};CUIItem.fbSetStatus=function(){if(this.sStatus){top.status=this.sStatus;}else{if(this.sLnk&&this.sLnk!="#_nolink"){top.status=_STNS.fsGetAbsPth(this.sLnk);}}return true;};CUIItem.fbReStatus=function(){top.status="";return true;};CUIItem.fbSetOver=function(){var _r=_STNS,_c=_r.UI.CUIItem,p=this.oParPopup,sp=this.oSubPopup,_ic=_r.UI.CUIItem,m=this.oParMenu;if(!(m.iClk&4)&&!_STNS.UI.CUICanvas){for(var i=0;i>>_c.BORDERCOLOR_BIT]!=aBdClrs[(s&_c.CUR_BORDERCOLOR)>>>_c.BORDERCOLOR_BIT]){e.style.borderColor=aBdClrs[(s&_c.CUR_BORDERCOLOR)>>>_c.BORDERCOLOR_BIT];}if((d&_c.CUR_BGCOLOR)&&aBgClrs[(iStat&_c.CUR_BGCOLOR)>>>_c.BGCOLOR_BIT]!=aBgClrs[(s&_c.CUR_BGCOLOR)>>>_c.BGCOLOR_BIT]){e.style.backgroundColor=aBgClrs[(s&_c.CUR_BGCOLOR)>>>_c.BGCOLOR_BIT];}if((d&_c.CUR_BGREPEAT)&&aBgReps[(iStat&_c.CUR_BGREPEAT)>>>_c.BGREPEAT_BIT]!=aBgReps[(s&_c.CUR_BGREPEAT)>>>_c.BGREPEAT_BIT]){e.style.backgroundRepeat=_mc.REPEATS[aBgReps[(s&_c.CUR_BGREPEAT)>>>_c.BGREPEAT_BIT]];}if((d&_c.CUR_BGIMAGE)&&aBgImgs[(iStat&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]!=aBgImgs[(s&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]){e.style.backgroundImage="url("+(aBgImgs[(s&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]?(cf?_r.fsGetAbsPth(aBgImgs[(s&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]):aBgImgs[(s&_c.CUR_BGIMAGE)>>>_c.BGIMAGE_BIT]):(cf?_r.fsGetAbsPth(oParMenu.sBlank):oParMenu.sBlank))+")";}if(te=_r.fdmGetEleById(sUid+"_txt",w)){if((d&_c.CUR_FONT)&&aFnts[(iStat&_c.CUR_FONT)>>>_c.FONT_BIT]!=aFnts[(s&_c.CUR_FONT)>>>_c.FONT_BIT]){te.style.font=aFnts[(s&_c.CUR_FONT)>>>_c.FONT_BIT];}if((d&_c.CUR_COLOR)&&aFntClrs[(iStat&_c.CUR_COLOR)>>>_c.COLOR_BIT]!=aFntClrs[(s&_c.CUR_COLOR)>>>_c.COLOR_BIT]){te.style.color=aFntClrs[(s&_c.CUR_COLOR)>>>_c.COLOR_BIT];}if((d&_c.CUR_DECORATION)&&aDecos[(iStat&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]!=aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]){te.style.textDecoration=aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]?(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&1?"underline ":"")+(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&2?"line-through ":"")+(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&4?"overline ":""):"none";if(_STNS.bIsOP&&_STNS.oNav.version>=9&&_STNS.oNav.version<9.5){e.style.textDecoration=aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]?(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&1?"underline ":"")+(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&2?"line-through ":"")+(aDecos[(s&_c.CUR_DECORATION)>>>_c.DECORATION_BIT]&4?"overline ":""):"none";}}}if((d&_c.CUR_ICON)&&aIcos[(iStat&_c.CUR_ICON)>>>_c.ICON_BIT]!=aIcos[(s&_c.CUR_ICON)>>>_c.ICON_BIT]){if(te=_r.fdmGetEleById(sUid+"_icoImg",w)){te.src=aIcos[(s&_c.CUR_ICON)>>>_c.ICON_BIT]?(cf?_r.fsGetAbsPth(aIcos[(s&_c.CUR_ICON)>>>_c.ICON_BIT]):aIcos[(s&_c.CUR_ICON)>>>_c.ICON_BIT]):(cf?_r.fsGetAbsPth(oParMenu.sBlank):oParMenu.sBlank);}}if((d&_c.CUR_ARROW)&&aArrs[(iStat&_c.CUR_ARROW)>>>_c.ARROW_BIT]!=aArrs[(s&_c.CUR_ARROW)>>>_c.ARROW_BIT]){if(te=_r.fdmGetEleById(sUid+"_arrImg",w)){te.src=aArrs[(s&_c.CUR_ARROW)>>>_c.ARROW_BIT]?(cf?_r.fsGetAbsPth(aArrs[(s&_c.CUR_ARROW)>>>_c.ARROW_BIT]):aArrs[(s&_c.CUR_ARROW)>>>_c.ARROW_BIT]):(cf?_r.fsGetAbsPth(oParMenu.sBlank):oParMenu.sBlank);}}if(!bScr&&(d&_c.CUR_IMAGE)&&aImgs[(iStat&_c.CUR_IMAGE)>>>_c.IMAGE_BIT]!=aImgs[(s&_c.CUR_IMAGE)>>>_c.IMAGE_BIT]){if(te=_r.fdmGetEleById(sUid+"_img",w)){te.src=aImgs[(s&_c.CUR_IMAGE)>>>_c.IMAGE_BIT]?(cf?_r.fsGetAbsPth(aImgs[(s&_c.CUR_IMAGE)>>>_c.IMAGE_BIT]):aImgs[(s&_c.CUR_IMAGE)>>>_c.IMAGE_BIT]):(cf?_r.fsGetAbsPth(oParMenu.sBlank):oParMenu.sBlank);}}}iStat=s;}};CUIItem.fbCkClk=function(){var m=this.oParMenu;if(!m.bClked){m.bClked=true;if(m.iClk&1){if(this.oSubPopup){this.oSubPopup.fbShow();}}if(!(m.iClk&2)){this.fbSetOver();}}return true;};CUIItem.fbEnter=function(){var o=this,s=o.oSubPopup,m=o.oParMenu;if(o._sTLnk=="#_nolink"){if(s){m.bRunEff=false;if(s.iStat&_STNS.UI.CUIPopup.SHOW){s.fbHide();}else{if(!(m.iClk&4)){s.fbShow();}}m.bRunEff=true;}return false;}if(_STNS.bIsSF){var p=o.oParPopup,pp=o,d=p.iDepth;if(d>=1){for(var i=d;i>0;i--){pp=pp.oParPopup;pp.fbHide();pp.oParItem.fbSetOut();}}else{if(d==0){o.fbSetOut();}}m.iStat&=_STNS.UI.CUIMenu.MAXSTATE-_STNS.UI.CUIMenu.MOUSEOVER;m.oFocus=0;}};CUIItem.fbEsc=function(){var _r=_STNS,o=this,m=o.oParMenu,s=o.oSubPopup,p=o.oParPopup,pi=p.oParItem,dp=p.iDepth;m.bRunEff=false;if(s&&(s.iStat&_r.UI.CUIPopup.SHOW)){s.fbHide();m.bRunEff=true;return false;}if(dp){o.fbFireEnt("mouseout");p.fbHide();pi.fbSetfs();}else{o.fbFireEnt("mouseout");_r.fdmGetEleById(o.sUid+"_lnk").blur();}m.bRunEff=true;return false;};CUIItem.fbUp=function(){var _r=_STNS,o=this,m=o.oParMenu,p=o.oParPopup,pi=p.oParItem,dp=p.iDepth,v=p.iTyp&_STNS.UI.CUIPopup.VERTICAL,f=m.iClk&4;if((m.iClk&1)&&!m.bClked){return false;}m.bRunEff=false;var a=o.faItems();if(a[2]==1&&dp>=1){o.fbFireEnt("mouseout");pi.fbFireEnt("mousedown",8);pi.fbFOver();if(p.iStat&_r.UI.CUIPopup.SHOW){p.fbHide();}}else{if(v){var nI=o.fbNxtItem(0);if(nI!=o){o.fbFireEnt("mouseout");if(f){if(o.oSubPopup){o.oSubPopup.fbHide();}}nI.fbFOver();}}else{if(o.oSubPopup&&(o.oSubPopup.iStat&_r.UI.CUIPopup.SHOW)){o.oSubPopup.fbHide();}else{if(dp){o.fbFireEnt("pressEsc");}}}}m.bRunEff=true;return false;};CUIItem.fbDown=function(){var _r=_STNS,o=this,m=o.oParMenu,p=o.oParPopup,dp=p.iDepth,v=p.iTyp&_STNS.UI.CUIPopup.VERTICAL,f=m.iClk&4;if((m.iClk&1)&&!m.bClked){return false;}m.bRunEff=false;if(v){var a=o.faItems();if(a[2]==1){m.bRunEff=true;return false;}var nI=o.fbNxtItem(1),fI=nI.fbPopFirItem();o.fbFireEnt("mouseout");if(f){if(o.oSubPopup){o.oSubPopup.fbHide();}}nI.fbFOver();}else{if(o.oSubPopup){var fI=o.fbPopFirItem();o.oSubPopup.fbShow();if(fI){if(_r.bIsSF&&_r.oNav.version<523.12){o.fbBlur();}fI.fbFOver();}}}m.bRunEff=true;return false;};CUIItem.fbLeft=function(){var _r=_STNS,o=this,m=o.oParMenu,p=o.oParPopup,pi=p.oParItem,dp=p.iDepth,v=p.iTyp&_STNS.UI.CUIPopup.VERTICAL,f=m.iClk&4;if((m.iClk&1)&&!m.bClked){return false;}m.bRunEff=false;var a=o.faItems();if(a[2]==1&&dp>1){o.fbFireEnt("mouseout");pi.fbFireEnt("mousedown",8);pi.fbFOver();if(p.iStat&_r.UI.CUIPopup.SHOW){p.fbHide();}}else{if(!v){var nI=o.fbNxtItem(0);if(nI!=o){o.fbFireEnt("mouseout");if(f){if(o.oSubPopup){o.oSubPopup.fbHide();}}nI.fbFOver();}}else{if(o.oSubPopup&&(o.oSubPopup.iStat&_r.UI.CUIPopup.SHOW)){o.oSubPopup.fbHide();}else{if(dp){o.fbFireEnt("pressEsc");}}}}m.bRunEff=true;return false;};CUIItem.fbRight=function(){var _r=_STNS,o=this,m=o.oParMenu,p=o.oParPopup,dp=p.iDepth,v=p.iTyp&_STNS.UI.CUIPopup.VERTICAL,f=m.iClk&4;if((m.iClk&1)&&!m.bClked){return false;}m.bRunEff=false;if(!v){var a=o.faItems();if(a[2]==1){m.bRunEff=true;return false;}var nI=o.fbNxtItem(1),fI=nI.fbPopFirItem();o.fbFireEnt("mouseout");if(f){if(o.oSubPopup){o.oSubPopup.fbHide();}}nI.fbFOver();}else{if(o.oSubPopup){var fI=o.fbPopFirItem();o.oSubPopup.fbShow();if(fI){if(_r.bIsSF&&_r.oNav.version<523.12){o.fbBlur();}fI.fbFOver();}}else{var pi=p.oParItem;if(dp>1&&!pi.oParPopup.iTyp){if(pi.faItems()[2]>1){var npi=pi.fbNxtItem(1);o.fbFireEnt("mouseout");if(f){pi.fbFireEnt("mouseout");if(pi.oSubPopup){pi.oSubPopup.fbHide();}}npi.fbFOver();}m.bRunEff=true;return false;}else{if(m.aPopups[0].iTyp&_STNS.UI.CUIPopup.VERTICAL){m.bRunEff=true;return false;}}var rI=o.fbRotItem();if(rI.faItems()[2]>1){var nI=rI.fbNxtItem(1),fI=nI.fbPopFirItem();o.fbFireEnt("mouseout");if(f){rI.fbFireEnt("mouseout");if(rI.oSubPopup){rI.oSubPopup.fbHide();}}nI.fbFOver();}}}m.bRunEff=true;return false;};CUIItem.faItems=function(){var fst=lst=x=y=0,p=this.oParPopup;for(var i=0;i=0;j--){nI=p.aItems[j];if(typeof nI.sTxt!="undefined"){break;}}}}return nI;};CUIItem.fbRotItem=function(){var o=this,p=o.oParPopup,ppi=p;for(var k=0;k=800?a[23]:"";sImgPth=a[2]?a[2].charAt(a[2].length-1)!="/"?a[2]+"/":a[2]:"";sBlank=fsGetImg(a[3]);iTyp=a[4];iX=a[5];iY=a[6];iHal=a[7];iClk=a[8];iDelaySV=a[9];iDelaySH=a[10];iDelayHd=a[11];if(a[12]&&(_r.bIsIE&&_r.oNav.platform!=="Mac"||_r.oNav.name=="konqueror")){aHdTags.push("select");}if(a[13]){aHdTags.push("object","embed","applet");}if(a[14]&&(_r.bIsIE&&_r.oNav.version<5.5||_r.bIsOP||_r.oNav.name=="konqueror")){aHdTags.push("iframe");}sLnkPre=a[15]?a[15].charAt(a[15].length-1)!="/"?a[15]+"/":a[15]:"";iWid=a[16];iTracks=a[17];bRTL=a[18];bHdPopup=a[19];iTrackLevel=a[20];aCursors[0]=_STNS.fbIsFile(a[21])?"url("+_STNS.fsGetAbsPth(m.fsGetImg(a[21]))+"),default":a[21];aCursors[1]=_STNS.fbIsFile(a[22])?"url("+_STNS.fsGetAbsPth(m.fsGetImg(a[22]))+"),auto":a[22];}m.__open=true;return m;}function stm_bp(id,a,pid){var _r=_STNS,m=_r._aStMenus[_r._aStMenus.length-1];if(!m||!m.__open){return;}if(pid){for(var i=0;i=0;i--){if(m.aPopups[i].__open){pp=m.aPopups[i];break;}}if(pp&&!pp.aItems.length){return;}var pi=pp?pp.aItems[pp.aItems.length-1]:0,n=m.aPopups.length,p=new _r.UI.CUIPopup;with(p){sId=id;iNid=n;iTyp=a[0];iDirect=a[1];iOffX=a[2];iOffY=a[3];iSpace=a[4];iPad=a[5];iOpac=a[8];if(STM_FILTER){sShEff=a[9];if(sShEff=="stEffect(\"slip\")"){iShEff="_stDirection:"+a[1];}else{if(sShEff=="stEffect(\"rect\")"){iShEff=a[20]&&a[21]?"border-style:"+_r.UI.CUIMenu.BORDERS[a[20]]+";border-width:"+a[21]+";border-color:"+a[22]:"border-style:solid;border-width:1px;border-color:#999999";}else{iShEff=a[10];}}sHdEff=a[11];if(sHdEff=="stEffect(\"slip\")"){iHdEff="_stDirection:"+a[1];}else{if(sHdEff=="stEffect(\"rect\")"){iHdEff=a[20]&&a[21]?"border-style:"+_r.UI.CUIMenu.BORDERS[a[20]]+";border-width:"+a[21]+";border-color:"+a[22]:"border-style:solid;border-width:1px;border-color:#999999";}else{iHdEff=a[12];}}iEffDur=(110-a[13])*10;}iShadow=a[14];iSdSize=_r.bIsIE&&_r.oNav.version>=5.5?a[15]:0;sSdClr=a[16];sBgClr=a[17];sBgImg=m.fsGetImg(a[18]);iBgRep=a[19];iBdStyle=a[20];iBdWid=a[21];sBdClr=a[22];aRounds[0]=a[23]?m.fsGetImg(a[23]):0;aRHeis[0]=a[24]?a[24]:0;aRWids[0]=a[25]?a[25]:0;aRdb[0]=a[26]?a[26]:0;aRBgClrs[0]=a[27]?a[27]:0;aRBgImgs[0]=a[28]?m.fsGetImg(a[28]):0;aRBgReps[0]=a[29]?a[29]:0;aRounds[1]=a[30]?m.fsGetImg(a[30]):0;aRHeis[1]=a[31]?a[31]:0;aRWids[1]=a[32]?a[32]:0;aRdb[1]=a[33]?a[33]:0;aRBgClrs[1]=a[34]?a[34]:0;aRBgImgs[1]=a[35]?m.fsGetImg(a[35]):0;aRBgReps[1]=a[36]?a[36]:0;aRounds[2]=a[37]?m.fsGetImg(a[37]):0;aRHeis[2]=a[38]?a[38]:0;aRWids[2]=a[39]?a[39]:0;aRdb[2]=a[40]?a[40]:0;aRBgClrs[2]=a[41]?a[41]:0;aRBgImgs[2]=a[42]?m.fsGetImg(a[42]):0;aRBgReps[2]=a[43]?a[43]:0;aRounds[3]=a[44]?m.fsGetImg(a[44]):0;aRHeis[3]=a[45]?a[45]:0;aRWids[3]=a[46]?a[46]:0;aRdb[3]=a[47]?a[47]:0;aRBgClrs[3]=a[48]?a[48]:0;aRBgImgs[3]=a[49]?m.fsGetImg(a[49]):0;aRBgReps[3]=a[50]?a[50]:0;aCorners[0]=a[51]?m.fsGetImg(a[51]):0;aCorners[1]=a[52]?m.fsGetImg(a[52]):0;aCorners[2]=a[53]?m.fsGetImg(a[53]):0;aCorners[3]=a[54]?m.fsGetImg(a[54]):0;aCorWHs=[a[55],a[56],a[57],a[58],a[59],a[60],a[61],a[62]];oParMenu=m;oParItem=pi;oParPopup=pp;iZid=pp?pp.iZid+pi.iNid+3:1000;iDepth=pp?pp.iDepth+1:0;if(!iNid){iWid=m.iWid;}if(pi){pi.oSubPopup=p;}fbAttachEnt("mouseover",fbSetOver);fbAttachEnt("mouseout",fbSetOut);if(!n&&!m.iTyp){iTyp|=_r.UI.CUIPopup.STATIC;}if(p.sShEff||p.sHdEff){_STNS.fvInc(_STNS.fsGetAbsPth(m.sJsPth+"steffie.js"));_STNS.fvInc(_STNS.fsGetAbsPth(m.sJsPth+"steffrect.js"));_STNS.fvInc(_STNS.fsGetAbsPth(m.sJsPth+"steffslip.js"));}}p.__args=a;p.__open=true;m.aPopups.push(p);return p;}function stm_bpx(id,pid,a){return stm_bp(id,a,pid);}function stm_ai(id,a,wid,hei,pid){var _r=_STNS,m=_r._aStMenus[_r._aStMenus.length-1];if(!m||!m.__open){return;}var pp;for(var i=m.aPopups.length-1;i>=0;i--){if(m.aPopups[i].__open){pp=m.aPopups[i];break;}}if(!pp){return;}if(pid){for(var i=0;i"):a[1];aImgs[0]=m.fsGetImg(a[2]);aImgs[1]=m.fsGetImg(a[3]);iImgWid=a[4];iImgHei=a[5];iImgBd=a[6];sLnk=_sTLnk=a[7]?m.fsGetLnk(a[7]):"#_nolink";sTar=a[8];sStatus=a[9];sTip=_r.fsGetHTMLEnti(a[10],1);aIcos[0]=m.fsGetImg(a[11]);aIcos[1]=m.fsGetImg(a[12]);iIcoWid=a[13];iIcoHei=a[14];iIcoBd=a[15];aArrs[0]=m.fsGetImg(a[16]);aArrs[1]=m.fsGetImg(a[17]);iArrWid=a[18];iArrHei=a[19];iArrBd=a[20];iHal=a[21];iVal=a[22];aBgClrs[0]=a[24]?"":a[23];aBgClrs[1]=a[26]?"":a[25];aBgImgs[0]=m.fsGetImg(a[27]);aBgImgs[1]=m.fsGetImg(a[28]);aBgReps[0]=a[29];aBgReps[1]=a[30];iBdStyle=a[31];iBdWid=a[32];aBdClrs[0]=a[33];aBdClrs[1]=a[34];aFntClrs[0]=a[35];aFntClrs[1]=a[36];aFnts[0]=a[37];aFnts[1]=a[38];aDecos[0]=a[39];aDecos[1]=a[40];oParPopup=pp;oParMenu=m;iPad=pp.iPad;iWid=wid?wid:(pp.iTyp&_r.UI.CUIPopup.VERTICAL?"100%":-1);iHei=hei?hei:(pp.iTyp&_r.UI.CUIPopup.VERTICAL?-1:"100%");fbAttachEnt("mouseover",fbSetOver);fbAttachEnt("mouseoverlink",fbSetStatus);fbAttachEnt("mouseout",fbSetOut);fbAttachEnt("mouseoutlink",fbReStatus);fbAttachEnt("pressEnter",fbEnter);fbAttachEnt("pressEsc",fbEsc);fbAttachEnt("pressUp",fbUp);fbAttachEnt("pressDown",fbDown);fbAttachEnt("pressLeft",fbLeft);fbAttachEnt("pressRight",fbRight);if(m.iClk&1){fbAttachEnt("click",fbCkClk);fbAttachEnt("mouseover",fbShowSub);fbAttachEnt("clickarrow",fbCkClk);}else{if(m.iClk&4){fbAttachEnt("click",fbShowSub);fbAttachEnt("clickarrow",fbShowSub);}else{fbAttachEnt("mouseover",fbShowSub);fbAttachEnt("clickarrow",fbShowSub);}}fbAttachEnt("clickarrow",_STNS.fbFalse);fbAttachEnt("click",fbOpenLnk);if(STM_KEY){fbAttachEnt("keydown",_STNS.fbTrue);fbAttachEnt("mousemove",fbSetFocus);fbAttachEnt("mousemove",_STNS.fbTrue);}if(m.iTracks&1){if(m.iTracks&2){aFntClrs[2]=aFntClrs[1];}else{aFntClrs[2]=aFntClrs[0];}aFntClrs[3]=aFntClrs[1];if(m.iTracks&4){aFnts[2]=aFnts[1];aDecos[2]=aDecos[1];}else{aFnts[2]=aFnts[0];aDecos[2]=aDecos[0];}aFnts[3]=aFnts[1];aDecos[3]=aDecos[1];if(m.iTracks&8){aBgClrs[2]=aBgClrs[1];}else{aBgClrs[2]=aBgClrs[0];}aBgClrs[3]=aBgClrs[1];if(m.iTracks&16){aBgImgs[2]=aBgImgs[1];aBgReps[2]=aBgReps[1];}else{aBgImgs[2]=aBgImgs[0];aBgReps[2]=aBgReps[0];}aBgImgs[3]=aBgImgs[1];aBgReps[3]=aBgReps[1];if(m.iTracks&32){aBdClrs[2]=aBdClrs[1];}else{aBdClrs[2]=aBdClrs[0];}aBdClrs[3]=aBdClrs[1];if(m.iTracks&64){aIcos[2]=aIcos[1];}else{aIcos[2]=aIcos[0];}aIcos[3]=aIcos[1];if(m.iTracks&128){aImgs[2]=aImgs[1];}else{aImgs[2]=aImgs[0];}aImgs[3]=aImgs[1];if(m.iTracks&256){aArrs[2]=aArrs[1];}else{aArrs[2]=aArrs[0];}aArrs[3]=aArrs[1];}}}it.__args=a;pp.aItems.push(it);return it;}function stm_aix(id,pid,a,wid,hei){return stm_ai(id,a,wid,hei,pid);}function stm_ep(){var m=_STNS._aStMenus[_STNS._aStMenus.length-1];if(!m||!m.__open){return;}var p;for(var i=m.aPopups.length-1;i>=0;i--){if(m.aPopups[i].__open){p=m.aPopups[i];break;}}if(!p){return;}if(p.aItems.length){if(!p.bMul){if(p.iTyp&_STNS.UI.CUIPopup.VERTICAL){var lw=0,rw=0;for(var i=0;ilw&&p.aItems[i].iIcoHei){lw=p.aItems[i].iIcoWid;}if(p.aItems[i].iArrWid>rw&&p.aItems[i].iArrHei){rw=p.aItems[i].iArrWid;}}if(!p.bMul&&lw){for(var i=0;i0){if(!_25a[n]){_25a[n]=[];}_25a[n][c]=j;n++;}_255--;}_tc=_tc+_stp;}}else{if(_mlc){_tprs=_256==_257?0:p.aItems.length%_ml;for(var c=0;c<_stp;c++){var _mli=0,n=0;for(var j=0;j<(_258==0?_256:_tprs>0?_256:_257);j++){if(_255>0){_mli=j==0?c:_mli+_stp;if(!_25a[n]){_25a[n]=[];}_25a[n][c]=_mli;_255--;n++;}}_tprs>0?_tprs--:"";}}}for(var j=0;j<_25a.length;j++){var lw=0,rw=0;for(var i=0;i<_25a[j].length;i++){if(p.aItems[_25a[j][i]].iIcoWid>lw&&p.aItems[_25a[j][i]].iIcoHei){lw=p.aItems[_25a[j][i]].iIcoWid;}if(p.aItems[_25a[j][i]].iArrWid>rw&&p.aItems[_25a[j][i]].iArrHei){rw=p.aItems[_25a[j][i]].iArrWid;}}if(lw){for(var i=0;i<_25a[j].length;i++){if(!p.aItems[_25a[j][i]].iIcoWid||!p.aItems[_25a[j][i]].iIcoHei){p.aItems[_25a[j][i]].iIcoWid=lw;p.aItems[_25a[j][i]].iIcoHei=1;p.aItems[_25a[j][i]].aIcos=[];}p.aItems[_25a[j][i]].iLeftWid=lw;}}if(rw){for(var i=0;i<_25a[j].length;i++){if(!p.aItems[_25a[j][i]].iArrWid||!p.aItems[_25a[j][i]].iArrHei){p.aItems[_25a[j][i]].iArrWid=rw;p.aItems[_25a[j][i]].iArrHei=1;p.aItems[_25a[j][i]].aArrs=[];}p.aItems[_25a[j][i]].iRightWid=rw;}}}}delete p.__open;}else{var pi=p.oParItem;if(pi){pi.oSubPopup=null;pi.aArrs.length=0;pi.iArrWid=0;pi.iArrHei=0;}m.aPopups.pop();p.fvDestroy();}}function stm_em(){var m=_STNS._aStMenus[_STNS._aStMenus.length-1];if(!m||!m.__open){return;}if(m.aPopups.length){delete m.__open;for(var i=0;i=3));for(var i=1;i=0;i--){if(m.aPopups[i].__open){pp=m.aPopups[i];break;}}switch(a[5]){case 1:_274="repeat-x";break;case 2:_274="repeat-y";break;case 3:_274="repeat";break;default:_274="no-repeat";}pp.bMul=true,pp.iMl=a[0],pp.sMBgClrs=a[2]?"":a[1],pp.sMOpc=a[2],pp.iMSpc=a[3],pp.sMBgImgs=a[4]?m.fsGetImg(a[4]):"",pp.sMBgReps=_274?_274:"no-repeat";for(var i=0;i"+(v?"":"")+""+stgIStr(sc[0])+""+(v?"":""):"";its+=scr?"
":"";its+="";for(var j=0;j":"")+""+(v?"":"");its+="
"+stgIStr(is[j])+"
";its+=scr?"
":"";its+=scr?(v?"":"")+""+stgIStr(sc[1])+""+(v?"":"")+"":"";s+="";if(decH[0])s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";if(decH[2])s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";s+="
0?"width:"+decW[3]+"px;":"")+(decH[0]>0?"height:"+decH[0]+"px;":""))+">"+stgImg(p.ids+"cor0",cor[0],decW[3],decH[0],0)+""+stgImg(p.ids+"dec0",dec[0],decW[0],decH[0],decB[0])+"0?"width:"+decW[1]+"px;":"")+(decH[0]>0?"height:"+decH[0]+"px;":""))+">"+stgImg(p.ids+"cor1",cor[1],decW[1],decH[0],0)+"
"+stgImg(ids+"dec3",dec[3],decW[3],decH[3],decB[3])+""+its+""+stgImg(ids+"dec1",dec[1],decW[1],decH[1],decB[1])+"
0?"width:"+decW[3]+"px;":"")+(decH[2]>0?"height:"+decH[2]+"px;":""))+">"+stgImg(ids+"cor3",cor[3],decW[3],decH[2],0)+""+stgImg(ids+"dec2",dec[2],decW[2],decH[2],decB[2])+"0?"width:"+decW[1]+"px;":"")+(decH[2]>0?"height:"+decH[2]+"px;":""))+">"+stgImg(ids+"cor2",cor[2],decW[1],decH[2],0)+"
";}return s } +function stgIStr(i){var s="",t=i.typ&3,f=i.frm?1:st_css;with(i){ s+=st_nav.nam!="konqueror"&&lnk?"":"";s+="=9?"float:left;":"")+(wid?"width:"+stAdb(wid)+";":"")+(hei?"height:"+stAdb(hei)+";":"")+stgBd(bdW,bd,bdC[(stat&1835008)>>18])+stgBg(bgC[(stat&3584)>>9],bgI[(stat&28672)>>12],bgR[(stat&229376)>>15])+stgCur(lnk&&lnk!="@"?cur[1]:cur[0]))+" "+stgEnt(i)+" align='"+stHAL[hal]+"'>";s+=icoW&&icoH?"":"";s+="";s+=arrW&&arrH?"":"";s+="
"+stgImg(ids+"ico",ico[(stat&56)>>3],icoW,icoH,icoB)+">21],fnt[(stat&117440512)>>24],dec[(stat&939524096)>>27]))+" nowrap>";s+=t==2?stgImg(ids+"img",img[stat&7],imgW,imgH,imgB):txt; s+=""+stgImg(ids+"arr",arr[(stat&448)>>6],arrW,arrH,arrB)+"
"; s+=st_nav.nam!="konqueror"&&lnk?"":""; }return s } +function stAdb(s,b){if(!b) b=0;if(isNaN(s)){if(s.charAt(s.length-1)=="%") return s;else if(s.substr(s.length-2)=="px") return (parseInt(s)+b)+"px"}else return (parseInt(s)+b)+"px"} +function stgObj(i,w){if(!w)w=window;return w.document.getElementById(i)} +function stgBd(w,s,c){if(s=="none") return "";return (w?"border-width:"+w+"px;":"")+"border-style:"+stBDS[s]+";"+(c?"border-color:"+c+";":"")} +function stgBg(c,i,r){return "background-color:"+c+(i?";background-image:url("+i+");background-repeat:"+stREP[r]:"")+";"} +function stgCur(c){return c&&(st_nav.nam=="opera"||c!="hand")?"cursor:"+c+";":""} +function stgFnt(c,f,d){return (c?"color:"+c+";":"")+(f?"font:"+f+";":"")+stgTd(d)} +function stgTd(v,f){if(f) return (v?(v&1?"underline ":"")+(v&2?"line-through ":"")+(v&4?"overline":""):"none");return "text-decoration:"+(v?(v&1?"underline ":"")+(v&2?"line-through ":"")+(v&4?"overline":""):"none")+";"} +function stsEnt(e,o,ei,d){var t=eval(d);if(!t) return;switch(ei){case 0:if(!t.isOv&&!stisPar(o,e.relatedTarget)){eval(t.onmouseover+"(t)");t.isOv=1;}break;case 1:if(!e.relatedTarget||!stisPar(o,e.relatedTarget)){eval(t.onmouseout+"(t)");t.isOv=0;}break;case 2:e.cancelBubble=true;eval(t.onclick+"(t)");break;case 3:eval(t.onmousedown+"(t)");break;case 4:eval(t.onmouseup+"(t)");break;}} +function stisPar(p,c){if(!p||!c) return false;if(p==c) return true;do{if(c.parentNode)c=c.parentNode;else return false;if(p==c) return true;}while(c);return false } +function staddP(p,w){if(!w)w=window;var d=w.document;if(w!=window) {p.frm=w.name;for(var j=0;j>9]!=bgC[(f&3584)>>9])o.style.backgroundColor=bgC[(f&3584)>>9];if(((d&28672)&&bgI[(stat&28672)>>12]!=bgI[(f&28672)>>12])||((d&229376)&&bgR[(stat&229376)>>15]!=bgR[(f&229376)>>15])){o.style.backgroundImage="url("+bgI[(f&28672)>>12]+")";o.style.backgroundRepeat=stREP[bgR[(f&229376)>>15]];}if((d&14680064)&&colr[(stat&14680064)>>21]!=colr[(f&14680064)>>21])fn.style.color=colr[(f&14680064)>>21];if((d&117440512)&&fnt[(stat&117440512)>>24]!=fnt[(f&117440512)>>24])fn.style.font=fnt[(f&117440512)>>24]; if((d&939524096)&&dec[(stat&939524096)>>27]!=dec[(f&939524096)>>27])fn.style.textDecoration=stgTd(dec[(f&939524096)>>27],1);if((d&1835008)&&bdC[(stat&1835008)>>18]!=bdC[(f&1835008)>>18])o.style.borderColor=bdC[(f&1835008)>>18];}if(l){if((d&56)&&ico[(stat&56)>>3]!=ico[(f&56)>>3])l.src=ico[(f&56)>>3]?ico[(f&56)>>3]:m.bnk;}if(r){if((d&448)&&arr[(stat&448)>>6]!=arr[(f&448)>>6])r.src=arr[(f&448)>>6]?arr[(f&448)>>6]:m.bnk;}if(im){if((d&7)&&img[stat&7]!=img[f&7])im.src=img[f&7]?img[f&7]:m.bnk;} stat=f;}if(!stusrE(5,i,st_ms[i.mid])) return }} +function stick(i){if(i.myclick&&!i.myclick()) return;var m=st_ms[i.mid]; if(i.lnk) m.ckhd=1;if(i.frm&&i.lnk){stcIt(i,i.oust);i.isOv=0;i.parP.isOv=0;sthdPX(i.parP,3); stusrE(6,i.parP,m); m.isOv=0;}else if((m.cks&1)&&!m.ckd) {m.ckd=1;for(var j=0;j0;j--)if(ps[j-1].isSh) {if(!f&&ps[j-1].isSt) continue;if((f==3||f==1)&&(!ps[j-1].id||ps[j-1].isSt))continue;if(f==3||f==4)ps[j-1].lock=0;sthdP(ps[j-1]);if(ps[j-1].parI) stcIt(ps[j-1].parI,ps[j-1].parI.oust);}} +function stgPxy(p,f){ var m=st_ms[p.mid],mx=eval(m.x),my=eval(m.y);mx=isNaN(mx)?0:mx;my=isNaN(my)?0:my; var irc=p.parI?stgRc(p.parI._layer):[mx,my,0,0],prc=stgRc(p._layer),xd=p.dir&3,yd=(p.dir&12)/4,x=y=0,win=window,cf=p.frm&&p.frm!=window.name;if(cf)win=stgtfrm(m);var cl=stgcl(win),ct=stgct(win),cw=stgcw(win),ch=stgch(win);switch(xd){case 0:x=irc[0]-prc[2];break;case 1:x=irc[0];break;case 2:x=irc[0]+irc[2]-prc[2];break;case 3:x=irc[0]+irc[2];}switch(yd){case 0:y=irc[1]-prc[3];break;case 1:y=irc[1];break;case 2:y=irc[1]+irc[3]-prc[3];break;case 3:y=irc[1]+irc[3];}if(cf&&p.frm!=p.parI.frm){switch(m.cfD){case 0:y=0;break;case 1:y=ch-prc[3];break;case 2:x=0;break;case 3:x=cw-prc[2];break;}x+=cl;y+=ct;x=x+m.cfX;y=y+m.cfY;if(m.sfrn){var wcl=stgcl(),wct=stgct();if(!m.cfD||m.cfD==1)x-=wcl;if(m.cfD==2||m.cfD==3)y-=wct;}}y+=p.offY;x+=p.offX;if(f&&p.id){ if(x+prc[2]>cl+cw) x=cl+cw-prc[2];if(y+prc[3]>ct+ch) y=ct+ch-prc[3]; if(x"} +function stmvto(xy,p){if(p.isSt||!p.isSh) return;var l=p._shell;l.style.left=xy[0]+"px";l.style.top=xy[1]+"px";p._rc[0]=xy[0];p._rc[1]=xy[1];} +function stwinr(w){if(!w) return false;try{if(w.document&&w.document.body)return true;else return false;}catch(e){return false;}} diff --git a/harbour/website/menu/steffie.js b/harbour/website/menu/steffie.js new file mode 100644 index 0000000000..a94a66a90c --- /dev/null +++ b/harbour/website/menu/steffie.js @@ -0,0 +1,7 @@ +/*================================================================ + ORC_JS, JavaScript Class Framework + version:3.10.80707 + Copyright 2008 by SourceTec Software Co.,LTD + For more information, see:www.sothink.com +================================================================*/ +if(typeof _STNS!="undefined"&&_STNS.EFFECT&&_STNS.bIsIE&&!_STNS.EFFECT.CEffIE){with(_STNS.EFFECT){_STNS.EFFECT.CEffIE=_STNS.Class(_STNS.EFFECT.CEffect);CEffIE.register("EFFECT/CEffect>CEffIE");CEffIE.construct=function(as){this.iFid=as[4]?as[4]:-1;this.sfName="";this.iDur=as[3]||-1;this.sBak="";this._iOid=-1;this._iStat=-1;this._iGid=-1;with(_STNS.EFFECT.CEffIE){this.fiGetStat=fiGetStat;this.fbSet=fbSet;this.fbDel=fbDel;this.fbApply=fbApply;this.fbPlay=fbPlay;this.fbStop=fbStop;this.fbSetStyle=fbSetStyle;}};CEffIE._aGlobal=[];CEffIE.fiGetStat=function(){var _r=_STNS,e;if(this._iStat==-1){return -1;}if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){return e.status;}else{return this._iStat;}};CEffIE.fbSet=function(){var _r=_STNS,e,s,fs=[],i=0,_9,n;if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){if(this.sName&&_STNS.oNav.version>=5.5){s=this.sfName=this.sName;}else{if(_STNS.oNav.version<5.5&&this.iFid>=0&&this.iFid<24&&this.iDur!=-1){s=this.sfName="revealTrans(Transition="+this.iFid+",Duration="+this.iDur/1000+")";}else{return false;}}_9=e.style.filter;if(_9){var re=/[\w:\.]+\([^;\)]+\)/g;fs=_9.match(re);}if(this._iGid==-1){n=_r.EFFECT.CEffIE._aGlobal.length;_r.EFFECT.CEffIE._aGlobal.push(this);this._iGid=n;}if(!fs){fs=[];}for(i=0;ithis._iOid){t[i]._iOid--;}}}this._iStat=-1;return true;};CEffIE.fbApply=function(){var _r=_STNS,e;if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){e.filters[this._iOid].apply();}this._iStat=1;return true;};CEffIE.fbPlay=function(){var _r=_STNS,e;if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){e.filters[this._iOid].play();}this._iStat=2;return true;};CEffIE.fbStop=function(){var _r=_STNS,e;if(this.iStat>-1){if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){if(e.filters[this._iOid].status){e.filters[this._iOid].stop();}}this._iStat=0;}return true;};CEffIE.fbSetStyle=function(s){var _r=_STNS,e;if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){var ss=_r.foCss2Style(s),i;for(i in ss){try{e.style[i]=ss[i];}catch(e){}}}return true;};}} \ No newline at end of file diff --git a/harbour/website/menu/steffrect.js b/harbour/website/menu/steffrect.js new file mode 100644 index 0000000000..a8b0450ba0 --- /dev/null +++ b/harbour/website/menu/steffrect.js @@ -0,0 +1,7 @@ +/*================================================================ + ORC_JS, JavaScript Class Framework + version:3.10.80707 + Copyright 2008 by SourceTec Software Co.,LTD + For more information, see:www.sothink.com +================================================================*/ +if(typeof _STNS!="undefined"&&_STNS.EFFECT&&!_STNS.EFFECT.CEffRect){with(_STNS.EFFECT){_STNS.EFFECT.CEffRect=_STNS.Class(_STNS.EFFECT.CEffect);CEffRect.register("EFFECT/CEffect>CEffRect");CEffRect.construct=function(as){this._tTid=0;this._bShow=0;this._iFms=12;this._iDt=50;this._iDx=0;this._iDy=0;this._iDsx=0;this._iDsy=0;this._iX=0;this._iY=0;this._iSX=-1;this._iSY=-1;this._iGid=-1;this._iCurWid=0;this._iCurHei=0;this.iDur=as[3];this._sBdStyle="solid";this._iBdWid=1;this._sBdClr="#999999";with(_STNS.EFFECT.CEffRect){this.fbSet=fbSet;this.fbDel=fbDel;this.fbApply=fbApply;this.fbPlay=fbPlay;this.fbStop=fbStop;this.fbSetStyle=fbSetStyle;this.fbShow=fbShow;this.fbHide=fbHide;}if(as[4]){this.fbSetStyle(as[4]);}};CEffRect.fbSet=function(){var _r=_STNS,e=_r.fdmGetEleById(this.sDmId,this.dmWin),n;if(!e){return false;}if(this._iGid==-1){n=_r.EFFECT.CEffRect._aGlobal.length;_r.EFFECT.CEffRect._aGlobal.push(this);this._iGid=n;}s="
"+"
";_STNS.fbInsHTML(this.dmWin.document.body,"afterBegin",s);this._iStat=0;return true;};CEffRect.fbDel=function(){this.fbStop();this._iStat=-1;_STNS.EFFECT.CEffRect._aGlobal[this._iGid]=null;return true;};CEffRect.fbApply=function(){var _r=_STNS,e=_r.fdmGetEleById(this.sDmId,this.dmWin);if(!e){return false;}this._iCurWid=_r.fiGetEleWid(e);this._iCurHei=_r.fiGetEleHei(e);this._iDt=Math.floor(this.iDur/this._iFms);this._iDx=Math.round(this._iCurWid/this._iFms);this._iDy=Math.round(this._iCurHei/this._iFms);e=_r.fdmGetEleById("stEffR_"+this._iGid,this.dmWin);e.style.borderStyle=this._sBdStyle;e.style.borderWidth=this._iBdWid+"px";e.style.borderColor=this._sBdClr;if(!_r.EFFECT.CEffRect._aGlobal[this._iGid]){_r.EFFECT.CEffRect._aGlobal[this._iGid]=this;}this._iStat=1;return true;};CEffRect.fbPlay=function(){if(this._iStat!=1){return false;}if(this._bShow){this.fbShow();}else{this.fbHide();}this._iStat=2;return true;};CEffRect.fbStop=function(){if(this._iStat>0){clearTimeout(this._tTid);var e=_STNS.fdmGetEleById("stEffR_"+this._iGid,this.dmWin);e.style.display="none";e=_STNS.fdmGetEleById(this.sDmId,this.dmWin);e.style.left=this._iX+"px";e.style.top=this._iY+"px";if(this._bShow){e.style.visibility="visible";}else{e.style.visibility="hidden";}this._iStat=0;}return true;};CEffRect.fbSetStyle=function(s){var _r=_STNS,ss;ss=_r.foCss2Style(s);if(ss["visibility"]=="hidden"){this._bShow=0;}else{if(ss["visibility"]=="visible"){this._bShow=1;}}if(ss["left"]){this._iX=parseInt(ss["left"]);}if(ss["top"]){this._iY=parseInt(ss["top"]);}if(ss["borderStyle"]){this._sBdStyle=ss["borderStyle"];}if(ss["borderWidth"]){this._iBdWid=parseInt(ss["borderWidth"]);}if(ss["borderColor"]){this._sBdClr=ss["borderColor"];}if(ss["_stStartX"]){this._iSX=parseInt(ss["_stStartX"]);}else{this._iSX=this._iX+this._iCurWid/2;}if(ss["_stStartY"]){this._iSY=parseInt(ss["_stStartY"]);}else{this._iSY=this._iY+this._iCurHei/2;}this._iDsx=Math.floor((this._iSX-this._iX)/this._iFms);this._iDsy=Math.floor((this._iSY-this._iY)/this._iFms);};CEffRect._aGlobal=[];CEffRect.fbShow=function(t){var _r=_STNS,e=_r.fdmGetEleById("stEffR_"+this._iGid,this.dmWin);if(!t){t=0;}if(t>=this._iFms){e.style.display="none";e=_r.fdmGetEleById(this.sDmId,this.dmWin);e.style.left=this._iX+"px";e.style.top=this._iY+"px";e.style.visibility="visible";this._iStat=0;return true;}else{e.style.width=t*this._iDx+"px";e.style.height=t*this._iDy+"px";e.style.left=this._iSX-t*this._iDsx+"px";e.style.top=this._iSY-t*this._iDsy+"px";this._tTid=setTimeout("_STNS.EFFECT.CEffRect._aGlobal["+this._iGid+"].fbShow("+(++t)+")",this._iDt);}e.style.display="block";};CEffRect.fbHide=function(t){var _r=_STNS,e=_r.fdmGetEleById("stEffR_"+this._iGid,this.dmWin);if(!t){_r.fdmGetEleById(this.sDmId,this.dmWin).style.visibility="hidden";t=0;}if(t>=this._iFms){e.style.display="none";this._iStat=0;return true;}else{e.style.width=Math.max(1,this._iCurWid-t*this._iDx)+"px";e.style.height=Math.max(1,this._iCurHei-t*this._iDy)+"px";e.style.left=this._iX+t*this._iDsx+"px";e.style.top=this._iY+t*this._iDsy+"px";this._tTid=setTimeout("_STNS.EFFECT.CEffRect._aGlobal["+this._iGid+"].fbHide("+(++t)+")",this._iDt);}e.style.display="block";};}} \ No newline at end of file diff --git a/harbour/website/menu/steffslip.js b/harbour/website/menu/steffslip.js new file mode 100644 index 0000000000..53f37d5b4e --- /dev/null +++ b/harbour/website/menu/steffslip.js @@ -0,0 +1,7 @@ +/*================================================================ + ORC_JS, JavaScript Class Framework + version:3.10.80707 + Copyright 2008 by SourceTec Software Co.,LTD + For more information, see:www.sothink.com +================================================================*/ +if(typeof _STNS!="undefined"&&_STNS.EFFECT&&!_STNS.EFFECT.CEffSlip){with(_STNS.EFFECT){_STNS.EFFECT.CEffSlip=_STNS.Class(_STNS.EFFECT.CEffect);CEffSlip.register("EFFECT/CEffect>CEffSlip");CEffSlip.construct=function(as){this._tTid=0;this._iX=0;this._iY=0;this._iCurWid=0;this._iCurHei=0;this._bShow=0;this._iGid=-1;this._iFms=12;this._iDt=50;this._iDx=0;this._iDy=0;this.iDir=4;this.iDur=as[3];with(_STNS.EFFECT.CEffSlip){this.fbApply=fbApply;this.fbPlay=fbPlay;this.fbStop=fbStop;this.fbSet=fbSet;this.fbSetStyle=fbSetStyle;this.fbShow=fbShow;this.fbHide=fbHide;this.faParse=faParse;}if(as[4]){this.fbSetStyle(as[4]);}};CEffSlip.fbSet=function(){var _r=_STNS,e,n;if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){if(e.style.position!="absolute"){return false;}if(this._iGid==-1){n=_r.EFFECT.CEffSlip._aGlobal.length;_r.EFFECT.CEffSlip._aGlobal.push(this);this._iGid=n;}this._iStat=0;return true;}return false;};CEffSlip.fbDel=function(){this.fbStop();if(this._iGid!=-1){_STNS.EFFECT.CEffSlip._aGlobal[this._iGid]=null;}this._iStat=-1;return true;};CEffSlip.fbApply=function(){var _r=_STNS;if(!_r.EFFECT.CEffSlip._aGlobal[this._iGid]){_r.EFFECT.CEffSlip._aGlobal[this._iGid]=this;}if(e=_r.fdmGetEleById(this.sDmId,this.dmWin)){this._iCurWid=_r.fiGetEleWid(e);this._iCurHei=_r.fiGetEleHei(e);this._iDt=Math.ceil(this.iDur/this._iFms);this._iDx=Math.floor(this._iCurWid/this._iFms);this._iDy=Math.floor(this._iCurHei/this._iFms);}this._iStat=1;return true;};CEffSlip.fbPlay=function(){var e=_STNS.fdmGetEleById(this.sDmId,this.dmWin);if(!this._bShow){if(!e.style.clip||e.style.clip.indexOf("auto")!=-1){e.style.clip="rect(0px "+this._iCurWid+"px "+this._iCurHei+"px 0px)";}this.fbHide();}else{if(!e.style.clip||e.style.clip.indexOf("auto")!=-1){e.style.clip="rect("+this._iCurHei+"px 0px 0px "+this._iCurWid+"px)";}this.fbShow();}this._iStat=2;return true;};CEffSlip._aGlobal=[];CEffSlip.fbStop=function(){if(this._iStat>0){clearTimeout(this._tTid);var e=_STNS.fdmGetEleById(this.sDmId,this.dmWin);e.style.left=this._iX+"px";e.style.top=this._iY+"px";e.style.clip="rect(auto auto auto auto)";if(this._bShow){e.style.visibility="visible";}else{e.style.visibility="hidden";}this._iStat=0;}return true;};CEffSlip.fbSetStyle=function(s){var _r=_STNS,ss;ss=_r.foCss2Style(s);if(ss["visibility"]=="hidden"){this._bShow=0;}else{if(ss["visibility"]=="visible"){this._bShow=1;}}if(ss["left"]){this._iX=parseInt(ss["left"]);}if(ss["top"]){this._iY=parseInt(ss["top"]);}if(ss["_stDirection"]){this.iDir=parseInt(ss["_stDirection"]);}};CEffSlip.fbShow=function(t){var e=_STNS.fdmGetEleById(this.sDmId,this.dmWin);if(!t){var cc=this.faParse(e.style.clip);switch(this.iDir){case 1:t=Math.floor(cc[1]/this._iDx);e.style.top=this._iY+"px";break;case 2:t=Math.floor((this._iCurWid-cc[3])/this._iDx);e.style.top=this._iY+"px";break;case 3:t=Math.floor(cc[2]/this._iDy);e.style.left=this._iX+"px";break;case 4:t=Math.floor((this._iCurHei-cc[0])/this._iDy);e.style.left=this._iX+"px";break;}this._tTid=setTimeout("_STNS.EFFECT.CEffSlip._aGlobal["+this._iGid+"].fbShow("+(++t)+")",this._iDt);return true;}if(t>=this._iFms){e.style.left=this._iX+"px";e.style.top=this._iY+"px";e.style.clip="rect(auto auto auto auto)";_STNS.EFFECT.CEffSlip._aGlobal[this._iGid]=null;this._iStat=0;return true;}else{switch(this.iDir){case 1:e.style.left=(this._iX+this._iCurWid-t*this._iDx)+"px";e.style.clip="rect(0px "+t*this._iDx+"px "+this._iCurHei+"px 0px)";break;case 2:e.style.left=(this._iX-this._iCurWid+t*this._iDx)+"px";e.style.clip="rect(0px "+this._iCurWid+"px "+this._iCurHei+"px "+(this._iCurWid-t*this._iDx)+"px)";break;case 3:e.style.top=(this._iY+this._iCurHei-t*this._iDy)+"px";e.style.clip="rect(0px "+this._iCurWid+"px "+t*this._iDy+"px 0px)";break;case 4:e.style.top=(this._iY-this._iCurHei+t*this._iDy)+"px";e.style.clip="rect("+(this._iCurHei-t*this._iDy)+"px "+this._iCurWid+"px "+this._iCurHei+"px 0px)";break;}e.style.visibility="visible";}this._tTid=setTimeout("_STNS.EFFECT.CEffSlip._aGlobal["+this._iGid+"].fbShow("+(++t)+")",this._iDt);return true;};CEffSlip.fbHide=function(t){var e=_STNS.fdmGetEleById(this.sDmId,this.dmWin);if(!t){var cc=this.faParse(e.style.clip);switch(this.iDir){case 1:t=Math.floor((this._iCurWid-cc[1])/this._iDx);e.style.top=this._iY+"px";break;case 2:t=Math.floor(cc[3]/this._iDx);e.style.top=this._iY+"px";break;case 3:t=Math.floor((this._iCurHei-cc[2])/this._iDy);e.style.left=this._iX+"px";break;case 4:t=Math.floor(cc[0]/this._iDy);e.style.left=this._iX+"px";break;}this._tTid=setTimeout("_STNS.EFFECT.CEffSlip._aGlobal["+this._iGid+"].fbHide("+(++t)+")",this._iDt);e.style.visibility="visible";return true;}if(t>=this._iFms){e.style.left=this._iX+"px";e.style.top=this._iY+"px";e.style.clip="rect(auto auto auto auto)";e.style.visibility="hidden";_STNS.EFFECT.CEffSlip._aGlobal[this._iGid]=null;this._iStat=0;return true;}else{switch(this.iDir){case 1:e.style.left=(this._iX+t*this._iDx)+"px";e.style.clip="rect(0px "+(this._iCurWid-t*this._iDx)+"px "+this._iCurHei+"px 0px)";break;case 2:e.style.left=(this._iX-t*this._iDx)+"px";e.style.clip="rect(0px "+this._iCurWid+"px "+this._iCurHei+"px "+t*this._iDx+"px)";break;case 3:e.style.top=(this._iY+t*this._iDy)+"px";e.style.clip="rect(0px "+this._iCurWid+"px "+(this._iCurHei-t*this._iDy)+"px 0px)";break;case 4:e.style.top=(this._iY-t*this._iDy)+"px";e.style.clip="rect("+t*this._iDy+"px "+this._iCurWid+"px "+this._iCurHei+"px 0px)";break;}this._tTid=setTimeout("_STNS.EFFECT.CEffSlip._aGlobal["+this._iGid+"].fbHide("+(++t)+")",this._iDt);}return true;};CEffSlip.faParse=function(s){var t=s.split(" ");t[0]=parseInt(t[0].substr(5));for(var j=1;j=sn;q--){ clearTimeout(pp[q].tid);if(!pp[q].isSh){var los=pp[q].lock;pp[q].lock=0;stshP(pp[q]);pp[q].lock=los;}}}}}} +function stgtW(t,w){if(t=="_self")return w;else if(t=="_parent")return w.parent;else if(t=="_top")return w.top;else return parent.frames[t];return 0;} diff --git a/harbour/website/menu/stie.js b/harbour/website/menu/stie.js new file mode 100644 index 0000000000..96ff07ca9e --- /dev/null +++ b/harbour/website/menu/stie.js @@ -0,0 +1,36 @@ +/*=======Ver: 7.0.60906========*/ +/*DHTMLMenu, (c) 2006, SourceTec Software Co.,LTD - www.sothink.com*/ +function stgPStr(p){var s="",its="",scr=p.typ&2,v=p.typ&1,f=p.frm?1:st_css;with(p){its+=scr?""+(v?"":"")+""+(v?"":""):"";its+=scr?"":""; its+=scr?(v?"":"")+""+(v?"":"")+"
"+stgIStr(sc[0])+"
":"";its+="";for(var j=0;j":"")+""+(v?"":"");its+="
"+stgIStr(is[j])+"
";its+=scr?"
"+stgIStr(sc[1])+"
":"";s+="";if(decH[0])s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";if(decH[2])s+=""+(decW[3]?"":"")+""+(decW[1]?"":"")+"";s+="
0?"width:"+decW[3]+"px;":"")+(decH[0]>0?"height:"+decH[0]+"px;":""))+">"+stgImg(p.ids+"cor0",cor[0],decW[3],decH[0],0)+""+stgImg(p.ids+"dec0",dec[0],decW[0],decH[0],decB[0])+"0?"width:"+decW[1]+"px;":"")+(decH[0]>0?"height:"+decH[0]+"px;":""))+">"+stgImg(p.ids+"cor1",cor[1],decW[1],decH[0],0)+"
"+stgImg(ids+"dec3",dec[3],decW[3],decH[3],decB[3])+""+its+""+stgImg(ids+"dec1",dec[1],decW[1],decH[1],decB[1])+"
0?"width:"+decW[3]+"px;":"")+(decH[2]>0?"height:"+decH[2]+"px;":""))+">"+stgImg(ids+"cor3",cor[3],decW[3],decH[2],0)+""+stgImg(ids+"dec2",dec[2],decW[2],decH[2],decB[2])+"0?"width:"+decW[1]+"px;":"")+(decH[2]>0?"height:"+decH[2]+"px;":""))+">"+stgImg(ids+"cor2",cor[2],decW[1],decH[2],0)+"
";}return s } +function stgIStr(i){var s="",t=i.typ&3,f=i.frm?1:st_css;with(i){s+=lnk?"":"";s+=">18])+stgBg(bgC[(stat&07000)>>9],bgI[(stat&070000)>>12],bgR[(stat&0700000)>>15])+stgCur(lnk&&lnk!="@"?cur[1]:cur[0]))+" "+stgEnt(i)+" align='"+stHAL[hal]+"'>";s+=icoW&&icoH?"":"";s+=""; s+=arrW&&arrH?"":"";s+="
"+stgImg(ids+"ico",ico[(stat&070)>>3],icoW,icoH,icoB)+">21],fnt[(stat&0700000000)>>24],dec[(stat&07000000000)>>27]))+" nowrap>";s+=t==2?stgImg(ids+"img",img[stat&7],imgW,imgH,imgB):txt; s+=""+stgImg(ids+"arr",arr[(stat&0700)>>6],arrW,arrH,arrB)+"
"; s+=lnk?"":""; }return s;} +function stAdb(s,b){if(!b) b=0;if(isNaN(s)){if(s.charAt(s.length-1)=="%") return s;else if(s.substr(s.length-2)=="px") return (parseInt(s)+2*b)+"px"}else return (parseInt(s)+2*b)+"px"} +function stgObj(i,w){if(!w)w=window;return w.document.all[i];} +function stgBd(w,s,c){if(s=="none") return "";return (w?"border-width:"+w+"px;":"")+"border-style:"+stBDS[s]+";"+(c?"border-color:"+c+";":"")} +function stgBg(c,i,r){return "background-color:"+c+(i?";background-image:url("+i+");background-repeat:"+stREP[r]:"")+";"} +function stgCur(c){if(!c.indexOf("url(")&&st_nav.ver<6) return;return c?"cursor:"+c+";":"";} +function stgFnt(c,f,d){return (c?"color:"+c+";":"")+(f?"font:"+f+";":"")+stgTd(d)} +function stgTd(v,f){if(f) return (v?(v&1?"underline ":"")+(v&2?"line-through ":"")+(v&4?"overline":""):"none");return "text-decoration:"+(v?(v&1?"underline ":"")+(v&2?"line-through ":"")+(v&4?"overline":""):"none")+";";} +function stgFilt(p){var s="";with(p){s+=eff[0]?eff[0]+" ":"";s+=eff[1]?eff[1]+" ":"";s+=(opc==100?"":"Alpha(opacity="+opc +") ");if(shad)s+=shad==1?"dropshadow(color="+sdC+",offx="+stre+",offy="+stre+",positive=1)":"Shadow(color="+sdC+",direction=135,strength="+stre+") ";}if(s)s="filter:"+s+";";return s;} +function stsEnt(e,o,ei,d){var t=eval(d);if(!t) return;switch(ei){case 0:if(!t.isOv&&e.toElement&&o.contains(e.toElement)){eval(t.onmouseover+"(t)");t.isOv=1;}break;case 1:if(t.isOv&&(!e.toElement||!o.contains(e.toElement))){eval(t.onmouseout+"(t)");t.isOv=0;}break;case 2:e.cancelBubble=true;if(e.shiftKey) eval(t.onclick+"(t,1)");else eval(t.onclick+"(t)");break;case 3:eval(t.onmousedown+"(t)");break;case 4:eval(t.onmouseup+"(t)");break;}} +function staddP(p,w){if(!w)w=window;var es=s="",d=w.document;if(w!=window) {p.frm=w.name;for(var j=0;j"+stgPStr(p)+"");return true}if(st_nav.ver>=5&&st_nav.os!="mac")es+="try{";else es+="if(stwinr(w)){";es+="s=\"
6?"expression(document.all('"+p.ids+"').offsetWidth)":"1px")+";visibility:hidden;z-index:\"+p.zid+\";padding:\"+p.stre+\"px;\"+stgFilt(p))+\" id='\"+p.ids+\"dv'>\"+stgPStr(p)+\"
\";if(st_nav.ver<5||st_nav.os==\"mac\")d.body.insertAdjacentHTML(\"beforeEnd\",s);else d.body.insertAdjacentHTML(\"afterBegin\",s);";es+="true";if(st_nav.ver>=5&&st_nav.os!="mac"){es+="}catch(e){";es+="if(p.frm){";es+="p.frm=0;";es+="for(var j=0;j5){x-=o.offsetLeft;x+=isNaN(parseInt(o.parentNode.style.padding))?parseInt(o.parentNode.style.padding):0 }}o=o.offsetParent;}return [x,y,w,h]} +function stckL(d,w){if(!w)w=window;var l,es="";if(d.isSt) return true;if(st_nav.ver>=5) es+="try{";else es+="if(stwinr(w)){";es+="d._layer&&d._layer==stgObj(d.ids,w)";if(st_nav.ver>=5)es+="} catch(e){false}";else es+="}else false";return eval(es)} +function stcIt(i,f){if(i.lock||i.stat==f) return;var m=st_ms[i.mid]; if(i._layer){if(!stusrE(4,i,m)) return; var o=i._layer,l=i._left,r=i._right,im=i._img,fn=i._font,d;with(i){d=stat^f;if(o){if((d&07000)&&bgC[(stat&07000)>>9]!=bgC[(f&07000)>>9]){o.style.backgroundColor=bgC[(f&07000)>>9];}if(((d&070000)&&bgI[(stat&070000)>>12]!=bgI[(f&070000)>>12])||((d&0700000)&&bgR[(stat&0700000)>>15]!=bgR[(f&0700000)>>15])){o.style.backgroundImage="url("+bgI[(f&070000)>>12]+")";o.style.backgroundRepeat=stREP[bgR[(f&0700000)>>15]];}if((d&070000000)&&colr[(stat&070000000)>>21]!=colr[(f&070000000)>>21])fn.style.color=colr[(f&070000000)>>21];if((d&0700000000)&&fnt[(stat&0700000000)>>24]!=fnt[(f&0700000000)>>24])fn.style.font=fnt[(f&0700000000)>>24]; if((d&07000000000)&&dec[(stat&07000000000)>>27]!=dec[(f&07000000000)>>27])fn.style.textDecoration=stgTd(dec[(f&07000000000)>>27],1); if((d&07000000)&&bdC[(stat&07000000)>>18]!=bdC[(f&07000000)>>18])o.style.borderColor=bdC[(f&07000000)>>18];}if(l){if((d&070)&&ico[(stat&070)>>3]!=ico[(f&070)>>3])l.src=ico[(f&070)/010]?ico[(f&070)>>3]:m.bnk;}if(r){if((d&0700)&&arr[(stat&0700)>>6]!=arr[(f&0700)>>6])r.src=arr[(f&0700)>>6]?arr[(f&0700)>>6]:m.bnk;}if(im){if((d&7)&&img[stat&7]!=img[f&7])im.src=img[f&7]?img[f&7]:m.bnk;} stat=f;}if(!stusrE(5,i,st_ms[i.mid])) return;}} +function stick(i,f){if(i.myclick&&!i.myclick()) return;var m=st_ms[i.mid]; if(i.lnk) m.ckhd=1;if(i.frm&&i.lnk){stcIt(i,i.oust);i.isOv=0;i.parP.isOv=0;sthdPX(i.parP,3);stusrE(6,i.parP,m); m.isOv=0;}else if((m.cks&1)&&!m.ckd) {m.ckd=1;for(var j=0;j0;j--)if(ps[j-1].isSh) {if(!f&&ps[j-1].isSt) continue;if((f==3||f==1)&&(!ps[j-1].id||ps[j-1].isSt))continue;if(f==3||f==4)ps[j-1].lock=0;sthdP(ps[j-1]);if(ps[j-1].parI) stcIt(ps[j-1].parI,ps[j-1].parI.oust);}} +function stgPxy(p,f){ var m=st_ms[p.mid],mx=eval(m.x),my=eval(m.y);mx=isNaN(mx)?0:mx;my=isNaN(my)?0:my; var irc=p.parI?stgRc(p.parI._layer):[mx,my,0,0],prc=stgRc(p._shell),xd=p.dir&3,yd=(p.dir&12)/4,x=y=0,win=window,cf=p.frm&&p.frm!=window.name;var xd=p.dir&3,yd=(p.dir&12)/4;if(cf)win=stgtfrm(m);var cl=stgcl(win),ct=stgct(win),cw=stgcw(win),ch=stgch(win);switch(xd){case 0:x=irc[0]-prc[2];break;case 1:x=irc[0];break;case 2:x=irc[0]+irc[2]-prc[2];break;case 3:x=irc[0]+irc[2];}switch(yd){case 0:y=irc[1]-prc[3];break;case 1:y=irc[1];break;case 2:y=irc[1]+irc[3]-prc[3];break;case 3:y=irc[1]+irc[3];}if(cf&&p.frm!=p.parI.frm){switch(m.cfD){case 0:y=0;break;case 1:y=ch-prc[3];break;case 2:x=0;break;case 3:x=cw-prc[2];break;}x+=cl;y+=ct;x=x+m.cfX;y=y+m.cfY;if(m.sfrn){var wcl=stgcl(),wct=stgct();if(!m.cfD||m.cfD==1)x-=wcl;if(m.cfD==2||m.cfD==3)y-=wct;}}y+=p.offY;x+=p.offX;x-=xd?p.stre:0;y-=yd?p.stre:0; if(f&&p.id){ if(x+prc[2]>cl+cw) x=cl+cw-prc[2];if(y+prc[3]>ct+ch) y=ct+ch-prc[3]; if(x";} +function stmvto(xy,p){if(p.isSt||!p.isSh) return;var l=p._shell;l.style.left=xy[0]+"px";l.style.top=xy[1]+"px";p._rc[0]=xy[0];p._rc[1]=xy[1];} +function stgcl(w){if(!w)w=window; return (w.document.compatMode=="CSS1Compat"?w.document.documentElement:w.document.body).scrollLeft;} +function stgct(w){if(!w)w=window; return (w.document.compatMode=="CSS1Compat"?w.document.documentElement:w.document.body).scrollTop;} +function stgcw(w){if(!w)w=window; return (w.document.compatMode=="CSS1Compat"?w.document.documentElement:w.document.body).clientWidth;} +function stgch(w){if(!w)w=window; return (w.document.compatMode=="CSS1Compat"?w.document.documentElement:w.document.body).clientHeight;} +function stwinr(w){if(!w) return false;if(w.document.readyState=="complete") return true;return false;} diff --git a/harbour/website/menu/stinit.js b/harbour/website/menu/stinit.js new file mode 100644 index 0000000000..83678d7d7c --- /dev/null +++ b/harbour/website/menu/stinit.js @@ -0,0 +1,5 @@ +/*=======Ver: 7.0.60906========*/ +/*DHTMLMenu, (c) 2006, SourceTec Software Co.,LTD - www.sothink.com*/ +function stshow(){if(!st_cm) return;var m=st_cm;if(!m.typ&&st_nav.typ!=4){if(!st_nav.typ&&(st_nav.ver<5||st_nav.os=="mac")&&staddP(m.ps[0]))st_ld.push(new Function("stsPop(st_ms["+m.id+"].ps[0]);stshP(st_ms["+m.id+"].ps[0]);st_ms["+m.id+"].ps[0].lock=1"));else if(staddP(m.ps[0]))document.write("");}else if(m.typ==1&&st_nav.typ!=4){if(!st_nav.typ&&(st_nav.ver<5||st_nav.os=="mac"))st_ld.push(new Function("stshP(st_ms["+m.id+"].ps[0]);st_ms["+m.id+"].ps[0].lock=1"));else{stshP(m.ps[0]);m.ps[0].lock=1;}}else if(m.typ==3&&st_nav.typ!=4){document.oncontextmenu=function(e){if(st_nav.typ)eval("var m=st_ms["+m.id+"];m.x=e.pageX;m.y=e.pageY;stshP(m.ps[0]);clearTimeout(m.ps[0].tid);m.ps[0].tid=setTimeout(\"sthdP(st_ms["+m.id+"].ps[0])\",m.deHd)");else eval("var m=st_ms["+m.id+"];m.x=stgcl()+event.x;m.y=stgct()+event.y;stshP(m.ps[0]);clearTimeout(m.ps[0].tid);m.ps[0].tid=setTimeout(\"sthdP(st_ms["+m.id+"].ps[0])\",m.deHd)");return false };}stsetld();} +function hideMenu(n){if((m=stgMe(n))&&st_nav.typ!=4)sthdPX(m.ps[0],4)} +function showFloatMenuAt(n,x,y){ var m;if((m=stgMe(n))&&st_nav.typ!=4){m.x=x;m.y=y;stshP(m.ps[0]);if(!STM_AHCM)m.ps[0].lock=1;}}stshow(); diff --git a/harbour/website/menu/stmenu.js b/harbour/website/menu/stmenu.js new file mode 100644 index 0000000000..693e25378c --- /dev/null +++ b/harbour/website/menu/stmenu.js @@ -0,0 +1,92 @@ +/*=======Ver: 7.0.60906========*/ +/*DHTMLMenu, (c) 2006, SourceTec Software Co.,LTD - www.sothink.com*/ +if(typeof st_js=="undefined") +{ + STM_FILTER=1; + STM_SCROLL=1; + STM_SLIP=1; + STM_RTL=0; + STM_AHCM=0; + STM_SMSC=1; + STM_BIMG=1; + STM_ILOC=0; + STM_ILINK=0; + stHAL=["left","center","right"]; + stVAL=["top","middle","bottom"]; + stREP=["no-repeat","repeat-x","repeat-y","repeat"]; + stBDS=["none","solid","double","dotted","dashed","groove","ridge","outset","inset"]; + stENTS=["onmouseover","onmouseout","onclick","onmousedown","onmouseup","onfocus","onblur","onkeydown","onkeyup"]; + st_ld=[]; + st_lded=0; + st_ck=[]; + st_ms=[]; + st_imgs=[]; + st_funs=0; + st_path=stgfd(location.href); + st_nav=stnav(); + st_cm=st_cp=st_ci= st_tid=0; + + if(!Array.prototype.push)Array.prototype.push=function(){var l=this.length;for(var i=0;i3?arguments[3]:0,ht=arguments.length>4?arguments[4]:0;stm_ai(l,(a.length?a.concat(i.args.slice(a.length)):i.args),wd,ht)} +function stm_ep(){var m=st_cm,p=st_cp;st_ci=p.parI;if(st_ci) st_cp=st_ci.parP;else st_cp=0; if(!p.is.length){var i=p.parI;if(m.rtl){i.ico=["",""];i.icoW=0;i.icoH=0;i.icoB=0;}else{i.arr=["",""];i.arrW=0;i.arrH=0;i.arrB=0;} i.subP=0;m.ps.pop();} } +function stm_sc(n,a){if(!STM_SCROLL)return; var m=st_cm,e;for(var j=1;j=4){if(v<5||p=="mac")STM_SCROLL=0;t=0;}else if(n=="opera"&&v>=7||n=="safari"&&v>=1){if(n!="opera"||v<9)STM_SCROLL=0;STM_FILTER=0;t=1;}else if(n=="konqueror"&&v>=3){STM_FILTER=0;STM_SLIP=0;STM_SCROLL=0;t=1;}else if(n=="gecko"&&v>=20020529){STM_FILTER=0;if(v<20040804)STM_SCROLL=0;t=1;}else t=4;return {os:p,nam:n,ver:v,typ:t}} +function stckpg(){if(!st_ck.length) return;for(var j=0;j"} +function stCreate(){var m=st_cm,d=document;if(m.eslip)steslip();if(m.ieff)stflt();var f=(st_funs&2)||(st_funs&4);switch(st_nav.typ){case 0:if(!(st_funs&2)){d.write(stgJs(m.jsP+"stie.js"));st_funs|=2;}break;case 1:if(!(st_funs&4)){d.write(stgJs(m.jsP+"stdom.js"));st_funs|=4;}}if((st_funs&512)&&f) stshow();else {d.write(stgJs(m.jsP+"stinit.js")); st_funs|=512;}} +function stDtB(a){var b=0;for(var j=0;j/g;s=s.replace(re,">");re=/\r\n/g;s=s.replace(re,"
");re=/\"/g;s=s.replace(re,""");return s;} +function stabs(s){var t=s.toLowerCase();return t=="@"||!t||!t.indexOf("#")||!t.indexOf("?")||t.indexOf(":")==1&&t.charCodeAt()>="a"&&t.charCodeAt()<="z"||!t.indexOf("http:")||!t.indexOf("https:")||!t.indexOf("file:")||!t.indexOf("ftp:")||!t.indexOf("/")||!t.indexOf("javascript:")||!t.indexOf("mailto:")||!t.indexOf("about:")||!t.indexOf("gopher:")||!t.indexOf("news:")||!t.indexOf("telnet:")||!t.indexOf("wais:")||!t.indexOf("rtsp:")||!t.indexOf("mms:");} +function stbuf(s){if(s&&STM_BIMG){for(var j=0;j=0;j--)s+=n[j]+".";if(m.sfrn) s+=m.sfrn+".";else s+="parent.";m.sfrp=s;return s;} +function sthl(){if(typeof(stisL)=="undefined") return;for(var k=0;k=0;l--){ i=is[l]; if(!i.ishl||mck){ex=i.pid?stckL(i,w):stckL(i);if(m.lits&0x01000000){ if(ex){i._anchor.href="#";i._anchor.target="_self";i._layer.style.cursor=!m.cur[0].indexOf("url(")&&!st_nav.typ&&st_nav.ver<6||m.cur[0]=="hand"&&st_nav.typ==1&&st_nav.nam!="opera"?"":m.cur[0];} i.blnk=i.lnk;i.lnk="@";} f=1;}else{do{if(typeof ii[i.pid]=="undefined")ii[i.pid]=[];ii[i.pid][i.id]=1;i=i.parP.parI; }while(i&&(m.lits&0x04000000));continue;}pp=[];t=0;do{ if(m.lits&0x08000000)pp.push(i.parP);if(!t||m.lits&0x04000000){ if(ex&&!i.isOv){var los=i.lock;i.lock=0;stcIt(i,li);i.lock=los;}i.stat=i.oust=li;i.ishl=1; if(typeof ii[i.pid]=="undefined")ii[i.pid]=[];ii[i.pid][i.id]=1;}t=1;i=i.parP.parI; if(!i)break;ex=i.pid?stckL(i,w):stckL(i);}while(m.lits&0x04000000||m.lits&0x08000000);if(m.lits&0x10000000)sn=Math.max(pp.length-m.litl,0);for(var q=pp.length-1;q>=sn;q--){ clearTimeout(pp[q].tid);if(!pp[q].isSh){var los=pp[q].lock;pp[q].lock=0;stshP(pp[q]);pp[q].lock=los;}ip[pp[q].id]=1;}}}}if(f)for(var j=0;j0?rc[0]+p.scxs:rc[0]-p.scxs,y=dy>0?rc[1]+p.scys:rc[1]-p.scys;stmvto([x,y],p)}}} +function stgsp(sp,d){var i=0,s=5;if(d0)s=s.replace("/./","/");while((t=s.indexOf("/../"))>0){var p1,p2;p1=s.substr(0,t);p2=s.substr(t).replace("/../","");p1=p1.substr(0,p1.lastIndexOf("/")+1);s=p1+p2;}return s;} +function stStyle(){var s="";} +function stgCss(t,f,c){var s="";if(!f){if(stCSS[t]) s=" class='stc"+t+"'";if(c) s+=" style=\""+c+"\"";}else{if(!c&&stCSS[t])s=" style='"+stCSS[t]+"'";else if(stCSS[t]){s=" style=\"";var a=ststo(c),b=ststo(stCSS[t]);for(var i in b) if(typeof a[i]=="undefined") a[i]=b[i];s+=stots(a);s+="\"";}}return s;} +function ststo(s){var o={},a,re=/\s*([\w\-_]+)\s*:\s*([:\w#%\- .\"\',\(\)\-\/\\=\|]+)\s*(;|$)/,ra;a=s.split(";"); for(var i=0;i=5)&&i<24&&i>=0?"revealTrans(Transition="+i+",Duration="+((110-s)/100)+")":"":f;} + +function copyright_year() { + document.write( new Date().getFullYear() ); +} diff --git a/harbour/website/menu/stscroll.js b/harbour/website/menu/stscroll.js new file mode 100644 index 0000000000..7ac99b148a --- /dev/null +++ b/harbour/website/menu/stscroll.js @@ -0,0 +1,11 @@ +/*=======Ver: 7.0.60906========*/ +/*DHTMLMenu, (c) 2006, SourceTec Software Co.,LTD - www.sothink.com*/ +function strSc(p){stcSc(p,0);stcIt(p.sc[0],0);stcIt(p.sc[1],0);p._sc.style.overflow="visible";p._sc.style.width="";p._sc.style.height="";return 1;} +function stsSc(p){ if(!(p.typ&2)) return 1;if(!p._mw){p._mw=p._tb.offsetWidth;p._mh=p._tb.offsetHeight;p._lw=1;p._lh=1;}strSc(p);var wh=stgPwh(p); if(wh[2]){p._sc.style.overflow="hidden";p._sc.style.width=wh[0]+"px";p._sc.style.height=wh[1]+"px";p._sc.scrollTop=0;p._sc.scrollLeft=0;stcSc(p,1);}if(p.sc[0].hei=="100%"&&st_nav.typ&&!p.sc[0].fixH){p.sc[0].fixH=1;p.sc[0]._layer.style.height=p.sc[0]._layer.parentNode.offsetHeight+"px";}if(p.sc[1].hei=="100%"&&st_nav.typ&&!p.sc[0].fixH){p.sc[1].fixH=1;p.sc[1]._layer.style.height=p.sc[1]._layer.parentNode.offsetHeight+"px";}return 1;} +function stcSc(p,f){if(!(p.typ&2)) return;if(f){if(p.typ&1){p.sc[0]._layer.parentNode.parentNode.style.display="";p.sc[1]._layer.parentNode.parentNode.style.display="";}else{p.sc[0]._layer.parentNode.style.display="";p.sc[1]._layer.parentNode.style.display="";}}else{if(p.typ&1){p.sc[0]._layer.parentNode.parentNode.style.display="none";p.sc[1]._layer.parentNode.parentNode.style.display="none";}else{p.sc[0]._layer.parentNode.style.display="none";p.sc[1]._layer.parentNode.style.display="none";}}} +function stgPwh(p){var v=p.typ&1;var sw=[p.sc[0].imgW+2*p.sc[0].imgB+2*p.sc[0].bdW,p.sc[1].imgW+2*p.sc[1].imgB+2*p.sc[1].bdW],sh=[p.sc[0].imgH+2*p.sc[0].imgB+2*p.sc[0].bdW,p.sc[1].imgH+2*p.sc[1].imgB+2*p.sc[1].bdW];var win=window,m=st_ms[p.mid];if(p.frm)win=stgtfrm(m); var w=stgcw(win),h=stgch(win),l=stgcl(win),t=stgct(win),rc=p.frm&&p.parI&&!p.parI.pid?stgPxy(p,1).concat([p._rc[2],p._rc[3]]):stgPxy(p).concat([p._rc[2],p._rc[3]]);var xd=p.dir&3,yd=(p.dir&12)/4;var dec0=stgRc(stgObj(p.ids+"d0")),dec1=stgRc(stgObj(p.ids+"d1")),dec2=stgRc(stgObj(p.ids+"d2")),dec3=stgRc(stgObj(p.ids+"d3"));dec0=dec0?dec0:[0,0,0,0];dec1=dec1?dec1:[0,0,0,0];dec2=dec2?dec2:[0,0,0,0];dec3=dec3?dec3:[0,0,0,0];var dh=dec0[3]+dec2[3]+2*(p.bdW+p.stre),dw=dec1[2]+dec3[2]+2*(p.bdW+p.stre);if(p.scD){if(v&&rc[3]>p.scD)return [rc[2]-dw,Math.max(p._lh,p.scD-sh[0]-sh[1]-dh),1];else if(!v&&rc[2]>p.scD)return [Math.max(p._lw,p.scD-sw[0]-sw[1]-dw),rc[3]-dh,1];else return [rc[2]-dw,rc[3]-dh,0];} if(!xd&&(yd==1||yd==2)){if(v&&rc[3]>h)return [rc[2]-dw,Math.max(p._lh,h-sh[0]-sh[1]-dh),1];else if(!v&&rc[0]w)return [Math.max(p._lw,w-sw[0]-sw[1]-dw),rc[3]-dh,1];}else if((xd==1||xd==2)&&yd==3){if(v&&rc[3]>h-rc[1]+t)return [rc[2]-dw,Math.max(p._lh,h-rc[1]+t-sh[0]-sh[1]-dh),1];else if(!v&&rc[2]>w)return [Math.max(p._lw,w-sw[0]-sw[1]-dw),rc[3]-dh,1];}else if(xd==3&&(yd==1||yd==2)){if(v&&rc[3]>h)return [rc[2]-dw,Math.max(p._lh,h-sh[0]-sh[1]-dh),1];else if(!v&&rc[2]>w-rc[0]+l)return [Math.max(p._lw,w-rc[0]+l-sw[0]-sw[1]-dw),rc[3]-dh,1];}else {if(v&&rc[3]>h)return [rc[2]-dw,Math.max(p._lh,h-sh[0]-sh[1]-dh),1];else if(!v&&rc[2]>w)return [Math.max(p._lw,w-sw[0]-sw[1]-dw),rc[3]-dh,1];}return [rc[2]-dw,rc[3]-dh,0];} +function stsov(s){var p=s.parP;stcIt(s,s.stat&1|01111111110);if(p.scid) clearTimeout(p.scid);stscr(s.sid,p)} +function stsou(s){var p=s.parP;stcIt(s,s.stat&1|0);p.scsp=100;if(p.scid) clearTimeout(p.scid)} +function stsdn(s){var p=s.parP;p.scsp=10;} +function stsdu(s){var p=s.parP;p.scsp=100;} +function stscr(n,p){var d=0;if(p.typ&1){if(n){d=p._sc.scrollTop+4;if(d+p._sc.offsetHeight>=p._mh){p._sc.scrollTop=p._mh-p._sc.offsetHeight;stcIt(p.sc[1],01111111111);}else{p._sc.scrollTop=d;stcIt(p.sc[0],1);p.scid=setTimeout("stscr("+n+",st_ms["+p.mid+"].ps["+p.id+"])",p.scsp);}}else{d=p._sc.scrollTop-4;if(d<=0){p._sc.scrollTop=0; stcIt(p.sc[0],01111111110);}else{p._sc.scrollTop=d;stcIt(p.sc[1],0);p.scid=setTimeout("stscr("+n+",st_ms["+p.mid+"].ps["+p.id+"])",p.scsp);}}}else{if(n){d=p._sc.scrollLeft+4;if(d+p._sc.offsetWidth>=p._mw){p._sc.scrollLeft=p._mw-p._sc.offsetWidth;stcIt(p.sc[1],01111111111);}else{p._sc.scrollLeft=d;stcIt(p.sc[0],1);p.scid=setTimeout("stscr("+n+",st_ms["+p.mid+"].ps["+p.id+"])",p.scsp);}}else{d=p._sc.scrollLeft-4;if(d<=0){p._sc.scrollLeft=0;stcIt(p.sc[0],01111111110);}else{p._sc.scrollLeft=d;stcIt(p.sc[1],0);p.scid=setTimeout("stscr("+n+",st_ms["+p.mid+"].ps["+p.id+"])",p.scsp);}}}} diff --git a/harbour/website/menu/stslip.js b/harbour/website/menu/stslip.js new file mode 100644 index 0000000000..00b3b43141 --- /dev/null +++ b/harbour/website/menu/stslip.js @@ -0,0 +1,5 @@ +/*=======Ver: 7.0.60906========*/ +/*DHTMLMenu, (c) 2006, SourceTec Software Co.,LTD - www.sothink.com*/ +function stslsh(p,k){ if(p.isSt||!p.efft) return 1;if(!k) { p.isSh=1; stgPxy(p,1);k=0;}var l=p._shell;if(p.efft==2){if(p.exed==0){l.style.left=p._rc[0]+"px";l.style.top=p._rc[1]+"px";l.style.clip='rect(0px '+p._rc[2]+'px '+p._rc[3]+'px 0px)';l.style.visibility="hidden";p.exed=1;} return 1;} if(st_ms[p.mid].ckhd) return 1;if(typeof(p.ftid)=="undefined") p.ftid=0;var m=st_ms[p.mid];var xd=p.dir&3,yd=(p.dir&12)/4;var d=Math.floor(.2*p.efsp);with(p){if(!isSh) return 0;if(yd==3||!yd){if(!k){l.style.visibility='visible'; l.style.left=_rc[0]+"px";if(p.exed==0)if(yd)k=(_rc[3]-stgclip(l)[0])/d+1;else k=(stgclip(l)[2]-stre)/d+1;}if(_rc[3]-stre>d*k){if(yd){l.style.top=_rc[1]-_rc[3]+stre+d*k+"px";l.style.clip='rect('+(_rc[3]-d*k)+'px '+_rc[2]+'px '+_rc[3]+'px 0px)';}else{l.style.top=_rc[1]+_rc[3]-stre-d*k+"px";l.style.clip='rect(0px '+_rc[2]+'px '+(d*k+stre)+'px 0px)';}p.exed=0;p.ftid=setTimeout('stslsh(st_ms['+mid+'].ps['+id+'],'+(++k)+')',10);return 0;}else{l.style.top=_rc[1]+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px 0px)';p.exed=1;if(!m.hdp) lock=1;if(!stusrE(1,p,m)) return 0;}}else if(xd==3||!xd){ if(!k){l.style.visibility='visible';l.style.top=_rc[1]+"px";if(p.exed==0)if(xd)k=(_rc[2]-stgclip(l)[3])/d+1;else k=(stgclip(l)[1]-stre)/d+1;}if((_rc[2]-stre)>d*k){ if(xd){l.style.left=_rc[0]-_rc[2]+stre+d*k+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px '+(_rc[2]-d*k)+'px)';}else{l.style.left=_rc[0]+_rc[2]-stre-d*k+"px";l.style.clip='rect(0px '+(d*k+stre)+'px '+_rc[3]+'px 0px)';}p.exed=0;p.ftid=setTimeout('stslsh(st_ms['+mid+'].ps['+id+'],'+(++k)+')',10);return 0;}else {l.style.left=_rc[0]+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px 0px)';p.exed=1;if(!m.hdp) lock=1;if(!stusrE(1,p,m)) return 0; }}}return 0;} +function stslhd(p,k){ if(p.isSt||!p.efft) return 1;if(!k) {p.isSh=0; stgPxy(p,1);var k=0;} var l=p._shell; if(p.efft==1){if(p.exed==0){l.style.left=p._rc[0]+"px";l.style.top=p._rc[1]+"px";l.style.clip='rect(0px '+p._rc[2]+'px '+p._rc[3]+'px 0px)';l.style.visibility="visible";p.exed=1;}return 1;}if(st_ms[p.mid].ckhd) return 1;if(typeof(p.ftid)=="undefined") p.ftid=0; var m=st_ms[p.mid];var xd=p.dir&3,yd=(p.dir&12)/4; var d=Math.floor(.2*p.efsp);with(p){if(p.isSh) return 0;if(yd==3||!yd){if(!k){ if(parI) stcIt(parI,parI.oust);l.style.left=_rc[0]+"px";if(p.exed==0)if(yd)k=(stgclip(l)[0]-stre)/d+1;else k=(_rc[3]-stgclip(l)[2])/d+1;}if(_rc[3]-stre>d*k){ if(yd){l.style.top=_rc[1]-d*k+"px";l.style.clip='rect('+(d*k+stre)+'px '+_rc[2]+'px '+_rc[3]+'px 0px)';}else{l.style.top=_rc[1]+d*k+"px";l.style.clip='rect(0px '+_rc[2]+'px '+(_rc[3]-d*k)+'px 0px)';}p.exed=0;p.ftid=setTimeout('stslhd(st_ms['+mid+'].ps['+id+'],'+(++k)+')',10);return 0;}else{ l.style.visibility='hidden';l.style.top=_rc[1]+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px 0px)';p.exed=1;if(!stusrE(3,p,m)) return 0;}}else if(xd==3||!xd){if(!k){if(parI) stcIt(parI,parI.oust);l.style.top=_rc[1]+"px";if(p.exed==0)if(xd)k=(stgclip(l)[3]-stre)/d+1;else k=(_rc[2]-stgclip(l)[1])/d+1;}if((_rc[2]-d*k-stre)>0){ if(xd){l.style.left=_rc[0]-d*k+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px '+(d*k+stre)+'px)';}else{l.style.left=_rc[0]+d*k+"px";l.style.clip='rect(0px '+(_rc[2]-d*k)+'px '+_rc[3]+'px 0px)';}p.exed=0;p.ftid=setTimeout('stslhd(st_ms['+mid+'].ps['+id+'],'+(++k)+')',10);return 0;}else { l.style.visibility='hidden';l.style.left=_rc[0]+"px";l.style.clip='rect(0px '+_rc[2]+'px '+_rc[3]+'px 0px)'; p.exed=1;if(!stusrE(3,p,m)) return 0;}}}return 0;} +function stgclip(o){var cs=o.style.clip;if(!cs||cs=="auto") {var rc=stgRc(o);o.style.clip='rect(0px '+rc[2]+'px '+rc[3]+'px 0px)';return rc;}var t=cs.split(" "); t[0]=parseInt(t[0].substr(5));for(var j=1;j=0)f=1;if(f)continue;else if(stwover(e,p)){if(st_nav.nam=="opera"&&tg=="applet"){var v;if(v=parseInt(e.getAttribute("visLevel"))){e.setAttribute("visLevel",v+c);v+=c;}else{e.setAttribute("visLevel",c);v=c;}if(v==-1){if(e.getAttribute("visSave"))e.setAttribute("visSave",e.style.visibility);e.style.visibility="hidden";if(typeof(p.mywehd)!='undefined'&&p.mywehd(e))return;}else if(!v){ var bv=e.getAttribute("visSave");e.style.visibility=bv?bv:"";if(typeof(p.mywesh)!='undefined'&&p.mywesh(e))return;}} else {if(e.visLevel)e.visLevel+=c;else e.visLevel=c;if(e.visLevel==-1){if(typeof e.visSave=="undefined")e.visSave=e.style.visibility;e.style.visibility="hidden";if(typeof(p.mywehd)!='undefined'&&p.mywehd(e))return;}else if(!e.visLevel){ e.style.visibility=e.visSave;if(typeof(p.mywesh)!='undefined'&&p.mywesh(e))return;}}}}} +function stwover(e,p){var l=0,t=0,w=e.offsetWidth,h=e.offsetHeight;w?(e._wd=w):(w=e._wd);h?(e._ht=h):(h=e._ht);while(e)l+=e.offsetLeft,t+=e.offsetTop,e=e.offsetParent;return lp._rc[0]&&tp._rc[1];} diff --git a/harbour/website/news.html b/harbour/website/news.html new file mode 100644 index 0000000000..297e969ffd --- /dev/null +++ b/harbour/website/news.html @@ -0,0 +1,1127 @@ + + + + +Harbour Project - News + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Harbour News 
 This page gives you some of the main changes introduced in recent versions of Harbour project. To view the latest ChangeLog click here or download lastest stable release of Harbour here. 
 
 Harbour Mailing Lists address change +
    +
  • June 3, 2010
    +
    +     Thanking Phil Barnett for providing the Harbour community a great mailing list + for so many years, today, due to server problems, I've migrated the mailing + lists to Google Groups in agreement with Phil and Harbour admins.
    +
    +Please make sure to revise your subscription settings, because digest, nomail +options and readable name were lost along the migration.
    • +
 
   
 
 Release of 2.0.0 +
    +
  • December 22, 2009
    +
    +     After 16 months of intensive development the final version 2.0.0 is finally released. There are many highlights and news in this new release, check out some details and download your copy free today.
    +
    +     General
    • +
  • Build configuration changes:
    +    PRG_USR         -> HB_USER_PRGFLAGS
    +    C_USR           -> HB_USER_CFLAGS
    +    L_USR           -> HB_USER_LDFLAGS
    +    A_USR           -> HB_USER_AFLAGS
    +    MK_USR          -> HB_USER_MAKEFLAGS
    +    HB_ARCHITECTURE -> HB_PLATFORM
    +    HB_PLATFORM=w32 -> HB_PLATFORM=win
    +    CCPATH          -> HB_CCPREFIX
    +    CCPREFIX        -> HB_CCPATH
    • +
  • GNU-make system revised to give optimal support -j<n> multi-threaded parallel builds, which can dramatically + increase build speed in multi-core/multi-CPU systems.
    • +
  • Some constants renamed: +
    + +   HB_WINCE          -> HB_OS_WIN_CE
    +   HB_OS_WIN_32_USED -> HB_OS_WIN_USED
    +   HB_OS_WIN_32      -> HB_OS_WIN
    • +
  • Cleaned references of '32' in context of Windows and + Windows API.
    • +
  • New macro names introduced:
    +   SUCCESS -> HB_SUCCESS
    +   FAILURE -> HB_FAILURE
    +   ERRCODE -> HB_ERRCODE
     + (old ones still work for compatibility, but please + switch your code to use the new ones)
    • +
  • Fixed dynamic library creation on Solaris OSes.
    • +
  • hbrun will now open .dbf files when passed on the command line.
    +
    • +
  • Added web-server written in Harbour: uHTTPD
    +
    • +
  • POCC WinCE builds are now supported.
    +
    • +
  • Open Watcom 1.8 (RC3) compiler is now supported.
    +
    • +
  • Removed HB_LEGACY_LEVEL support.
    +
    • +
  • #define HB_FM_WIN32_ALLOC renamed to HB_FM_WIN_ALLOC.
    +
    • +
  • Protected incompatible changes with HB_LEGACY_LEVEL2.
    +       HB_SUCCESS
    +      HB_FAILURE
    +      HB_ERRCODE
    +      HB_WINCE
    +      HB_OS_WIN_32*
    +      __RDDGETTEMPALIAS()
    +      __HRB*()
    +      some class functions, +
    +      Harbour -go option
    +
    + These features are still available, and will be removed + in next major version (Harbour 1.2). To test your code for + compatibility, you can turn it off manually by #defining + HB_LEGACY_OFF. (HB_USER_CFLAGS=-DHB_LEGACY_OFF)
    +
    +
    • +
  • New Harbour Project homepage, thanks for Vailton Renato.
    +
    • +
  • GNU Make system now supports parallel builds. + (needs GNU Make newer than 3.79.1)
    +
    • +
  • GNU Make system allows to install in Harbour source tree on all platforms.
    +
    • +
  • GNU Make system for bcc and msvc options synced with non-GNU build methods.
    +
    • +
  • GNU Make system no longer needs -r parameter.
    +
    • +
  • GNU Make system will now generate hbfm and hbfmmt lib for all compilers. + Added few more similar unification cleanups.
    +
    • +
  • Implemented .dll generation for msvc, msvc64, bcc and watcom when using + GNU Make system.
    +
    • +
  • Added support for Open Watcom 1.8 (it's recommended over 1.7).
    +
    • +
  • Added support for import lib generation when using GNU Make with msvc and vcc. + Enable it with 'set HB_DIR_IMPLIB=yes' plus set HB_DIR_* envvars.
    +
    • +
  • -mtune=pentiumpro optimization is now default for mingw/cygwin.
    +
    • +
  • Cleaned new mingw 4.3.3 warnings.
    +
    • +
  • Certain features will require Windows NT or upper when building Harbour on Windows, so this is now a requirement for a proper build.
    +
    • +
  • hb-mkslib.sh renamed to hb-mkdyn.sh. Old name stil works, but it's + now deprecated.
    +
    • +
  • x64 msvc compiler got a distinct HB_COMPILER value: msvc64.
    +
    • +
  • msvcce compiler made compatible with older MSVC/WinCE versions.
    +
    • +
  • Added support for Intel(R) C++ compiler (icc) on Linux and Windows.
    +
    • +
  • Added new INSTALL document giving a quick describing of the build + process on all supported platforms and compilers.
    +
    • +
  • Several steps to make the build process simpler and requiring the + less amount of preparation.
    +
    • +
  • Fixed missing watcom support for HB_USER_LDFLAGS.
    +
    • +
  • Added support for MSVC IA64 mode. (untested)
    +
    • +
  • Added support for HB_CONTRIBLIBS=no to disable building of all contribs.
    +
    • +
  • Added ability to generate Windows installer and .zip distribution file.
    +
    • +
  • Fully transitioned to GNU Make system for all compilers.
    + Now msvc, msvcce and bcc builds need GNU Make, see INSTALL for more + information. "non-GNU" make systems got deleted from the source tree.
    • +
  • Cygwin renamed from gcc to cygwin. (NOTE: Cygwin doesn't work since + some versions, and support may be removed in the future.)
    +
    • +
  • Fixed #pragma -k? options to be case-insensitive.
    +
    • +
  • Explicitly bind system libraries with harbour shared library. + RPM/DEB packages should automatically detect these dependencies.
    +
    • +
  • Warning cleanup (minors) for Intel compiler.
    +
    • +
  • Pelles C workarounds for compiler bugs.
    +
    • +
  • Added support for extended definition files in Harbour compiler + switches: -u+<file>
    +
    • +
  • Fixed memory leak when repeated -u[<file>] options are used.
    • +
+
+Core +
    +
  • Added MT (Multi thread) support.
    +
    • +
  • Added complete i18n support with API and tool to compile .po + files (hbi18n).
    +
    • +
  • Added hb_fsCreateTempEx(), hb_fileCreateTempEx() C level APIs.
    +
    • +
  • Fixed to not use C RTL CP dependent character functions + in Harbour code. (islower(), toupper(), etc) added new macros instead.
    +
    • +
  • __NATISNEGATIVE() and __NATISAFFIRM() are now using + CP sensitive case conversion.
    +
    • +
  • Added hb_charIsUpper()/hb_charIsLower() APIs.
    +
    • +
  • CURDRIVE() and DISKNAME() fixed for systems that don't support + drive letters.
    +
    • +
  • Xbase++ compatible TBROWSE()/TBCOLUMN()/GET() related methods + moved to derived classes xpp_TBrowse()/xpp_TBColumn()/xpp_Get().
    +
    • +
  • Fixed potential GPF in HB_RASCAN().
    +
    • +
  • Debugger improvements and fixes.
    +
    • +
  • Most Harbour level code prepared for MT.
    +
    • +
  • Fixed few potential GPFs in RDDNTX, RDDCDX code.
    +
    • +
  • Added own hb_snprintf() implementation.
    +
    • +
  • Fixed HB_VERSION( HB_VERSION_BUILD_DATE )
    +
    • +
  • Added hbuddall library holding all core supplied user RDDs.
    +
    • +
  • Fixed to successfully build all user RDD examples.
    +
    • +
  • Fixed dbCreate() behaviour in arrayrdd user RDD.
    +
    • +
  • Added new LOGRDD user RDD.
    +
    • +
  • Added DBFNSX RDD.
    +
    • +
  • Fixed FWRITE() potential GPF and security hole.
    +
    • +
  • Added __FILE__ support for .prg code.
    +
    • +
  • Added:
    +      HB_MILLISECONDS()
    +      HB_FTEMPCREATEEX( @<cName>, <cDir>, <cPrefix>, <cExt> ) -> <nHandle>
    +      HB_STRDECODESCAPE( <cEscSeqStr> ) -> <cStr>
    +      HB_STRCDECODE( <cStr> [, @<lCont> ] ) -> <cResult> | NIL
    +      HB_STRXOR( <cStr1>, <cStr2> | <nNum> ) -> <cResult>
    +      HB_PROGNAME() -> <cProgramNameWithPath>
    +      HB_DISPOUTATBOX() similar to HB_DISPOUTAT() but for drawing chars.
    +      HB_FGETATTR( <cFileName>, @<nAttr> ) -> <lSuccess>
    +      HB_FSETATTR( <cFileName>, <nAttr> ) -> <lSuccess>
    +      HB_FSETDATETIME( <cFileName>, [<dDate>], [<cTime HH:MM:SS>], [<nMilliSec>] ) -> <lSuccess>
    +      HB_FGETDATETIME()
    +      HB_WILDMATCHI() like HB_WILDMATCH() but case-insentitive.
    +      HB_CDPSELECT() same as HB_SETCODEPAGE() (please upgrade to new function name).
    +      HB_CDPUNIID( <cHarbourCP> ) -> <cCPName>
    +      HB_GTINFO( HB_GTI_CARGO[, <xValue ] ) -> <xPrevValue>
    +      HB_DIRBASE() -> <cBaseDirectory>
    +      HB_DBCREATETEMP()/DBCREATETEMP() to create temporary tables.
    +      HB_MMIDDLEDOWN/MMIDDLEDOWN() new Harbour function.
    +      DBINFO( DBI_ISTEMPORARY )
    +      HB_VERSION( HB_VERSION_BUILD_PLAT )
    +      HB_VERSION( HB_VERSION_BUILD_COMP )
    +      HB_STRFORMAT() C-like string formatting function + (also as C level API named hb_StrFormat())
    +      HB_SETENV( <cEnvName>, [<cNewVal>] [, <lOsCP>] ) -> <lOK> (also as C level API named hb_setenv())
    +
    +
    • +
  • Fixed UNSELECTED color updating in SetColor().
    +
    • +
  • GTWVT, GTWIN HB_GTI_CODEPAGE support.
    +
    • +
  • GTWVT now supports drawing chars even if the selected codepage + doesn't support them.
    +
    • +
  • GTWVT HB_GTI_BOXCP support.
    +
    • +
  • GTWVT disabled K_MM*DOWN non-Clipper (and other GT) compatible mouse + events.
    +
    • +
  • Fixed TBROWSE(), TPOPUP() to display drawing chars properly.
    +
    • +
  • Fixed DISKSPACE() and HB_DISKSPACE() to return proper values + on Darwin.
    +
    • +
  • Fixed DIRECTORY() when called with "V" (label) parameter (on Windows).
    +
    • +
  • New HB_SIZEOFARRAY() macro.
    +
    • +
  • Added C APIs:
    +      hb_charIsDigit(), hb_charIsAlpha(), hb_charIsLower(), hb_charIsUpper()
    +
    • +
  • Added support to specify OS codepage:
    +      +  Set( _SET_OSCODEPAGE[, <cCPID> ] ) -> <cOldCPID>
    +      C level: hb_setGetOSCODEPAGE()
    +      Conversion is done automatically in existing functions.
    +
    • +
  • Added hb_osDecode(), hb_osEncode() C APIs.
    +
    • +
  • HB_GETENV() extended with 3rd parameter to control OS codepage + conversion (on by default).
    +
    • +
  • Added CPU dump support for AMD64/x64.
    +
    • +
  • Added module listing on GPF for x86 and x64.
    +
    • +
  • GTXWC potential GPF fixed.
    +
    • +
  • Added process handling:
    +      HB_PROCESSOPEN()
    +      +HB_PROCESSVALUE()
    +     HB_PROCESSCLOSE()
    +
    • +
  • Added HB_GTI_BOXCP to control box drawing CP for GTs.
    +
    • +
  • Using Heap instead of Local memory when HB_FM_WIN32_ALLOC is set.
    +
    • +
  • Added __objHasMsgAssigned( object, "msgName" )
    +
    • +
  • File find API fixes for OS/2.
    +
    • +
  • DBOI_BAGNAME made compatible for RDDCDX, RDDNSX.
    +
    • +
  • Added Intel C compiler and Wine detection.
    +
    • +
  • Codepage fixes and cleanups (BGMIK).
    +
    • +
  • Fixed cursor handling in TEDITOR/MemoEdit().
    +
    • +
  • Now GTXWC generates HB_K_RESIZE on resize.
    +
    • +
  • GTWIN fixed HB_GTI_KBDSHIFTS handling.
    +
    • +
  • GTWVT added 'layered window' support (always enabled, except when in Terminal mode).
    +
    • +
  • GTWVT fixed not to generate RTE if class is already been registered.
    +
    • +
  • GTXWC added support for HB_GTI_PALETTE, HB_GTI_FONTSEL,HB_GTI_CLOSABLE, HB_GTI_RESIZABLE.
    +
    • +
  • GTTRM added support for HB_GTI_PALETTE.
    +
    • +
  • New compiler expression optimizations, and some fixes for rare cases.
    +
    • +
  • Some compiler optimizations are now enabled using new -ko switch.
    +
    • +
  • Added array preallocation on AADD().
    +
    • +
  • Optimization to string reallocation.
    +
    • +
  • Added detection of unused variable assigments. Code cleaned + in all Harbour for such warnings.
    +
    • +
  • Fixed possible problem with _SET_PRINTFILE, _SET_DEFAULT, _SET_EXTRAFILE.
    +
    • +
  • __HRB*() functions marked as compatibility, please update your + code to use HB_HRB*().
    +
    • +
  • __RDDGETTEMPALIAS() marked as compatibility, please update your code to use HB_RDDGETTEMPALIAS().
    +
    • +
  • Added hb_spFileExists() a more efficient version of hb_spFile().
    +
    • +
  • Modified Harbour code to use the new API.
    +
    • +
  • HSX index MT support.
    +
    • +
  • Fixed potentially uninitialized internal HB_GT_INFO structure.
    +
    • +
  • Using more efficient hb_fsFileExists() instead of hb_fsFile() in core.
    +
    • +
  • Added char * hb_cmdargARGVN( int argc ).
    +
    • +
  • HB_PROCNAME() support for symbol evaluation.
    +
    • +
  • HB_SYMBOL_UNUSED() moved to std.ch. NOTE: This macro is no longer + present in common.ch so if you're overriding std.ch, make sure to add + this macro to your header file.
    +
    • +
  • BIN2W(), BIN2I(), BIN2L(), I2BIN(), L2BIN(), BIN2U(), W2BIN(), U2BIN() functions rewritten in a more efficient way. Previous pure GPL + license changed to standard Harbour license (including exception).
    +
    • +
  • Fixed Ukrainian localization files.
    +
    • +
  • Using local implementation of hb_snprintf() for all C level code.
    +
    • +
  • Fixed localized date format for RU, UA, IT, BE, BG, NL, SL.
    +
    • +
  • Added __FILE__ and __LINE__ predefined dynamic PP macros.
    +
    • +
  • Added Windows 7 and Server 2008 R2 version detection.
    +
    • +
  • Replaced old hbmk.bat, hbmk bash script and Harbour Make tool with + portable make tool written in Harbour: hbmk. This tool can create
    + a Harbour executable on any platforms using minimal effort. It autodetects + OS and compiler environment. Support script and parameter files, + can act as a linker, C compiler, Harbour compiler, static and dynamic + library creator, resource compiler (on Windows). + Core features are + completed on all major platforms. Some non-mainstream features and + platforms may be completed later. All existing features of hbmk + bash script (for gcc) and of hbmk.bat are supported in this new tool, + and much more. Replaced Win/DOS specific .bat files with portable + .hbp and .hbm files.
    +
    • +
  • Added all missing non-multibyte codepages.
    +
    • +
  • LISTBOX() doesn't modify _SET_EXACT settings anymore in :Find*() methods.
    +
    • +
  • HVM pcode evaluation speed improvement.
    +
    • +
  • Fixed _SET_EXACT handling in core.
    +
    • +
  • hb_gtInfo( HB_GTI_PALLETE ) now uses zero based color indexes in Core (GTWVT, GTXWC). This creates a small incompatibility with older + version. Also notice that GTWVG still uses 1-based indexes for + compatibility.
    +
    • +
  • Fixed very old bug showing wrong default status for -n option on + Harbour help screen.
    +
    • +
  • Added support for reading FoxPro .mem files - Clipper compatibility.
    +
    • +
  • Fixed very old bug which disabled writing to .mem files stringslonger then 32Kb.
    +
    • +
  • hbrun now accepts .dbf file as paramater, which it will open after startup.
    +
    • +
  • hbrun now accepts -v option which makes it display its own version after startup.
    +
    • +
  • Borland C++ compiler is now called 'bcc' instead of 'bcc32'. Please update your system.
    +
    • +
  • Removed almost all DOS/WIN specific build/make batch files.
    +
    • +
  • Fixed __M[V]CLEAR()/ __M[V]RESTORE() to be exactly Clipper compatible + and do not release PUBLIC GetList value.
    +
    • +
  • bcc compiler in GNU Make now supports older Windows NT with limited + command line length.
    +
    • +
  • Removed support for following compilers: + dos/bcc16, dos/rsx32, win/dmc, win/rsxnt, os2/icc, win/icc (IBM).
    +
    • +
  • Fixed static variables indexes in the generated PCODE when static variables are declared inside extended codeblocks - in some cases
    + wrong PCODE was generated.
    +
    • +
  • Fixed initialization PCODE for thread static variables declared inside extended codeblocks.
    +
    • +
  • Fixed modulename generated for debugger to always contain function name part for extended codeblock declared as file wide static variables. In such case "(_INITSTATICS)" is used as function name. Without it debugger does not register entering such codeblocks and
    + GPFs.
    +
    • +
  • Added support for automatic adding 1-st function with the same name + as compiled .prg file if some code statements are used before 1-st + function/procedure declared explicitly in .prg file. Such mode can + be enabled by -n2 new harbour compiler switch. This switch is used
    + by default by new hbmk tool.
    +
    • +
  • speedtst updated to work with CA-Cl*pper.
    +
    • +
  • Added protection against pushing new private variable on HVM stack + if such private variable is already created by the same function.
    + Clipper also has such protection.
    +
    • +
  • Respect HB_START_PROCEDURE in all builds if such public + function/procedure exists.
    +
    • +
  • Disabled HB_MSC_STARTUP in C++ MSVC builds.
    +
    • +
  • Forbid some usage of __clsModMsg() and unblock some othersIt should make some xHarbour users using OVERRIDE METHOD happy
    + but please remember it's still undocumented and unsupportedfunctionality - use for your own risk.
    +
    • +
  • Fixed typo in HB_INETDATAREADY() - the second parameter (timeout) was ignored.
    +
    • +
  • Changed the NOT operator precedence - it should be bigger then logical .and./.or. operators in #if expressions.
    +
    • +
  • Fixed HB_REGEXMATCH(). Now the HAS/LIKE mode can be controlled by 5th logical parameter (was 3rd), so 3rd parameter is solely
    + controlling case-sensitivity as indicated in the documentation. Users are recommended to use HB_REGEXHAS() and HB_REGEXLIKE()
    + functions as unambiguous alternatives, which work equally + well on all Harbour versions. HB_REGEXMATCH() is now deprecated, + but kept for compatibility.
    +
    • +
  • ACHOICE() fixed to redisplay itself when exiting with <Esc> or + equivalent.
    • +
+
+Contrib +
    +
  • hbblat new Blat interface class for Windows + (Contributed by Francesco Saverio Giudice).
    +
    • +
  • hbmzip fixed GPF in HB_ZIPDELETEFILE() when file has comment.
    +
    • +
  • hbmzip fixed handling attributes in HB_ZIPFILECREATE().
    +
    • +
  • hbmzip fixed timestamps stored in .zip files.
    +
    • +
  • hbmzip added HB_ZIPSTOREFILEHANDLE(), + HB_UNZIPEXTRACTCURRENTFILETOHANDLE() functions.
    +
    • +
  • hbwin WIN_REGREAD()/GETREGISTRY() got new parameter to supply + a default value when the entry isn't found.
    +
    • +
  • hbtip FTP handling fixed some accidental typos.
    +
    • +
  • hbtip new MIME types.
    +
    • +
  • hbtip fixes and optimization to HB_BASE64().
    +
    • +
  • rddads now autodetects version 9.10.
    +
    • +
  • hbct XTOC(), FTOC() and CTOF() fixed to be properly multiplatform.
    +
    • +
  • hbct unbuffered drawing speed improvement in windowing code.
    +
    • +
  • hbct DIRNAME() fixed.
    +
    • +
  • hbct other fixes.
    +
    • +
  • hbct FILESEEK(), FILEATTR(), FILESIZE(), FILEDATE() now MT compatible.
    +
    • +
  • hbct added support for thread local current window pointer in CT Windows.
    +
    • +
  • hbwin made steps towards creating a unified Windows API wrapper layer.
    +
    • +
  • Added hbcrypt, hbssl and rddsql (with mysql, pgsql, fbsql plugins) + to contribs.
    +
    • +
  • hbct windowing extended with new low level API, better shadow + handling.
    +
    • +
  • gtwvg lots of improvements.
    +
    • +
  • gtwvg Xbase++ compatible UI objects.
    +
    • +
  • hbw32 library renamed to hbwin.
    +
    • +
  • hbwin added WIN_ABORTDOC(), WIN_RUNDETACHED(), WIN_SHELLEXECUTE(), + WIN_LOADRESOURCE().
    +
    • +
  • dbu patch now adds SET DATE ANSI and SET CENTURY ON.
    +
    • +
  • hbwin WIN_MULDIV(), WIN_RECTANGLE(), WIN_SETBKMODE() extended to + accept handles passed using alternate methods.
    +
    • +
  • hbwin function names changed as below:
    +      + W32_REGPATHSPLIT() -> WIN_REGPATHSPLIT()
    +      W32_REGREAD() -> WIN_REGREAD()
    +     W32_REGWRITE() -> WIN_REGWRITE()
    +      WIN32_REGCREATEKEYEX() -> WIN_REGCREATEKEYEX()
    +      WIN32_REGOPENKEYEX() -> WIN_REGOPENKEYEX()
    +      WIN32_REGQUERYVALUEEX() -> WIN_REGQUERYVALUEEX()
    +      WIN32_REGSETVALUEEX() -> WIN_REGSETVALUEEX()
    +      WIN32_REGCLOSEKEY() -> WIN_REGCLOSEKEY()
    +      WIN32_ARC() -> WIN_ARC()
    +      WIN32_BITMAPSOK() -> WIN_BITMAPSOK()
    +      WIN32_CREATEDC() -> WIN_CREATEDC()
    +      WIN32_CREATEFONT() -> WIN_CREATEFONT()
    +      WIN32_DELETEDC() -> WIN_DELETEDC()
    +      WIN32_DRAWBITMAP() -> WIN_DRAWBITMAP()
    +      WIN32_ELLIPSE() -> WIN_ELLIPSE()
    +      WIN32_ENDDOC() -> WIN_ENDDOC()
    +      WIN32_ENDPAGE() -> WIN_ENDPAGE()
    +      WIN32_ENUMFONTS() -> WIN_ENUMFONTS()
    +      WIN32_FILLRECT() -> WIN_FILLRECT()
    +      WIN32_GETCHARSIZE() -> WIN_GETCHARSIZE()
    +      WIN32_GETDEVICECAPS() -> WIN_GETDEVICECAPS()
    +      WIN32_GETEXEFILENAME() -> WIN_GETEXEFILENAME()
    +      WIN32_GETPRINTERFONTNAME() -> WIN_GETPRINTERFONTNAME()
    +      WIN32_GETTEXTSIZE() -> WIN_GETTEXTSIZE()
    +      WIN32_LINETO() -> WIN_LINETO()
    +      WIN32_LOADBITMAPFILE() -> WIN_LOADBITMAPFILE()
    +      WIN32_MULDIV() -> WIN_MULDIV()
    +      WIN32_OS_ISWIN9X() -> WIN_OS_ISWIN9X()
    +      WIN32_RECTANGLE() -> WIN_RECTANGLE()
    +      WIN32_SETBKMODE() -> WIN_SETBKMODE()
    +      WIN32_SETCOLOR() -> WIN_SETCOLOR()
    +      WIN32_SETDOCUMENTPROPERTIES() -> WIN_SETDOCUMENTPROPERTIES()
    +      WIN32_SETMAPMODE() -> WIN_SETMAPMODE()
    +      WIN32_SETPEN() -> WIN_SETPEN()
    +      WIN32_STARTDOC() -> WIN_STARTDOC()
    +      WIN32_STARTPAGE() -> WIN_STARTPAGE()
    +      WIN32_TEXTOUT() -> WIN_TEXTOUT()
    +      WIN32PRN class -> WIN_PRN class
    +      WIN32BMP class -> WIN_BMP class  
    • +
  • hbct GPF and wrong RTE messages fixed in: + CHARADD(), CHARSUB(), CHARAND(), CHAROR(), CHARXOR()
    +
    • +
  • hbct string optimizations in thrown RTEs.
    +
    • +
  • hbziparc fixed <acFiles> behavior if the parameter is not passed.
    +
    • +
  • hbhpdf added HPDF_VERSION_TEXT() to replace former macro + with the same name.
    +
    • +
  • hbhpdf fixed HPDF_SETINFODATEATTR() function.
    +
    • +
  • Added experimental terminal server written in Harbour. Find it + in /examples.
    +
    • +
  • hbgt now properly checks for package version and includes + feature accordingly.
    +
    • +
  • hbwin added WAPI_GETCOMMANDLINE(), WIN_GETCOMMANDLINEPARAM(), + WAPI_GETLASTERROR(), WAPI_SETLASTERROR(), WAPI_SETERRORMODE().
    +
    • +
  • hbwhat removed from contrib list and moved to examples instead.
    +
    • +
  • xhb OVERRIDE / EXTEND CLASS emulation in xhbcls.ch header. (this feature is there to help xhb compatibility, but can break
    + inheritance scheme and internal class definitions in both + compilers)
    +
    • +
  • xhb added DBF2TXT() with critical fixes.
    +
    • +
  • xhb added HB_REGEXREPLACE().
    +
    • +
  • hbwin WINPORTWRITE() GPF when wrong parameter type is passed.
    +
    • +
  • Added Darwin/MacPorts support for following contribs: + gtalleg, hbmysql, hbpgsql, sddmy, sddpg, hbfimage.
    • +
  • hbtpathy now builds on Darwin.
    • +
  • xhb disabled dangerous bitop compatibility macros in hbcompat.ch. + Enable them with #define XHB_BITOP. Or even better to change code + to use HB_BIT*() functions natively.
    • +
+
+Known build issues +
    +
  • Windows 64-bit builds may generate a large amount of type + conversion warnings. This is currently normal and will be + addressed in a future version.
    • +
  • Contrib hbfimage won't currently compile on Linux/Darwin + systems. This will be addressed in a future version.
    +
    • +
  • Contrib hbsqlit3 will not embed foreign sqlite3 library code + for Pelles C 4.5 and Open Watcom 1.7 due to fatal compile problems. + For these compilers you will have to supply sqlite3 library + yourself. For other compilers, some warnings are expected and + normal in this non-Harbour code.
    +
    • +
  • Using Pelles C 5.00.1 in 64-bit mode, HB_INET*() functions + won't work.
    +
    • +
  • Using Pelles C 6.00.6 in 64-bit mode, there will be + missing symbols at link time due to bugs in Pelles C.
    +
    • +
  • gtalleg contrib may not compile on all platforms/compilers.
    +
    • +
  • hbssl won't work with watcom on win platform due to OpenSSL + header compatibility problems.
    • +
+
To download the Harbour v2.0.0 today, please visit our downloads page.		 
 
 
 
  + + + + +
SourceForge Community Choice Awards!
    +
  • May 17, 2009
    +
    + General
    +
    • +
  • The SourceForge.net, one of the largest repositories of open source applications in the world, organizes every year a vote for the community choose the best projects. It is the SourceForge.net Community Choice Awards. Indication of projects begins on May 6 and will end on 29th. The finalists will be known in June and the list of winners must leave at the end of July at OSCON event.
    +
    + Get involved! Nominate us for the 2009 Community Choice Awards here.
    • +
 
 
 
 
 New website released! +
    +
  • February 15, 2009
    +
    + General
    +
    • +
  • Released the new layout for our site.
    + This includes details about the project, several examples and will soon include some tutorials.
    • +
 
 
 
 
 Released 1.0.1 +
    +
  • September 17, 2008
    +
    + General
    +
    • +
  • Build configuration changes:
    + - PRG_USR -> HB_USER_PRGFLAGS
    + - C_USR -> HB_USER_CFLAGS
    + - L_USR -> HB_USER_LDFLAGS
    + - A_USR -> HB_USER_AFLAGS
    + - MK_USR -> HB_USER_MAKEFLAGS
    + - HB_ARCHITECTURE=w32 -> HB_ARCHITECTURE=win
    +
    • +
  • GNU-make system revised to give optimal support -j<n> + multi-threaded parallel builds, which can dramatically + increase build speed in multi-core/multi-CPU systems.
    +
    • +
  • HB_WINCE -> HB_OS_WIN_CE
    +
    • +
  • HB_OS_WIN_32_USED -> HB_OS_WIN_USED
    +
    • +
  • HB_OS_WIN_32 -> HB_OS_WIN
    +
    • +
  • Cleaned references of '32' in context of Windows and + Windows API.
    +
    • +
  • New macro names introduced:
    + - SUCCESS -> HB_SUCCESS
    + - FAILURE -> HB_FAILURE
    + - ERRCODE -> HB_ERRCODE
    + (old ones still work for compatibility, but please
    + switch your code to use the new ones)
    +
    • +
  • Fixed dynamic library creation on Solaris OSes.
    +
    • +
  • hbrun will now open .dbf files when passed on the command line.
    +
    • +
  • Added web-server written in Harbour: uHTTPD
    +
    • +
  • POCC WinCE builds are now supported.
    +
    • +
  • Open Watcom 1.8 (RC3) compiler is now supported.
    +
    • +
  • Removed HB_LEGACY_LEVEL support.
    +
    • +
  • #define HB_FM_WIN32_ALLOC renamed to HB_FM_WIN_ALLOC.
    +
    • +
  • Protected incompatible changes with HB_LEGACY_LEVEL2.
    + (HB_SUCCESS, HB_FAILURE, HB_ERRCODE, HB_WINCE, HB_OS_WIN_32*, + __RDDGETTEMPALIAS(), __HRB*())
    + These features are still available, and will be removed + in next major version (Harbour 1.2). To test your code for + compatibility, you can turn it off manually by #defining + HB_LEGACY_OFF. (HB_USER_CFLAGS=-DHB_LEGACY_OFF)
    +
    • +
+
+ Core +
    +
  • Added MT (Multi thread) support.
    +
    • +
  • Added complete i18n support with API and tool to compile .po + files (hbi18n).
    +
    • +
  • Added hb_fsCreateTempEx(), hb_fileCreateTempEx() C level APIs.
    +
    • +
  • Fixed to not use C RTL CP dependent character functions in Harbour code. (islower(), toupper(), etc). Added new macros instead.
    +
    • +
  • __NATISNEGATIVE() and __NATISAFFIRM() are now using + CP sensitive case conversion.
    +
    • +
  • Added hb_charIsUpper()/hb_charIsLower() APIs.
    +
    • +
  • CURDRIVE() and DISKNAME() fixed for systems that don't support + drive letters.
    +
    • +
  • Xbase++ compatible TBROWSE()/TBCOLUMN()/GET() related methods
    + moved to derived classes xpp_TBrowse()/xpp_TBColumn()/xpp_Get().
    +
    • +
  • Fixed potential GPF in HB_RASCAN().
    +
    • +
  • Debugger improvements and fixes.
    +
    • +
  • Most Harbour level code prepared for MT.
    +
    • +
  • Fixed few potential GPFs in RDDNTX, RDDCDX code.
    +
    • +
  • Added own hb_snprintf() implementation.
    +
    • +
  • Fixed HB_VERSION( HB_VERSION_BUILD_DATE )
    +
    • +
  • - dded hbuddall library holding all core supplied user RDDs.
    +
    • +
  • Fixed to successfully build all user RDD examples.
    +
    • +
  • Fixed dbCreate() behaviour in arrayrdd user RDD.
    +
    • +
  • Added new LOGRDD user RDD.
    +
    • +
  • Added DBFNSX RDD.
    +
    • +
  • Fixed FWRITE() potential GPF and security hole.
    +
    • +
  • Added __FILE__ support for .prg code.
    +
    • +
  • Added:
    + - HB_MILLISECONDS()
    + - HB_FTEMPCREATEEX( @<cName>, <cDir>, <cPrefix>, <cExt> ) -> <nHandle>
    + - HB_STRDECODESCAPE( <cEscSeqStr> ) -> <cStr>
    + - HB_STRCDECODE( <cStr> [, @<lCont> ] ) -> <cResult> | NIL
    + - HB_STRXOR( <cStr1>, <cStr2> | <nNum> ) -> <cResult>
    + - HB_PROGNAME() -> <cProgramNameWithPath>
    + - HB_DISPOUTATBOX() similar to HB_DISPOUTAT() but for drawing chars.
    + - HB_FGETATTR( <cFileName>, @<nAttr> ) -> <lSuccess>
    + - HB_FSETATTR( <cFileName>, <nAttr> ) -> <lSuccess>
    + - HB_FSETDATETIME( <cFileName>, [<dDate>], [<cTime HH:MM:SS>] ) -> <lSuccess>
    + - HB_WILDMATCHI() like HB_WILDMATCH() but case-insentitive.
    + - HB_CDPSELECT() same as HB_SETCODEPAGE() (please upgrade to new function name).
    + - HB_CDPUNIID( <cHarbourCP> ) -> <cCPName>
    + - HB_GTINFO( HB_GTI_CARGO[, <xValue ] ) -> <xPrevValue>
    +
    • +
  • Fixed UNSELECTED color updating in SetColor().
    +
    • +
  • GTWVT, GTWIN HB_GTI_CODEPAGE support.
    +
    • +
  • GTWVT now supports drawing chars even if the selected codepage doesn't support them.
    +
    • +
  • GTWVT HB_GTI_BOXCP support.
    +
    • +
  • Fixed TBROWSE() to display drawing chars properly.
    +
    • +
  • Fixed DISKSPACE() and HB_DISKSPACE() to return proper values + on Darwin.
    +
    • +
  • Fixed DIRECTORY() when called with "V" (label) parameter (on Windows).
    +
    • +
  • New HB_SIZEOFARRAY() macro.
    +
    • +
  • Added C APIs: + hb_charIsDigit(), hb_charIsAlpha(), hb_charIsLower(), hb_charIsUpper()
    +
    • +
  • Added support to specify OS codepage:
    + Set( _SET_OSCODEPAGE[, <cCPID> ] ) -> <cOldCPID>
    + C level: hb_setGetOSCODEPAGE()
    + Conversion is done automatically in existing functions.
    +
    • +
  • Added hb_osDecode(), hb_osEncode() C APIs.
    +
    • +
  • HB_GETENV() extended with 3rd parameter to control OS codepage conversion (on by default).
    +
    • +
  • Added CPU dump support for AMD64/x64.
    +
    • +
  • Added module listing on GPF for x86 and x64.
    +
    • +
  • GTXWC potential GPF fixed.
    +
    • +
  • Added process handling: + HB_PROCESSOPEN(), HB_PROCESSVALUE(), HB_PROCESSCLOSE()
    +
    • +
  • Added HB_GTI_BOXCP to control box drawing CP for GTs.
    +
    • +
  • Using Heap instead of Local memory when HB_FM_WIN32_ALLOC is set.
    +
    • +
  • Added __objHasMsgAssigned( object, "msgName" )
    +
    • +
  • File find API fixes for OS/2.
    +
    • +
  • DBOI_BAGNAME made compatible for RDDCDX, RDDNSX.
    +
    • +
  • Added Intel C compiler and Wine detection.
    +
    • +
  • Codepage fixes and cleanups (BGMIK).
    +
    • +
  • Fixed cursor handling in TEDITOR/MemoEdit().
    +
    • +
  • Now GTXWC generates HB_K_RESIZE on resize.
    +
    • +
  • GTWIN fixed HB_GTI_KBDSHIFTS handling.
    +
    • +
  • GTWVT added 'layered window' support (always enabled, except + when in Terminal mode).
    +
    • +
  • New compiler expression optimizations, and some fixes for rare + cases.
    +
    • +
  • Some compiler optimizations are now enabled using new -ko switch.
    +
    • +
  • Added array preallocation on AADD().
    +
    • +
  • Optimization to string reallocation.
    +
    • +
  • Added detection of unused variable assigments. Code cleaned + in all Harbour for such warnings.
    +
    • +
  • Fixed possible problem with _SET_PRINTFILE, _SET_DEFAULT, _SET_EXTRAFILE.
    +
    • +
  • __HRB*() functions marked as compatibility, please update your + code to use HB_HRB*().
    +
    • +
  • __RDDGETTEMPALIAS() marked as compatibility, please update your + code to use HB_RDDGETTEMPALIAS().
    • +
+
+ Contrib +
    +
  • hbmzip fixed GPF in HB_ZIPDELETEFILE() when file has comment.
    +
    • +
  • hbmzip fixed handling attributes in HB_ZIPFILECREATE().
    +
    • +
  • hbmzip fixed timestamps stored in .zip files.
    +
    • +
  • hbmzip added HB_ZIPSTOREFILEHANDLE(),HB_UNZIPEXTRACTCURRENTFILETOHANDLE() functions.
    +
    • +
  • hbwin WIN_REGREAD()/GETREGISTRY() got new parameter to supply + a default value when the entry isn't found.
    +
    • +
  • hbtip FTP handling fixed some accidental typos.
    +
    • +
  • hbtip new MIME types.
    +
    • +
  • hbtip fixes and optimization to HB_BASE64().
    +
    • +
  • rddads now autodetects version 9.10.
    +
    • +
  • hbct XTOC(), FTOC() and CTOF() fixed to be properly multiplatform.
    +
    • +
  • hbct unbuffered drawing speed improvement in windowing code.
    +
    • +
  • hbct DIRNAME() fixed.
    +
    • +
  • hbct other fixes.
    +
    • +
  • Added hbcrypt, hbssl and rddsql (with mysql, pgsql, fbsql plugins) + to contribs.
    +
    • +
  • hbct windowing extended with new low level API, better shadow + handling.
    +
    • +
  • gtwvg improvements. Xbase++ compatible UI objects.
    +
    • +
  • hbw32 library renamed to hbwin.
    +
    • +
  • hbwin added WIN_ABORTDOC(), WIN_RUNDETACHED(), WIN_SHELLEXECUTE(), + WIN_LOADRESOURCE().
    +
    • +
  • dbu patch now adds SET DATE ANSI and SET CENTURY ON.
    +
    • +
  • hbwin WIN_MULDIV(), WIN_RECTANGLE(), WIN_SETBKMODE() extended to + accept handles passed using alternate methods.
    +
    • +
  • hbwin function names changed as below:
    + - W32_REGPATHSPLIT() -> WIN_REGPATHSPLIT()
    + - W32_REGREAD() -> WIN_REGREAD()
    + - W32_REGWRITE() -> WIN_REGWRITE()
    + - WIN32_REGCREATEKEYEX() -> WIN_REGCREATEKEYEX()
    + - WIN32_REGOPENKEYEX() -> WIN_REGOPENKEYEX()
    + - WIN32_REGQUERYVALUEEX() -> WIN_REGQUERYVALUEEX()
    + - WIN32_REGSETVALUEEX() -> WIN_REGSETVALUEEX()
    + - WIN32_REGCLOSEKEY() -> WIN_REGCLOSEKEY()
    + - WIN32_ARC() -> WIN_ARC()
    + - WIN32_BITMAPSOK() -> WIN_BITMAPSOK()
    + - WIN32_CREATEDC() -> WIN_CREATEDC()
    + - WIN32_CREATEFONT() -> WIN_CREATEFONT()
    + - WIN32_DELETEDC() -> WIN_DELETEDC()
    + - WIN32_DRAWBITMAP() -> WIN_DRAWBITMAP()
    + - WIN32_ELLIPSE() -> WIN_ELLIPSE()
    + - WIN32_ENDDOC() -> WIN_ENDDOC()
    + - WIN32_ENDPAGE() -> WIN_ENDPAGE()
    + - WIN32_ENUMFONTS() -> WIN_ENUMFONTS()
    + - WIN32_FILLRECT() -> WIN_FILLRECT()
    + - WIN32_GETCHARSIZE() -> WIN_GETCHARSIZE()
    + - WIN32_GETDEVICECAPS() -> WIN_GETDEVICECAPS()
    + - WIN32_GETEXEFILENAME() -> WIN_GETEXEFILENAME()
    + - WIN32_GETPRINTERFONTNAME() -> WIN_GETPRINTERFONTNAME()
    + - WIN32_GETTEXTSIZE() -> WIN_GETTEXTSIZE()
    + - WIN32_LINETO() -> WIN_LINETO()
    + - WIN32_LOADBITMAPFILE() -> WIN_LOADBITMAPFILE()
    + - WIN32_MULDIV() -> WIN_MULDIV()
    + - WIN32_OS_ISWIN9X() -> WIN_OS_ISWIN9X()
    + - WIN32_RECTANGLE() -> WIN_RECTANGLE()
    + - WIN32_SETBKMODE() -> WIN_SETBKMODE()
    + - WIN32_SETCOLOR() -> WIN_SETCOLOR()
    + - WIN32_SETDOCUMENTPROPERTIES() -> WIN_SETDOCUMENTPROPERTIES()
    + - WIN32_SETMAPMODE() -> WIN_SETMAPMODE()
    + - WIN32_SETPEN() -> WIN_SETPEN()
    + - WIN32_STARTDOC() -> WIN_STARTDOC()
    + - WIN32_STARTPAGE() -> WIN_STARTPAGE()
    + - WIN32_TEXTOUT() -> WIN_TEXTOUT()
    + - WIN32PRN class -> WIN_PRN class
    + - WIN32BMP class -> WIN_BMP class
    +
    • +
  • hbct GPF and wrong RTE message fixed in: + CHARADD(), CHARSUB(), CHARAND(), CHAROR(), CHARXOR()
    +
    • +
  • hbct string optimizations in thrown RTEs.
    +
    • +
  • hbziparc fixed <acFiles> behavior if the parameter is not passed.
    +
    • +
  • hbhpdf added HPDF_VERSION_TEXT() to replace former macro with the same name.
    • +
  • hbhpdf fixed HPDF_SETINFODATEATTR() function.
    +
    • +

+ Known build issues +
    +
  • Windows 64-bit builds may generate a large amount of type + conversion warnings. This is currently normal and will be + addressed in a future version.
    • +
  • Contrib hbsqlit3 will not embed foreign sqlite3 library code + for Pelles C 4.5 and Open Watcom 1.7 due to fatal compile problems. + For these compilers you will have to supply sqlite3 library + yourself. For other compilers, some warnings are expected and + normal in this non-Harbour code.
    • +
  • Using Pelles C 5.00.1 in 64-bit mode, HB_INET*() functions + won't work.
    +
    • +
  • gtalleg, hbwhat contrib may not compile on all platforms/compilers.
    +
    • +
  • hbcurl won't build when using DMC and libcurl 7.19.0. + Earlier versions build okay.
    • +
 
 
 
 
 
 Looking for more news?
+ Click here for news archive...		 
   
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/news1.html b/harbour/website/news1.html new file mode 100644 index 0000000000..02d923cb79 --- /dev/null +++ b/harbour/website/news1.html @@ -0,0 +1,733 @@ + + + + +Harbour Project - News + + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Harbour News 
 This page gives you some of the main changes introduced in recent versions of Harbour project. To view the latest ChangeLog click here or download lastest stable release of Harbour here. 
 
 Release 1.0.0 +
    +
  • August 10, 2008
    +
    + General
    +
    • +
  • Internal errors are now logged to file.
    • +
  • Fixed -gc3 for doubly negated integers.
    • +
  • Changed hb_xrealloc() to be ANSI-C realloc() compatible.
    • +
  • Cleanup of MSVC C mode static initialisation code.
    • +
  • Changed internal representation for file attributes from USHORT to + ULONG.
    • +
  • Fixed memory leak in -gw mode.
    • +
  • Portability fixes (Unicode, 64 bit, Pelles C 32/64 bit, WinCE, eVC4, + XCC, Linux mouse detection, OpenWatcom).
    • +
  • Deployment fixes.
    • +
  • harbour.dll related fixes.
    • +
  • MinGW bash (msys) build related fixes.
    +
    + Core
    +
    • +
  • Fixed __HARBOUR__ macro on .prg level, when compiled with -u switch.
    • +
  • HB_ARRAYID() moved to xhb.lib, synced with xhb and made 64 bit + compatible.
    • +
  • File handle usage cleanup and 64 bit compatibility.
    • +
  • Automatic destructors for .hrb modules.
    • +
  • Added passing non-string parameters to .hrb functions.
    • +
  • Fixed casting for indexes with key length greater then 196 bytes created + on tables with record number smaller then 256 in rddcdx.
    • +
  • New FS API functions: hb_fsSetFileTime(), hb_fsGetFileTime(), + hb_fsSetAttr(), hb_fsGetAttr().
    • +
  • New date API function: hb_timeStampEncode().
    • +
  • Fixed printing under OS/2.
    • +
  • Implemented DBEDIT() DE_APPEND mode plus some other features and + compatibility fixes.
    • +
  • MD5 calculation fixes.
    • +
  • Added C level hb_hashAddNew().
    • +
  • Compile time optimization of EMPTY() function.
    • +
  • Compress trailing spaces during string item serialization.
    • +
  • Replicated CA-Cl*pper compile time optimization bugs.
    • +
  • TCP/IP function (HB_INET*()) fixes.
    • +
  • Added HB_OSFILEMASK(), HB_DIRSCAN(), HB_FILEMATCH() Harbour level + functions.
    • +
  • Fixed RTE in HBReportForm() class.
    • +
  • Added __OBJGETPROPERTIES(), extended __CLSGETPROPERTIES().
    • +
  • Changed (incompatible): __PLATFORM__Windows -> __PLATFORM__WINDOWS + __PLATFORM__Linux -> __PLATFORM__LINUX
    • +
  • hbdot functionality merged into hbrun.
    • +
  • *nix exception handler added.
    • +
  • Source filename visible in stack traces.
    +
    + Contrib
    +
    • +
  • Better cross-build support for contribs with external dependencies.
    • +
  • hbmzip OS/2 support, Unix .zip header fix, using Harbour memory + management functions, global and file comment support, HB_ZIPDELETEFILE() + function.
    • +
  • hbziparch fixes and better portability.
    • +
  • hbcurl fixes, now using Harbour memory allocation functions, now older + libcurl versions are supported as well,
    • +
  • CURL_EASY_GETINFO() fixed for unsupported info types.
    • +
  • 64bit compatibility fixes. hbmysql/SQLLISTF() function now uses pointer + instead of numeric type.
    • +
  • Fixed adordd to be _SET_EXACT independent.
    • +
  • Fixed hbodbc tests to work out of the box.
    • +
  • hbw32, hbodbc 64 bit fixes.
    • +
  • Fixed rddads to behave Clipper-like when trying to write when on EOF + position.
    • +
  • Added OS version detection functions to hbw32.
    • +
  • Fixed HB_INC_* envvar usage in *_all.bat files.
    • +
  • Fixed casting for indexes with key length greater then 196 bytes created + on tables with record number smaller then 256 in hbbmcdx.
    • +
  • hbsqlit3 warning fixes and error fixes for some compilers/modes.
    • +
  • Added DirectoryRecurse() to xhb.lib.
    • +
 
 
 
 
  Release of 1.0.0 RC 2 +
    +
  • July 01, 2008
    +
    + General  
    • +
  • SVN repository cleanup in /tags and /branches
    • +
  • GNU and non-GNU make system configuration moved closer to each other.
    • +
  • Reviewed and fixed platforms issues and compiler warnings  + for the contrib area in most part.
    • +
  • Enhanced contrib 64bit Windows compatibility.
    +
    + Core
    +
    • +
  • _HARBOUR__ macro will now contain value in 0xAABBCC form, where AA, BB + and CC are the major, minor and revision numbers in hex. This is + incompatible, as in previous version .c level __HARBOUR__ did return 0xAABB, + while on .prg level it had no value.
    • +
  • Deprecated hb_itemPutCPtr(). Please use hb_itemPutCLPtr() instead.
    • +
  • Deprecated hb_errFuncName public var. Please use HB_ERR_FUNCNAME + macro instead.
    • +
  • Added hb_itemPutCPtr2().
    • +
  • GTWVT enhancements (mark&copy, resize with mouse, palette handling,
    + some event callbacks, close button control)
    • +
  • Changed SetCancel() interpretation in GTWVT.
    • +
  • hbpp now uses the same engine as the Harbour compiler.
    • +
  • Added Set( _SET_HBOUTLOG[, <cFileName>] ), Set( + _SET_HBOUTLOGINFO[, <cInfo>] )
    • +
  • to customize GPF and memory leak logging.
    • +
  • Added better GPF dumps for Windows.
    • +
  • Fixed clipboard handling on Windows under certain situations.
    • +
  • Optimizations and minor fixes.
    +
    + Contrib
    +
    • +
  • Reviewed and fixed bugs and potential security issues in contribs.
    • +
  • hbziparch updated, bugs fixed and ZipArchive library
    + updated to latest version.
    • +
  • Added DLL call functionality to hbw32 contrib.
    • +
  • Added HB_FREADLINE(), HB_CRYPT(), HB_DECRYPT() to xhb contrib.
    • +
  • Added hbtip contrib tests.
    • +
  • GTWVG contrib enhancements.
    • +
  • Added SQL_SPRINTF() to hbmisc contrib.
    • +
  • Enhanced STRFORMAT() in hbmisc contrib.
    • +
  • Enable hbgf contrib for all (Linux, OS/2, Windows) platforms.
    • +
  • Due to fixing 64bit portability problems, some functions became
    + incompatible, because numeric addresses have been converted to
    + pointer types:
    • +
  • hbwhat32: wndproc/dlgproc parameters in related functions.
    • +
  • hbmysql: SQLCONNECT(), SQLSTORER(), SQLUSERES()
    • +
  • hbmsql: MSQLSTORER(), MSQLLISTFI()
    • +
  • Removed function CEIL() from hbmisc. Please use CEILING() from + hbct
    + instead.
    • +
  • Optimizations and minor fixes.
    • +
 
 
 
 
  Release of 1.0.0 RC 1 +
    +
  • June 04, 2008
    +
    + General
    +
    • +
  • The SourceForge repository was moved from CVS to SVN
    • +
  • added docs/howtosvn.txt
    • +
  • changed pack_src.sh to extract list of files from local SVN copy using
    + SVN commands
    • +
  • improved CYGWIN compatibility
    • +
  • new alternative make system for BCC, MSVC and GCC (maybe others in + the
    + future) which uses common dependences list. The old GNU make system is
    + still functional and working
    • +
  • added support for pure C MSVC builds (not C++)
    • +
  • added rules to generate DEB packages - by Luis Mayoral taken from + Debian
    + distribution updated for current code
    • +
  • added new man pages and updated the old ones taken from Debian
    • +
  • fully removed flex and bison dependences in normal builds. Only + developers
    + who want to change the grammar files needs bison
    • +
  • removed all HB_COMPAT_XHB definitions from source code - now all + covered
    + extensions should be supported by hbcompat.ch and/or xhb library
    • +
  • removed 3-rd party header files from SVN, f.e.: ace.h
    +
    + Portability
    +
    • +
  • eliminated errno access for platforms which do not have it.
    • +
  • added support for PocketPC WINCE with MSVC, POCC, CeGCC and + MinGWCE.
    • +
  • added support for cross WinCE builds
    • +
  • extended hb* scripts for cross builds: hbw* - Win32, hbce* - WinCE
    • +
  • added support for creating RPMs with Harbour cross build for Win32 + and
    + WinCE.
    • +
  • added support for MS-Windows UNICDE builds.
    • +
  • added support for shared libraries (.sl) in HPUX builds
    • +
  • added large file support (64bit) in HPUX builds
    • +
  • disabled in default BSD* builds DOS/Windows DENY_* flags emulation
    + implemented by BSD locks - tests on FreeBSD 6.2 and MacOSX shows
    + that it badly interacts with POSIX locks and it's possible to create
    + deadlock.
    +
    + The Compiler + Syntax
    +
    • +
  • added direct support to compiler for ENDSW[ICTH], ENDDO, + ENDC[ASE], ENDI[F],ENDW[ITH], ENDSEQ[UENCE]
    + Now they are not translated by preprocessor to END what allows better typos
    + detection in .prg code because each statement can use its own unique close
    + directive
    • +
  • forbidden using EXIT and LOOP inside ALWAYS code in BEGIN/END + sequence
    • +
  • forbidden using ALWAYS statement if RECOVER code has EXIT or LOOP
    + statement
    • +
  • removed some restrictions on reserved words like using IF, IIF, + _FIELD
    + as field name
    • +
  • added support for (@var):<msg>
    • +
  • fixed many syntax expressions which where accepted by grammar + definition
    + but not supported by compiler, f.e. @func(p)
    • +
  • added support for HB_ENUM*([@]<varname>) functions - disabled
    + by default can be enabled by HB_USE_ENUM_FUNCTIONS macro
    • +
  • added support for DYNAMIC functions - references resolved at + runtime.
    +
    + Internals  
    • +
  • fixed LOOP used inside SWITCH/CASE.../END[SWITCH] statements
    • +
  • fixed using EXIT/LOOP inside WITH OBJECT / END[WITH] statement
    • +
  • fixed optimization of empty BEGIN/END sequence when recover has
    + EXIT or LOOP statement
    • +
  •  fixed using EXIT/LOOP inside extended codeblocks when loop is
    + external to codeblock definition
    • +
  •  fixed using RETURN inside extended codeblocks when they are + defined
    + inside BEGIN SEQUENCE statement
    • +
  • many other fixes for problems which can appears in nested extended
    + codeblock definitions
    • +
  • fixed problems with line numbering in extended code blocks
    • +
  • fixed compiler -w3 warning when class has different name then + class
    + function.
    • +
  • optimizations in generated PCODE and extended compile time + optimizations
    • +
  • added support for --version compiler switch for platforms which
    + use '-' as option separator
    • +
  • added new compiler switches:
    + -q2 - disable _ALL_ stdout/stderr messages
    + -kM - turn off macrotext substitution
    + -ks - changed to pass base value by reference what allow full []
    + operator overloading
    • +
  • added new compiler switches for automatic filename, pathname and + path
    + separators translations (-fn*, -fd*, -fs*, -fp*) used for file open
    + during compilation
    • +
  • added support for dynamically set during compilation ChangeLog entry,
    + ChangeLog ID, SVN revision and compilation flags.
    + Update Harbour logo message to show the exact revision number and removed + non-working compiler frontends: .NET CLI and JAVA.
    • +
  • added support for i18n into compiler (-j[<filename>] switch)
    + gettext compatible .pot files are generated
    +
    + Preprocessor
    +
    • +
  •  added support for logical constants .T., .F., .Y., .N. in #IF ... / #ELIF ... PP directives
    +
    • +
  • added support for changing all -k? switches by #pragma, f.e.;
    + #pragma -ks+
    + #pragma -kM-
    + #pragma -kx1
    + #pragma -kJ0
    • +
  • added to PP predefined defines: HB_VER_LENTRY, HB_VER_CHLID, + HB_VER_SVNID
    • +
  • with ChangeLog entry, ChangeLog ID and SVN revision
    • +
  •  added to PP support for:
    + #pragma __[c]streaminclude "fileName"|<code with % result marker>
    +
    + The Runtime Modules
    +
    • +
  •  renamed core libraries
    • +
  •  cleaned code and guards all extensions to pure CL5[23] with + HB_EXTENSION
    + macro.
    • +
  •  turned off HB_EXTENSION for the default builds.
    +
    + API
    +
    • +
  • added C functions to access SET values (hb_setGet*()) which should + be used
    + instead of direct accessing HB_SET structure
    • +
  • added hb_fsFileExists() and hb_fsDirExists()
    • +
  • added hb_arraySet*() functions - they should help 3-rd party + developers
    + to eliminate using C stack level HB_ITEM and reduce usage of potentially
    + danger function like hb_arrayGetItemPtr()
    • +
  • added hb_itemParamStore[Forward]() functions
    • +
  • added hb_dateMilliSeconds()
    +
    + VM
    +
    • +
  • FOR EACH detached enumerators now does not change on next iterations
    • +
  • added support for scalar classes with operator overloading
    • +
  • added full support for passing object items by reference even if + they
    + are not real variables but SETGET methods
    • +
  • added support for setting string characters by assigning FOR EACH
    + iterator, f.e.: FOR EACH c IN (@cVar)
    + c := Upper( c )
    + NEXT
    • +
  • added full support for FOR EACH overloading
    • +
  • extended PROCFILE() function - now it can accept <nLevel> | <sFuncSym> + |
    + <cFuncName> as first parameter, f.e.: PROCFILE( @someFunc() ) or
    + PROCFILE( "PUBLICFUNC" ) or PROCFILE( nStackLevel ). For non character
    + parameters it fully works also for static functions even if source code
    + have many static functions with the same name
    • +
  • added support for detecting not cleanly overloaded by linker .prg
    + functions.
    • +
  • cleaned PCODE module unload procedure.
    • +
  • added support for executing all inherited multiple object + destructors.
    +
    + Debbuger
    +
    • +
  • many fixes and extensions in debugger code mostly by Phil Krylov + borrowed
    + from xHarbour
    • +
  • added to debugger support for inspecting objects which use hidden
    + methods and members with the same names in different classes in
    + inheritance tree - now context is dynamically changed
    +
    + RTL
    +
    • +
  • added functions for translation to/from UTF8 mode and operations
    + on UTF8 strings
    • +
  • added functions for bit manipulations: HB_BIT*() and for + conversions
    + to/from hexadecimal format
    • +
  • added set of functions with hb_ prefix supported extended + parameters,
    + f.e.: HB_AINS(), HB_ADEL(), HB_ASCAN(), HB_RASCAN(), HB_GETENV(),
    + HB_AT(), ...
    • +
  •  added HB_FILEEXISTS(), HB_DIREXISTS()
    • +
  •  new TBROWSE class which is now very highly compatible with Clipper
    + It should resolve 99.9&percnt; problems with BROWSE reported in the past.
    • +
  •  TBCOLUMN class is now fully Clipper compatible
    • +
  •  many fixes and cleanups in TGET class
    • +
  •  many fixes to GETSYS functionality, especially 5.3 compatible + features.
    • +
  •  many fixes and cleanups in CL53 classes like TOPBAR, POPUP, + MENUSYS,
    + MENUITEM and related functions.
    • +
  •  Made C5.3 UI classes fully working and compatible.
    • +
  •  ERROR class rewritten in C so now it's possible to create new + error
    + objects also with active exceptions
    • +
  •  added missing support for _SET_FILECASE, _SET_DIRCASE switches in + some
    + functions
    • +
  •  added _SET_TRIMFILENAME - when enabled low level hb_fs*() + functions strip
    + trailing and leading spaces from file names to emulate DOS like behavior
    • +
  •  added support for _SET_DEFEXTENSIONS to native all RDDs
    • +
  •  many fixes in transform() function and fixed 64bit integer + transformation.
    + Now transform() passes our all compatibility tests
    • +
  •  added undocumented Clipper error functions
    • +
  • - added functions to manage .ini files: HB_INI*()
    • +
  •  extended HB_KEYPUT to support strings and arrays.
    • +
  •  converted HIDDEN methods and members in RTL objects to PROTECTED + for
    + easier class extension in user code
    • +
  •  added many undocumented Clipper's C and .prg functions.
    • +
  •  added hbzlib and Harbour level compression functions.
    • +
  •  PCRE library updated to version 7.7.
    +
    + Macro Compiler
    +
    • +
  •  removed some restrictions on reserved words like using IF, IIF, + _FIELD
    + as field name
    +
    + Compiler
    +
    • +
  • added support for full compiler code integration with compiled programs
    + WARNING: Please remember that compiler in Harbour is covered by pure GPL
    + license and final programs should respect it so use compiler library
    + only with programs which respects GPL.
    +
    + GT
    +
    • +
  •  Added new GT driver GTTRM. It's terminal GT which can be used in + different
    + *nixes. Unlike GTCRS or GTSLN it does not use any external libraries
    + like [n]curses or slang or databases with terminal description (termcap/
    + terminfo). It has hard coded support only for few terminals (Linux,ANSI,
    + XTERM) but because uses only very limited set of escape sequences then
    + on most currently used terminals it works better then curses or slang
    + based programs. GTTRM automatically detects ISO/UTF8 terminal mode at
    + startup and chose valid output what should also help *nix users - it
    + resolves problems with some box drawing characters and others which
    + are not accessible in ISO mode. It also respects /etc/harbour/hb-charmap.def
    + like GTCRS.
    +
    + As long as user code does not execute and full screen commands then
    + it works like GTSTD so can be used also for simple stream programs.
    • +
  •  added new GT driver GTWVG. It's works like GTWVT but has + additional
    + support for GUI elements
    • +
  •  changed GTI_* defines to HB_GTI_*
    • +
  •  added optional hb_gtInfo() switch HB_GTI_COMPATBUFFER which can + force
    + using DOS compatible video buffers in all GTs. Anyhow please remember
    + that it may cause that some extended information stored by GT driver
    + in video buffer will be lost.
    • +
  •  added HB_GTI_ADDKEYMAP and HB_GTI_DELKEYMAP to define/remove new
    + escape key sequences in terminal based GTs. It's supported by
    + GTCRS and GTTRM
    • +
  •  fixed color string decoding to be fully Clipper compatible
    • +
  •  OUTSTD()/OUTERR() respects automatic CP translation when they
    + are not redirected to GT screen
    • +
  •  added common for all GTs CLIPBOARD support. If possible low level + GT
    + drivers uses system clipboard otherwise they emulate it for Harbour
    + application only
    +
    + Multilangual
    +
    • +
  •  added new lang and codepage modules: SK, BG, BE, HR, UA, LT, SV, + etc.
    • +
  •  updated codepage code for better handling accented and multibyte + characters.
    +
    + RDD 
    +
    • +
  • added support for memo file packing in PACK operation
    • +
  •  added new DBF fields like: AUTOINC (+), ROWVERSION (^), TIME (T),
    + DAYTIME (@/T), MODTIME (=), binary integers with fixed decimal places, etc.
    • +
  •  removed limit for maximum size of relation string expression
    • +
  •  fixed registering workareas with numbers from 65280 to 65534.
    • +
  •  added SIX3 compatible library - now Harbour supports all SIX3 + functions
    + and extensions like triggers. The HiPer-SEEK and CFTS (HS_*() and CFS*()
    + functions) was added before in hsx library. Now only bitmap filters
    + (m6_*() functions) are not supported in SVN Harbour version.
    +
    + Contrib
    +
    • +
  •  renamed contrib libraries
    • +
  •  TIP library borrowed from xHarbour and adopted to Harbour
    • +
  •  added HBCURL - libcurl interface library. (rooted from the + xHarbour version, but heavily fixed and further developed.)
    • +
  •  added HBSQLIT3 - SQLite 3.x Harbour callable library.
    • +
  •  fixes in MySQL and PGSQL library
    • +
  •  cleanup and many fixes in NF library
    • +
  •  cleanup code of CT3 library with many modifications and fixes
    • +
  • most of in/out CT3 functions rewritten to use GT API so now they can + work
    + on all platforms and with all GTs
    • +
  • added support for contrib libraries and new make system
    • +
  •  many contrib libraries borrowed from xHarbour code
    • +
  •  added xHarbour compatibility library: xhb. It emulates many of + xHarbour
    + behavior which cannot be covered by PP rules like extended operators,
    + strings like arrays, one byte string in math operations, HB_ENUMINDEX(),
    + HB_QWith(), HB_QSelf(), accessing hash item using OOP interface,
    + accessing/assigning string characters using [] operators (many of the
    + above fully works only in Harbour but not in native xHarbour code :-))
    + and many extensions like HBLOG, HBXML, HBCSTRUCT, HASH, INET*(), etc.
    • +
  •  added HBTPATHY - Telepath(y) compatible comm. library.
    • +
  •  added HBWHAT32 - Windows API interface.
    • +
  •  added HBFBIRD - Firebird db access interface.
    • +
  •  added hbcompat.ch file which hides many differences between + Harbour
    + and xHarbour compilers using PP directives.
    • +
  •  added hbmzip library - it's wrapper to MINIZIP library which
    + allows for compress and decompress streams, character variables,
    + .gz and .zip files
    • +
  •  fixes and extensions in ADORDD
    • +
  •  added automatic ACE version detection during building ADSRDD
    • +
  •  added many new Ads*() functions wrappers and cleaned code for
    + possible GPFs when wrong parameters were passed to some functions
    • +
  •  added HBHPDF - interface for Haru Free PDF Library.
    • +
  •  added HBVPDF - Viktor K's PDF Library + Pritpal Bedi's OOP + extension.
    • +
  • enhanced and fixed HBW32 library - OLE and printing
    +
    + Utilities
    +
    • +
  • added HBDOT utility program. It's a "Dot Prompt" Console for the
    + Harbour Language
    + Syntax: hbdot [<hrbfile[.prg]> [<parameters,...>]]
    + It should look and work in similar way to pp/xBaseScript
    + by Ron Pinkas but unlike xBaseScript is does not have preprocessor
    + or simulated runtime environment but simply uses Harbour pp and
    + compiler libraries to preprocess and compile commands. It means
    + that it supports all language constructions also statements, f.e.:
    + "for i:=1 to 10; ? i; next"
    +
    + Additionally it can also compile and execute .prg files given as
    + first parameter just like hbrun.
    +
    • +
  • added many new tests to hbtest
    +
    • +
  • renamed ppgen to hbppgen.
    • +
 
 
 
 
 
 Release of + Beta 3 ( 0.99.3 ) + +
    +
  • May 1, 2007
    +
    + General
    • +
  • added support for writable string enumerators (s:="abc";for each c in @s;...)
    • +
  • cleaned the syntax and strange unsupported but accepted by [macro]compiler
    • + constructions +
  • added BEGIN SEQUENCE [WITH + ] / RECOVER [USING + ] / + ALWAYS / END + +
    • +
  • new debugger code with low level C interface borrowed from xHarbour
    • +
  • added hash tables
    • +
  • speed improvement
    • +
  • added regular expressions
    • +
  • added internet sockets
    • +
  • added checksum functions
    • +
  • added support for execution .prg scripts in hbrun
    • +
  • added HB_COMPAT_XHB macro which allows to enable many xHarbour extensions
    • +
  • added to default PP tables defines from hbsetup.ch
    • +
  • added #ytranslate, #ycommand, #yuntranslate, #yuncommand
    • +
  • fixes in BROWSE, GET and some other .prg classes
    • +
  • fixed UTF8/UNICODE translations for control characters in GTSLN and GTXWC
    • +
  • cleaned many memory leaks in Compiler
    • +
  • added separated compiler library which can be linked with VM and RTL libraries
    • +
  • cleaned some possible bad side effects in cross references
    • +
  • many other fixes, improvements and extensions - see ChangeLog for details
    • +
 
 
 
 
 
 Release of Beta 2 ( 0.99.2 ) +
    +
  • March 28, 2007
    • +
+
+ General +
    +
  • fixed all problems reported after Beta1 release
    • +
 
 
 
 
 
 Release of Beta 1 ( 0.99.1 ) +
    +
  • January 22, 2007
    • +
+
+ General +
    +
  • There are a lot of changes, additions, bug fixes in all subsystems - see whatsnew.txt for details.
    • +
 
 
 
 
 
 Release of Alpha build 46 +
    +
  • June 05, 2006
    • +
+
+ General +
    +
  • There are a lot of changes, additions, bug fixes in all subsystems - see whatsnew.txt for details.
    • +
 
 
 
 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/photos/antoniolinares.jpg b/harbour/website/photos/antoniolinares.jpg new file mode 100644 index 0000000000..86f2c10057 Binary files /dev/null and b/harbour/website/photos/antoniolinares.jpg differ diff --git a/harbour/website/photos/antoniolinares_.jpg b/harbour/website/photos/antoniolinares_.jpg new file mode 100644 index 0000000000..26a91fea8b Binary files /dev/null and b/harbour/website/photos/antoniolinares_.jpg differ diff --git a/harbour/website/photos/canterobruno.jpg b/harbour/website/photos/canterobruno.jpg new file mode 100644 index 0000000000..1601f40a9f Binary files /dev/null and b/harbour/website/photos/canterobruno.jpg differ diff --git a/harbour/website/photos/chenkedem.jpg b/harbour/website/photos/chenkedem.jpg new file mode 100644 index 0000000000..aa09d00a00 Binary files /dev/null and b/harbour/website/photos/chenkedem.jpg differ diff --git a/harbour/website/photos/davepearson.jpg b/harbour/website/photos/davepearson.jpg new file mode 100644 index 0000000000..965aaaff07 Binary files /dev/null and b/harbour/website/photos/davepearson.jpg differ diff --git a/harbour/website/photos/davidholm.jpg b/harbour/website/photos/davidholm.jpg new file mode 100644 index 0000000000..401787721d Binary files /dev/null and b/harbour/website/photos/davidholm.jpg differ diff --git a/harbour/website/photos/dholm-harbour.jpg b/harbour/website/photos/dholm-harbour.jpg new file mode 100644 index 0000000000..0a450900e2 Binary files /dev/null and b/harbour/website/photos/dholm-harbour.jpg differ diff --git a/harbour/website/photos/dholm-office.jpg b/harbour/website/photos/dholm-office.jpg new file mode 100644 index 0000000000..f9526c6e79 Binary files /dev/null and b/harbour/website/photos/dholm-office.jpg differ diff --git a/harbour/website/photos/felipecoury.jpg b/harbour/website/photos/felipecoury.jpg new file mode 100644 index 0000000000..c43b52283a Binary files /dev/null and b/harbour/website/photos/felipecoury.jpg differ diff --git a/harbour/website/photos/ignacio_ortiz.jpg b/harbour/website/photos/ignacio_ortiz.jpg new file mode 100644 index 0000000000..fd9bf42876 Binary files /dev/null and b/harbour/website/photos/ignacio_ortiz.jpg differ diff --git a/harbour/website/photos/jean_francois_lefebvre.jpg b/harbour/website/photos/jean_francois_lefebvre.jpg new file mode 100644 index 0000000000..a831e941e7 Binary files /dev/null and b/harbour/website/photos/jean_francois_lefebvre.jpg differ diff --git a/harbour/website/photos/kodak.gif b/harbour/website/photos/kodak.gif new file mode 100644 index 0000000000..aef998bedc Binary files /dev/null and b/harbour/website/photos/kodak.gif differ diff --git a/harbour/website/photos/kwonohchul.jpg b/harbour/website/photos/kwonohchul.jpg new file mode 100644 index 0000000000..04977e87bd Binary files /dev/null and b/harbour/website/photos/kwonohchul.jpg differ diff --git a/harbour/website/photos/luizculik.jpg b/harbour/website/photos/luizculik.jpg new file mode 100644 index 0000000000..63fac543cd Binary files /dev/null and b/harbour/website/photos/luizculik.jpg differ diff --git a/harbour/website/photos/martin_vogel_2.jpg b/harbour/website/photos/martin_vogel_2.jpg new file mode 100644 index 0000000000..72bb7a0842 Binary files /dev/null and b/harbour/website/photos/martin_vogel_2.jpg differ diff --git a/harbour/website/photos/matt_hamilton.jpg b/harbour/website/photos/matt_hamilton.jpg new file mode 100644 index 0000000000..61e7b42fb7 Binary files /dev/null and b/harbour/website/photos/matt_hamilton.jpg differ diff --git a/harbour/website/photos/matteobaccan.jpg b/harbour/website/photos/matteobaccan.jpg new file mode 100644 index 0000000000..e010f0caf5 Binary files /dev/null and b/harbour/website/photos/matteobaccan.jpg differ diff --git a/harbour/website/photos/mauriliolongo.jpg b/harbour/website/photos/mauriliolongo.jpg new file mode 100644 index 0000000000..12a0feb1ac Binary files /dev/null and b/harbour/website/photos/mauriliolongo.jpg differ diff --git a/harbour/website/photos/patrickmast.jpg b/harbour/website/photos/patrickmast.jpg new file mode 100644 index 0000000000..4a1b94ee39 Binary files /dev/null and b/harbour/website/photos/patrickmast.jpg differ diff --git a/harbour/website/photos/patrickmast2.jpg b/harbour/website/photos/patrickmast2.jpg new file mode 100644 index 0000000000..ff0e43212b Binary files /dev/null and b/harbour/website/photos/patrickmast2.jpg differ diff --git a/harbour/website/photos/patrickmast3.jpg b/harbour/website/photos/patrickmast3.jpg new file mode 100644 index 0000000000..f6a01206a9 Binary files /dev/null and b/harbour/website/photos/patrickmast3.jpg differ diff --git a/harbour/website/photos/paultucker.jpg b/harbour/website/photos/paultucker.jpg new file mode 100644 index 0000000000..eb0fa4fc2e Binary files /dev/null and b/harbour/website/photos/paultucker.jpg differ diff --git a/harbour/website/photos/philbarnett.jpg b/harbour/website/photos/philbarnett.jpg new file mode 100644 index 0000000000..4a0d72014f Binary files /dev/null and b/harbour/website/photos/philbarnett.jpg differ diff --git a/harbour/website/photos/richard_alexandre_cuylen.jpg b/harbour/website/photos/richard_alexandre_cuylen.jpg new file mode 100644 index 0000000000..a77e892bce Binary files /dev/null and b/harbour/website/photos/richard_alexandre_cuylen.jpg differ diff --git a/harbour/website/photos/ron_pinkas.jpg b/harbour/website/photos/ron_pinkas.jpg new file mode 100644 index 0000000000..73b3d54e06 Binary files /dev/null and b/harbour/website/photos/ron_pinkas.jpg differ diff --git a/harbour/website/photos/tstone.jpg b/harbour/website/photos/tstone.jpg new file mode 100644 index 0000000000..73066089fa Binary files /dev/null and b/harbour/website/photos/tstone.jpg differ diff --git a/harbour/website/photos/vailtonrenato.jpg b/harbour/website/photos/vailtonrenato.jpg new file mode 100644 index 0000000000..0c170617a9 Binary files /dev/null and b/harbour/website/photos/vailtonrenato.jpg differ diff --git a/harbour/website/photos/vailtonrenato2.jpg b/harbour/website/photos/vailtonrenato2.jpg new file mode 100644 index 0000000000..1354b521c6 Binary files /dev/null and b/harbour/website/photos/vailtonrenato2.jpg differ diff --git a/harbour/website/photos/vladimir_kazimirchik.jpg b/harbour/website/photos/vladimir_kazimirchik.jpg new file mode 100644 index 0000000000..f580a035c8 Binary files /dev/null and b/harbour/website/photos/vladimir_kazimirchik.jpg differ diff --git a/harbour/website/robots.txt b/harbour/website/robots.txt new file mode 100644 index 0000000000..74abd7d60f --- /dev/null +++ b/harbour/website/robots.txt @@ -0,0 +1,5 @@ +# Last Updated: 2010.10.13 15:34:00 + +User-agent: ia_archiver +Disallow: /photos/victorszakats.jpg +Disallow: /photos/victorszakats2.jpg diff --git a/harbour/website/samples.html b/harbour/website/samples.html new file mode 100644 index 0000000000..752ecaf945 --- /dev/null +++ b/harbour/website/samples.html @@ -0,0 +1,361 @@ + + + + +Harbour Project - Sample Applications + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Sample Applications 
 This is the list of some examples in Harbour's test directory. The examples demonstrate Harbour features in small programs. 
   
 Categories: 
  
 
 
Basic 
  
 
 
 
 
Arrays 
  
 
 
 
 
Database 
  
 
 
 
 
Extensions 
  
 
 
 
 
Web 
  
 
 
 
 
More examples 
 More examples can be provided with the installation package of the Harbor. Look the CONTRIB\EXAMPLES folder to find another samples. 
 
 
 
 
How to compile the samples applications 
  
 
 
 
 
 
+ + + + + +
Copyright © 1999-2012 The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/HowToBuildOnLinux.html b/harbour/website/samples/HowToBuildOnLinux.html new file mode 100644 index 0000000000..69256f3d66 --- /dev/null +++ b/harbour/website/samples/HowToBuildOnLinux.html @@ -0,0 +1,185 @@ + + + + +Harbour Project - Samples -> How to Build on Linux + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + +
  + + + + + + + +
How to Build on Linux
In the last phase of install process if bash shell is available in the system then few bash scripts are created to make compiling and linking with Harbour a little easier. There are compiler and linker wrappers called "hbcc", "hbcmp", "hblnk" and "hbmk".
 


+ "hbcc" is a wrapper to the C compiler only. It sets all flags + and paths necessary to compile .c files which include Harbour header + files. The result of its work is an object file.

+

Use "hbcmp" exactly as you would use the harbour compiler itself. + The main difference with hbcmp is that it results in an object file, + not a C file that needs compiling down to an object. hbcmp also + ensures that the harbour include directory is seen by the harbour compiler.

+

"hblnk" simply takes a list of object files and links them together + with the harbour virtual machine and run-time library to produce an + executable. The executable will be given the basename of the first object + file if not directly set by the "-o" command line switch.

+

"hbmk" tries to produce an executable from your .prg file. It's a simple + equivalent of cl.bat from the CA-Clipper distribution.

+

All these scripts accept command line switches:
+ -o<outputfilename>   # output file name +
+ -static              # link with static Harbour libs +
+ -fullstatic          # link with all static libs +
+ -shared              # link with shared libs (default) +
+ -mt                  # link with multi-thread libs +
+ -gt<hbgt>            # link with <hbgt> GT driver, can be repeated to
+                     # link with more GTs. The first one will be
+                      # the default at runtime
+ -xbgtk               # link with xbgtk library (xBase GTK+ interface)
+ -hwgui               # link with HWGUI library (GTK+ interface)
+ -l<libname>          # link with <libname> library
+ -L<libpath>          # additional path to search for libraries
+ -fmstat              # link with the memory statistics lib
+ -nofmstat            # do not link with the memory statistics lib (default)
+ -[no]strip           # strip (no strip) binaries
+ -main=<main_func>    # set the name of main program function/procedure.
+                     # if not set then 'MAIN' is used or if it doesn't
+                     # exist the name of first public function/procedure
+                     # in first linked object module (link) +

Link options work only with "hblnk" and "hbmk" and have no effect + in "hbcc" and "hbcmp". + Other options are passed to Harbour/C compiler/linker.

+ An example compile/link session looks like: +
+ ---------------------------------------------------------------------------------------druzus@uran:~/tmp$ cat foo.prg +
+ function main()
+? "Hello, World!"
+ return nil + 
druzus@uran:~/tmp$ hbcmp foo
+Harbour Compiler Alpha build 46.2 (Flex)
+Copyright 1999-2006, http://harbour-project.org/
+Compiling 'foo.prg'...
+Lines 5, Functions/Procedures 2
+Generating C source output to 'foo.c'... Done.
+ 
druzus@uran:~/tmp$ hblnk foo.o
druzus@uran:~/tmp$ strip foo
druzus@uran:~/tmp$ ls -l foo
+-rwxrwxr-x    1 druzus   druzus       3824 maj 17 02:46 foo
+---------------------------------------------------------------------------------------
+ +

or using hbmk only:
+ ---------------------------------------------------------------------------------------
+ druzus@uran:~/tmp$ cat foo.prg
+ function main()
+? "Hello, World!"
+return nil
+
+druzus@uran:~/tmp$ hbmk foo
+Harbour Compiler Alpha build 46.2 (Flex) +
+Copyright 1999-2006, http://harbour-project.org/
+Compiling 'foo.prg'... +
+Lines 5, Functions/Procedures 2
+Generating C source output to 'foo.c'... Done.
+
+ druzus@uran:~/tmp$ ls -l foo
+ -rwxrwxr-x 1 druzus druzus 3824 maj 17 02:46 foo
+ ---------------------------------------------------------------------------------------
+
+ You will find additional wonderful tools: /usr/bin/hbrun
+ You can run clipper/xbase compatible source files with it + if you only put in their first line: #!/usr/bin/hbrun

+

For example:
+ ----------------------------------------------------------------------
+ druzus@uran:~/tmp$ cat foo.prg
+ #!/usr/bin/hbrun
+ function main()
+? "Hello, World!, This is a script !!! :-)"
+return nil

+

druzus@uran:~/tmp$ chmod +x foo.prg
+ druzus@uran:~/tmp$ ./foo.prg

+

Hello, World!, This is a script !!! :-)

+

druzus@uran:~/tmp$

+

I hope you will find this information useful,
+ Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+

 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/HowToBuildOnWindows.html b/harbour/website/samples/HowToBuildOnWindows.html new file mode 100644 index 0000000000..f51b5f41bb --- /dev/null +++ b/harbour/website/samples/HowToBuildOnWindows.html @@ -0,0 +1,173 @@ + + + + +Harbour Project - Samples -> How to Build on Windows + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + +
  + + + + + + + +

How to Build on Windows

In the BIN folder where your Harbor was installed, is the file HBMK.BAT. This batch file will help you compile your applications in a Microsoft.
 

"hbmk" tries to produce an executable from your .prg file. It's a simple + equivalent of cl.bat from the CA-Clipper distribution.

+

All these scripts accept command line switches:
+ -o<outputfilename>   # output file name +
+ -static              # link with static Harbour libs +
+ -fullstatic          # link with all static libs +
+ -shared              # link with shared libs (default) +
+ -mt                  # link with multi-thread libs +
+ -gt<hbgt>            # link with <hbgt> GT driver, can be repeated to
+                     # link with more GTs. The first one will be
+                      # the default at runtime
+ -xbgtk               # link with xbgtk library (xBase GTK+ interface)
+ -hwgui               # link with HWGUI library (GTK+ interface)
+ -l<libname>          # link with <libname> library
+ -L<libpath>          # additional path to search for libraries
+ -fmstat              # link with the memory statistics lib
+ -nofmstat            # do not link with the memory statistics lib (default)
+ -[no]strip           # strip (no strip) binaries
+ -main=<main_func>    # set the name of main program function/procedure.
+                     # if not set then 'MAIN' is used or if it doesn't
+                     # exist the name of first public function/procedure
+                     # in first linked object module (link) +

Link options work only with "hblnk" and "hbmk" and have no effect + in "hbcc" and "hbcmp". + Other options are passed to Harbour/C compiler/linker.

+ An example compile/link session looks like: +
+ ---------------------------------------------------------------------------------------druzus@uran:~/tmp$ cat foo.prg +
+ function main()
+? "Hello, World!"
+ return nil + 
druzus@uran:~/tmp$ hbcmp foo
+Harbour Compiler Alpha build 46.2 (Flex)
+Copyright 1999-2006, http://harbour-project.org/
+Compiling 'foo.prg'...
+Lines 5, Functions/Procedures 2
+Generating C source output to 'foo.c'... Done.
+ 
druzus@uran:~/tmp$ hblnk foo.o
druzus@uran:~/tmp$ strip foo
druzus@uran:~/tmp$ ls -l foo
+-rwxrwxr-x    1 druzus   druzus       3824 maj 17 02:46 foo
+---------------------------------------------------------------------------------------
+ +

or using hbmk only:
+ ---------------------------------------------------------------------------------------
+ druzus@uran:~/tmp$ cat foo.prg
+ function main()
+? "Hello, World!"
+return nil
+
+druzus@uran:~/tmp$ hbmk foo
+Harbour Compiler Alpha build 46.2 (Flex) +
+Copyright 1999-2006, http://harbour-project.org/
+Compiling 'foo.prg'... +
+Lines 5, Functions/Procedures 2
+Generating C source output to 'foo.c'... Done.
+
+ druzus@uran:~/tmp$ ls -l foo
+ -rwxrwxr-x 1 druzus druzus 3824 maj 17 02:46 foo
+ ---------------------------------------------------------------------------------------
+
+ You will find additional wonderful tools: /usr/bin/hbrun
+ You can run clipper/xbase compatible source files with it + if you only put in their first line: #!/usr/bin/hbrun

+

For example:
+ ----------------------------------------------------------------------
+ druzus@uran:~/tmp$ cat foo.prg
+ #!/usr/bin/hbrun
+ function main()
+? "Hello, World!, This is a script !!! :-)"
+return nil

+

druzus@uran:~/tmp$ chmod +x foo.prg
+ druzus@uran:~/tmp$ ./foo.prg

+

Hello, World!, This is a script !!! :-)

+

druzus@uran:~/tmp$

+

I hope you will find this information useful,
+ Przemyslaw Czerpak (druzus/at/priv.onet.pl)
+

 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/_notes/dwsync.xml b/harbour/website/samples/_notes/dwsync.xml new file mode 100644 index 0000000000..258aa0ad61 --- /dev/null +++ b/harbour/website/samples/_notes/dwsync.xml @@ -0,0 +1,5 @@ + + + + + \ No newline at end of file diff --git a/harbour/website/samples/array16.html b/harbour/website/samples/array16.html new file mode 100644 index 0000000000..08ae31542a --- /dev/null +++ b/harbour/website/samples/array16.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> array16 + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Multidimensional arrays demo
This test demonstrates the many ways to access items in an array.
   
 Files: 
  
 Screenshot: 
   
 

+array16 sample running on Windows Vista
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/array16.prg.html b/harbour/website/samples/array16.prg.html new file mode 100644 index 0000000000..7e3c618837 --- /dev/null +++ b/harbour/website/samples/array16.prg.html @@ -0,0 +1,95 @@ + +array16.prg + + + + + +
// Harbour multidimensional arrays support
+
+function Main()
+
+   local a := { 100, 200, "Third" }
+   local b := Array( 8832 )  // 8832 elements !!! Maximum for 16 Bit !!!
+
+   QOut( ValType( a ) )
+   QOut( ValType( { "A" } ) )
+
+   AAdd( a, "new element" )
+   QOut( Len( a ) )
+
+   QOut( a[ 1 ] )
+   QOut( a[ 2 ] )
+   QOut( a[ 3 ] )
+   QOut( a[ 4 ] )
+
+   QOut( ATail( a ) )
+
+   a[ 3 ] := { "this", { "seems", "to", { "work", "so", "well" } } }
+   QOut( a[ 3 ][ 2 ][ 3 ][ 1 ] ) // "work"
+
+   a[ 3, 2 ][ 3, 1 ] := "Harbour power!"  // different ways to specify the indexes
+   QOut( a[ 3, 2, 3, 1 ] )
+
+   QOut( ValType( b ) )
+   QOut( Len( b ) )
+
+   b[ 8832 ] := "Harbour"
+
+   QOut( b[ 8832 ] )
+
+   QOut( atail( b ) )
+
+   ASize( b, 200 )
+   QOut( Len( b ) )
+
+   b[ 100 ] := 10
+   Test( b[ 100 ]++ )
+   QOut( b[ 100 ] )
+
+   b[ 100 ] := 10
+   Test( ++b[ 100 ] )
+   QOut( b[ 100 ] )
+
+   b := { 1, { 2, { 4, 5 } } }
+   Test( b[ 2 ][ 2 ][ 1 ]++ )
+   QOut( b[ 2 ][ 2 ][ 1 ] )
+
+   b[ 2 ][ 2 ][ 1 ] := 2
+   Test( ++b[ 2 ][ 2 ][ 1 ] )
+   QOut( b[ 2 ][ 2 ][ 1 ] )
+
+   ReleaseTest()
+
+return nil
+
+function Test( n )
+
+   QOut( n )
+
+return nil
+
+function ReleaseTest()
+
+   local a := { 1, 2, 3 }
+
+return nil
+
+
diff --git a/harbour/website/samples/arreval.html b/harbour/website/samples/arreval.html new file mode 100644 index 0000000000..e4e5faf6af --- /dev/null +++ b/harbour/website/samples/arreval.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> arreval + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
aEval() sample
Simple AEval() test program. Note also that the code-block uses a second parameter to identify the position of the item currently in use.
   
 Files: 
  
 Screenshot: 
   
 

+arreval sample running on Windows
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/arreval.prg.html b/harbour/website/samples/arreval.prg.html new file mode 100644 index 0000000000..7794485bcd --- /dev/null +++ b/harbour/website/samples/arreval.prg.html @@ -0,0 +1,35 @@ + +arreval.prg + + + + + +
function Main()
+
+   local a := { 100, 200, 300 }
+
+   aEval(a, {|nValue, nIndex| QOut(nValue, nIndex) })
+
+return nil
+
+
+
+ diff --git a/harbour/website/samples/begin.html b/harbour/website/samples/begin.html new file mode 100644 index 0000000000..0b22890cc5 --- /dev/null +++ b/harbour/website/samples/begin.html @@ -0,0 +1,121 @@ + + + + +Harbour Project - Samples -> begin + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Begin Sequence support
This files demonstrates the use of BEGIN/RECOVER/END SEQUENCE and BREAK statement in Harbour.
 Files: 
  
 

Screenshot:

 
 

+ begin demonstration running on Linux
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/begin.prg.html b/harbour/website/samples/begin.prg.html new file mode 100644 index 0000000000..18ab38833a --- /dev/null +++ b/harbour/website/samples/begin.prg.html @@ -0,0 +1,155 @@ + +begin.prg + + + + + +
// This files demonstrates the use of BEGIN/RECOVER/END SEQUENCE
+// and BREAK statement
+//
+MEMVAR oMemvar
+MEMVAR mPrivate
+
+PROCEDURE MAIN
+LOCAL oLocal
+PRIVATE mPrivate:='private value in MAIN'
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 1"
+    ? "  No break issued...."
+  RECOVER
+    ? "  Recovering in 1 ..."
+  END SEQUENCE
+  ? "After SEQUENCE 1"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 2"
+    Break( "VALUE 2" )
+  RECOVER USING oLocal
+    ? "  Recovering in 2 using....", oLocal
+  END SEQUENCE
+  ? "After SEQUENCE 2"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 3"
+    Break
+  RECOVER USING oLocal
+    ? "  Recovering in 3 using....", oLocal
+  END SEQUENCE
+  ? "After SEQUENCE 3"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 4"
+    Break
+    ? "  Recovering in 4 using....", oLocal
+  END SEQUENCE
+  ? "After SEQUENCE 4"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 5"
+    Break1( )
+    ? "  Recovering in 5 using....", oLocal
+  END SEQUENCE
+  ? "After SEQUENCE 5"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 6"
+    Break1( )
+  RECOVER USING oMemvar
+    ? "  Recovering in 6 using... ", oMemvar
+  END SEQUENCE
+  ? "After SEQUENCE 6"
+
+
+  BEGIN SEQUENCE
+    ? " Inside SEQUENCE 7"
+    Break2( )
+  RECOVER USING oMemvar
+    ? "  Recovering in 7 using... ", oMemvar
+  END SEQUENCE
+  ? "After SEQUENCE 7"
+
+  ? M->mPrivate  
+  BREAK( "exit from MAIN" )
+  ? "This text will be not printed"
+  
+RETURN
+
+PROCEDURE Break1()
+PRIVATE mPrivate:='VALUE from Break1'
+
+  BREAK M->mPrivate
+
+RETURN
+
+PROCEDURE Break2()
+
+    BEGIN SEQUENCE
+        ? " Inside SEQUENCE 8"
+        Break3( )
+    RECOVER USING oMemvar
+        ? "  Recovering in 8 using...", EVAL( oMemvar, ' eval in 8' )
+        BREAK( "BREAK from recovery code" )
+    END SEQUENCE
+    ? "After SEQUENCE 8"
+
+RETURN
+
+
+PROCEDURE Break3()
+STATIC oStatic
+
+    BEGIN SEQUENCE
+        ? " Inside SEQUENCE 9"
+
+        BEGIN SEQUENCE
+            ? " Inside SEQUENCE 10"
+            Break( "value from nested SEQUENCE 10" )
+        RECOVER USING oStatic
+            ? "  Recovering in 10 using...", oStatic
+        END SEQUENCE
+        ? "After SEQUENCE 10"
+
+        Break4( " and parameter" )
+
+    RECOVER USING oMemvar
+        ? "  Recovering in 9 using...", EVAL( oMemvar, ' eval in 9' )
+        BREAK( oMemvar )
+    END SEQUENCE
+    ? "After SEQUENCE 9"
+
+RETURN
+
+
+PROCEDURE Break4( cValue )
+LOCAL oLocal:=' detached Break4 '
+
+  BREAK( {|x| oLocal + x + cValue} )
+
+RETURN
+
+
diff --git a/harbour/website/samples/byref.html b/harbour/website/samples/byref.html new file mode 100644 index 0000000000..799d8ffda8 --- /dev/null +++ b/harbour/website/samples/byref.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> byref + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Manipulating variables by reference.
This example shows how you can pass variables as a reference and change its values.
   
 Files: 
  
 Screenshot: 
   
 

+ initexit sample running on Windows
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright c 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/byref.prg.html b/harbour/website/samples/byref.prg.html new file mode 100644 index 0000000000..de981d5c58 --- /dev/null +++ b/harbour/website/samples/byref.prg.html @@ -0,0 +1,81 @@ + +byref.prg + + + + + +
// Managing variables by reference
+
+function Main()
+STATIC s:=10
+
+   local x := 0
+
+   QOut( "Managing LOCAL variables by reference" )
+   Qout( 'In main before ref1 x=', x )
+   ref1( @x )
+   Qout( ' In main after ref1 x=', x )
+
+
+   QOut( "Managing STATIC variables by reference" )
+   Qout( 'In main before ref1 s=', s )
+   ref1( @s )
+   Qout( ' In main after ref1 s=', s )
+
+return nil
+
+function ref1( x )
+
+  x++
+  Qout( ' In ref1 before ref2 =', x )
+  Ref2( @x )
+  Qout( ' In ref1 after ref2 =', x )
+
+return nil
+
+function ref2( x )
+
+  x++
+  Qout( '  In ref2 before ref3 =', x )
+  Ref3( @x )
+  Qout( '  In ref2 after ref3 =', x )
+
+return nil
+
+function ref3( x )
+STATIC a
+
+  x++
+  Qout( '   In ref3 before ref4 =', x )
+  a ={ x, x }
+  Ref4( @a )
+  Qout( '   In ref3 after ref4 =', x )
+
+return nil
+
+function ref4( a )
+
+  a[ 1 ]++
+  Qout( '    In ref4 =', a[ 1 ] )
+
+return nil
+
+
diff --git a/harbour/website/samples/codebl.html b/harbour/website/samples/codebl.html new file mode 100644 index 0000000000..b3fda0f568 --- /dev/null +++ b/harbour/website/samples/codebl.html @@ -0,0 +1,121 @@ + + + + +Harbour Project - Samples -> codebl + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Codeblock support sample
Harbour codeblocks demonstration.
 Files: 
  
 

Screenshot:

 
 

+
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/codebl.prg.html b/harbour/website/samples/codebl.prg.html new file mode 100644 index 0000000000..2c9e351c6d --- /dev/null +++ b/harbour/website/samples/codebl.prg.html @@ -0,0 +1,193 @@ + +codebl.prg + + + + + +
STATIC cbStatic
+
+Function Main()
+Local a := TestBlocks()
+LOCAL cb
+
+   qout( eval( a[ 1 ] ) )      // 23
+   qout( eval( a[ 2 ], 42 ) )  // 42
+   qout( eval( a[ 1 ] ) )      // 42
+   qout( eval( a[ 2 ], 15 ) )  // 15
+
+   mqout( 15, eval( a[ 1 ] ) )      // 15 15
+   mqout( 14, eval( a[ 1 ] ) )      // 14 15
+   mqout( 42, eval( a[ 2 ], 42 ) )  // 42 42
+   mqout( 14, eval( a[ 2 ], 42 ) )  // 14 42
+   mqout( 42, eval( a[ 1 ] ) )      // 42 42
+   mqout( 14, eval( a[ 1 ] ) )      // 14 42
+
+   GetArray( @a )
+   PrintArray( @a )
+
+   qout( "Test for variables passed by reference in a codeblock" )
+   DetachWithRefer()
+
+   qout( "Test for indirect detaching of local variables" )
+   DetachToStatic( 1 )
+   mqout( 2, EVAL( cbStatic, 1 ) )
+   mqout( 3, EVAL( cbStatic, 2 ) )
+   cb :=cbStatic
+   DetachToStatic( 100 )
+   mqout( 200, EVAL( cbStatic, 100 ) )
+   mqout( 300, EVAL( cbStatic, 200 ) )
+   mqout( 4, EVAL( cb, 3 ) )
+
+   ReferParam()
+
+Return( NIL )
+
+Static Function TestBlocks()
+LOCAL nFoo := 23
+Return( { {|| nFoo }, {|n| nFoo := n } } )
+
+Static Function mqout( nExpected, nGot )
+
+   qout( nExpected, nGot )
+
+Return( NIL )
+
+/////////////////////////////////////////////////////////////////
+PROCEDURE GetArray( a )
+LOCAL i
+
+   a :=ARRAY( 100 )
+   FOR i:=1 TO 100
+     IF( (i % 6) == 0 )
+         a[ i-2 ] =NIL
+         a[ i-4 ] =NIL
+     ENDIF
+     a[ i ] := TestBlocks()
+   NEXT
+
+RETURN
+
+PROCEDURE PrintArray( a )
+LOCAL i
+
+   FOR i:=1 TO 100
+     IF( a[i] != NIL )
+       EVAL( a[ i ][ 2 ], i )
+       mqout( i, EVAL( a[ i ][ 1 ] ) )
+     ENDIF
+   NEXT
+
+RETURN
+
+//////////////////////////////////////////////////////////////////
+Function DetachWithRefer()
+Local nTest
+Local bBlock1 := MakeBlock()
+Local bBlock2 := {|| DoThing( @nTest ), qout( nTest ) }
+
+   eval( bBlock1 )
+   eval( bBlock2 )
+
+Return( NIL )
+
+Function MakeBlock()
+Local nTest
+RETURN( {|| DoThing( @nTest ), qout( nTest ) } )
+
+Function DoThing( n )
+
+   n := 42
+
+Return( NIL )
+
+//////////////////////////////////////////////////////////////////////
+FUNCTION DetachToStatic( n )
+
+  cbStatic ={|x| n+x}
+
+RETURN NIL
+
+// ------------------------------------------------------------
+Function ReferParam()
+Local bResult
+
+? "Test for codeblock parameter passed by reference"
+
+PassByValue( {|lEnd| ;
+   bResult := GetBlock( @lEnd ), ;  
+   SetByRef( @lEnd ) } )
+// Clipper & xHarbour it's .T.
+//In Harbour it is .F. 
+? "Printed value in Clipper  .T. =", Eval( bResult )           
+?
+// Notice the Clipper bug: GetBlock is receiving the reference to
+// the codeblock parameter than the value of EVAL(bResult) shouldn't
+// depend on the order of block creation/value changing (GetBlock/SetRef).
+
+PassByRef( {|lEnd| ;
+   bResult := GetBlock( @lEnd ), ;  
+   SetByRef( @lEnd ) } )
+// Clipper & xHarbour it's .T.
+//In Harbour it is .F. 
+? "Printed value in Clipper  .T. =", Eval( bResult )           
+?
+
+? "2nd test for codeblock parameter passed by reference"
+
+PassByValue( {|lEnd| ;
+   SetByRef( @lEnd ), ;
+   bResult := GetBlock( @lEnd ) } )
+// Clipper & xHarbour it's .T.
+//In Harbour it is .F. 
+? "Printed value in Clipper  .F. =", Eval( bResult )           
+?
+
+PassByRef( {|lEnd| ;
+   SetByRef( @lEnd ), ;
+   bResult := GetBlock( @lEnd ) } )
+// Clipper & xHarbour it's .T.
+//In Harbour it is .F. 
+? "Printed value in Clipper  .F. =", Eval( bResult )           
+?
+
+Return Nil
+
+Static Function PassByValue( bBlock )
+Local lSomeVar := .T.
+Eval( bBlock, lSomeVar )
+? "lSomeVar value in Clipper .T. =", lSomeVar
+Return .T.
+
+Static Function PassByRef( bBlock )
+Local lSomeVar := .T.
+Eval( bBlock, @lSomeVar )
+? "lSomeVar value in Clipper .F. =", lSomeVar
+Return .T.
+
+Static Function SetByRef( lVar )
+lVar := .F.
+Return Nil
+
+Static Function GetBlock( lVar )
+Return {|| lVar }
+// ------------------------------------------------------------
+
+
diff --git a/harbour/website/samples/codebloc.html b/harbour/website/samples/codebloc.html new file mode 100644 index 0000000000..536de76055 --- /dev/null +++ b/harbour/website/samples/codebloc.html @@ -0,0 +1,122 @@ + + + + +Harbour Project - Samples -> codebloc + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Codeblock support sample
Harbour codeblocks test sample.
 Files: 
  
 

Screenshot:

 
 

+
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/codebloc.prg.html b/harbour/website/samples/codebloc.prg.html new file mode 100644 index 0000000000..8713e78b8d --- /dev/null +++ b/harbour/website/samples/codebloc.prg.html @@ -0,0 +1,143 @@ + +codebloc.prg + + + + + +
// codeblocks test
+
+function Main()
+   local B := "this will never print"
+   local a := { |b,c| OutStd( "I am a codeblock" + b + c ) }
+   local d
+   local de
+   local ar := { 1, 2 }
+   local crlf:=CHR(13)+chr(10)
+   local YY, X
+   local x1, x2
+
+   OutStd( "this should print first" )
+   OutStd( crlf )
+
+   Eval( a, " with parameters", " ... and it works!" )
+   OutStd( crlf )
+
+   d ="with access to local variables"
+
+   a ={ |b,c| OutStd( "I am a second codeblock " +d +b +;
+        IIF(c==NIL, ' empty second parameter ', c)), OutStd(crlf), "WITH return value" }
+   EVAL( a, ", codeblock parameters" )
+   OutStd( crlf )
+
+   EVAL( a, ", codeblock parameters ", "and with second parameter" )
+   OutStd( crlf )
+
+   OutStd( MyEval( a ) )
+   OutStd( crlf )
+
+   OtherTest( a )
+   OutStd( crlf )
+
+   AnotherTest( a, "==> Another " )
+   OutStd( crlf )
+
+   a ={|c| IIF( c=NIL, {|a| "First "+a}, {|a| "Second "+a}) }
+   a =EVAL( a )
+   OutStd( crlf )
+   OutStd( EVAL( a, "codeblock created in a codeblock" ) )
+   OutStd( crlf )
+
+   OutStd( ar[ 1 ] )
+   OutStd( crlf )
+   a :={|| ar[ 1 ]++}
+   EVAL( a )
+   OutStd( ar[ 1 ] )
+   OutStd( crlf )
+
+   yy :=5
+   x  :={|xx| OutStd(LTRIM(STR(xx))), OutStd("+"), OutStd(LTRIM(STR(yy))), OutStd("="), xx + yy }
+   OutStd( EVAL( x, 1 ) )       //this is OK
+   OutStd( CRLF )
+   OutStd( EVAL( x, 1, 2 ) )    //this should ignore unnecesary parameters
+
+   QOut( EVAL( RetBlock(), 5 ) )
+
+//   BugToFix()
+   OutStd( crlf )
+
+   OutStd( "Trying to use detached variable ..." )
+   OutStd( crlf )
+   x1 :=5
+   x2 :=6
+   de =DetachLocal( x1, x2 )
+   OutStd( EVAL( de ) )
+   //changing the value of variables
+   OutStd( crlf )
+   x1 := 10
+   x2 := 11
+   QOut( EVAL( de ) )
+   de =DetachLocal( x1, x2 )
+   QOut( EVAL( de ) )
+
+return nil
+
+FUNCTION MyEval( bCodeBlock )
+LOCAL D:="this is another variable"
+
+RETURN( EVAL(bCodeBlock, " from ", "MyEval Function" ) )
+
+PROCEDURE OtherTest( cblock )
+LOCAL cb
+
+  cb :={|a,b| EVAL( cblock,a,b ) }
+
+  EVAL( cb, "--> with nested ", "EVAL" )
+
+RETURN
+
+PROCEDURE AnotherTest( cb, a )
+  OutStd( EVAL( cb, a ) )
+   OutStd( chr(13)+chr(10) )
+  OutStd( EVAL( cb, a, "again and again" ) )
+   OutStd( chr(13)+chr(10) )
+RETURN
+
+FUNCTION DetachLocal( x, y )
+//NOTE! this should work
+LOCAL z:=x+y
+LOCAL cb:={|| QOut("z=x+y="), QOut(z), QOut("x*x="), QOut(x*x), QOut("x*x+z="), x*x+z}
+RETURN( cb )
+
+PROCEDURE BugToFix()
+
+  LOCAL b, a := {|| a+b }
+
+  b ="bug "
+  EVAL( a )
+
+RETURN
+
+FUNCTION RetBlock()
+
+RETURN( {|x| x*x} )
+
+
+
diff --git a/harbour/website/samples/dates3.html b/harbour/website/samples/dates3.html new file mode 100644 index 0000000000..237a742a90 --- /dev/null +++ b/harbour/website/samples/dates3.html @@ -0,0 +1,124 @@ + + + + +Harbour Project - Samples -> dates3 + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Manipulation of date values
This example demonstrates the manipulation of date values and the use of SET (_SET_DATEFORMAT) to format the return of function DATE().
   
 Files: 
  
 Screenshot: 
 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/dates3.prg.html b/harbour/website/samples/dates3.prg.html new file mode 100644 index 0000000000..9d87fde309 --- /dev/null +++ b/harbour/website/samples/dates3.prg.html @@ -0,0 +1,73 @@ + +dates3.prg + + + + + +
// Testing Harbour dates management.
+
+#include "set.ch"
+
+function main()
+
+   LOCAL dDate, i, cNewLine := HB_OSNewLine()
+
+   set( _SET_DATEFORMAT, "dd/mm/yyyy" )
+   dDate := cToD( "25/05/1999" )
+
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   OutStd( LastMonday( dDate ), cNewLine )
+
+   dDate += 3
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   dDate += 4
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   set( _SET_DATEFORMAT, "mm/dd/yyyy" )
+   dDate := cToD( "05/25/1999" )
+
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   OutStd( LastMonday( dDate ), cNewLine )
+
+   dDate += 3
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   dDate += 4
+   OutStd( dDate, dow( dDate ), cNewLine )
+
+   OutStd( cNewLine )
+   dDate := DATE ()
+   FOR i := 1 TO 7
+      OutStd( dDate, dow( dDate ), cNewLine )
+      dDate++
+   NEXT
+   OutStd( ctod( "" ), dow( ctod( "" ) ), cNewLine )
+
+return nil
+
+// Like NG's sample
+function LastMonday( dDate )
+return dDate - dow( dDate ) + 2
+
+
\ No newline at end of file diff --git a/harbour/website/samples/dates4.html b/harbour/website/samples/dates4.html new file mode 100644 index 0000000000..37a1fb952e --- /dev/null +++ b/harbour/website/samples/dates4.html @@ -0,0 +1,124 @@ + + + + +Harbour Project - Samples -> dates3 + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Manipulation of date values
Example of dates with several functions of hbct.lib & hbmisc.lib
   
 Files: 
  
 Screenshot: 
 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/dates4.prg.html b/harbour/website/samples/dates4.prg.html new file mode 100644 index 0000000000..9c15d9865f --- /dev/null +++ b/harbour/website/samples/dates4.prg.html @@ -0,0 +1,59 @@ + +dates4.prg + + + + + +
// Testing Harbour dates management.
+#include "set.ch"
+
+STATIC s_cNewLine
+
+function main()
+   LOCAL i
+   LOCAL dDate := date()
+
+   s_cNewLine := HB_OSNewLine()
+
+   set( _SET_DATEFORMAT, "dd/mm/yyyy" )
+
+   for i := 7 to 49 step 7
+      CheckDate( dDate )
+      dDate += i
+   next
+
+return nil
+
+function CheckDate( dDate )
+   OutStd( "Testing date:", dDate , s_cNewLine )
+   OutStd( "Days in month..:", daysinmonth( dDate ), s_cNewLine )
+   OutStd( "Day of year....:", doy( dDate ), s_cNewLine )
+   OutStd( "Begin of month.:", bom( dDate ), s_cNewLine )
+   OutStd( "End of month...:", eom( dDate ), s_cNewLine )
+   OutStd( "Week of month..:", wom( dDate ), s_cNewLine )
+   OutStd( "Week of year...:", woy( dDate ), s_cNewLine )
+   OutStd( "Begin of year..:", boy( dDate ), s_cNewLine )
+   OutStd( "End of year....:", eoy( dDate ), s_cNewLine )
+   __Accept( "Press ENTER to continue..." )
+   OutStd( chr( 10 ), chr( 10 ) )
+
+return nil
+ diff --git a/harbour/website/samples/dosshell.html b/harbour/website/samples/dosshell.html new file mode 100644 index 0000000000..f5b2ba0df5 --- /dev/null +++ b/harbour/website/samples/dosshell.html @@ -0,0 +1,138 @@ + + + + +Harbour Project - Samples -> dosshell + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Run command: About to shell to DOS
This program uses geten () and the environment variable COMSPEC to start a new shell.
   
 Files: 
  
 Screenshot: 
   
 

+dosshell sample running on Windows Vista
+
+
+dosshell sample running on Linux
+
+Note: To get the same result on Linux, you could execute a command "run bash"
+to forcing the beginning of a new shell.
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/dosshell.prg.html b/harbour/website/samples/dosshell.prg.html new file mode 100644 index 0000000000..624dcf933c --- /dev/null +++ b/harbour/website/samples/dosshell.prg.html @@ -0,0 +1,53 @@ + +dosshell.prg + + + + + +
//
+// DosShell
+//
+// This program shell to DOS
+//
+// Warning : DOS only
+//
+// Written by Eddie Runia <eddie@runia.com>
+// www - http://harbour-project.org
+//
+// Placed in the public domain
+//
+
+function Main()
+
+   local cOs    := Upper( OS() )
+   local cShell := GetEnv("COMSPEC")
+
+   if at( "WINDOWS", cOs ) != 0 .or. at( "DOS", cOs ) != 0 ;
+   .or. at( "OS/2", cOs ) != 0
+      ? "About to shell to DOS.."
+      ! (cShell)
+      ? "Hey, I am back !"
+   else
+      ? "Sorry this program is for Windows, DOS, and OS/2 only"
+   endif
+return nil
+
+
diff --git a/harbour/website/samples/foreach.html b/harbour/website/samples/foreach.html new file mode 100644 index 0000000000..38efe300f6 --- /dev/null +++ b/harbour/website/samples/foreach.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> foreach + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
FOR EACH example
This example demonstrates how to use the FOR EACH command. FOR EACH iterates with elements of data types that can be seen as a collection such as arrays, strings or objects.
   
 Files: 
  
 Screenshot: 
   
 

+foreach sample running on Windows
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/foreach.prg.html b/harbour/website/samples/foreach.prg.html new file mode 100644 index 0000000000..f180f31023 --- /dev/null +++ b/harbour/website/samples/foreach.prg.html @@ -0,0 +1,163 @@ + +foreach.prg + + + + + +
PROCEDURE MAIN()
+LOCAL A:={ "one  ", "two  ", "three" }
+LOCAL AA:={ "AA-one  ", "AA-two  ", "AA-three", "AA-four " }
+LOCAL c:="abcdefghij"
+LOCAL enum:="b"
+LOCAL bb, cc
+LOCAL i
+
+/*
+   test(@a,b)
+   test(a,@b)
+   test(@a,@b)
+*/
+   ? "========================================================"
+   ? "before loop: ENUM=",ENUM
+   ? 'before loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+   FOR EACH enum IN A
+      ? "start: ENUM=", ENUM
+      IF ENUM = 'two'
+         ENUM := UPPER( ENUM )
+      ENDIF
+      ? "end:   ENUM=", ENUM, "| index:", ENUM:__enumIndex, "| value:", ENUM:__enumValue, "| base: ", VALTYPE(ENUM:__enumBase)
+   NEXT
+   ? "after loop ENUM=", ENUM
+   ? 'after loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+   ? "-----------------"
+   ?
+   inkey(0)
+
+ 
+   ? "========================================================"
+   ? "Testing passing by reference"
+   ? "before loop: ENUM=",ENUM
+   ? 'after loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+   FOR EACH ENUM IN A
+      IF UPPER(ENUM) = 'TWO'
+         ENUM := UPPER( ENUM )
+         ? "before passing by @ | ENUM=", ENUM, "| index:", ENUM:__enumIndex, "| value:", ENUM:__enumValue, "| base: ", VALTYPE(ENUM:__enumBase)
+         testBYREF( @ENUM )
+         ? " after passing by @ | ENUM=", ENUM, "| index:", ENUM:__enumIndex, "| value:", ENUM:__enumValue, "| base: ", VALTYPE(ENUM:__enumBase)
+      ENDIF
+   NEXT
+   ? "after loop ENUM=", ENUM
+   ? 'after loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+   inkey(0)
+
+   ? "========================================================"
+   ? "Testing BREAK"
+   ? "before loop: ENUM=",ENUM
+   ? 'after loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+   BEGIN SEQUENCE
+      FOR EACH enum IN A DESCEND
+         ? "loop:   ENUM=", ENUM, "| index:", ENUM:__enumIndex, "| value:", ENUM:__enumValue, "| base: ", VALTYPE(ENUM:__enumBase)
+         TESTbreak( ENUM )
+      NEXT
+   
+   RECOVER USING i
+      ? "after loop ENUM=", ENUM
+      ? 'after loop: a[1]=',a[1], 'a[2]=',a[2], 'a[3]=',a[3]
+      ? "recover variable i=", i
+   END SEQUENCE
+   inkey(0)
+
+   ? "========================================================"
+   ? "before loop: ENUM=",ENUM
+   ? 'before loop: c=',c
+   BEGIN SEQUENCE
+      FOR EACH enum IN c
+         ? "start: ENUM=", ENUM
+         IF enum = 'd'
+            enum := UPPER( enum )
+         ENDIF
+         Testbreak( enum )
+         ? "end:   ENUM=", ENUM, "| index:", ENUM:__enumIndex, "| value:", ENUM:__enumValue, "| base: ", VALTYPE(ENUM:__enumBase)
+      NEXT
+   RECOVER USING i
+      ? "after loop ENUM=", ENUM
+      ? 'after loop: c=', c
+      ? "recover variable i=", i
+   END SEQUENCE
+   
+
+   ? "========================================================"
+   FOR EACH enum,bb,cc IN A,AA,c
+      ? enum, enum:__enumIndex, enum:__enumValue
+      ? bb, bb:__enumIndex, bb:__enumValue
+      ? cc, cc:__enumIndex, cc:__enumValue
+   NEXT
+   inkey(0)
+   
+   ? "========================================================"
+   FOR EACH enum,bb,cc IN A,AA,c DESCEND
+      ? enum, enum:__enumIndex, enum:__enumValue
+      ? bb, bb:__enumIndex, bb:__enumValue
+      ? cc, cc:__enumIndex, cc:__enumValue
+   NEXT
+
+   FOR EACH enum IN a
+      BEGIN SEQUENCE
+      IF enum = '2'
+         BREAK
+      ENDIF
+      END SEQUENCE
+   NEXT
+
+   FOR EACH enum IN a
+      BEGIN SEQUENCE
+      IF enum = '2'
+         ? "Breaking... enum=", enum
+         BREAK enum
+      ENDIF
+      RECOVER USING enum
+         ? "after recovery: enum=", enum
+      END SEQUENCE
+   NEXT
+   
+RETURN
+
+
+PROCEDURE TESTbreak( v )
+   IF v = '2' .or. v = 'd'
+      ? "issuing break"
+      BREAK( v )
+   ENDIF
+   
+RETURN
+
+PROCEDURE TESTBYREF( enum )
+   ? "start of testBYREF ENUM=", ENUM
+   FOR EACH ENUM IN {1,2,3}
+      ? "  -testBYREF=", ENUM
+   NEXT
+   ? "end of loop: ENUM=", ENUM
+   ENUM := "22222"
+   ? "end of testBYREF ENUM=", ENUM
+RETURN
+
+
+
diff --git a/harbour/website/samples/function.cfm.html b/harbour/website/samples/function.cfm.html new file mode 100644 index 0000000000..11ebca151c --- /dev/null +++ b/harbour/website/samples/function.cfm.html @@ -0,0 +1,75 @@ + +Sem título 2 + + + + + +
<html>
+<head>
+<meta http-equiv="Content-Type"
+content="text/html; charset=iso-8859-1">
+<title>Harbour function task list</title>
+</head>
+
+<body bgcolor="#FFFFFF">
+
+<p align="center"><img src="/images/header_01.png" alt="clouds.jpg (2615 bytes)" WIDTH="287" HEIGHT="164"></p>
+
+<font SIZE="2">
+
+<p align="center"></font><font face="Tahoma" size="4"><strong>Function Task List</strong></font><font SIZE="2">
+<br><small><a href="funcs.dll?Lang=BR">In Portuguese</A></p>
+
+<p><font size="2" face="Tahoma">Below is a list of all Harbour
+functions in the RTL and their current state. This list is
+updated as changes are made to the library. This list is based on
+Clipper 5.2. The legend is as follows:</font></p>
+
+<p><font size="2" face="Tahoma"><strong>Ready</strong><br>
+No more work needed on this function.</font></p>
+
+<p><font size="2" face="Tahoma"><strong>Started</strong><br>
+This function needs some work but will provide basic
+functionality and can be used for testing.</font></p>
+
+<p><font size="2" face="Tahoma"><strong>Not Started</strong><br>
+This function has yet to be written.</font></p>
+
+<table border="1" cellpadding="2" cellspacing="1" width="500" align="Center">
+  <tr>
+    <td width="50%" bgcolor="#3000FF" rowspan=2><font size="2" face="Tahoma" color="#ffff00"><center><b>Function</B></font></td>
+	<td width="50%" bgcolor="#3000FF" colspan=3><font size="2" face="Tahoma" color="#ffff00"><center><b>Status</B></font></td>
+  </tr>
+  <tr>
+	<td width="16%" bgcolor="#3000FF"><font size="2" face="Tahoma" color="#ffff00"><center><b>Ready</B></font></td>
+	<td width="16%" bgcolor="#3000FF"><font size="2" face="Tahoma" color="#ffff00"><center><b>Started</B></font></td>
+	<td width="16%" bgcolor="#3000FF"><font size="2" face="Tahoma" color="#ffff00"><center><b>Not Started</B></font></td>
+  </tr>
+  <#Functions>
+</table>
+
+<P>
+<center><font size="1" face="Tahoma">Last Update: April 28, 1999
+
+</body>
+</html>
+
+
diff --git a/harbour/website/samples/hello.html b/harbour/website/samples/hello.html new file mode 100644 index 0000000000..f8ec22582e --- /dev/null +++ b/harbour/website/samples/hello.html @@ -0,0 +1,134 @@ + + + + +Harbour Project - Samples -> hello + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Hello world
A single Hello World with a typical welcome message.
 Files: 
  
 

Screenshots:

+ 		 
 

+ Hello application running on Windows
 
   
 

+ Hello application running on Linux
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/hello.prg.html b/harbour/website/samples/hello.prg.html new file mode 100644 index 0000000000..e34ce2beff --- /dev/null +++ b/harbour/website/samples/hello.prg.html @@ -0,0 +1,34 @@ + +hello.prg + + + + + +
// Typical welcome message
+
+function Main()
+
+   ? "Hello world!"
+
+return nil
+
+
+ diff --git a/harbour/website/samples/initexit.html b/harbour/website/samples/initexit.html new file mode 100644 index 0000000000..71f521d69f --- /dev/null +++ b/harbour/website/samples/initexit.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> initexit + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
INIT and EXIT functions support
Testing INIT and EXIT functions and initialization of static variables.
   
 Files: 
  
 Screenshot: 
   
 

+ initexit sample running on Windows
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/initexit.prg.html b/harbour/website/samples/initexit.prg.html new file mode 100644 index 0000000000..40d1d20c6d --- /dev/null +++ b/harbour/website/samples/initexit.prg.html @@ -0,0 +1,84 @@ + +initexit.prg + + + + + +
// Testing Harbour INIT and EXIT functions and initialization 
+// of static variables
+

+STATIC static_var_accessed_in_INIT_function:=10000.15
+MEMVAR _initStatics
+
+function Main()
+STATIC static_var:="MAIN()"
+
+   QOut( "Hello from:", static_var )
+   static_var_accessed_in_INIT_function++
+   Qout( "global static=", static_var_accessed_in_INIT_function )
+
+   // Use PUBLIC variable created in INIT procedure
+   Qout( "PUBLIC variable created in INIT procedure=", _initStatics )
+
+return nil
+
+init function SecondOne()
+STATIC static_var:="SECOND()"
+
+   QOut( "Hello from:", static_var )
+   static_var_accessed_in_INIT_function++
+   Qout( "global static=", static_var_accessed_in_INIT_function )
+
+return nil
+
+init function Third()
+STATIC static_var:="THIRD()"
+
+   QOut( "Hello from:", static_var )
+   static_var_accessed_in_INIT_function++
+   Qout( "global static=", static_var_accessed_in_INIT_function )
+
+return nil
+
+exit function Fifth()
+STATIC static_var:="FIFTH()"
+
+   QOut( "Hello from:", static_var )
+   static_var_accessed_in_INIT_function--
+   Qout( "global static=", static_var_accessed_in_INIT_function )
+
+return nil
+
+exit function Sixth()
+STATIC static_var:="SIXTH()"
+
+   QOut( "Hello from:", static_var )
+   static_var_accessed_in_INIT_function--
+   Qout( "global static=", static_var_accessed_in_INIT_function )
+
+return nil
+
+INIT PROCEDURE _INITSTATICS()
+PUBLIC _initStatics:="_INITSTATICS"
+RETURN
+
+
+ diff --git a/harbour/website/samples/longdev.html b/harbour/website/samples/longdev.html new file mode 100644 index 0000000000..a3ba5b9e35 --- /dev/null +++ b/harbour/website/samples/longdev.html @@ -0,0 +1,135 @@ + + + + +Harbour Project - Samples -> longdev + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Testing long string handling support
Testing Harbour long string handling with device output.
+ NOTE: The Clipper limits the size of a string of up to 65,535 bytes (64K). In Harbor this limit is much higher: you could load a file with more than 2Gb to inside a memory variable!
   
 Files: 
  
 Screenshot: 
   
 

+
+longdev application running on Linux
+
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/longdev.prg.html b/harbour/website/samples/longdev.prg.html new file mode 100644 index 0000000000..71a5093101 --- /dev/null +++ b/harbour/website/samples/longdev.prg.html @@ -0,0 +1,64 @@ + +longdev.prg + + + + + +
// Testing Harbour long string handling with device output.
+/* Harbour Project source code
+   http://harbour-project.org/
+   Donated to the public domain on 2001-03-08 by David G. Holm <dholm@jsd-llc.com>
+*/
+
+FUNCTION Main()
+
+   LOCAL cShort := "1234567890"
+   LOCAL i, j, cLong, cBuffer, nHandle
+
+   // Create an 80 KB string (Clipper is limited to 64 KB).
+   cLong := cShort
+   FOR i := 1 TO 13
+      cLong += cLong
+   NEXT
+
+   // Write the long string to file long_str.prn
+   SET PRINTER TO long_str
+   SET DEVICE TO PRINTER
+   DEVOUT( cLong )
+   SET PRINTER OFF
+   SET DEVICE TO SCREEN
+
+   // Confirm the string length and that a copy is exactly identical.
+   ? "The length of the long string is", iif( LEN( cLong ) == 80 * 1024, "correct", "wrong" )
+   cBuffer := cLong
+   ? "The length of a copy of the long string is", iif( LEN( cLong ) == 80 * 1024, "correct", "wrong" )
+   ? "The copy of the long string is", iif( cLong == cBuffer, "equal", "not equal" ), "to the long string"
+
+   // Read the string back in and compare it to the original.
+   nHandle := FOPEN( "long_str.prn" )
+   cBuffer := FREADSTR( nHandle, 90000 )
+   ? "Original:", LEN( cLong )
+   ? "From file:", LEN( cBuffer )
+   ? "The strings are", iif( cLong == cBuffer, "equal", "not equal" )
+
+return nil
+
+
diff --git a/harbour/website/samples/mousetst.html b/harbour/website/samples/mousetst.html new file mode 100644 index 0000000000..6f505b2dfd --- /dev/null +++ b/harbour/website/samples/mousetst.html @@ -0,0 +1,135 @@ + + + + +Harbour Project - Samples -> mousetst + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Mouse sample support
Test mouse for Harbour Project.
   
 Files: 
  
 Screenshot: 
   
 

+mousetst sample running on Windows Vista
+
+
+mousetst sample running on Linux
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/mousetst.prg.html b/harbour/website/samples/mousetst.prg.html new file mode 100644 index 0000000000..690707b2f1 --- /dev/null +++ b/harbour/website/samples/mousetst.prg.html @@ -0,0 +1,289 @@ + +mousetst.prg + + + + + +
/*
+ * Test mouse for Harbour Project
+*/
+
+#include "inkey.ch"
+
+PROCEDURE main()
+LOCAL nR := 5, nC := 38
+
+   SET CURSOR OFF
+   ? "."; CLS
+   IF ! MPRESENT()
+      ? " No mouse present !"
+      QUIT
+   ENDIF
+
+   @  0, 0 TO MAXROW(),MAXCOL() DOUBLE
+   @ MAXROW()-2, 0 TO MAXROW(), 18 DOUBLE
+   @ MAXROW()-1,02 SAY "Y:"
+   @ MAXROW()-1,10 SAY "X:"
+
+   @ nR  , 02 SAY "Mouse Type    : "
+   @ nR+1, 02 SAY "Buttons number: "
+   @ nR+1, 18 SAY NUMBUTTONS() PICT "9"
+
+   IF NUMBUTTONS() == 2
+      @ nR, 18 SAY "Micros*ft mouse"
+   ELSE
+      @ nR, 18 SAY "Mouse System"
+   ENDIF
+
+   @ MAXROW()-2,68 TO MAXROW(),MAXCOL() DOUBLE
+   @ MAXROW()-1,70 SAY "Exit"
+
+   @ 10, 02 SAY " -- Checkings --  "
+   @ 11, 02 SAY "Window Boundaries :"
+   @ 12, 02 SAY "Press/Release But.:"
+   @ 13, 02 SAY "Double Click Left :"
+   @ 14, 02 SAY "Double Click Right:"
+
+   TEST1()
+
+   TEST2( nR, nC )
+
+@ 24,0 SAY ""
+
+SET CURSOR ON
+?
+RETURN
+
+
+******************
+FUNCTION MUPDATE()
+@ MAXROW()-1,04 SAY MROW() PICT "9999"
+@ MAXROW()-1,12 SAY MCOL() PICT "9999"
+RETURN 0
+
+
+*********************************************
+FUNCTION MINRECT( nTop, nLeft, nBott, nRight)
+LOCAL lInside := .F.
+IF MROW() >= nTop .AND. MROW() <= nBott
+   IF MCOL() >= nLeft .AND. MCOL() <= nRight
+      lInside := .T.
+   ENDIF
+ENDIF
+
+RETURN( lInside )
+
+
+
+***************
+PROCEDURE TEST1
+* First test: Check the boundaries of the main window
+LOCAL nKey
+
+   @ MAXROW()-3,25 SAY "Move the cursor until the UPPER side "
+   MUPDATE()
+
+   WHILE (nKey := INKEY( 0, INKEY_ALL )) != K_TAB
+      MUPDATE()
+      IF nKey == K_MOUSEMOVE
+         IF MROW() < 1
+            EXIT
+         ENDIF
+         CHECKEXIT()
+      ENDIF
+   END WHILE
+
+   @ MAXROW()-3,25 SAY "Move the cursor until the BOTTOM side  "
+
+   WHILE (nKey := INKEY( 0, INKEY_ALL )) != K_TAB
+      MUPDATE()
+      IF nKey == K_MOUSEMOVE
+         IF MROW() > MAXROW()-1
+            EXIT
+         ENDIF
+         CHECKEXIT()
+      ENDIF
+   END WHILE
+
+
+   @ MAXROW()-3,25 SAY "Move the cursor until the LEFT side  "
+
+   WHILE (nKey := INKEY( 0, INKEY_ALL )) != K_TAB
+      MUPDATE()
+      IF nKey == K_MOUSEMOVE
+         IF MCOL() < 1
+            EXIT
+         ENDIF
+         CHECKEXIT()
+      ENDIF
+   END WHILE
+
+
+   @ MAXROW()-3,25 SAY "Move the cursor until the RIGHT side "
+
+   WHILE (nKey := INKEY( 0, INKEY_ALL )) != K_TAB
+      MUPDATE()
+      IF nKey == K_MOUSEMOVE
+         IF MCOL() > MAXCOL()-1
+            EXIT
+         ENDIF
+         CHECKEXIT()
+      ENDIF
+   END WHILE
+
+  @ MAXROW()-3,20 SAY SPACE(50)
+  @ 11, 22 SAY "Pass"
+RETURN
+
+
+
+************************
+PROCEDURE TEST2 (nR, nC)
+* Second test: check the button pressing
+
+LOCAL cSkip := "", nKey, nPress := 0
+
+   @ nR   ,nC SAY  "+-------------------+"
+   @ nR+ 1,nC SAY  "¦ +---+       +---+ ¦"
+   @ nR+ 2,nC SAY  "¦ ¦   ¦       ¦   ¦ ¦"
+   @ nR+ 3,nC SAY  "¦ ¦   ¦       ¦   ¦ ¦"
+   @ nR+ 4,nC SAY  "¦ +---+       +---+ ¦"
+   @ nR+ 5,nC SAY  "+-------------------¦"
+   @ nR+ 6,nC SAY  "¦  Up          Up   ¦"
+   @ nR+ 7,nC SAY  "¦                   ¦"
+   @ nR+ 8,nC SAY  "¦                   ¦"
+   @ nR+ 9,nC SAY  "¦           Harbour ¦"
+   @ nR+10,nC SAY  "¦            mouse  ¦"
+   @ nR+11,nC SAY  "+-------------------+"
+
+   IF NUMBUTTONS() == 3
+      @ nR+ 1,nC SAY  "¦ +---+ +---+ +---+ ¦"
+      @ nR+ 2,nC SAY  "¦ ¦   ¦ ¦   ¦ ¦   ¦ ¦"
+      @ nR+ 3,nC SAY  "¦ ¦   ¦ ¦   ¦ ¦   ¦ ¦"
+      @ nR+ 4,nC SAY  "¦ +---+ +---+ +---+ ¦"
+      @ nR+ 6,nC SAY  "¦  Up    Up    Up   ¦"
+   ENDIF
+
+   SET(_SET_EVENTMASK, INKEY_ALL)
+
+   IF ! EMPTY( cSkip )
+      IF UPPER( cSkip ) == "BREAK"
+         SETCANCEL( .T. )
+      ELSE
+         SETCANCEL( .F. )
+      END IF
+   END IF
+
+   MUPDATE()
+
+   WHILE (nKey := INKEY( 0, INKEY_ALL )) != K_TAB
+
+      DO CASE
+         CASE nKey == K_MOUSEMOVE
+            * mouse has been moved
+            IF MINRECT( 19, 40, 22, 60)
+               MHIDE()
+            ELSE
+               MSHOW()
+            ENDIF
+            CHECKEXIT()
+            MUPDATE()
+
+         CASE nKey == K_LBUTTONDOWN
+            * Left mouse button was pushed
+            @ nR+2,nC+3 SAY "¦¦¦"
+            @ nR+3,nC+3 SAY "¦¦¦"
+            @ nR+6,nC+3 SAY "Down"
+            nPress ++
+
+         CASE nKey == K_LBUTTONUP
+            * Left mouse button was released
+            @ nR+2,nC+3 SAY "   "
+            @ nR+3,nC+3 SAY "   "
+            @ nR+6,nC+3 SAY "Up  "
+
+         CASE nKey == K_MBUTTONDOWN
+            * Middle mouse button was pushed
+            @ nR+2,nC+10 SAY "¦¦¦"
+            @ nR+3,nC+10 SAY "¦¦¦"
+            @ nR+6,nC+10 SAY "Down"
+            nPress ++
+
+         CASE nKey == K_MBUTTONUP
+            * Middle mouse button was released
+            @ nR+6,nC+10 SAY "Up  "
+
+         CASE nKey == K_RBUTTONDOWN
+            * Right mouse button was pushed
+            @ nR+2,nC+15 SAY "¦¦¦"
+            @ nR+3,nC+15 SAY "¦¦¦"
+            @ nR+6,nC+15 SAY "Down"
+            nPress ++
+
+         CASE nKey == K_RBUTTONUP
+            * Right mouse button was released
+            @ nR+2,nC+15 SAY "   "
+            @ nR+3,nC+15 SAY "   "
+            @ nR+6,nC+15 SAY "Up  "
+
+         CASE nKey == K_LDBLCLK
+            * "The left mouse button was double-clicked."
+            @ 13, 22 SAY "Pass"
+
+         CASE nKey == K_RDBLCLK
+            * "The right mouse button was double-clicked."
+            @ 14, 22 SAY "Pass"
+
+         OTHERWISE
+            @ MAXROW(),20 SAY "A keyboard key was pressed: "
+            @ MAXROW(),48 SAY nKey
+            @ MAXROW(),58 SAY iif( nKey >= 32 .AND. nKey <= 255, CHR( nKey ), "" )
+      END CASE
+
+      IF nPress > 6
+         EXIT
+      ENDIF
+
+   END WHILE
+
+   @ MAXROW()-3,20 SAY SPACE(50)
+   @ 12, 22 SAY "Pass"
+
+   SET CURSOR ON
+
+   @ 20,01 SAY "MOUSE TEST FINISH!"
+   ?
+RETURN
+
+
+
+
+PROCEDURE CHECKEXIT()
+IF ! MINRECT( MAXROW()-2, MAXCOL()-11, MAXROW(), MAXCOL() )
+    RETURN
+ENDIF
+SET CURSOR ON
+CLS
+? "MOUSE TEST FINISH!"
+?
+QUIT
+
+
diff --git a/harbour/website/samples/onidle.html b/harbour/website/samples/onidle.html new file mode 100644 index 0000000000..dab31517ba --- /dev/null +++ b/harbour/website/samples/onidle.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> onidle + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
OnIdle sample
This demo demonstrates how to add various tasks into background in Harbour.
   
 Files: 
  
 Screenshot: 
   
 

+onidle sample running on Windows
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/onidle.prg.html b/harbour/website/samples/onidle.prg.html new file mode 100644 index 0000000000..af18593018 --- /dev/null +++ b/harbour/website/samples/onidle.prg.html @@ -0,0 +1,98 @@ + +onidle.prg + + + + + +
#include "hbmemory.ch"
+
+FUNCTION MAIN
+LOCAL nH1, nH2, nH3, nH4
+LOCAL n:=0
+LOCAL aSign:={"|", "/", "-", "\" }
+LOCAL nPrev:=SECONDS()
+
+  CLS
+  ? "   Time:        Memory used:                          Miliseconds elapsed"
+  ?
+  ? "Can you see it ??? :) Press any key or wait 30 seconds"
+  ?
+  ?
+  @ 10,2 SAY "Memory before TEST() call" + STR( MEMORY(HB_MEM_USED) )
+  TEST()
+  @ 11,2 SAY "Memory after TEST() and before collecting" + STR( MEMORY(HB_MEM_USED) )
+  HB_GCALL()
+  @ 12,2 SAY "Memory after collecting" + STR( MEMORY(HB_MEM_USED) )
+  nH1 := HB_IDLEADD( {|| DEVPOS(0,01), DEVOUT( TIME() ) } )
+  nH2 := HB_IDLEADD( {|| DEVPOS(0,21), TEST(), DEVOUT( MEMORY(HB_MEM_USED) ) } )
+  nH3 := HB_IDLEADD( {|| DEVPOS(0,41), IIF(n==4,n:=1,n++),DEVOUT(aSign[n]) } )
+  nH4 := HB_IDLEADD( {|| DEVPOS(0,61), DEVOUT( 1000*(SECONDS()-nPrev) ), nPrev:=SECONDS() } )
+
+  ? VALTYPE(nH1), nH1, VALTYPE(nH2), nH2, VALTYPE(nH3), nH3, VALTYPE(nH4), nH4
+  
+  INKEY( 30 )
+  IF !EMPTY(nH3)
+     @ 14,2 SAY "Delete task 3: " + HB_VALTOSTR(nH3)
+     HB_IDLEDEL( nH3 )
+  ENDIF
+  IF !EMPTY(nH2)
+     @ 15,2 SAY "Delete task 2: " + HB_VALTOSTR(nH2)
+     HB_IDLEDEL( nH2 )
+  ENDIF
+  IF !EMPTY(nH1)
+     @ 16,2 SAY "Delete task 1: " + HB_VALTOSTR(nH1)
+     HB_IDLEDEL( nH1 )
+  ENDIF
+  IF !EMPTY(nH4)
+     @ 17,2 SAY "Delete task 4: " + HB_VALTOSTR(nH4)
+     HB_IDLEDEL( nH4 )
+  ENDIF
+
+  @ 18,2 SAY "Memory after idle states" + STR( MEMORY(HB_MEM_USED) )
+  HB_GCALL()
+  @ 19,2 SAY "Memory after collecting" + STR( MEMORY(HB_MEM_USED) )
+
+RETURN 1
+
+PROC TEST()
+LOCAL a, b, c
+LOCAL cb
+
+  a := ARRAY( 3 )
+  b := ARRAY( 3 )
+  c := ARRAY( 3 )
+  a[1] :=a
+  a[2] :=b
+  a[3] :=c
+  b[1] :=a
+  b[2] :=b
+  b[3] :=c
+  c[1] :=a
+  c[2] :=b
+  c[3] :=c
+
+  cb := {|x| x:=cb}
+  EVAL( cb )
+
+RETURN
+
+
+ diff --git a/harbour/website/samples/parseini.html b/harbour/website/samples/parseini.html new file mode 100644 index 0000000000..270cb1d3fa --- /dev/null +++ b/harbour/website/samples/parseini.html @@ -0,0 +1,136 @@ + + + + +Harbour Project - Samples -> parseini + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Test for Ini file reading/writing
Test for Ini files reading/writing using native Harbour functions.
   
 Files: 
  
 Screenshot: 
   
 

+ parseini sample running on Windows Vista
+
+
+ parseini sample running on Linux
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/parseini.ini.html b/harbour/website/samples/parseini.ini.html new file mode 100644 index 0000000000..ca87aa040c --- /dev/null +++ b/harbour/website/samples/parseini.ini.html @@ -0,0 +1,59 @@ + +parseini.ini + + + + +
; Demo INI file
+;
+; (showing another style of comment here )
+
+# This is the MAIN section
+
+Procedure = Demo ini file
+Name = Parseini.ini
+
+#including a subfile
+include parseins.ini
+
+[Files]  #Declaring files section
+Path=/home/pub
+Filename: foobar.pdf    # variable declared with ':'
+
+Long= A Data ||
+   Spreading ||
+   On varius lines ||
+   here.
+   
+[Printers]
+LPT1 = \\HEAD\Lexmark
+
+#including a subfile
+include parseins.ini
+
+#invalid line
+An invalid line
+
+#
+# End!
+#
+
+
+ diff --git a/harbour/website/samples/parseini.prg.html b/harbour/website/samples/parseini.prg.html new file mode 100644 index 0000000000..6c96d774be --- /dev/null +++ b/harbour/website/samples/parseini.prg.html @@ -0,0 +1,130 @@ + +parseini.prg + + + + + +
******************************************************************
+* Test for Ini file reading/writing
+*
+
+PROCEDURE Main( cName )
+   LOCAL aIni, aSect
+   LOCAL cSection
+   LOCAL cKey
+   LOCAL nRow := 1
+
+   set color to w+/b
+   CLEAR SCREEN
+   @nRow++,20 SAY "H A R B O U R - .ini file parser test"
+   @nRow++,5 SAY "Call from command line using a .ini filename as the only parameter"
+   nRow++
+
+   IF Empty( cName )
+      cName := "parseini.ini"
+      @nRow++, 5 SAY "Using default parseini.ini file"
+   ENDIF
+
+   aIni := hb_IniRead( cName )
+
+   @nRow, 0
+
+   ? "Content of " + cName
+
+   IF Empty( aIni )
+      ? "Not a valid .ini file!"
+   ELSE
+      FOR EACH cSection IN aIni:Keys
+         ?
+         ? "Section [" + cSection + "]"
+         aSect := aIni[ cSection ]
+
+         FOR EACH cKey IN aSect:Keys
+            ? cKey + " = " + aSect[ cKey ]
+         NEXT
+      NEXT
+   ENDIF
+
+   ?
+   ? "Adding section 'Added', with key NEW = new"
+   aIni[ "Added" ] := hb_Hash()
+   aIni[ "Added" ][ "NEW" ] := "new"
+
+   ? "Writing output to parseini_out.ini"
+   IF hb_IniWrite( "parseini_out.ini", aIni, "#Generated file; don't touch", "#End of file")
+      ? "File written"
+   ELSE
+      ? "Can't write file"
+   ENDIF
+   ?
+   ? "Press any key to next text."
+   Inkey(0)
+   ?
+   ? "REPEATING TESTS WITHOUT AUTOMATIC MAIN SECTION"
+
+   aIni := hb_IniRead( cName, /*default case*/ , /*Default key indicators */ , .F. )
+
+   @nRow, 0
+
+   ? "Content of " + cName
+
+   IF Empty( aIni )
+      ? "Not a valid .ini file!"
+   ELSE
+      FOR EACH cSection IN aIni:Keys
+         /* Now (without automatic main), toplevel options may be in the root hash */
+         aSect := aIni[ cSection ]
+
+         IF HB_IsHash( aSect )
+            /* It's a section */
+            ?
+            ? "Section [" + cSection + "]"
+
+            FOR EACH cKey IN aSect:Keys
+               ? cKey + " = " + aSect[ cKey ]
+            NEXT
+         ELSE
+            /* It's a toplevel option */
+            ? "TOPLEVEL option:", cSection + " = " + aSect
+         ENDIF
+      NEXT
+   ENDIF
+
+   ?
+   ? "Adding section 'Added', with key NEW = new"
+   aIni[ "Added" ] := hb_Hash()
+   aIni[ "Added" ][ "NEW" ] := "new"
+
+   ? "Writing output to parseini_out1.ini"
+   IF hb_IniWrite( "parseini_out1.ini", aIni,;
+         "#Generated file without main auto section; don't touch", "#End of file",;
+         .F. )
+      ? "File written"
+   ELSE
+      ? "Can't write file"
+   ENDIF
+   ?
+   ? "Press any key to next text."
+   Inkey(0)
+
+RETURN
+
+
diff --git a/harbour/website/samples/screenshots/array16_w32.png b/harbour/website/samples/screenshots/array16_w32.png new file mode 100644 index 0000000000..1e753a7366 Binary files /dev/null and b/harbour/website/samples/screenshots/array16_w32.png differ diff --git a/harbour/website/samples/screenshots/arreval_w32.png b/harbour/website/samples/screenshots/arreval_w32.png new file mode 100644 index 0000000000..bbe765e381 Binary files /dev/null and b/harbour/website/samples/screenshots/arreval_w32.png differ diff --git a/harbour/website/samples/screenshots/begin.png b/harbour/website/samples/screenshots/begin.png new file mode 100644 index 0000000000..e622dc403a Binary files /dev/null and b/harbour/website/samples/screenshots/begin.png differ diff --git a/harbour/website/samples/screenshots/byref_w32.png b/harbour/website/samples/screenshots/byref_w32.png new file mode 100644 index 0000000000..34373bfb0e Binary files /dev/null and b/harbour/website/samples/screenshots/byref_w32.png differ diff --git a/harbour/website/samples/screenshots/codebl.png b/harbour/website/samples/screenshots/codebl.png new file mode 100644 index 0000000000..265163e578 Binary files /dev/null and b/harbour/website/samples/screenshots/codebl.png differ diff --git a/harbour/website/samples/screenshots/codebloc.png b/harbour/website/samples/screenshots/codebloc.png new file mode 100644 index 0000000000..db9ce5aeb0 Binary files /dev/null and b/harbour/website/samples/screenshots/codebloc.png differ diff --git a/harbour/website/samples/screenshots/dates3_w32.png b/harbour/website/samples/screenshots/dates3_w32.png new file mode 100644 index 0000000000..cc86cf0dd1 Binary files /dev/null and b/harbour/website/samples/screenshots/dates3_w32.png differ diff --git a/harbour/website/samples/screenshots/dosshell_linux.png b/harbour/website/samples/screenshots/dosshell_linux.png new file mode 100644 index 0000000000..4df79a9c2a Binary files /dev/null and b/harbour/website/samples/screenshots/dosshell_linux.png differ diff --git a/harbour/website/samples/screenshots/dosshell_w32.png b/harbour/website/samples/screenshots/dosshell_w32.png new file mode 100644 index 0000000000..8ed2e2e983 Binary files /dev/null and b/harbour/website/samples/screenshots/dosshell_w32.png differ diff --git a/harbour/website/samples/screenshots/foreach_w32.png b/harbour/website/samples/screenshots/foreach_w32.png new file mode 100644 index 0000000000..2624128305 Binary files /dev/null and b/harbour/website/samples/screenshots/foreach_w32.png differ diff --git a/harbour/website/samples/screenshots/hello_linux.png b/harbour/website/samples/screenshots/hello_linux.png new file mode 100644 index 0000000000..07dc27e238 Binary files /dev/null and b/harbour/website/samples/screenshots/hello_linux.png differ diff --git a/harbour/website/samples/screenshots/hello_w32.png b/harbour/website/samples/screenshots/hello_w32.png new file mode 100644 index 0000000000..02c61ccc95 Binary files /dev/null and b/harbour/website/samples/screenshots/hello_w32.png differ diff --git a/harbour/website/samples/screenshots/initexit_w32.png b/harbour/website/samples/screenshots/initexit_w32.png new file mode 100644 index 0000000000..a184f38fbc Binary files /dev/null and b/harbour/website/samples/screenshots/initexit_w32.png differ diff --git a/harbour/website/samples/screenshots/longdev_linux.png b/harbour/website/samples/screenshots/longdev_linux.png new file mode 100644 index 0000000000..adfe8f2c8f Binary files /dev/null and b/harbour/website/samples/screenshots/longdev_linux.png differ diff --git a/harbour/website/samples/screenshots/mousetst_linux.png b/harbour/website/samples/screenshots/mousetst_linux.png new file mode 100644 index 0000000000..36ef33fba9 Binary files /dev/null and b/harbour/website/samples/screenshots/mousetst_linux.png differ diff --git a/harbour/website/samples/screenshots/mousetst_w32.png b/harbour/website/samples/screenshots/mousetst_w32.png new file mode 100644 index 0000000000..5967747417 Binary files /dev/null and b/harbour/website/samples/screenshots/mousetst_w32.png differ diff --git a/harbour/website/samples/screenshots/onidle_w32.png b/harbour/website/samples/screenshots/onidle_w32.png new file mode 100644 index 0000000000..5d66745a46 Binary files /dev/null and b/harbour/website/samples/screenshots/onidle_w32.png differ diff --git a/harbour/website/samples/screenshots/parseini_linux.png b/harbour/website/samples/screenshots/parseini_linux.png new file mode 100644 index 0000000000..e22618cb27 Binary files /dev/null and b/harbour/website/samples/screenshots/parseini_linux.png differ diff --git a/harbour/website/samples/screenshots/parseini_w32.png b/harbour/website/samples/screenshots/parseini_w32.png new file mode 100644 index 0000000000..6b4e7158a6 Binary files /dev/null and b/harbour/website/samples/screenshots/parseini_w32.png differ diff --git a/harbour/website/samples/screenshots/switch_w32.png b/harbour/website/samples/screenshots/switch_w32.png new file mode 100644 index 0000000000..3514654c97 Binary files /dev/null and b/harbour/website/samples/screenshots/switch_w32.png differ diff --git a/harbour/website/samples/screenshots/testbrdb_linux.png b/harbour/website/samples/screenshots/testbrdb_linux.png new file mode 100644 index 0000000000..5619df72e3 Binary files /dev/null and b/harbour/website/samples/screenshots/testbrdb_linux.png differ diff --git a/harbour/website/samples/screenshots/testbrdb_w32.png b/harbour/website/samples/screenshots/testbrdb_w32.png new file mode 100644 index 0000000000..edca5f25a1 Binary files /dev/null and b/harbour/website/samples/screenshots/testbrdb_w32.png differ diff --git a/harbour/website/samples/screenshots/testbrw_linux.png b/harbour/website/samples/screenshots/testbrw_linux.png new file mode 100644 index 0000000000..68c193b759 Binary files /dev/null and b/harbour/website/samples/screenshots/testbrw_linux.png differ diff --git a/harbour/website/samples/screenshots/testbrw_w32.png b/harbour/website/samples/screenshots/testbrw_w32.png new file mode 100644 index 0000000000..ee6cfbdb07 Binary files /dev/null and b/harbour/website/samples/screenshots/testbrw_w32.png differ diff --git a/harbour/website/samples/screenshots/testcgi.gif b/harbour/website/samples/screenshots/testcgi.gif new file mode 100644 index 0000000000..e95d10d937 Binary files /dev/null and b/harbour/website/samples/screenshots/testcgi.gif differ diff --git a/harbour/website/samples/screenshots/testhtml.png b/harbour/website/samples/screenshots/testhtml.png new file mode 100644 index 0000000000..52a8805d68 Binary files /dev/null and b/harbour/website/samples/screenshots/testhtml.png differ diff --git a/harbour/website/samples/screenshots/testidle_w32.png b/harbour/website/samples/screenshots/testidle_w32.png new file mode 100644 index 0000000000..b446dc8486 Binary files /dev/null and b/harbour/website/samples/screenshots/testidle_w32.png differ diff --git a/harbour/website/samples/screenshots/tstmacro.png b/harbour/website/samples/screenshots/tstmacro.png new file mode 100644 index 0000000000..e4e6082d93 Binary files /dev/null and b/harbour/website/samples/screenshots/tstmacro.png differ diff --git a/harbour/website/samples/switch.html b/harbour/website/samples/switch.html new file mode 100644 index 0000000000..73e3bb6930 --- /dev/null +++ b/harbour/website/samples/switch.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> switch + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Switch support
This example demonstrates how to use the SWITCH to execute one or more blocks of statements.
   
 Files: 
  
 Screenshot: 
   
 

+switch sample running on Windows
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/switch.prg.html b/harbour/website/samples/switch.prg.html new file mode 100644 index 0000000000..15e78c832e --- /dev/null +++ b/harbour/website/samples/switch.prg.html @@ -0,0 +1,142 @@ + +switch.prg + + + + + +
#ifdef __XHARBOUR__  
+   #define OTHERWISE DEFAULT
+#endif   
+
+PROCEDURE MAIN
+LOCAL a:=1
+PRIVATE b:="b"
+
+#ifndef __XHARBOUR__  
+   SWITCH a
+   END
+#endif
+
+   ?
+   ? "1111111111111111111111111111111"
+   SWITCH a
+   CASE 1
+      ? "FOUND: 1"
+   END
+
+   ?
+   ? "2222222222222222222222222222222"
+   SWITCH a
+   CASE 1
+      ? "FOUND: 1"
+      EXIT
+   CASE "2"
+      ? a
+   END
+
+   ?
+   ? "3333333333333333333333333333333"
+   SWITCH a
+   CASE 1
+      ? "FOUND: 1"
+   CASE "2"
+      ? "FOUND: 2"
+   OTHERWISE
+      ? "other"
+   END
+
+#ifndef __XHARBOUR__  
+   ?
+   ? "44444444444444444444444444444444444"
+   SWITCH a
+   OTHERWISE 
+      ? "OTHERWISE"
+   END
+#endif
+
+   ?
+   ? "55555555555555555555555555555555555"
+   a := 'EE'
+#ifndef __XHARBOUR__  
+   SWITCH a
+   CASE 11
+      ? "11"
+      exit
+      
+   CASE 'CCCC'+'DDDD'
+      ? a+a
+      EXIT
+
+   CASE "a&b"
+   CASE 1+1
+   CASE {11111111,22222222222}[1]
+   CASE 1+1+1
+      ? "3"
+      EXIT
+      
+   CASE 1+1*3
+   CASE 123+12*4-1*4+2
+   CASE 1-4
+      ? "4"
+      EXIT
+   CASE 123456789
+   CASE 0
+      EXIT
+   CASE 'AAAA'
+   CASE 'BBBBB'
+      ? a
+      EXIT
+   CASE CHR(12)+CHR(15)
+      ? "CHR()"
+      EXIT
+   OTHERWISE
+      ? "NOT FOUND: running OTHER"
+   END
+#endif
+
+   ?
+   ? "666666666666666666666666666666666666666666"
+   a := "2"
+   SWITCH a
+   CASE 1
+      ? "FOUND: 1"
+      ? a
+      EXIT
+   CASE "2"
+      SWITCH a+a
+      CASE 1
+         ? "Nested FOUND 1"
+         EXIT
+      CASE "22"
+         ? "Nested FOUND: 22"
+         EXIT
+      OTHERWISE
+         ? "Nested OTHERWISE"
+      END
+      ?? "In CASE 1"
+      ? a
+   END
+
+   ? "========================================="
+
+RETURN
+
+
diff --git a/harbour/website/samples/testbrdb.html b/harbour/website/samples/testbrdb.html new file mode 100644 index 0000000000..84b4187d01 --- /dev/null +++ b/harbour/website/samples/testbrdb.html @@ -0,0 +1,125 @@ + + + + +Harbour Project - Samples -> testbrdb + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Browse() function demo
Example to test Browse() function features.
 Files: 
  
 

Screenshots:

 
 

+ testbrdb sample running on Windows Vista
+
+
+ testbrdb sample running on Linux
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/testbrdb.prg.html b/harbour/website/samples/testbrdb.prg.html new file mode 100644 index 0000000000..6cc005a1f2 --- /dev/null +++ b/harbour/website/samples/testbrdb.prg.html @@ -0,0 +1,41 @@ + +testbrdb.prg + + + + + +
// Testing Browse()
+
+function Main()
+   LOCAL cColor
+
+   cColor := SETCOLOR("W+/B")
+   CLS
+
+   USE test
+   Browse()
+
+   SETCOLOR(cColor)
+   CLS
+
+return nil
+
+
diff --git a/harbour/website/samples/testbrw.html b/harbour/website/samples/testbrw.html new file mode 100644 index 0000000000..22c5364814 --- /dev/null +++ b/harbour/website/samples/testbrw.html @@ -0,0 +1,125 @@ + + + + +Harbour Project - Samples -> testbrw + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
TBrowse() function demo
Harbour Class TBrowse and TBColumn sample.
 Files: 
  
 

Screenshots:

 
 

+ testbrw sample running on Windows Vista
+
+
+ testbrw sample running on Linux
+
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/testbrw.prg.html b/harbour/website/samples/testbrw.prg.html new file mode 100644 index 0000000000..9696d7499c --- /dev/null +++ b/harbour/website/samples/testbrw.prg.html @@ -0,0 +1,169 @@ + +testbrw.prg + + + + + +
// Harbour Class TBrowse and TBColumn sample
+
+#include "inkey.ch"
+
+function Main()
+
+   local oBrowse := TBrowseNew( 5, 5, 16, 30 )
+   local aTest0  := { "This", "is", "a", "browse", "on", "an", "array", "test", "with", "a", "long", "data" }
+   local aTest1  := { 1, 2, 3, 4, 5, 6, 7, 8, 10000, -1000, 54, 456342 }
+   local aTest2  := { date(), date()+4, date()+56, date()+14, date()+5, date()+6, date()+7, date()+8, date()+10000, date()-1000, date()-54, date()+456342 }
+   local aTest3  := { .t., .f., .t., .t., .f., .f., .t., .f., .t., .t., .f., .f. }
+   local n       := 1
+   local nKey
+   local lEnd    := .f.
+   local nCursor
+   local cColor
+   local nRow, nCol
+   local nTmpRow, nTmpCol
+
+   oBrowse:colorSpec     = "W+/B, N/BG"
+   oBrowse:ColSep        = "¦"
+   oBrowse:HeadSep        = "Ð-"
+   oBrowse:FootSep        = "¤-"
+   oBrowse:GoTopBlock    = { || n := 1 }
+   oBrowse:GoBottomBlock = { || n := Len( aTest0 ) }
+   oBrowse:SkipBlock     = { | nSkip, nPos | nPos := n,;
+                             n := If( nSkip > 0, Min( Len( aTest0 ), n + nSkip ),;
+                             Max( 1, n + nSkip )), n - nPos }
+
+   oBrowse:AddColumn( TBColumnNew( "First",  { || n } ) )
+   oBrowse:AddColumn( TBColumnNew( "Second", { || aTest0[ n ] } ) )
+   oBrowse:AddColumn( TBColumnNew( "Third",  { || aTest1[ n ] } ) )
+   oBrowse:AddColumn( TBColumnNew( "Forth",  { || aTest2[ n ] } ) )
+   oBrowse:AddColumn( TBColumnNew( "Fifth",  { || aTest3[ n ] } ) )
+   oBrowse:GetColumn(1):Footing = 'Number'
+   oBrowse:GetColumn(2):Footing = 'Strins'
+
+   oBrowse:GetColumn(2):Picture := '@!'
+
+   oBrowse:GetColumn(3):Footing = 'Number'
+   oBrowse:GetColumn(3):Picture := '999,999.99'
+   oBrowse:GetColumn(4):Footing = 'Dates'
+   oBrowse:GetColumn(5):Footing = 'Logical'
+   // needed since I've changed some columns _after_ I've added them to TBrowse object
+   oBrowse:Configure()
+
+   Alert( oBrowse:ClassName() )
+   Alert( oBrowse:GetColumn( 1 ):ClassName() )
+
+   oBrowse:Freeze = 1
+   nCursor := SetCursor( 0 )
+   cColor := SetColor( "W+/B" )
+   nRow := Row()
+   nCol := Col()
+   @ 4,4,17,31 BOX "+-+¦+-+¦ "
+#ifdef HB_COMPAT_C53
+ oBrowse:Setkey(0,{|ob,nkey| Defproc(ob,nKey)})
+while .t.
+    oBrowse:ForceStable()
+ if (oBrowse:applykey(inkey(0))== -1)
+   exit
+endif
+enddo
+#else
+While !lEnd
+      oBrowse:ForceStable()
+
+      nKey = InKey( 0 )
+
+      do case
+         case nKey == K_ESC
+              SetPos( 17, 0 )
+              lEnd = .t.
+
+         case nKey == K_DOWN
+              oBrowse:Down()
+
+         case nKey == K_UP
+              oBrowse:Up()
+
+         case nKey == K_LEFT
+              oBrowse:Left()
+
+         case nKey == K_RIGHT
+              oBrowse:Right()
+
+         case nKey = K_PGDN
+              oBrowse:pageDown()
+
+         case nKey = K_PGUP
+              oBrowse:pageUp()
+
+         case nKey = K_CTRL_PGUP
+              oBrowse:goTop()
+
+         case nKey = K_CTRL_PGDN
+              oBrowse:goBottom()
+
+         case nKey = K_HOME
+              oBrowse:home()
+
+         case nKey = K_END
+              oBrowse:end()
+
+         case nKey = K_CTRL_LEFT
+              oBrowse:panLeft()
+
+         case nKey = K_CTRL_RIGHT
+              oBrowse:panRight()
+
+         case nKey = K_CTRL_HOME
+              oBrowse:panHome()
+
+         case nKey = K_CTRL_END
+              oBrowse:panEnd()
+
+         case nKey = K_TAB
+              nTmpRow := ROW()
+              nTmpCol := COL()
+              @ 0, 0 SAY TIME()
+              DevPos( nTmpRow, nTmpCol )
+
+      endcase
+      
+   end
+#endif
+   DevPos( nRow, nCol )
+   SetColor( cColor )
+   SetCursor( nCursor )
+
+return nil
+#ifdef HB_COMPAT_C53
+function  defproc(ob,nkey)
+Local nTmpRow,nTmpCol
+        if nKey = K_TAB
+              nTmpRow := ROW()
+              nTmpCol := COL()
+              @ 0, 0 SAY TIME()
+              DevPos( nTmpRow, nTmpCol )
+            ob:Refreshall()
+        endif
+        return 1
+#endif
+
+
diff --git a/harbour/website/samples/testcgi.html b/harbour/website/samples/testcgi.html new file mode 100644 index 0000000000..fea3cf0500 --- /dev/null +++ b/harbour/website/samples/testcgi.html @@ -0,0 +1,127 @@ + + + + +Harbour Project - Samples -> testcgi + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Harbour Test of a CGI/HTML-Generator class
This example shows how to work with Web pages using a custom class to manipulate data coming from a file and returns it to web browser.
   
 Files: 
  
 Screenshot: 
 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/testcgi.prg.html b/harbour/website/samples/testcgi.prg.html new file mode 100644 index 0000000000..ffe4b6e714 --- /dev/null +++ b/harbour/website/samples/testcgi.prg.html @@ -0,0 +1,495 @@ + +testcgi.prg + + + + + +
/*
+ *
+ * TestCGI.PRG
+ * Harbour Test of a CGI/HTML-Generator class.
+ *
+ * 1999/05/30  First implementation.
+ *
+ *             Tips: - Use ShowResults to make dynamic html (to test dynamic
+ *                     results, put the exe file on CGI-BIN dir or equivalent);
+ *                   - Use SaveToFile to make static html page
+ *
+ * 1999/05/31  Initial CGI functionality.
+ * 1999/06/01  Translated %nn to correct chars.
+ * 1999/06/02  Dynamic TAG matching routines (inspired on Delphi).
+ *             First attempt to convert Delphi's ISAPI dll of WebSites'
+ *             Function List
+ *             (See http://www.flexsys-ci.com/harbour-project/functions.htm)
+ * 1999/06/11  List can be viewed online at
+ *             http://www.flexsys-ci.com/cgi-bin/testcgi.exe
+ * 1999/07/29  Changed qOut() calls to OutStd() calls.
+ *
+ */
+
+#define CGI_SERVER_SOFTWARE     01
+#define CGI_SERVER_NAME         02
+#define CGI_GATEWAY_INTERFACE   03
+#define CGI_SERVER_PROTOCOL     04
+#define CGI_SERVER_PORT         05
+#define CGI_REQUEST_METHOD      06
+#define CGI_HTTP_ACCEPT         07
+#define CGI_HTTP_USER_AGENT     08
+#define CGI_HTTP_REFERER        09
+#define CGI_PATH_INFO           10
+#define CGI_PATH_TRANSLATED     11
+#define CGI_SCRIPT_NAME         12
+#define CGI_QUERY_STRING        13
+#define CGI_REMOTE_HOST         14
+#define CGI_REMOTE_ADDR         15
+#define CGI_REMOTE_USER         16
+#define CGI_AUTH_TYPE           17
+#define CGI_CONTENT_TYPE        18
+#define CGI_CONTENT_LENGTH      19
+#define CGI_ANNOTATION_SERVER   20
+
+#define IF_BUFFER 65535
+
+FUNCTION Main()
+
+   LOCAL oHTML := THTML():New()
+   LOCAL hFile, nPos, cString, cBuf, i, cTable, cLine
+
+   oHTML:SetHTMLFile( "function.cfm" )
+
+   hFile := fOpen( "list.txt", 0 )
+
+   cString := space( IF_BUFFER )
+   cBuf    := ""
+   cTable  := ""
+
+   // Builds dynamic table replacement
+   WHILE hFile != -1 .AND. (nPos := fRead( hFile, @cString, IF_BUFFER )) > 0
+      i := 1
+      DO WHILE i <= nPos
+
+         IF substr( cString, i, 1 ) = chr( 13 )
+            i := i + 1
+            cLine := cBuf
+            cBuf  := ""
+
+            IF left( cLine, 1 ) <> ';'
+               cTable += '<TR>' + chr(10)+chr(13) + ;
+                 '<TD WIDTH="50%"><FONT SIZE="2" FACE="Tahoma">' +                 ;
+                 ParseString( cLine, ';', 1 ) + '</FONT></TD>' + chr(10)+chr(13) + ;
+                 '<TD WIDTH="16%">' +                                              ;
+                 if( ParseString( cLine, ';', 2 ) = 'R',                           ;
+                    '<CENTER><IMG SRC="images/purple-m.gif">',                     ;
+                    '&nbsp' ) +                                                    ;
+                 '</TD>' + chr(10)+chr(13) +                                       ;
+                 '<TD WIDTH="16%">' +                                              ;
+                 if( ParseString( cLine, ';', 2 ) = 'S',                           ;
+                    '<CENTER><IMG SRC="images/purple-m.gif">',                     ;
+                    '&nbsp' ) +                                                    ;
+                 '</TD>' + chr(10)+chr(13) +                                       ;
+                 '<TD WIDTH="16%">' +                                              ;
+                 if( ParseString( cLine, ';', 2 ) = 'N',                           ;
+                    '<CENTER><IMG SRC="images/purple-m.gif">',                     ;
+                    '&nbsp' ) +                                                    ;
+                 '</TD>' + chr(10)+chr(13) +                                       ;
+                 '</TR>'
+            ENDIF
+         ELSE
+            cBuf := cBuf + substr( cString, i, 1 )
+         ENDIF
+
+         i++
+      ENDDO
+   ENDDO
+
+   fClose( hFile )
+
+   oHTML:AddReplaceTag( "Functions", cTable )
+   oHTML:Generate()
+
+   // Uncomment the following if you don't have a Web Server to test
+   // this sample
+
+//   oHTML:SaveToFile( "test.htm" )
+
+   // If the above is uncommented, you may comment this line:
+
+   oHTML:ShowResult()
+
+   RETURN( NIL )
+
+FUNCTION ParseString( cString, cDelim, nRet )
+
+   LOCAL cBuf, aElem, nPosFim, nSize, i
+
+   nSize := len( cString ) - len( StrTran( cString, cDelim, '' ) ) + 1
+   aElem := array( nSize )
+
+   cBuf := cString
+   i := 1
+   FOR i := 1 TO nSize
+      nPosFim := at( cDelim, cBuf )
+
+      IF nPosFim > 0
+         aElem[i] := substr( cBuf, 1, nPosFim - 1 )
+      ELSE
+         aElem[i] := cBuf
+      ENDIF
+
+      cBuf := substr( cBuf, nPosFim + 1, len( cBuf ) )
+
+   NEXT i
+
+   RETURN( aElem[ nRet ] )
+
+FUNCTION Hex2Dec( cHex )
+
+   LOCAL aHex := { { "0", 00 }, ;
+                   { "1", 01 }, ;
+                   { "2", 02 }, ;
+                   { "3", 03 }, ;
+                   { "4", 04 }, ;
+                   { "5", 05 }, ;
+                   { "6", 06 }, ;
+                   { "7", 07 }, ;
+                   { "8", 08 }, ;
+                   { "9", 09 }, ;
+                   { "A", 10 }, ;
+                   { "B", 11 }, ;
+                   { "C", 12 }, ;
+                   { "D", 13 }, ;
+                   { "E", 14 }, ;
+                   { "F", 15 } }
+   LOCAL nRet
+   LOCAL nRes
+
+   nRet := ascan( aHex, { |x| upper( x[1] ) = upper( left( cHex, 1 ) ) } )
+   nRes := aHex[nRet, 2] * 16
+   nRet := ascan( aHex, { |x| upper( x[1] ) = upper( right( cHex, 1 ) ) } )
+   nRes += aHex[nRet, 2]
+
+   RETURN( nRes )
+
+/*-------------------------------------------------------------------------*/
+
+FUNCTION THTML
+
+   STATIC oClass
+
+   IF oClass == NIL
+      oClass = HBClass():New( "THTML" )
+
+      oClass:AddData( "cTitle" )                       // Page Title
+      oClass:AddData( "cBody" )                        // HTML Body Handler
+      oClass:AddData( "cBGColor" )                     // Background Color
+      oClass:AddData( "cLinkColor" )                   // Link Color
+      oClass:AddData( "cvLinkColor" )                  // Visited Link Color
+      oClass:AddData( "cContent" )                     // Page Content Handler
+
+      oClass:AddData( "aCGIContents" )
+      oClass:AddData( "aQueryFields" )
+      oClass:AddData( "cHTMLFile" )
+      oClass:AddData( "aReplaceTags" )
+
+      oClass:AddMethod( "New",        @New() )         // New Method
+      oClass:AddMethod( "SetTitle",   @SetTitle() )    // Set Page Title
+      oClass:AddMethod( "AddHead",    @AddHead() )     // Add <H1> Header
+      oClass:AddMethod( "AddLink",    @AddLink() )     // Add Hyperlink
+      oClass:AddMethod( "AddPara",    @AddPara() )     // Add Paragraph
+      oClass:AddMethod( "SaveToFile", @SaveToFile() )  // Saves Content to File
+      oClass:AddMethod( "ShowResult", @ShowResult() )  // Show Result - SEE Fcn
+      oClass:AddMethod( "Generate",   @Generate() )    // Generate HTML
+      oClass:AddMethod( "SetHTMLFile",@SetHTMLFile() ) // Sets source HTML file
+
+      oClass:AddMethod( "ProcessCGI",    @ProcessCGI() )
+      oClass:AddMethod( "GetCGIParam",   @GetCGIParam() )
+      oClass:AddMethod( "QueryFields",   @QueryFields() )
+      oClass:AddMethod( "AddReplaceTag", @AddReplaceTag() )
+
+      oClass:Create()
+
+   ENDIF
+
+   RETURN( oClass:Instance() )
+
+STATIC FUNCTION New()
+
+   LOCAL Self := QSelf()
+
+   ::cTitle       := "Untitled"
+   ::cBGColor     := "#FFFFFF"
+   ::cLinkColor   := "#0000FF"
+   ::cvLinkColor  := "#FF0000"
+   ::cContent     := ""
+   ::cBody        := ""
+   ::aCGIContents := {}
+   ::aQueryFields := {}
+   ::aReplaceTags := {}
+   ::cHTMLFile    := ""
+
+   RETURN( Self )
+
+STATIC FUNCTION SetTitle( cTitle )
+
+   LOCAL Self := QSelf()
+
+   ::cTitle := cTitle
+
+   RETURN( Self )
+
+STATIC FUNCTION AddLink( cLinkTo, cLinkName )
+
+   LOCAL Self := QSelf()
+
+   ::cBody := ::cBody + ;
+      "<A HREF='" + cLinkTo + "'>" + cLinkName + "</A>"
+
+   RETURN( Self )
+
+STATIC FUNCTION AddHead( cDescr )
+
+   LOCAL Self := QSelf()
+
+   // Why this doesn't work?
+   // ::cBody += ...
+   // ???
+
+   ::cBody := ::cBody + ;
+      "<H1>" + cDescr + "</H1>"
+
+   RETURN( NIL )
+
+STATIC FUNCTION AddPara( cPara, cAlign )
+
+   LOCAL Self := QSelf()
+
+   ::cBody := ::cBody + ;
+      "<P ALIGN='" + cAlign + "'>" + HB_OSNewLine() + ;
+      cPara + HB_OSNewLine() + ;
+      "</P>"
+
+   RETURN( Self )
+
+STATIC FUNCTION Generate()
+
+   LOCAL Self := QSelf()
+   LOCAL cFile, i, hFile, nPos, cRes := ""
+   LOCAL lFlag := .f.
+
+   // Is this a meta file or hand generated script?
+   IF empty( ::cHTMLFile )
+      ::cContent :=                                                        ;
+         "<HTML><HEAD>"                                        + HB_OSNewLine() + ;
+         "<TITLE>" + ::cTitle + "</TITLE>"                     + HB_OSNewLine() + ;
+         "<BODY link='" + ::cLinkColor + "' " +                            ;
+         "vlink='" + ::cvLinkColor + "'>" +                    + HB_OSNewLine() + ;
+         ::cBody                                               + HB_OSNewLine() + ;
+         "</BODY></HTML>"
+   ELSE
+      ::cContent := ""
+
+      // Does cHTMLFile exists?
+      IF !File( ::cHTMLFile )
+         ::cContent := "<H1>Server Error</H1><P><I>No such file: " + ;
+           ::cHTMLFile
+      ELSE
+         // Read from file
+         hFile := fOpen( ::cHTMLFile, 0 )
+         cFile := space( IF_BUFFER )
+         DO WHILE (nPos := fRead( hFile, @cFile, IF_BUFFER )) > 0
+
+            cFile := left( cFile, nPos )
+            cRes += cFile
+            cFile := space( IF_BUFFER )
+
+         ENDDO
+
+         fClose( hFile )
+
+         // Replace matched tags
+         i := 1
+         ::cContent := cRes
+         /* TODO: Replace this DO WHILE with FOR..NEXT */
+         DO WHILE i <= len( ::aReplaceTags )
+            ::cContent := strtran( ::cContent, ;
+               "<#" + ::aReplaceTags[i, 1] + ">", ::aReplaceTags[i, 2] )
+            i++
+         ENDDO
+
+         /* TODO: Clear remaining (not matched) tags */
+         /*
+         cRes := ""
+         FOR i := 1 TO len( ::cContent )
+            IF substr( ::cContent, i, 1 ) == "<" .AND. ;
+               substr( ::cContent, i + 1, 1 ) == "#"
+               lFlag := .t.
+            ELSEIF substr( ::cContent, i, 1 ) == ">" .AND. lFlag
+               lFlag := .f.
+            ELSEIF !lFlag
+               cRes += substr( ::cContent, i, 1 )
+            ENDIF
+         NEXT i
+
+         ::cContent := cRes
+         */
+
+      ENDIF
+   ENDIF
+
+   RETURN( Self )
+
+STATIC FUNCTION ShowResult()
+
+   LOCAL Self := QSelf()
+
+   OutStd(                                                                 ;
+      "HTTP/1.0 200 OK"                                        + HB_OSNewLine() + ;
+      "CONTENT-TYPE: TEXT/HTML"                      + HB_OSNewLine() + HB_OSNewLine() + ;
+      ::cContent )
+
+   RETURN( Self )
+
+STATIC FUNCTION SaveToFile( cFile )
+
+   LOCAL Self  := QSelf()
+   LOCAL hFile := fCreate( cFile )
+
+   fWrite( hFile, ::cContent )
+   fClose( hFile )
+
+   RETURN( Self )
+
+STATIC FUNCTION ProcessCGI()
+
+   LOCAL Self   := QSelf()
+   LOCAL cQuery := ""
+   LOCAL cBuff  := ""
+   LOCAL nBuff  := 0
+   LOCAL i
+
+   IF empty( ::aCGIContents )
+      ::aCGIContents := {               ;
+         GetEnv( "SERVER_SOFTWARE"   ), ;
+         GetEnv( "SERVER_NAME"       ), ;
+         GetEnv( "GATEWAY_INTERFACE" ), ;
+         GetEnv( "SERVER_PROTOCOL"   ), ;
+         GetEnv( "SERVER_PORT"       ), ;
+         GetEnv( "REQUEST_METHOD"    ), ;
+         GetEnv( "HTTP_ACCEPT"       ), ;
+         GetEnv( "HTTP_USER_AGENT"   ), ;
+         GetEnv( "HTTP_REFERER"      ), ;
+         GetEnv( "PATH_INFO"         ), ;
+         GetEnv( "PATH_TRANSLATED"   ), ;
+         GetEnv( "SCRIPT_NAME"       ), ;
+         GetEnv( "QUERY_STRING"      ), ;
+         GetEnv( "REMOTE_HOST"       ), ;
+         GetEnv( "REMOTE_ADDR"       ), ;
+         GetEnv( "REMOTE_USER"       ), ;
+         GetEnv( "AUTH_TYPE"         ), ;
+         GetEnv( "CONTENT_TYPE"      ), ;
+         GetEnv( "CONTENT_LENGTH"    ), ;
+         GetEnv( "ANNOTATION_SERVER" )  ;
+          }
+
+      cQuery := ::GetCGIParam( CGI_QUERY_STRING )
+
+      IF !empty( cQuery )
+
+        ::aQueryFields := {}
+
+        FOR i := 1 TO len( cQuery ) + 1
+
+          IF i > len( cQuery ) .OR. substr( cQuery, i, 1 ) == "&"
+
+             aadd( ::aQueryFields,                          ;
+                { substr( cBuff, 1, at( "=", cBuff ) - 1 ), ;
+                  strtran( substr( cBuff, at( "=", cBuff ) + 1,      ;
+                     len( cBuff ) - at( "=", cBuff ) + 1 ), "+", " " ) } )
+             cBuff := ""
+          ELSE
+             IF substr( cQuery, i, 1 ) = "%"
+                cBuff += chr( Hex2Dec( substr( cQuery, i + 1, 2 ) ) )
+                nBuff := 3
+             ENDIF
+
+             IF nBuff = 0
+                cBuff += substr( cQuery, i, 1 )
+             ELSE
+                nBuff--
+             ENDIF
+          ENDIF
+
+        NEXT
+
+      ENDIF
+
+   ENDIF
+
+   RETURN( Self )
+
+STATIC FUNCTION GetCGIParam( nParam )
+
+   LOCAL Self := QSelf()
+
+   ::ProcessCGI()
+
+   IF nParam > 20 .OR. nParam < 1
+      outerr( "Invalid CGI parameter" )
+      RETURN( NIL )
+   ENDIF
+
+   RETURN( ::aCGIContents[nParam] )
+
+STATIC FUNCTION QueryFields( cQueryName )
+
+   LOCAL Self := QSelf()
+   LOCAL cRet := ""
+   LOCAL nRet
+
+   ::ProcessCGI()
+
+   nRet := aScan( ::aQueryFields, ;
+      { |x| upper( x[1] ) = upper( cQueryName ) } )
+
+   IF nRet > 0
+      cRet := ::aQueryFields[nRet, 2]
+   ENDIF
+
+   RETURN( cRet )
+
+STATIC FUNCTION SetHTMLFile( cFile )
+
+   LOCAL Self := QSelf()
+
+   ::cHTMLFile := cFile
+
+   RETURN( Self )
+
+STATIC FUNCTION AddReplaceTag( cTag, cReplaceText )
+
+   LOCAL Self := QSelf()
+
+   aAdd( ::aReplaceTags, { cTag, cReplaceText } )
+
+   RETURN( Self )
+
+
+ diff --git a/harbour/website/samples/testhtml.html b/harbour/website/samples/testhtml.html new file mode 100644 index 0000000000..a1da81bb2a --- /dev/null +++ b/harbour/website/samples/testhtml.html @@ -0,0 +1,124 @@ + + + + +Harbour Project - Samples -> testhtml + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Harbour Test of a HTML-Generator class
This example demonstrates the possibility of working with Web pages using a custom CGI class.
   
 Files: 
   
 Screenshot: 
 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/testhtml.prg.html b/harbour/website/samples/testhtml.prg.html new file mode 100644 index 0000000000..67a6f50f8b --- /dev/null +++ b/harbour/website/samples/testhtml.prg.html @@ -0,0 +1,187 @@ + +testhtml.prg + + + + + +
/*
+*
+*  TestHTML.PRG
+*  Harbour Test of a HTML-Generator class.
+*
+*  1999/05/30  First implementation.
+*
+*              Tips: - Use ShowResults to make dynamic html (to test dynamic
+*                      results, put the exe file on CGI-BIN dir or equivalent);
+*                    - Use SaveToFile to make static html page
+*
+**/
+
+STATIC s_cNewLine
+
+FUNCTION Main()
+
+   LOCAL oHTML := THTML():New()
+
+   s_cNewLine := HB_OSNewLine()
+
+   oHTML:SetTitle( "Harbour Power Demonstration" )
+   oHTML:AddHead( "Harbour Project" )
+   oHTML:AddPara( "<B>Harbour</B> is xBase at its best. Have a taste today!", "LEFT" )
+   oHTML:AddPara( "<B>L i n k s</B>", "CENTER" )
+   oHTML:AddLink( "http://harbour-project.org", "Meet the harbour power!" )
+   oHTML:Generate()
+
+   // Uncomment the following if you don't have a Web Server to test
+   // this sample
+
+   // oHTML:SaveToFile( "test.htm" )
+
+   // If the above is uncommented, you may comment this line:
+
+   oHTML:ShowResult()
+
+   RETURN( NIL )
+
+/*---------------------------------------------------------------------------*/
+
+FUNCTION THTML
+
+   STATIC oClass
+
+   IF oClass == NIL
+      oClass = HBClass():New( "THTML" )
+
+      oClass:AddData( "cTitle" )                       // Page Title
+      oClass:AddData( "cBody" )                        // HTML Body Handler
+      oClass:AddData( "cBGColor" )                     // Background Color
+      oClass:AddData( "cLinkColor" )                   // Link Color
+      oClass:AddData( "cvLinkColor" )                  // Visited Link Color
+      oClass:AddData( "cContent" )                     // Page Content Handler
+
+      oClass:AddMethod( "New",        @New() )         // New Method
+      oClass:AddMethod( "SetTitle",   @SetTitle() )    // Set Page Title
+      oClass:AddMethod( "AddHead",    @AddHead() )     // Add <H1> Header
+      oClass:AddMethod( "AddLink",    @AddLink() )     // Add Hyperlink
+      oClass:AddMethod( "AddPara",    @AddPara() )     // Add Paragraph
+      oClass:AddMethod( "Generate",   @Generate() )    // Generate HTML
+      oClass:AddMethod( "SaveToFile", @SaveToFile() )  // Saves Content to File
+      oClass:AddMethod( "ShowResult", @ShowResult() )  // Show Result - SEE Fcn
+
+      oClass:Create()
+   ENDIF
+
+   RETURN( oClass:Instance() )
+
+STATIC FUNCTION New()
+
+   LOCAL Self := QSelf()
+
+   ::cTitle      := "Untitled"
+   ::cBGColor    := "#FFFFFF"
+   ::cLinkColor  := "#0000FF"
+   ::cvLinkColor := "#FF0000"
+   ::cContent    := ""
+   ::cBody       := ""
+
+   RETURN( Self )
+
+STATIC FUNCTION SetTitle( cTitle )
+
+   LOCAL Self := QSelf()
+
+   ::cTitle := cTitle
+
+   RETURN( Self )
+
+STATIC FUNCTION AddLink( cLinkTo, cLinkName )
+
+   LOCAL Self := QSelf()
+
+   ::cBody := ::cBody + ;
+      "<A HREF='" + cLinkTo + "'>" + cLinkName + "</A>"
+
+   RETURN( Self )
+
+STATIC FUNCTION AddHead( cDescr )
+
+   LOCAL Self := QSelf()
+
+   // Why this doesn't work?
+   // ::cBody += ...
+   // ???
+
+   ::cBody := ::cBody + ;
+      "<H1>" + cDescr + "</H1>"
+
+   RETURN( NIL )
+
+STATIC FUNCTION AddPara( cPara, cAlign )
+
+   LOCAL Self := QSelf()
+
+   //Default( cAlign, "Left" ) // removed Patrick Mast 2000-06-07
+   cAlign:=If(cAlign==NIL,"Left",cAlign) //Added Patrick Mast 2000-06-17
+
+   ::cBody := ::cBody + ;
+      "<P ALIGN='" + cAlign + "'>" + s_cNewLine + ;
+      cPara + s_cNewLine + ;
+      "</P>"
+
+   RETURN( Self )
+
+STATIC FUNCTION Generate()
+
+   LOCAL Self := QSelf()
+
+   ::cContent :=                                                           ;
+      "<HTML><HEAD>"                                           + s_cNewLine + ;
+      "<TITLE>" + ::cTitle + "</TITLE>"                        + s_cNewLine + ;
+      "<BODY link='" + ::cLinkColor + "' " +                               ;
+      "vlink='" + ::cvLinkColor + "'>" +                       + s_cNewLine + ;
+      ::cBody                                                  + s_cNewLine + ;
+      "</BODY></HTML>"
+
+   RETURN( Self )
+
+STATIC FUNCTION ShowResult()
+
+   LOCAL Self := QSelf()
+
+   OutStd(                                                                  ;
+;//      "HTTP/1.0 200 OK"                                        + s_cNewLine + ;
+      "CONTENT-TYPE: TEXT/HTML"                      + s_cNewLine + s_cNewLine + ;
+      ::cContent )
+
+   RETURN( Self )
+
+STATIC FUNCTION SaveToFile( cFile )
+
+   LOCAL Self  := QSelf()
+   LOCAL hFile := fCreate( cFile )
+
+   fWrite( hFile, ::cContent )
+   fClose( hFile )
+
+   RETURN( Self )
+
+
+ diff --git a/harbour/website/samples/testidle.html b/harbour/website/samples/testidle.html new file mode 100644 index 0000000000..3a6d264b2f --- /dev/null +++ b/harbour/website/samples/testidle.html @@ -0,0 +1,132 @@ + + + + +Harbour Project - Samples -> testidle + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
OnIdle sample
This demo demonstrates how to add a new background task in Harbour.
   
 Files: 
  
 Screenshot: 
   
 

+testidle sample running on Windows
+ 
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/testidle.prg.html b/harbour/website/samples/testidle.prg.html new file mode 100644 index 0000000000..4244588d26 --- /dev/null +++ b/harbour/website/samples/testidle.prg.html @@ -0,0 +1,59 @@ + +foreach.prg + + + + + +
// #include "set.ch" - Preset in pptable.c
+
+PROCEDURE MAIN()
+
+   CLS
+
+   ? "DEFAULT IDLEREPEAT =", SET( _SET_IDLEREPEAT )
+   ?
+   ? "Idle Block should be displayed multiple times until key or 10 seconds elapsed!"
+   ? "Press any key to begin..."
+   ?
+   Inkey(0)
+
+   HB_IDLEADD( {|| QOut( "Idle Block" ) } )
+   Inkey( 2 )
+
+   SET( _SET_IDLEREPEAT, .F. )
+
+   HB_IDLEADD( {|| QOut( "Idle Block2" ) } )
+
+   CLS
+   ? "Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
+   ?
+   Inkey( 2 )
+
+   ?
+   ? "Again - Idle Block & Block-2 should display ONCE! while waitning for key or 10 seconds elapsed!"
+   ?
+   Inkey( 2 )
+   ?
+
+RETURN
+
+
+ diff --git a/harbour/website/samples/tstmacro.html b/harbour/website/samples/tstmacro.html new file mode 100644 index 0000000000..706966fc66 --- /dev/null +++ b/harbour/website/samples/tstmacro.html @@ -0,0 +1,121 @@ + + + + +Harbour Project - Samples -> tstmacro + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + + +
 
+ + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
  + + + + + + + +
Dynamic code evalutation sample
This example demonstrates how you can use the macro feature present in Harbor in the same manner as was done in Clipper.
 Files: 
  
 

Screenshot:

 
 

+ tstmacro running on Linux
 
   
 How to compile: 
 To learn how to compile/link this example see our specific section on this link. 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/samples/tstmacro.prg.html b/harbour/website/samples/tstmacro.prg.html new file mode 100644 index 0000000000..45da6cd271 --- /dev/null +++ b/harbour/website/samples/tstmacro.prg.html @@ -0,0 +1,188 @@ + +tstmacro.prg + + + + + +
#include "hbclass.ch"
+
+MEMVAR cStr, cStr_1, cVar_1, aVar, oVar, OtherVar, SomeVar, Private
+MEMVAR cMainPrivate, GlobalPrivate, BornInRunTimeVar, Public
+
+Function Main( )
+
+        PRIVATE cStr := 'cVar', cStr_1 := 'cVar_1', aVar := { 'cVar_1' }, oVar
+
+        PRIVATE cVar_1, cMainPrivate := 'cVar_1', GlobalPrivate := 'BornInRunTimeVar'
+
+        &cStr_1 = 'Simple '
+        ? M->cVar_1
+
+        &( 'cVar' + '_1' ) := 'Macro'
+        ?? M->cVar_1
+
+        M->&cStr_1 = 'Aliased'
+        ? M->cVar_1
+
+        MEMVAR->&( 'cVar' + '_1' ) := ' Macro'
+        ?? M->cVar_1
+
+        cStr := 'cVar_'
+        &cStr.1 = 'Concatenated Macro (Numeric)'
+        ? M->cVar_1
+
+        cStr := 'cVar'
+        &cStr._1 = 'Concatenated Macro (String)'
+        ? M->cVar_1
+
+        &( aVar[1] ) := 'Array Macro'
+        ? M->cVar_1
+
+        oVar := TValue():New()
+        oVar:cVal := 'cVar_1'
+        &( oVar:cVal ) := 'Class Macro'
+        ? M->cVar_1
+
+        SubFun()
+
+        ? '"cVar_1" = [' + M->cVar_1 + '] AFTER SubFun() PRIVATE'
+
+        ? M->NewPublicVar
+
+   TEST_TYPE()
+   
+RETURN NIL
+
+FUNCTION TValue
+
+   STATIC oClass
+
+   IF oClass == NIL
+      oClass = HBClass():New( "TValue" )
+
+      oClass:AddData( "cVal" )
+      oClass:AddMethod( "New",        @New() )         // New Method
+
+                oClass:Create()
+
+   ENDIF
+
+RETURN( oClass:Instance() )
+
+STATIC FUNCTION New()
+
+   LOCAL Self := QSelf()
+
+RETURN Self
+
+Function SubFun()
+
+        ? '"cVar_1" = [' + M->cVar_1 + '] BEFORE SubFun() PRIVATE'
+
+        // Testing conflict with KEY WORDS
+        PRIVATE PRIVATE := 'I am a Var named PRIVATE ', &cMainPrivate, SomeVar, OtherVar := 1, &GlobalPrivate := 'I was born in Run Time'
+        PUBLIC PUBLIC := 'NewPublicVar'
+        PUBLIC &PUBLIC
+
+        ? M->NewPublicVar
+
+        M->NewPublicVar := 'Still Alive because I am PUBLIC'
+
+        ? M->PRIVATE + PRIVATE
+        ? PRIVATE + M->PRIVATE
+
+        ? BornInRunTimeVar
+
+        &cMainPrivate := 'In SubFun()'
+
+        ? '"cVar_1" = [' + M->cVar_1 + '] in SubFun() PRIVATE'
+
+RETURN NIL
+
+STATIC PROCEDURE TEST_TYPE()
+LOCAL v1, v2, v1a, v2a
+LOCAL bErr:=ERRORBLOCK({|e|BREAK(e)}), oE
+
+   ?
+   ? "=========== TYPE() function ================="
+   v1 := "UDF()"
+   ? "Test for TYPE('UDF()')        - should be 'UI': ", TYPE(v1)
+   v2 := "UDF_STATIC()"
+   ? "Test for TYPE('UDF_STATIC()') - should be 'U': ", TYPE(v2)
+   ? "Test for &"+"'UDF()'  - should print 'udf': ", &v1
+   ? "Test for &"+"'UDF_STATIC()'  - should print 'ERROR: undefined function': "
+   BEGIN SEQUENCE
+      ?? &v2
+   RECOVER USING oE
+      ? "ERROR: "+oE:Description
+   END SEQUENCE
+   ERRORBLOCK(bErr)
+
+   v1 := "UDF"
+   ? "Test for TYPE('UDF')        - should be 'U': ", TYPE(v1)
+   v2 := "UDF_STATIC"
+   ? "Test for TYPE('UDF_STATIC') - should be 'U': ", TYPE(v2)
+
+   v1a := "UDF:=1"
+   ? "Test for TYPE('UDF:=1')        - should be 'N': ", TYPE(v1a)
+   v2a := "UDF_STATIC:=1"
+   ? "Test for TYPE('UDF_STATIC:=1') - should be 'N': ", TYPE(v2a)
+
+   ? "=== after the assignment ==="
+   v1 := "UDF"
+   ? "Test for TYPE('UDF')        - should be 'N': ", TYPE(v1)
+   v2 := "UDF_STATIC"
+   ? "Test for TYPE('UDF_STATIC') - should be 'N': ", TYPE(v2)
+
+   v1 := "UDF()"
+   ? "Test for TYPE('UDF()')        - should be 'UI': ", TYPE(v1)
+   v2 := "UDF_STATIC()"
+   ? "Test for TYPE('UDF_STATIC()') - should be 'U': ", TYPE(v2)
+
+
+   ? "=== declared public variable ==="
+   PUBLIC UDF2, UDF2_STATIC
+   v1 := "UDF2()"
+   ? "Test for TYPE('UDF2()')        - should be 'UI': ", TYPE(v1)
+   v2 := "UDF2_STATIC()"
+   ? "Test for TYPE('UDF2_STATIC()') - should be 'U': ", TYPE(v2)
+
+   v1 := "UDF2"
+   ? "Test for TYPE('UDF')        - should be 'L': ", TYPE(v1)
+   v2 := "UDF2_STATIC"
+   ? "Test for TYPE('UDF_STATIC') - should be 'L': ", TYPE(v2)
+
+   ?   
+RETURN
+
+STATIC FUNCTION UDF_STATIC()
+RETURN "udf_static"
+
+FUNCTION UDF()
+RETURN "udf"
+
+STATIC FUNCTION UDF2_STATIC()
+RETURN "udf2_static"
+
+FUNCTION UDF2()
+RETURN "udf2"
+
+
diff --git a/harbour/website/snapshot.html b/harbour/website/snapshot.html new file mode 100644 index 0000000000..dad6fccacd --- /dev/null +++ b/harbour/website/snapshot.html @@ -0,0 +1,99 @@ + + + + +Harbour Project - Other Documentation Sites & Links + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + +
  Nightly builds  
 You can find the latest development sources for Harbour directly on our website. Source code is checked out of SVN and packaged every night and made available along with the binaries compiled for Linux.
+
+ These packages are NOT intended for production use; please use the packages at download page.
+
+ If you do encounter a bug, please test the latest snapshot build to see if it has already been fixed by a developer.
+
+ To see what developers have added, you can view the ChangeLog directly from the Subversion repository.		 
   
 Download Links 
 To download latest development sources go to our index page and find them in the "Project Status" section. To download lastest stable release of Harbour, please click here.
 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/third-party.html b/harbour/website/third-party.html new file mode 100644 index 0000000000..eeb4ac776c --- /dev/null +++ b/harbour/website/third-party.html @@ -0,0 +1,613 @@ + + + + +Harbour Project - Third-party Tools and Libraries + + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + + +
Third-party Tools and Libraries 
 These are some links to xHarbour related 3rd party products:  
   
 Categories: 
  
 
 
RDD 
  + + + + + + +
OTC Mediator RDD for Harbour
+ OTC Mediator is RDD driver for Oracle,Microsoft SQL Server and Sybase Adaptive Server Anywhere Mediator was designed to allow quick migration of DBF data and XBase applications to one of the mentioned databases. It implements all RDD features required for easy migration including RECNO record numbers, DELETED flag, Clipper-compatible record and file locks +as well as complex expression indexes.		 
+
+ Basically, Mediator package consists of three parts:
+
    +
  • Set of utilities facilitating data (DBF) and index (NTX,CDX) migration to RDBMS
    • +
  • Libraries implementing RDD interface to be linked into Harbour or Clipper application
    • +
  • Mediator server translating application requests into SQL commands sent to database 
    • +
+ Mediator for Harbour can be downloaded from http://www.otc.pl/en/harbour.html
 
 
 
 
 
  + + + + + + +
Sybase Advantage + Server for Harbour
+Harbour has native support for ' Sybase Advantage Database Server, a + high-performance client/server RDBMS for stand-alone, networked, Internet and + mobile database applications. Advantage Database Server allows developers the + high-performance and control of navigational commands combined with optimized + data accessmethodology for easily delivering unparalleled performance, + Advantage provides security, stability and data integrity while being + completely maintenance-free. 		 
+
+ With no mandatory configuration requirements, Advantage is easily installed + on an existing network infrastructure. Because of the embedded qualities of + Advantage, it works tirelessly behind the application, delivering + client/server performance, stability, and data integrity that today's business + applications demand.
+ In addition to Harbour, Advantage applications can be developed using a + wide variety of languages including Borland Delphi, Borland Kylix, Microsoft + Visual Basic, Microsoft Visual C++, Borland C++Builder, CA-Visual Objects, + Perl, PHP and many other languages including those that can use ODBC, ADO, + ADO.NET and OLE DB.
+
+ ADS supports NetWare, Linux, Windows + 9x/ME/NT/2000/XP/Vista operating systems and can be downloaded at: http://www.sybase.com/products/databasemanagement/advantagedatabaseserver 		 
 
 
 
 
  + + + + + +
Vista software for Harbour
+Harbour supports Vista Software's legendary, award-winning Apollo data engines now! Vista Software took over Apollo from Luxent (formerly SuccessWare International) in July of 1999 and have since re-engineered and re-designed Apollo to work with Delphi, Visual Basic, Active Server Pages, VBScript, Visual C++, Visual Interdev, C++Builder, and now also Harbour.		 
+
+ Apollo COM 6.1 can be used with Harbour via the TOleAuto() class to access CA-Clipper (DBF/DBT/NTX), FoxPro (DBF/FPT/CDX/IDX) and HiPer-SIx (DBF/NSX/SMT) data files.
+
+ Apollo engines can even connect to the new royalty-free Apollo Database Server for true client/server processing over LANs and over the Internet.
+
+ More information and a trial version of Apollo COM 6.0 can be found here http://www.vistasoftware.com.
+ NOTE: + The TOleAuto Class can be freely downloaded from the contribution download page.		 
 
 
 
 
GUI - Comercial 
  + + + + + + +
Fivewin for Harbour (FWH)
+ FiveWin is original a library for Clipper 5 which you use in + exactly the same way that you have been using other third party libraries in + clipper. The main difference is that + FiveWin lets you build executables that run in Microsoft Windows as REAL + Windows Programs.
+
+ You have all the power of Windows and it's environment + at your fingertips! Only downside of the FiveWin for Clipper... it's still + 16bits. Now FiveTech Software has managed to make the library work with + Harbour. 		 
+
+ More info can be found here: http://www.fivetechsoft.com/english/fwh.html +
 
 
 
 
 
  + + + + + + +
Visual Report designer for + Harbour/FiveWin
+ EasyReport provides every Harbour/Fivewin user a very simple and + fast way to add a visual report designer to his/her applications.EasyReport is very flexible, cost-effective, multilingual and you can give the + visual designer to all of your end users without paying anything extra (royalty + free).		 
+
+   EasyReport supports up to 100 areas with 1000 items each. The possible item + types are Text, Image (supports 8 different image file formats), Graphic (Lines, + Rectangles, Ellipse etc.) and Barcodes.
+
+ More details and a full working test version are available at http://www.reportdesigner.info 
 
 
 
 
 
  + + + + + + +
Xalier
+ Xailer is a complete 32 bits visual development environment for Xbase users, following the guide lines of other already existing programming environments (Delphi, Visual Basic,...). As any other complete visual environment includes: +
    +
  • Form designer
    • +
  • Professional Source code editor
    • +
  • Property inspector
    • +
  • Project manager
    • +
  • Report generator
    • +
  • Resource manager
    • +
  • Integrated Debugger
    • +
+ And all these features are built over a unique interface, which is tremendously intuitive and permits the development of any project in record time.
+
+ More info can be found here: + + http://www.xailer.com/ 		 
 
 
 
 
 
  + + + + + + +
Clip2win
+ Clip2win 3.9 is a tool to convert your old DOS programs for Windows so easy. Adding only one line in .PRG of your project and you get a program similar to Windows with menus, controls TextBox, Buttons and other characteristics of the environment.
+
+ Clip2win  is a + simple way to pass clipper to windows based on Harbour & ooHG.
+ More info can be found here: http://sistemascvc.tripod.com/id10.html		 
 
 
 
 
 
  + + + + + + +
ViaCoral
+ ViaCoral + for Windows & Pocket PC is able to manage transparent bitmaps without pixelation using + Harbour & Fivewin but + ViaCoral is more than a simple control library.
+
+ ViaCoral will be an enormous step forward for + the developing of your applications, giving good appearance, dynamism and + capacity to develop your own style.
+
+ For more info, visit www.viaopen.com		 
 
 
 
 
 
GUI - Free and Open Source 
  + + + + + + +
MiniGUI
+ Harbour MiniGUI (HMG) is a xBase WIN32 / GUI Development System based on Harbour + MiniGUI library, Harbour MiniGUI IDE, Harbour compiler and MingW compiler. + This implements a semi-oop model and is a ready to use Harbour distribution who include all needed components for you work.		 
+
+ More info can be found here: 
+ http://harbourminigui.googlepages.com/ + +
+ http://sourceforge.net/projects/harbourminigui/ +
+
+ MiniGUI unofficial build with EXTENDED many new features:
+ http://www.hmgextended.com/
 
 
 
 
 
  + + + + + + +
ooHG
+ Object-Oriented Harbour Graphical interface. This is an object-oriented style conversion from the MiniGUI's library. Supporting existing code, and adding new and powerful advantages of the object oriented programming.
+
+ It offers a great flexibility for the well-know MiniGUI functionality, and a very easy way to add new features with the lesser affectation to working code (anyone can subclass any control and add it's own features to it). 		 
+
+ More info can be found here: http://sourceforge.net/projects/oohg/
 
 
 
 
 
  + + + + + + +
HwGUI
+ Is a cross-platform GUI library for Harbour, it is written on C and Harbour. +
+
+ HwGUI includes two versions - Win32 and Linux. Win32 version is based on direct calls of Win32 API - this allows to keep it quite fast and compact. Linux version is based on GTK, it supports the same set of classes, commands and functions as the Win32 version, though not all yet. Thus, using some base subset of HwGUI, you can create crossplatform GUI applications.
+
+ Currently Win32 version of HwGUI supports 5 C compilers: Borland C, MS Visual C, Mingw, Pelles C and Open Watcom C		 
+
+ More info can be found here: http://sourceforge.net/projects/hwgui/
 
 
 
 
 
  + + + + + + +
wxHarbour
+ wxHarbour is a set of Harbour language bindings for wxWidgets. Providing a portable multi-platform GUI toolkit for Harbour.
+
+ Note: wxWidgets lets developers create applications for Win32, Mac OS X, GTK+, X11, Motif, WinCE, and more using one codebase. It can be used from languages such as C++, Python, Perl, Harbour and C#/.NET. Unlike other cross-platform toolkits, wxWidgets applications look and feel native. This is because wxWidgets uses the platform's own native controls rather than emulating them. It's also extensive, free, open-source, and mature.
 
+
+ More info can be found here: http://sourceforge.net/projects/wxharbour/
 
 
 
 
 
  + + + + + + +
HbWxW
HbWxW is a multiplatform GUI library for Harbour. It is built on top of wxWidgets platform GUI library, available on Unix like systems, Windows, MacOS and WinCE operating systems. wxWidgets is "An open source C++ GUI framework to make cross-platform programming child's play".
+
+ The main goal of HbWxW is to provide an easy to use GUI library, which can be utilized on all platforms xHarbour currently supports. That's why it is based on a library which gives you a single, easy-to-use API for writing GUI applications on multiple platforms.
+
+ HbWxW, like its underlying GUI library, is powerfull and efficient enough to realize the most common tasks, as expected by the average and advanced programmers. Its main advantage over other GUI libraries is the 'native look & feel' on all supported platforms, simplyfying application usage and giving users the same sense of comfort they are already used to. 		 
+
+ More info can be found here: http://harbour.fm.interia.pl/
 
 
 
 
 
  + + + + + + +
xbGTK
+ xbGTK is an open source library for Linux and WIN32. It allows to use GTK+ in programs written in xBase-like languages. The library is written by Phil Krylov. It is based on the PyGTK - Project by James Henstridge. Some files are modified, though, to generate proper xBase code (instead of Python). 		 
+
+ More info can be found here: http://xbgtk.sourceforge.net/
 
 
 
 
 
  + + + + + + +
xHGtk
+ xHGtk is an multiplataform GUI library for Harbour. Use GTK+ to create programs that can run in Windows and Linux. It provides a library of commands, functions and classes for multiplatform development using Harbor, MinGW graphics library and GTK + 2.10 or higher. 		 
+
+ More info can be found here: http://xhgtk.sourceforge.net/
 
 
 
 
 
  + + + + + + +
T-Gtk
+ GUI for Harbour toolkit for GTK+. This library allows to give the compilers of Habour from the full power of GTK + Cross-platform. 		 
+
+ More info can be found here: http://sourceforge.net/projects/t-gtk/
 
 
 
 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/tools.html b/harbour/website/tools.html new file mode 100644 index 0000000000..252ecda142 --- /dev/null +++ b/harbour/website/tools.html @@ -0,0 +1,78 @@ + + + + +Harbour Project - Auxiliar tools + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + +
  Auxiliar tools  
 Auxiliar tools Bison, GCC, FLEX, Tortoise, download link 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/tshirts.html b/harbour/website/tshirts.html new file mode 100644 index 0000000000..d43249eb2a --- /dev/null +++ b/harbour/website/tshirts.html @@ -0,0 +1,84 @@ + + + + +Harbour Project - T-Shirts + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + +
 
+ + + + + + + + + + + + + + + + + + + + +
 The Harbour - Project T-Shirt!  
 You can order the Harbour-Project T-Shirt for 20 US Dollar per piece (exclusive mail cost)
+ We have them In sizes eXtra Large and Large. Click on the image to order!
+
+ 		 
   
 Download ZIP with this T-Shirt Art (984Kb) 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ + diff --git a/harbour/website/tutorials.html b/harbour/website/tutorials.html new file mode 100644 index 0000000000..488d905231 --- /dev/null +++ b/harbour/website/tutorials.html @@ -0,0 +1,87 @@ + + + + +Harbour Project - Tutorials + + + + + + + +
+ + + + + + + + + + + + +
+ + + + + + +
+ + + + +
+ + + + +
+ + + + + + + + + + + + + +
 
+ + + + + + + + + + +
 Tutorials 
 

Some topics to be explained:
+
+ * How to install the files of the Harbor in Windows?
+ * How to download and compile the Harbor in Linux?
+ * How to print via Harbor using the Putty?
+ * How to access MySQL or PostgreSQL using the content?
+ etc..
+
  +

+ 		 
 
 
+ + + + + +
Copyright © 1999- The Harbour Project.
Design + by Vailton Renato
+
+ +