fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

see changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-06-15 20:09:18 +00:00
parent a3096c9aab
commit 520607e094
4 changed files with 28 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -1,3 +1,9 @@
19990615-21:00 CET Jose Lalin / Eddie Runia
+ source/rtl/natmsg/msgbas.c
* source/rtl/msgxxx.c
* source/compiler/harbour.y
VarId ArrayIndex ':' and ObjectData ArrayIndex ':' syntax was incorrect
19990615-12:30 EDT David G. Holm <dholm@jsd-llc.com>
* source/compiler/makefile.dos
- Integrated preprocessor into compiler

8
harbour/source/compiler/harbour.y
View File

@@ -611,20 +611,20 @@ MethParams : /* empty */ { $$ = 0; }
;
ObjectData : IdSend IDENTIFIER { $$ = $2; _lMessageFix = functions.pLast->lPCodePos; Message( $2 ); Function( 0 ); }
| VarId ArrayIndex ':' IDENTIFIER { $$ = $4; _lMessageFix = functions.pLast->lPCodePos; Message( $4 ); Function( 0 ); }
| VarId ArrayIndex ':' IDENTIFIER { GenPCode1( _ARRAYAT ); $$ = $4; _lMessageFix = functions.pLast->lPCodePos; Message( $4 ); Function( 0 ); }
| ObjFunCall IDENTIFIER { $$ = $2; _lMessageFix = functions.pLast->lPCodePos; Message( $2 ); Function( 0 ); }
| ObjFunArray ':' IDENTIFIER { $$ = $3; _lMessageFix = functions.pLast->lPCodePos; Message( $3 ); Function( 0 ); }
| ObjectMethod ':' IDENTIFIER { $$ = $3; _lMessageFix = functions.pLast->lPCodePos; Message( $3 ); Function( 0 ); }
| ObjectData ':' IDENTIFIER { $$ = $3; _lMessageFix = functions.pLast->lPCodePos; Message( $3 ); Function( 0 ); }
| ObjectData ArrayIndex ':' IDENTIFIER { $$ = $4; _lMessageFix = functions.pLast->lPCodePos; Message( $4 ); Function( 0 ); }
| ObjectData ArrayIndex ':' IDENTIFIER { GenPCode1( _ARRAYAT ); $$ = $4; _lMessageFix = functions.pLast->lPCodePos; Message( $4 ); Function( 0 ); }
;
ObjectMethod : IdSend IDENTIFIER { Message( $2 ); } '(' MethParams ')' { Function( $5 ); }
| VarId ArrayIndex ':' MethCall { Function( $4 ); }
| VarId ArrayIndex ':' MethCall { Function( $4 ); GenPCode1( _ARRAYAT ); }
| ObjFunCall MethCall { Function( $2 ); }
| ObjFunArray ':' MethCall { Function( $3 ); }
| ObjectData ':' MethCall { Function( $3 ); }
| ObjectData ArrayIndex ':' MethCall { Function( $4 ); }
| ObjectData ArrayIndex ':' MethCall { Function( $4 ); { GenPCode1( _ARRAYAT ); } }
| ObjectMethod ':' MethCall { Function( $3 ); }
;

4
harbour/source/rtl/msgxxx.c
View File

@@ -6,7 +6,9 @@
#define HB_LANGUAGE UK
#endif
#if (HB_LANGUAGE == DUT)
#if (HB_LANGUAGE == BAS)
#include "natmsg/msgbas.c"
#elif (HB_LANGUAGE == DUT)
#include "natmsg/msgdut.c"
#elif (HB_LANGUAGE == GAL)
#include "natmsg/msggal.c"

15
harbour/source/rtl/natmsg/msgbas.c Normal file
View File

@@ -0,0 +1,15 @@
/*
* Language support unit for Basque
*
*/
char *hb_monthsname[ 12 ] = {
"Urtarrila", "Otsaila", "Martxoa",
"Apirila", "Maitza", "Ekaina", "Uztaila",
"Abuztua", "Iraila", "Urria",
"Azaroa", "Abendua" };
char *hb_daysname[ 7 ] = {
"Igandea", "Astelehena", "Asteartea",
"Asteazkena", "Osteguna", "Ostirala",
"Larunbata" };