72526bc283
* include/hbsetup.h
- Removed HOST_OS_UNIX_COMPATIBLE which was a misleading
alias for OS_UNIX_COMPATIBLE.
* source/compiler/hbcomp.c
% HOST_OS_UNIX_COMPATIBLE -> OS_UNIX_COMPATIBLE
* common.mak
* harbour-ce-spec
* make_xmingw.sh
* make_xmingwce.sh
* makefile.bc
* makefile.gc
* makefile.vc
* source/pp/Makefile
- source/pp/ppgen.c
+ source/pp/hbppgen.c
! executable ppgen renamed to hbppgen.
* samples/pe/editorlo.c
* samples/pe/pe.prg
+ samples/pe/bld_b32.bat
+ Added BCC build batch file.
! Fixed to compile under current Harbour.
! Fixed filename casing.
! Fixed several warnings (quite some signedness problem still remain).
; This is a very nice editor written in C (Harbour callable),
I think it is the work of Ryszard.
* samples/hscript/bld_b32.bat
* samples/hscript/hscript.prg
* samples/hscript/dir.hs
* samples/hscript/multiply.hs
* samples/hscript/ugly.hs
* samples/hscript/hello.hs
! Fixed build batch file.
! Fixed to use NFLib file IO rather than libmisc, because
latter was broken (it is a clone of the NFLib file IO).
! Fixed scripts to use Start instead of Main as an entry
point otherwise __hrbRun() got confused and called the
app Main().
! Fixed some other problems to make it run.
43 lines
928 B
Plaintext
43 lines
928 B
Plaintext
/*
|
|
* $Id$
|
|
*/
|
|
|
|
#define EDIT_EDIT .T.
|
|
#define EDIT_VIEW .F.
|
|
|
|
PROCEDURE Main( cFile )
|
|
LOCAL cText
|
|
LOCAL lMode := EDIT_EDIT
|
|
|
|
IF cFile == NIL
|
|
cFile := "license.txt"
|
|
IF !File( cFile )
|
|
cFile := "../../license.txt"
|
|
ENDIF
|
|
lMode := EDIT_VIEW
|
|
ENDIF
|
|
|
|
cText := MemoRead( cFile )
|
|
cText := MemoEditor( cText, 0, 0, MaxRow(), MaxCol(), lMode )
|
|
MemoWrit( "output.txt", cText )
|
|
|
|
RETURN
|
|
|
|
STATIC FUNCTION MEMOEDITOR( cText, nTop, nLeft, nBottom, nRight, lMode )
|
|
LOCAL oED
|
|
|
|
/* NOTE: In current design of editor it doesn't reallocate the memory
|
|
buffer used to hold the text
|
|
*/
|
|
oED := EditorNew( nTop, nLeft, nBottom, nRight, 254, , , , Len( cText ) * 2, 168 )
|
|
IF oED != NIL
|
|
EditorSetText( oED, cText )
|
|
EditorEdit( oED, lMode, .T. )
|
|
cText := EditorGetText( oED )
|
|
EditorKill( oED )
|
|
ELSE
|
|
? "Editor not created"
|
|
ENDIF
|
|
|
|
RETURN cText
|