maxfile
=1L<<24; maxstor
=1L<<31;
DO IF
eqstr("-w",argv
[1])
THEN wtflag
=2; argc
--; argv
++;
IF argc
>1 THEN symfil
= argv
[1]; FI
IF argc
>2 THEN corfil
= argv
[2]; FI
for (p
= argv
[3]; *p
; *fp
++ = *p
++) ;
if (stat(symfil
, &stbuf
) == -1) {
printf("`%s' does not exist\n", symfil
);
symtime
= stbuf
.st_mtime
;
if (stat(corfil
, &stbuf
) != -1) {
if (symtime
> stbuf
.st_mtime
)
printf("Warning: `%s' newer than `%s'\n",
/* set up variables for user */
maxoff
=MAXOFF
; maxpos
=MAXPOS
;
IF (sigint
= (ADDR
) signal(SIGINT
,01))!=01
THEN sigint
= (ADDR
) fault
; signal(SIGINT
,fault
);
sigqit
= (ADDR
) signal(SIGQUIT
,1);
tfn
= "/usr/hpk/sdblog/XXXXXX";
tfn
= "/usr/staff/hpk/sdblog/XXXXXX";
if (debug
) printf("Sdb restarted\n");
if (sdbttym
.sg_flags
!= userttym
.sg_flags
)
IF executing THEN
delbp(); FI
if (decode(readline(stdin
)) == 1) {
printf("Error; try again\n");
printf("cmd %c:\n", cmd
);
printf("%s:%s\n", proc
, var
);
printf("args-%s;re-%s;integ-%d\n", args
, re
, integ
);
printf("scallf-%d;reflg-%d\n\n", scallf
, reflag
);
error("Illegal floating constant");