//
// Get_System: C
//
// Return a second level object field of the system object.
//
REBVAL *Get_System(REBCNT i1, REBCNT i2)
{
REBVAL *obj;
obj = CTX_VAR(VAL_CONTEXT(ROOT_SYSTEM), i1);
if (i2 == 0) return obj;
assert(IS_OBJECT(obj));
return Get_Field(VAL_CONTEXT(obj), i2);
}
*/ REBVAL *Get_System(REBCNT i1, REBCNT i2)
/*
** Return a second level object field of the system object.
**
***********************************************************************/
{
REBVAL *obj;
obj = VAL_OBJ_VALUES(ROOT_SYSTEM) + i1;
if (!i2) return obj;
ASSERT1(IS_OBJECT(obj), RP_BAD_OBJ_INDEX);
return Get_Field(VAL_OBJ_FRAME(obj), i2);
}
double Length (void) {
Get_Field (length, &dvalue);
return (dvalue);
}
int Max_Fare (void) { Get_Field (max_fare, &lvalue); return (lvalue); }
char * Type (void) {
Get_Field (type, svalue);
return (svalue);
}
double Min_X (void) { Get_Field (min_x, &dvalue); return (dvalue); }
double Max_X (void) { Get_Field (max_x, &dvalue); return (dvalue); }
int Stop (void) { Get_Field (stop, &lvalue); return (lvalue); }
int Out_Link (void) { Get_Field (out_link, &lvalue); return (lvalue); }
int Speed (void) { Get_Field (speed, &lvalue); return (lvalue); }
int Capacity (void) { Get_Field (capacity, &lvalue); return (lvalue); }
int Out_High (void) { Get_Field (out_high, &lvalue); return (lvalue); }
int Penalty (void) { Get_Field (penalty, &lvalue); return (lvalue); }
int Out_Low (void) { Get_Field (out_low, &lvalue); return (lvalue); }
int In_High (void) { Get_Field (in_high, &lvalue); return (lvalue); }
int In_Low (void) { Get_Field (in_low, &lvalue); return (lvalue); }
int Route (void) { Get_Field (route, &lvalue); return (lvalue); }
int Zone (void) { Get_Field (zone, &lvalue); return (lvalue); }
int Time (void) { Get_Field (time, &lvalue); return (lvalue); }
double Y (void) { Get_Field (y, &dvalue); return (dvalue); }
int ID (void) {
Get_Field (id, &lvalue);
return (lvalue);
}
int In_Link (void) { Get_Field (in_link, &lvalue); return (lvalue); }
double X (void) { Get_Field (x, &dvalue); return (dvalue); }
int Link (void) {
Get_Field (link, &lvalue);
return (lvalue);
}
int Area_Type (void) { Get_Field (area, &lvalue); return (lvalue); }
int Node (void) {
Get_Field (node, &lvalue);
return (lvalue);
}
double Min_Y (void) { Get_Field (min_y, &dvalue); return (dvalue); }
double Offset (void) {
Get_Field (offset, &dvalue);
return (dvalue);
}
double Max_Y (void) { Get_Field (max_y, &dvalue); return (dvalue); }
int Lane (void) {
Get_Field (lane, &lvalue);
return (lvalue);
}
