English
SDK-aide/ Tools

JRPC new Precompiler for XProfan X4 - JRPC3

 
- Page 1 -



Jens-Arne
Reumschüssel
good evening together,

i'm recent over the trouble stumbled, that XPSE a quite large Quelldatei of I do not More process could. variables get suddenly as not definiert gemeldet and others "erratische" Problems More. I could me present, that this on it lying, that XPSE Keywords in windows-Atoms manages. there's sometime Schluss (with something between 60.000 and 70.000 Piece, where one deliberating must, that XPSE The windows-API with vorhält). Perhaps is But something integrally other, I can Yes not whom "Maschinenraum" of XPSE look.

anyway stayed me, there XPSE not any more taken care of becomes, nothing other spare, as the nachzubauen. the Result is JRPC3.

----- Features:

*reasonable Message of Fehlern
*direct display the Programmablaufes in XProfEd (sofern the under erhältliche aufgebohrte XProfEd is used)
*Umsetzung the middle-aged Profan-Syntax for Operators and old Containerfunktionen
*extreme speedy native fbPROCs, sofern one FreeBasic installs has (free, see Help)
*with fbPROCs can additionally Inline-Assembler too to XProfan X4 realized go
*extreme speedy native pbPROCs, sofern one PureBasic installs has
*Echtzeitverfolgung of Variableninhalten
*simple Zeitmessungen in the Programmablauf
*Profan-Kompilerdirektiven functions finally sensible (z.B. Verschachtelung)
*eingebettete variables functions too with Arrays
*most WIN32-API-functions are already vordefiniert included
*API-Aufrufe over @external(...) go automatically in @call(...)-Aufrufe umgesetzt
*Einrückungsanalyse to that find of vertrackten Verschachtelungsfehlern
*Klammeranalyse to that find of vertrackten Klammerfehlern
*ENUMERATE-Funktionalität
*Assert to Fehlerkontrolle
*it can arbitrary DLLs into XProfan-EXE integrate go, so tappt im dunkeln not delivered go must (see {$WrapDll})
*simple Killen Pixel JRPC3 launched Programs (interprets, .prc launched, .exe launched)
*extreme quick (and therefore naturally not XProfan written, there a interpretierte Language this natural plenty too slow is)
*at Start of JRPC3 already available .prc-Files can to that started and left used go (it'll one Info displayed, that it itself for a altes Compilations deals)
*the Profan-Compiler can to Beschleunigung with high Prozessorpriorität called go
*eingebauter Update-Checker with Download, if it one Update gives (Help --> online to Updates search)
*64- or 32-bit-Version available (simply JRPC3_64.exe or JRPC_32.exe as Interpreter in XProfEd deposit [Options --> general Settings] and JRPC3 with F7 started) - deference, The 64-bit-Version created naturally no 64-bit-XProfan-programs, there XProfan the not can, separate JRPC3 self becomes as 64-bit-Program carryed out
*XProfan X4-Syntax available (möglicherweise not yet everything, I presumably not everything of it use, but I have me circa Vollständigkeit ready - anyway are z.B. HASH-Arrays and QUADINTs thereby)
*Interpreter, PRCs and EXEs can with Kommandozeilenparametern carryed out go
*Interpreter, PRCs, EXEs and XPSE can with Administratorrechten carryed out go
*Procedures, The in the actually Program of course include are, but not uses go, go from the umgesetzten File removes, around the Filesize the Kompilats possible small To hold
*variables, The in the actually Program of course include are, but not uses go, go from the umgesetzten File removes, around the Filesize the Kompilats possible small To hold and the Speicherverbrauch To optimize
*nPROCs from XPSE go automatically with XPE to a DLL umgesetzt and the Aufrufe the nPROCs in the program properly adjusted, sofern XPSE present is
*almost everything from XPSE functions too in JRPC3 ({$NOERR}, {$(PRE)BATCH}, {$PUSHKEYWORD}, Interpreter, Runtime and compiler determine, Shorties, ...)
*XProfEd_JR with View source-AutoComplete
*XProfEd_JR with View source-Memory-function (Markierungen, To them zurückgesprungen go can)

Einschränkungen:
-no XPSE-Inline-Assembler, well but XProfan-Inline-Assembler (therein though no tests on Korrektheit the Codes)
-ABER: one can XPSE from JRPC3 out Call, so these Funktionalität furthermore available is, sofern one XPSE own (new Shorty: {$x})
-variables, The in a procedure not declared are, separate "aus the aufrufenden procedure übernommen werden", are standardmäßig not registered (XProfan allows the, but such a thing is just as mortal How GOTO-instructions). Please any To nutzenden Inputs as Parameter transfer, and if something from the aufrufenden Programmteil changed go must, when calling as Parameter z.B. @addr(x&) use and the procedure parameters x# and LONG x#,0=y& benefit.
If one but absolutely "vererbte" variables benefit would like, can this with the Kompilerdirektive {$Declare...} do.

*as Hommage on XPSE sounds The Endung the Ausgabedatei ".enh3"

an genauere explanation the individual Features is the chm-Helpfile To entnehmen, The in the program under Help --> Helpfile Show or with F1 available is.

----- /Features

Download and install:
JRPC3 can under Downloaded go (setup_jrpc3.exe or as ZIP-File).
as Installationsverzeichnis Please the XProfan-Stammverzeichnis indicate, means the one, in the The Files PROFAN.EXE, PROFCOMP.EXE, PRFRUN32.EXE etc. lying. alternatively can The ZIP-File Downloaded and its Content manually in that XProfan-Stammverzeichnis copies go.

facility:
JRPC3_64.exe or JRPC_32.exe as Interpreter in XProfEd deposit [Options --> general Settings] and JRPC3 with F7 started.

any command are with the commands "h" How "Hilfe" abrufbar and should selbsterklärend his.

for many erweitere Features, The XProfEd concern, How z.B. jenes, The row, in the one Error auftrat, directly in XProfEd Show to, is the mitinstallierte XProfEd_JR necessary. For this must one means XProfEd_JR.exe instead of XProfEd.exe as editor using. as "goody" there moreover, that at On- and Zufalten of Programs one Fortschrittsanzeiger integrate is (the can with large Programs Yes known a little bit last).

it likes his, that not yet everything perfect functions. I Please this circa clemency. my  programs can umsetzen, but the must yet long not hot, that this with Programs another Authors, The eachone so your Eigenheiten having, too functions.

Fehlermeldungen and Verbesserungsvorschläge gladly on jreumsc@web.de or here in the Forum.

best Regards, Jens-Arne

2.663 kB
Bezeichnung:JRPC3
Version:10.35
Kurzbeschreibung: JRPC3-Installer
Hochgeladen:02/15/21
Downloadcounter393
Download
1.699 kB
Bezeichnung:XProfEd_JR
Version:5.2
Kurzbeschreibung: old Version without AutoComplete to safety
Hochgeladen:02/15/21
Downloadcounter243
Download
4.061 kB
Bezeichnung:JRPC3
Version:10.35
Kurzbeschreibung: ZIP-File instead of Installer
Hochgeladen:04/02/21
Downloadcounter304
Download
 
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
02/16/21  
 



 
- Page 20 -


« this Posting watts as Solution marked. »

- Page 15 -



Jens-Arne
Reumschüssel
there's a new Version, The differently with the internen Messagehandling bypassing. Please probier The time from. Perhaps is the trouble so fixed.
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
09/24/22  
 




funkheld
Hello Jens-Arne.
How can your Catchbilder Please transparent show?
which colour must the Please his The transparent shining?

Thank you.
 
03/11/23  
 




Jens-Arne
Reumschüssel
the should itself from DrawPic yield. statement from the XProfan-Help:

DrawPic H, X, Y; n1[, n2]
H : LongInt - lever the Bitmap
X,Y: Integer - position, where The Bitmap drawn go should
n1 : Integer - Kopiermodus (-1 = transparent)
n2 : Longint - Transparente colour in the mode -1 (can also omitted)

The Bitmap with the lever H becomes on position X,Y in Originalgröße displayed. n1 is the Kopiermodus.

n2 is The colour, The at Kopiermodus -1 (transparent) transparent displayed becomes. Fehlt these indicated becomes The colour the limkesten downstairs Pixels taken.
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
03/11/23  
 




funkheld
Hello, thanks for Info.
goes as Sprite then wonderful.
 
03/11/23  
 




funkheld
with whom Program can The BMP-Sprites relative spin?

Thank you.
 
03/12/23  
 




Jens-Arne
Reumschüssel
Hierfür is the windows-API-function PlgBlt well useable.
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
03/12/23  
 




Jens-Arne
Reumschüssel
V8.46a uploaded:
diverse Improvements to that previous mail (Please Update-Checker benefit and therein The Versionshistorie standing)

actually innovation: {$Assert ...} installed, Please Help consult
to that concept:  [...] 

best Regards, Jens-Arne
 
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
04/04/23  
 




funkheld
Hello good day I grüße you.

The programs where these inc used becomes , walk not:
"$I graphic.inc"

it concerns too partly others inc.

Why the Please.

Thank you.
greeting
'From Timo blunder
'create of Säulendiagrammen
'command : INIT,ERSTELLE,NEXT,ZEIGE,ACHSE,USEGFONT,DEINIT
'Message:              with Fehlern is GError% = 1
'1. Par              : with Fehlern Messagebox (0 = No,Yes voreingestellt)
'axis:
'1. Par              : with each how much percent a Mark
'2. Par              : number The each on the level the Mark adjusted becomes
'3. Par              : String the Hinten angehangen becomes
'UseGFont:
'1. Par              : FontName
'2. Par              : Zeichenhöhe   (No 0)
'3. Par              : Zeichenbreite (No 0)
'4. Par              : Big?
'5. Par              : Italic?
'6. Par              : Underlined?
'Init:
'1. Par              : X worth the Koordinatenursprungs
'2. Par              : Y worth the Koordinatenursprungs
'3. Par              : length the X-axis
'4. Par              : Höhe the Y-axis
'5. Par              : length the 3D Bereichs
'6. Par              : AbStand the Seulen
'7. Par              : stood off supra  (z.B. Saülen over 100%)
'8. Par              : stood off left (z.B. Achsenbeschriftung)
'Erstelle:
'1. Par              : Höhe the Seule in relation To Y-axis (in percent)
'2. Par              : Beginn the Seule of ground from, can also as Feinjustierung the Seule used go
'3. Par              : length  the Seule
'4. Par              : colour  the Seule (deference, never pure Black, separate only z.B. Rgb(1,0,0)
'5. Par              : transparency (1 = Yes)
'6. Par              : Font in the Seule
'Next:
'0 Par
'show:
'1. Par              : lever the Window on the drawn go should
'2. Par              : KopierModus
'Deinit:
'0  Par
 $I graphic.inc
Window Style 24
Windowtitle "Säulendiagramme with the graphic.inc"
Window (%Maxx-600)/2,(%Maxy-400)/2 - 600,400
declare Waiting%
Wartezeit

Whileloop 30

    INIT "Säulendiagramm",50,250,450,110,30,50,100,50
    ACHSE 20,20,"%"
    ERSTELLE 40 - &Loop ,0,14        ,Rgb(255,0,0)      ,1,"H"
    ERSTELLE 30         ,0,14        ,Rgb(0,255,0)      ,0,"C"
    ERSTELLE 15 + &Loop ,0,14        ,Rgb(0,0,255)      ,1,"I"
    NEXT
    ERSTELLE 25         ,0,35+&Loop/4,Rgb(0,0,255)      ,1,"E"
    ERSTELLE 25         ,0,35        ,Rgb(0,0,255)      ,1,"G"
    ERSTELLE 25         ,0,35-&Loop/4,Rgb(0,0,255)      ,1,"A"
    ERSTELLE 15         ,0,35-&Loop/2,Rgb(0,0,255)      ,1,"S"
    NEXT
    NEXT
    NEXT
    ERSTELLE 25         ,0,50        ,Rgb(0,255,0)      ,0,"Hallo"
    ERSTELLE 50         ,0,50        ,Rgb(0,255,&Loop*7),0,"Hallo"
    ERSTELLE 25         ,0,50        ,Rgb(0,255,0)      ,0,"Hallo"
    NEXT
    NEXT
    ERSTELLE 130 - &Loop,0,20        ,Rgb(0,255,0)      ,0,"!!\n!!\n!!\n!!"
    ZEIGE %HWnd,0
    DEINIT

    if &Loop = 1

        DrawText 5,0,"Please Click!"
        Waitinput
        DrawText 5,0,Space$(100)

    endif

    Sleep Waiting%

Wend

Whileloop 30,0,-1

    INIT "Säulendiagramm",50,250,450,110,&Loop,50,0,50
    ACHSE 20,20,"%"
    ERSTELLE 40 - &Loop,0,15        ,Rgb(255,0,0)      ,1,"H"
    ERSTELLE 30        ,0,15        ,Rgb(0,255,0)      ,0,"C"
    ERSTELLE 15 + &Loop,0,15        ,Rgb(0,0,255)      ,1,"I"
    NEXT
    ERSTELLE 25        ,0,35+&Loop/4,Rgb(0,0,255)      ,1,"E"
    ERSTELLE 25        ,0,35        ,Rgb(0,0,255)      ,1,"G"
    ERSTELLE 25        ,0,35-&Loop/4,Rgb(0,0,255)      ,1,"A"
    ERSTELLE 15        ,0,35-&Loop/2,Rgb(0,0,255)      ,1,"S"
    NEXT
    NEXT
    NEXT
    ERSTELLE 25        ,0,50        ,Rgb(0,255,0)      ,0,"Hallo"
    ERSTELLE 50        ,0,50        ,Rgb(0,255,&Loop*7),0,"Hallo"
    ERSTELLE 25        ,0,50        ,Rgb(0,255,0)      ,0,"Hallo"
    NEXT
    NEXT
    ERSTELLE 100       ,0,20        ,Rgb(0,255,0)      ,0,"!!\n!!\n!!\n!!"
    ZEIGE %HWnd,0
    DEINIT
    Sleep Waiting%

Wend

Whileloop 50

    INIT "Säulendiagramm",50,250,450,110,0,50,0,50
    ACHSE 20,20,"%"
    ERSTELLE 40  - &Loop/1.25  ,0,15,Rgb(255,0,0)      ,1,""
    ERSTELLE 30  - &Loop/(5/3) ,0,15,Rgb(0,255,0)      ,0,""
    ERSTELLE 15  - &Loop/(10/3),0,15,Rgb(0,0,255)      ,1,""
    NEXT
    ERSTELLE 25  - &Loop/2     ,0,35,Rgb(0,0,255)      ,1,""
    ERSTELLE 25  - &Loop/2     ,0,35,Rgb(0,0,255)      ,1,""
    ERSTELLE 25  - &Loop/2     ,0,35,Rgb(0,0,255)      ,1,""
    ERSTELLE 15  - &Loop/(10/3),0,35,Rgb(0,0,255)      ,1,""
    NEXT
    NEXT
    NEXT
    ERSTELLE 25  - &Loop/2     ,0,50,Rgb(0,255,0)      ,0,""
    ERSTELLE 50  - &Loop       ,0,50,Rgb(0,255,&Loop*7),0,""
    ERSTELLE 25  - &Loop/2     ,0,50,Rgb(0,255,0)      ,0,""
    NEXT
    NEXT
    ERSTELLE 100 - &Loop*2     ,0,20,Rgb(0,255,0)      ,0,""
    ZEIGE %HWnd,0
    DEINIT
    Sleep Waiting%

Wend

Cls

Whileloop 30

    INIT "Säulendiagramm",50-&Loop*(4/3),250,450+&Loop*(8/3),110 + &Loop*2,&Loop,50,20,30'to that überdecken the middle-aged
    ZEIGE %HWnd,0
    DEINIT
    Sleep Waiting%

Wend

DrawText 5,0,"Please Click!"

Whileloop 2,50

    INIT "Säulendiagramm",10,250,570,170,30,50,5,0
    NEXT
    ERSTELLE &Loop/5     ,0          ,375,Rgb(122,255,255)  ,0,""
    ERSTELLE &Loop/1.8   ,(375-295)/2,295,Rgb(255,0,0)      ,1,""
    ERSTELLE &Loop/(8/3) ,(295-245)/2,245,Rgb(0,255,0)      ,0,""
    ERSTELLE &Loop/(10/3),(245-175)/2,175,Rgb(0,0,255)      ,1,""
    ERSTELLE &Loop/(5/3) ,(175-101)/2,101,Rgb(0,0,255)      ,1,""
    ZEIGE %HWnd,0
    DEINIT
    Waitinput

Wend

DrawText 5,0,MkStr$(" ",100)
declare A1%,A2%,A3%,A4%,R1%,R2%,R3%,R4%,Bew%,Bew2%
USEGFONT "Courier",18,7,1,1,1

While 1

    INIT "Säulendiagramm",10,250,570,170,30,50,5,0
    NEXT
    ERSTELLE 10       ,0                ,375,Rgb(122,255,255)  ,0,"LO!"
    ERSTELLE 50/1.8   ,(375-295)/2 + A1%,295,Rgb(255,0,0)      ,1,"LL"
    ERSTELLE 50/(8/3) ,(295-245)/2 + A2%,245,Rgb(0,255,0)      ,0,"AL"
    ERSTELLE 50/(10/3),(245-175)/2 + A3%,175,Rgb(0,0,255)      ,1,"HA"
    ERSTELLE 50/(5/3) ,(175-101)/2 + A4%,101,Rgb(0,0,255)      ,1,"H"
    ZEIGE %HWnd,0
    DEINIT
    Case    R1% : inc A1%
    Case    R2% : inc A2%
    Case    R3% : inc A3%
    Case    R4% : inc A4%
    Casenot R1% : dec A1%
    Casenot R2% : dec A2%
    Casenot R3% : dec A3%
    Casenot R4% : dec A4%
    Case (375-295)/2 + A1% = 0 : R1% = 1
    Case (295-245)/2 + A2% = 0 : R2% = 1
    Case (245-175)/2 + A3% = 0 : R3% = 1
    Case (175-101)/2 + A4% = 0 : R4% = 1
    Case (375-295)/2 = A1%     : R1% = 0
    Case (295-245)/2 = A2%     : R2% = 0
    Case (245-175)/2 = A3%     : R3% = 0
    Case (175-101)/2 = A4%     : R4% = 0

Wend

Waitinput
end

Proc Wartezeit

    declare Zeit&
    Zeit& = &GetTickCount

    Whileloop 10

        INIT "Tortendiagramm",%Maxx+70,30,300,300,170,&Loop/2,40,0
        ERSTELLE 40,Rgb(0,255,0),"Grün",0
        ERSTELLE 15,Rgb(255,0,0),"Rot",0
        ERSTELLE 10,Rgb(0,255,255),"Türkis",0
        ERSTELLE 05,Rgb(192,192,192),"Grau",0
        ERSTELLE 20,Rgb(255,255,0),"Gelb",0
        ERSTELLE 10,Rgb(255,0,255),"Lila",0
        ZEIGE %HWnd,0
        DEINIT

    Wend

    Zeit& = &GetTickCount - Zeit&
    Zeit& = Zeit& / 10

    if Zeit& < 32

        Waiting% = 32 - Zeit&

    else

        Waiting% = 0

    endif

Endproc

 
04/08/23  
 




funkheld
Hello, good afternoon .
These "$I Prospeed_Funktionen.inc" won't recognized.

Why the Please?

Thank you.
greeting
 
04/21/23  
 




Jens-Arne
Reumschüssel
Hello Funkheld,

I have your both last Posts first now seen, sorry (comic, usually should I a Email get, if here someone something posting...).

where lying because the two Include-Files? in the momentum seek JRPC3 only Programmverzeichnis and in the directory ...\XProfan\INCLUDE thereafter, not whom special Pfaden, everybody can in XProfEd take on can. I could the time install, but the suitable INI-File lying unfortunately somewhere into USER-Verzeichnissen under C:\windows... I gucke me the at times.

Einstweilen can You remedy create, because You in the $I-row whom filled way to Include-File angibst.

best Regards, Jens-Arne
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
04/26/23  
 




Jens-Arne
Reumschüssel
OK, have now installed, that the INC-way ausgewertet becomes, the in XProfEd hinterlegt is.
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
04/26/23  
 




Jens-Arne
Reumschüssel
V.8.56:
new function @GetFbProcAddr("<fbPROC-Name>")
- determined The Einsprungadresse of/ one fbPROC
- so it can z.B. as Callback-function uses go
- benefit to @ProcAddr of XProfan: it can as much as you want Callback-functions uses go, not only 5 per Parameteranzahl.
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
04/26/23  
 




Jens-Arne
Reumschüssel
Version 9.00:

PureBasic is with XProfan arrived!

it can now analog To fbPROCs native PureBasic-PROCs directly in the Source written and called go (pbPROCs).

PureBasic Although, differently as FreeBasic, not free, but there's a whole crowd Profaner, also PureBasic own and so bypass can. The Syntax of FreeBasic is relatively difficult To rule, and so with letzterem presumably the a or others gefremdelt has. this is with PureBasic, my I, differently, so now yet More of You in whom enjoyment of superschnellen nativen Procedures come go. who PureBasic own and beherrschaft, can now means integrally simply the two tollen worlds this Programmiersprachen directly in one code benefit and so the best from its XProfan-Programs herausholen.

These Funktionialität is yet new and very komplex, Please see it me therefore to, if there yet something not correctly. klappen ought to - and report me Please of Bugs, because otherwise can I tappt im dunkeln not to fix!

best Regards, Jens-Arne
 
XProfan X4
XProfan X4 * Prf2Cpp * XPSE * JRPC3 * Win11 Pro 64bit * PC i7-7700K@4,2GHz, 32 GB RAM
PM: jreumsc@web.de
04/28/23  
 




Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

71.935 Views

Untitledvor 0 min.
Axel Berse vor 14 Tagen
Jens-Arne Reumschüssel vor 18 Tagen
Paul Glatz vor 25 Tagen
HofK02/12/25
More...

Themeninformationen



Admins  |  AGB  |  Applications  |  Authors  |  Chat  |  Privacy Policy  |  Download  |  Entrance  |  Help  |  Merchantportal  |  Imprint  |  Mart  |  Interfaces  |  SDK  |  Services  |  Games  |  Search  |  Support

One proposition all XProfan, The there's!


My XProfan
Private Messages
Own Storage Forum
Topics-Remember-List
Own Posts
Own Topics
Clipboard
Log off
 Deutsch English Français Español Italia
Translations

Privacy Policy


we use Cookies only as Session-Cookies because of the technical necessity and with us there no Cookies of Drittanbietern.

If you here on our Website click or navigate, stimmst You ours registration of Information in our Cookies on XProfan.Net To.

further Information To our Cookies and moreover, How You The control above keep, find You in ours nachfolgenden Datenschutzerklärung.


all rightDatenschutzerklärung
i want none Cookie