HBFORMAT.EXE de xHarbour/Harbour.

HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Wed Sep 14, 2022 5:40 pm

Buenas tardes señores, hay alguna forma de configurar el HBFORMAT.exe de xHarbour o Harbour?
¿Dónde encuentro su AYUDA/HELP?

Gracias.

Good afternoon gentlemen, is there a way to configure the HBFORMAT.exe of xHarbour or Harbour?
Where do I find his HELP?

Thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby cnavarro » Wed Sep 14, 2022 8:54 pm

Cristobal Navarro
Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo
El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
User avatar
cnavarro
 
Posts: 6549
Joined: Wed Feb 15, 2012 8:25 pm
Location: España

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby Jimmy » Thu Sep 15, 2022 2:28 am

hi,

have try hbFormat and got Error Message
g:\CLICK\FORUM>hbformat.exe *.prg
Reformatting .\AUTOSIZE.PRG (261 lines)
<....................................>
Reformatting .\COLOR.PRG (329 lines)
<........Error 3 on line 68: END BUTTON
Reformatting .\DLALLCOD.PRG (267 lines)
<...........Error 3 on line 70: END LABEL
Reformatting .\DLFORUM.PRG (1106 lines)
<.....................................>
Reformatting .\DLRANGE.PRG (607 lines)
<.....Error 3 on line 104: END LABEL
Reformatting .\EDITDBF.PRG (978 lines)
<....Error 3 on line 88: END LABEL
Reformatting .\FORUMHMG.PRG (2591 lines)
<.......Error 3 on line 414: END STATUSBAR
Reformatting .\SETFILTER.PRG (265 lines)
<...........Error 3 on line 71: END LABEL
Reformatting .\SHOWMEMO.PRG (135 lines)
<....................Error 3 on line 72: END MENU
Reformatting .\TESTDL.PRG (375 lines)
<.........Error 3 on line 106: END STATUSBAR
Reformatting .\TRANSLAT.PRG (294 lines)
<.........Error 3 on line 78: END STATUSBAR

so for which harbour Syntax is hbFormat :?:

---

i have re-write Cl*pper CLICK to use HMG and Extended Version Syntax

last CLICK.EXE you can find here https://www.hmgforum.com/viewtopic.php?f=5&t=7306
last HMG Source here https://www.hmgforum.com/viewtopic.php?f=5&t=6223

every DEFINE XXX need a END XXX
for FiveWin i use
Code: Select all  Expand view  RUN

#IFDEF __HMG__
    END XXX
#ENDIF
 

to avoid CLICK recognize it as Error
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Thu Sep 15, 2022 1:36 pm

HBFORMAT.INI

Perfect, perfecto:

Code: Select all  Expand view  RUN

# Eol: -1 - no change, 0 - OS default, 1 - DOS, 2 - UNIX
#nEol = -1

# If true, convert file name to lower case
#lFCaseLow = no

# If yes, converts all tabs to spaces
#lNoTabs = yes

# If yes, indent code
#lIndent = yes

# If yes, make case conversion
#lCase = yes

# If yes, reformat spaces
#lSpaces = yes

# If yes, indent "Function", "Procedure", "Class", "Method"
#lIndFunc = no

# If yes, indent "Local", "Private", etc. in a function beginning
#lIndVar = yes

# If yes, indent  directives
#lIndDrt = no

# If yes, indent  "Return" era yes
#lIndRet  = no

# Leftmost indent - amount of spaces
#nIndLeft = 3

# indent - amount of spaces
#nIndNext = 3

# Indent for continuation ( after ';' ) lines - amount of spaces
#nIndCont = 3

# If yes, convert asterisk '*' to '//'
#lCnvAst = yes

# If yes, convert '&&' to '//'
#lCnvAmp = yes

# Number of spaces after /* and // comments ( -1 - no change ) era 1
#nSpaceComment = -1

# If yes, convert .NOT. TO !
#lCnvNot = no

