(1.135)  Login

English
Source / code snippets

code Formatierer

 

CompileMarkSeparation
Source wurde am 15.07.2007 aus der MMJ-Quellcodesammlung (Dietmar Horn) in die Babyklappe auf XProfan.Com abgelegt:
Code-Formatierer
##########################################################################
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$=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

            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$(IFNOT ,Upper$(Mid$(S$,1,6))) : Printfree
            Case Equ$(PROC ,Upper$(Mid$(S$,1,5))) : 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

            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$(PROCEDURE ,Upper$(Mid$(S$,1,10))) : Add Insa%,1
            Case Equ$(FUNCTION ,Upper$(Mid$(S$,1,09))) : Add Insa%,1
            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$(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
 
07/15/07  ▲
 



Zum Quelltext


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

1.190 Views

Untitledvor 0 min.
RudiB.09/12/21
Walter08/21/17
Julian Schmidt02/01/13

Themeninformationen

this Topic has 1 subscriber:

unbekannt (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