コード例 #1
0
ファイル: Tracker.cs プロジェクト: segmond/swicli
        static public bool cliTrackerBegin(PlTerm trackerOut)
        {
            ThisThreadTracked++;
            var newTracking = LocallyTrackedObjects.CreateFrame();

            return(UnifyTagged(newTracking, trackerOut));
        }
コード例 #2
0
ファイル: Tracker.cs プロジェクト: segmond/swicli
        static public bool cliTrackerFree(PlTerm trackerIn)
        {
            ThisThreadTracked--;
            TrackedFrame tc0 = (TrackedFrame)GetInstance(trackerIn);

            if (tc0 != null)
            {
                LocallyTrackedObjects.RemoveFrame(tc0);
                return(true);
            }
            return(false);
        }