(932)  Login

English
SDK-aide/ Tools

ModernXProfan

 
- Page 1 -



Jac
de
Lad
so, now in eigenem Thread.

here's The neuste Version (this time with View source), now with DragnDrop and recognize too functions it space to the (. out of /* and */ should now Real everything functions...i'll me soon time ransetzen and the unaufgeräumten View source in a structure bring and the Proggi speed!

231 kB
Hochgeladen:10/14/06
Downloadcounter: 344
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/14/06  ▲
Vollständiges Quote
Absatzweise QuoteZeilenweise Quote
 



 
- Page 2 -



Jac
de
Lad
so, with the Listbox and Co works now, but only unless The Containerfunktion Create() is used. Also is the View source now something faster. and the edit of ; and , in Strings (to that example a$=s$,f$) is now something effizienter...

231 kB
Hochgeladen:10/16/06
Downloadcounter: 112
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/16/06  ▲
 




Jac
de
Lad
@Michael: this is no apology, separate The truth. as i recently in Members was have I fixes, I as fourth of supra aufgelistet will be...with Wally as Avatar. in a who the there hingemehrt has, but I wars not. I Have Wally only runtergeladen and Avatar take on for me tuned, so Wally too into Posts appear.
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/16/06  ▲
 




Michael
Wodrich
time integrally impudent demand:

believe You, that the a agent interested?
 
Programmieren, das spannendste Detektivspiel der Welt.
10/16/06  ▲
 




Nico
Madysa
If the GEZ fees of dead and Haustieren desires, then go itself too guaranteeing Anwälte find, The The apology into ground stomp go.

what the program angeht: Top! at that testing have I no Error found, too comments go at @-intertwine in silence let.
 
Nico Madysa
10/16/06  ▲
 




Jac
de
Lad
@Michael: sure, sure...

@Nico: thanks. The View source lying Yes with, wennde want kannste yet the following install:

