CAAD
http://foro.caad.es/

Posible bug
http://foro.caad.es/viewtopic.php?f=6&t=64
Página 1 de 1

Autor:  Invitado [ 03 Sep 2004 16:26 ]
Asunto:  Posible bug

Antes de levantar la liebre a ver si veis algo raro en esta rutina (evidentemente usa txtpaws):

Código:
METER _
   LT fObjeto 255               ; Hay objeto
   NOTEQ fNombre2 255  ; Y tengo segundo nombre (contenedor)
   LT fNombre 255             ; Es un nombre válido del vocabulario
   CARRIED @fObjeto       ; Llevas el objeto
   NEWLINE
   COPYFF fObjeto fAux01   ; Copias el objeto a otro flag
   COPYFF fNombre2 fNombre
   COPYFF fAdjetivo2 fAdjetivo
   WRITE "Nombre nuevo -> "
   PRINT fNombre
   NEWLINE
   WRITE "Adjetivo nuevo -> "
   PRINT fAdjetivo
   NEWLINE
   WHATO                   ; Ahora fObjeto contiene el contenedor
   WRITE "Objeto nuevo -> "
   PRINT fObjeto
   NEWLINE
   ;; PRESENT @fObjeto
   ONOTZERO @51 1          ; ¿Es un contenedor?
   WRITE "El segundo objeto es un contenedor."
   COPYFF 51 fAux02        ; Salva el contenedor a otro objeto
   COPYFF fAux01 fObjeto   ; fObjeto vuelve a ser el original
   AUTOP @fAux02
   OK


el problema parece radicar en que el WHATO no hace la conversión del nuevo nombre-adjetivo a objeto. ¿Fallo de concepto o fallo de comando?. En alguna otra situación WHATO si se comporta con naturalidad

Página 1 de 1 Todos los horarios son UTC + 1 hora
Powered by phpBB® Forum Software © phpBB Group
http://www.phpbb.com/