Flag.cos

@IF	@IsDefined("__BUILD_ONE__") == 0
Include	"yosuga.ch"
@ENDIF

Function Flag::check(Integer id)
	Integer index := id / 32
	Integer shift := id % 32
	Return (this.flag[index].TestBit(shift) == -1)
EndFunc

Function Flag::clear()
	Integer size := this.flag.GetLength()
	Integer i := 0
	While (i < size)
		this.flag[i] := 0
		i += 1
	EndWhile
EndFunc

Function Flag::create(Integer size)
	this.flag.Remove()
	Integer flagsize := size / 32
	Integer flagsize_ := size % 32
	Integer i := 0
	While (i < flagsize)
		this.flag[i] := 0
		this.flag[i] := 0
		i += 1
	EndWhile
	If (flagsize_ != 0)
		this.flag[i] := 0
		this.flag[i] := 0
	EndIf
EndFunc

Function Flag::reset(Integer id)
	Integer index := id / 32
	Integer shift := id % 32
	Return this.flag[index].ResetBit(shift)
EndFunc

Function Flag::set(Integer id)
	Integer index := id / 32
	Integer shift := id % 32
	Return this.flag[index].SetBit(shift)
EndFunc

Function ChkFlag(Integer i)
	Return ChkFlagOn(i)
EndFunc

Function ChkFlagOff(Integer i)
	If ((1 <= i) & (i < 512))
        Return (scObj.flag.check(i) == 0)
    EndIf
    Return 0
EndFunc

Function ChkFlagOn(Integer i)
	If ((1 <= i) & (i < 512))
        Return scObj.flag.check(i)
    EndIf
    Return 0
EndFunc

Function ChkGlobalFlagOn(Integer i)
	If ((1 <= i) & (i < 128))
        Return sysObj.globalScFlag.check(i)
    EndIf
    Return 0
EndFunc

Function ChkRecollectFlag(Integer i)
	If ((1 <= i) & (i < 32))
        Return sysObj.recollectFlag.check(i)
    EndIf
    Return 0
EndFunc

Function CountFlagOn(Integer f0, Integer f1, Integer f2, Integer f3, Integer f4, Integer f5, Integer f6, Integer f7, Integer f8, Integer f9)
	Integer ret := 0
	If (ChkFlagOn(f0) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f1) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f2) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f3) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f4) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f5) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f6) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f7) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f8) == true)
		ret += 1
	EndIf
	If (ChkFlagOn(f9) == true)
		ret += 1
	EndIf
	Return ret
EndFunc

Function OnFlag(Integer i)
	If ((1 <= i) & (i < 512))
		If (IsDebug)
			String num
			num := i
			Debug("Flag" + num + "-ON")
		EndIf
		scObj.flag.set(i)
	EndIf
EndFunc

Function OffFlag(Integer i)
	If ((1 <= i) & (i < 512))
		If (IsDebug)
			String num
			num := i
			Debug("Flag" + num + "-OFF")
		EndIf
		scObj.flag.reset(i)
	EndIf
EndFunc

Function OnGlobalFlag(Integer i)
	If ((1 <= i) & (i < 128))
		If (IsDebug)
			String num
			num := i
			Debug("GlobalFlag" + num + "-ON")
		EndIf
		sysObj.globalScFlag.set(i)
		SaveSystemData()
	EndIf
EndFunc

Function OffGlobalFlag(Integer i)
	If ((1 <= i) & (i < 128))
		If (IsDebug)
			String num
			num := i
			Debug("GlobalFlag" + num + "-OFF")
		EndIf
		sysObj.globalScFlag.reset(i)
		SaveSystemData()
	EndIf
EndFunc

Function OnRecollectFlag(Integer i)
	If ((1 <= i) & (i < 32))
		If (IsDebug)
			String num
			num := i
			Debug("‰ñ‘z" + num + "-ON")
		EndIf
		sysObj.recollectFlag.set(i)
		SaveSystemData()
	EndIf
EndFunc

Function ResetCgFlag(Integer id)
	If ((1 <= id) & (id < 4096))
		sysObj.cgFlag.reset(id)
	EndIf
EndFunc

Function SetCgFlag(Integer id)
	If ((1 <= id) & (id < 4096))
		sysObj.cgFlag.set(id)
	EndIf
EndFunc

Function CheckCgFlag(Integer id)
	If ((1 <= id) & (id < 4096))
        Return sysObj.cgFlag.check(id)
    EndIf
    Return 0
EndFunc

Function CheckCg(Reference src, String filename, Integer baseFlag, Integer flag)
	If (src == filename)
        If (baseFlag != 0)
            SetCgFlag(baseFlag)
            SetCgFlag(flag)
        EndIf
        Return true
    EndIf
    Return 0
EndFunc

Function CheckBu(Reference src, String filename, Integer baseFlag, Integer flag)
	If (src.Find(filename) != true)
        If (baseFlag != 0)
            SetCgFlag(baseFlag)
            SetCgFlag(flag)
        EndIf
        Return true
    EndIf
    Return 0
EndFunc