void Banner::Update() {
if (canvas != nil) {
Reconfig();
Resize();
Draw();
}
}
bool GlobusResource::Init()
{
if ( initialized ) {
return true;
}
std::string gahp_name;
formatstr( gahp_name, "GT2/%s", proxyFQAN );
gahp = new GahpClient( gahp_name.c_str() );
gahp->setNotificationTimerId( pingTimerId );
gahp->setMode( GahpClient::normal );
gahp->setTimeout( gahpCallTimeout );
monitorGahp = new GahpClient( gahp_name.c_str() );
monitorGahp->setNotificationTimerId( checkMonitorTid );
monitorGahp->setMode( GahpClient::normal );
monitorGahp->setTimeout( gahpCallTimeout );
initialized = true;
Reconfig();
return true;
}
void Interactor::DoConfig(boolean parentReversed) {
boolean reversed = parentReversed;
if (parent != nil) {
/* cast to workaround DEC C++ compiler bug */
output = ((Interactor*)parent)->output;
}
DefaultConfig(reversed);
Resource::ref(output);
Interactor* children[100];
Interactor** a;
int n;
GetComponents(children, sizeof(children) / sizeof(Interactor*), a, n);
if (n > 0) {
for (Interactor** ii = a; ii < &a[n]; ii++) {
Interactor* i = *ii;
i->parent = (Scene*)this;
i->world = world;
i->DoConfig(reversed);
}
if (a != children) {
delete a;
}
}
Reconfig();
}
bool CreamResource::Init()
{
if ( initialized ) {
return true;
}
// TODO This assumes that at least one CreamJob has already
// initialized the gahp server. Need a better solution.
std::string gahp_name;
formatstr( gahp_name, "CREAM/%s/%s", proxySubject, proxyFirstFQAN );
gahp = new GahpClient( gahp_name.c_str() );
gahp->setNotificationTimerId( pingTimerId );
gahp->setMode( GahpClient::normal );
gahp->setTimeout( gahpCallTimeout );
deleg_gahp = new GahpClient( gahp_name.c_str() );
deleg_gahp->setNotificationTimerId( delegationTimerId );
deleg_gahp->setMode( GahpClient::normal );
deleg_gahp->setTimeout( gahpCallTimeout );
status_gahp = new GahpClient( gahp_name.c_str() );
StartBatchStatusTimer();
status_gahp->setNotificationTimerId( BatchPollTid() );
status_gahp->setMode( GahpClient::normal );
status_gahp->setTimeout( gahpCallTimeout );
m_leaseGahp = new GahpClient( gahp_name.c_str() );
m_leaseGahp->setNotificationTimerId( updateLeasesTimerId );
m_leaseGahp->setMode( GahpClient::normal );
m_leaseGahp->setTimeout( gahpCallTimeout );
char* pool_name = param( "COLLECTOR_HOST" );
if ( pool_name ) {
StringList collectors( pool_name );
free( pool_name );
pool_name = collectors.print_to_string();
}
if ( !pool_name ) {
pool_name = strdup( "NoPool" );
}
formatstr( m_leaseId, "Condor#%s#%s#%s", myUserName, ScheddName, pool_name );
free( pool_name );
initialized = true;
Reconfig();
return true;
}
MonoScene::MonoScene (Sensor* in, Painter* out) : (in, out) {
component = nil;
}
MonoScene::~MonoScene () {
if (component != nil) {
delete component;
}
}
void MonoScene::DoInsert (Interactor* i, boolean, Coord&, Coord&) {
if (component != nil) {
delete component;
}
component = i;
}
void MonoScene::DoChange (Interactor*) {
Reconfig();
}
void MonoScene::DoRemove (Interactor*) {
component = nil;
}
void MonoScene::Reconfig () {
if (component != nil) {
*shape = *component->GetShape();
}
}
void MonoScene::Resize () {
if (output != nil) {
canvas->SetBackground(output->GetBgColor());
}
if (component != nil) {
Place(component, 0, 0, xmax, ymax);
}
}
void MonoScene::Draw () {
Scene::Draw();
if (component != nil) {
component->Draw();
}
}
void
Register()
{
daemonCore->Register_Signal( GRIDMAN_ADD_JOBS, "AddJobs",
(SignalHandler)&ADD_JOBS_signalHandler,
"ADD_JOBS_signalHandler", NULL );
daemonCore->Register_Signal( GRIDMAN_REMOVE_JOBS, "RemoveJobs",
(SignalHandler)&REMOVE_JOBS_signalHandler,
"REMOVE_JOBS_signalHandler", NULL );
daemonCore->Register_Signal( UPDATE_JOBAD, "UpdateJobAd",
(SignalHandler)&UPDATE_JOBAD_signalHandler,
"UPDATE_JOBAD_signalHandler", NULL );
/*
daemonCore->Register_Signal( GRIDMAN_CHECK_LEASES, "CheckLeases",
(SignalHandler)&CHECK_LEASES_signalHandler,
"CHECK_LEASES_signalHandler", NULL );
*/
daemonCore->Register_Timer( 60, 60, CHECK_LEASES_signalHandler,
"CHECK_LEASES_signalHandler" );
Reconfig();
}
void
main_init( int argc, char ** const argv )
{
dprintf(D_FULLDEBUG, "Welcome to the C-GAHP\n");
// handle specific command line args
int i = 1;
while ( i < argc ) {
if ( argv[i][0] != '-' )
usage();
switch( argv[i][1] ) {
case 's':
// don't check parent for schedd addr. use this one instead
if ( argc <= i + 1 )
usage();
ScheddAddr = strdup( argv[i + 1] );
i++;
break;
case 'P':
// specify what pool (i.e. collector) to lookup the schedd name
if ( argc <= i + 1 )
usage();
ScheddPool = strdup( argv[i + 1] );
i++;
break;
default:
usage();
break;
}
i++;
}
// Setup dprintf to display pid
DebugId = display_dprintf_header;
Init();
Register();
Reconfig();
// inherit the DaemonCore pipes that our parent created
REQUEST_INBOX = daemonCore->Inherit_Pipe(fileno(stdin),
false, // read pipe
true, // registerable
false); // blocking
RESULT_OUTBOX = daemonCore->Inherit_Pipe(fileno(stdout),
true, // write pipe
false, // nonregistrable
false); // blocking
request_buffer.setPipeEnd( REQUEST_INBOX );
daemonCore->Register_Timer(0,
init_pipes,
"init_pipes" );
// Just set up timers....
contactScheddTid = daemonCore->Register_Timer(
contact_schedd_interval,
doContactSchedd,
"doContactSchedD" );
}
void
main_config()
{
Reconfig();
}
void MonoScene::DoChange(Interactor*) {
if (output != nil) {
Reconfig();
}
}
int
handle_gahp_command(char ** argv, int argc) {
// Assume it's been verified
if (strcasecmp (argv[0], GAHP_COMMAND_JOB_REMOVE)==0) {
int req_id = 0;
int cluster_id, proc_id;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createRemoveRequest(
req_id,
cluster_id,
proc_id,
argv[4]));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_HOLD)==0) {
int req_id = 0;
int cluster_id, proc_id;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createHoldRequest(
req_id,
cluster_id,
proc_id,
argv[4]));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_RELEASE)==0) {
int req_id = 0;
int cluster_id, proc_id;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createReleaseRequest(
req_id,
cluster_id,
proc_id,
argv[4]));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_STATUS_CONSTRAINED) ==0) {
int req_id;
if (!(argc == 4 &&
get_int (argv[1], &req_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
char * constraint = argv[3];
enqueue_command (
SchedDRequest::createStatusConstrainedRequest(
req_id,
constraint));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_UPDATE_CONSTRAINED) ==0) {
int req_id;
ClassAd * classad;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_class_ad (argv[4], &classad))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
char * constraint = argv[3];
enqueue_command (
SchedDRequest::createUpdateConstrainedRequest(
req_id,
constraint,
classad));
delete classad;
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_UPDATE) ==0) {
int req_id;
ClassAd * classad;
int cluster_id, proc_id;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id) &&
get_class_ad (argv[4], &classad))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
//char * constraint = argv[3];
enqueue_command (
SchedDRequest::createUpdateRequest(
req_id,
cluster_id,
proc_id,
classad));
delete classad;
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_SUBMIT) ==0) {
int req_id;
ClassAd * classad;
if (!(argc == 4 &&
get_int (argv[1], &req_id) &&
get_class_ad (argv[3], &classad))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createSubmitRequest(
req_id,
classad));
delete classad;
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_UPDATE_LEASE) ==0) {
int req_id;
int num_jobs;
if (!(argc >= 4 &&
get_int (argv[1], &req_id) &&
get_int (argv[3], &num_jobs))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
job_expiration * expirations = new job_expiration[num_jobs];
int i;
for (i=0; i<num_jobs; i++) {
if (!get_job_id(argv[4+i*2],
&(expirations[i].cluster),
&(expirations[i].proc))) {
delete[] expirations;
return FALSE;
}
if (!get_ulong (argv[4+i*2+1], &(expirations[i].expiration))) {
delete [] expirations;
return FALSE;
}
}
enqueue_command (
SchedDRequest::createUpdateLeaseRequest(
req_id,
num_jobs,
expirations));
delete [] expirations;
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_STAGE_IN) ==0) {
int req_id;
ClassAd * classad;
if (!(argc == 4 &&
get_int (argv[1], &req_id) &&
get_class_ad (argv[3], &classad))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createJobStageInRequest(
req_id,
classad));
delete classad;
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_STAGE_OUT) ==0) {
int req_id;
int cluster_id, proc_id;
if (!(argc == 4 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createJobStageOutRequest(
req_id,
cluster_id,
proc_id));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_JOB_REFRESH_PROXY)==0) {
int req_id = 0;
int cluster_id, proc_id;
if (!(argc == 5 &&
get_int (argv[1], &req_id) &&
get_job_id (argv[3], &cluster_id, &proc_id))) {
dprintf (D_ALWAYS, "Invalid args to %s\n", argv[0]);
return FALSE;
}
enqueue_command (
SchedDRequest::createRefreshProxyRequest(
req_id,
cluster_id,
proc_id,
argv[4]));
return TRUE;
} else if (strcasecmp (argv[0], GAHP_COMMAND_INITIALIZE_FROM_FILE)==0) {
static bool init_done = false;
if ( init_done == false ) {
SetEnv( "X509_USER_PROXY", argv[1] );
UnsetEnv( "X509_USER_CERT" );
UnsetEnv( "X509_USER_KEY" );
proxySubjectName = x509_proxy_identity_name( argv[1] );
if ( !proxySubjectName ) {
dprintf( D_ALWAYS, "Failed to query certificate identity "
"from %s\n", argv[1] );
return TRUE;
}
Reconfig();
init_done = true;
}
return TRUE;
}
dprintf (D_ALWAYS, "Invalid command %s\n", argv[0]);
return FALSE;
}
void EVENT_USB_Device_Reset(void) {
Reconfig();
}
void EVENT_USB_Device_ConfigurationChanged(void) {
Reconfig();
}
Box::Box () : (nil, nil) {
nelements = 0;
head = nil;
tail = nil;
}
Box::~Box () {
register BoxElement* e;
register BoxElement* next;
for (e = head; e != nil; e = next) {
next = e->next;
delete e->child;
delete e;
}
}
void Box::Align (Alignment a) {
align = a;
}
void Box::DoInsert (Interactor* i, boolean, Coord&, Coord&) {
register BoxElement* e;
++nelements;
e = new BoxElement;
e->child = i;
e->next = nil;
if (head == nil) {
head = e;
tail = e;
} else {
tail->next = e;
tail = e;
}
}
void Box::DoChange (Interactor*) {
Reconfig();
}
void Box::DoRemove (Interactor* i) {
register BoxElement* e, * prev;
--nelements;
prev = nil;
for (e = head; e != nil; e = e->next) {
if (e->child == i) {
if (prev == nil) {
head = e->next;
} else {
prev->next = e->next;
}
if (e == tail) {
tail = prev;
}
delete e;
break;
}
prev = e;
}
ComputeShape(shape);
}
void Box::Reconfig () {
ComputeShape(shape);
}
