task_private.h

Go to the documentation of this file.

#ifndef _newgen_task_private_included
#define _newgen_task_private_included
#define _gen_task_private_start 98
/*
 * THIS FILE HAS BEEN AUTOMATICALLY GENERATED BY NEWGEN.
 *
 * PLEASE DO NOT MODIFY IT.
 */
 
#if !defined(_newgen_statement_domain_defined_)
#define _newgen_statement_domain_defined_
#define STATEMENT_NEWGEN_DOMAIN (statement_domain)
#define statement_NEWGEN_DOMAIN (statement_domain)
typedef struct _newgen_struct_statement_ * statement;
#endif /* _newgen_statement_domain_defined_ */
 
#if !defined(_newgen_entity_domain_defined_)
#define _newgen_entity_domain_defined_
#define ENTITY_NEWGEN_DOMAIN (entity_domain)
#define entity_NEWGEN_DOMAIN (entity_domain)
typedef struct _newgen_struct_entity_ * entity;
#endif /* _newgen_entity_domain_defined_ */
 
#define statement_task_domain (_gen_task_private_start+0)
#if !defined(_newgen_statement_task_domain_defined_)
#define _newgen_statement_task_domain_defined_
#define STATEMENT_TASK_NEWGEN_DOMAIN (statement_task_domain)
#define statement_task_NEWGEN_DOMAIN (statement_task_domain)
typedef struct _newgen_struct_statement_task_ * statement_task;
#endif /* _newgen_statement_task_domain_defined_ */
 
#define task_domain (_gen_task_private_start+1)
#if !defined(_newgen_task_domain_defined_)
#define _newgen_task_domain_defined_
#define TASK_NEWGEN_DOMAIN (task_domain)
#define task_NEWGEN_DOMAIN (task_domain)
typedef struct _newgen_struct_task_ * task;
#endif /* _newgen_task_domain_defined_ */
 
/* STATEMENT_TASK
 */
#define STATEMENT_TASK(x) ((statement_task)((x).p))
#define statement_task_CAST(x) STATEMENT_TASK(x)
#define STATEMENT_TASK_CAST(x) STATEMENT_TASK(x)
#define STATEMENT_TASK_(x) ((x).e)
#define STATEMENT_TASK_TYPE statement_task
#define statement_task_TYPE statement_task
#define statement_task_undefined ((statement_task)gen_chunk_undefined)
#define statement_task_undefined_p(x) ((x)==statement_task_undefined)
 
extern statement_task copy_statement_task(statement_task);
extern void free_statement_task(statement_task);
extern statement_task check_statement_task(statement_task);
extern bool statement_task_consistent_p(statement_task);
extern bool statement_task_defined_p(statement_task);
#define gen_STATEMENT_TASK_cons gen_statement_task_cons
extern list gen_statement_task_cons(statement_task, list);
extern void statement_task_assign_contents(statement_task, statement_task);
extern void statement_task_non_recursive_free(statement_task);
extern void write_statement_task(FILE*, statement_task);
extern statement_task read_statement_task(FILE*);
extern statement_task make_statement_task(void);
 
struct _newgen_struct_statement_task_ {
  intptr_t _type_;
  hash_table _statement_task_holder_;
};
 
#define statement_task_domain_number(x) ((x)->_type_)
#define statement_task_hash_table(x) ((x)->_statement_task_holder_)
#define statement_task_key_type statement
#define statement_task_value_type task
#define STATEMENT_TASK_MAP(k,v,c,f) FUNCTION_MAP(statement_task,p,p,k,v,c,f)
#define STATEMENT_TASK_FOREACH(k,v,f) FUNCTION_FOREACH(statement_task,p,p,k,v,f)
extern task apply_statement_task(statement_task, statement);
extern void update_statement_task(statement_task, statement, task);
extern void extend_statement_task(statement_task, statement, task);
extern task delete_statement_task(statement_task, statement);
extern bool bound_statement_task_p(statement_task, statement);
 
/* TASK
 */
#define TASK(x) ((task)((x).p))
#define task_CAST(x) TASK(x)
#define TASK_CAST(x) TASK(x)
#define TASK_(x) ((x).e)
#define TASK_TYPE task
#define task_TYPE task
#define task_undefined ((task)gen_chunk_undefined)
#define task_undefined_p(x) ((x)==task_undefined)
 
extern task copy_task(task);
extern void free_task(task);
extern task check_task(task);
extern bool task_consistent_p(task);
extern bool task_defined_p(task);
#define gen_TASK_cons gen_task_cons
extern list gen_task_cons(task, list);
extern void task_assign_contents(task, task);
extern void task_non_recursive_free(task);
extern void write_task(FILE*, task);
extern task read_task(FILE*);
extern task make_task(intptr_t, list, intptr_t, bool);
 
struct _newgen_struct_task_ {
  intptr_t _type_;
  intptr_t _task_id_; /* id:int */
  list _task_private_data_; /* private_data:entity* */
  intptr_t _task_on_cluster_; /* on_cluster:int */
  gen_chunk _task_synchronization_; /* synchronization:bool */
};
 
#define task_domain_number(x) ((x)->_type_)
#define task_id_(x) task_id(x) /* old hack compatible */
#define task_id(x) ((x)->_task_id_)
#define task_private_data_(x) task_private_data(x) /* old hack compatible */
#define task_private_data(x) ((x)->_task_private_data_)
#define task_on_cluster_(x) task_on_cluster(x) /* old hack compatible */
#define task_on_cluster(x) ((x)->_task_on_cluster_)
#define task_synchronization_(x) task_synchronization(x) /* old hack compatible */
#define task_synchronization(x) ((x)->_task_synchronization_.b)
 
#define task_private_spec "\
--NEWGEN-START 98\n\
import statement from \"ri.newgen\";\n\
import entity from \"ri.newgen\";\n\
statement_task = persistant statement:statement -> task:task;\n\
task = id:int x private_data:entity* x on_cluster:int x synchronization:bool;\n\
"
#endif