Menu
▾
▴
win32forth-cvs — CVS Commit List
You can subscribe to this list here.
| 2004 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
(70) |
|---|---|---|---|---|---|---|---|---|---|---|---|---|
| 2005 |
Jan
(38) |
Feb
(4) |
Mar
(11) |
Apr
(49) |
May
(81) |
Jun
(65) |
Jul
(36) |
Aug
(57) |
Sep
(63) |
Oct
(57) |
Nov
(49) |
Dec
(41) |
| 2006 |
Jan
(75) |
Feb
(80) |
Mar
(10) |
Apr
(13) |
May
(100) |
Jun
(100) |
Jul
(77) |
Aug
(87) |
Sep
(80) |
Oct
(124) |
Nov
(39) |
Dec
(41) |
| 2007 |
Jan
(20) |
Feb
(32) |
Mar
(32) |
Apr
(43) |
May
(146) |
Jun
(40) |
Jul
(49) |
Aug
(33) |
Sep
(25) |
Oct
(19) |
Nov
(11) |
Dec
(8) |
| 2008 |
Jan
(4) |
Feb
(11) |
Mar
(31) |
Apr
(40) |
May
(34) |
Jun
(24) |
Jul
(39) |
Aug
(104) |
Sep
(27) |
Oct
(35) |
Nov
(34) |
Dec
(97) |
| 2009 |
Jan
(75) |
Feb
(29) |
Mar
(45) |
Apr
(76) |
May
(121) |
Jun
(103) |
Jul
(67) |
Aug
(28) |
Sep
(22) |
Oct
(39) |
Nov
(9) |
Dec
(15) |
| 2010 |
Jan
(7) |
Feb
(39) |
Mar
(40) |
Apr
(57) |
May
(67) |
Jun
(69) |
Jul
(49) |
Aug
(68) |
Sep
(22) |
Oct
(7) |
Nov
(2) |
Dec
(10) |
| 2011 |
Jan
|
Feb
|
Mar
(10) |
Apr
(4) |
May
(6) |
Jun
(10) |
Jul
(16) |
Aug
(23) |
Sep
(9) |
Oct
|
Nov
(28) |
Dec
(3) |
| 2012 |
Jan
(11) |
Feb
(10) |
Mar
(1) |
Apr
|
May
(4) |
Jun
(3) |
Jul
(3) |
Aug
(4) |
Sep
(2) |
Oct
|
Nov
|
Dec
(1) |
| 2013 |
Jan
|
Feb
(7) |
Mar
(30) |
Apr
(4) |
May
(4) |
Jun
(8) |
Jul
(10) |
Aug
(4) |
Sep
|
Oct
(2) |
Nov
(24) |
Dec
(13) |
| 2014 |
Jan
(7) |
Feb
(2) |
Mar
|
Apr
(1) |
May
(9) |
Jun
|
Jul
(3) |
Aug
(9) |
Sep
|
Oct
(2) |
Nov
|
Dec
(3) |
| 2015 |
Jan
(4) |
Feb
(2) |
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
(5) |
Sep
(1) |
Oct
(4) |
Nov
(7) |
Dec
(39) |
| 2016 |
Jan
(17) |
Feb
(2) |
Mar
(2) |
Apr
|
May
(1) |
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
(1) |
Dec
(2) |
| 2017 |
Jan
|
Feb
(3) |
Mar
|
Apr
|
May
(1) |
Jun
(2) |
Jul
|
Aug
(3) |
Sep
|
Oct
|
Nov
|
Dec
(2) |
| 2018 |
Jan
|
Feb
|
Mar
(2) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2019 |
Jan
|
Feb
|
Mar
(1) |
Apr
|
May
|
Jun
|
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
| 2022 |
Jan
|
Feb
|
Mar
|
Apr
|
May
(1) |
Jun
|
Jul
|
Aug
|
Sep
(1) |
Oct
(2) |
Nov
(1) |
Dec
(1) |
| 2023 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
|
Jul
|
Aug
(1) |
Sep
|
Oct
(1) |
Nov
|
Dec
|
| 2025 |
Jan
|
Feb
|
Mar
|
Apr
|
May
|
Jun
(1) |
Jul
|
Aug
|
Sep
|
Oct
|
Nov
|
Dec
|
|
From: Rod O. <rod...@us...> - 2006-08-03 21:27:36
|
Update of /cvsroot/win32forth/win32forth/proj In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv22768/proj Modified Files: Sudoku.fpj Log Message: Rod: Updated Sudoku project file Index: Sudoku.fpj =================================================================== RCS file: /cvsroot/win32forth/win32forth/proj/Sudoku.fpj,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Sudoku.fpj 23 Jul 2006 10:12:56 -0000 1.1 --- Sudoku.fpj 3 Aug 2006 21:27:33 -0000 1.2 *************** *** 3,7 **** SearchPath= Sudoku,0 ! Modules,21 apps\Sudoku\Sudoku.f SRC\LIB\AcceleratorTables.f --- 3,7 ---- SearchPath= Sudoku,0 ! Modules,13 apps\Sudoku\Sudoku.f SRC\LIB\AcceleratorTables.f *************** *** 10,22 **** SRC\LIB\RecentFiles.F apps\Sudoku\SudokuStatusBar.f - SRC\LIB\ExControls.f SRC\LIB\StatusBar.f - SRC\LIB\Textbox.f - SRC\LIB\Listbox.f - SRC\LIB\UpDownControl.f - SRC\LIB\Buttons.f - SRC\LIB\Label.f - SRC\LIB\ScrollBar.f - SRC\LIB\TabControl.f apps\Sudoku\SudokuToolbar.f SRC\LIB\Toolbar.f --- 10,14 ---- *************** *** 25,34 **** apps\Sudoku\SudokuResources.F SRC\LIB\Resources.f ! DLLs,0 Forms,0 Auxiliary Files,0 ! Resources,3 APPS\SUDOKU\RES\Toolbar.bmp APPS\SUDOKU\RES\SudokuDialog.h APPS\SUDOKU\RES\SudokuDialog.res Docs,0 --- 17,38 ---- apps\Sudoku\SudokuResources.F SRC\LIB\Resources.f ! DLLs,1 ! FreeImage.dll Forms,0 Auxiliary Files,0 ! Resources,14 APPS\SUDOKU\RES\Toolbar.bmp APPS\SUDOKU\RES\SudokuDialog.h APPS\SUDOKU\RES\SudokuDialog.res + apps\Sudoku\Res\arrow_m0.cur + apps\Sudoku\Res\arrow_m1.cur + apps\Sudoku\Res\arrow_m2.cur + apps\Sudoku\Res\arrow_m3.cur + apps\Sudoku\Res\arrow_m4.cur + apps\Sudoku\Res\arrow_m5.cur + apps\Sudoku\Res\arrow_m6.cur + apps\Sudoku\Res\arrow_m7.cur + apps\Sudoku\Res\arrow_m8.cur + apps\Sudoku\Res\arrow_m9.cur + apps\Sudoku\Res\Sudoku.ico Docs,0 |
|
From: Rod O. <rod...@us...> - 2006-08-03 20:40:42
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv4176/apps/Sudoku Modified Files: Sudoku.f Log Message: Rod: Version 1.4, fixed bug in sizing, changed registry settings to current Win32Forth Index: Sudoku.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/Sudoku.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** Sudoku.f 6 Nov 2005 09:17:22 -0000 1.4 --- Sudoku.f 3 Aug 2006 20:40:39 -0000 1.5 *************** *** 1,2 **** --- 1,3 ---- + \ $Id$ \ Sudoku.f Application to play and solve Sudoku puzzles. \ September 2005 Rod Oakford *************** *** 6,12 **** anew -Sudoku.f ! Create SudokuVersion ," 1.3" s" apps\Sudoku" "fpath+ s" apps\Sudoku\res" "fpath+ WinLibrary Winmm.dll --- 7,15 ---- anew -Sudoku.f ! Create SudokuVersion ," 1.4" s" apps\Sudoku" "fpath+ s" apps\Sudoku\res" "fpath+ + : Sysgen ; \ define for turnkey + Create ToolBarLayoutKey 256 allot WinLibrary Winmm.dll *************** *** 393,400 **** --- 396,415 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + PROGREG-SET-BASE-PATH \ to put registry entries under current version of Win32Forth (e.g. Win32Forth 6.11.09) + Create RegPath$ max-path allot + ProgReg count RegPath$ place s" Sudoku" RegPath$ +place + RegPath$ count RegistrySet Sudoku + RegPath$ count pad place s" \Window" pad +place pad count RegistrySet WindowSettings + RegPath$ count pad place s" \Options" pad +place pad count RegistrySet Options + RegPath$ count pad place s" \Recent Files" pad +place pad count RegistrySet RecentFilesList + + (( \ to put registry entries under Win32Forth s" Win32Forth\Sudoku" RegistrySet Sudoku s" Win32Forth\Sudoku\Window" RegistrySet WindowSettings s" Win32Forth\Sudoku\Options" RegistrySet Options s" Win32Forth\Sudoku\Recent Files" RegistrySet RecentFilesList + )) + + s" Software\" ToolBarLayoutKey place Options ProgReg count ToolBarLayoutKey +place : SaveRecentFiles ( -- ) *************** *** 487,493 **** ;M :M On_Init: ( -- ) On_Init: SUPER ! CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop 101 appinst Call LoadIcon GCL_HICON hWnd Call SetClassLong drop 0 GCL_HBRBACKGROUND hWnd Call SetClassLong drop --- 502,510 ---- ;M + :M WndClassStyle: ( -- style ) CS_DBLCLKS ;M \ for newer versions of Win32Forth + :M On_Init: ( -- ) On_Init: SUPER ! \ CS_DBLCLKS GCL_STYLE hWnd Call SetClassLong drop \ needed for older versions of Win32Forth 101 appinst Call LoadIcon GCL_HICON hWnd Call SetClassLong drop 0 GCL_HBRBACKGROUND hWnd Call SetClassLong drop *************** *** 505,514 **** hBitmap SelectObject: mdc drop self start: SudokuToolbar ToolbarPopup SetPopupBar: self FlatToolbar? 0= to FlatToolbar? IDM_FLAT DoCommand ToolbarHeight IF ShowToolbar THEN - self start: SudokuStatusBar - StatusBarHeight IF ShowStatusBar THEN ;M --- 522,531 ---- hBitmap SelectObject: mdc drop + self start: SudokuStatusBar + StatusBarHeight IF ShowStatusBar THEN self start: SudokuToolbar ToolbarPopup SetPopupBar: self FlatToolbar? 0= to FlatToolbar? IDM_FLAT DoCommand ToolbarHeight IF ShowToolbar THEN ;M *************** *** 533,536 **** --- 550,554 ---- hBitmap DeleteObject: mdc Close: SudokuToolbar + MenuHandle: ToolbarPopup call DestroyMenu drop Turnkeyed? IF 0 Call PostQuitMessage THEN On_Done: super *************** *** 635,639 **** ;M ! :M Redraw: ( -- ) PrepareDC: self paint: self ;M :M WM_CLOSE ( h m w l -- res ) --- 653,660 ---- ;M ! :M Redraw: ( -- ) ! PrepareDC: self ! 0 ToolbarHeight Width Height StatusBarHeight - SetRect: TempRect ! 0 Temprect InvalidateRect: self ;M :M WM_CLOSE ( h m w l -- res ) *************** *** 742,746 **** width LeftM - RightM - 3 - 9 / height TopM - BottomM - StatusBarHeight - ToolbarHeight - 3 - 9 / min ! to size \ largest size that will fit SetFontSize width LeftM - RightM - size 9 * - 3 - 2 / dup LeftM + to LeftMargin RightM + to RightMargin --- 763,767 ---- width LeftM - RightM - 3 - 9 / height TopM - BottomM - StatusBarHeight - ToolbarHeight - 3 - 9 / min ! 1 max to size \ largest size that will fit SetFontSize width LeftM - RightM - size 9 * - 3 - 2 / dup LeftM + to LeftMargin RightM + to RightMargin *************** *** 1194,1198 **** :NoName ( -- ) initialization-chain do-chain default-application ; is default-hello ! : Su ( -- ) 96 to Resolution \ needs to be adjusted to make print size same as screen size DefaultPrinter --- 1215,1219 ---- :NoName ( -- ) initialization-chain do-chain default-application ; is default-hello ! : Main ( -- ) 96 to Resolution \ needs to be adjusted to make print size same as screen size DefaultPrinter *************** *** 1215,1226 **** Directory count 2dup SetDir: OpenDialog SetDir: SaveDialog NumberRecentFiles SetNumber: RecentFiles ! SudokuAccelerators EnableAccelerators ! Turnkeyed? IF OpenCommandLine MessageLoop bye THEN ; ! [defined] VIMAGE [if] also VIMAGE [then] ! [defined] CONSOLE-DLL? [if] false to CONSOLE-DLL? [then] ! ' Su turnkey Sudoku.exe ! needs SudokuResources ! 1 pause-seconds bye ! --- 1236,1249 ---- Directory count 2dup SetDir: OpenDialog SetDir: SaveDialog NumberRecentFiles SetNumber: RecentFiles ! Turnkeyed? IF SudokuAccelerators EnableAccelerators OpenCommandLine MessageLoop bye THEN ; ! [defined] sysgen [IF] ! [defined] VIMAGE [if] also VIMAGE [then] ! [defined] CONSOLE-DLL? [if] false to CONSOLE-DLL? [then] ! &forthdir count &appdir place \ make turnkey in Win32Forth folder ! ' Main turnkey Sudoku.exe ! Needs SudokuResources ! 1 pause-seconds bye ! [ELSE] Main ! [THEN] |
|
From: Rod O. <rod...@us...> - 2006-08-03 20:37:30
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2958/apps/Sudoku Modified Files: SudokuDialogs.f SudokuMenu.f SudokuPrinting.f Log Message: Rod: Tidied up Index: SudokuDialogs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuDialogs.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SudokuDialogs.f 3 Oct 2005 22:04:27 -0000 1.1 --- SudokuDialogs.f 3 Aug 2006 20:37:27 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + \ $Id$ \ SudokuDialogs.f Dialogs for Sudoku contained in SudokuDialog.res \ AboutSudoku - the about dialog *************** *** 7,11 **** cr .( Loading Dialogs...) ! s" res" "fpath+ Create ImportNumbers 256 allot --- 8,12 ---- cr .( Loading Dialogs...) ! s" apps\Sudoku\res" "fpath+ Create ImportNumbers 256 allot *************** *** 21,25 **** 0 value hFile ! load-dialog SudokuDialog \ needs SudokuDialog.res, SudokuDialog.h --- 22,26 ---- 0 value hFile ! load-dialog SudokuDialog \ needs SudokuDialog.res, SudokuDialog.h Index: SudokuPrinting.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuPrinting.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SudokuPrinting.f 3 Oct 2005 22:04:27 -0000 1.1 --- SudokuPrinting.f 3 Aug 2006 20:37:27 -0000 1.2 *************** *** 1,7 **** \ SudokuPrinting.f Page setup and printing for Sudoku game \ September 2005 Rod Oakford - \ Needs PrintSupport - cr .( Loading Printing...) --- 1,6 ---- + \ $Id$ \ SudokuPrinting.f Page setup and printing for Sudoku game \ September 2005 Rod Oakford cr .( Loading Printing...) Index: SudokuMenu.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuMenu.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SudokuMenu.f 3 Oct 2005 22:04:27 -0000 1.1 --- SudokuMenu.f 3 Aug 2006 20:37:27 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + \ $Id$ \ SudokuMenu.f Command IDs and Menus for Sudoku by Rod Oakford \ September 2005 |
|
From: Rod O. <rod...@us...> - 2006-08-03 20:35:47
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2175/apps/Sudoku Modified Files: SudokuResources.f Log Message: Rod: Sudoku.exe in Win32Forth directory Index: SudokuResources.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuResources.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** SudokuResources.f 3 Nov 2005 19:21:28 -0000 1.2 --- SudokuResources.f 3 Aug 2006 20:35:44 -0000 1.3 *************** *** 1,2 **** --- 1,3 ---- + \ $Id$ \ SudokuResources.f Script for adding the resources into Sudoku.exe \ September 2005 Rod Oakford *************** *** 7,11 **** winver winnt4 >= [if] ! s" Sudoku.exe" AddToFile 101 s" res\Sudoku.ico" "path-file drop AddIcon --- 8,14 ---- winver winnt4 >= [if] ! &forthdir count pad place ! s" Sudoku.exe" pad +place ! pad count "path-file drop AddToFile 101 s" res\Sudoku.ico" "path-file drop AddIcon |
|
From: Rod O. <rod...@us...> - 2006-08-03 20:33:52
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1381/apps/Sudoku Modified Files: SudokuStatusBar.f Log Message: Rod: Use StatusBar.f rather than ExControls.f Index: SudokuStatusBar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuStatusBar.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** SudokuStatusBar.f 8 Oct 2005 08:24:21 -0000 1.2 --- SudokuStatusBar.f 3 Aug 2006 20:33:48 -0000 1.3 *************** *** 1,10 **** \ SudokuStatusBar.f StatusBar for Sudoku game \ Septmeber 2005 Rod Oakford \- hStatusBar 0 value hStatusBar - Needs ExControls.f - - cr .( Loading Sudoku StatusBar...) \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1,10 ---- + \ $Id$ \ SudokuStatusBar.f StatusBar for Sudoku game \ Septmeber 2005 Rod Oakford + s" StatusBar.f" "path-file [IF] 2drop Needs ExControls [ELSE] "Fload [THEN] + cr .( Loading Sudoku StatusBar...) \- hStatusBar 0 value hStatusBar \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ |
|
From: Rod O. <rod...@us...> - 2006-08-03 20:32:43
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv990/apps/Sudoku Modified Files: SudokuToolbar.f Log Message: Rod: Made toolbar bitmap transparent Index: SudokuToolbar.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Sudoku/SudokuToolbar.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** SudokuToolbar.f 3 Oct 2005 22:04:27 -0000 1.1 --- SudokuToolbar.f 3 Aug 2006 20:32:31 -0000 1.2 *************** *** 1,2 **** --- 1,3 ---- + \ $Id$ \ SudokuToolbar.f Toolbar for Sudoku game \ September 2005 Rod Oakford *************** *** 7,10 **** --- 8,12 ---- Needs SudokuMenu.f cr .( Loading Sudoku Toolbar...) + \- ToolBarLayoutKey Create ToolBarLayoutKey ," Software\Win32Forth\Sudoku\Options" *************** *** 95,98 **** --- 97,108 ---- ; + : MakeTransparent ( -- ) \ changes background color of bitmap to BTNFACE + COLOR_BTNFACE Call GetSysColor \ convert 0bgr to 0rgb + dup 0xFF and 16 LShift over 0xFF00 and + swap 0xFF0000 and 16 RShift + + BitmapInfo dup @ + \ address of ColorTable + BitmapData c@ 15 and \ color index for first pixel + 4 * + ! + ; + s" Toolbar.bmp" LoadBitmapFile *************** *** 109,130 **** to pszValueName ;M ! (( ! :M AddBitmaps: ( n -- ) \ loads n images from bitmap loaded in memory ! DIB_RGB_COLORS ! BitmapInfo ! BitmapData ! CBM_INIT ! BitmapInfo \ info pointer ! GetDC: self ! call CreateDIBitmap ! to nID NULL to hInst ! tbab swap TB_ADDBITMAP hwnd call SendMessage Drop ! ;M ! )) :M Start: ( parent -- ) SudokuTable IsButtonTable: self SudokuTooltips IsTooltips: self Start: super ! \ Create bitmap handle DIB_RGB_COLORS BitmapInfo --- 119,129 ---- to pszValueName ;M ! :M Start: ( parent -- ) SudokuTable IsButtonTable: self SudokuTooltips IsTooltips: self Start: super ! \ Create bitmap handle ! MakeTransparent DIB_RGB_COLORS BitmapInfo *************** *** 137,142 **** 0 hBitmap 24 AddBitmaps: self drop \ Set-up registry key for customization data... ! z" Software\Win32Forth\Sudoku\Options" \ Registry sub-key ! z" ToolBarLayout" \ value key name SetRegistryKey: self z" ToolBarLayoutDefault" to pszValueNameDefault --- 136,141 ---- 0 hBitmap 24 AddBitmaps: self drop \ Set-up registry key for customization data... ! ToolBarLayoutKey 1+ \ Registry sub-key ! z" ToolBarLayout" \ value key name SetRegistryKey: self z" ToolBarLayoutDefault" to pszValueNameDefault *************** *** 184,312 **** : CheckNumber ( n -- ) \ check nth number on toolbar, uncheck the rest IDM_SELECT_BLANK + true swap CheckButton: SudokuToolBar ; - - - \s - Needs ToolbarClass - Needs SudokuMenu - cr .( Loading Sudoku Toolbar...) - - false value FlatToolbar? - - :Object SudokuToolBar <Super CustomizableToolbar - - s" Toolbar.bmp" LoadBitmapFile - - DefaultButtons \ Buttons that will be initially displayed - \ iBmp idCommand Style State (optional) - Separator - 0 IDM_NEW Button - 1 IDM_OPEN Button - 2 IDM_SAVE Button - Separator - 3 IDM_PRINT Button - Separator - 4 IDM_SELECT_1 CheckGroup - 5 IDM_SELECT_2 CheckGroup - 6 IDM_SELECT_3 CheckGroup - 7 IDM_SELECT_4 CheckGroup - 8 IDM_SELECT_5 CheckGroup - 9 IDM_SELECT_6 CheckGroup - 10 IDM_SELECT_7 CheckGroup - 11 IDM_SELECT_8 CheckGroup - 12 IDM_SELECT_9 CheckGroup - 13 IDM_SELECT_BLANK CheckGroup Checked - Separator - 14 IDM_BACKWARD Button - 15 IDM_FORWARD Button - Separator - 18 IDM_PAUSE Check - Separator - 19 IDM_COLOUR_1 CheckGroup Checked - 20 IDM_COLOUR_2 CheckGroup - 21 IDM_COLOUR_3 CheckGroup - 22 IDM_COLOUR_4 CheckGroup - - ExtraButtons \ Buttons that will be available to customize the toolbar - 16 IDM_PLUS Button - 17 IDM_MINUS Button - Separator - 23 IDM_OPTIONS Button - - :M TooltipText: ( id -- Z$ ) - Case - IDM_NEW OF Z" Make a new game" ENDOF - IDM_OPEN OF Z" Open game file" ENDOF - IDM_SAVE OF Z" Save game file" ENDOF - IDM_PRINT OF Z" Print game" ENDOF - IDM_SELECT_1 OF Z" Select 1" ENDOF - IDM_SELECT_2 OF Z" Select 2" ENDOF - IDM_SELECT_3 OF Z" Select 3" ENDOF - IDM_SELECT_4 OF Z" Select 4" ENDOF - IDM_SELECT_5 OF Z" Select 5" ENDOF - IDM_SELECT_6 OF Z" Select 6" ENDOF - IDM_SELECT_7 OF Z" Select 7" ENDOF - IDM_SELECT_8 OF Z" Select 8" ENDOF - IDM_SELECT_9 OF Z" Select 9" ENDOF - IDM_SELECT_BLANK OF Z" Select blank" ENDOF - IDM_BACKWARD OF Z" Undo last move" ENDOF - IDM_FORWARD OF Z" Redo last move" ENDOF - IDM_PLUS OF Z" Make larger" ENDOF - IDM_MINUS OF Z" Make smaller" ENDOF - IDM_PAUSE OF Z" Start/stop timer" ENDOF - IDM_COLOUR_1 OF z" Text colour 1" ENDOF - IDM_COLOUR_2 OF z" Text colour 2" ENDOF - IDM_COLOUR_3 OF z" Text colour 3" ENDOF - IDM_COLOUR_4 OF z" Text colour 4" ENDOF - IDM_OPTIONS OF Z" Options dialog" ENDOF - ( default case ) Z" Undef" swap - EndCase - ;M - - :M Start: ( hParent) - Start: Super - \ Set-up registry key for customization data... - z" Software\Win32Forth\Sudoku\Options" \ Registry sub-key - z" ToolBarLayout" \ value key name - z" ToolBarLayoutDefault" \ value key name - SetRegistryKeys: self - 24 AddBitmaps: self - AddButtons: self - \ AddStrings: self - True to UseToolStringsInCustomize - True SaveRestoreDefault: self - False SaveRestore: self - ;M - - :M WM_RBUTTONDOWN ( h m w l -- res ) \ right click for context menu sent to frame window - swap rot HandleOfParent - Call SendMessage drop 0 - ;M - - :M WindowStyle: ( -- style ) - WS_CHILD \ not WS_VISIBLE - start hidden, not flat - TBSTYLE_TOOLTIPS or - CCS_ADJUSTABLE or - ;M - - :M On_ToolBarChange: ( -- f ) \ User has changed toolbar - false - ;M - - :M On_Reset: ( -- f ) \ User resets toolbar - false SaveRestore: self - true - ;M - - ;Object - - - 0 value ToolbarHeight - - : ShowToolbar ( -- ) GetWindowRect: SudokuToolbar nip swap - nip to ToolbarHeight - SW_SHOW show: SudokuToolbar true check: hToolbar ; - - : HideToolbar ( -- ) 0 to ToolbarHeight - SW_HIDE show: SudokuToolbar false check: hToolbar ; - - : CheckNumber ( n -- ) \ check nth number on toolbar, uncheck the rest - IDM_SELECT_BLANK + true CheckButton: SudokuToolBar ; --- 183,184 ---- |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:47
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/doc Modified Files: p-gethelp.htm Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: p-gethelp.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-gethelp.htm,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** p-gethelp.htm 21 Mar 2006 10:32:42 -0000 1.5 --- p-gethelp.htm 3 Aug 2006 13:08:21 -0000 1.6 *************** *** 351,354 **** --- 351,361 ---- <span class="fixedfont"><a href="#Warning(-4105)">has a hash value that is already recognised by this class."</a></span></td> </tr> + <tr> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #FFFFDD" width="212" align="center"> + -4106</td> + <td style="font-weight: normal; color: black; border-left-style: none; border-right-style: none; border-top-style: none; border-bottom: .75pt solid green; background-color: #FFFFDD" width="356"> + <span class="fixedfont"><a href="#Warning(-4106)">is an application word whose runtime is in a system word."</a></span></td> + </tr> + </table> </center> *************** *** 988,992 **** <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> ! WARNINGS OFF</a></span>. Otherwise, realise that your application might fail if it is <span class="fixedfont"><a href="p-imageman.htm">TURNKEY</a></span>ed.</p> <hr> --- 995,999 ---- <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> ! SYS-WARNING-OFF</a></span>. Otherwise, realise that your application might fail if it is <span class="fixedfont"><a href="p-imageman.htm">TURNKEY</a></span>ed.</p> <hr> *************** *** 1007,1011 **** <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> ! WARNINGS OFF</a></span>. Otherwise, realise that your application might fail if it is <span class="fixedfont"><a href="p-imageman.htm">TURNKEY</a></span>ed.</p> <hr> --- 1014,1018 ---- <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> ! SYS-WARNING-OFF</a></span>. Otherwise, realise that your application might fail if it is <span class="fixedfont"><a href="p-imageman.htm">TURNKEY</a></span>ed.</p> <hr> *************** *** 1067,1070 **** --- 1074,1096 ---- <span class="fixedfont"><a href="#Suppressing Warnings">WARNING OFF</a></span>. </p> <hr> + <p><span class="fixedfont"><font size="4"><b><a name="Warning(-4106)"> + Warning(-4106)</a></b></font></span><b><span class="fixedfont"><font size="4">: + <name> is an application word whose runtime is in a system word</font></span></b></p> + <p><b>Summary: </b>Warning. The word <name> you are defining is in the normal + application area; but the DOES> part of the defining word is in the system area, and might not be + available if the application is <span class="fixedfont"> + <a href="p-imageman.htm">TURNKEY</a></span>ed. </p> + <p><b>Example:</b></p> + <blockquote> + <pre><b>: MyConstant create , does> @ ;</b> ok + <b>' MyConstant Foo + </b>^ + Warning(-4106): Foo is an application word whose runtime is in a system word</pre> + </blockquote> + <p><b>Resolution: </b>If you understand this, and it's annoying you, then turn + off warnings with <span class="fixedfont"><a href="#Suppressing Warnings"> + SYS-WARNING-OFF</a></span>. Otherwise, realise that your application might fail if + it is <span class="fixedfont"><a href="p-imageman.htm">TURNKEY</a></span>ed.</p> + <hr> <p><b><span class="fixedfont"><font size="4"><a name="Error(9998)">Error(9998)</a>: <name> Windows exception trapped</font></span></b></p> |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:29
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/src Modified Files: ASMWIN32.F Class.f Debug.f Nforget.f Primutil.f SEE.F Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: ASMWIN32.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/ASMWIN32.F,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** ASMWIN32.F 31 Aug 2005 09:04:49 -0000 1.5 --- ASMWIN32.F 3 Aug 2006 13:08:22 -0000 1.6 *************** *** 44,48 **** : _opt-code ( -<name>- ) \ redefine to resolve code length in bytes code-align ! _code code-here ofa-last code-d! \ init OFA with start of definition ; --- 44,48 ---- : _opt-code ( -<name>- ) \ redefine to resolve code length in bytes code-align ! _code code-here ofa-last code-d! \ init OFA with start of definition ; *************** *** 51,55 **** : _code> ( -- ) \ create the ;code part of a low level defining word ! ?csp !csp postpone (;code) [ also forth ] code-align code-here , [ previous ] postpone [ init-asm ; --- 51,55 ---- : _code> ( -- ) \ create the ;code part of a low level defining word ! ?csp !csp postpone (;code) [ also forth ] code-align code-here , [ previous ] postpone [ init-asm ; *************** *** 57,60 **** --- 57,66 ---- ' _code> is ;code + warning @ warning off nostack1 + + : subr: sys-warning? >r sys-warning-off subr: r> to sys-warning? ; + + warning ! + defer ncode *************** *** 75,79 **** macro: c; ( -- ) \ alias for ;c and end-code ! end-code endm --- 81,85 ---- macro: c; ( -- ) \ alias for ;c and end-code ! end-code endm *************** *** 85,89 **** TCB - [edx], endm ! \ Top of stack macros --- 91,95 ---- TCB - [edx], endm ! \ Top of stack macros Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** Debug.f 20 Feb 2006 12:06:14 -0000 1.11 --- Debug.f 3 Aug 2006 13:08:22 -0000 1.12 *************** *** 215,218 **** --- 215,219 ---- ['] (ABORT") OF <STRING> ENDOF ['] (;CODE) OF <EXIT> ENDOF + ['] (DOES>) OF <EXIT> ENDOF ['] UNNEST OF <EXIT> ENDOF ['] UNNESTP OF <EXITP> ENDOF Index: Nforget.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Nforget.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Nforget.f 30 Aug 2005 13:07:31 -0000 1.3 --- Nforget.f 3 Aug 2006 13:08:22 -0000 1.4 *************** *** 159,163 **** : mark ( -<name>- ) ! >application create save-source do-mark application> ; \ January 27th, 1999 - 11:27 tjz --- 159,164 ---- : mark ( -<name>- ) ! >application create save-source sys-warning? sys-warning-off ! do-mark to sys-warning? application> ; \ January 27th, 1999 - 11:27 tjz *************** *** 177,181 **** current @ , \ save current context here #vocs cells allot #vocs cells move \ save context search list ! do-marker application> ; --- 178,182 ---- current @ , \ save current context here #vocs cells allot #vocs cells move \ save context search list ! sys-warning? sys-warning-off do-marker to sys-warning? application> ; Index: Class.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Class.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** Class.f 17 Jul 2006 12:07:39 -0000 1.20 --- Class.f 3 Aug 2006 13:08:22 -0000 1.21 *************** *** 492,495 **** --- 492,501 ---- 0 op! ; \ for error checking in runIvarRef + : Build:Class ( -- ) + does> + [ code-here 12 - to doClass ] \ a dirty trick! + (Build) ; + + : :Class ( -<class-name>- ) \ *G Define a class for creating a group of similar objects. *************** *** 498,505 **** create (class) ! does> ! [ code-here 12 - to doClass ] \ a dirty trick! ! (Build) ; ! : <Super ( -- ) \ W32F Class --- 504,508 ---- create (class) ! sys-warning? sys-warning-off Build:Class to sys-warning? ; : <Super ( -- ) \ W32F Class *************** *** 542,545 **** --- 545,553 ---- \ ' Clone ; + : Build|Class ( -- ) + does> + [ code-here 12 - to do|Class ] \ a dirty trick! + (|Build) ; + : |Class ( -- ) \ *G Defines a class that creates headerless objects. *************** *** 552,558 **** create (class) ! does> ! [ code-here 12 - to do|Class ] \ a dirty trick! ! (|Build) ; classes definitions --- 560,565 ---- create (class) ! sys-warning? sys-warning-off Build|Class to sys-warning? ; ! classes definitions Index: SEE.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/SEE.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** SEE.F 29 Aug 2005 15:56:27 -0000 1.6 --- SEE.F 3 Aug 2006 13:08:22 -0000 1.7 *************** *** 37,41 **** \ : dummy.float ( a1 -- a2 ) \ ." ???" cells/float cells+ ; ! \ \ defer .float ' dummy.float is .float --- 37,41 ---- \ : dummy.float ( a1 -- a2 ) \ ." ???" cells/float cells+ ; ! \ \ defer .float ' dummy.float is .float *************** *** 114,118 **** : .CALL ( ip -- ip' ) .word .word ; ! : (.LOCALS) ( t-1 n -- ) 0 ?do dup i - ." LOCAL" 1 .r space loop drop ; --- 114,118 ---- : .CALL ( ip -- ip' ) .word .word ; ! : (.LOCALS) ( t-1 n -- ) 0 ?do dup i - ." LOCAL" 1 .r space loop drop ; *************** *** 129,140 **** then ." } " CELL+ ; ! \ Decompile each type of word 28Feb84map : .(;code) ( ip -- ip' ) ! cell+ dup cell+ swap does>? ! IF ." DOES> " ! ELSE ." ;CODE " drop false ! THEN ; : d_cr ( -- ) --- 129,140 ---- then ." } " CELL+ ; ! \ Decompile each type of word 28Feb84map : .(;code) ( ip -- ip' ) ! drop ." ;CODE " false ; ! ! : .(does>) ( ip -- ip' ) ! cell+ cell+ ." DOES> " ; : d_cr ( -- ) *************** *** 151,155 **** \ past this address cell+ dup hi-branch u< 0= if ." ;" drop 0 ! else ." EXIT" then ; : .execution-class ( ip cfa -- ip' ) --- 151,155 ---- \ past this address cell+ dup hi-branch u< 0= if ." ;" drop 0 ! else ." EXIT" then ; : .execution-class ( ip cfa -- ip' ) *************** *** 190,193 **** --- 190,194 ---- ['] unnestm of .end ." M " endof ['] (;code) of -tab d_cr .(;CODE) tab +tab endof + ['] (does>) of -tab d_cr .(DOES>) tab +tab endof ['] create of d_cr ." CREATE" cell+ tab +tab endof ['] init-locals of .locals endof Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.14 retrieving revision 1.15 diff -C2 -d -r1.14 -r1.15 *** Primutil.f 20 May 2006 12:02:06 -0000 1.14 --- Primutil.f 3 Aug 2006 13:08:22 -0000 1.15 *************** *** 518,523 **** \ BINARY double number display with commas - in-system - : RADIX: ( n1 -<name>- ) CREATE , DOCOL , !CSP ] --- 518,521 ---- *************** *** 526,531 **** R> BASE ! ; - in-application - 2 RADIX: BUD,.R ( ud width -- ) UD,.R ; 2 RADIX: BU,.R ( n1 width -- ) U,.R ; --- 524,527 ---- |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:28
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.31 retrieving revision 1.32 diff -C2 -d -r1.31 -r1.32 *** fkernel.f 22 May 2006 11:44:14 -0000 1.31 --- fkernel.f 3 Aug 2006 13:08:22 -0000 1.32 *************** *** 1984,1987 **** --- 1984,1988 ---- -4103 EQU WARN_STACK \ " stack depth increased" -4104 EQU WARN_DEPRECATEDWORD \ " is a deprecated word" + -4106 EQU WARN_SYSWORD3 \ " is an application word whose runtime is in a system word" VARIABLE THROW_MSGS 0 THROW_MSGS ! \ list header *************** *** 2020,2023 **** --- 2021,2025 ---- THROW_MSGS LINK, WARN_SYSWORD2 , ," is an application word set to a system word" THROW_MSGS LINK, WARN_DEPRECATEDWORD , ," is a deprecated word" + THROW_MSGS LINK, WARN_SYSWORD3 , ," is an application word whose runtime is in a system word" | CREATE NULLMSG ," " \ no message text *************** *** 4335,4338 **** --- 4337,4346 ---- R> @ LAST @ NAME> ! ; + : (DOES>) ( -- ) + LAST @ NAME> R> TUCK @ OVER ! + SYS-ADDR? 0= SWAP + SYS-ADDR? AND SYS-WARNING? AND + IF WARN_SYSWORD3 WARNMSG THEN ; + : #(;CODE) ( a1 -- ) R> @ SWAP ! ; *************** *** 5743,5749 **** : DOES> ( -- ) DOES>_A ! COMPILE (;CODE) ! DOES>_B ; IMMEDIATE : #DOES> ( -- ) \ "compile time" --- 5751,5758 ---- : DOES> ( -- ) + SYS-WARNING? SYS-WARNING-OFF DOES>_A ! COMPILE (DOES>) ! DOES>_B TO SYS-WARNING? ; IMMEDIATE : #DOES> ( -- ) \ "compile time" |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:28
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/src/tools Modified Files: HelpSystem.f Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: HelpSystem.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/HelpSystem.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** HelpSystem.f 19 Mar 2006 09:18:38 -0000 1.8 --- HelpSystem.f 3 Aug 2006 13:08:22 -0000 1.9 *************** *** 84,87 **** --- 84,88 ---- ERROR-TABLE-ENTRY -4104 p-gethelp.htm Warning(-4104) ERROR-TABLE-ENTRY -4105 p-gethelp.htm Warning(-4105) + ERROR-TABLE-ENTRY -4106 p-gethelp.htm Warning(-4106) \ Application and Runtime Error Messages |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:28
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth/src/lib Modified Files: ExtStruct.f STRUCT.F Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: ExtStruct.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/ExtStruct.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** ExtStruct.f 1 May 2006 10:25:48 -0000 1.8 --- ExtStruct.f 3 Aug 2006 13:08:22 -0000 1.9 *************** *** 161,165 **** \ create a immediate word in current dict. That compiles the \ offset + part inside a definition at runtime ! dup>r create-struct r> ( wid ) get-current to current-voc --- 161,166 ---- \ create a immediate word in current dict. That compiles the \ offset + part inside a definition at runtime ! dup>r sys-warning? >r sys-warning-off ! create-struct r> to sys-warning? r> ( wid ) get-current to current-voc Index: STRUCT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/STRUCT.F,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** STRUCT.F 29 May 2005 21:48:52 -0000 1.8 --- STRUCT.F 3 Aug 2006 13:08:22 -0000 1.9 *************** *** 29,36 **** \ Members of a structure are not in a separate vocabulary, when struct{ }struct are used. ! : }struct ! previous create forth-wordlist , _struct , \ store the offset/size ! does> cell+ @ add-struct ; \ get the offset and create a field with it that is itself that offsetword \ >struct compiles the adress and offset as 1 adress inside a definition --- 29,42 ---- \ Members of a structure are not in a separate vocabulary, when struct{ }struct are used. ! internal ! ! : (}struct) ! previous create forth-wordlist , _struct , \ store the offset/size ! does> cell+ @ add-struct ; \ get the offset and create a field with it that is itself that offsetword + module + + : }struct + sys-warning? >r sys-warning-off (}struct) r> to sys-warning? ; \ >struct compiles the adress and offset as 1 adress inside a definition *************** *** 122,124 **** \s ! --- 128,130 ---- \s ! |
|
From: George H. <geo...@us...> - 2006-08-03 13:08:26
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv17644/win32forth Modified Files: fkernel.exe Log Message: gah:Added code so that a warning is given if the Does> part of the defing word is in in-system and is used to create a word in-application (which would cause problems for TURNKEYed programs). NOTE needs the new FKERNEL.EXE from the CVS to build. Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.33 retrieving revision 1.34 diff -C2 -d -r1.33 -r1.34 Binary files /tmp/cvspwDK0a and /tmp/cvscbuI9Y differ |
|
From: George H. <geo...@us...> - 2006-08-03 12:26:38
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv31058/win32forth/src Modified Files: paths.f Log Message: gah:For some reason Win98SE doesn't like %CURENTDIR% in the paths list. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.20 retrieving revision 1.21 diff -C2 -d -r1.20 -r1.21 *** paths.f 1 Aug 2006 06:45:29 -0000 1.20 --- paths.f 3 Aug 2006 12:26:24 -0000 1.21 *************** *** 195,199 **** \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list ! s" %CURRENTDIR%" "fpath+ s" %FORTHDIR%" "fpath+ s" %APPDIR%" "fpath+ --- 195,200 ---- \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list ! [ winver win98 = ] [if] s" ." ! [else] s" %CURRENTDIR%" [then] "fpath+ s" %FORTHDIR%" "fpath+ s" %APPDIR%" "fpath+ |
|
From: Jos v.d.V. <jo...@us...> - 2006-08-01 06:45:33
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv20605/src Modified Files: paths.f Log Message: Jos: Restored %CURRENTDIR% otherwise the IDE will nor compile. The problem of the ICON in wined was not to blame on Paths.f Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.19 retrieving revision 1.20 diff -C2 -d -r1.19 -r1.20 *** paths.f 30 Jul 2006 20:52:38 -0000 1.19 --- paths.f 1 Aug 2006 06:45:29 -0000 1.20 *************** *** 95,99 **** 2dup s" %FORTHDIR%" ISTR= if 2drop &forthdir dup ?+\ count "path-only" exit then ! 2dup s" %CURRENTDIR%" ISTR= if 2drop s" ." exit then 2dup s" %APPDIR%" ISTR= if 2drop &prognam count "path-only" exit then ; --- 95,99 ---- 2dup s" %FORTHDIR%" ISTR= if 2drop &forthdir dup ?+\ count "path-only" exit then ! 2dup s" %CURRENTDIR%" ISTR= if 2drop current-dir$ dup ?+\ count "path-only" exit then 2dup s" %APPDIR%" ISTR= if 2drop &prognam count "path-only" exit then ; |
|
From: Jos v.d.V. <jo...@us...> - 2006-07-31 12:21:40
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv5995/apps/WinEd Modified Files: WinEd.f Log Message: Jos: Solved the Icon problem. Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** WinEd.f 28 Jul 2006 10:05:28 -0000 1.13 --- WinEd.f 31 Jul 2006 12:21:37 -0000 1.14 *************** *** 144,151 **** also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon 1 pause-seconds bye [else] ! s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon WinEd [then] --- 144,153 ---- also hidden ' uninit-shared-forth is uninit-shared-type previous throw ! &forthdir count temp$ place s" WinEd.exe" temp$ +place ! s" src\res\WinEd.ico" temp$ count AddAppIcon 1 pause-seconds bye [else] ! &forthdir count temp$ place s" WinEd.exe" temp$ +place ! s" src\res\WinEd.ico" temp$ count AddAppIcon WinEd [then] |
|
From: Jos v.d.V. <jo...@us...> - 2006-07-30 20:52:43
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv26664/src Modified Files: paths.f Log Message: Jos Solved the upstart error when Wined is compiled with the setup. Also solved the network drive problem that was reported by Dirk. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.18 retrieving revision 1.19 diff -C2 -d -r1.18 -r1.19 *** paths.f 30 Jul 2006 12:49:06 -0000 1.18 --- paths.f 30 Jul 2006 20:52:38 -0000 1.19 *************** *** 95,99 **** 2dup s" %FORTHDIR%" ISTR= if 2drop &forthdir dup ?+\ count "path-only" exit then ! 2dup s" %CURRENTDIR%" ISTR= if 2drop current-dir$ dup ?+\ count "path-only" exit then 2dup s" %APPDIR%" ISTR= if 2drop &prognam count "path-only" exit then ; --- 95,99 ---- 2dup s" %FORTHDIR%" ISTR= if 2drop &forthdir dup ?+\ count "path-only" exit then ! 2dup s" %CURRENTDIR%" ISTR= if 2drop s" ." exit then 2dup s" %APPDIR%" ISTR= if 2drop &prognam count "path-only" exit then ; *************** *** 149,152 **** --- 149,160 ---- INTERNAL + : volume-indication? ( adr - flag ) + \ *G True when the counted string at adr starts with x: or \\name + dup 2 + c@ ascii : <> + if count drop 2 s" \\" compare 0= + else drop true + then + ; + 6 PROC SearchPath : full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } *************** *** 159,163 **** path-ptr first-path" begin dup>r searchpath$ place searchpath$ +null ! searchpath$ 2 + c@ ascii : = \ Test for another volume if searchpath$ char+ $current-dir! \ 0 fails, then try next else true --- 167,171 ---- path-ptr first-path" begin dup>r searchpath$ place searchpath$ +null ! searchpath$ volume-indication? \ Test for another volume if searchpath$ char+ $current-dir! \ 0 fails, then try next else true *************** *** 187,192 **** \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list - \ s" ." "fpath+ \ current dir is first - \ &forthdir count "fpath+ s" %CURRENTDIR%" "fpath+ s" %FORTHDIR%" "fpath+ --- 195,198 ---- |
|
From: Dirk B. <db...@us...> - 2006-07-30 12:49:10
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv2353/src Modified Files: paths.f Log Message: Fixed a problem when the IDE is compiled. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.17 retrieving revision 1.18 diff -C2 -d -r1.17 -r1.18 *** paths.f 30 Jul 2006 08:38:00 -0000 1.17 --- paths.f 30 Jul 2006 12:49:06 -0000 1.18 *************** *** 195,199 **** s" src" "fpath+ s" src\lib" "fpath+ ! s" src\tools" "fpath+ s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ --- 195,199 ---- s" src" "fpath+ s" src\lib" "fpath+ ! \ s" src\tools" "fpath+ \ this is causing problems when compiling the IDE... s" src\gdi" "fpath+ \ GDI class library s" src\res" "fpath+ |
|
From: Dirk B. <db...@us...> - 2006-07-30 08:59:29
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16669/src/console Modified Files: NoConsole.f Log Message: Some minor ceanup Index: NoConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** NoConsole.f 29 Jul 2006 09:41:12 -0000 1.4 --- NoConsole.f 30 Jul 2006 08:59:25 -0000 1.5 *************** *** 91,129 **** \ *G Reset of the Console I/O after saving turnkey applications that don't need \ ** the console window. Done automatically by TURNKEY. ! \ reset all deferd words for the console window to noop's. ! ['] NOOP IS INIT-CONSOLE-REG ! ['] M_INIT-CONSOLE IS INIT-CONSOLE ! ['] X_INIT-SCREEN IS INIT-SCREEN ! ['] MENUKEY IS KEY ! ['] _MKEY? IS KEY? ! ['] _LACCEPT IS ACCEPT ! ['] X_PUSHKEY IS PUSHKEY ! ['] X_"PUSHKEYS IS "PUSHKEYS ! ['] K_NOOP1 IS SHIFTMASK ! ['] NOOP IS CLS ! ['] _MEMIT IS EMIT ! ['] _MTYPE IS TYPE ! ['] _MCRTAB IS CR ! ['] _M?CR IS ?CR ! ['] FORTH-IO IS CONSOLE ! ['] X_GOTOXY IS GOTOXY ! ['] X_GETXY IS GETXY ! ['] X_GETCOLROW IS GETCOLROW ! ['] X_SIZESTATE IS SIZESTATE ! ['] X_MARKCONSOLE IS MARKCONSOLE ! ['] X_CURSORINVIEW IS CURSORINVIEW ! ['] X_FGBG! IS FGBG! ! ['] X_FG@ IS FG@ ! ['] X_BG@ IS BG@ ! ['] X_CHARWH IS CHARWH ! ['] X_SETCHARWH IS SETCHARWH ! ['] X_SETCOLROW IS SETCOLROW ! ['] X_SET-CURSOR IS SET-CURSOR ! ['] X_GET-CURSOR IS GET-CURSOR ! ['] X_SETROWOFF IS SETROWOFF ! ['] X_GETROWOFF IS GETROWOFF ! ['] X_GETMAXCOLROW IS GETMAXCOLROW ! ['] X_SETMAXCOLROW IS SETMAXCOLROW ! ['] X_&THE-SCREEN IS &THE-SCREEN \ reset BYE to default --- 91,130 ---- \ *G Reset of the Console I/O after saving turnkey applications that don't need \ ** the console window. Done automatically by TURNKEY. ! ! \ set all deferd words for the console window. ! ['] NOOP IS INIT-CONSOLE-REG ! ['] M_INIT-CONSOLE IS INIT-CONSOLE ! ['] X_INIT-SCREEN IS INIT-SCREEN ! ['] MENUKEY IS KEY ! ['] _MKEY? IS KEY? ! ['] _LACCEPT IS ACCEPT ! ['] X_PUSHKEY IS PUSHKEY ! ['] X_"PUSHKEYS IS "PUSHKEYS ! ['] X_SHIFTMASK IS SHIFTMASK ! ['] _mcls IS CLS ! ['] _MEMIT IS EMIT ! ['] _MTYPE IS TYPE ! ['] _MCRTAB IS CR ! ['] _M?CR IS ?CR ! ['] FORTH-IO IS CONSOLE ! ['] X_GOTOXY IS GOTOXY ! ['] X_GETXY IS GETXY ! ['] X_GETCOLROW IS GETCOLROW ! ['] X_SIZESTATE IS SIZESTATE ! ['] X_MARKCONSOLE IS MARKCONSOLE ! ['] X_CURSORINVIEW IS CURSORINVIEW ! ['] X_FGBG! IS FGBG! ! ['] X_FG@ IS FG@ ! ['] X_BG@ IS BG@ ! ['] X_CHARWH IS CHARWH ! ['] X_SETCHARWH IS SETCHARWH ! ['] X_SETCOLROW IS SETCOLROW ! ['] X_SET-CURSOR IS SET-CURSOR ! ['] X_GET-CURSOR IS GET-CURSOR ! ['] X_SETROWOFF IS SETROWOFF ! ['] X_GETROWOFF IS GETROWOFF ! ['] X_GETMAXCOLROW IS GETMAXCOLROW ! ['] X_SETMAXCOLROW IS SETMAXCOLROW ! ['] X_&THE-SCREEN IS &THE-SCREEN \ reset BYE to default |
|
From: Dirk B. <db...@us...> - 2006-07-30 08:38:05
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv8143/src Modified Files: paths.f Log Message: Keywords: %FORTHDIR% %CURRENTDIR% and %APPDIR% to the search path support. Index: paths.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/paths.f,v retrieving revision 1.16 retrieving revision 1.17 diff -C2 -d -r1.16 -r1.17 *** paths.f 27 Jul 2006 07:21:10 -0000 1.16 --- paths.f 30 Jul 2006 08:38:00 -0000 1.17 *************** *** 92,96 **** \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! ! nip - ; : reset-path-source ( path-ptr -- ) --- 92,101 ---- \ *G Get the next path from dir list. dup>r path-source 2@ 2dup ';' scan 2dup 1 /string r> path-source 2! ! nip - ! ! 2dup s" %FORTHDIR%" ISTR= if 2drop &forthdir dup ?+\ count "path-only" exit then ! 2dup s" %CURRENTDIR%" ISTR= if 2drop current-dir$ dup ?+\ count "path-only" exit then ! 2dup s" %APPDIR%" ISTR= if 2drop &prognam count "path-only" exit then ! ; : reset-path-source ( path-ptr -- ) *************** *** 100,104 **** : first-path" ( path-ptr -- a1 n1 ) \ *G Get the first forth directory path. ! dup>r reset-path-source r> next-path" ; : "path+ ( a1 n1 path-ptr -- ) --- 105,109 ---- : first-path" ( path-ptr -- a1 n1 ) \ *G Get the first forth directory path. ! dup>r reset-path-source r> next-path" ; : "path+ ( a1 n1 path-ptr -- ) *************** *** 182,193 **** \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list ! s" ." "fpath+ \ current dir is first ! &forthdir count "fpath+ ! s" src" "fpath+ ! s" src\lib" "fpath+ ! s" src\gdi" "fpath+ \ GDI class library ! s" src\res" "fpath+ ! s" src\console" "fpath+ ! s" doc" "fpath+ \ last ; --- 187,203 ---- \ *G Initialize the Forth directory search path list. path-ptr off \ clear path list ! \ s" ." "fpath+ \ current dir is first ! \ &forthdir count "fpath+ ! s" %CURRENTDIR%" "fpath+ ! s" %FORTHDIR%" "fpath+ ! s" %APPDIR%" "fpath+ ! ! s" src" "fpath+ ! s" src\lib" "fpath+ ! s" src\tools" "fpath+ ! s" src\gdi" "fpath+ \ GDI class library ! s" src\res" "fpath+ ! s" src\console" "fpath+ ! s" doc" "fpath+ \ last ; |
|
From: George H. <geo...@us...> - 2006-07-29 09:41:15
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv16655/win32forth/src/console Modified Files: NoConsole.f Log Message: gah:Added ResetConsoleIO and modified turnkey to restore the IO so that if an error occurs it get's reported. Index: NoConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** NoConsole.f 13 Feb 2006 14:01:20 -0000 1.3 --- NoConsole.f 29 Jul 2006 09:41:12 -0000 1.4 *************** *** 88,91 **** --- 88,142 ---- ; + : ResetConsoleIO ( -- ) \ W32F console + \ *G Reset of the Console I/O after saving turnkey applications that don't need + \ ** the console window. Done automatically by TURNKEY. + \ reset all deferd words for the console window to noop's. + ['] NOOP IS INIT-CONSOLE-REG + ['] M_INIT-CONSOLE IS INIT-CONSOLE + ['] X_INIT-SCREEN IS INIT-SCREEN + ['] MENUKEY IS KEY + ['] _MKEY? IS KEY? + ['] _LACCEPT IS ACCEPT + ['] X_PUSHKEY IS PUSHKEY + ['] X_"PUSHKEYS IS "PUSHKEYS + ['] K_NOOP1 IS SHIFTMASK + ['] NOOP IS CLS + ['] _MEMIT IS EMIT + ['] _MTYPE IS TYPE + ['] _MCRTAB IS CR + ['] _M?CR IS ?CR + ['] FORTH-IO IS CONSOLE + ['] X_GOTOXY IS GOTOXY + ['] X_GETXY IS GETXY + ['] X_GETCOLROW IS GETCOLROW + ['] X_SIZESTATE IS SIZESTATE + ['] X_MARKCONSOLE IS MARKCONSOLE + ['] X_CURSORINVIEW IS CURSORINVIEW + ['] X_FGBG! IS FGBG! + ['] X_FG@ IS FG@ + ['] X_BG@ IS BG@ + ['] X_CHARWH IS CHARWH + ['] X_SETCHARWH IS SETCHARWH + ['] X_SETCOLROW IS SETCOLROW + ['] X_SET-CURSOR IS SET-CURSOR + ['] X_GET-CURSOR IS GET-CURSOR + ['] X_SETROWOFF IS SETROWOFF + ['] X_GETROWOFF IS GETROWOFF + ['] X_GETMAXCOLROW IS GETMAXCOLROW + ['] X_SETMAXCOLROW IS SETMAXCOLROW + ['] X_&THE-SCREEN IS &THE-SCREEN + + \ reset BYE to default + ['] k_bye is bye + + \ set default-hello for the turnkey application + ['] _default-hello is default-hello + ; + + warning @ checkstack warning off + : turnkey ( xt -<prognam>- -- ) + ['] turnkey catch ResetConsoleIO throw ; + warning ! + \+ VIMAGE also VIMAGE : NoConsoleInImage ( -- ) \ W32F console |
|
From: George H. <geo...@us...> - 2006-07-28 20:33:45
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv25058/win32forth/apps/WinEd Modified Files: WinEd.f Log Message: gah:Fixed bug causing WinEd to incorrectly throw an error Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.11 retrieving revision 1.12 diff -C2 -d -r1.11 -r1.12 *** WinEd.f 27 Jul 2006 07:29:31 -0000 1.11 --- WinEd.f 28 Jul 2006 07:43:03 -0000 1.12 *************** *** 136,147 **** .free \ how much memory did we really use? -1 ed-forth-count +! \ remove myself from Forth count ! 0 0 ' wined ' APPLICATION catch WinEd.exe \ save WinEd.exe ! s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon 1 ed-forth-count +! ! forth-msg-chain ! \ make sure that the remote I/O will still work after WinEd is compiled also hidden ' uninit-shared-forth is uninit-shared-type previous throw 1 pause-seconds bye [else] --- 136,147 ---- .free \ how much memory did we really use? -1 ed-forth-count +! \ remove myself from Forth count ! 0 0 ' wined ' APPLICATION catch WinEd.exe checkstack \ save WinEd.exe 1 ed-forth-count +! ! swap forth-msg-chain ! \ make sure that the remote I/O will still work after WinEd is compiled also hidden ' uninit-shared-forth is uninit-shared-type previous throw + s" src\res\WinEd.ico" s" WinEd.exe" AddAppIcon 1 pause-seconds bye [else] |
|
From: George H. <geo...@us...> - 2006-07-28 10:05:35
|
Update of /cvsroot/win32forth/win32forth/apps/WinEd In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv15474/win32forth/apps/WinEd Modified Files: WinEd.f Log Message: gah:Modified WinEd to build in the same folder as Win32Forth Index: WinEd.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/WinEd/WinEd.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** WinEd.f 28 Jul 2006 07:43:03 -0000 1.12 --- WinEd.f 28 Jul 2006 10:05:28 -0000 1.13 *************** *** 136,141 **** .free \ how much memory did we really use? -1 ed-forth-count +! \ remove myself from Forth count 0 0 ' wined ' APPLICATION catch WinEd.exe checkstack \ save WinEd.exe ! 1 ed-forth-count +! swap forth-msg-chain ! --- 136,142 ---- .free \ how much memory did we really use? -1 ed-forth-count +! \ remove myself from Forth count + &forthdir count &appdir place 0 0 ' wined ' APPLICATION catch WinEd.exe checkstack \ save WinEd.exe ! &appdir off 1 ed-forth-count +! swap forth-msg-chain ! |
|
From: George H. <geo...@us...> - 2006-07-27 22:29:09
|
Update of /cvsroot/win32forth/win32forth/apps/SciEdit In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1725/win32forth/apps/SciEdit Modified Files: Main.f Log Message: gah:Added catch and throw to (hopefully) correctly reset the system on file saving errors (tested on Win98). Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/SciEdit/Main.f,v retrieving revision 1.22 retrieving revision 1.23 diff -C2 -d -r1.22 -r1.23 *** Main.f 23 Jul 2006 09:27:14 -0000 1.22 --- Main.f 27 Jul 2006 07:29:31 -0000 1.23 *************** *** 713,724 **** ' my-hello is default-hello ! &forthdir count &appdir place \ create SciEditMdi.exe in the ! 0 0 ' Main Application SciEditMdi.exe \ Win32Forth folder &appdir off s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon ! \ make shure that the remote I/O will still work after SchiEdit was compiled ! also hidden ' uninit-shared-forth is uninit-shared-type previous 1 pause-seconds bye [else] --- 713,727 ---- ' my-hello is default-hello ! &forthdir count &appdir place ! \ create SciEditMdi.exe in the Win32Forth folder ! 0 0 ' Main ' Application catch SciEditMdi.exe checkstack &appdir off + \ make sure that the remote I/O will still work after SciEdit is compiled + also hidden ' uninit-shared-forth is uninit-shared-type previous + throw s" src\res\SciEditMDI.ico" s" SciEditMdi.exe" AddAppIcon ! 1 pause-seconds bye [else] |
|
From: George H. <geo...@us...> - 2006-07-27 22:28:44
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv1725/win32forth/apps/Win32ForthIDE Modified Files: Main.f Log Message: gah:Added catch and throw to (hopefully) correctly reset the system on file saving errors (tested on Win98). Index: Main.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Win32ForthIDE/Main.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Main.f 23 Jul 2006 09:36:40 -0000 1.24 --- Main.f 27 Jul 2006 07:29:31 -0000 1.25 *************** *** 979,990 **** ' my-hello is default-hello ! &forthdir count &appdir place \ create SciEditMdi.exe in the ! 0 0 ' Main Application Win32ForthIde.exe \ Win32Forth folder &appdir off ! s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon - \ make shure that the remote I/O will still work after the IDE was compiled - also hidden ' uninit-shared-forth is uninit-shared-type previous 1 pause-seconds bye [else] --- 979,991 ---- ' my-hello is default-hello ! &forthdir count &appdir place ! \ create Win32ForthIDE.exe in the Win32Forth folder ! 0 0 ' Main ' Application catch Win32ForthIde.exe checkstack &appdir off ! \ make sure that the remote I/O will still work after the IDE is compiled ! also hidden ' uninit-shared-forth is uninit-shared-type previous ! throw s" src\res\SciEditMDI.ico" s" Win32ForthIde.exe" AddAppIcon 1 pause-seconds bye [else] |
|
From: George H. <geo...@us...> - 2006-07-27 22:28:38
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs9.sourceforge.net:/tmp/cvs-serv32687/win32forth/doc Modified Files: FloadCmdLine.htm Paths.htm Log Message: gah:Restyled with W32FDocs Index: FloadCmdLine.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/FloadCmdLine.htm,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** FloadCmdLine.htm 4 Feb 2006 10:53:47 -0000 1.4 --- FloadCmdLine.htm 27 Jul 2006 07:25:56 -0000 1.5 *************** *** 1,15 **** ! <?xml version="1.0"?> ! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" ! "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> ! <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" /> ! <meta name="GENERATOR" content="DexH v03" /> ! <style type="text/css"> ! </style> <title> ! </title> </head> ! <body> <hr /><h1>Experimental shell integration for Win32Forth </h1><hr /><br />FloadCmdLine allows compiling from the context menu. --- 1,19 ---- ! <html> <head> ! <meta http-equiv="Content-Language" content="en-gb"> ! <meta name="GENERATOR" content="dexh00"> ! <meta name="ProgId" content="FrontPage.Editor.Document"> ! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> ! </title><style><!-- ! h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } ! h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> ! </style> </head> ! <body><h1 align="center"> ! <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> ! <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> ! <img border="0" src="FORTHPRO.gif" ! width="32" height="32"> Win32Forth</h1> <hr /><h1>Experimental shell integration for Win32Forth </h1><hr /><br />FloadCmdLine allows compiling from the context menu. *************** *** 34,36 **** </p><pre><b><a name="0">: FloadCmdLine ( - ) </a></b></pre><p> Compiles the file in the command line. ! </p> \ No newline at end of file --- 38,41 ---- </p><pre><b><a name="0">: FloadCmdLine ( - ) </a></b></pre><p> Compiles the file in the command line. ! </p><hr><p>Document $Id$</p> ! </body></html> Index: Paths.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/Paths.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** Paths.htm 16 Jul 2006 13:44:46 -0000 1.1 --- Paths.htm 27 Jul 2006 07:25:56 -0000 1.2 *************** *** 1,15 **** ! <?xml version="1.0"?> ! <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" ! "http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd"> ! <html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en"> <head> ! <meta http-equiv="Content-Type" content="text/xml; charset=iso-8859-1" /> ! <meta name="GENERATOR" content="DexH v03" /> ! <style type="text/css"> ! </style> <title> ! </title> </head> ! <body> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary --- 1,19 ---- ! <html> <head> ! <meta http-equiv="Content-Language" content="en-gb"> ! <meta name="GENERATOR" content="dexh00"> ! <meta name="ProgId" content="FrontPage.Editor.Document"> ! <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <title> ! </title><style><!-- ! h1 { font-family: Tahoma; font-size: 24pt; font-weight: bold } ! h2 { font-family: Tahoma; font-size: 18pt; font-weight: bold } --> ! </style> </head> ! <body><h1 align="center"> ! <a href="mailto:win...@ya...?subject=DOC:Doc error in $Id$"> ! <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a> ! <img border="0" src="FORTHPRO.gif" ! width="32" height="32"> Win32Forth</h1> <hr /><h1>Paths -- Multiple search path support </h1><hr /><h2>Glossary *************** *** 48,74 **** </p><pre><b><a name="13">: "path+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="14">: "fpath+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. </p><pre><b><a name="15">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="16">: .path ( path-ptr -- ) </a></b></pre><p>Display a directory search path list. </p><pre><b><a name="17">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="18">: full-path { a1 n1 path-ptr \ searchpath$ filename$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="19">: program-path-init ( -- ) </a></b></pre><p>Initialize the Forth directory search path list. </p><pre><b><a name="20">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="21">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="22">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="23">: IsPathRelativeTo? { a1 n1 a2 n2 -- f } </a></b></pre><p>Return true if path a1 n1 is relative to path a2 n2 ! </p><pre><b><a name="24">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. </p><pre><b><a name="25">: FindRelativePath ( a1 n1 path-ptr - a2 n2 ) --- 52,78 ---- </p><pre><b><a name="13">: "path+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. ! </p><pre><b><a name="14">: "fpath+ ( a1 n1 path-ptr -- ) </a></b></pre><p>Append a directory to a path. </p><pre><b><a name="15">: fpath+ ( -<directory>- ) </a></b></pre><p>Append a directory to the Forth path. ! </p><pre><b><a name="16">: .path ( path-ptr -- ) </a></b></pre><p>Display a directory search path list. </p><pre><b><a name="17">: .fpath ( -- ) </a></b></pre><p>Display the Forth directory search path list. ! </p><pre><b><a name="18">: full-path { a1 n1 path-ptr \ searchpath$ filename$ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in a path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="19">: program-path-init ( -- ) </a></b></pre><p>Initialize the Forth directory search path list. </p><pre><b><a name="20">: "path-file { a1 n1 \ current$ -- a2 n2 f1 } </a></b></pre><p>Find file a1,n1 in the Forth path and return the full path. <br /> a2,n2 and f1=false, succeeded. ! </p><pre><b><a name="21">: n"open ( a1 n1 -- handle f1 ) </a></b></pre><p>Open file a1,n1 with a Forth path search. ! </p><pre><b><a name="22">: MakeAbsolutePath ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 absolute to path a2 n2. ! </p><pre><b><a name="23">: IsPathRelativeTo? { a1 n1 a2 n2 -- f } </a></b></pre><p>Return true if path a1 n1 is relative to path a2 n2 ! </p><pre><b><a name="24">: MakePathRelativeTo ( a1 n1 a2 n2 -- a3 ) </a></b></pre><p>Make path a1 n1 relative to path a2 n2. </p><pre><b><a name="25">: FindRelativePath ( a1 n1 path-ptr - a2 n2 ) *************** *** 82,86 **** </p><pre><b><a name="28">: LOADED? ( -<name>- -- flag ) { \ current$ } </a></b></pre><p>True if the following file is loaded. The filename may be relative. ! </p><pre><b><a name="29">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. </p><pre><b><a name="30">: \LOADED ( -<name>- ) --- 86,90 ---- </p><pre><b><a name="28">: LOADED? ( -<name>- -- flag ) { \ current$ } </a></b></pre><p>True if the following file is loaded. The filename may be relative. ! </p><pre><b><a name="29">: \LOADED- ( -<name>- ) </a></b></pre><p>If the following file IS NOT LOADED interpret line. </p><pre><b><a name="30">: \LOADED ( -<name>- ) *************** *** 88,92 **** </p><pre><b><a name="31">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="32">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p> \ No newline at end of file --- 92,97 ---- </p><pre><b><a name="31">: NEEDS ( -<name>- ) </a></b></pre><p>Conditionally load file "name" if not loaded. ! </p><pre><b><a name="32">: "file-clip" { adr len limit \ temp$ pre -- 'adr 'len } </a></b></pre><p>Clip filename to limit. ! </p><hr><p>Document $Id$</p> ! </body></html> |
1040 messages has been excluded from this view by a project administrator.
