Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OOPMENU.ZIP
Filename : CLASS(Y).CH

 
Output of file : CLASS(Y).CH contained in archive : OOPMENU.ZIP
/*
class(y).ch - v1.05

Copyright (c) 1991 Anton van Straaten.
All rights reserved.
*/

#define CLASSY_VER100


#xcommand CLASS [FROM ] ;
=> ;
CREATE CLASS [FROM ]

#xcommand CREATE CLASS [FROM ] ;
=> ;
function ;;
static self ;;
local clsMkr ;;
if self == NIL ;;
clsMkr := ClassMaker():new(<"className">, [()]) ;;
method new constructor ;;
hidden:

#command INITIALIZE [CLASS] : => self := clsMkr:makeClass; csyMethify(self)

#xcommand END CLASS ;
=> ;
if self == nil ;;
self := clsMkr:makeClass ;;
else ;;
csyMethify() ;;
end; end ;;
return self ;;
#include "endclass.ch"

#xcommand ENDCLASS => END CLASS

#command EXPORTED: => ClassMaker():scope(1)
#command VISIBLE: => ClassMaker():scope(1)

#command HIDDEN: => ClassMaker():scope(2)
#command LOCAL: => HIDDEN:
#command PRIVATE: => HIDDEN:

#command PROTECTED: => ClassMaker():scope(4)

#command VAR <(name1)> [, <(nameN)>] [] ;
=> ;
clsMkr:variable({ <(name1)> [, <(nameN)>] }, .f., !<.ro.>)

#xcommand CLASS VAR <(name1)> [, <(nameN)>] [] ;
=> ;
clsMkr:variable({ <(name1)> [, <(nameN)>] }, .t., !<.ro.>)

#command INSTVAR <*details*> => VAR

#xcommand CLASSVAR <*details*> => CLASS VAR


#command MESSAGE [, ] [] ;
=> ;
clsMkr:method({ { <"message1">, { || () } } ;
[, { <"messageN">, { || () } }] }, <.ct.>, <.ct.>)

#command MESSAGE METHOD [] ;
=> ;
clsMkr:method({{ <"message">, { || () } }}, <.ct.>, <.ct.>)

#command MESSAGE [, ] ;
=> ;
clsMkr:method({ { <"message1">, nil } ;
[, { <"messageN">, nil }] }, .f., .f.)

#xcommand METHOD [, ] [] ;
=> ;
MESSAGE [, ]

#xcommand METHOD = [, = ] [] ;
=> ;
MESSAGE METHOD ;
[; MESSAGE METHOD ]

#xcommand METHOD = ;
=> ;
MESSAGE METHOD

#xcommand METHOD [, ] ;
=> ;
MESSAGE [, ]

#xcommand CLASS MESSAGE [, ] ;
=> ;
clsMkr:method({ { <"message1">, { || () } } ;
[, { <"messageN">, { || () } }] }, .t., .f.)

#xcommand CLASS MESSAGE METHOD ;
=> ;
clsMkr:method({{ <"message">, { || () } }}, .t., .f.)

#xcommand CLASS MESSAGE [, ] ;
=> ;
clsMkr:method({ { <"message1">, nil } ;
[, { <"messageN">, nil }] }, .t., .f.)

#command CLASS METHOD [, ] ;
=> ;
CLASS MESSAGE [, ]

#command CLASS METHOD = ;
=> ;
CLASS MESSAGE METHOD

#command CLASS METHOD [, ] ;
=> ;
CLASS MESSAGE [, ]

#command _CYCTOR ([])[()] ;
=> ;
__cyMethodType procedure ()

#command _CYCTOR ([])[()] ;
=> ;
__cyMethodType procedure new ()

#command _CYSUPCTOR ([])[()] ;
=> ;
local __csyDummy := qself():super:new()

#command _CYSUPCTOR ([])[()] ;
=> ;
local __csyDummy := qself():super:()

#command CONSTRUCTOR [, ] ;
=> ;
_CYCTOR () ;;
_CYSUPCTOR () ;;
local self := qself()

#command METHOD PROCEDURE ;
=> ;
__cyMethodType procedure ;;
local self := qself()

#command METHOD FUNCTION ;
=> ;
__cyMethodType function ;;
local self := qself()

#define __cyMethodType

#translate :: => self:

#translate @:([] [, ]) ;
=> ;
(_cyPshSelf() [, ])

// eof class(y).ch


  3 Responses to “Category : Dbase (Clipper, FoxBase, etc) Languages Source Code
Archive   : OOPMENU.ZIP
Filename : CLASS(Y).CH

  1. Very nice! Thank you for this wonderful archive. I wonder why I found it only now. Long live the BBS file archives!

  2. This is so awesome! 😀 I’d be cool if you could download an entire archive of this at once, though.

  3. But one thing that puzzles me is the “mtswslnkmcjklsdlsbdmMICROSOFT” string. There is an article about it here. It is definitely worth a read: http://www.os2museum.com/wp/mtswslnk/