Return information of works of the compiler [Resolved]

[Kwai chang caine]

Hello at all

I make exe by command line.
I use for that this line :

Code: Select all

ShortPathRepExeAInstaller$ = Space(#MAX_PATH) 
GetShortPathName_(PathExe, @ShortPathRepExeAInstaller$, #MAX_PATH)

ShortPathSource$ = Space(#MAX_PATH) 
GetShortPathName_(PathSource$, @ShortPathSource$, #MAX_PATH)
 
ShortPathCompilateur$ = Space(#MAX_PATH) 
GetShortPathName_(PathOfPb$ + "Compilers\PBCompiler.exe", @ShortPathCompilateur$, #MAX_PATH)
  
RunProgram(ShortPathCompilateur$, ShortPathSource$ + " /EXE " + Chr(34) + ShortPathRepExeAInstaller$ + NomExe + ".exe" + Chr(34), "", #PB_Program_Wait)

Before that's works, but now that don't works
So i don't have the information why, that don't works.

Is the compiler write a log file, or is it possible to ask at the compiler what error is it ???
Because the console appears only a few seconds, and i don't have the time to read

I whish you a good day

[Kwai chang caine]

I have a second question !!!!

I have found why that don't compile...
The compiler say to me

Constant not found: #PB_Editor_CreateExecutable.

Is it crazy, the compiler ???? :roll:
Because #PB_Editor_CreateExecutable, is not at KCC ....it's a GOD constante :roll:

So why, the compiler itself, not know HIS personal constants ????

[netmaestro]

You have to check #PB_Editor_CreateExecutable in the Constants tab of the compiler options, otherwise God doesn't know about it.

[Kwai chang caine]

Hello MASTER NETMAESTRO very glad to talk to you

I believe you mean in the panel compiler ??? :roll:
If it's yes..i don't understand what is the problem, this is my panel :roll:



Have you see, i compile in line command ??? :roll:

Code: Select all

RunProgram(ShortPathCompilateur$, ShortPathSource$ + " /EXE " + Chr(34) + ShortPathRepExeAInstaller$ + NomExe + ".exe" + Chr(34), "", #PB_Program_Wait)

Is it important or not ???

[Michael Vogel]

Whatever this should do, couldn't you check what happens by using MessageRequester_(ShortPathCompilateur$,...)

[Kwai chang caine]

Hello Michael, thanks to answer me

You mean i must try with no check the #PB_Editor_CreateExecutable in the panel of compiler ???
So i have unchecked it, and it's exactely the same thing...

I think that perhaps, like i run directly the compiler by line, he don't see the constant #PB_Editor_CreateExecutable, because perhaps this constant is a IDE constant ??? :roll:

[Michael Vogel]

Kwai, I'm not sure what you'd like to do, so I thought it would be useful to debug the content of your variables - this can be done by using the requester...

Anyhow, your code lines won't be enough (for me) to see, what you want to do, something like the following seems to work here...

Code: Select all

pathexe.s=#PB_Compiler_FilePath
ShortPathRepExeAInstaller$ = Space(#MAX_PATH+1) 
GetShortPathName_(PathExe, @ShortPathRepExeAInstaller$, #MAX_PATH)
Debug ShortPathRepExeAInstaller$ 

[Kwai chang caine]

Yes michael, it's not my command line who not works.

The compiler start perfectly, it begin to compile and when he found in my code this instruction :

Code: Select all

CompilerIf  #PB_Editor_CreateExecutable
 Several line of code
 Several line of code
 Several line of code
CompilerEndif

The compiler say to me

Constant not found: #PB_Editor_CreateExecutable.

When i compile with the Native IDE, that's works perfectly, but when i compile in command line, the compiler return this error
I don't know why ???
I have checked and unchecked the checkBox in compiler option and it's exactely the same thing

[Michael Vogel]

Did you have done a new installation of PB? Which version?
I've installed 4.31 and 4.40 for Windows, 32 Bit - everything works fine, when the option is active.

Hope you'll find the problem...
Michael

[Kwai chang caine]

I have try with the 4.30 and the 4.40 and it's the same thing

When you compile with command line you have no problem
Me....for have no problem i must compile with the IDE only
I don't understand anything like usually :roll:

Tomorow i reinstal the PB, perhaps a bad installation :roll:

[Kwai chang caine]

Nobody know, how i can have the rapport of the compiler ??? :roll:

[ts-soft]

Nobody know, how i can have the rapport of the compiler ??? :roll:

Use the Compiler-Interface, you can find the description in the SDK folder of your PB-Installation

...\SDK\CompilerInterface.txt

here a small example, but not for compiling

Code: Select all

EnableExplicit

Define.i Compiler = RunProgram(#PB_Compiler_Home + "\Compilers\pbcompiler", "/STANDBY", "", #PB_Program_Open | #PB_Program_Read | #PB_Program_Write | #PB_Program_Hide)
Define.s Text

NewList Functions.s()
If Compiler
  If IsProgram(Compiler)
    Repeat
    Until ReadProgramString(compiler) = "READY"
    WriteProgramStringN(Compiler, "FUNCTIONLIST")
    Debug ReadProgramString(Compiler) + " Funktionen verfügbar"
    Debug "---------------------------"
    Repeat
      Text = ReadProgramString(Compiler)
      If Text <> "OUTPUT" + #TAB$ + "COMPLETE"
        AddElement(Functions())
        Functions() = Text
      EndIf
    Until Text = "OUTPUT" + #TAB$ + "COMPLETE"
    WriteProgramStringN(Compiler, "END")
    CloseProgram(Compiler)
  EndIf
EndIf

ForEach Functions()
  Debug StringField(Functions(), 1, "(")
Next

greetings
Thomas

[Kwai chang caine]

Hello kind TSSOFT
You have a christmas hat like me....
But you are much beautiful

Again a function i don't know
Pffooiouuuuu !!! it's not simple for the little head of KCC

I have understand, we can talk directly with the compiler
And for talk to him, i must use WriteProgramStringN for give an order
And immediately after ReadProgramString for read the answer of compiler

But after ....like usually, FRED is not enough explicit
Like in the doc...he don't think that some client is brain incapacitate like me

I have tried that, but it's locked at the line 19

Code: Select all

 Debug ReadProgramString(Compiler) + " Funktionen verfügbar"

Code: Select all

EnableExplicit

Define.i Compiler = RunProgram(#PB_Compiler_Home + "\Compilers\pbcompiler", "/STANDBY", "", #PB_Program_Open|#PB_Program_Read|#PB_Program_Write|#PB_Program_Hide)
Define.s Text

NewList Functions.s()

If Compiler

  If IsProgram(Compiler)
  
   Repeat
   Until ReadProgramString(compiler) = "READY"
   
   WriteProgramStringN(Compiler, "SOURCE<T>E:\Donnees\XXXX\MESDOC~1\PROGRA~1\RECREA~1\RESOLU~1\KCC~1.1DU\_SOURC~1\KCC.pb")
   WriteProgramStringN(Compiler, "COMPILE<T>DEBUGGER<T>WARNINGS")
   WriteProgramStringN(Compiler, "TARGET<T>C:\Try.exe")
   
   Debug ReadProgramString(Compiler) + " Funktionen verfügbar"
   Debug "---------------------------"
   
   Repeat
   
    Text = ReadProgramString(Compiler)
    
    If Text <> "OUTPUT" + #TAB$ + "COMPLETE"
     AddElement(Functions())
     Functions() = Text
    EndIf
    
   Until Text = "OUTPUT" + #TAB$ + "COMPLETE"
   
   WriteProgramStringN(Compiler, "END")
   CloseProgram(Compiler)
   
  EndIf
  
EndIf

ForEach Functions()
 Debug StringField(Functions(), 1, "(")
Next

[ts-soft]

replace <T> with " + #TAB$ + " !
use long paths, not this ugly dos stuff

merry christmas

[Kwai chang caine]

You are really an angel
And at this period..the angels have numerous job

That's works perfectly, just a problem with the relative and absolute path...
But you are really an angel...because you have already answer at this question in the another THREAD

Thanks for all this help you give to me, since i am in this forum....
If you want..... i can to be also your IDIOTMAN
Because KCC is so IDIOT, that he can be the IDIOT, of several persons

I wish you a very very good day