Harbour（プログラミング言語）

Harbour は、主にデータベース/ビジネス プログラムの作成に使用されるコンピュータプログラミング言語です。これは、1980 年代と 1990 年代の dBaseデータベース市場から開発された古いClipperシステムの最新化されたオープン ソースのクロス プラットフォーム バージョンです。

Harbourコードは同じデータベースを使用しており、Microsoft Windows、Linux、Unix系OS、いくつかのBSD系OS、Mac OS X、MINIX 3、Windows CE、Pocket PC、Symbian、iOS、Android、QNX、VxWorks、OS/2（eComStationおよびArcaOSを含む）、^[1] BeOS / Haiku、 AIX、MS-DOSなど、さまざまなプラットフォームでコンパイルできます。

フリーソフトウェアの Clipper コンパイラのアイデアは長い間浮上しており、comp.lang.clipper での議論でこの話題が頻繁に取り上げられてきました。Antonio Linares が Harbour プロジェクトを創設し、1999 年 3 月に実装が開始されました。「Harbour」という名前は Linares によって提案されたもので、船の一種であるClipperにちなんで付けられています。Harbour は港 (船が停泊する場所) の同義語であり、Harbour は Clipper 言語の移植版です。

2009 年に、ハーバーは主にヴィクトル・シャカツとプシェミスワフ・チェルパックによって大幅に再設計されました。

Harbour は Clipper の RDD (Replaceable Database Drivers) アプローチを拡張します。DBF 、DBFNTX、DBFCDX、DBFDBT、DBFFPTなどの複数の RDD を提供します。Harbour では、1 つのアプリケーションで複数の RDD を使用でき、他の RDD を組み合わせることで新しい論理 RDD を定義できます。RDD アーキテクチャでは継承が可能なので、特定の RDD で他の既存の RDD の機能を拡張できます。RDDSQL、RDDSIX、RMDBFCDX、Advantage Database Server、Mediator などのサードパーティの RDD は、RDD アーキテクチャ機能の一部を例示しています。DBFNTX 実装は、DBFCDX および RDDSIX とほぼ同じ機能を備えています。NETIO および LetoDB ^[2]は、 TCPプロトコルを介したリモート アクセスを提供します。

Harbour は、OOP構文によるODBCサポートと、OLEによるADOサポートも提供します。MySQL、PostgreSQL、SQLite、Firebird、Oracle は、 Harbour が接続できるデータベースの例です。

xBase テクノロジーは、 RDBMSソフトウェアとよく混同されます。これは事実ですが、xBase は単なるデータベース システムではありません。同時に、純粋に DBF を使用する xBase 言語は、実際の RDBMS の完全な概念を提供できません。

Harbour は、一度記述すればどこでもコンパイルできることを目指しています。上記のすべてのオペレーティング システムで同じコンパイラが使用できるため、オペレーティング システムに依存する機能を使用する場合を除いて、異なるプラットフォーム用に同一の製品を作成するために再コーディングする必要はありません。クロス コンパイルはMinGWでサポートされています。Microsoft Windows では、Harbour は Clipper よりも安定していますが、ドキュメントが充実していません。ただし、マルチプラットフォーム機能があり、透過性が高く、カスタマイズ性が高く、USB フラッシュ ドライブから実行できます。

Linux および Windows Mobile では、Clipper ソース コードは、ほとんど変更せずに Harbour でコンパイルできます。Xbase++、FlagShip、FoxPro、xHarbour などの方言で実行するように作成されたソフトウェアのほとんどは、多少の変更を加えるだけで Harbor でコンパイルできます。2010 年現在、他のxBase方言からの移行を容易にするための多くの取り組みが行われています。

Harbour は、 GCC、 MinGW、 Clang、 ICC、 Microsoft Visual C++ (6.0+)、 Borland C++、 Watcom C、 Pelles C 、 Sun Studioなどの C コンパイラを使用できます 。

Harbour は、コンソール ドライバーや、GTWvt や GTWvg などのハイブリッド コンソール/GUI を含む複数のグラフィカル ターミナル エミュレーションを利用できます。

Harbourは、無料（HBQt、HWGui、Mini-GUI（QtとQtContribs ^[3]に基づく最新バージョン）など）および商用（FiveWin、Xailerなど）の外部GUIをサポートしています。HBQtは、Qtへのバインディングを提供するライブラリです。HBIDEアプリケーションは、HBQtの可能性を示すサンプルです。

