From e6afd45d90d6cd77f061d868e9711e29fc5b7ac5 Mon Sep 17 00:00:00 2001
From: Ron Pinkas <ron@profit-master.com>
Date: Mon, 22 May 2000 17:28:03 +0000
Subject: [PATCH] 20000522-09:40 GMT-8 Ron Pinkas <Ron@Profit-Master.com>

   * contrib/hbclip.ch
     ! Updated to reflect latest sysntax.

   * tests/testwarn.ch
     ! Updated translate segment to reflect latest sysntax.
---
 harbour/ChangeLog                |  8 ++++
 harbour/contrib/hbclip/hbclip.ch | 75 ++++++++++++++------------------
 harbour/tests/testwarn.prg       | 40 +++++++++--------
 3 files changed, 62 insertions(+), 61 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 0e425871d7..c60be2ccae 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -1,3 +1,11 @@
+20000522-09:40 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
+
+   * contrib/hbclip.ch
+     ! Updated to reflect latest sysntax.
+
+   * tests/testwarn.ch
+     ! Updated translate segment to reflect latest sysntax.
+
 20000522-09:40 GMT-8 Ron Pinkas <Ron@Profit-Master.com>
 
    * include/hbextern.ch
diff --git a/harbour/contrib/hbclip/hbclip.ch b/harbour/contrib/hbclip/hbclip.ch
index cbf01fab0f..f684b88173 100644
--- a/harbour/contrib/hbclip/hbclip.ch
+++ b/harbour/contrib/hbclip/hbclip.ch
@@ -45,60 +45,49 @@
 
 #ifndef __HARBOUR__
 
-#ifndef HB_CLIP_CH_
-#define HB_CLIP_CH_
+    #ifndef HB_CLIP_CH_
+    #define HB_CLIP_CH_
 
-/* TODO: Rewrite as much of these in C or Clipper */
+    /* TODO: Rewrite as much of these in C or Clipper */
 
-#xtranslate HB_ARGCHECK( <s> )                            => ( .F. )
-#xtranslate HB_ARGSTRING( <s> )                           => ""
-#xtranslate HB_FNAMESPLIT( <s> )                          => NIL
-#xtranslate HB_FNAMEMERGE( <s1>[, <s2>[, <s3>[, <s4>]]] ) => ""
-#xtranslate HB_PVALUE( <n> )                              => NIL
-#xtranslate HB_SETKEYGET( [<n>][, <b>] )                  => NIL
-#xtranslate HB_SETKEYSAVE( [<a>] )                        => ( {} )
-#xtranslate HB_SETKEYCHECK( <n>[, <x1>[, <x2>[, <x3>]]] ) => ( .F. )
+    #xtranslate HB_ARGCHECK( <s> )                            => ( .F. )
+    #xtranslate HB_ARGSTRING( <s> )                           => ""
+    #xtranslate HB_FNAMESPLIT( <s> )                          => NIL
+    #xtranslate HB_FNAMEMERGE( <s1>[, <s2>[, <s3>[, <s4>]]] ) => ""
+    #xtranslate HB_PVALUE( <n> )                              => NIL
+    #xtranslate HB_SETKEYGET( [<n>][, <b>] )                  => NIL
+    #xtranslate HB_SETKEYSAVE( [<a>] )                        => ( {} )
+    #xtranslate HB_SETKEYCHECK( <n>[, <x1>[, <x2>[, <x3>]]] ) => ( .F. )
 
-#translate AS CHAR ARRAY =>
-#translate AS CHARACTER ARRAY  =>
-#translate AS STRING ARRAY  =>
+    #TRANSLATE AS ARRAY [OF <type>] =>
 
-#translate AS NUM ARRAY  =>
-#translate AS NUMERIC ARRAY  =>
+    #TRANSLATE AS CHAR =>
+    #TRANSLATE AS CHARACTER =>
+    #TRANSLATE AS STRING =>
 
-#translate AS DATE ARRAY  =>
-#translate AS ARRAY ARRAY  =>
-#translate AS BLOCK ARRAY  =>
-#translate AS OBJECT ARRAY  =>
+    #TRANSLATE AS CLASS <ClassName> =>
+    #TRANSLATE AS STRU <StruName> =>
+    #TRANSLATE AS STRUCTURE <StruName> =>
 
