The Meta-Environment API
00001 #ifndef __RSCRIPT_INITIALIZE__ 00002 #define __RSCRIPT_INITIALIZE__ 00003 00004 process AddRscriptProperties is 00005 let 00006 Contents: str, 00007 Error: term 00008 in 00009 snd-msg(io-read-file("/export/scratch1/daybuild/sisyphus-builds/install/12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890/rscript-meta/25702/64801/share/rscript-meta/standard.rscript.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("AddRscriptProperties: %t\n", Error) 00016 ) 00017 endlet 00018 00019 toolbus(AddRscriptProperties) 00020 00021 #endif /* __RSCRIPT_INITIALIZE__ */