|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 1446 (0x5a6)
Types: TextFile
Notes: R1k Text-file segment
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦0c7457143⟧
└─⟦this⟧
/* -------------------------------------------------------------------- */
/* -- C routine Get_Argument -- */
/* -------------------------------------------------------------------- */
extern int ada__argc_save; /* number of command line arguments */
extern char **ada__argv_save; /* pointers to command line arguments */
short Xlbmt_Get_ArgC()
{
return ada__argc_save;
} /* Xlbmt_Get_ArgC */
short Xlbmt_Get_ArgV( arg_index, arg_ptr, arg_max_len )
short arg_index; /* index number of argument to be returned */
char *arg_ptr; /* pointer to string for storing argument */
short arg_max_len; /* maximum length of arg_ptr string */
{
register char *arg; /* pointer to the argument */
register char *stop; /* maximum pointer for the argument */
/* check argument position number */
if (arg_index >= ada__argc_save) return -1;
/* one pass for every character in the parameter */
/* until the null character at the end of the */
/* parameter is found */
arg = ada__argv_save[arg_index];
stop = arg + arg_max_len;
for ( ; arg < stop; ) {
if ((*arg_ptr++ = *arg++) == '\0') {
--arg;
break;
}
}
/* return the length of the string */
return (short)(arg - ada__argv_save[arg_index]);
} /* Xlbmt_Get_Argument */