bin/pc/pc.c

136 int   get_var(char *name, ULONG *val); /* external interfaces to vars */
137 void  set_var(char *name, ULONG val);
166 int (*set_var_lookup_hook(int (*func)(char *name, ULONG *val)))
167                          (char *name, ULONG *val);
177 special_vars(char *name, ULONG *val)
180     *val = (ULONG)time(NULL);
182     *val = (ULONG)rand();
184     *val = 0x82969;
306   ULONG val;
313   val = assignment_expr(&ptr);
322      val = assignment_expr(&ptr);
325   last_result = val;
326   return val;
333   ULONG val;
348      val = assignment_expr(str);     /* go recursive! */
351        add_var(var_name, val);
353        v->value = val;
360      val = do_assignment_operator(str, var_name);
365      val = logical_or_expr(str);     /* no equal sign, just get var value */
377   return val;
384   ULONG val;
395   val = assignment_expr(str);       /* go recursive! */
406     v->value += val;
408     v->value -= val;
410     v->value &= val;
412     v->value ^= val;
414     v->value |= val;
416     v->value <<= val;
418     v->value >>= val;
420     v->value *= val;
423      if (val == 0)  /* check for it, but still get the result */
426      v->value /= val;
430      if (val == 0)  /* check for it, but still get the result */
433      v->value %= val;
448   ULONG val, sum = 0;
459      val = logical_and_expr(str);
461      sum = (val || sum);
472   ULONG val, sum = 0;
483      val = or_expr(str);
485      sum = (val && sum);
495   ULONG val, sum = 0;
506      val = xor_expr(str);
508      sum |= val;
519   ULONG val, sum = 0;
530      val = and_expr(str);
532      sum ^= val;
543   ULONG val, sum = 0;
554      val = equality_expr(str);
556      sum &= val;
566   ULONG val, sum = 0;
581      val = relational_expr(str);
584        sum = (sum == val);
586        sum = (sum != val);
596   ULONG val, sum = 0;
617      val = shift_expr(str);
629        sum = ((LONG)sum < (LONG)val);
631        sum = ((LONG)sum <= (LONG)val);
633        sum = ((LONG)sum > (LONG)val);
635        sum = ((LONG)sum >= (LONG)val);
645   ULONG val, sum = 0;
659      val = add_expression(str);
662        sum <<= val;
664        sum >>= val;
676   ULONG val, sum = 0;
690      val = term(str);
693        sum += val;
695        sum -= val;
707   ULONG val, sum = 0;
735      val = factor(str);
738        sum *= val;
741 	if (val == 0)
744 	sum /= val;
748 	if (val == 0)
751 	sum %= val;
762   ULONG val=0;
782   val = get_value(str);
796 	return val;
802 	  return val;
807 	val = ++v->value;
809 	val = --v->value;
815 	case NEGATIVE : val *= -1;
818 	case BANG     : val = !val;
821 	case TWIDDLE  : val = ~val;
826   return val;
834   ULONG val;
843      val = 0;
849 	val <<= 8;
850 	val |= (ULONG)((unsigned)**str);
865      val = STRTOUL(*str, str, 0);
871      val = last_result;
878      val = assignment_expr(str);      /* start at top and come back down */
893      if (get_var(var_name, &val) == 0)
898 	val = 0;
899 	v = add_var(var_name, val);
909 	    val = v->value;
932   return val;
945    fills in val and returns 1. If it returns 0, it
948 static int (*external_var_lookup)(char *name, ULONG *val) = NULL;
963 int (*set_var_lookup_hook(int (*func)(char *name, ULONG *val)))(char *name, ULONG *val)
965   int (*old_func)(char *name, ULONG *val) = external_var_lookup;
1022 set_var(char *name, ULONG val)
1028     v->value = val;
1030     add_var(name, val);
1037    If a variable is found, val is filled with its
1041 get_var(char *name, ULONG *val)
1048      *val = v->value;
1053      return external_var_lookup(name, val);