src/Pure/ProofGeneral/pgip_markup.ML
author aspinall
Mon, 04 Dec 2006 20:40:11 +0100
changeset 21637 a7b156c404e2
child 21655 01b2d13153c8
permissions -rw-r--r--
Revamped Proof General interface.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
21637
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     1
(*  Title:      Pure/ProofGeneral/pgip_markup.ML
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     2
    ID:         $Id$
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     3
    Author:     David Aspinall
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     4
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     5
PGIP abstraction: document markup for proof scripts (in progress).
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     6
*)
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     7
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     8
signature PGIPMARKUP =
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
     9
sig
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    10
  val markup_elements : string list
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    11
end
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    12
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    13
structure PgipMarkup : PGIPMARKUP =
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    14
struct
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    15
   (* Names of all PGIP document markup elements *)
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    16
   val markup_elements =
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    17
       [
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    18
	"opengoal",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    19
	"proofstep",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    20
	"closegoal",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    21
	"comment",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    22
	"doccomment",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    23
	"whitespace",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    24
	"litcomment",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    25
	"spuriouscmd",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    26
	"badcmd",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    27
	"opentheory",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    28
	"theoryitem",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    29
	"closetheory",
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    30
	"metainfo"     (* non-document text *)
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    31
	]
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    32
a7b156c404e2 Revamped Proof General interface.
aspinall
parents:
diff changeset
    33
end