# Case of commands ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
#nCaseCmd = 1

# Case of boolean operators ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
#nCaseBoo = 1

# Case of functions ( -1 - no change, 1 - upper, 2 - lower, 3 - title, 4 - as in pattern )
#nCaseFnc = 4

# Case of functions ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
#nCaseUnk = -1

# Case of directives ( -1 - no change, 1 - upper, 2 - lower, 3 - title )
#nCaseDrt = 2

# Number of spaces after # in directives ( -1 - no change )
#nSpaceDrt = 0

# -1 - no change, 1 - insert empty line before a function ( procedure,class ) declaration, 2 - remove it
#nLineFnc = 1

# -1 - no change, 1 - insert empty line before return, 2 - remove it
#nLineRet = 1

# -1 - no change, 1 - insert empty line before variables declaration, 2 - remove it
#nLineVar = 1

# -1 - no change, 1 - insert empty line before code in function, 2 - remove it
#nLineCode = 1

# Max level of nesting in brackets, while space is added after a comma
#nBr4Comma = 1

# Max level of nesting in brackets, while space is added after/before a bracket
#nBr4Brac = 2

# Extension for a formatted file ( if empty - replace original )
#cExtSave =

# Extension for a backup file
#cExtBack = bak

# List of space separated .hbx files for specifying proper casing of function names
#cHBXList =



Gracias, thanks to all.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Thu Sep 15, 2022 3:11 pm

Dear Jimmy, your program doesn't do the FLOWCHART correctly, or I didn't understand how to configure it to do the indentation (flow) as HBFORMAT.exe does. Thanks.

Estimado Jimmy, su programa no hace el FLOWCHART correctamente, o no entendí cómo configurarlo para hacer la sangría (flujo) como lo hace HBFORMAT.exe. Gracias.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby Jimmy » Thu Sep 15, 2022 8:03 pm

hi,
karinha wrote:Dear Jimmy, your program doesn't do the FLOWCHART correctly, or I didn't understand how to configure it to do the indentation (flow) as HBFORMAT.exe does. Thanks.

did you have a CLICK.INI ?
Code: Select all  Expand view  RUN
[CLICK]
INDENT_IF=3
INDENT_FOR=3
INDENT_CASE=3
INDENT_FUNC=3
INDENT_BEGIN=3
INDENT_WHILE=3
INDENT_CLASS=3
INDENT_CONTINUE_LINE=1

DEFAULT_INDENT=8
COMMENTTAB=70

HEAD_DIV=-
FUNC_DIV=-

// the options are: NOCHANGE, UPPER, LOWER, PROPER, LIKEINFILE
CASE_OF_COMMANDS=UPPER
CASE_OF_FUNCTIONS=UPPER

// the options are: NOCHANGE, UPPER, LOWER
CASE_OF_BOOLEAN=UPPER

// options are S87, 5.X
// selecting S87:
//   Stops the = to := conversion
//   Turns off the Declaration Buster
//   Stops the STORE to := converter
//   The Aligner uses = != instead of := += -= *= /= ^= !=

RUNMODE=S87
//RUNMODE=5.X
// Convert && to // when && is starting a comment
CONVERT_&&_TO_//=YES

// Convert * to // when && is starting a line
CONVERT_*_TO_//=YES

