home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Frozen Fish 1: Amiga
/
FrozenFish-Apr94.iso
/
bbs
/
alib
/
d5xx
/
d552
/
taskpri.lha
/
TaskPri
/
TaskPri.c
< prev
next >
Wrap
C/C++ Source or Header
|
1991-10-28
|
5KB
|
147 lines
/**
TASKPRI - lets the user change task priorities by specifying the
task NAME.
Author: Steve Anderson
Date: August 3, 1991
This program and the accompanying source is freeware and can be used,
altered and ripped however you like. Enjoy!
**/
#include <stdio.h>
#include <string.h>
#include <exec/types.h>
#include <exec/execbase.h>
#include <exec/tasks.h>
#ifdef LATTICE
#include <proto/exec.h>
int CXBRK(void) { return(0); } /* Disable Lattice CTRL/C handling */
int chkabort(void) { return(0); } /* really */
#endif
#define NAME_LIMIT 30
#define LIMIT 60
extern struct ExecBase *SysBase;
short main( int argc, char *argv[] );
short main( int argc, char *argv[] )
{
struct Task *task;
char *name;
char taskname[LIMIT][NAME_LIMIT];
short taskpri[LIMIT];
short pri;
short acount = 1;
short tcount;
short tlimit;
short nlimit = 0;
short t;
short DEFAULT = 0; /* 0 = standard, 1 = no args, list tasks */
short LIST = 0; /* 0 = TaskWait list, 1 = TaskReady list */
if ( argc == 1 )
{
DEFAULT = 1; /* no argument case */
--acount; /* set acount equal to zero */
}
else if ( ((argc == 2) && (strcmp( argv[1], "?") == 0)) || (argc%2 != 1) )
{
puts("\n Usage: TaskPri NAME PRIORITY [ [NAME PRIORITY] ... ]\n");
exit(1);
}
while (acount < argc) /* while there are still arguments to process */
{
/* normal execution */
if (DEFAULT == 0) /* standard */
{
/* set name string */
name = argv[acount];
/* convert pri argument to an integer */
pri = (short)strtol( argv[acount+1], NULL, 10 );
/* find task # in task list */
tcount = acount/2 + 1;
tlimit = tcount - 1;
/* find # of previous tasks with same name */
for( t = tlimit; t > 0; t-- )
if ( strcmp(argv[tcount],argv[t]) )
--tcount;
} /* end if */
Forbid(); /* shut off task switching */
/* search TaskWait/ThisTask lists for task names */
task = (struct Task *)SysBase->TaskWait.lh_Head;
while ( task->tc_Node.ln_Succ )
{
if (DEFAULT == 1) /* if there are no command line arguments */
{
if(strlen(task->tc_Node.ln_Name) > (NAME_LIMIT-1))
strncpy((char *)&taskname[nlimit][0],task->tc_Node.ln_Name,(NAME_LIMIT-1));
else
strcpy((char *)&taskname[nlimit][0],task->tc_Node.ln_Name);
taskpri[nlimit] = task->tc_Node.ln_Pri;
nlimit++;
}
else if ( !strcmp(name,task->tc_Node.ln_Name) ) /* GOOD */
{
if ( tcount > 1 )
{
--tcount;
}
else
{
SetTaskPri( task, pri ); /* set new priority */
Permit(); /* re-activate task switching */
printf(" Name:
%-30s
Priority:
%3d
\n", name, pri );
Forbid(); /* shut off task switching */
break;
}
} /* end else if */
/* increment to next item in list */
task = (struct Task *)task->tc_Node.ln_Succ;
/* check to see if TaskWait list is done */
if ( !task->tc_Node.ln_Succ )
switch ( LIST )
{
case 0:
LIST++;
task = (struct Task *)SysBase->ThisTask;
break;
case 1:
LIST++;
task = (struct Task *)SysBase->TaskReady.lh_Head;
break;
} /* end if-switch */
} /* end while loop */
Permit(); /* re-activate task switching */
acount += 2; /* increment to next task */
} /* end while loop */
while ( (DEFAULT==1) && (nlimit>0) ) /* PRINT tasks if no args */
{
nlimit--;
printf(" Name:
%-30s
Priority:
%3d
\n", &taskname[nlimit][0], taskpri[nlimit] );
} /* end while loop */
} /* end main loop */
/**************************** EOF *********************************/