HarbourはClipperと100%互換^[4]で、OLE、Blat、OpenSSL、Free Image、GD、hbtip、hbtpathy、PCRE、hbmzip ( zlib )、hbbz2 ( bzip2 )、cURL、Cairo、CA-Toolsの独自の実装、更新されたNanForライブラリなど、大幅に拡張されたランタイムライブラリを含む多くの言語構文拡張をサポートしています。Harbourには活発な開発コミュニティと広範なサードパーティサポートがあります。

どのxBase言語も、ビジネスおよびデータ集約型アプリケーションを構築するための非常に生産的な方法を提供します。Harbour も例外ではありません。

xBase 言語の最も強力な機能の 1 つは、マクロ演算子 '&' です。Harbour のマクロ演算子の実装により、有効な Harbour 式を実行時にコンパイルできます。このようなコンパイルされた式は、VALUE、つまり割り当ての右側 (rvalue) として使用することも、割り当ての左側 (lvalue)、つまりプライベート変数、パブリック変数、またはデータベース フィールドを解決するために使用することもできます。

さらに、マクロ演算子は、関数呼び出し、完全な割り当て、または引数のリストをコンパイルして実行することができ、その結果は、コンパイルされたアプリケーション内の上記のコンテキストのいずれかを解決するために使用できます。

最新のマクロ コンパイラは、コンパイル前にプロセスごとにコードを含む有効な Harbour コードをコンパイルできます。

構文：

&( ... )

式 '...' のテキスト値がコンパイルされ、コンパイルされたコードの実行から得られた値が結果となります。

特定のID(&S)

は &( SomeId ) の短縮形です。

&SomeId.ポストフィックス

は &( SomeId + "postfix" ) の短縮形です。

OOP スタイルでのプログラミングは、特定のライブラリや特定のインターフェイスよりも広範な問題ですが、OOP プログラミングは多くの Clipper プログラマーが期待するものです。CA-Clipper 5.2、特に 5.3 では、いくつかの基本クラスと、それに対応する OOP 構文が追加されました。Class(y)、FieWin、Clip4Win、Top Class などのライブラリは、追加の OOP 機能を提供します。

Harbour には、Class(y) 構文に基づいて継承を含むクラスを完全にサポートする OOP 拡張機能があります。Harbour の OOP 構文は、以前の Clipper クラス ライブラリの構文と非常に似ているため、最小限の変更で従来の Clipper コードを維持できるはずです。

Harbour はすべての xBase 言語と同様に大文字と小文字を区別せず、オプションで最初の 4 文字だけで記述されたキーワードを受け入れることができます。

Harbour には、 Nil、String、Date、Logical、Numeric、Pointerの6 つのスカラー型と、Array、Object、CodeBlock、Hash の4 つの複合型があります。スカラーは、文字列、数値、または他の型への参照など、単一の値を保持します。配列は、1 から始まる番号でインデックス付けされた、スカラーまたは複合型の順序付きリストです。ハッシュ、または連想配列は、関連付けられたキーでインデックス付けされた、任意の型値の順序なしのコレクションであり、任意のスカラー型または複合型である可能性があります。

スカラー型のリテラル（静的）表現:

• なし:NIL
• 弦："hello", 'hello', [hello]
• 日付：0d20100405
• 論理的:.T., .F.
• 数値:1, 1.1, −1, 0xFF

複合型はリテラル値として表現することもできます。

• 配列：{ "String", 1, { "Nested Array" }, .T., FunctionCall(), @FunctionPointer() }
• コードブロック:{ |Arg1, ArgN| Arg1 := ArgN + OuterVar + FunctionCall() }
• ハッシュ：{ "Name" => "John", 1 => "Numeric key", "Name2" => { "Nested" => "Hash" } }

ハッシュは、他のハッシュを含む任意の型を任意の要素のキーとして使用できます。ハッシュと配列には、ネストされた配列やハッシュを含む任意のメンバーの値として任意の型を含めることができます。

コードブロックには、それが定義されたプロシージャ/関数>メソッドの変数への参照が含まれる場合があります。このようなコードブロックは、値として返されるか、またはBY REFERENCEで渡される引数によって返されます。この場合、コードブロックはそれが定義されたルーチンよりも長く存続し、コードブロックが参照する変数はDETACHED変数になります。

