( def _EDITOR "vi " )
;---------------------

( def _MORE "more < " )
;---------------------


( def vi lambda
  ( f )
  ( progn
    ( sh
      ( strcat _EDITOR _FILENAME )
    )
    ( nload f )
  )
)
;---------------------
( def vi. lambda ( ) (vi FILENAME))
( def cat. lambda ( ) (cat FILENAME))
( def test lambda ( )
  ( progn
    ( def _l1 ( lerstr "\".\" to end\n ? " ))
    ( while
      ( nequal _l1 "." )
      ( let
          ( ( f1 (fopen "_tmp1" "w"))
            ( x19 ( fputs _l1 f1)) 
            ( x20 (fclose f1))
            ( x ( sh  "seca _tmp1  _tmp" )))
         (if (equal x 0) 
             (let ( ( f ( fopen "_tmp" "r" ))
                    ( x1 ( pp ( m2read f ))))
                  ( fclose f ))
             (princ "error, try again ...\n")
         )
      )
      ( def _l1 ( lerstr "? " ))
    )
  )
)


( def nload lambda
  ( f )
  ( progn
    ( sh
      ( strcat "seca " f " _tmp" )
    )
    ( load "_tmp" )
  )
)
;---------------------

( def sig lambda
  ( )
  ( nwrite stdout _ops )
)
;---------------------

( def types lambda
  ( )
  ( set x
    ( from x oblist
      ( equal
        ( type
          ( eval x )
        ) 'TYPE
      )
    )
  )
)
;---------------------

( def cat lambda
  ( f )
  ( sh
    ( strcat _MORE f )
  )
)
;---------------------


( def help lambda
  ( simb )
  ( if
    ( is SYM simb )
    ( sh
      ( strcat _EDITOR "-R \"+/N :  "
        ( symstr simb ) "/\"  " HelpDir "nyag.hlp"
      )
    ) " use: (help 'func) "
  )
)
;---------------------


( def edit lambda
  ( s )
  ( if
    ( is SYM s )
    ( let
      (
        ( f
          ( fopen "_tmp1" "w" )
        )
        ( l1
          ( fputs
            ( strcat
              ( symstr s ) " <- "
            ) f
          )
        )
        ( l2
          ( nwrite f
            ( eval s )
          )
        )
        ( l3
          ( fputs " ;\n" f )
        )
        ( l4
          ( fclose f )
        )
      )
      ( vi "_tmp1" )
    ) " use: (edit 'object) "
  )
)
;---------------------

( def stsave lambda
  ( filename State )
  ( let
    (
      ( f
        ( fopen filename "w" )
      )
      ( l1
        ( m2write f State )
      )
    )
    ( fclose f )
  )
)
;---------------------

( def stload lambda
  ( filename )
  ( let
    (
      ( f
        ( fopen filename "r" )
      )
      ( l1
        ( m2read f )
      )
      ( l2
        ( fclose f )
      )
    ) l1
  )
)
;---------------------
;---------------------