Xailer & OZ Software

El entorno de desarrollo definitivo en Xbase
https://forum.xailer.com/

Problema llamada a Super

https://forum.xailer.com/viewtopic.php?t=10941

Página 1 de 1

Problema llamada a Super

Publicado: Lun Nov 21, 2011 8:49 pm
por jose.luis
Éste es un mensaje de varias partes en formato MIME.
------=_NextPart_000_0010_01CCA88F.167AD480
Content-Type: multipart/alternative;
boundary="----=_NextPart_001_0011_01CCA88F.167AD480"
------=_NextPart_001_0011_01CCA88F.167AD480
Content-Type: text/plain;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
Hola,
Parece ser que xHarbour tiene alg=FAn problema con el tema de las =
llamadas a Super.
Por ejemplo, y simplificando, este c=F3digo:
CLASS MiClasePadre=20
METHOD New( a )
METHOD A() INLINE ::ClasSName()
METHOD B() INLINE Self:A()
METHOD C() INLINE "Padre"
ENDCLASS
METHOD New( a ) CLASS MiClasePadre
RETURN Self //Super:New(a)
CLASS MiClaseHijo FROM MiClasePadre
METHOD New( a )
METHOD A() INLINE "Hijo"
METHOD B() INLINE Super:ClassName()
METHOD C() INLINE Super:C()
ENDCLASS
METHOD New( a ) CLASS MiClaseHijo
RETURN Super:New(a)
CLASS MiClaseNieto FROM MiClaseHijo
METHOD New( a )
METHOD A() INLINE "Nieto"
METHOD B() INLINE Super:__Super:ClassName()
METHOD C() INLINE Super:__Super:C()
ENDCLASS
METHOD New( a ) CLASS MiClaseNieto
RETURN Super:New(a)
Llam=E1ndolo de esta manera:
o :=3D MiClaseNieto():New( Self )
MsgInfo(o:B(), "Nieto")
MsgInfo(o:C(), "Nieto")
En Harbour devuelve correctamente el ClassName (m=E9todo A) mientras que =
en xHarbour devuelve NIL.
=BFEsto es un fallo xHarbour o se hace diferente que en Harbour?
Os dejo un ejemplo.
Saludos y gracias,
Jos=E9 Luis Capel
------=_NextPart_001_0011_01CCA88F.167AD480
Content-Type: text/html;
charset="iso-8859-1"
Content-Transfer-Encoding: quoted-printable
<HTML><HEAD></HEAD>
<BODY dir=3Dltr>
<DIV dir=3Dltr>
<DIV style=3D"FONT-FAMILY: 'Calibri'; COLOR: #000000; FONT-SIZE: 12pt">
<DIV>Hola,</DIV>
<DIV>Â</DIV>
<DIV>Parece ser que xHarbour tiene alg=FAn problema con el tema de las =
llamadas a=20
Super.</DIV>
<DIV>Â</DIV>
<DIV>Por ejemplo, y simplificando, este c=F3digo:</DIV>
<DIV>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>CLASS MiClasePadre =
</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD New( a =
)</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD A() =
INLINE=20
::ClasSName()<BR>ÂÂ METHOD B() INLINE Self:A()<BR>ÂÂ =
METHOD=20
C() INLINE "Padre"<BR>ENDCLASS</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>METHOD New( a ) CLASS=20
MiClasePadre<BR>RETURN Self //Super:New(a)</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>CLASS MiClaseHijo FROM=20
MiClasePadre</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD New( a =
)</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD A() =
INLINE=20
"Hijo"<BR>ÂÂ METHOD B() INLINE =
Super:ClassName()<BR>ÂÂ=20
METHOD C() INLINE Super:C()<BR>ENDCLASS</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>METHOD New( a ) CLASS=20
MiClaseHijo<BR>RETURN Super:New(a)</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>CLASS MiClaseNieto FROM=20
MiClaseHijo</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD New( a =
)</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ METHOD A() =
INLINE=20
"Nieto"<BR>ÂÂ METHOD B() INLINE=20
Super:__Super:ClassName()<BR>ÂÂ METHOD C() INLINE=20
Super:__Super:C()<BR>ENDCLASS</FONT></DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas></FONT>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>METHOD New( a ) CLASS=20
MiClaseNieto<BR>RETURN Super:New(a)<BR></FONT></DIV>
<DIV>Â</DIV>
<DIV>Llam=E1ndolo de esta manera:</DIV>
<DIV>Â</DIV>
<DIV><FONT color=3D#0000ff face=3DConsolas>ÂÂ o :=3D =
MiClaseNieto():New(=20
Self )<BR>ÂÂ MsgInfo(o:B(), "Nieto")<BR>ÂÂ =
MsgInfo(o:C(),=20
"Nieto")</FONT><BR></DIV>
<DIV>Â</DIV>
<DIV>En Harbour devuelve correctamente el ClassName (m=E9todo A) =
mientras que en=20
xHarbour devuelve NIL.</DIV>
<DIV>Â</DIV>
<DIV>=BFEsto es un fallo xHarbour o se hace diferente que en =
Harbour?</DIV>
<DIV>Â</DIV>
<DIV>Os dejo un ejemplo.</DIV>
<DIV>Â</DIV>
<DIV>Saludos y gracias,</DIV>
<DIV>Jos=E9 Luis Capel</DIV></DIV></DIV></BODY></HTML>
------=_NextPart_001_0011_01CCA88F.167AD480--
------=_NextPart_000_0010_01CCA88F.167AD480
Content-Type: application/octet-stream;
name="testclases-1-0-0-0.zip"
Content-Transfer-Encoding: base64
Content-Disposition: attachment;
filename="testclases-1-0-0-0.zip"
UEsDBBQAAgAIAA2mdT8qJ1qZWQMAAJkOAAAOAAAAdGVzdGNsYXNlcy54cGqd V9ty2zYQfc9M/oGj
546YtG8dphlbtlLP6OKJEred2g8guKJg41YAtKl8fZaiKIIWNLXwIkt7zsFe sFjA2eda8OQZjGVK
fhp9HH8Yff7j/bvs1qhHoA6/JkmSfdtqSO4Ir+DTCGoYpXv7FVhqmHao7WAH 1lFOLNgDa1k5Xblj
wthfaqKEZhxMR6v/JCZXlTkQ5oTJuSoqfohkqoz4ONam7DkVd0xzuJHWEUnB dtR/DpS/b+dEsjUG
cYzd0D6Pg/GWGCLAYYWOoOX1vLMtDsa7tpbtL8/QMZsSpz36FThgMTp0gF1W jBdBpKkWkdsOu2BU
ieQLVznhyUqt3Qsx8EuyGs/GQ5XefmXlxr3OZLfHhhQwJ+bJhlB0KEC64xqk g3yzK2awbZRhYHvx
CveRAkKdujX4699IyqvC5+wtw1rZ1yt1Jp+2zB89Bv7qgz0KL1vuutcL9qJy ShDH6BzEMzFXgM1q
iN/iC9/ZFeRVeSPXKoiuKq0NWDtjEhaVyME0VCNOr9cpVhtlHK2cY7IMEv8i RkoEZ/AM/NBcPmOu
DOzTC21pA19OJsgIokRPWX/WFsNmkFZxwNMYxpuVMeOnwNJZOih4dl1rzNMr Z79xk9/vv1tsrvtH
ZYFXzI4vvqyW02/3OHWenNKDqu2a4OhEtx7CQV6y8AZ0HRVcrAMvOA+Kr41R ZqbKE1ub63asBuZS
6lcim+BQ8EZIyF2WeqRsyiThmGqvmVac74dqMJrvum7gptdObHILTjkpg/2z G7LcG9mLIBrUZ+kw
4OxusvJGkXfdLJQEb9h0tKxpTu/U7nq1+ZA4rAeXjHc/nCD+D+X4mkk959mM 5YYM511r2npr/FuT
5nJ7aP+MOctHSXNCXrXXaaGidYTKEoG3oY1R/seZA1+4eJsQFWKL6gjpvjjY dG8OdtM+Eh6M42cl
2emeRZSsdC9MnpVhrywrFuWTE1lGCQWhRkUpTVFE6Yp8LV0dK6VFHVValK61 i/JqWR3rdZOjOLa6
pLBRTgmF336NUlK8szUpISpifGQKJaOkWsfJqAGtbJR2k/9gOqpIP1B0jsuc 0gf64QW3ROFj8wyR
tsXTvSpyOtzNN0uFZaI8X0tfztcw0TxPztfhoMS3b/hYZql/eWZp/0/n+3c/ AVBLAwQUAAIACAAu
cXU/9J2PMMgAAAAvAQAAFQAAAFNvdXJjZS90ZXN0Y2xhc2VzLnByZ11PP6vC MBDfC/0OR11aB2sc
Aw6CuCmiDq7hetiDmJRrgvi5/QI28cHzveWG3/9r51AWMIej+Cdh8BoCjQGt GWnMxI6xJ/mDLwa5
ZW5LIwoPyC+nYf/qovXQEZALYjoDBux0BstokiRbNjF40Z9kwt5oWKlWqXa1 VCqhbVmUxYwd2jgl
VVfDlmSBfZXwaSRSF4Vgb9jVTcIAYDPkjsDeabxwsAR6DdXv4CrLLjsvd1U3 +kCP+tsEjT73/pHy
/qWd4k/LiUKU6YM3UEsDBBQAAgAIAAqmdT9mXqcyPAEAAJEDAAAPAAAAU291 cmNlL3Rlc3QucHJn
lZLPboJAEMbvJLzDhF7AgxSPe6MIkUQWIzbpzWzXaVlDxSxg0+fuC5Rdrf+1 BS7km5lvvt8ubs80
oAcTWX4hr0sCNVY1L1iFlS5Egucod3p/Ld+1OsSKS7Hm4ntFtOA3dSm3nxHy nBEYeK7nuYNHz1Oq
axqm8SBWvGgWCNYLEwXKPs8tpas3GPtZBokI1OoJW0gE142maQJ1+rpso9mO agOAJJyN0iFQ/LSB
wZnq2w7EdBzTECztYh1Xnw7VDIs3opZVlH2gMj+0BVdMQjrUEdW6swRwmd00 puHseUr1mhYka9Yo
iRpgzlXikViWoHFPbboRK5ebwDrC38S7PlX/N7Pae0A+Yz3ppALrU9DtbDdO 7XIfdD6/AG7vof1x
Nw0WGwQaj+8ewH6+Lfw+x/PH12Q7hHc6L53/xoH9AFBLAwQUAAIACAAapXU/ LOw0ARYBAABtAgAA
EAAAAFNvdXJjZS9Gb3JtMS5wcme1UbFugzAQ3ZH4hxNdIGpDnRGpAzGgVgIT BSp1Rc4RrBIcGaO2
390faG0Ykg6dWnu5e+/O9945XLkOrGCn5AdyLSPQOGreNyOOlsgE71B945lU J7I+q6OFExy5Emcu
PofIAvGkpZrDDHnXRLAhISHh5p4Qg4au4zo3YuD9dEDwXhrRo1rzzjM4zeOq gtqOgGxfFnNsKACg
ZbErWcpqkNtJazmQhSjS+rFMgCpsNJoGP7jEl2LaC/7qg6xwOKCCwDSnLLEz r0XNFt/bkxUVhnd/
esybvyuDyz0sHvOSxjlIk9lcQvQAhaDmh5hALf0gYvjmQ4V9C4v/8fg0tNKX 0dYPbsGzdd5Pjl5z
5u7T+nnPgIn+fxbwBVBLAwQUAAIACADPcXU/se4hOf8AAADZAQAAEAAAAFNv dXJjZS9Gb3JtMS54
Zm1dUFFrgzAYfBf8Dx8+RZASre1KYA/TGupYFZqMPZcuBZlLho1s7NcviR2m zdPlu0vu7ttXfNdu
oRzEUQuqhk8E/XSBGMqXJ8aA23EaBmEAADX9593VHEKY0IUa5fsFQf6AE8hw lkC+MmiJMcQ3wrLv
hNSs+xVGvMyNeJ35khMXPxrII0TONZoZRZV0DLcAxWSKgSDaM2BHeQEmhu4c JbBJwHjnt95X9TSp
mm1NHWLjlxiIX39BF/adY99qvoO2eK5KbhMUo9ZKpi7EhE2MRnwjY92fPTdv Iyk2cdYmz8ZuZuWJ
5qrXf+eyrTR7On34pBvMivs6NvCh4q+HxmUJgz9QSwECFAAUAAIACAANpnU/ KidamVkDAACZDgAA
DgAAAAAAAAAAACAAtIEAAAAAdGVzdGNsYXNlcy54cGpQSwECFAAUAAIACAAu cXU/9J2PMMgAAAAv
AQAAFQAAAAAAAAAAACAAtIGFAwAAU291cmNlL3Rlc3RjbGFzZXMucHJnUEsB AhQAFAACAAgACqZ1
P2ZepzI8AQAAkQMAAA8AAAAAAAAAAAAgALSBgAQAAFNvdXJjZS90ZXN0LnBy Z1BLAQIUABQAAgAI
ABqldT8s7DQBFgEAAG0CAAAQAAAAAAAAAAAAIAC0gekFAABTb3VyY2UvRm9y bTEucHJnUEsBAhQA
FAACAAgAz3F1P7HuITn/AAAA2QEAABAAAAAAAAAAAAAgALSBLQcAAFNvdXJj ZS9Gb3JtMS54Zm1Q
SwUGAAAAAAUABQA4AQAAWggAAAAA
------=_NextPart_000_0010_01CCA88F.167AD480--

