home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / programming / sb_prolog / a067s / sbpsrc / cmplibsrc / p / riscos < prev    next >
Encoding:
Text File  |  1992-02-23  |  498 b   |  13 lines
  1.  
  2. $riscos_export( [$riscosprename/3] ).
  3. $compile_use($blist,[$append/3,$member/2, _, $not_memberchk]).
  4.  
  5. $riscosprename( RawFname, Prefix, OutFname ) :-
  6.         $member( 46, RawFname ) ->
  7.                 ($append( Path,[46|Filename], RawFname ),
  8.                  $not_memberchk( 46, Filename),
  9.                  !,
  10.                  $append( [46|Prefix], [46|Filename], O1 ),
  11.                  $append( Path, O1, OutFname )
  12.                 ) ;
  13.                 ( $append( Prefix, RawFname, OutFname ) ) .