incluir ficheros en winape

[Fran123]

Hola

Tengo un proyecto que va creciendo y quiero usar varias ficheros. Entre ellos hay algunas dependencias y si en todos incluyo algo común, al final me encuentro con "duplicate definition".

He probado a poner en cada fichero algo así:

Código: Seleccionar todo

let libreria1 = 1

y luego en los ficheros que hacen uso

Código: Seleccionar todo

ifndef libreria1
read "libreria1.asm"
print "cargar libreria1.asm"
endif

pero no funciona, es como si no leyera el fichero libreria1.asm

¿qué hago mal?
¿se puede hacer lo que quiero? ¿cómo?

[Artaburu]

Ya que has definido libreria1 entonces si quieres que se incluya en la compilación usa ifdef en lugar de ifndef.
Si quieres tenerla definida siempre, si le das valor 1 te va a funcionar con:
If libreria1
Read"xxxx.asm"
Endif
Si le das valor 0 no leerá el fichero

[Fran123]

pero pongo

Código: Seleccionar todo

let libreria=1

igual que puedo ponder

Código: Seleccionar todo

let libreria=333

El caso es que esté definida y sólo se incluya una vez en el proyecto.

Como yo lo entiendo es:
Varios ficheros tienen

Código: Seleccionar todo

read "libreria1.asm"

y en libreria1.asm pongo

Código: Seleccionar todo

let libreria=1

. Entonces la primera vez que se cargue libreria1.asm set define libreria1 y cuando se procese otro fichero y se encuentre

Código: Seleccionar todo

ifndef liberia1
read "libreria1.asm"
endif

como ya esta definido no se incluye.

¿me entiendes?

Ya que has definido libreria1 entonces si quieres que se incluya en la compilación usa ifdef en lugar de ifndef.
Si quieres tenerla definida siempre, si le das valor 1 te va a funcionar con:
If libreria1
Read"xxxx.asm"
Endif
Si le das valor 0 no leerá el fichero

[Artaburu]

No, la verdad es que no te entiendo.
Si quieres añadir la librería solo una vez, con que pogas el read "libreria.asm" es suficiente
si quieres dejar el read pero solo incluirla cuando tu le digas:
if INCLUIR
read "libreria.asm"
endif

Así no la incluye:
let INCLUIR = 0
Así sí la incluye:
let INCLUIR = 1