分離変数は、それを参照するコードブロックが存在する限り、その値を維持します。そのような値は、同じ変数にアクセスできる他のコードブロックと共有されます。コードブロックがそれを含むルーチンよりも長く存続せず、それが定義されているルーチンの有効期間内に評価される場合、その評価によって その分離変数に加えられた変更は、その親ルーチンに反映されます。

コードブロックは、 Eval( BlockExp )関数を使用して何度でも評価できます。

すべてのタイプを名前付き変数に割り当てることができます。名前付き変数識別子は 1 ～ 63 文字の ASCII 文字で、 で始まり[A-Z|_]、最大 63 文字までの文字で構成されます[A-Z|0–9|_]。名前付き変数では大文字と小文字は区別されません。

変数には次のいずれかのスコープがあります。

• LOCAL : 宣言したルーチン内でのみ表示されます。ルーチンの終了時に値は失われます。
• STATIC : それを宣言したルーチン内でのみ表示されます。値は、ルーチンのその後の呼び出しのために保持されます。プロシージャ/関数/メソッドが定義される前に STATIC 変数が宣言され、その変数は MODULE スコープを持ち、同じソース ファイル内で定義されたすべてのルーチン内で表示可能であれば、アプリケーションの存続期間中その有効性が維持されます。
• PRIVATE : それを宣言したルーチン内、およびそのルーチンによって呼び出されるすべてのルーチン内で可視です。
• PUBLIC :同じアプリケーション内のすべてのルーチンから表示されます。

LOCALおよびSTATIC はコンパイル時に解決されるため、ランタイムシンボル テーブルによってアクセスされる動的エンティティであるPRIVATEおよびPUBLIC変数よりもはるかに高速です。同じ理由で、LOCALおよびSTATIC変数はマクロ コンパイラに公開されず、それらを参照しようとするマクロ コードはすべてランタイム エラーを生成します。

PRIVATE変数とPUBLIC変数は動的な性質を持っているため、実行時に作成および破棄することができ、ランタイム マクロまたはその場で作成されるコードブロックによってアクセスおよび変更できます。

基本的な制御構造には、すべての標準dBaseおよびClipper制御構造に加えて、 CまたはJavaプログラミング言語にヒントを得た追加の制御構造が含まれます。

[DO] WHILE Con​​ditionExp 
   ...
   [ループ]
   [出口]
終了[実行]

FOR Var  := InitExp TO EndExp [STEP StepExp ]
    ...
   [ループ]
   [出口]
次

CollectionExp内の各変数... 
   [ Var :__enumIndex()]
   
   [ループ]
   [出口]
次

• ...は1 つ以上の Harbour ステートメントのシーケンスであり、角括弧は[]オプションの構文を示します。
• Var :__enumIndex()は、オプションで現在の反復インデックス (1 から始まる) を取得するために使用できます。
• LOOPステートメントは、囲んでいるループ構造の現在の反復を再開し、囲んでいるループがFORループまたはFOR EACHループである場合は、反復子を増やしてループの次の反復に移動します。
• EXITステートメントは、囲んでいるループ構造の実行を直ちに終了します。
• NEXTステートメントは制御構造を閉じ、ループ構造の次の反復に移動します。

FORステートメントでは、割り当て式は最初のループ反復の前に評価されます。TO 式は各反復の前に評価され、制御変数の値と比較され、制御変数の数値よりも大きい数値に評価された場合はループが終了します。オプションのSTEP式は、各反復の後に、次の反復を実行するかどうかを決定する前に評価されます。

FOR EACHでは、Var変数にはコレクション値内のそれぞれの要素の値 (スカラーまたは複素数) が含まれます。コレクション式は、配列 (任意の型または型の組み合わせ)、ハッシュ テーブル、またはオブジェクト型になります。

IF条件式
   ... 
[ELSEIF]条件式
   ...
[それ以外]
   ...
終了[IF]

... は0 個以上のステートメントを表します。

条件式は論理値に評価される必要があります。

Harbour は、switch() の C 実装にヒントを得た SWITCH 構造をサポートしています。

SWITCH SwitchExp 
CASE LiteralExp 
   ...
   [出口]
[CASE LiteralExp ]
    ...
   [出口]
[さもないと]
   ...
終了[スイッチ]

