コード例 #1
0
ファイル: value_list.c プロジェクト: michaeldickens/OldSimfpl
value value_cons_now_arg(int argc, value argv[])
{
	if (missing_arguments(argc, argv, "cons!()"))
		return value_init_error();
	value_cons_now(argv[0], &argv[1]);
	return value_init_nil();
}
コード例 #2
0
ファイル: v2009_enum.c プロジェクト: nickg/iverilog
static PLI_INT32 ivl_method_next_prev_compiletf(ICARUS_VPI_CONST PLI_BYTE8*data)
{
      vpiHandle sys = vpi_handle(vpiSysTfCall, 0);
      vpiHandle argv = vpi_iterate(vpiArgument, sys);
      vpiHandle arg_enum, arg_item, arg_extra;

      if (argv == 0) {
	    missing_arguments(sys);
	    return 0;
      }

      arg_enum = vpi_scan(argv);
      if (arg_enum == 0) {
	    missing_arguments(sys);
	    return 0;
      }

      arg_item = vpi_scan(argv);
      if (arg_item == 0) {
	    missing_arguments(sys);
	    return 0;
      }

	/* Make sure there are no excess arguments */
      arg_extra = vpi_scan(argv);
      if (arg_extra != 0) {
	    missing_arguments(sys);
	    vpi_free_object(argv);
	    return 0;
      }

	/* The first argument must be an enum typespec */
      if (vpi_get(vpiType, arg_enum) != vpiEnumTypespec) {
	    missing_arguments(sys);
	    return 0;
      }

	/* The return value and input value must be the same size */
      if (vpi_get(vpiSize,sys) != vpi_get(vpiSize,arg_item)) {
	    missing_arguments(sys);
	    return 0;
      }
      return 0;
}
コード例 #3
0
ファイル: value_list.c プロジェクト: michaeldickens/OldSimfpl
value value_take_arg(int argc, value argv[])
{
	return missing_arguments(argc, argv, "take()") ? value_init_error() : value_take(argv[0], argv[1]);
}
コード例 #4
0
ファイル: value_list.c プロジェクト: michaeldickens/OldSimfpl
value value_head_arg(int argc, value argv[])
{
	return missing_arguments(argc, argv, "head()") ? value_init_error() : value_head(argv[0]);
}
コード例 #5
0
ファイル: value_list.c プロジェクト: michaeldickens/OldSimfpl
value value_drop_arg(int argc, value argv[])
{
	return missing_arguments(argc, argv, "drop()") ? value_init_error() : value_drop(argv[0], argv[1]);
}
コード例 #6
0
ファイル: value_list.c プロジェクト: michaeldickens/OldSimfpl
value value_cons_arg(int argc, value argv[])
{
	return missing_arguments(argc, argv, "cons()") ? value_init_error() : value_cons(argv[0], argv[1]);
}