Changeset 4774 for src/Pugs/Prim/Eval.hs

Show
Ignore:
Timestamp:
06/18/05 03:34:19 (4 years ago)
Author:
putter
svk:copy_cache_prev:
6529
Message:

Added intial support for %*INC.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • src/Pugs/Prim/Eval.hs

    r4562 r4774  
    4444            then requireInc ps file msg 
    4545            else do 
     46                -- XXX security issue?  only if you _can_ create a filename, 
     47                -- but _cant_ control its contents.  Yes? 
     48                opEval style "<internal>" ("%*INC{q{" 
     49                                           ++ (decodeUTF8 file) 
     50                                           ++ "}} = q{" 
     51                                           ++ (decodeUTF8 pathName) ++ "};") 
    4652                str <- liftIO $ readFile pathName 
    4753                opEval style pathName (decodeUTF8 str)