• LiteralExpはコンパイル時に解決可能な数値式である必要があり、コンパイル時の静的値を含む演算子を含むことができます。
• オプションのEXITステートメントは C ステートメントのbreakと同等であり、存在する場合、EXIT ステートメントに到達したときに SWITCH 構造の実行が終了し、それ以外の場合は次の CASE ステートメントの下の最初のステートメント (フォールスルー) に進みます。

シーケンスの開始
   ...
   [壊す]
   [ブレーク([ Exp ])]
RECOVER [ Varを使用]
    ...
END[シーケンス]

または：

シーケンスの開始
   ...
   [壊す]
   [壊す（）]
END[シーケンス]

BEGIN SEQUENCE 構造により、ネストされたプロシージャ/関数をまたぐ場合でも、シーケンスの正常な中止が可能になります。つまり、呼び出されたプロシージャ/関数は、それぞれの END ステートメントの後、または存在する場合は RECOVER 句の後、最初の外側の BEGIN SEQUENCE 構造までネストされたプロシージャ/関数を強制的に展開するために、BREAK ステートメントまたは Break() 式を発行できます。Break ステートメントは、RECOVER ステートメントで受け入れられ、さらに回復処理を実行できる任意のタイプの式をオプションで渡すことができます。

さらに、Harbourエラー オブジェクトはcanDefault、canRetry、およびcanSubstituteプロパティをサポートしており、これによりエラー ハンドラーはいくつかの準備を実行し、再試行操作や再開を要求するか、エラー状態をトリガーする式を置き換える値を返すことができます。

あるいは、TRY [CATCH] [FINALLY] ステートメントは、SEQUENCE 構造のように動作する xhbライブラリで使用できます。

[STATIC] PROCEDURE SomeProcedureName 
[STATIC] PROCEDURE SomeProcedureName ()
[STATIC] PROCEDURE SomeProcedureName ( Param1 [, ParamsN ] )

INIT PROCEDURE SomeProcedureName
終了プロシージャSomeProcedureName

[STATIC] FUNCTION SomeProcedureName 
[STATIC] FUNCTION SomeProcedureName ()
[STATIC] FUNCTION SomeProcedureName ( Param1 [, ParamsN ] )

Harbour のプロシージャと関数は、キーワード PROCEDURE、またはを使用して指定できます。命名規則は変数FUNCTIONの場合と同じです(大文字と小文字を区別せず、最大 63 文字)。プロシージャと関数はどちらも、スコープ修飾子STATICで修飾して、定義されているモジュールのスコープ内に使用​​を制限できます。

オプションの修飾子INITまたはEXIT は、それぞれアプリケーションの起動プロシージャを呼び出す直前、またはアプリケーションを終了した直後にプロシージャが自動的に呼び出されるようにフラグを設定します。プロシージャ/関数に渡されるパラメータはサブルーチン内でローカル変数として表示され、参照を含む任意の型を受け入れることができます。

引数変数への変更は、 @プレフィックスを使用して明示的に参照渡しされない限り、呼び出し元のプロシージャ/関数/メソッドによって渡されるそれぞれの変数には反映されません。

PROCEDURE には戻り値がなく、Expression コンテキストで使用するとNIL値が生成されます。

FUNCTION は、定義本体の任意の場所にある RETURN ステートメントによって任意の型を返すことができます。

プロシージャ定義と関数呼び出しの例を次に示します。

 x  := 立方体(2)

 関数Cube(n)
    戻り値n**3

典型的な「hello world」プログラムは次のようになります。

  ？"こんにちは世界！"

または：

  QOut ( "こんにちは、世界!" )

または：

  アラート( 「Hello, world!」 )

または、明示的な手順で囲みます。

 手順Main()

    ？"こんにちは世界！"

    戻る

主な手順:

 #include  "hbclass.ch"

 手順Main()

    ローカルoPerson

    CLSA

    oPerson  := Pers on ():New( "Dave" )
     oPerson :Eyes := "Invalid" 
    oPerson :Eyes := "Blue"

    アラート(oPerson:Describe())

    戻る

クラス定義:

