[added f command functionality paolo.veronelli@gmail.com**20080203103159] { hunk ./Editor.hs 88 + -- | Set filename + | SetFilename String + -- | Print filename + | GetFilename hunk ./Editor.hs 153 -pinput s = asks inputSio >>= lift . lift .lift . ($ s) +pinput s = asks inputSio >>= liftStato . ($ s) hunk ./Editor.hs 163 -output s = asks outputSio >>= lift . lift .lift . ($ s) +output s = asks outputSio >>= liftStato . ($ s) hunk ./Editor.hs 169 -history s = asks historySio >>= lift . lift .lift . ($ s) +history s = asks historySio >>= liftStato . ($ s) hunk ./Editor.hs 175 -errorlog s = asks errorSIO >>= lift . lift . lift . ($ s) +errorlog s = asks errorSIO >>= liftStato . ($ s) + hunk ./Eval.hs 44 - --- | throw a writerSio error to Editor +eval (CC GetFilename _) = getname (errorlog FileNameMissing >> return "") >>= output +eval (CC (SetFilename s) _) = setfilename (Just s) + +-- | throw a 'writerSio' error to Editor hunk ./Eval.hs 50 + hunk ./Parser.hs 66 +defaultOR (SetFilename _) = ORN +defaultOR GetFilename = ORN hunk ./Parser.hs 101 + setfn = char 'f' >> many1 space >> parseFilename >>= rconst . SetFilename + getfn = char 'f' >> rconst GetFilename hunk ./Parser.hs 104 - print,smallg,bigg,edit,writen,write]) <|> nocomm + print,smallg,bigg,edit,writen, + setfn,getfn,write]) <|> nocomm hunk ./docs/Editor.html 353 +>| SetFilename String| GetFilenameSetFilename StringSet filename +GetFilenamePrint filename +GGGGGGGGGGGGGGGGSetFilenameEditorGGG