PureBasic Forums - English

http://www.purebasic.com
https://www.purebasic.fr/english/

Classes in PureBasic

https://www.purebasic.fr/english/viewtopic.php?t=53235

Page 2 of 11

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 7:10 am
by skywalk
We go round and round...:mrgreen:
I vote for procedures in structures 8)
Then they are insulated and private until the structure is used.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 7:37 am
by fsw
People emphasize too much on classes and forget that classes come at a cost, especially if you mix stuff like multiple inheritance into the mix.
There are other ways to get modular programming going. (without the complexity...)

@Fred
Maybe we can get this instead:
(similar to the Go language - it has no "classy" oop either)

Code: Select all

Module MyMod

Structure Foo
    intFoo.i
EndStructure

Procedure.i (x.Foo) Get()
        ProcedureReturn x\intFoo
EndProcedure

Procedure (x.Foo) Set(value.i)
        x\intFoo = value
EndProcedure

;- main
Global myfoo.Foo 
myfoo\Set(123)
PrintN(Str(myfoo\Get()))
Where the "(x.Foo)" is the receiver of the procedure.

In the long run this is much more flexible and maybe even more powerful than the "class" thing.
Especially if each include file is a module and therefore each module can have procedures with the same name.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 7:48 am
by User_Russian
Fred wrote:PureBasic won't be object oriented, period.
Fred, let it be, not OOP, but need of isolation procedures (procedures available from a limited part of the code). Otherwise difficult to develop and support projects. I hope you agree with this?
This can be a Name Space and (or) procedures within the structure.
Especially if each include file is a module and therefore each module can have procedures with the same name.
+1000000

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 12:11 pm
by Fred
Namespaces (modules) are planned for code isolation, but it won't be OOP.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 12:58 pm
by Danilo
Fred wrote:Namespaces (modules) are planned for code isolation, but it won't be OOP.
How is it planned?

Code: Select all

Module GUI
   Procedure OpenWindow(..)
   EndProcedure
EndModule

GUI\OpenWindow(...)
GUI->OpenWindow(...)
GUI_OpenWindow(...)
GUI#OpenWindow(...)
GUI?OpenWindow(...)
GUI::OpenWindow(...)
:?:

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 1:24 pm
by Fred
Like that:

GUI_OpenWindow(...)

With an OpenModule/CloseModule to avoid the prefix if you want to.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 1:30 pm
by Danilo
Fred wrote:Like that:

GUI_OpenWindow(...)

With an OpenModule/CloseModule to avoid the prefix if you want to.
Like this?

Code: Select all

Module GUI
   Procedure OpenWindow(..)
   EndProcedure
EndModule

GUI_OpenWindow(...)

OpenModule GUI

    OpenWindow(...)

CloseModule
Sounds OK, but how is OpenWindow() within OpenModule/CloseModule differentiated from the real PB OpenWindow()? (name collision)

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 2:06 pm
by Fred
It will raise an error if your command name clash (like an user lib), so you will have to use the module prefix.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 2:11 pm
by luis

Code: Select all

GUI_OpenWindow()
How do you know looking at the call you are invoking OpenWindow() in the module GUI and not a procedure named GUI_OpenWindow() ? After all GUI_OpenWindow is a valid name.

Wouldn't be better to use as separator something currently invalid in a procedure name ? For example GUI::OpenWindow()

Code: Select all

Module GUI
   Procedure OpenWindow(..)
   EndProcedure
EndModule

GUI::OpenWindow(...)  ; call the one defined in the module GUI

OpenModule GUI
 OpenWindow(...)  ; call the one defined in the module GUI
CloseModule

OpenModule GUI
 Other::OpenWindow(...) ; call another OpenWindow from another module

 ::OpenWindow(...) ; call the implicit module (the only one we have now) hence call the PB OpenWindow

 OpenWindow(...) ; call the one defined in the module GUI

 OpenScreenWindow(...) ; not defined in the module, call the PB command
