BlackBox Framework Center

Code: Select all

MODULE ObxFingerPrint;

	IMPORT Log := StdLog, DevCPM;
	
	PROCEDURE Do* ();
		VAR x: INTEGER; f: INTEGER;
	BEGIN
		x := 1506223704; f := -1481896756;
		DevCPM.FPrint(x, f); Log.Int(x); Log.Ln;
		
		x := 1550329001; f := -1576858051;
		DevCPM.FPrint(x, f); Log.Int(x); Log.Ln;
	
	END Do;
	
	
END ObxFingerPrint.

Code: Select all

  Hash*     =  POINTER  TO  ABSTRACT  RECORD
                 code-  :  SET
               END;
  StdHash   =  POINTER  TO  RECORD (Hash) END;

PROCEDURE (h : Hash)    Check* (byte : BYTE), NEW, ABSTRACT;
PROCEDURE (h : StdHash) Check  (byte : BYTE);
  CONST
    mask  =  {0, 1, 27, 28};
  VAR
    s  :  SET;
    k  :  INTEGER;
  BEGIN
    s  :=  BITS (byte);
    FOR  k  :=  0  TO  7  DO
      IF  k  IN  s  THEN  h.code  :=  h.code / {0}  END;
      IF  31  IN  h.code
        THEN  h.code  :=  SYSTEM.LSH (h.code, 1); h.code  :=  h.code / mask
        ELSE  h.code  :=  SYSTEM.LSH (h.code, 1)  END
    END
  END  Check;

Code: Select all

MODULE ObxFP;

	IMPORT S := SYSTEM, Log := StdLog, DevCPM;
	


	(* BB standard *)
	PROCEDURE FPrint(VAR fp: INTEGER; val: INTEGER);
	BEGIN 
		DevCPM.FPrint(fp, val);
	END FPrint;
	
	(* A2 *)
	PROCEDURE FPrintA2 (VAR fp: INTEGER; val: INTEGER);
	BEGIN 
		fp := ORD(BITS(S.ROT(fp, 7)) / BITS(val))
	END FPrintA2;
	
	
	PROCEDURE FP* (VAR fp: INTEGER; pb, x: INTEGER);
	BEGIN
		FPrint(fp, x);
		FPrint(x, pb);
		FPrint(fp, x);
	END FP;
	
	PROCEDURE FPA2* (VAR fp: INTEGER; pb, x: INTEGER);
	BEGIN
		FPrintA2(fp, x);
		FPrintA2(x, pb);
		FPrintA2(fp, x);
	END FPA2;
	
			
	PROCEDURE Do* ();
		VAR fp: INTEGER;
	BEGIN
		(* BB *)
		fp := 100; FP(fp, 10, 2); Log.Int(fp); Log.Ln;
		fp := 100; FP(fp, 10, 20); Log.Int(fp); Log.Ln;
		(* A2 *)
		fp := 100; FPA2(fp, 10, 2); Log.Int(fp); Log.Ln;
		fp := 100; FPA2(fp, 10, 20); Log.Int(fp); Log.Ln;
	END Do;
	
	
END ObxFP.