picowiki

Unnamed repository; edit this file to name it for gitweb.
git clone https://logand.com/git/picowiki.git/
Log | Files | Refs

rcs.l (324B)

      1 (de rcsOut (F)
      2    (when (info F)
      3       (call "sh" "-c" (pack "co -q -l '" F "'")) ) )
      4 
      5 (de rcsIn (F Msg Desc)
      6    (when (info F)
      7       (call "sh" "-c"
      8          (pack "ci -q -u -m'" Msg "' -t-'" Desc "' '" F "'") ) ) )
      9 
     10 (de w/rcs (F Msg Desc . Prg)
     11    (when (info F)
     12       (rcsOut F)
     13       (run Prg 1)
     14       (rcsIn F Msg) ) )