Inheritance: kOS.Suffixed.SpecialValue
示例#1
0
文件: Suffixed.cs 项目: CalebJ2/KOS
        public override void Execute(SharedObjects shared)
        {
            var when = GetTimeSpan(PopValueAssert(shared));
            var what = GetOrbitable(PopValueAssert(shared));
            AssertArgBottomAndConsume(shared);

            ReturnValue = new OrbitInfo( what.GetOrbitAtUT(when.ToUnixStyleTime()), shared );
        }
示例#2
0
文件: Suffixed.cs 项目: EbbiDos/KOS
        public override void Execute(SharedObjects shared)
        {
            var when = GetTimeSpan(shared.Cpu.PopValue());
            var what = GetOrbitable(shared.Cpu.PopValue());

            var orb = new OrbitInfo( what.GetOrbitAtUT(when.ToUnixStyleTime()), shared );

            shared.Cpu.PushStack(orb);
        }