// Convert ][ to ,
// when set to yes, x[ 1 ][ 2 ] becomes x[ 1, 2 ]
CONVERT_][_TO_//,=YES

// Make #includes uniform (lower case #include, upper case "FILENAME"
CLEAN_UP_INCLUDES=YES

// options are ENVIRONMENT, (specified path), DRIVES
MAKE_CLICK_DBF_FROM=ENVIRONMENT
//MAKE_CLICK_DBF_FROM=G:\EXPAND52;F:\JAMES\GANG\FUNK49
//MAKE_CLICK_DBF_FROM=DRIVES

// This is only used if you select DRIVES above.
// It limits the directory depth that recursion will traverse.
RECURSION_LIMIT=7

// options are YES, NO
INDENT_FUNCTIONS=YES
INDENT_DO_CASE=YES

// This has an effect only if INDENT_FUNCTIONS=YES
// It left justifies any line starting with LOCA PRIV MEMV STAT PUBL FIEL
// options are YES, NO
INDENT_LOCALS=NO

// options are YES, NO
VERBOSE=YES

OUTPUT_EXTENSION=.PRG
//Realtive to current directory
OUTPUT_DIRECTORY=clickout
CLICK_LOG=CLICK.LOG
CLICK_LOG_ERASE=NO
NOTIFY_OF_ERROR_ON_SCREEN=YES

// The options are: ALWAYS, ASK, NEVER
OUTPUT_OVERWRITE=ALWAYS
SOURCE_XREF_FILE=Src_cros.TXT
FUNCTION_XREF_FILE=Fnc_cros.txt
TABLE_XREF_FILE=Tbl_cros.TXT
FIELD_XREF_FILE=Fld_cros.txt

// options are YES, NO
// please note that you must set ADD_CLICK_HEADER=YES
FUNCTION_REF_INTO_SOURCE=YES

// options are YES, NO
// please note that you must set ADD_FUNCTION_HEADERS=YES
FUNCTION_XREF_INTO_SOURCE=YES

// options are YES, NO
// please note that you must set ADD_CLICK_HEADER=YES
TABLE_XREF_INTO_SOURCE=YES

// Use this if you have a dictionary function that opens files
// This will allow Click! to track file openings via this function
// You can define multiple functions here by using | as a delimiter
MY_TABLE_FUNCTION=Open_DBF|D_CLOSE|D_ZAP
MY_INDEX_FUNCTION=D_INDEX|D_ORDER

// options are YES, NO
// please note that you must set ADD_CLICK_HEADER=YES
INDEX_XREF_INTO_SOURCE=YES

// options are YES, NO
//Time stamp option not implemented in (x)Harbour
RETAIN_ORIGINAL_TIME_DATE_ON_OUTPUT_FILES=YES
SKIP_FILES_WITH_NO_CHANGES=NO
REMOVE_DUPLICATE_EMPTY_LINES=YES
CONVERT_OLD_STYLE_FUNCTIONS=NO
CONVERT_TO_INCREMENTOR=NO

// options are YES, NO
RESTORE_SCREEN_ON_EXIT=YES

// options are YES, NO
PREPROCESS_WITH_DECLARATION_BUSTER=NO
POSTPROCESS_WITH_THE_ALIGNER=YES
ALIGN_DBCREATE_IN_THE_ALIGNER=YES
ALIGN_CLASS_IN_THE_ALIGNER=NO

// options are YES, NO
CHANGE_REPLACE_WITH_TO_ASSIGNMENT=NO
CHANGE_STORE_TO_ASSIGNMENT=YES

@_SAY_GET_ALIGNMENT_METHOD=2
// options are 0, no alignment
//             1, each element type in its own aligned column
//             2, Columns aligned, but not by type
//             3, Each element in its own row.
// If you use option 3, there is no reverse process.
// Review the output before you commit to method 3.

// options are YES, NO
REMOVE_SNAP_HEADERS=NO
REMOVE_MULTIEDIT_HEADERS=NO
REMOVE_CLICK_HEADERS=YES

// options are YES, NO
ADD_CLICK_HEADER=YES
ADD_FUNCTION_HEADERS=YES
ADD_EOF_MARKER=YES

SMART_ALIGN_MAX_ELEMENTS=11

// options are YES, NO
// deflate mode removes spaces
// following ({[ and preceding ]})
// following ,
// both sides of +
DEFLATE_(=YES
DEFLATE_{=YES
DEFLATE_[=YES
DEFLATE_,=YES
DEFLATE_+=YES

[CMD_LIST]

// Commands beginning with * never make sense when used as a function, so
// when they are followed by a (, they are NOT considered to be functions.
// THIS ALLOWS YOU TO DEFINE WHICH COMMANDS WILL NOT BE CONSIDERED TO BE
// FUNCTIONS. If you prefer for Click! to treat all commands as if they
// cannot be functions, then place a * before each command.
// Good programming practices never allow key words to be used as
// functions or functions and commands to be used as variables.

ACCEPT
ADDITIVE
*ALL
*APPEND BLANK
*APPEND FROM
AVERAGE
*BEGIN SEQUENCE
BOTTOM
*BOX
BREAK
CALL
CANCEL
*CASE
*CLASS
*CLASS METHOD
CLEAR
*CLEAR ALL
*CLEAR GETS
*CLEAR MEMORY
*CLEAR SCREEN
*CLEAR TYPEAHEAD
CLOSE
CLS
COLOR
COMMIT
CONTINUE
*COPY FILE
*COPY STRUCTURE EXTENDED
*COPY STRUCTURE
*COPY TO
COUNT
*CREATE
*CREATE FROM
DEFAULT
DELETE
*DELETE FILE
*DELETE TAG
DIR

DO
*DO CASE
*DO WHILE
EJECT
*ELSE
*ELSEIF
*END
*END CASE
*ENDCASE
*END CLASS
*ENDCLASS
*END DO
*ENDDO
*END IF
*ENDIF
*END SEQUENCE
*ENDSEQUENCE
*END WHILE
*ENDWHILE
*ENDFOR
ERASE
EXCEPT
EXCLUSIVE
*EXPORTED:
EXIT
FIELD
FIND
*FOR
*FROM
*FUNCTION
*GET
GO
GOTO
*IF
INDEX
INIT
INPUT
JOIN
*KEYBOARD
LABEL
*LABEL FORM
*LIKE
LIST
LOCAL
LOCATE
LOOP
MEMVAR
*METHOD
*MENU TO
*NEXT
NOTE
*ON
OTHERWISE
PACK
PARAMETERS
PICTURE
PRINT
PRIVATE
*PROCEDURE
PROMPT
*PROTECTED:
PUBLIC
QUIT
RANGE
READ
READONLY
RECALL
RECORD
RECOVER
REINDEX
RELEASE
RENAME
REPLACE
*REPORT FORM
REST
RESTORE
*RESTORE SCREEN
*RETURN
*RUN
SAVE
*SAVE SCREEN
*SAY
SCREEN
SEEK
*SELECT
SEND
*SET ALTERNATE
*SET BELL
*SET CENTURY
*SET COLOR
*SET CONFIRM
*SET CONSOLE
*SET CURSOR
*SET DATE
*SET DECIMALS
*SET DEFAULT
*SET DELETED
*SET DELIMITERS
*SET DEVICE
*SET EPOCH
*SET ESCAPE
*SET EVENTMASK
*SET EXACT
*SET EXCLUSIVE
*SET FILTER
*SET FIXED
*SET FORMAT
*SET FUNCTION
*SET INDEX
*SET INTENSITY
*SET KEY
*SET MARGIN
*SET MESSAGE
*SET ORDER
*SET PATH
*SET PRINT
*SET PRINTER
*SET PROCEDURE
*SET RELATION
*SET SCOREBOARD
*SET SOFTSEEK
*SET TYPEAHEAD
*SET UNIQUE
*SET WRAP
SKIP
SORT
STATIC
STORE
SUM
TAG
TEXT
THEN
*TO
TOP
TOTAL
UNLOCK
UPDATE
*USE
*VAR
*VALID
WAIT
*WHEN
*WHILE
*WITH
ZAP

[FUNC_LIST]

// Thanks to Jo W. French for the 5.3 Function listing!

AADD
ABS
ACHOICE
ACLONE
ACOPY
ADEL
ADIR
ADDITEM
AEVAL
AFIELDS
AFILL
AINS
ALERT
ALIAS
ALLTRIM
ALTD
AMPM
APPLYDEFAULT
ARRAY
ASC
ASCAN
ASIZE
ASORT
AT
ATAIL
BIN2I
BIN2L
BIN2W
BOF
BREAK
BROWSE
BUTTONDEFCOLOR
CDOW
CHECKBOX
CHECKDEFCOLOR
CHR
*CLOSE
CLOSEMEMO
CMONTH
COL
COLORSELECT
COMBODEFCOLOR
CTOD
CURDIR
DATE
DAY
DAYS
DBAPPEND
DBCLEARFILTER
DBCLEARINDEX
DBCLEARRELATION
DBCLOSEALL
DBCLOSEAREA
DBCOMMIT
DBCOMMITALL
DBCREATE
DBCREATEINDEX
DBDELETE
DBEDIT
DBEVAL
DBF
DBFIELDINFO
DBFILEGET
DBFILEPUT
DBFILTER
DBFONLY
DBGOBOTTOM
DBGOTO
DBGOTOP
DBGSHADOW
DBINFO
DBORDERINFO
DBRECALL
DBRECORDINFO
DBREINDEX
DBRELATION
DBRLOCK
DBRLOCKLIST
DBRSELECT
DBRUNLOCK
DBSEEK
DBSELECTAREA
DBSETDRIVER
DBSETFILTER
DBSETINDEX
DBSETORDER
DBSETRELATION
DBSKIP
DBSTRUCT
DBUNLOCK
DBUNLOCKALL
DBUSEAREA
DBCONVERT
DEFPATH
DELETED
DESCEND
DEVOUT
DEVOUTPICT
DEVPOS
DIRCHANGE
DIRECTORY
DIRREMOVE
DISKCHANGE
DISKNAME
DISKSPACE
DISPBEGIN
DISPBOX
DISPCOUNT
DISPEND
DISPOUT
DISPOUTAT
DOSERROR
DOW
DRAWMEMOAREA
DTOC
DTOS
EDITMEMO
ELAPTIME
EMPTY
EOF
ERRORBLOCK
ERRORINHANDLER
ERRORLEVEL
ERRORSYS
EVAL
EXP
EXPON
FCLOSE
FCOUNT
FCREATE
FERASE
FERROR
FIELDBLOCK
FIELDGET
FIELDNAME
FIELDPOS
FIELDPUT
FIELDNBLOCK
FIELDNPUT
FIELDWBLOCK
FILE
FKLABEL
FKMAX
FLOCK
FOPEN
FOUND
FREAD
FREADSTR
FRENAME
FSEEK
FSETDEVMODE
FWRITE
GBMPDISP
GBMPLOAD
GELLIPSE
GETACTIVE
GETAPPLYKEY
GETCLRBACK
GETCLRFORE
GETCLRPAIR
GETDOSETKEY
GETENV
GETHITTEST
GETNEW
GETPAIRLEN
GETPAIRPOS
GETPOSTVALID
GETPREVALID
GETREADER
GFNTERASE
GFNTLOAD
GFNTSET
GFRAME
GGETPIXEL
GLINE
GMODE
GPOLYGON
GPUTPIXEL
GRECT
GSETCLIP
GSETEXCL
GSETPAL
GUIAPPLYKEY
GUIPOSTVALIDATE
GUIPREVALIDATE
GUIREADER
GWRITEAT
HARDCR
HB_OSNEWLINE
HEADER
I2BIN
IF
IIF
INDEXEXT
INDEXKEY
INDEXORD
INSPECTCOL
INKEY
INT
ISAFFIRM
ISALPHA
ISARRAY
ISCHARACTER
ISCOLOR
ISDATE
ISDEFCOLOR
ISDIGIT
ISDISK
ISLOGIC
ISLOWER
ISNEGATIVE
ISNUMBER
ISPRINTER
ISSHORTCUT
ISUPPER
L2BIN
LASTKEY
LASTREC
LEFT
LEN
LENNUM
LISTBDEFCOLOR
LISTBOX
LOG
LOWER
LTRIM
LUPDATE
MAKEDIR
MAX
MAXCOL
MAXROW
MCOL
MDBLCLK
MEMOEDIT
MEMOLINE
MEMOREAD
MEMORY
MEMOSETSUPER
MEMOTRAN
MEMOWRIT
MEMVARBLOCK
MENUDEFCOLOR
MENUITEM
MENUMODAL
MHIDE
MIN
MLCOUNT
MLCTOPOS
MLEFTDOWN
MLPOS
MOD
MODULUS
MONTH
MPOSTOLC
MPRESENT
MRESTSTATE
MRIGHTDOWN
MROW
MSAVESTATE
MSETBOUNDS
MSETCLIP
MSETCURSOR
MSETPOS
MSHOW
MSTATE
NATIONMSG
NETERR
NETNAME
NEWLOCKS
NEXTKEY
NOSNOW
OPENMEMO
ORDBAGEXT
ORDBAGNAME
ORDCONDSET
ORDCREATE
ORDDESCEND
ORDDESTROY
ORDFOR
ORDISUNIQUE
ORDKEY
ORDKEYADD
ORDKEYCOUNT
ORDKEYDEL
ORDKEYGOTO
ORDKEYNO
ORDKEYVAL
ORDLISTADD
ORDLISTCLEAR
ORDLISTREBUILD
ORDNAME
ORDNUMBER
ORDSCOPE
ORDSETFOCUS
ORDSETRELATION
ORDSKIPUNIQUE
OS
OUTERR
OUTSTD
PAD
PADC
PADL
PADR
PARSEHEADER
POPUP
PCOL
PCOUNT
PROCFILE
PROCLINE
PROCNAME
PROW
PUSHBUTTON
QEXP
QOUT
QQOUT
RADGRPDEFCOLOR
RADIOBUTTON
RADIOGROUP
RADITDEFCOLOR
RANGECHECK
RAT
RDDDBFINFO
RDDLIST
RDDNAME
RDDORDINFO
RDDREGISTER
RDDSETDEFAULT
RDDSYS
READEXIT
READFORMAT
READINSERT
READKEY
READKILL
READMODAL
READUPDATED
READVAR
RECCOUNT
RECNO
RECSIZE
REPLICATE
RESTOREMEMO
RESTSCREEN
RIGHT
RLOCK
ROUND
ROW
RTRIM
RUN
SAVESCREEN
SCROLL
SCROLLBAR
SECONDS
SELECT
SET
SETBLINK
SETCANCEL
SETCLRPAIR
SETCOLOR
SETCURSOR
SETKEY
SETMODE
SETPOS
SETPRC
SETTYPEAHEAD
SOUNDEX
SPACE
SQRT
STR
STRTRAN
STRZERO
STUFF
SUBSTR
SYSINIT
TAPPLYKEY
TBADDCOL
TBAPPLYKEY
TBBLOCK
TBCLOSE
TBCOLUMNNEW
TBCREATE
TBDELCOL
TBDISPLAY
TBEDITCELL
TBFBLOCK
TBGOBOT
TBGOTOP
TBINSCOL
TBMODAL
TBMOUSE
TBREADER
TBROWSEDB
TBROWSENEW
TBSBLOCK
TBSKIP
TIME
TONE
TOPBAR
TRANSFORM
TRIM
TSTRING
TYPE
UPDATED
UPPER
USED
VAL
VALTYPE
VERSION
WORD
YEAR

[OP_LIST]

-
--
!
!=
#
*
*=
**
/
/=
:
:=
@
^
^=
+
++
+=
<
<=
<>
=
-=
==
>
->
>=
 
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Fri Sep 16, 2022 12:53 pm

Dear Jimmy, yes I have the same CLICK.INI as yours. The program flow is completely out of square after DEFINE DIALOG. I want it to start at COLUMN 4 and keep FLOW in Column 4 and write no more than COLUMN 78. It's possible: Apart from that the program is reporting errors that don't exist in the .prg.

Estimado Jimmy, sí, tengo el mismo CLICK.INI que el tuyo. El flujo del programa está completamente descuadrado después de DEFINE DIALOG. Quiero que comience en la COLUMNA 4 y mantenga FLUJO en la Columna 4 y no escriba más de la COLUMNA 78. Es posible: Aparte de eso, el programa informa errores que no existen en el .prg.

Gracias, thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Fri Sep 16, 2022 1:11 pm

Look Jimmy,

https://imgur.com/dz2yaql

Image


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby Jimmy » Fri Sep 16, 2022 8:09 pm

hi

as i say it is a old Cl*pper App which NEED
Code: Select all  Expand view  RUN
IF xxx
ENDIF

so every DEFINE XXX need a END XXX

you can use this "END dummy" for FiveWin
Code: Select all  Expand view  RUN
#xtranslate END FONT => //
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Mon Sep 19, 2022 12:19 pm

Buenos días Jimmy, lo siento, no entiendo, ¿dónde debo hacer esto?

Good morning Jimmy, sorry I don't understand, where should I do this?

Gracias, thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby Jimmy » Mon Sep 19, 2022 9:23 pm

hi karinha,

CLICK need to "close" Intend so it need "Keyword" END

Code: Select all  Expand view  RUN
#xtranslate END FONT   => //
#xtranslate END WINDOW => //

   DEFINE FONT oFont NAME 'TAHOMA'   SIZE   0, -   12
   END FONT  // add for CLICK

   DEFINE WINDOW oWnd
      // more DEFINE Control
      // more END Control
   END WINDOW // add for CLICK

   ACTIVATE WINDOW oWnd CENTERED

those #xtranslate will do "nothing" for Compiler as it is "just" a Comment using //
but it will tell CLICK to "close" Intend

---



CLICK is "more" than only "Formatter"

CLICK can write a "Header" into each Function / Procedure where it "Called from"
so you got a Cross-Reference of all Function / Procedure in Source

CLICK will also create Structure of DBF which are used in Source

---

CLICK can NOT "analyze" Macro*** or Method of CLASS
*** CLICK can use SNAPCODE for Marco

under Construction : CLICK fail on
FOR EACH
TRY / CATCH
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby karinha » Tue Sep 20, 2022 11:49 am

Buenos días Jimmy, te lo agradezco, pero por ahora Click.exe no sirve para mis propósitos. HBFORMAT.exe soluciona el 95% de mis problemas, HBFORMAT.exe podría mejorarse, pero ya está operativo en un 98%. Gracias.

Good morning Jimmy, I appreciate it, but for now Click.exe does not serve my purposes. HBFORMAT.exe solves 95% of my problems, HBFORMAT.exe could be improved, but it is already 98% operational. Thanks.

Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
User avatar
karinha
 
Posts: 7831
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Re: HBFORMAT.EXE de xHarbour/Harbour.

Postby Jimmy » Mon Sep 26, 2022 4:10 am

hi,

i will try to make a FiveWin Version of CLICK

CLICK is not only a "Formatter", it can also write a Header before all Function / Procedure and a Cross-Reference
Header will include "called from" so you can get Information which other Module depend on it

CLICK can use #SNAP (from Original SNAP App) for Macro e.g. for different DBF which will be listed in Header of *.PRG
CLICK will show DBF Structure in Log File

what CLICK can NOT
as CODE is based on Cl*pper it does not know METHOD of CLASS and Header / Cross Reference will be empty

todo :
as i have not use the Syntax before these are missing

Code: Select all  Expand view  RUN
FOR EACH
TRY / CATCH
greeting,
Jimmy
User avatar
Jimmy
 
Posts: 1732
Joined: Thu Sep 05, 2019 5:32 am
Location: Hamburg, Germany


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 50 guests