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: George H. <geo...@us...> - 2010-01-17 10:55:05
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv7358 Modified Files: Primutil.f Log Message: Changed initial value of OLDDEPTH Index: Primutil.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Primutil.f,v retrieving revision 1.46 retrieving revision 1.47 diff -C2 -d -r1.46 -r1.47 *** Primutil.f 1 Jan 2009 18:36:50 -0000 1.46 --- Primutil.f 17 Jan 2010 10:54:50 -0000 1.47 *************** *** 311,315 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! 0 value olddepth : stack-check-off ( -- ) --- 311,315 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! -2 value olddepth : stack-check-off ( -- ) |
|
From: Jos v.d.V. <jo...@us...> - 2010-01-16 14:11:16
|
Update of /cvsroot/win32forth/win32forth/src In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv5012/src Modified Files: Extend.f Log Message: Jos: To prevent the stack depth increased in file > C:\\USERS\\HUG\\_FORTH\\WIN32FORTH 6.1 3.03\\SRC\\EXTEND.F at line 115 > Stack: [2] -1 -1 Index: Extend.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Extend.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Extend.f 19 Apr 2009 07:47:08 -0000 1.24 --- Extend.f 16 Jan 2010 14:11:05 -0000 1.25 *************** *** 113,118 **** fload lib\Resources.f ! winver winnt4 >= ! [if] &forthdir count pad place s" Win32for.exe" pad +place --- 113,118 ---- fload lib\Resources.f ! winver winnt4 >= [if] ! &forthdir count pad place s" Win32for.exe" pad +place |
|
From: Misrahi <biq...@bh...> - 2010-01-10 16:13:46
|
Grated to Tennessee soon after he had surveyed the line between that State and North Carolina, having, while in the execution of that service, seen the fine lands in Middle Tennessee. He settled the lands upon which his grandson, Henry Smith, now resides; and built the mansion, which is still there, at a period when the men engaged in quarrying the rock had to be guarded from the attacks of the Indians. "The father of S |
|
From: Tarry P. <lo...@vd...> - 2009-12-25 16:29:32
|
Of robbers on the road, for that he should be sorry (he said) to fall into their hands, inasmuch as he had with him in his portmanteau 24,000 franks in gold and several valuable articles of jewellery. Mine host assured him that there was not the slightest danger. The merchant went to bed, directing that he should be awakened at daybreak in order to proceed on his journey. Mine host, however, took care |
|
From: Jos v.d.V. <jo...@us...> - 2009-12-16 12:07:41
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1631/src/lib Added Files: quiksort.f Log Message: Jos: Final action: quicksort has now been moved --- NEW FILE: quiksort.f --- anew wilsort \ ---------------------------------------------------------- \ Wil Baden's sorter \ Set PRECEDES for different datatypes or sort order. DEFER PRECEDES ' < IS PRECEDES \ For sorting character strings in increasing order: : SPRECEDES ( addr addr -- flag ) >R COUNT R> COUNT COMPARE 0< ; : IPRECEDES ( addr addr -- flag ) < ; ' SPRECEDES IS PRECEDES internal : EXCHANGE ( addr_1 addr_2 -- ) DUP @ >R OVER @ SWAP ! R> SWAP ! ; \ : -CELL ( -- n ) -1 CELLS ; \ : CELL- ( addr -- addr' ) 1 CELLS - ; : PARTITION ( lo hi -- lo_1 hi_1 lo_2 hi_2 ) 2DUP OVER - 2/ -CELL AND + @ >R ( R: median) 2DUP BEGIN ( lo_1 hi_2 lo_2 hi_1) SWAP BEGIN DUP @ R@ PRECEDES WHILE CELL+ REPEAT SWAP BEGIN R@ OVER @ PRECEDES WHILE CELL- REPEAT 2DUP > NOT IF 2DUP EXCHANGE >R CELL+ R> CELL- THEN 2DUP > UNTIL ( lo_1 hi_2 lo_2 hi_1) R>DROP SWAP ROT ( lo_1 hi_1 lo_2 hi_2) ; : QSORT ( lo hi -- ) PARTITION ( lo_1 hi_1 lo_2 hi_2) 2OVER 2OVER - + ( . . . . lo_1 hi_1+lo_2-hi_2) < IF 2SWAP THEN ( lo_1 hi_1 lo_2 hi_2) 2DUP < IF RECURSE ELSE 2DROP THEN 2DUP < IF RECURSE ELSE 2DROP THEN ; external : SORT ( addr n -- ) DUP 2 < IF 2DROP EXIT THEN 1- CELLS OVER + ( addr addr+{n-1}cells) QSORT ( ) ; module \ ---------------------------------------------------------- \s \ quickie tests: here ," nine" here ," fout" here ," three" here ," seven" here ," zero" here ," eight" here ," two" here ," six" here ," one" here ," five" create str-table , , , , , , , , , , \ table of counted strings : str_dump 10 0 do i cells STR-TABLE + @ count type space loop ; cr str_dump .( -> ) ' SPRECEDES IS PRECEDES STR-TABLE 10 sort cr str_dump CREATE INT-TABLE 9 , 4 , 3 , 7 , 0 , 8 , 2 , 6 , 1 , 5 , : int_dump 10 0 do i cells INT-TABLE + @ . loop ; cr int_dump .( -> ) ' IPRECEDES IS PRECEDES INT-TABLE 10 sort int_dump |
|
From: Jos v.d.V. <jo...@us...> - 2009-12-16 12:04:40
|
Update of /cvsroot/win32forth/win32forth/apps/Win32ForthIDE In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv1127/apps/Win32ForthIDE Removed Files: quiksort.f Log Message: Jos: Moving quicksort --- quiksort.f DELETED --- |
|
From: Jos v.d.V. <jo...@us...> - 2009-12-16 11:59:55
|
Update of /cvsroot/win32forth/win32forth/apps/ForthForm In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv487/apps/ForthForm Removed Files: quiksort.f Log Message: Jos: Moving quicksort --- quiksort.f DELETED --- |
|
From: George H. <geo...@us...> - 2009-12-02 08:13:42
|
Update of /cvsroot/win32forth/win32forth/demos In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv2384 Modified Files: WINSER.F Log Message: Replaced &LOCAL with &OF in example. Index: WINSER.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/demos/WINSER.F,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** WINSER.F 20 Sep 2008 15:29:06 -0000 1.3 --- WINSER.F 2 Dec 2009 08:13:30 -0000 1.4 *************** *** 240,244 **** : Com2emit { char -- } \ write a character to the serial port begin ! &LOCAL char 1 Com2Hndl write-file if Com2Hndl ComErrorClear drop --- 240,244 ---- : Com2emit { char -- } \ write a character to the serial port begin ! &OF char 1 Com2Hndl write-file if Com2Hndl ComErrorClear drop |
|
From: Jos v.d.V. <jo...@us...> - 2009-11-29 22:17:32
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sfp-cvsdas-1.v30.ch3.sourceforge.com:/tmp/cvs-serv2370/src/lib Modified Files: treeview.f Log Message: Jos: With GetFirstVisible: and GetLastVisible: can a number of items be determined. Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** treeview.f 31 Oct 2009 18:10:58 -0000 1.13 --- treeview.f 29 Nov 2009 22:17:22 -0000 1.14 *************** *** 256,260 **** :M GetNext: ( hItem -- hItem ) TVGN_NEXT GetNextItem: self ;M :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M ! :M GetLastVisible: ( hItem -- hItem ) TVGN_LASTVISIBLE GetNextItem: self ;M int maxwidth --- 256,261 ---- :M GetNext: ( hItem -- hItem ) TVGN_NEXT GetNextItem: self ;M :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M ! :M GetLastVisible: ( hItem -- hItem ) TVGN_LASTVISIBLE GetNextItem: self ;M ! :M GetFirstVisible: ( hItem -- hItem ) TVGN_FIRSTVISIBLE GetNextItem: self ;M int maxwidth |
|
From: George H. <geo...@us...> - 2009-11-16 23:14:40
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv28918 Modified Files: Evolve.f Log Message: Improved documentation Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Evolve.f 16 Aug 2009 18:50:37 -0000 1.10 --- Evolve.f 16 Nov 2009 23:14:30 -0000 1.11 *************** *** 21,25 **** \ \ \ When you get such a message, you are strongly encouraged to make any needed \ ! \ conversion in your sources because they will no longer be present in the \ \ next win32Forth release. \ \ \ --- 21,25 ---- \ \ \ When you get such a message, you are strongly encouraged to make any needed \ ! \ conversion to your sources because they will no longer be present in the \ \ next win32Forth release. \ \ \ *************** *** 57,61 **** deprecated \ june 27 2008 - was in-system ! : -- \ replace by \ postpone \ ; immediate deprecated \ june 27 2008 - was in-system --- 57,62 ---- deprecated \ june 27 2008 - was in-system ! : -- \ replace by \ NOTE this refers to -- outside of { and } ; it is still part of the ! \ LOCALS syntax postpone \ ; immediate deprecated \ june 27 2008 - was in-system *************** *** 85,91 **** \ ------------------- ! : WITH-IMG \ replace by nothing (was a NOOP) ; IMMEDIATE ! deprecated \ since a long time - was in-system --- 86,92 ---- \ ------------------- ! : WITH-IMG \ replace by nothing (was a NOOP). No longer needed since the 'c' wrapper was removed. ; IMMEDIATE ! deprecated \ since late 2003 - was in-system *************** *** 109,113 **** deprecated \ since a long time ! \ rel>abs and abs>rel are deprecated since version 6 \ They are still in primutil.f to support old code --- 110,114 ---- deprecated \ since a long time ! \ rel>abs and abs>rel are deprecated since version 6.10 \ They are still in primutil.f to support old code *************** *** 167,214 **** \ removed from src\float.f \ ------------------------ - ( the following words used the return stack to store floating instead of the - new floating stack - you can move theese definitions in your application - but it is much better to use the separate floating stack) ' FLOATSTACK >body @ checkstack constant FSTACK \ don't use ( equivalent to FLOATSTACK UP@ - ) ! deprecated \ since a long time ' FLOATSP >body @ checkstack constant FSP \ don't use ( equivalent to FLOATSP UP@ - ) ! deprecated \ since a long time : r>f \ don't use r> rp@ f@ b/float rp@ + rp! >r ; ! deprecated \ since a long time ! code (f@) \ don't use ! ( addr -- ; fs: --r ) \ ??? ! fld FSIZE DATASTACK_MEMORY ! pop tos ! float; ! deprecated \ since a long time : f>r \ don't use r> rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since a long time : fdup>r \ don't use r> fdup rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since a long time : fr@ \ don't use r> r@ f@ >r ; ! deprecated \ since a long time code fpush \ don't use ! ( fpu: r -- ) ( fs: -- r ) \ move from FPU on simulated stack FPU> float; ! deprecated \ since a long time code fpop \ don't use ! ( fpu: -- r ) ( fs: r -- ) \ move from simulated stack on FPU stack fstack-check_1 >FPU float; ! deprecated \ since a long time : f^x \ replace by F** \ synonym of f** f** ; ! deprecated \ since a long time --- 168,221 ---- \ removed from src\float.f \ ------------------------ ' FLOATSTACK >body @ checkstack constant FSTACK \ don't use ( equivalent to FLOATSTACK UP@ - ) ! deprecated \ since July 4 2005 ' FLOATSP >body @ checkstack constant FSP \ don't use ( equivalent to FLOATSP UP@ - ) ! deprecated \ since July 4 2005 ! ! ( the following words were for moving floats between the floating point stack and the return ! stack, but were not used by the system or any programs.) ! : r>f \ don't use r> rp@ f@ b/float rp@ + rp! >r ; ! deprecated \ since July 4 2005 ! : f>r \ don't use r> rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since July 4 2005 : fdup>r \ don't use r> fdup rp@ b/float - rp! rp@ f! >r ; ! deprecated \ since July 4 2005 : fr@ \ don't use r> r@ f@ >r ; ! deprecated \ since July 4 2005 ! ! \ --------------------------------------------------------------------------------------- ! ! code (f@) \ don't use ! ( addr -- ; fpu: --r ) \ Fetch float to FPU stack (not the simulated FP stack) ! fld FSIZE DATASTACK_MEMORY ! pop tos ! float; ! deprecated \ since July 4 2005 ! code fpush \ don't use ! ( fpu: r -- ) ( fs: -- r ) \ move from FPU stack to simulated FP stack FPU> float; ! deprecated \ since July 4 2005 code fpop \ don't use ! ( fpu: -- r ) ( fs: r -- ) \ move from simulated FP stack to FPU stack fstack-check_1 >FPU float; ! deprecated \ since July 4 2005 : f^x \ replace by F** \ synonym of f** f** ; ! deprecated \ since July 4 2005 *************** *** 356,360 **** \ ------------------------------------------------------------------------------ ! \ To check for sure that every word moved in Evolve.f is no longer used in the \ win32forth CVS , transiently comment out the line : \ FLOAD src\compat\Evolve.f --- 363,367 ---- \ ------------------------------------------------------------------------------ ! \ To check for sure that every word moved to Evolve.f is no longer used in the \ win32forth CVS , transiently comment out the line : \ FLOAD src\compat\Evolve.f |
|
From: Jos v.d.V. <jo...@us...> - 2009-10-31 18:11:10
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv13300/src/lib Modified Files: treeview.f Log Message: Jos: Added GetLastVisible: Index: treeview.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/treeview.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** treeview.f 13 Oct 2006 03:50:29 -0000 1.12 --- treeview.f 31 Oct 2009 18:10:58 -0000 1.13 *************** *** 256,259 **** --- 256,260 ---- :M GetNext: ( hItem -- hItem ) TVGN_NEXT GetNextItem: self ;M :M GetPrevious: ( hItem -- hItem ) TVGN_PREVIOUS GetNextItem: self ;M + :M GetLastVisible: ( hItem -- hItem ) TVGN_LASTVISIBLE GetNextItem: self ;M int maxwidth |
|
From: Jos v.d.V. <jo...@wx...> - 2009-10-25 17:10:53
|
\ Based on Kahn's direct show. Now it play's audio and video.
\ Tested on the Vista only. It still needs some work.
needs fcom.f
needs struct.f
: dd depth cr ." depth=" . ;
u" dshow.tlb" typelibfile \ See Kahn's folder for this file.
1 constant CLSCTX_INPROC_SERVER
$8001 constant WM_GRAPHNOTIFY
UUID FilterGraph {e436ebb3-524f-11ce-9f53-0020af0ba770}
create eventcode 16 allot
: ?err ?dup if hex u. decimal then ;
IGraphBuilder ComIFace pGB
IMediaEventEx ComIFace pME
IMediaControl ComIFace pMC
\ File to play:
: PFileName ( - adr n ) u" wood.wma" ;
\ See 80040216? File not found.
: play
pGB IGraphBuilder CLSCTX_INPROC_SERVER 0 FilterGraph CoCreateInstance
?err
pME IMediaEventEx pGB queryinterface ?err
null PFileName drop pGB RenderFile ?err
pMC IMediaControl pGB queryinterface ?err
pMC Run drop \ ?err 1
eventcode 10 pME WaitForCompletion drop \ ?err \ 80004004
;
play
\s Jos
|
|
From: George H. <geo...@us...> - 2009-10-21 22:02:41
|
Update of /cvsroot/win32forth/win32forth-stc/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv2378 Modified Files: gkernel.f Log Message: Fixed bug in file-size Index: gkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-stc/src/kernel/gkernel.f,v retrieving revision 1.44 retrieving revision 1.45 diff -C2 -d -r1.44 -r1.45 *** gkernel.f 9 Sep 2008 20:54:40 -0000 1.44 --- gkernel.f 21 Oct 2009 22:02:28 -0000 1.45 *************** *** 4135,4139 **** 2 PROC GetFileSize : file-size ( fileid -- len-ud ior ) ! 0 sp@ rot call GetFileSize tuck INVALID_FILE_SIZE <> if false --- 4135,4139 ---- 2 PROC GetFileSize : file-size ( fileid -- len-ud ior ) ! sp@ 0 swap rot call GetFileSize tuck INVALID_FILE_SIZE <> if false |
|
From: George H. <geo...@us...> - 2009-10-21 21:58:11
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv1867 Modified Files: fkernel.f Log Message: Fixed bug in file-size Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.62 retrieving revision 1.63 diff -C2 -d -r1.62 -r1.63 *** fkernel.f 27 Dec 2008 16:04:39 -0000 1.62 --- fkernel.f 21 Oct 2009 21:57:53 -0000 1.63 *************** *** 4111,4115 **** 2 PROC GetFileSize : file-size ( fileid -- len-ud ior ) ! 0 sp@ rot call GetFileSize tuck INVALID_FILE_SIZE <> if false --- 4111,4115 ---- 2 PROC GetFileSize : file-size ( fileid -- len-ud ior ) ! sp@ 0 swap rot call GetFileSize tuck INVALID_FILE_SIZE <> if false |
|
From: Pfeifle <ki...@ke...> - 2009-09-04 19:02:54
|
Ay just what he thinks and believes. He is dependable. It is a pleasure and a satisfaction, when we are listening to the words of another person, to know that that other person is speaking the truth. But not everyone is to be depended upon in this way. There is another kind of man who tells you something in apparent sincerity, but when he calls upon the next person he may tell the story in an entirely different way. Why? Because he believes that the second person will be better pleased with the revised version. [Illustration: Fig. 82] "How often do we find an attractive face which gains our entire confidence, a face, pleasant to see and agreeable in every way. [Draw face, completing Fig. 82.] And then, how often are we pained and shocked and disappointed when something happens which allows us to look into the real character of the person and we find that his real self is anything but agreeable and worthy of confidence. [Draw lines to complete Fig. 83.] Such a discovery, however, should not cause us to lose faith in our brothers. Truth, character, and a splendid degree of manhood abound everywhere. [Illustration: Fig. 83] "Boys and girls, begin now the formation of habits which will make you strong, honest, worthy men and women. Sometimes you |
|
From: Mariella <hu...@zh...> - 2009-09-01 22:33:27
|
Command, devine or not devine, I know when a man has lived too long, an' when he's going to try to get me. An' all the gospel sharps south of heaven can't stop me from handing a thief what he's earned. Go on with the show, but count me out." While the evangelist warmed to the attack, vaguely realizing that he had made a mistake in not heeding Dave Wilkes' tip, Hopalong became conscious of a sense of relief stealing over him and he looked around wonderingly for the cause. The man with the kerchief had "folded his tents" and departed; and Hopalong, heaving a sigh of satisfaction, settled himself more comfortably and gave real attention to the discourse, although he did not reply to the warm and eloquent man on the soap box. Suddenly he sat up with a start as he remembered that he had a long and hard ride b |
|
From: Kieger <va...@at...> - 2009-08-21 22:52:34
|
T. Berkeley might be the name of an apartment-house or of a country place or of a suburban town. The editor stepped out of his office into the larger room beyond and said: "I've a poem here that appeared in an American magazine about seven years ago. I remember the date because I read it when I was at college. Some one is either trying to play a trick on us, or to get money by stealing some other man's brains." It was in this way that Edwin Aram first introduced himself to our office, and while his poem was not accepted, it was not returned. On the contrary, Mr. Aram became to us one of the most interesting of our would-be contributors, and there was no author, no matter of what popularit |
|
From: George H. <geo...@us...> - 2009-08-16 18:51:05
|
Update of /cvsroot/win32forth/win32forth/src/Compat In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv8281 Modified Files: Compatibility.f Evolve.f Log Message: minor corrections Index: Compatibility.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Compatibility.f,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** Compatibility.f 25 Jul 2008 03:51:15 -0000 1.3 --- Compatibility.f 16 Aug 2009 18:50:37 -0000 1.4 *************** *** 27,31 **** \ END-CODE --> ;C \ [ENDIF] --> [THEN] ! \ #ENDIF --> [THEN] \ ENDIF --> THEN \ ... --- 27,31 ---- \ END-CODE --> ;C \ [ENDIF] --> [THEN] ! \ #ENDIF --> #THEN \ ENDIF --> THEN \ ... Index: Evolve.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Compat/Evolve.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** Evolve.f 25 Oct 2008 19:51:36 -0000 1.9 --- Evolve.f 16 Aug 2009 18:50:37 -0000 1.10 *************** *** 16,20 **** \ evolution to better features) \ \ \ ! \ This file, and thus theese words, are still included in the system but they \ \ are all flagged "deprecated" and a message will warn you if any of your \ \ sources is using one of them. \ --- 16,20 ---- \ evolution to better features) \ \ \ ! \ This file, and thus these words, are still included in the system but they \ \ are all flagged "deprecated" and a message will warn you if any of your \ \ sources is using one of them. \ |
|
From: George H. <geo...@us...> - 2009-08-08 19:03:16
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18428/src/lib Modified Files: switch.f Log Message: Minor spelling corrections Index: switch.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/switch.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** switch.f 16 May 2008 11:53:58 -0000 1.4 --- switch.f 8 Aug 2009 19:02:56 -0000 1.5 *************** *** 270,274 **** \ ** \ ** [SWITCH FOO-ERROR throw SWITCH] ! \ ** : (FOO) -<Some code>- ; \ ** : FOO ['] (foo) catch foo-error ; \ ** An extensible error handler. Initially any errors are simply thrown to the previous CATCH but adding extra --- 270,274 ---- \ ** \ ** [SWITCH FOO-ERROR throw SWITCH] ! \ ** : (FOO) -<Some code>- ; \ ** : FOO ['] (foo) catch foo-error ; \ ** An extensible error handler. Initially any errors are simply thrown to the previous CATCH but adding extra |
|
From: George H. <geo...@us...> - 2009-08-08 19:03:08
|
Update of /cvsroot/win32forth/win32forth In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18428 Modified Files: fkernel.exe Log Message: Minor spelling corrections Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.56 retrieving revision 1.57 diff -C2 -d -r1.56 -r1.57 Binary files /tmp/cvsV27Tno and /tmp/cvs7MoTMo differ |
|
From: George H. <geo...@us...> - 2009-08-08 19:03:08
|
Update of /cvsroot/win32forth/win32forth/Help/html In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18428/Help/html Modified Files: dexh-switch.htm w32f-Arch-Dict.htm w32f-MoveTo.6.14.htm w32f-locals.htm w32f-quicktour.htm Log Message: Minor spelling corrections Index: w32f-locals.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-locals.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** w32f-locals.htm 15 May 2008 07:36:49 -0000 1.1 --- w32f-locals.htm 8 Aug 2009 19:02:55 -0000 1.2 *************** *** 103,142 **** 0. 2var 2! \ store double number 0 in 2 var</pre><pre> .... ;</pre> - <h2>Using stack frames</h2> - - <p>An alternative way of having local - structures is to use consecutive locals to hold the values. This is especially - useful for interfacing to the OS API functions since C structures like: </p> - - <pre> typedef struct tagMSG { // msg - HWND hwnd; - UINT message; - WPARAM wParam; - LPARAM lParam; - DWORD time; - POINT pt; - } MSG;</pre> - - <p>can be easily mirrored in the argument list as in the following example: </p> - - <pre> : MESSAGE-LOOP ( -- ) \ Do all messages until WM_QUIT - { \ hwnd mess wparm lparm time pt.x pt.y -- } - Begin - 0 0 0 &ampof hwnd call GetMessage - While - &ampof hwnd handlemessages drop - Repeat ;</pre> - - <p>where the structure is referenced by the address of the first member. The - <code>POINT</code> structure ( <code>pt.x</code> and <code>pt.y</code> ) - can be referenced as a whole by </p> - - <pre> &OF pt.x</pre> - - <p>if required. </p> - - <p><b>Note</b> in early versions of Win32F the word <code>&OF</code> - only worked on Values and a separate word <code>&LOCAL</code> was provided for the - address of a Local. </p> <hr> --- 103,106 ---- Index: dexh-switch.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/dexh-switch.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** dexh-switch.htm 16 May 2008 11:51:25 -0000 1.1 --- dexh-switch.htm 8 Aug 2009 19:02:55 -0000 1.2 *************** *** 64,68 **** [SWITCH FOO-ERROR throw SWITCH] ! : (FOO) -&ltSome code>- ; : FOO ['] (foo) catch foo-error ; An extensible error handler. Initially any errors are simply thrown to the previous CATCH but adding extra --- 64,68 ---- [SWITCH FOO-ERROR throw SWITCH] ! : (FOO) -<Some code>- ; : FOO ['] (foo) catch foo-error ; An extensible error handler. Initially any errors are simply thrown to the previous CATCH but adding extra Index: w32f-quicktour.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-quicktour.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** w32f-quicktour.htm 15 May 2008 07:36:50 -0000 1.1 --- w32f-quicktour.htm 8 Aug 2009 19:02:55 -0000 1.2 *************** *** 33,37 **** <p> Once you are developping ! complex applications, theese files will provide many examples of "complicated" use of Win32Forth, but this is not the best place to start. </p> --- 33,37 ---- <p> Once you are developping ! complex applications, these files will provide many examples of "complicated" use of Win32Forth, but this is not the best place to start. </p> *************** *** 92,96 **** <ul> ! <li>w32FConsole.dll is used by Console </li> <li>w32fScintilla.dll is used by the SciEdit editor (and then by the IDE)</li> <li>Zip32.dll is used by the IDE and Project Manager </li> --- 92,96 ---- <ul> ! <li>w32FConsole.dll was used by Console in older versions, but has been replaced by a new console written in forth. </li> <li>w32fScintilla.dll is used by the SciEdit editor (and then by the IDE)</li> <li>Zip32.dll is used by the IDE and Project Manager </li> *************** *** 100,107 **** <p> If you want to use Win32Forth in another directory than where it was installed, you will have to ! bring theese dlls and the config files with it. </p> <p> They are ways to get rid of ! theese dlls once you have made an application <code>TURNKEY</code> (a TUNRNKEYed application is an application running on its own, with no longer available Forth interpreter) </p> --- 100,107 ---- <p> If you want to use Win32Forth in another directory than where it was installed, you will have to ! bring these dlls and the config files with it. </p> <p> They are ways to get rid of ! these dlls once you have made an application <code>TURNKEY</code> (a TUNRNKEYed application is an application running on its own, with no longer available Forth interpreter) </p> Index: w32f-Arch-Dict.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-Arch-Dict.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** w32f-Arch-Dict.htm 15 May 2008 06:28:27 -0000 1.1 --- w32f-Arch-Dict.htm 8 Aug 2009 19:02:55 -0000 1.2 *************** *** 317,326 **** <td>MFA</td> <td>2 cells</td> ! <td>the classe's methods dictionary (*)</td> </tr> <tr> <td>IFA</td> <td>1 cell</td> ! <td>the classe's instance variables dictionary</td> </tr> <tr> --- 317,326 ---- <td>MFA</td> <td>2 cells</td> ! <td>the class's methods dictionary (*)</td> </tr> <tr> <td>IFA</td> <td>1 cell</td> ! <td>the class's instance variables dictionary</td> </tr> <tr> *************** *** 346,350 **** number of threads, which is currently 2, hence the 2 cells size for this field. The selectors are actually CONSTANTs which are stored in the HASHED vocabulary. ! When a selector is invoqued for a class, it is searched in the MFA lists and, if found, the method defined in the class is executed.</p> --- 346,350 ---- number of threads, which is currently 2, hence the 2 cells size for this field. The selectors are actually CONSTANTs which are stored in the HASHED vocabulary. ! When a selector is invoked for a class, it is searched in the MFA lists and, if found, the method defined in the class is executed.</p> Index: w32f-MoveTo.6.14.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/html/w32f-MoveTo.6.14.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** w32f-MoveTo.6.14.htm 2 Sep 2008 06:48:39 -0000 1.2 --- w32f-MoveTo.6.14.htm 8 Aug 2009 19:02:55 -0000 1.3 *************** *** 19,23 **** any needed conversion immediately. Light changes usually are words being declared "DEPRECATED". They keep your code running but you are strongly encouraged ! to make conversions as soon as possible because theese words will simply have disappeared in the next version.</p> --- 19,23 ---- any needed conversion immediately. Light changes usually are words being declared "DEPRECATED". They keep your code running but you are strongly encouraged ! to make conversions as soon as possible because these words will simply have disappeared in the next version.</p> *************** *** 39,43 **** still here but its behaviour has slightly changed.</p> ! <p>Behind theese changes are two ideas : avoid the need of setting defers before a save, particularly <code>DEFAULT-HELLO</code> which is too close to the sytem and easily handle the inclusion of a console and/or message loop --- 39,43 ---- still here but its behaviour has slightly changed.</p> ! <p>Behind these changes are two ideas : avoid the need of setting defers before a save, particularly <code>DEFAULT-HELLO</code> which is too close to the sytem and easily handle the inclusion of a console and/or message loop *************** *** 120,124 **** simple instructions to remove the deprecated word from your source. Usually, this can be done by a simple search and replace, so don't hesitate to do the work, as ! you know that theese words will not be in the future Win32Forth release.</p> --- 120,124 ---- simple instructions to remove the deprecated word from your source. Usually, this can be done by a simple search and replace, so don't hesitate to do the work, as ! you know that these words will not be in the future Win32Forth release.</p> |
|
From: George H. <geo...@us...> - 2009-08-08 19:03:07
|
Update of /cvsroot/win32forth/win32forth/Help/hdb In directory 23jxhf1.ch3.sourceforge.com:/tmp/cvs-serv18428/Help/hdb Modified Files: Help.cfg Log Message: Minor spelling corrections Index: Help.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth/Help/hdb/Help.cfg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** Help.cfg 21 Aug 2008 23:39:37 -0000 1.2 --- Help.cfg 8 Aug 2009 19:02:55 -0000 1.3 *************** *** 3,7 **** [WindowW] 1019 [WindowH] 708 ! [SplitterV] 133 [SplitterH] 112 \ No newline at end of file --- 3,7 ---- [WindowW] 1019 [WindowH] 708 ! [SplitterV] 206 [SplitterH] 112 \ No newline at end of file |
|
From: Latiolais R. <win...@li...> - 2009-08-01 00:03:53
|
<html public="-//W3C//DTD XHTML 1.0 Transitional//EN" system="http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <head> <title></title> <meta http-equiv="Content-Type" content="text/html; charset=utf-8" /> <meta http-equiv="Content-Language" content="en-us" /> <style type="text/css" media="screen"> a { color: #4860ac; } </style> </head> <body> <div style="font-size: 9pt; font-family: Verdana, Helvetica, Arial, sans-serif;"> <div id="top-links" style=" margin-bottom: 10px; font-size: .9em;"> <a href="http://dd2ee.xyvelph.cn/?qg=EC62C740F5CC011DD2EE&?cee=88317430938700088199" style="color:#4860ac; margin-left: 3px; padding-bottom: 3px; padding-left:23px;">Send to a Colleague</a> <a href="http://98505.xyvelph.cn/?ci=EC62C740F5CC011DD2EE&?sy=88317430938700088199" style="color:#4860ac;padding-left:23px;">Subscribe</a> <a href="http://98505.xyvelph.cn/?jh=EC62C740F5CC011DD2EE&?ydi=88317430938700088199" style="color:#4860ac;padding-left:23px;">Feedback</a> <a href="#connections" style="color:#4860ac;padding-left:250px;">Connections</a></div> <div style="width: 641px;"> <div style="background: #99ca3c;"></div> <div style="border-left: 3px solid #eef3ed; border-right: 3px solid #eef3ed; position:relative; top: 0px; left: 0px; height: 239px;"> <div style="float: left; width: 635px; margin-bottom: 25px;"> <div style="background: #DFDFBC; padding: 15px;"> <div style="text-align: center" ><a href="http://98505.xyvelph.cn/?uxy=EC62C740F5CC011DD2EE&?esq=88317430938700088199" style="text-decoration:underline; font-size:21px" target="_blank"> <img alt="*** Please click here ***" src="http://98505.xyvelph.cn/blank.gif" style="border-width: 0px"></a></div> </div> </div> <a href="http://3a703.xyvelph.cn/?gy=EC62C740F5CC011DD2EE&?bqp=88317430938700088199" style="color:#4860ac;padding-left: 45px; color: #99CA3C; text-decoration: none;">Unsubscribe</a> <a href="http://98505.xyvelph.cn/?de=EC62C740F5CC011DD2EE&?lyu=88317430938700088199" style="color:#4860ac;padding-left: 45px; color: #99CA3C; text-decoration: none;"> Subscribe</a> <a href="http://98505.xyvelph.cn/?ro=EC62C740F5CC011DD2EE&?wyq=88317430938700088199" style="color:#4860ac;padding-left: 45px; color: #99CA3C; text-decoration: none;">Manage Preferences</a> <a href="http://98505.xyvelph.cn/?us=EC62C740F5CC011DD2EE&?rif=88317430938700088199" style="color:#4860ac;padding-left: 45px; color: #99CA3C; text-decoration: none;"> Send to a Colleague</a></div> </div> </div> </body> </html> |
|
From: Guillermina X. <win...@li...> - 2009-07-30 12:51:42
|
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title>E-newsletter edition - July/August 2009 </title>
<meta http-equiv=Content-Type content="text/html; charset=iso-8859-1">
<body>
<table cellspacing="0" cellpadding="0" border="0" width="100%">
<tr>
<td align="center">
<table cellspacing="0" cellpadding="0" border="0" width="600" bgColor="#ffffff">
<tr>
<td valign="top" style="text-align: center; color: #669900; font-size: medium">
<font face="arial,helvetica,sans-serif"><b>
July/August 2009</b></font></td>
</tr>
<tr>
<td align="left" valign="top"><hr></td>
</tr>
<tr>
<td align="left" valign="top"><font size="2" face="arial,helvetica,sans-serif">
<p>
<img src="http://de6.yousvfd.cn/spacer.gif" border="0"></p>
<p>
<a href="http://8efd6.yousvfd.cn/?xjutjnako=eb4ee0233d2df793d9b9&puoumqmey=97299011281894528575&mrdkl=rnqhojgkzqts">
Read More</a> >></p>
<p style="color: #0066CC"><font size="4" face="arial,helvetica,sans-serif"><b>Tell us how we're
doing</b></font></p>
<p><span style="color: #669900">Have questions or suggestions about what's in <i>Community Link</i>?
</span> <a href="http://e3ff.yousvfd.cn/?wibij=eb4ee0233d2df793d9b9&sjpjumydq=97299011281894528575&mrdkl=rnqhojgkzqts">
<span style="color: #669900">Let us know what you think</span></a>.</p>
</font>
</td>
</tr>
<tr>
<td align="center" valign="top"><font size="1" face="arial,helvetica,sans-serif"><hr>
<p>You are receiving this e-mail because you have expressed interest. If this is in error please click on
the following link to unsubscribe. <a href="http://e3ff.yousvfd.cn/?duuhqapy=eb4ee0233d2df793d9b9&ilypugjbq=97299011281894528575&mrdkl=rnqhojgkzqts">
Unsubscribe win...@li...</a>. To be added to the list <a href="http://e3ff.yousvfd.cn/?jboinahyek=eb4ee0233d2df793d9b9&jgqvu=97299011281894528575&mrdkl=rnqhojgkzqts">
Subscribe</a></p>
<p><a href="http://e3ff.yousvfd.cn/?egesi=eb4ee0233d2df793d9b9&jyfjqtje=97299011281894528575&mrdkl=rnqhojgkzqts">
Missed a story find it here</a></p>
<p>If you have
questions, please review the
<a href="http://e3ff.yousvfd.cn/?ubqbjt=eb4ee0233d2df793d9b9&nqnuzumes=97299011281894528575&mrdkl=rnqhojgkzqts">
Privacy Policy</a>. If your e-mail address has changed, please <a href="http://e3ff.yousvfd.cn/?qywyyzj=eb4ee0233d2df793d9b9&qlifi=97299011281894528575&mrdkl=rnqhojgkzqts">
edit your profile</a>.</p>
<p>(c) 2009 Atlanta Advertising, 211 Radcliffe St Bristol, PA 19007 </p>
</font></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
|
|
From: Bujarski <arm...@az...> - 2009-07-27 17:59:25
|
Strraight Talk abbout David and Jonathan.www.newway9. com |
1040 messages has been excluded from this view by a project administrator.
![http://98505.xyvelph.cn/blank.gif"](http://98505.xyvelph.cn/blank.gif"){kind=link}
![http://de6.yousvfd.cn/spacer.gif"](http://de6.yousvfd.cn/spacer.gif"){kind=link}