Update of /cvsroot/win32forth/win32forth/src
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv18854/src
Added Files:
floadcmdline.f
Log Message:
Jos: Experimental shell integration for Win32Forth
--- NEW FILE: floadcmdline.f ---
Anew -FloadCmdLine
\ *D doc\
\ *! FloadCmdLine
\ *T Experimental shell integration for Win32Forth
\ ** \nFloadCmdLine allows compiling from the context menu.
\ ** \nUse CMenuExtender v1.2.1.2 to create a new context entry.
\ ** \nThe CMenuExtender can be downloaded from:
\ ** \nhttp://www.monctoncomputerservice.com/revenger_inc/download.html
\ *P \bHow it works:\d
\ ** \n1.Create a menu entry for Win32Forth using CMExtEd.
\ ** \n2.Name it Win32Forth.
\ ** \n3.Enter FloadCmdLine on the commandline in CMExtEd.
\ ** \n4.Use change to check it.
\ ** \n5.Be sure that Append file is active.
\ ** \n6.Compile FloadCmdLine.f with Win32Forth.
\ ** \n7.Save Win32Forth in a tempory directory and leave Win32Forth.
\ ** \n8.Replace the Win32Forth in your Win32Forth directory.
\ ** \n9.Then start the explorer and click right on a *.f file.
\ ** \n10.Choose Win32Forth.
\ *P \bNotes:\d
\ ** \n1.Only testet under XP.
\ ** \n2.It is also possible to add WinEd to the context menu.
\ ** Then leave the commandline in CMExtEd empty.
in-system
: FloadCmdLine ( - )
\ *G Compiles the file in the command line.
cmdline ascii " scan 1 - swap 1+ swap 2dup
"path-only" temp$ place
temp$ zcount temp$ count "chdir drop count type
cr cmdline type cr
1 - "fload ok quit
;
in-application
also hidden save-forth
1 pause-seconds
bye
|
