Posted: Sat Dec 30, 2006 8:12 am
Any progress
?

http://www.purebasic.com
https://www.purebasic.fr/english/
Thank you.Pantcho!! wrote:nice one!
Looks good.
This was my intention, only because no user keywords can be added to the PB-Editor.Pantcho!! wrote:i think what Chrono meant for progress is the IDE and other well known PB keywords such as for user librarys and etc.
If this can be implment in a mini JaPBe editor that will be a blast!
Will take a look at itChrono Syndrome wrote:@fsw:
Take a look at: http://blitz.pp.ru/forum/attachment.php ... stid=17785
I want something like this, but better: with properties and static methods.
Thank you very much.Hroudtwolf wrote:Hey, FSW.
That's a cool tool (I know, I said it already. But I wanted to give a feedback in your tools homethread.).
These are all good ideas.Hroudtwolf wrote: I were very interested for a further developed version.
My wishes for a next version.
- Preprocessing per commandline. (useful as IDE-Tool.)
- Compiling after preprocessing.
- Selectable Class-Templates (for individual OOP-Style)
Hey, the most of the freaks here in the community was developed on the good old bread box (c64). There wasn't any syntaxhighlighting.Preprocessing per commandline would be possible in a snap, but then there would be no syntax hiliting (well for now LCP is not usable as editor either...).
Yes, exactly.Or do you mean the user should be able to create these templates and LCP should react accordingly. This would be a lot of work.
"->" is used to access the object propertySFSxOI wrote:I'm just now getting a chance to try this out on an actual project. I have a question; The '->' and 'This', are these the same as used in C++ or C#?
Code: Select all
;{ CBasic
Class Abstract CBasic ; the class cannot using with 'NewObject'
Public
Method CBasic()
*this\String = ?CBasic::MySection
EndMethod
Method ~CBasic()
; call by free the class
EndMethod
*String.s{255} ;/ public-variablen
Private
Method.l Method1()
MethodReturn *this\InternMethod()
EndMethod
Protected ; only using in this class
Method.l InternMethod()
ProcedureReturn @CBasic::InternMethod()
EndMethod
Global ; this modifier is for all objects
DataSection MySection
Data.s "MyString"
EndDataSection
EndClass
Procedure CBasic::CBasic()
*this\String = ?CBasic::MySection
EndProcedure
;}
;{ CBasic2
Class CBasic2
Public
Fixed Public lValue.l ; can´t change this variable at the 'Public'-even
EndClass
;}
;{ CClass
Class Sealed CClass Extends Public CBasic, Private CBasic2
Public
Method CClass(lParameter.l)
Debug "create class with parameter"
EndMethod
Public
Method GetValue.l()
MethodReturn *this\lValue ; return an extends variable
EndMethod
EndClass
;}
Define NewObject *obj.CClass(104)
*obj\String = "Hallo"
Debug *obj\Method1()
FreeObject *obj
Thanks.Leonhard wrote:Super!
Why should it be in the class?Leonhard wrote:A few ask, I would still have:
- why is C++ Borland-syntax here uses become? The methods should be in the class.
Suppose english is not your native language.Leonhard wrote:- gives it to also modifier later?
Not at the same time.Leonhard wrote: - can Can one use several Basic-classes?
Leonhard wrote: I found this is a good syntax:Code: Select all
;{ CBasic Class Abstract CBasic ; the class cannot using with 'NewObject' Public Method CBasic() *this\String = ?CBasic::MySection EndMethod Method ~CBasic() ; call by free the class EndMethod *String.s{255} ;/ public-variablen Private Method.l Method1() MethodReturn *this\InternMethod() EndMethod Protected ; only using in this class Method.l InternMethod() ProcedureReturn @CBasic::InternMethod() EndMethod Global ; this modifier is for all objects DataSection MySection Data.s "MyString" EndDataSection EndClass Procedure CBasic::CBasic() *this\String = ?CBasic::MySection EndProcedure ;} ;{ CBasic2 Class CBasic2 Public Fixed Public lValue.l ; can´t change this variable at the 'Public'-even EndClass ;} ;{ CClass Class Sealed CClass Extends Public CBasic, Private CBasic2 Public Method CClass(lParameter.l) Debug "create class with parameter" EndMethod Public Method GetValue.l() MethodReturn *this\lValue ; return an extends variable EndMethod EndClass ;} Define NewObject *obj.CClass(104) *obj\String = "Hallo" Debug *obj\Method1() FreeObject *obj