Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /eXene/releases/release-110.80/styles/save/test1.sml
ViewVC logotype

View of /eXene/releases/release-110.80/styles/save/test1.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4280 - (download) (annotate)
Fri Aug 19 12:31:07 2016 UTC (3 years, 1 month ago) by jhr
File size: 589 byte(s)
Release 110.80
local
  structure PRS = ParseResourceSpecs
  fun parse (db, str) = let
	val (PRS.RsrcSpec{loose, path, attr, value, ...}) = PRS.parseRsrcSpec str
	in
	  insertRsrcSpec (db, {loose=loose, path=path, attr=attr, value=value})
	end
val path_A_B_C = PRS.parseStyleName "A.B.C"
in
val db = newDB()
val _ = (
      parse (db, "*C.x: 1\n");
      parse (db, "*C.z: 2\n");
      parse (db, "*B.C.y: 3\n");
      parse (db, "*B.C.y: 4\n");
      parse (db, "A.B.C.z: 5\n");
      ())
val look = let val find = findAttrTbls (db, path_A_B_C)
      in
	fn attr => find (Quark.quark attr)
      end
end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0