クラスの作成 Person

    変数名 INIT ""

    メソッド New( cName )
    メソッド Describe()

    Eyes INLINE にアクセス::pvtEyes
    ASSIGN Eyes( x ) INLINE iif( HB_ISSTRING( x ) .AND. x $ "Blue,Brown,Green", ::pvtEyes := x, Alert( "無効な値" ) )

    保護されています:

    VAR プライベートアイズ

 エンドクラス

 // 通常のメソッド定義のサンプル
 メソッド New( cName ) クラス Person

    ::名前 := c名前

    戻る 自分

 メソッド Describe() クラス Person

    ローカル c説明

    空の場合(::名前)
       cDescription := "まだ名前がありません。"
    それ以外
       cDescription := "私の名前は: " + ::Name + ";"
    終了

    IF ! 空( ::Eyes )
       cDescription += "私の目の色は: " + ::目
    終了

    戻る c説明

• hbmk2 – makeのようなビルドツール
• hbrun – Harbour のシェルインタープリター。マクロコンパイルにより、コンパイル時に有効な Harbour コードを実行できます。
• hbformat – 定義されたルールに従って、Harbour または他の方言で書かれたソースコードをフォーマットします。
• hbpp – プリプロセッサ。C言語のプロセッサごとに発生する典型的な問題を回避する強力なツールです。
• hbi18n – アプリケーション上のテキストをローカライズするためのツール
• hbdoc – Harbour のドキュメントを作成します

すべてのツールはマルチプラットフォームです。

現在、Harbourの開発はViktor Szakátsが主導し、Przemysław Czerpakと共同で開発されています。Czerpakもコア言語の多くのコンポーネントと補足コンポーネントを提供しています。HBIDEとその他のコンポーネント、特にHBQtはPritpal Bediによって開発されています。開発コミュニティの他のメンバーは、GitHubソースリポジトリに変更を送信します。^[5] 2015年現在、Harbourの開発は活発で活気に満ちています。

xHarbour は、以前の Harbour プロジェクトのフォーク^[6]です。xHarbour は、言語に新機能を実装する際により積極的なアプローチをとっていますが、Harbour はより保守的なアプローチをとっており、まず Clipper の動作を正確に再現することを目指し、新機能や拡張機能の実装は二次的な考慮事項としています。また、Harbour はさまざまなオペレーティング システムでサポートされていますが、xHarbour が実際にサポートしているのは MS Windows と Linux 32 ビットのみであることにも注意してください。

Harbour の開発者は、互換性を維持するために、Clipper 言語のすべての隠れた動作を文書化し、Harbour でコンパイルされたコードを Clipper でコンパイルされた同じコードと並べてテストしようとしました。

Harbour 開発者は、Clipper との互換性を損なうような言語の拡張を明示的に拒否しています。新しい Harbour アーキテクチャではコア コンパイラからの拡張が許可されているため、最近はこうした拒否が緩和されています。

HarbourとxHarbourで実装された拡張機能の詳細な比較は、GitHubのプロジェクトのソースリポジトリで確認できます。^[7]

• hbide – Harbour 開発とさまざまな xBase 方言を支援する統合開発環境
• PTSource IDE –統合開発環境にはHarbourが含まれます
• HwGui – Harbour 用のオープンソース クロスプラットフォーム GUI ライブラリ
• HMG – ハーバー向け無料/オープンソース xBase Win32 / GUI開発システム
• MiniGUI ^[8] – 無料/オープンソースのxBase Win32 / GUI開発システム（HMGとHarbourのフォーク（ソフトウェア開発） ）
• ooHG – オブジェクト指向の Harbour GUI – HMG のフォーク「クラスベースおよび OOP プログラミング」
• Marinas-GUI – Harbour 用のマルチプラットフォーム QT ベースの GUI 開発パッケージ。Marinas-GUI は、選択したターゲット プラットフォーム (IDE、バージョン管理、Harbour/C コンパイラ、ライブラリなど) の完全なインストール パッケージとしてダウンロードされます。基本的にはインストールしてコーディングとコンパイルを開始します。

• ビジュアルフォックスプロ
• 視覚オブジェクト
• Xベース++
• PWCT は、HarbourPWCTを通じて Harbour をサポートする無料のオープンソース ビジュアル プログラミング言語です。

• 公式サイト
• Oasis Clipper、FoxPro、Xbase++ コミュニティ リポジトリ
• HBIDE
• 港湾開発者メーリングリスト
• ハーバーユーザーメーリングリスト
• 広範なHarbourドキュメント、ライブラリ、ツールサイト
• 港湾ウィキ（港湾機能辞典）