Attached files testclases-1-0-0-0.zip (2.4 KB)Â

Problema llamada a Super

Publicado: Mar Nov 22, 2011 6:05 pm
por xmessoft
Eso no lo deberí­a ni permitir...
Que sentido que el método constructor de una clase devuelva un objeto de
la clase padre? Siempre deberí­a de devolver Self se ponga lo que se
ponga en el return. Otra cosa es que pongas:
METHOD New( a ) CLASS MiClaseHijo
::oPadre := Super:New(a)
RETURN Self
y ::oPadre será un objeto de la clase padre inicializado.
Por lo demás esto lo haces para putear un poco al compilador no?
JAJAJA
Saludos y a ver si nos hablamos questamos mu perdios los dos...
Manu
El 21/11/2011 20:49, José Luis Capel escribió:
> Hola,
> Parece ser que xHarbour tiene algún problema con el tema de las llamadas
> a Super.
> Por ejemplo, y simplificando, este código:
> CLASS MiClasePadre
> METHOD New( a )
> METHOD A() INLINE ::ClasSName()
> METHOD B() INLINE Self:A()
> METHOD C() INLINE "Padre"
> ENDCLASS
> METHOD New( a ) CLASS MiClasePadre
> RETURN Self //Super:New(a)
> CLASS MiClaseHijo FROM MiClasePadre
> METHOD New( a )
> METHOD A() INLINE "Hijo"
> METHOD B() INLINE Super:ClassName()
> METHOD C() INLINE Super:C()
> ENDCLASS
> METHOD New( a ) CLASS MiClaseHijo
> RETURN Super:New(a)
> CLASS MiClaseNieto FROM MiClaseHijo
> METHOD New( a )
> METHOD A() INLINE "Nieto"
> METHOD B() INLINE Super:__Super:ClassName()
> METHOD C() INLINE Super:__Super:C()
> ENDCLASS
> METHOD New( a ) CLASS MiClaseNieto
> RETURN Super:New(a)
> Llamándolo de esta manera:
> o := MiClaseNieto():New( Self )
> MsgInfo(o:B(), "Nieto")
> MsgInfo(o:C(), "Nieto")
> En Harbour devuelve correctamente el ClassName (método A) mientras que
> en xHarbour devuelve NIL.
> ¿Esto es un fallo xHarbour o se hace diferente que en Harbour?
> Os dejo un ejemplo.
> Saludos y gracias,
> José Luis Capel
Todos los horarios son UTC+02:00
Página 1 de 1

Desarrollado por phpBB® Forum Software © phpBB Limited

Traducción al español por phpBB España