CloseModule
Fred wrote:It will raise an error if your command name clash (like an user lib), so you will have to use the module prefix.
Shouldn't be the purpose of modules to avoid the name clashing in the first place ?

Shouldn't work the other way around then ?

If I use OpenModule all the procedures I call should be searched in that module first without any collision. If it's defined, I call that one.

If a procedure I call is not defined in the module, then the compiler should look outside the module, that way it would find the usual PB commands.

In case I know I want to call a procedure outside the module that has the same name of one in the module, I should have to specify the target module name in the call or the default "implicit" one using only the special chars "::".

Am I missing something ?

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 2:15 pm
by User_Russian
Maybe better to do so?

Code: Select all

Module GUI Extends Wind ; Inheritance module Wind.

Public ; Exported from the module.

   Pos.POINT

   Procedure OpenWindow(..)
   EndProcedure
   
Private ; No exported from the module.

   Structure MyStruct
     x.l
   EndStructure

   Win.RECT

   Procedure WindowParam(..)
   EndProcedure
   
EndModule


x.MyStruct ; Error - Private Structure.

OpenModule GUI

  Pos\x=0 ; OK.

  OpenWindow(..) ; OK
  
  Win\left = 4 ; Error - Private Structure
  
  WindowParam(..) ; Error - Private Procedure.
  
  x.MyStruct ; Error - Private Structure.

CloseModule
Should support nested calls modules.

Code: Select all

Module GUI

   Procedure OpenWindow(..)
   EndProcedure

EndModule
   
Module Event

   Procedure EventWindow(..)
   EndProcedure

EndModule


OpenModule GUI
  
  OpenWindow(..)

  OpenModule Event

     EventWindow(..)

  CloseModule ; Close Event (default)

CloseModule

Code: Select all

OpenModule GUI
  
  OpenWindow(..)

  OpenModule Event

     EventWindow(..)

  CloseModule GUI

CloseModule Event

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 2:59 pm
by Danilo
Fred wrote:It will raise an error if your command name clash (like an user lib), so you will have to use the module prefix.
Thanks!

Sounds OK, except that "Using Module Danilo" or just "Using Danilo" would be easier to use for end users (that use my inckude)
than "OpenModule Danilo" / "CloseMdule" combination.

Code: Select all

Module Danilo
   Procedure New_Window(..)
   EndProcedure
EndModule

win1 = Danilo_New_Window(...)

OpenModule Danilo

    win2 = New_Window(...)

CloseModule

Code: Select all

Module Danilo
   Procedure New_Window(..)
   EndProcedure
EndModule

win1 = Danilo_New_Window(...)


Using Module Danilo
; Using Danilo ; alternatively

win2 = New_Window(...)
Generally speaking it is just someting like With/EndWith?

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 3:08 pm
by luis
Danilo wrote: Sounds OK
Are you sure ? Don't you see a problem with that ?
http://www.purebasic.fr/english/viewtop ... 30#p403130

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 3:09 pm
by Fred
You don't have to close it, it's not mandatory. It can be useful to be able to unregister a module after use, so that's why it's here.

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 3:18 pm
by Danilo
luis wrote:
Danilo wrote: Sounds OK
Are you sure ? Don't you see a problem with that ?
http://www.purebasic.fr/english/viewtop ... 30#p403130
It's better than nothing! ;)

Code: Select all

Module DirectX
   Procedure New_OpenScreen(..)
   EndProcedure
EndModule

Module OpenGL
   Procedure New_OpenScreen(..)
   EndProcedure
EndModule


OpenModule DirectX ; change to OpenGL to use another implementation

    scr = New_OpenScreen(...)

CloseModule
(Same could be done with changing 'XIncludeFile "DirectX.pbi"' to 'XIncludeFile "OpenGL.pbi"')

Re: Classes in PureBasic

Posted: Mon Feb 04, 2013 3:24 pm
by ts-soft
I miss a feature to protect a function in module. Protected functions only available inside the module block.
All times are UTC+01:00
Page 2 of 11

Powered by phpBB® Forum Software © phpBB Limited