Sample No: 50

 

Relates to calls:

file_str

prolog_main():-

syspath ( PATH , _ ),

WILD =[ "*.txt" ],

files ( PATH , WILD , LIST ),

LIST =[ FIRST |_],

concat ( PATH , FIRST , FILE ),

file_str ( FILE , STR ),

write ( STR ),

nl .

Copyright 1997-2013 EDMGROUP (Australia)