00001 #ifndef __SDF_INITIALIZE__
00002 #define __SDF_INITIALIZE__
00003
00004 process AddSdfProperties is
00005 let
00006 Contents: str,
00007 Error: term
00008 in
00009 snd-msg(io-read-file("/export/scratch1/daybuild/sisyphus-builds/install/12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890/sdf-meta/26388/64792/share/sdf-meta/standard.sdf.actions")) .
00010 (
00011 rec-msg(io-file-contents(Contents?))
00012 . snd-msg(cm-add-system-properties(Contents))
00013 +
00014 rec-msg(io-error-reading(Error?))
00015 . printf("AddSdfProperties: %t\n", Error)
00016 )
00017 endlet
00018
00019 toolbus(AddSdfProperties)
00020
00021 #endif
