; Sat Jan 07 19:40:55 CET 2006 ; ;+ (version "2.1.2") ;+ (build "Build 246") (defclass %3ACLIPS_TOP_LEVEL_SLOT_CLASS "Fake class to save top-level slot information" (is-a USER) (role abstract) (multislot manana (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (single-slot nombre ;+ (comment "El nombre de la actividad") (type STRING) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot comida_segunda (type INSTANCE) ;+ (allowed-classes Actividad_Comida) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot edad_m'axima ;+ (comment "La edad máxima recomendada") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot presupuesto (type SYMBOL) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot comida_primera (type INSTANCE) ;+ (allowed-classes Actividad_Comida) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot edad_m'inima ;+ (comment "La edad mínima recomendada o , depende de la actividad, la edad mínima según la ley.") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (multislot noche (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (single-slot precio ;+ (comment "El precío, más o menos, normalmente depende de la persona.") (type FLOAT) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot direcci'on ;+ (comment "La dirección de la actividad") (type STRING) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot duraci'on ;+ (comment "La duración recomendada de la actividad. El número de franjas.") (type INTEGER) (range 1 3) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot grupo (type SYMBOL) (allowed-values s'i no) ;+ (cardinality 0 1) (create-accessor read-write)) (multislot tarde (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (multislot franja ;+ (comment "La franja en que la actividad empieza.") (type SYMBOL) (allowed-values manana tarde noche) (cardinality 1 3) (create-accessor read-write)) (single-slot edad ;+ (comment "La edad de la persona") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot hecho ;+ (comment "El estado de la actividad") (type SYMBOL) (allowed-values no s'i) (default no) ;+ (cardinality 0 1) (create-accessor read-write))) (defclass Actividad (is-a USER) (role concrete) (multislot franja ;+ (comment "La franja en que la actividad empieza.") (type SYMBOL) (allowed-values manana tarde noche) (cardinality 1 3) (create-accessor read-write)) (single-slot direcci'on ;+ (comment "La dirección de la actividad") (type STRING) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot edad_m'axima ;+ (comment "La edad máxima recomendada") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot duraci'on ;+ (comment "La duración recomendada de la actividad. El número de franjas.") (type INTEGER) (range 1 3) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot precio ;+ (comment "El precío, más o menos, normalmente depende de la persona.") (type FLOAT) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot edad_m'inima ;+ (comment "La edad mínima recomendada o , depende de la actividad, la edad mínima según la ley.") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot nombre ;+ (comment "El nombre de la actividad") (type STRING) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot grupo (type SYMBOL) (allowed-values s'i no) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot hecho ;+ (comment "El estado de la actividad") (type SYMBOL) (allowed-values no s'i) (default no) ;+ (cardinality 0 1) (create-accessor read-write))) (defclass Actividad_no_comida (is-a Actividad) (role concrete)) (defclass L'udica (is-a Actividad_no_comida) (role concrete)) (defclass Bar "Un bar es un lugar para disfrutar y beber algo." (is-a L'udica) (role concrete)) (defclass Bar_Irland'es (is-a Bar) (role concrete)) (defclass Bar_para_Internacionales (is-a Bar) (role concrete)) (defclass Bar_de_Cocktails (is-a Bar) (role concrete)) (defclass Club (is-a L'udica) (role concrete)) (defclass Discoteca (is-a L'udica) (role concrete)) (defclass Cultural (is-a Actividad_no_comida) (role concrete)) (defclass Teatro (is-a Cultural) (role concrete)) (defclass Teatro_Cl'asico (is-a Teatro) (role concrete)) (defclass Improvisaci'on (is-a Teatro) (role concrete)) (defclass Teatro_Alternativo (is-a Teatro) (role concrete)) (defclass Museo (is-a Cultural) (role concrete)) (defclass Historia (is-a Museo) (role concrete)) (defclass Arte (is-a Museo) (role concrete)) (defclass Personas_C'elebres (is-a Museo) (role concrete)) (defclass Tecnolog'ia (is-a Museo) (role concrete)) (defclass Monumento (is-a Cultural) (role concrete)) (defclass Monumento_Religioso (is-a Monumento) (role concrete)) (defclass Edificio (is-a Monumento) (role concrete)) (defclass Escultura (is-a Monumento) (role concrete)) (defclass Cine (is-a Cultural) (role concrete)) (defclass Cine_Programa (is-a Cine) (role concrete)) (defclass Cine_Alternativo (is-a Cine) (role concrete)) (defclass Cine_Famoso (is-a Cine) (role concrete)) (defclass Cine_Original (is-a Cine) (role concrete)) (defclass Comercial (is-a Actividad_no_comida) (role concrete)) (defclass Gu'ia_de_la_Ciudad (is-a Comercial) (role concrete)) (defclass Parque_de_Atracci'on (is-a Comercial) (role concrete)) (defclass Viajes_a_fuera (is-a Comercial) (role concrete)) (defclass Actividad_Comida (is-a Actividad) (role concrete)) (defclass Comida_Espanola (is-a Actividad_Comida) (role concrete)) (defclass Bar_Espanol (is-a Bar Comida_Espanola) (role concrete)) (defclass Comida_China (is-a Actividad_Comida) (role concrete)) (defclass Comida_Mexicana (is-a Actividad_Comida) (role concrete)) (defclass Comida_Italiana (is-a Actividad_Comida) (role concrete)) (defclass Comida_Turca (is-a Actividad_Comida) (role concrete)) (defclass Comida_Japonesa (is-a Actividad_Comida) (role concrete)) (defclass Comida_R'apida (is-a Actividad_Comida) (role concrete)) (defclass Persona (is-a USER) (role concrete) (single-slot edad ;+ (comment "La edad de la persona") (type INTEGER) (range 1 99) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot presupuesto (type SYMBOL) ;+ (cardinality 0 1) (create-accessor read-write))) (defclass Horario "El horario de las actividades" (is-a USER) (role concrete) (multislot tarde (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (multislot manana (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (multislot noche (type INSTANCE) ;+ (allowed-classes Actividad_no_comida) (cardinality 1 3) (create-accessor read-write)) (single-slot comida_primera (type INSTANCE) ;+ (allowed-classes Actividad_Comida) ;+ (cardinality 0 1) (create-accessor read-write)) (single-slot comida_segunda (type INSTANCE) ;+ (allowed-classes Actividad_Comida) ;+ (cardinality 0 1) (create-accessor read-write)))