- discern of Blöcken The through /* and */ locked in go
- supplant the Parameters of Create(Listbox, Create(Sortedlistbox and Create(Choicebox through Integerwerte (0,1 or 2; see XProfan-10-Help); or. supplant of Create(SortedListbox through Create(Listbox with Parameter 1 (Sorting)
- discern of Lines with end (Weiterführung on the next row

I have always attempts, that the View source possible near ans Original herankommt, but straight with space must I there unfortunately Abstriche make and let almost any entfernen; therefore sees the View source hereafter unfortunately usually quite different from: The Einrückungen any lane. in the momentum white so did i not, How I the efficient prevent can...
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/16/06  ▲
 




Nico
Madysa
the place I I do not straight simply to, but You could a Stack mitlaufen let, the with proc, while(hardship/loop), if, etc. increased and beiwend, endwhile, endproc, endif, endselect, etc. erniedrigt becomes.
And then setting You yet with say we time @Space$(stack%) Lerrzeichen before it.
 
Nico Madysa
10/16/06  ▲
 




Jac
de
Lad
Ähm, this is me To tricky...therefore Have ichs Yes not yet made. Have another bisschen updated...Create(sortedlistbox becomes now streng in Create(listbox transformed.

231 kB
Hochgeladen:10/16/06
Downloadcounter: 110
Download
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/16/06  ▲
 




Nico
Madysa
Aaaaaalso, something slower:
I suppose, ModernXProfan rattert more or less line by line by the View source.
You screen then simply, whether there one commands is, of a Einrücken requires.
(z.B. while, proc, if, Select, etc). If one such commands vorliegt, erhöhst You a variable (take we time stack%) circa 1. In all subsequently formatierten Lines fügst You at the beginning Space(stack%), means stack% space, one. find You against it a commands How EndIf, Wend, EndSelect, ENDPROC, or schieß-me-dead-what-yet, then becomes The Variable stack% circa 1 erniedrigt (dec stack%).
so place ichs me to, whether it works is ne others question.
 
Nico Madysa
10/16/06  ▲
 



Uralt
CompileMarkSeparation
##########################################################################
PRF-Struktur, a Profan OpenSource Project(theFirst?),started april 2004
Copyright (C) 2004 by DS/iF (!ReGeXiT) on (iF@mxii.com)
__________________________________________________________________________
This program is free software; you can redistribute it and/or
modify it under the terms of the GNU General Public License
as published by the Free Software Foundation; either version 1.1
of the License, or (at your option) any later version.
This program is distributed in the hope that it will be useful,
but WITHOUT ANY WARRANTY; without even the implied warranty of
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
GNU General Public License for more details.
You should have received a copy of the GNU General Public License
along with this program; if not, write to the Free Software
Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-
1307, USA.
__________________________________________________________________________
Source changed by: [20040707] [IF] [if@mxii.com] <- added xpse syntax
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
Source changed by: [DATE] [NICK/NAME] [EML]
##########################################################################
decimals 0
def inv(1) if(@%(1),0,1)
declare s$,cx%,ch$,kl%,ln%,insa%,pre$,infle$,maxinsa%,maxln%,frl%,lnp%

proc _end

    end

endproc

proc printfree

    ifnot frl%

        print #2,
        frl%=1
        add lnp%,1

    endif

endproc

proc printit

    parameters s$
    print #2,s$
    add lnp%,1
    frl%=0

endproc

proc printm

    parameters s$,n%
    print s$,n%
    sleep 1000
    close #1
    close #2
    shell notepad _out_.txt
    waitkey
    end

endproc

windowtitle Struktur V1.0 - Profan
windowstyle 24
window 100,100 - 640,480
frl%=0
lnp%=0
infle$=loadfile$(Profan-Programm:,Profan-Quellcode (*.prf)|*.prf|Alle Dateien (*.*)|*.*)

if len(infle$)

    assign #1,infle$
    reset #1
    assign #2,_out_.txt
    rewrite #2
    locate 1,1
    print Datei:,infle$
    kl%=0
    ln%=0
    insa%=0
    maxinsa%=0
    maxln%=0

    whilenot eof(#1)

        input #1,s$
        s$=translate$(s$,chr$(7),)
        s$=trim$(translate$(s$,chr$(9),))
        add ln%,1

        while or(equ$(chr$(9),mid$(s$,1,1)),equ$(chr$(32),mid$(s$,1,1)))

            s$=del$(s$,1,1)

        wend

        casenot len(trim$(s$)) : continue

        ifnot mod(lnp%,25)

            locate 2,1
            print Zeilen:,lnp%
            print maximale Tiefe:,maxinsa%+1

        endif

        case kl% : printm string parse error in line:,lnp%

        ifnot equ$(mid$(s$,1,3),P +chr$(34))

            cx%=0

            while lt(cx%,len(s$)+1)

                add cx%,1
                ch$=mid$(s$,cx%,1)

                if equ$(,ch$)

                    ifnot kl%

                        s$=mid$(s$,1,cx%-1)

                    endif

                endif

                case equ$(ch$,chr$(34)) : kl%=inv(kl%)

                ifnot kl%

                endif

            wend

            s$:=trim$(s$)
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : printfree
            case equ$(REPEAT,upper$(mid$(s$,1,6))) : printfree
            case equ$(WEND,upper$(s$)) : printfree
            case equ$(UNTIL,mid$(upper$(s$),1,5)) : printfree
            case equ$(ENDWHILE,upper$(s$)) : printfree
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : printfree
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : printfree
            case equ$(IF ,upper$(mid$(s$,1,3))) : printfree
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : printfree
            case equ$($IFNDEF ,upper$(mid$(s$,1,8))) : printfree
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : printfree
            case equ$(PROC ,upper$(mid$(s$,1,5))) : printfree
            case equ$(SUBPROC ,upper$(mid$(s$,1,8))) : printfree
            case equ$(FUNCTION ,upper$(mid$(s$,1,9))) : printfree
            case equ$(PROCEDURE ,upper$(mid$(s$,1,10))) : printfree
            case equ$(ENDPROC,upper$(s$)) : sub insa%,1
            case equ$(ENDIF,upper$(s$)) : sub insa%,1
            case equ$(ENDIF,upper$(s$)) : printfree
            case equ$($ENDIF,upper$(s$)) : endsub insa%,1
            case equ$($ENDIF,upper$(s$)) : printfree

            if equ$(ELSEIF ,upper$(mid$(s$,1,7)))

                sub insa%,1
                printfree

            elseif equ$(ELSE,upper$(mid$(s$,1,4)))

                printfree
                sub insa%,1

            endif

            case equ$(UNTIL,upper$(mid$(s$,1,5))) : sub insa%,1
            case equ$(WEND,upper$(mid$(s$,1,4))) : sub insa%,1
            case equ$(ENDWHILE,upper$(mid$(s$,1,8))) : sub insa%,1
            case lt(insa%,0) : printm Insafailure in line:,lnp%

            if gt(insa%,maxinsa%)

                maxinsa%=insa%
                maxln%=lnp%

            endif

            pre$=mkstr$(chr$(9),insa%)

            if len(trim$(s$))

                printit add$(pre$,s$)

            endif

            case equ$(REPEAT,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : add insa%,1
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : add insa%,1

            if equ$(ELSEIF ,upper$(mid$(s$,1,7)))

                add insa%,1
                printfree

            elseif equ$(ELSE,upper$(mid$(s$,1,4)))

                printfree
                add insa%,1

            endif

            case equ$(PROC ,upper$(mid$(s$,1,5))) : add insa%,1
            case equ$(SUBPROC ,upper$(mid$(s$,1,8))) : add insa%,1
            case equ$(PROCEDURE ,upper$(mid$(s$,1,10))) : add insa%,1
            case equ$(FUNCTION ,upper$(mid$(s$,1,09))) : add insa%,1
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : add insa%,1
            case equ$($IFDEF ,upper$(mid$(s$,1,7))) : printfree
            case equ$(IF ,upper$(mid$(s$,1,3))) : add insa%,1
            case equ$(IF ,upper$(mid$(s$,1,3))) : printfree
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : add insa%,1
            case equ$(IFNOT ,upper$(mid$(s$,1,6))) : printfree
            case equ$(WHILENOT ,upper$(mid$(s$,1,9))) : printfree
            case equ$(WHILELOOP ,upper$(mid$(s$,1,10))) : printfree
            case equ$(REPEAT,upper$(mid$(s$,1,6))) : printfree
            case equ$(WHILE ,upper$(mid$(s$,1,6))) : printfree
            case equ$(ENDIF,upper$(s$)) : printfree
            case equ$($ENDIF,upper$(s$)) : printfree
            case equ$(ENDPROC,upper$(s$)) : printfree
            case equ$(WEND,upper$(s$)) : printfree
            case equ$(UNTIL,upper$(mid$(s$,1,5))) : printfree
            case equ$(ENDWHILE,upper$(s$)) : printfree
            case lt(insa%,0) : printm Insafailure in line:,lnp%

        endif

    wend

    close #1
    close #2
    locate 2,1
    print Zeilen:,lnp%
    print maximale Tiefe:,maxinsa%+1,in Zeile,maxln%
    sleep 2000
    shell notepad _out_.txt

endif

end
 
10/16/06  ▲
 




Jac
de
Lad
I looks not integrally through but it standing you spare whom View source anzupassen and here To post. whom benefit should the for me bring?
 
Profan² 2.6 bis XProfan 11.1+XPSE+XPIA+XPRR (und irgendwann XIDE)
Core2Duo E8500/T2250, 8192/1024 MB, Radeon HD4850/Radeon XPress 1250, Vista64/XP
10/18/06  ▲
 




Michael
Wodrich
well so one code-Abhübscher should whom code readable hold. Einrückungen automatisieren, Keywords in Großschrift wandeln, etc.

where straight these programs a possible large OPTIONEN-Schublade having should, because The flavours are differently.

The a bevorzugt 2 space to that Einrücken, the others rather tabulators....

The a wants The Keywords integrally big (z.B.: GETBVALUE), the others rather in this shape (GetBValue)....

Best wishes
Michael Wodrich
 
Programmieren, das spannendste Detektivspiel der Welt.
10/19/06  ▲
 




Michael
Dell
Hallole,

so Gibts another trouble:
CompileMarkSeparation
If Neq(DuplicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2),0)pre>

but not:
CompileMarkSeparation
If (DuplicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2) <> 0)pre>

comes the out:
CompileMarkSeparation
If (<>)plicateHandle(GetCurrentProcess(),hpiperead&,

    GetCurrentProcess(),Addr(htmpread&),0,1,2),0)pre>

Nachtrag:   is from ProFellow! (Pipe)

P.s.: find your Program lovely !!!
 
Salu Michael...

Hab zwar krumme Fieß awer dofir e' ecklich Gsicht! 
10/19/06  ▲
 



◄►

Answer


Topictitle, max. 100 characters.
 

Systemprofile:

no Systemprofil laid out. [anlegen]

XProfan:

 Posting  Font  Smilies  ▼ 

Please register circa a Posting To verfassen.
 

Topic-Options

Unreaded
subscribe
Remember-List
Notes
guests
Delete
Permanent
Done

50.694 Views

Themeninformationen

this Topic has 10 subscriber:

Jac de Lad (34x)
iF (6x)
Nico Madysa (4x)
Michael Wodrich (4x)
Dietmar Horn (2x)
Peter Max Müller (2x)
Dieter Zornow (1x)
Frank Abbing (1x)
unbekannt (1x)
Michael Dell (1x)


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