fb:porticula NoPaste

Info / Hilfe Liste
Übersicht / Liste Neu
Datei hochladen Suche
Quellcode suchen
Dateidownload
ZLScript.bi

Uploader:	XOR
Datum/Zeit:	06.01.2011 02:57:52
Enum

_Befehl = &H01

_Byte

_UByte

_Short

_UShort

_Integer

_UInteger

_Single

_String

_Const_Integer

_Const_Single

_Const_String

_Global_Integer

_Global_Single

_Global_String

_let

_same

_bigger

_smaler

_biggersame

_smalersame

_notsame

_and

_or

_not

_xor

_add

_sub

_mul

_div

_pot

_print

_screen

_cls

_do

_input

_sleep

_inkey

_if

_else

_elseif

_locate

_color

_rgb

_rgba

_chr

End Enum



Type TScriptBefehle

    BefehlName As ZString Ptr

    nummer As UInteger

    numArgumente As UInteger

End Type



Type TVari

    Zeiger As Any Ptr

End Type



Type TScriptVaris

    VariName As ZString Ptr

    VariType As UInteger

    VariZeiger As TVari Ptr

End Type



Type TArgument

    Was As UByte

    Zeiger As Any Ptr

End Type



Type TBefehl

    Befehl As UInteger

    numArgumente As UInteger

    pArgument As TArgument Ptr

    NextBefehl As TBefehl Ptr

End Type



Type TPosi

    n As UInteger

    a As UInteger

End Type



Type TRet

    Was As Byte

    Zahl As Double

    Stri As String

End Type



Dim Shared numVaris As UInteger

Dim Shared Varis As TScriptVaris Ptr



Declare Function Script_Phase(ByVal Text As String) As String

Declare Function Script_Phase_set_klammern(ByVal Text As String) As String

Declare Function Script_Phase_Rechnung(ByVal Text As String) As String

Declare Function Script_Phase_RechnungOp1(ByVal Text As String) As String

Declare Function Script_Phase_RechnungOp2(ByVal Text As String) As String

Declare Function Script_Phase_RechnungOp3(ByVal Text As String) As String

Declare Function Script_Phase_RechnungOp4(ByVal Text As String) As String

Declare Function Script_Phase_RechnungOp5(ByVal Text As String) As String

Declare Function Script_Phase_Entferne_Koments(ByVal Text As String) As String



Declare Function ZLCompileScriptfromFile(ByVal File As String) As TBefehl Ptr

Declare Function ZLCompileScript(ByVal Text As String) As TBefehl Ptr

Declare Function CompileScript(ByVal Text As String) As TBefehl Ptr



Declare Function RunScript(ByVal Script As TBefehl Ptr)As TRet

Declare Sub ZLDeleteScript(ByVal Script As TBefehl Ptr)



Declare Sub SetParameter(ByVal pBefehl As TBefehl ptr, ByVal NumPara As UInteger, ByVal ParameterListe As String, ByVal Liste As String)

Declare Sub Rechnung(ByVal pBefehl As TBefehl Ptr, ByVal BefehlsArgumente As String)

Declare Function GetVari(ByVal Was As UInteger, ByVal Zeiger As Any Ptr)As TRet

Declare Function FuncPara(ByVal Para As String) As String

Declare Function GetNumArgumente(ByVal Text As String)As UInteger

Declare Function GetArgument(ByVal Text As String, ByVal Num As UInteger)As String

Declare Sub NewVari(ByVal pBefehl As TBefehl Ptr, ByVal VariType As UInteger, ByVal BeArg As String, ByVal NumArg As UInteger)

Declare Function SucheVariType(ByVal VariName As String) As UInteger

Declare Function SucheVariZeiger(ByVal VariName As String) As Any Ptr

Declare Function CompileTerm(ByVal Text As String) As TBefehl Ptr

Declare Sub SetZahl(ByVal pVari As TArgument Ptr,ByVal VariNew As Double)

Declare Sub SetString(ByVal pVari As TArgument Ptr,ByVal VariNew As String)



Declare Function memSame(ByVal Zeiger1 As Any Ptr, ByVal Zeiger2 As Any Ptr, ByVal Leng As UInteger) As Byte

Declare Sub memcpy(ByVal Zeiger1 As Any Ptr, ByVal Zeiger2 As Any Ptr, ByVal Leng As UInteger)

Declare Sub memset(ByVal Zeiger As Any Ptr, ByVal NewByte As UByte, ByVal Leng As UInteger)

Declare Function memres(ByVal Zeiger As Any Ptr Ptr, ByVal Leng As UInteger)As Byte

Declare Function memrel(ByVal Zeiger As Any Ptr Ptr, ByVal Leng As UInteger)As Byte

Declare Sub memfree(ByVal Zeiger As Any Ptr Ptr)

Declare Function between(ByVal Zeiger1 As UInteger, ByVal Zeiger2 As UInteger, ByVal Zeiger3 As UInteger)As Byte





#Include Once "zlscript_zusatzfunctionen.bi"

#Include Once "zlscript_phaser.bi"

#Include Once "zlscript_compiler.bi"

#Include Once "zlscript_interpreter.bi"