-#translate AS BOOL ARRAY  =>
-#translate AS BOOLEAN ARRAY  =>
-#translate AS LOGICAL ARRAY  =>
+    #TRANSLATE AS NUM =>
+    #TRANSLATE AS NUMERIC =>
 
-#translate AS VAR ARRAY =>
-#translate AS VARIANT ARRAY =>
+    #TRANSLATE AS DATE =>
+    #TRANSLATE AS BLOCK =>
 
-#translate AS CHAR =>
-#translate AS CHARACTER =>
-#translate AS STRING =>
+    #TRANSLATE AS OBJ =>
+    #TRANSLATE AS OBJECT =>
 
-#translate AS NUM =>
-#translate AS NUMERIC =>
+    #TRANSLATE AS BOOL =>
+    #TRANSLATE AS BOOLEAN =>
+    #TRANSLATE AS LOG =>
+    #TRANSLATE AS LOGICAL =>
 
-#translate AS DATE =>
-#translate AS ARRAY =>
-#translate AS BLOCK =>
-#translate AS OBJECT =>
+    #TRANSLATE AS VAR =>
+    #TRANSLATE AS VARIANT =>
 
-#translate AS BOOL =>
-#translate AS BOOLEAN =>
-#translate AS LOGICAL =>
+    #COMMAND DECLARE <*x*> =>
 
-#translate AS VAR =>
-#translate AS VARIANT =>
-
-#command DECLARE FUNCTION <*x*> =>
-
-#endif /* HB_CLIP_CH_ */
+    #COMMAND STRUCTURE <*x*> =>
 
 #endif
diff --git a/harbour/tests/testwarn.prg b/harbour/tests/testwarn.prg
index f18b846e03..845908a382 100644
--- a/harbour/tests/testwarn.prg
+++ b/harbour/tests/testwarn.prg
@@ -6,32 +6,36 @@
 #ifdef __HARBOUR__
    #pragma -es0
 #else
-   #TRANSLATE AS ARRAY [OF <type>] =>
+    #TRANSLATE AS ARRAY [OF <type>] =>
 
-   #TRANSLATE AS CHAR =>
-   #TRANSLATE AS CHARACTER =>
-   #TRANSLATE AS STRING =>
+    #TRANSLATE AS CHAR =>
+    #TRANSLATE AS CHARACTER =>
+    #TRANSLATE AS STRING =>
 
-   #TRANSLATE AS CLASS <ClassName> =>
+    #TRANSLATE AS CLASS <ClassName> =>
+    #TRANSLATE AS STRU <StruName> =>
+    #TRANSLATE AS STRUCTURE <StruName> =>
 
-   #TRANSLATE AS NUM =>
-   #TRANSLATE AS NUMERIC =>
+    #TRANSLATE AS NUM =>
+    #TRANSLATE AS NUMERIC =>
 
-   #TRANSLATE AS DATE =>
-   #TRANSLATE AS BLOCK =>
+    #TRANSLATE AS DATE =>
+    #TRANSLATE AS BLOCK =>
 
-   #TRANSLATE AS OBJ =>
-   #TRANSLATE AS OBJECT =>
+    #TRANSLATE AS OBJ =>
+    #TRANSLATE AS OBJECT =>
 
-   #TRANSLATE AS BOOL =>
-   #TRANSLATE AS BOOLEAN =>
-   #TRANSLATE AS LOG =>
-   #TRANSLATE AS LOGICAL =>
+    #TRANSLATE AS BOOL =>
+    #TRANSLATE AS BOOLEAN =>
+    #TRANSLATE AS LOG =>
+    #TRANSLATE AS LOGICAL =>
 
-   #TRANSLATE AS VAR =>
-   #TRANSLATE AS VARIANT =>
+    #TRANSLATE AS VAR =>
+    #TRANSLATE AS VARIANT =>
 
-   #COMMAND DECLARE <*x*> =>
+    #COMMAND DECLARE <*x*> =>
+
+    #COMMAND STRUCTURE <*x*> =>
 #endif
 
 DECLARE nMyFunc( cVar AS STRING, @nVar AS NUMERIC ) AS NUMERIC