Changeset View

Standalone View

Context not available.

	FICL_SYSTEM *bf_sys;	FICL_SYSTEM *bf_sys;
	FICL_VM *bf_vm;	FICL_VM *bf_vm;
	FICL_WORD *pInterp;

	/*	/*
	* Shim for taking commands from BF and passing them out to 'standard'	* Shim for taking commands from BF and passing them out to 'standard'
Context not available.
	ficlSetEnv(bf_sys, "loader_version",	ficlSetEnv(bf_sys, "loader_version",
	(bootprog_rev[0] - '0') * 10 + (bootprog_rev[2] - '0'));	(bootprog_rev[0] - '0') * 10 + (bootprog_rev[2] - '0'));

	pInterp = ficlLookup(bf_sys, "interpret");

	/* try to load and run init file if present */	/* try to load and run init file if present */
	if (rc == NULL)	if (rc == NULL)
	rc = "/boot/boot.4th";	rc = "/boot/boot.4th";
Context not available.
	close(fd);	close(fd);
	}	}
	}	}

	/* Do this again, so that interpret can be redefined. */
	pInterp = ficlLookup(bf_sys, "interpret");
	}	}

	/*	/*
Context not available.