00001 /* $Id: sdf2-language.tb.src 23474 2007-08-28 10:01:11Z kooiker $ */
00002 #ifndef __SDF2_LANGUAGE__
00003 #define __SDF2_LANGUAGE__
00004 
00005 process Open-Sdf2-Language is
00006 let 
00007   Error: term,
00008   Table: term,
00009   Type: term,
00010   ModuleId: term
00011 in
00012   Type := sdf
00013   . Table := UNDEFINED
00014   .
00015   (
00016     rec-msg(get-parsetable(ModuleId?, Type))
00017     .
00018     if equal(Table, UNDEFINED) then 
00019       snd-msg(io-read-and-pack-term("/export/scratch1/daybuild/sisyphus-builds/install/12345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890123456789012345678901234567890/pgen/26430/64721/share/pgen/Sdf2.baf"))
00020       .
00021       (
00022         rec-msg(io-packed-term(Table?))
00023         . snd-msg(parsetable(ModuleId, Type, Table))
00024       +
00025         rec-msg(io-error-reading(Error?))
00026         . snd-msg(no-parsetable(ModuleId, Type))
00027       )
00028     else
00029       snd-msg(parsetable(ModuleId, Type, Table))
00030     fi
00031   )
00032   * delta
00033 endlet
00034 
00035 toolbus(Open-Sdf2-Language)
00036 
00037 #endif /* __SDF2_LANGUAGE__ */