home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Shareware Overload
/
ShartewareOverload.cdr
/
database
/
ronheb.zip
/
RONHEB.DOC
< prev
next >
Wrap
Text File
|
1988-05-04
|
4KB
|
130 lines
--------------------------------------------------------------------------------
; Filename: RONHEB.LIB
; Program.: Ron's hebrew support V1.1 for clipper summer 1987
; Authors.: Ron Bar-lev
; Date....: MAY 4,1988
; Notice..: Clipper is a trademark of Nantucket.
;
;
Ron Bar-lev hebrew support for Clipper summer 1987
---------------------------------------------------
The folowing functions are included in the run time library RONHEB.LIB,
the library is to be linked with the .OBJ file with clipper's own libraries
EXTEND.LIB and CLIPPER.LIB (obligatory).
Before using any of the hebrew support functions and procedures include
the following satment in your program (.PRG):
INITHEB(expN)
Where expN denotes the max number of hebrew "GET"-s per readh() statement
This function initializes the hebrew support public variables and arrays.
To invoke hebrew support for clipper version aut' 86 , the above function ;
should be rewritten, moving all public array definitions (not available until
summer 87) to the head of the main module.
The hebrew functions allow input into memory variable only. no direct input
into database fields is allowed.It is the programmers responsibility to
initiallize the fields.
In the special case when attempting to get hebrew fields defined as array-
elements, indexes should be passed via macro substitution.
Following functions are included in GETHEB.PRG
------------------------------------------------
1. GETHEB - procedure
usage:
DO GETHEB with Rownumber,Colnumber,"field-name" [,"Valid-Functions"]
The procedure replaces the clipper GET statment.
Following functions are included in RONHEB.PRG
------------------------------------------------
1. INITHEB - function
INITHEB([expN])
Initilizes the hebrew support system , the optional parameter sets the maximal
number of input fileds for a READH() statement. default value is 50.
2.RHEBVLD()
Internally used by the hebrew support system.
3.READH()
To be used instead of clipper READ statment.
4.HTRANS(expN)
Internally used by the hebrew support system.
Translates lower case english characters to hebrew.
5.HKBOARD(expC)
Internally used by the hebrew support system.
Adds an inkey in front of the keyboard buffer string.
6.READHVAR()
Returns the currently read hebrew field name,replaces clipper READVAR() func.
may be used throughout the program.
7.HUPDATED()
Returns true if a field was updated during last read
may be used throughout the program.
8.RHSETK(expN,"Progname")
Assigns function keys to be called from within a hebrew field,e.g. for help.
Example:
rhsetk(-1,"PROGNAME") - sets the F2 key (-1) to PROGNAME.
9.RHCOLOR()
Internally used by the hebrew support system.
10.HEBFIELD()
returns .T. if current "get" (from within a "HELP" or "VALID" routine) is
a (Character) Hebrew field.otherwise returns .F..
Following functions are included in RONMEMO.PRG
------------------------------------------------
1.HEBEDIT("Edit_var",uprtrow,uprtcol,loltrow,loltcol,isupdated)
This function enables hebrew memofield edit of up to 66 lines,opens an edit
window, replaces MEMOEDIT() .The function returns the edited field.
The last parameter decides if update is alowed.
2.HEBPRN("field_name",left_margin,rt_margin)
This function enables printing of long hebrew fileds.left_margin & right_margin
min's are 3 & 2 respectively giving a maximal printed line width of 75 chars.
3.HEBMAC(expS)
This function opens macro in hebrew memo field,the macro apears between '{'
and '}'.
Following functions are included in INVERT.PRG
------------------------------------------------
1.INV(expC)
This function reverses long strings by calling an assembly language routine
CLREV87.ASM (writen by Oded s. Resnik).For any practical purpose there is
no limit to string length aside from memory avalability.