TxBasic Forum

TxBasic is upward compatible with FxBasic. It adds :

- Decimal Floating Point math library (no rounding issues) based on open source libdfp.
- 32 bits integers (@ suffix).
- ENUM type
- STRUCTURE type
- CLASS type with inheritance, properties, methods, constructor, destructor, operators overloading, private and public members, explicit access to parent class members of same name than class members.
- Optional required declarations of constants, simple variables, functions and procedures.

- Case insensitive virtual file system with libraries and disks units.
- Case sensitive access to Linux file system.

- Transaction management with commit and rollback on ISAM files and RANDOM files.
- ISAM key length up to 256 bytes.
- Support of industry DISAM file handler (license required).
- Support of C-ISAM compatible version of VBISAM.
- Multi-index ISAM files.
- Raw access to C-ISAM files for easy reading of foreign files.
- Simultaneous use of several ISAM handlers for easy ISAM files conversions.
- Direct and indexed files can be stored in SQL tables (currently MySQL/MariaDB) and accessed with usual syntax.
- MySQL/MariaDB client CALL library for fast access.
- "Unlimited" open files. 
- OPEN statement options THEOS, ISO8859, UTF8, WIN1252 allow automatic conversion of string to/from internal character set to file character set.

- Directory open (ex.: OPEN #1:"/folder/sub:s", INPUT FOLDER).
- Pipe open (ex. : OPEN #1:"ls -l", INPUT PIPE).
- Serial port I/O on COM1 to COMnn.

- Integrated printer spooler with printing queues.
- Support of any cups compatible printer, including graphics only printers.
- Direct support of PCL and ESCP/2 printers through "Raw printer" cups driver.
- Virtual PDF printer (ex.: OPEN #1:"report.g1n:pdf", OUTPUT SEQUENTIAL) to generate PDF files.
- Report long name (ex.: OPEN #1:"This is a report@report.g1n:pdf"

- User account management with privilege level, private and public files, default libraries, environment variables.
- Virtual short PID and UID on 3 digits.

- Session display allowing several programs to share the screen area with overlapping windows.

- Indexed, keyed, direct and sequential files import.
- Easy use of SYSTEM commands.
- Display and keyboard character set use Unicode.
- Default internal character set compatible with THEOS.
- Optional extended character set.
- Bidirectional file converters for Theos and UTF-8 characters sets.

New statements :

TRY
    THROW error_code
    CATCH error_code
    CATCH ALL
    END TRY

[PUBLIC|LOCAL] CLASS name
    INHERITS parent_class
    [PUBLIC|LOCAL] CONSTRUCTOR(argument_list)
        END CONSTRUCTOR
    [PUBLIC|LOCAL] DESTRUCTOR
        END DESTRUCTOR
    [PUBLIC|LOCAL] OPERATOR[$|%|@|] operator(argument)
    [PUBLIC|LOCAL] type OPERATOR operator(argument)
        END OPERATOR
    [PUBLIC|LOCAL] FUNCTION name[$|%|@|][(argument_list)]
    [PUBLIC|LOCAL] type FUNCTION name[(argument_list)]
        END FUNCTION
    [PUBLIC|LOCAL] SUB[(argument_list)]
        END SUB
    [PUBLIC|LOCAL] variable[$|%|@|][dimensions]
    [PUBLIC|LOCAL] type variable[dimensions]
    END CLASS

type = type of CLASS, ENUM or STRUCTURE entity

scope class_type variable_name [ = source_variable_name ]

CREATE "filename", INDEXED, RECLEN n, KEYLEN n
CREATE "filename", DIRECT, RECLEN n

ELSEIF condition

[PUBLIC|LOCAL] ENUM name
    label [ = value]
    ...
    END ENUM

scope enum_type variable_name [ = source_value ]

ERASE "filename"

FUNCTION name[$|%|@|](argument_list)
type FUNCTION name(argument_list)
    RETURN value
    EXIT FUNCTION
    END FUNCTION

INDEX ADD #channel : { UNIQUE } key_width
INDEX MAP #channel,index: var(column{,field{,subfield}}){[begin:end]} {, …}
INDEX USE #channel,index

[PUBLIC|LOCAL] STRUCTURE name
    scalar or array variable
    ...
    END STRUCTURE

scope structure_type variable_name

RAW READ #channel,key$:record$
RAW READNEXT #channel,key$:record$
RAW READPREV #channel,key$:record$

TRANSACTION BEGIN
TRANSACTION COMMIT
TRANSACTION ROLLBACK

MAT array$ = PARSE(string$,separators$) Parse a string into an array of tokens and separators
MAT array$ = SPLIT(string$,separators$) Parse a string into an array of tokens
MAT array$ = PATH(filepath$) Control and parse a file name into an array of elements
MAT array$ = SRCPATH(filepath$) Control and parse a file name with source wild cards into an array of elements
MAT array$ = DSTPATH(filepath$) Control and parse a file name with destination wild cards into an array of elements

ON ERROR CALL procedure
ON value CALL procedure[,procedure[,...]]

New functions :

CMDARGS : number of arguments from command line
CURRENT.LINE.POSITION : line position in source file
INDEXKEY$(channel) : primary index key of a record

LINUXFILE$(virtual_file$) : Linux file name of a virtual file
VIRTUALFILE$(linux_file$) : Virtual file name of a Linux file

TOCP437$(string$) : convert from internal character set to code page 437 (DOS)
TOISO8859$(string$) : convert from internal character set to ISO8859-15
TOWIN1252$(string$) : convert from internal character set to Windows-1252
TOUNICODE$(string$) : convert from internal character set to Unicode (wide char)
TOUTF8$(string$) : convert from internal character set to UTF-8

FROMCP437$(string$)
FROMISO8859$(string$)
FROMWIN1252$(string$)
FROMUNICODE$(string$)
FROMUTF8$(string$)

Before registering add txbasic@free.fr to your list of authorized senders.

If you don't receive your registration email :

1) Check your junk mailbox.
2) Send an email to txbasic@free.fr.