The Meta-Environment API

rscript-initialize.tb

Go to the documentation of this file.
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__ */

Generated on Fri Sep 12 13:18:43 2008 for rscript-meta by  doxygen 1.4.6