File: TimeHTML.m3

package info (click to toggle)
pm3 1.1.13-11
  • links: PTS
  • area: main
  • in suites: potato
  • size: 174,164 kB
  • ctags: 133,819
  • sloc: ansic: 982,617; modula3: 548,483; cpp: 57,119; exp: 21,673; sh: 17,053; lisp: 13,693; makefile: 13,492; asm: 11,795; yacc: 8,575; sed: 1,100; objc: 476; csh: 254; awk: 223; pascal: 95; fortran: 5
file content (26 lines) | stat: -rw-r--r-- 729 bytes parent folder | download | duplicates (2) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
 
(* Copyright (C) 1994, Digital Equipment Corporation               *)
(* All rights reserved.                                            *)
(* See the file COPYRIGHT for a full description.                  *)
(* Last modified on Wed Jul 13 11:52:34 PDT 1994 by mcjones        *)

UNSAFE MODULE TimeHTML;

IMPORT Word;

EXCEPTION URE; <*FATAL URE*>

PROCEDURE Equal(<*UNUSED*>t1, t2: T): BOOLEAN = BEGIN RAISE URE END Equal;

PROCEDURE Hash(<*UNUSED*>t: T): Word.T = BEGIN RAISE URE END Hash;

PROCEDURE Compare(t1, t2: T): [-1..1] =
  BEGIN
    IF t1.time > t2.time THEN RETURN -1
    ELSIF t1.time = t2.time THEN RETURN 0
    ELSIF t1.time < t2.time THEN RETURN 1
    ELSE RAISE URE
    END
  END Compare;

BEGIN
END TimeHTML.