xBase

xBase is a programming language created in 1986.

#221on PLDB

38Years Old

3kRepos

xBase is the generic term for all programming languages that derive from the original dBASE (Ashton-Tate) programming language and database formats. These are sometimes informally known as dBASE "clones". While there was a non-commercial predecessor to the Ashton-Tate product (Vulcan written by Wayne Ratliff), most clones are based on Ashton-Tate's 1986 dBASE III+ release — scripts written in the dBASE III+ dialect are most likely to run on all the clones.. Read more on Wikipedia...

xBase Wikipedia page
xBase docs
There are at least 2,564 xBase repos on GitHub
file extensions for xBase include prg, ch and prw
The Google BigQuery Public Dataset GitHub snapshot shows 313 users using xBase in 350 repos on GitHub
Explore xBase snippets on Rosetta Code
xBase on HOPL
xBase appears in the TIOBE Index
GitHub supports syntax highlighting for xBase
See also: (1 related languages)Jet Propulsion Laboratory Display Information System

Example from hello-world:

do while .t.
 ? 'Hello World'
enddo

Example from Linguist:

#ifndef __HARBOUR__
   #ifndef __XPP__
      #ifndef __CLIP__
         #ifndef FlagShip
            #define __CLIPPER__
         #endif
      #endif
   #endif
#endif

/* File create flags */
#define FC_NORMAL          0  /* No file attributes are set */
#define FC_READONLY        1
#define FC_HIDDEN          2
#define FC_SYSTEM          4

// New-style comment
#command SET DELETED <x:ON,OFF,&>      => Set( _SET_DELETED, <(x)> )
#command SET DELETED (<x>)             => Set( _SET_DELETED, <x> )
#command @ <row>, <col> SAY <exp> [PICTURE <pic>] [COLOR <clr>] => ;
         DevPos( <row>, <col> ) ; DevOutPict( <exp>, <pic> [, <clr>] )
         
#command ENDIF <*x*> => endif

#ifdef __CLIPPER__   
   #xtranslate hb_MemoWrit( [<x,...>] )  => MemoWrit( <x> )
   #xtranslate hb_dbExists( <t> )        => File( <t> )
   #xtranslate hb_dbPack()               => __dbPack()
   #xtranslate hb_default( @<v>, <x> )   => iif( StrTran( ValType( <v> ), "M", "C" ) == StrTran( ValType( <x> ), "M", "C" ),, <v> := <x>, )
#endif

Feature	Supported	Token	Example
Strings	✓	'	'Hello world'
MultiLine Comments	✓	/* */	/* A comment */
Comments	✓		// A comment
Line Comments	✓	//	// A comment
Semantic Indentation	X

xBase - Programming language

Language features