Return to cmdline.fs CVS log

Up to [Qemu by Fabrice Bellard] / qemu / roms / openbios / packages

Annotation of qemu/roms/openbios/packages/cmdline.fs, revision 1.1.1.1

1.1       root        1: \ tag: Utility functions
                      2: \ 
                      3: \ deblocker / filesystem support
                      4: \ 
                      5: \ Copyright (C) 2003, 2004 Samuel Rydh
                      6: \ 
                      7: \ See the file "COPYING" for further information about
                      8: \ the copyright and warranty status of this work.
                      9: \ 
                     10: 
                     11: \ -------------------------------------------------------------
                     12: \ command line editor (/packages/cmdline)
                     13: \ -------------------------------------------------------------
                     14: 
                     15: [IFDEF] CONFIG_CMDLINE
                     16: 
                     17: dev /packages
                     18: new-device
                     19:   " cmdline" device-name
                     20: 
                     21:   :noname
                     22:     " " [active-package], open-package
                     23:     ?dup if
                     24:       " cmdline" rot $call-method
                     25:     else
                     26:       ." cmdline is missing!" cr
                     27:     then
                     28:     \ cmdline must close itself upon return
                     29:   ;
                     30: 
                     31:   :noname
                     32:     [ ['] (lit) , swap , ] to outer-interpreter
                     33:   ; SYSTEM-initializer
                     34: 
                     35:   external
                     36:   : prepare 0 to my-self ;
                     37: 
                     38: finish-device
                     39: 
                     40: [THEN]
                     41: device-end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.