Mercurial Mercurial > repos > isabelle / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc-src/Codegen/Thy/examples/arbitrary.ML
author wenzelm
Sat, 10 Sep 2011 14:28:07 +0200
changeset 44863 49ea566cb3b4
parent 30226 2f4684e2ea95
permissions -rw-r--r--
more symbolic file positions via smart replacement of ISABELLE_HOME -- allows Isabelle distribution to be moved later on;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
21190
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     1
 
structure Codegen =
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     2
 
struct
08ec81dfc7fb (continued)
haftmann
parents:
diff changeset 
     3
 












08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     4


val arbitrary_option : 'a option = NONE;













08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     5









21994






dfa5133dbe73
updated manual



haftmann


parents: 
21993

diff
changeset




     6


fun dummy_option [] = arbitrary_option













dfa5133dbe73
updated manual



haftmann


parents: 
21993

diff
changeset




     7


  | dummy_option (x :: xs) = SOME x;








21190






08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     8














08ec81dfc7fb
(continued)



haftmann


parents: 

diff
changeset




     9


end; (*struct Codegen*)















isabelle