From 3f1eebaf44d3af34d138a21a92d0a3adf70ced63 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Fredrik=20H=C3=BCbinette=20=28Hubbe=29?= <hubbe@hubbe.net>
Date: Sun, 5 Apr 1998 21:27:06 -0700
Subject: [PATCH] new option -q<instructions before forced exit>
Rev: src/main.c:1.46
---
src/main.c | 33 +++++++++++++++++++++++++++++++--
1 file changed, 31 insertions(+), 2 deletions(-)
diff --git a/src/main.c b/src/main.c
index 5e6c14b17f..292de002e3 100644
--- a/src/main.c
+++ b/src/main.c
@@ -4,7 +4,7 @@
||| See the files COPYING and DISCLAIMER for more information.
\*/
#include "global.h"
-RCSID("$Id: main.c,v 1.45 1998/04/01 14:26:51 grubba Exp $");
+RCSID("$Id: main.c,v 1.46 1998/04/06 04:27:06 hubbe Exp $");
#include "fdlib.h"
#include "backend.h"
#include "module.h"
@@ -50,6 +50,16 @@ int t_flag=0;
int a_flag=0;
int l_flag=0;
int p_flag=0;
+static long instructions_left;
+
+static void time_to_exit(struct callback *cb,void *tmp,void *ignored)
+{
+ if(instructions_left-- < 0)
+ {
+ push_int(0);
+ f_exit(1);
+ }
+}
static struct callback_list post_master_callbacks;
@@ -187,6 +197,25 @@ int dbm_main(int argc, char **argv)
}
break;
+ case 'q':
+ if(!p[1])
+ {
+ e++;
+ if(e >= argc)
+ {
+ fprintf(stderr,"Missing argument to -q\n");
+ exit(1);
+ }
+ p=argv[e];
+ }
+ instructions_left=STRTOL(p+1,&p,0);
+ p+=strlen(p);
+ add_to_callback(&evaluator_callbacks,
+ time_to_exit,
+ 0,0);
+
+ break;
+
case 'd':
more_d_flags:
switch(p[1])
@@ -442,7 +471,7 @@ void low_exit_main(void)
struct program *p;
for(p=first_program;p;p=p->next)
{
- describe_something(p, T_PROGRAM);
+ describe_something(p, T_PROGRAM, 1);
}
}
--
GitLab