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...> - 2006-02-20 12:06:23
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4132/win32forth/src Modified Files: Debug.f FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: Debug.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/Debug.f,v retrieving revision 1.10 retrieving revision 1.11 diff -C2 -d -r1.10 -r1.11 *** Debug.f 29 Aug 2005 15:56:27 -0000 1.10 --- Debug.f 20 Feb 2006 12:06:14 -0000 1.11 *************** *** 73,80 **** & dup 0= UNTIL ; ! : <& ( n -- 0 n ) 0 swap ; ! : &> drop ; --- 73,80 ---- & dup 0= UNTIL ; ! : <& ( n -- 0 n ) 0 swap ; ! : &> drop ; *************** *** 118,122 **** THEN drop ; ! \ -------------------- Variables -------------------- --- 118,122 ---- THEN drop ; ! \ -------------------- Variables -------------------- *************** *** 155,159 **** : m0cfa? ( cfa -- f ) @ m0cfa = ; ! : unnest? ( cfa -- f ) @ dup ['] unnest = --- 155,159 ---- : m0cfa? ( cfa -- f ) @ m0cfa = ; ! : unnest? ( cfa -- f ) @ dup ['] unnest = *************** *** 198,202 **** ['] leave of drop rp@ 5 cells+ @ ENDOF ['] ?leave of over ! if drop rp@ 5 cells+ @ else cell+ then ENDOF ['] ?BRANCH OF OVER 0= ?JUMP ENDOF --- 198,202 ---- ['] leave of drop rp@ 5 cells+ @ ENDOF ['] ?leave of over ! if drop rp@ 5 cells+ @ else cell+ then ENDOF ['] ?BRANCH OF OVER 0= ?JUMP ENDOF *************** *** 294,298 **** 1 nesting +! else dup does>? \ does> definitions ! if ." DOES> nesting " @ 3 + @ dup \ offset to vector to high level code is implementation dependent ?name cfa-watch --- 294,298 ---- 1 nesting +! else dup does>? \ does> definitions ! if ." DOES> nesting " @ 3 + @ dup \ offset to vector to high level code is implementation dependent ?name cfa-watch *************** *** 369,373 **** if i @ here u< if dup >name nfa-count type ! i @ swap >body - cell / 1- ." +" %. else h%. --- 369,373 ---- if i @ here u< if dup >name nfa-count type ! i @ swap >body - cell / 1- ." +" %. else h%. *************** *** 546,550 **** ." ]" THEN ! r> to obj-save 20 nesting @ ?dup if 1+ - then getxy drop max col --- 546,550 ---- ." ]" THEN ! r> to obj-save 20 nesting @ ?dup if 1+ - then getxy drop max col *************** *** 602,606 **** restore-io debug-exit ! [ last @ name> ] literal patch ; \ patch in trace ' trace to 'trace --- 602,606 ---- restore-io debug-exit ! [ last @ name> ] literal patch ; \ patch in trace ' trace to 'trace *************** *** 613,617 **** \ ------ Added for SEE; replaces TRACE with the traced word --- ! .execution-class-chain : .debug-trace ( ip cfa flag -- ip' cfa flag ) dup ?EXIT \ leave if non-zero flag --- 613,619 ---- \ ------ Added for SEE; replaces TRACE with the traced word --- ! ! [defined] .execution-class-chain [if] ! : .debug-trace ( ip cfa flag -- ip' cfa flag ) dup ?EXIT \ leave if non-zero flag *************** *** 623,626 **** --- 625,630 ---- .execution-class-chain chain-add .debug-trace + [then] + \ -------------------- Initialize Debugger -------------------- *************** *** 688,704 **** then until tracing ; ! : debug ( -<name>- ) ' adebug ; synonym bp debug ! \ see also mDebug for methods IN-APPLICATION ! : debug-io TURNKEYED? ?EXIT ! \IN-SYSTEM-OK debug-io ; ! : restore-io TURNKEYED? ?EXIT \IN-SYSTEM-OK restore-io --- 692,708 ---- then until tracing ; ! : debug ( -<name>- ) ' adebug ; synonym bp debug ! \ see also mDebug for methods IN-APPLICATION ! : debug-io TURNKEYED? ?EXIT ! \IN-SYSTEM-OK debug-io ; ! : restore-io TURNKEYED? ?EXIT \IN-SYSTEM-OK restore-io *************** *** 715,719 **** else dbg-watch then ; ! : ?unbug ( nfa -- nfa ) \ If word being debugged is being forgotten unbug dup ip @ trim? if unbug then ; --- 719,723 ---- else dbg-watch then ; ! : ?unbug ( nfa -- nfa ) \ If word being debugged is being forgotten unbug dup ip @ trim? if unbug then ; Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** FLOAT.F 13 Feb 2006 14:02:19 -0000 1.37 --- FLOAT.F 20 Feb 2006 12:06:14 -0000 1.38 *************** *** 57,60 **** --- 57,82 ---- \ *S Glossary + \ *W <ul><li><a href="#Sec#1">Loading and saving FPU registers</a></li> + \ *W <li><a href="#Sec#2">Memory Access</a></li> + \ *W <li><a href="#Sec#3">FP Stack operations</a></li> + \ *W <li><a href="#Sec#4">FP Stack operations on pairs of entries</a></li> + \ *W <li><a href="#Sec#5">FP Constants</a></li> + \ *W <li><a href="#Sec#6">FP Variables</a></li> + \ *W <li><a href="#Sec#7">Rounding functions</a></li> + \ *W <li><a href="#Sec#8">Integer to float conversion</a></li> + \ *W <li><a href="#Sec#9">FP Comparison operators</a></li> + \ *W <li><a href="#Sec#10">Arithmetic operators</a></li> + \ *W <li><a href="#Sec#11">Trigonometric functions/a></li> + \ *W <li><a href="#Sec#12">Inverse Trigonometric functions</a></li> + \ *W <li><a href="#Sec#13">Logarithmic functions</a></li> + \ *W <li><a href="#Sec#14">Exponential functions</a></li> + \ *W <li><a href="#Sec#15">Hyperbolic functions</a></li> + \ *W <li><a href="#Sec#16">Inverse hyperbolic functions</a></li> + \ *W <li><a href="#Sec#17">Input of Floating Point numbers</a></li> + \ *W <li><a href="#Sec#18">Output conversion</a></li> + \ *W <li><a href="#Sec#19">Format FP number to a buffer</a></li> + \ *W <li><a href="#Sec#20">Display FP numbers</a></li> + \ *W <li><a href="#Sec#21">Debugging tools</a></li></ul> + cr .( Loading Floating Point...) *************** *** 66,69 **** --- 88,92 ---- in-application + \ *W <a name="Sec#1"></a> \ *N Loading and saving FPU registers *************** *** 337,340 **** --- 360,364 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ *W <a name="Sec#2"></a> \ *N Memory Access *************** *** 508,512 **** float; DEPRECATED ! \ *N Stack operations code FDROP ( fs: r -- ) \ ANSI Floating --- 532,537 ---- float; DEPRECATED ! \ *W <a name="Sec#3"></a> ! \ *N FP Stack operations code FDROP ( fs: r -- ) \ ANSI Floating *************** *** 583,586 **** --- 608,612 ---- FSWAP FDROP ; + \ *W <a name="Sec#4"></a> \ *N FP Stack operations on pairs of entries *************** *** 613,617 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ *N Constants code fpi ( fs: -- r ) \ W32F Floating extra --- 639,644 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ *W <a name="Sec#5"></a> ! \ *N FP Constants code fpi ( fs: -- r ) \ W32F Floating extra *************** *** 718,722 **** ' fsmall >body 0 over ! 0x00100000 swap cell+ ! ! \ *N Variables fvariable a2**63 ( -- addr ) \ W32F Floating extra --- 745,750 ---- ' fsmall >body 0 over ! 0x00100000 swap cell+ ! ! \ *W <a name="Sec#6"></a> ! \ *N FP Variables fvariable a2**63 ( -- addr ) \ W32F Floating extra *************** *** 736,739 **** --- 764,769 ---- [THEN] + \ *W <a name="Sec#7"></a> + \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ *N Rounding functions *************** *** 815,818 **** --- 845,849 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ *W <a name="Sec#8"></a> \ *N Integer to float conversion *************** *** 937,941 **** external ! \ *N Comparison operators : F0= ( -- f ; fs: r -- ) \ ANSI Floating --- 968,973 ---- external ! \ *W <a name="Sec#9"></a> ! \ *N FP Comparison operators : F0= ( -- f ; fs: r -- ) \ ANSI Floating *************** *** 982,985 **** --- 1014,1018 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ + \ *W <a name="Sec#10"></a> \ *N Arithmetic operators *************** *** 1147,1150 **** --- 1180,1184 ---- external + \ *W <a name="Sec#11"></a> \ *N Trigonometric functions *************** *** 1166,1169 **** --- 1200,1204 ---- fsincos f/ ; + \ *W <a name="Sec#12"></a> \ *N Inverse Trigonometric functions *************** *** 1222,1225 **** --- 1257,1261 ---- float; + \ *W <a name="Sec#13"></a> \ *N Logarithmic functions *************** *** 1274,1277 **** --- 1310,1314 ---- float; + \ *W <a name="Sec#14"></a> \ *N Exponential functions *************** *** 1279,1283 **** \ *G Raise e to the power r1, giving r2. fstack-check_1 ! >FPU \ 1 fxam fstsw ax --- 1316,1322 ---- \ *G Raise e to the power r1, giving r2. fstack-check_1 ! >FPU \ 1 ! fldl2e \ log base 2 of e \ 2 ! fmulp st(1), st \ modified exponent \ 1 fxam fstsw ax *************** *** 1290,1307 **** fldz jmp short L$2 ! L$1: fldl2e \ log base 2 of e \ 2 ! fmulp st(1), st \ modified exponent \ 1 ! fld st(0) \ duplicate exponent \ 2 ! frndint \ take integer part \ 2 ! fsub st(1), st \ get fractional part \ 2 ! fld1 \ 3 ! fscale \ 2**int \ 3 ! fstp st(1) \ remove unneeded part \ 2 ! fxch st(1) \ frac \ 2 ! f2xm1 \ (2**frac) - 1 \ 2 ! fld1 \ 1.0 \ 3 ! faddp st(1), st \ 2**frac \ 2 ! fmulp st(1), st \ 2**(int + frac) \ 1 ! L$2: FPU> \ 0 float; --- 1329,1343 ---- fldz jmp short L$2 ! L$1: fld st(0) \ duplicate exponent \ 2 ! frndint \ take integer part \ 2 ! fsub st(1), st \ get fractional part \ 2 ! fld1 \ 1 \ 3 ! fscale \ 2**int \ 3 ! fstp st(1) \ remove unneeded part \ 2 ! fxch st(1) \ frac \ 2 ! f2xm1 \ (2**frac) - 1 \ 2 ! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2 ! faddp st(1), st \ 2**(int + frac) \ 1 ! L$2: FPU> \ 0 float; *************** *** 1314,1364 **** fstack-check_1 >fpu ! fxam fstsw ax and ax, # FPU_STATUS_CCF_MASK cmp ax, # FPU_STATUS_CCF_INFINITY ! je short L$6 cmp ax, # 0x700 \ FPU_STATUS_CCF_INFINITY FPU_STATUS_CCF_MASK_1 or ! jne short L$1 fstp st(0) fld1 fchs ! jmp short L$6 ! L$1: fldl2e ! fxch ! fld1 ! fcom st(1) ! fstsw ax ! sahf ! jbe short L$4 ! fchs ! fcomp st(1) ! fstsw ax ! sahf ! jnc short L$5 ! je short L$5 ! fmulp st(1), st(0) ! f2xm1 ! jmp short L$6 ! L$4: fstp st(0) \ 2 ! L$5: fmulp st(1), st(0) \ 1 ! fld st(0) \ duplicate exponent \ 2 ! jp short L$3 ! frndint \ take integer part \ 2 ! fsub st(1), st \ get fractional part \ 2 ! fld1 \ 3 ! fscale \ 2**int \ 3 ! fstp st(1) \ remove unneeded part \ 2 ! fxch st(1) \ frac \ 2 ! f2xm1 \ (2**frac) - 1 \ 2 ! fld1 \ 1.0 \ 3 ! faddp st(1), st \ 2**frac \ 2 ! fmulp st(1), st \ 2**(int + frac) \ 1 fld1 ! fsubp st(1), st \ Should be fsubrp ??????? ! L$6: fpu> ! jmp short L$2 ! L$3: fstp st(1) ! L$2: float; : f** ( fs: r1 r2 -- r3 ) \ ANSI Floating ext --- 1350,1394 ---- fstack-check_1 >fpu ! fldl2e \ 2 ! fmulp st(1), st(0) \ 1 ! fld1 \ 2 ! fcom st(1) \ 2 ! fstsw ax \ 2 ! sahf \ 2 ! jbe short L$1 \ arg > 1 \ 2 ! fchs \ 2 ! fcomp st(1) \ 1 ! fstsw ax \ 1 ! sahf \ 1 ! jnc short L$2 \ arg <= -1 \ 1 ! je short L$4 \ is NAN \ 1 ! f2xm1 \ 1 ! jmp short L$4 ! L$1: fstp st(0) \ 1 ! L$2: fxam fstsw ax and ax, # FPU_STATUS_CCF_MASK cmp ax, # FPU_STATUS_CCF_INFINITY ! je short L$4 cmp ax, # 0x700 \ FPU_STATUS_CCF_INFINITY FPU_STATUS_CCF_MASK_1 or ! jne short L$3 fstp st(0) fld1 fchs ! jmp short L$4 ! fld st(0) \ duplicate exponent \ 2 ! L$3: frndint \ take integer part \ 2 ! fsub st(1), st \ get fractional part \ 2 ! fld1 \ 3 ! fscale \ 2**int \ 3 ! fstp st(1) \ remove unneeded part \ 2 ! fxch st(1) \ frac \ 2 ! f2xm1 \ (2**frac) - 1 \ 2 ! fmul st(0), st(1) \ 2**(int + frac) - 2**int \ 2 ! faddp st(1), st \ 2**(int + frac) \ 1 fld1 ! fsubp st(1), st ! L$4: fpu> ! float; : f** ( fs: r1 r2 -- r3 ) \ ANSI Floating ext *************** *** 1382,1385 **** --- 1412,1416 ---- external + \ *W <a name="Sec#15"></a> \ *N Hyperbolic functions *************** *** 1406,1409 **** --- 1437,1441 ---- THEN ; + \ *W <a name="Sec#16"></a> \ *N Inverse hyperbolic functions *************** *** 1576,1590 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Floating point number conversion. We do not have the floating point ! \ integrated with the interpreter, so we must prefix floating point ! \ literals with f#. ( f# 1.23E6 ) \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ internal fvariable ftemp 128 newuser $ftemp create $ftemp1 128 allot - 10 newuser fbcd-buf : 10**n ( fs: -- r ) ( n -- ) \ 10 raised to n --- 1608,1644 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ string input number conversion \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ internal + : xsign ( char -- char false | nflag true ) + CASE [char] + OF false true ENDOF + [char] - OF true true ENDOF + ( else ) false over + ENDCASE ; + + : e-char ( char -- true | char false ) + dup upc [char] D [char] E between -if nip then ; + + : 10digit ( char -- n flag ) + 10 digit ; + + : digit0 ( char -- flag ) + dup [char] 0 = ; + + cell newuser mantsign + cell newuser expsign + cell newuser intcnt + cell newuser fracnt + cell newuser expcnt + cell newuser charcnt + cell newuser zerochar + cell newuser havedigits + 128 newuser $fsignif + 10 newuser fbcd-buf fvariable ftemp 128 newuser $ftemp create $ftemp1 128 allot : 10**n ( fs: -- r ) ( n -- ) \ 10 raised to n *************** *** 1608,1619 **** ascii 0 + ; - : bcd-char! ( char n -- ) - swap 0x0f and swap - dup 1 and swap 2/ fbcd-buf + swap - IF dup c@ 0x0f and rot 4 lshift - ELSE dup c@ 0xf0 and rot - THEN - or swap c! ; - B/FLOAT 10 = [IF] 4932 constant big-power --- 1662,1665 ---- *************** *** 1631,1726 **** THEN ; - : rep-normal ( addr u -- n true ; fs: r -- ) - 1 max 2dup [char] 0 fill 18 umin - fdup flog floor f>s 1+ dup>r over - - fdup over 10**n-0.5 f< - IF negate f*10**n - ELSE 10**n f/ - THEN - fround fdup dup 10**n f< - IF fdup dup 1- 10**n f< - IF f10.0 f* r> 1- >r - THEN - ELSE f10.0 f/ r> 1+ >r - THEN - fbcd-buf f>bcd dup>r + 1- r> 0 - DO I bcd-char@ over c! 1- - LOOP - drop r> true - ; - - ' rep-normal alias rep-denormal ( addr u -- n true ; fs: r -- ) - - \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to - \ correct for a floating point zero left on the stack during E. and F.S - : rep-zero ( addr u -- 1 true ; fs: r -- ) - [char] 0 fill 1 true fdrop ; - - : rep-spec ( addr u cstr -- n false ; fs: r -- ) - >r 2dup blank r> count \ addr1 u addr2 v - rot umin >r swap r> move - 0x7fffffff false fdrop ; - - external - - : REPRESENT ( addr u -- n flag1 flag2 ; fs: r -- ) \ ANSI Floating - \ *G At c-addr, place the character-string external representation of the significand of - \ ** the floating-point number r. Return the decimal-base exponent as n, the sign as flag1 - \ ** and valid result as flag2. The character string shall consist of the u most significant - \ ** digits of the significand represented as a decimal fraction with the implied decimal - \ ** point to the left of the first digit, and the first digit zero only if all digits - \ ** are zero. The significand is rounded to u digits following the round to nearest - \ ** rule; n is adjusted, if necessary, to correspond to the rounded magnitude of the - \ ** significand. If flag2 is true then r was in the implementation-defined range of - \ ** floating-point numbers. If flag1 is true then r is negative. \n - \ ** An ambiguous condition exists if the value of BASE is not decimal ten. \n - \ ** When flag2 is false, n is 7FFFFFFF and flag1 is the sign. The contents of c-addr are - \ ** the first u characters of either NAN or Infinity, padded with spaces if necessary. - fexam \ get type of operand - dup FPU_STATUS_CCF_MASK_1 and 0<> >r \ save sign = flag1 - fabs - FPU_STATUS_CCF_MASK_023 and \ clear C1 - CASE FPU_STATUS_CCF_UNSUPPORTED OF c" Unsupported" rep-spec ENDOF - FPU_STATUS_CCF_NAN OF c" NAN" rep-spec ENDOF - FPU_STATUS_CCF_NORMAL OF rep-normal ENDOF - FPU_STATUS_CCF_INFINITY OF c" Infinity" rep-spec ENDOF - FPU_STATUS_CCF_ZERO OF rep-zero ENDOF - FPU_STATUS_CCF_EMPTY OF c" Empty" rep-spec ENDOF - FPU_STATUS_CCF_DENORMAL OF rep-denormal ENDOF - ( else ) c" Unknown" rep-spec - ENDCASE - r> swap ; - - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ string input number conversion - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - internal - - : xsign ( char -- char false | nflag true ) - CASE [char] + OF false true ENDOF - [char] - OF true true ENDOF - ( else ) false over - ENDCASE ; - - : e-char ( char -- true | char false ) - dup upc [char] D [char] E between -if nip then ; - - : 10digit ( char -- n flag ) - 10 digit ; - - : digit0 ( char -- flag ) - dup [char] 0 = ; - - cell newuser mantsign - cell newuser expsign - cell newuser intcnt - cell newuser fracnt - cell newuser expcnt - cell newuser charcnt - cell newuser zerochar - cell newuser havedigits - 128 newuser $fsignif - : next-char ( addr1 -- addr2 char flag ) \ flag = 0 means valid char count -1 charcnt +! charcnt @ 0< ; --- 1677,1680 ---- *************** *** 1731,1734 **** --- 1685,1696 ---- float; + : bcd-char! ( char n -- ) + swap 0x0f and swap + dup 1 and swap 2/ fbcd-buf + swap + IF dup c@ 0x0f and rot 4 lshift + ELSE dup c@ 0xf0 and rot + THEN + or swap c! ; + : >float-int ( fs: -- r ) intcnt @ 18 min dup 1- swap 0 *************** *** 1784,1787 **** --- 1746,1750 ---- external + \ *W <a name="Sec#17"></a> \ *N Input of Floating Point numbers *************** *** 1965,1969 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ *N Output conversion. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 1928,2004 ---- \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Floating point number conversion. We do not have the floating point ! \ integrated with the interpreter, so we must prefix floating point ! \ literals with f#. ( f# 1.23E6 ) ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! ! internal ! ! : rep-normal ( addr u -- n true ; fs: r -- ) ! 1 max 2dup [char] 0 fill 18 umin ! fdup flog floor f>s 1+ dup>r over - ! fdup over 10**n-0.5 f< ! IF negate f*10**n ! ELSE 10**n f/ ! THEN ! fround fdup dup 10**n f< ! IF fdup dup 1- 10**n f< ! IF f10.0 f* r> 1- >r ! THEN ! ELSE f10.0 f/ r> 1+ >r ! THEN ! fbcd-buf f>bcd dup>r + 1- r> 0 ! DO I bcd-char@ over c! 1- ! LOOP ! drop r> true ! ; ! ! ' rep-normal alias rep-denormal ( addr u -- n true ; fs: r -- ) ! ! \ February 6th, 1996 - 18:05 tjz added 'FDROP' to the following def to ! \ correct for a floating point zero left on the stack during E. and F.S ! : rep-zero ( addr u -- 1 true ; fs: r -- ) ! [char] 0 fill 1 true fdrop ; ! ! : rep-spec ( addr u cstr -- n false ; fs: r -- ) ! >r 2dup blank r> count \ addr1 u addr2 v ! rot umin >r swap r> move ! 0x7fffffff false fdrop ; ! ! external ! ! \ *W <a name="Sec#18"></a> ! \ *N Output conversion ! ! : REPRESENT ( addr u -- n flag1 flag2 ; fs: r -- ) \ ANSI Floating ! \ *G At c-addr, place the character-string external representation of the significand of ! \ ** the floating-point number r. Return the decimal-base exponent as n, the sign as flag1 ! \ ** and valid result as flag2. The character string shall consist of the u most significant ! \ ** digits of the significand represented as a decimal fraction with the implied decimal ! \ ** point to the left of the first digit, and the first digit zero only if all digits ! \ ** are zero. The significand is rounded to u digits following the round to nearest ! \ ** rule; n is adjusted, if necessary, to correspond to the rounded magnitude of the ! \ ** significand. If flag2 is true then r was in the implementation-defined range of ! \ ** floating-point numbers. If flag1 is true then r is negative. \n ! \ ** An ambiguous condition exists if the value of BASE is not decimal ten. \n ! \ ** When flag2 is false, n is 7FFFFFFF and flag1 is the sign. The contents of c-addr are ! \ ** the first u characters of either NAN or Infinity, padded with spaces if necessary. ! fexam \ get type of operand ! dup FPU_STATUS_CCF_MASK_1 and 0<> >r \ save sign = flag1 ! fabs ! FPU_STATUS_CCF_MASK_023 and \ clear C1 ! CASE FPU_STATUS_CCF_UNSUPPORTED OF c" Unsupported" rep-spec ENDOF ! FPU_STATUS_CCF_NAN OF c" NAN" rep-spec ENDOF ! FPU_STATUS_CCF_NORMAL OF rep-normal ENDOF ! FPU_STATUS_CCF_INFINITY OF c" Infinity" rep-spec ENDOF ! FPU_STATUS_CCF_ZERO OF rep-zero ENDOF ! FPU_STATUS_CCF_EMPTY OF c" Empty" rep-spec ENDOF ! FPU_STATUS_CCF_DENORMAL OF rep-denormal ENDOF ! ( else ) c" Unknown" rep-spec ! ENDCASE ! r> swap ; ! ! \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ! \ Output conversion. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 2002,2005 **** --- 2037,2041 ---- external + \ *W <a name="Sec#19"></a> \ *N Format FP number to a buffer *************** *** 2064,2069 **** base @ >r decimal (.) $buf +PLACE r> base ! ; ! : (E.) ( addr -- ; fs: r -- ) \ W32F Floating extra ! \ *G Format r as a string in scientific notation. { $buf \ -- } $buf off --- 2100,2109 ---- base @ >r decimal (.) $buf +PLACE r> base ! ; ! : (FS.) ( addr -- ; fs: r -- ) \ W32F Floating extra ! \ *G Format r as a string in scientific notation: ! \ *E <significand><exponent> ! \ *P where: ! \ *E <significand> := [-]<digit>.<digits0> ! \ ** <exponent> := E[-]<digits> { $buf \ -- } $buf off *************** *** 2080,2083 **** --- 2120,2126 ---- base @ >r decimal (.) $buf +PLACE r> base ! ; + SYNONYM (E.) (FS.) ( addr -- ; fs: r -- ) \ W32F Floating extra + \ *G See above. + : (G.) ( addr -- ; fs: r -- ) \ W32F Floating extra \ *G Format r as a string using scientific notation or ordinary representation according *************** *** 2093,2099 **** THEN ; - SYNONYM (FS.) (E.) ( addr -- ; fs: r -- ) \ W32F Floating extra - \ *G Format r as a string in scientific notation. - \ ----------------------------------------------------------------------------- \ display floating point numbers --- 2136,2139 ---- *************** *** 2114,2131 **** external ! : F. ( fs: r -- ) \ display fp # ['] (f.) (fp.) ; ! : FE. ( fs: r -- ) \ display fp # in engineering notation ['] (fe.) (fp.) ; ! : E. ( fs: r -- ) \ display fp # in scientific notation ! ['] (e.) (fp.) ; ! ! : G. ( fs: r -- ) \ display fp # ! ['] (g.) (fp.) ; ! SYNONYM FS. E. ( fs: r -- ) \ display fp # in scientific notation \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 2154,2188 ---- external ! \ *W <a name="Sec#20"></a> ! \ *N Display FP numbers ! ! : F. ( fs: r -- ) \ ANSI Floating ext ! \ *G Display, with a trailing space, the top number on the floating-point stack using ! \ ** fixed-point notation: ! \ *E [-] <digits>.<digits0> ['] (f.) (fp.) ; ! : FE. ( fs: r -- ) \ ANSI Floating ext ! \ *G Display, with a trailing space, the top number on the floating-point stack using ! \ ** engineering notation, where the significand is greater than or equal to 1.0 and less ! \ ** than 1000.0 and the decimal exponent is a multiple of three. ['] (fe.) (fp.) ; ! : FS. ( fs: r -- ) \ ANSI Floating ext ! \ *G Display, with a trailing space, the top number on the floating-point stack in ! \ ** scientific notation: ! \ *E <significand><exponent> ! \ *P where: ! \ *E <significand> := [-]<digit>.<digits0> ! \ ** <exponent> := E[-]<digits> ! ['] (fs.) (fp.) ; ! SYNONYM E. FS. ( fs: r -- ) \ W32F Floating extra ! \ *G See above. + : G. ( fs: r -- ) \ W32F Floating extra + \ *G Display the top number on the floating-point stack using scientific notation or + \ ** ordinary representation according to the size of r. + ['] (g.) (fp.) ; \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ *************** *** 2176,2179 **** --- 2233,2237 ---- \ \****************************************************************** + \ *W <a name="Sec#21"></a> \ *N Debugging tools *************** *** 2316,2320 **** : .onefloat ( -- r1 ) ! f# 0 g. ; : see.float ( a1 -- a2 ) --- 2374,2378 ---- : .onefloat ( -- r1 ) ! f0.0 g. ; : see.float ( a1 -- a2 ) *************** *** 2354,2358 **** \ changed to use the reset-stack-chain \ January 22nd, 2004 - 13:53 dbu ! ' finit alias FLOAT-RESET-STACKS ( ?? -- ) \ reset stack reset-stack-chain chain-add FLOAT-RESET-STACKS --- 2412,2418 ---- \ changed to use the reset-stack-chain \ January 22nd, 2004 - 13:53 dbu ! : FLOAT-RESET-STACKS ( ?? -- ) \ reset stack ! finit turnkeyed? ?exit ! \in-system-ok 0 to fsp-cached? ; reset-stack-chain chain-add FLOAT-RESET-STACKS |
|
From: Jos v.d.V. <jo...@us...> - 2006-02-18 15:54:42
|
Update of /cvsroot/win32forth/win32forth/apps/Sudoku In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4632/apps/Sudoku Added Files: Readme.rtf Log Message: Jos: Added a file with the rules of the game. --- NEW FILE: Readme.rtf --- {\rtf1\ansi\ansicpg1252\uc1\deff0\stshfdbch0\stshfloch0\stshfhich0\stshfbi0\deflang1043\deflangfe1043{\fonttbl{\f0\froman\fcharset0\fprq2{\*\panose 02020603050405020304}Times New Roman;}{\f36\froman\fcharset238\fprq2 Times New Roman CE;} {\f37\froman\fcharset204\fprq2 Times New Roman Cyr;}{\f39\froman\fcharset161\fprq2 Times New Roman Greek;}{\f40\froman\fcharset162\fprq2 Times New Roman Tur;}{\f41\froman\fcharset177\fprq2 Times New Roman (Hebrew);} {\f42\froman\fcharset178\fprq2 Times New Roman (Arabic);}{\f43\froman\fcharset186\fprq2 Times New Roman Baltic;}{\f44\froman\fcharset163\fprq2 Times New Roman (Vietnamese);}}{\colortbl;\red0\green0\blue0;\red0\green0\blue255;\red0\green255\blue255; \red0\green255\blue0;\red255\green0\blue255;\red255\green0\blue0;\red255\green255\blue0;\red255\green255\blue255;\red0\green0\blue128;\red0\green128\blue128;\red0\green128\blue0;\red128\green0\blue128;\red128\green0\blue0;\red128\green128\blue0; \red128\green128\blue128;\red192\green192\blue192;}{\stylesheet{\ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1043\langfe1043\cgrid\langnp1043\langfenp1043 \snext0 Normal;}{\*\cs10 \additive \ssemihidden Default Paragraph Font;}{\*\ts11\tsrowd\trftsWidthB3\trpaddl108\trpaddr108\trpaddfl3\trpaddft3\trpaddfb3\trpaddfr3\trcbpat1\trcfpat1\tscellwidthfts0\tsvertalt\tsbrdrt\tsbrdrl\tsbrdrb\tsbrdrr\tsbrdrdgl\tsbrdrdgr\tsbrdrh\tsbrdrv \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs20\lang1024\langfe1024\cgrid\langnp1024\langfenp1024 \snext11 \ssemihidden Normal Table;}{ \s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1043\langfe1043\cgrid\langnp1043\langfenp1043 \sbasedon0 \snext15 \styrsid620728 Normal (Web);}{\*\cs16 \additive \b \sbasedon10 \styrsid620728 Strong;}{\*\cs17 \additive \ul\cf2 \sbasedon10 \styrsid620728 Hyperlink;}}{\*\latentstyles\lsdstimax156\lsdlockeddef0}{\*\pgptbl {\pgp\ipgp0\itap0\li0\ri0\sb0\sa0}}{\*\rsidtbl \rsid620728\rsid10369289\rsid12005350} {\*\generator Microsoft Word 11.0.5604;}{\info{\title Sudoku 1}{\author J.v.d.Ven}{\operator J.v.d.Ven}{\creatim\yr2006\mo2\dy18\hr16\min47}{\revtim\yr2006\mo2\dy18\hr16\min51}{\version3}{\edmins3}{\nofpages1}{\nofwords123}{\nofchars679}{\*\company Nvt} {\nofcharsws801}{\vern24689}}\paperw11906\paperh16838\margl1417\margr1417\margt1417\margb1417 \deftab708\widowctrl\ftnbj\aenddoc\hyphhotz425\noxlattoyen\expshrtn\noultrlspc\dntblnsbdb\nospaceforul\hyphcaps0\formshade\horzdoc\dgmargin\dghspace180 \dgvspace180\dghorigin1701\dgvorigin1984\dghshow1\dgvshow1 \jexpand\viewkind4\viewscale100\pgbrdrhead\pgbrdrfoot\splytwnine\ftnlytwnine\htmautsp\nolnhtadjtbl\useltbaln\alntblind\lytcalctblwd\lyttblrtgr\lnbrkrule\nobrkwrptbl\snaptogridincell\allowfieldendsel\wrppunct \asianbrkrule\rsidroot620728\newtblstyruls\nogrowautofit\viewbksp1 \fet0\sectd \linex0\headery708\footery708\colsx708\endnhere\sectlinegrid360\sectdefaultcl\sftnbj {\*\pnseclvl1\pnucrm\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl2 \pnucltr\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl3\pndec\pnstart1\pnindent720\pnhang {\pntxta .}}{\*\pnseclvl4\pnlcltr\pnstart1\pnindent720\pnhang {\pntxta )}}{\*\pnseclvl5\pndec\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl6 \pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl7\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl8\pnlcltr\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}{\*\pnseclvl9\pnlcrm\pnstart1\pnindent720\pnhang {\pntxtb (}{\pntxta )}}\pard\plain \s15\ql \li0\ri0\sb100\sa100\sbauto1\saauto1\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0\pararsid620728 \fs24\lang1043\langfe1043\cgrid\langnp1043\langfenp1043 { \cs16\b\fs27\lang2057\langfe1043\langnp2057\insrsid10369289 \par }{\cs16\b\fs27\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 Sudoku}{\cs16\b\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 1.3}{\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 \line Author: Rod Oakford.\line }{ \lang2057\langfe1043\langnp2057\insrsid10369289 \par }{\cs16\b\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 Discription:}{\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 \line Sudoku, is a placement puzzle, also known as Number Place in the United States. The aim of the puzzle is to enter a numeral from 1 through 9 in each cell of a grid, most frequently a 9\'d79 grid made up of 3\'d7 3 subgrids (called "regions"), starting with various numerals given in some cells (the "givens"). Each row, column and region must contain only one instance of each numeral. Completing the sudoku puzzle requires patience and logical ability. Its grid layout is reminiscent of other newspaper puzzles like crosswords and chess problems. sudoku initially became popular in Japan in 1986 a nd attained international popularity in 2005. \par A red number in this program indicates to a wrong move. Only black numbers are right. \par }{\cs16\b\insrsid620728 Feature: }{\insrsid620728 50}{\lang2057\langfe1043\langnp2057\insrsid620728\charrsid620728 puzzles}{\insrsid620728 to}{\lang2057\langfe1043\langnp2057\insrsid620728\charrsid12005350 solve}{\insrsid620728 . \par }\pard\plain \ql \li0\ri0\widctlpar\aspalpha\aspnum\faauto\adjustright\rin0\lin0\itap0 \fs24\lang1043\langfe1043\cgrid\langnp1043\langfenp1043 {\insrsid620728 \par }} |
|
From: Jos v.d.V. <jo...@us...> - 2006-02-18 15:06:42
|
Update of /cvsroot/win32forth/win32forth/apps/Solipon2 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv15945/apps/Solipon2 Modified Files: readme.txt Log Message: Jos: Changed the text a bit. Index: readme.txt =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Solipon2/readme.txt,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** readme.txt 5 Jun 2005 19:19:12 -0000 1.1 --- readme.txt 18 Feb 2006 15:06:37 -0000 1.2 *************** *** 16,20 **** \ \ They are a zoom in the toolbar to adjust the board as we want :) - \ Solipion, needs to be seriouly factorized,simplified and debuggued. \ Solipion seems to cheat with the scores :) \ In fact if Solipion found a move to play after my, our last move, then he place it, --- 16,19 ---- *************** *** 28,32 **** We can use only one pawn of an already line drawn. Solipion, controls if we follow the rules. ! Any directions are possible, vertical, horizontal,diagonally. links : http://croix2malte.free.fr/indexGB.php --- 27,31 ---- We can use only one pawn of an already line drawn. Solipion, controls if we follow the rules. ! Any direction is possible, vertical, horizontal or diagonally. links : http://croix2malte.free.fr/indexGB.php *************** *** 35,40 **** New in version 2.01: Labels on left and up of the board. ! Visible only if the board is pushed right and down ! with the keys : shift +down shift +right. ! ! Added also : shift +left and shift +up. \ No newline at end of file --- 34,37 ---- New in version 2.01: Labels on left and up of the board. ! Visible only if the board is pushed right and down with the keys:<shift +right> and <shift +down>. ! Zoom key: <ctrlt +right> for a better view. Use <ctrlt +left> for shrinking. |
|
From: Ezra B. <ezr...@us...> - 2006-02-18 04:19:41
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv4783/src/lib Modified Files: excontrols.f Log Message: Fixed some controls broken after someone's optimizations. Pardon the lack of DEXH docs for the SpinnerControl! Index: excontrols.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v retrieving revision 1.13 retrieving revision 1.14 diff -C2 -d -r1.13 -r1.14 *** excontrols.f 9 Feb 2006 18:04:10 -0000 1.13 --- excontrols.f 18 Feb 2006 04:19:33 -0000 1.14 *************** *** 574,588 **** 0 0 LB_GETCURSEL SendMessage:Self ;M ! :M GetString: ( n addr -- n ) \ *G Retrieve a string from the list box. \ *P The return value is the length of the string, in chars, excluding the terminating null character. \ ** If \i n \d does not specify a valid index, the return value is LB_ERR. ! LB_GETTEXT SendMessage:Self ;M :M GetSelectedString: ( -- addr cnt ) \ *G Retrieve the currently selected string from the list box. \ ** Note: The string is returned in the global \i NEW$ \d. ! GetSelection: self ! new$ dup rot GetString: self ;M :M GetCount: ( -- n ) --- 574,587 ---- 0 0 LB_GETCURSEL SendMessage:Self ;M ! :M GetString: ( index -- addr n ) \ *G Retrieve a string from the list box. \ *P The return value is the length of the string, in chars, excluding the terminating null character. \ ** If \i n \d does not specify a valid index, the return value is LB_ERR. ! new$ dup rot LB_GETTEXT SendMessage:Self ;M :M GetSelectedString: ( -- addr cnt ) \ *G Retrieve the currently selected string from the list box. \ ** Note: The string is returned in the global \i NEW$ \d. ! GetSelection: self GetString: self ;M :M GetCount: ( -- n ) *************** *** 641,651 **** -1 LB_FINDSTRINGEXACT SendMessage:Self ;M - :M GetString: ( index -- a n ) - \ *G Retrieve a string from the list box. - \ ** Note the string is returned at HERE ! - - \ TODO: Don't use HERE here !!! - HERE SWAP GetString: self HERE SWAP ;M - :M GetCurrent: ( -- index ) \ *G Retrieve the index of the currently selected item, if any. --- 640,643 ---- *************** *** 807,811 **** \ ** WS_BORDER, UDS_ARROWKEYS, UDS_SETBUDDYINT and UDS_ALIGNRIGHT. WindowStyle: super ! [ WS_BORDER UDS_ARROWKEYS OR UDS_SETBUDDYINT OR UDS_ALIGNRIGHT OR ] literal style or ;M --- 799,803 ---- \ ** WS_BORDER, UDS_ARROWKEYS, UDS_SETBUDDYINT and UDS_ALIGNRIGHT. WindowStyle: super ! [ WS_BORDER UDS_ARROWKEYS OR UDS_SETBUDDYINT OR UDS_ALIGNRIGHT OR ] literal or style or ;M *************** *** 878,881 **** --- 870,897 ---- \ *G End of UpDownControl control + :Class SpinnerControl <Super UpDownControl + TextBox TheBox + + :m start: ( parent -- ) \ both must have same parent + dup Start: TheBox + Start: super + ;m + + :m TheBox: ( -- spinbox ) \ in case we need it directly for some reason + Addr: TheBox ;m + + :m Move: ( x y w h -- ) + Move: TheBox + \ allow the updowncontrol to move with the editcontrol + GetHandle: TheBox SetBuddy: self ;m + + :m SetFont: ( hndl -- ) + Setfont: TheBox ;m + + :M Close: ( -- ) + Close: TheBox + Close: self ;M + ;class + \ ------------------------------------------------------------------------ \ *W <a name="CheckBox"></a> |
|
From: George H. <geo...@us...> - 2006-02-17 11:55:10
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31151/win32forth/src Modified Files: FONTS.F Log Message: gah: Added create: method which doesn't return a flag (as the original) Index: FONTS.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FONTS.F,v retrieving revision 1.6 retrieving revision 1.7 diff -C2 -d -r1.6 -r1.7 *** FONTS.F 1 Nov 2005 12:21:40 -0000 1.6 --- FONTS.F 17 Feb 2006 11:54:57 -0000 1.7 *************** *** 29,32 **** --- 29,34 ---- :M PitchAndFamily: ( n1 -- ) SetPitchAndFamily: super ;M + :M Create: ( n1 -- ) Create: super drop ;M + :M Delete: ( -- ) Destroy: super ;M |
|
From: Jos v.d.V. <jo...@us...> - 2006-02-13 20:21:47
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv10945/apps/Player4 Modified Files: PLAYER4.F Log Message: Jos: Fixed the bug reported by Dirk and changed the way checks are made in the menu. Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.37 retrieving revision 1.38 diff -C2 -d -r1.37 -r1.38 *** PLAYER4.F 12 Feb 2006 16:34:56 -0000 1.37 --- PLAYER4.F 13 Feb 2006 20:21:37 -0000 1.38 *************** *** 145,148 **** --- 145,157 ---- needs MediaTree.f + + : check/resize-config-file + DatFile$ count file-exist? + if DatFile$ count r/o open-file throw dup file-size throw d>s pad ! + close-file throw pad @ + sizeof ConfigDef = check-config unmap-configuration + then + ; + \ ----------------------------------------------------------------------------- \ Define the Main Window *************** *** 170,176 **** ; ! :M On_Paint: ( -- ) ! vadr-config AutoStart- c@ Check: mAutostart vadr-config AutoMinimized- c@ Check: mTray ;M --- 179,187 ---- ; ! ! :M WM_INITMENU ( h m w l -- res ) \ enable/disable the menu items ! vadr-config AutoStart- c@ Check: mAutostart vadr-config AutoMinimized- c@ Check: mTray + 0 ;M *************** *** 237,241 **** ['] on_clicked to click-func ['] on_unclicked to unclick-func ! InitFileNames GetHandle: Self dup SetParent: ControlCenter SetParent: ViewForm --- 248,252 ---- ['] on_clicked to click-func ['] on_unclicked to unclick-func ! InitFileNames check/resize-config-file GetHandle: Self dup SetParent: ControlCenter SetParent: ViewForm *************** *** 252,256 **** ." freelist: " vadr-config #free-list @ . then ! else datfile$ count file-exist? check-config then --- 263,267 ---- ." freelist: " vadr-config #free-list @ . then ! else map-config-file then *************** *** 270,273 **** --- 281,285 ---- ;M + :M On_Done: ( h m w l -- res ) Close: self *************** *** 530,534 **** vadr-config AutoMinimized- c@ if HideWindow: MainWindow then vadr-config AutoStart- c@ if start/resume then - ; --- 542,545 ---- *************** *** 548,555 **** \ Resize the configuration file when needed. ! DatFile$ count file-exist? [IF] ! DatFile$ count r/o open-file throw dup file-size throw d>s pad ! close-file throw ! pad @ sizeof ConfigDef = check-config unmap-configuration ! [THEN] \ ----------------------------------------------------------------------------- --- 559,563 ---- \ Resize the configuration file when needed. ! check/resize-config-file \ ----------------------------------------------------------------------------- *************** *** 566,569 **** --- 574,578 ---- ' abort is StopPlayer \ Access to Forth ( Not fullproof ) s" Player4.ico" s" Player4.exe" AddAppIcon + PLAYER4 [then] |
|
From: George H. <geo...@us...> - 2006-02-13 14:06:23
|
Update of /cvsroot/win32forth/win32forth/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5274/win32forth/src/kernel Modified Files: fkernel.f Log Message: gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build). Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/kernel/fkernel.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** fkernel.f 28 Nov 2005 09:25:42 -0000 1.24 --- fkernel.f 13 Feb 2006 14:06:09 -0000 1.25 *************** *** 1909,1915 **** \ -------------------- User Variables --------------------------------------- ! \ Task based variables are here. Each task has its own local copy of an uninitialised ! \ variable. All other VARIABLEs and VALUEs are global the the entire process, and must ! \ not be changed in a task unless locked or you know what you're doing. VARIABLE NEXT-USER \ offset of next user variable --- 1909,1915 ---- \ -------------------- User Variables --------------------------------------- ! \ *P Task based variables are here. Each task has its own local copy of an uninitialised ! \ ** variable. All other VARIABLEs and VALUEs are global the the entire process, and must ! \ ** not be changed in a task unless locked or you know what you're doing. VARIABLE NEXT-USER \ offset of next user variable *************** *** 2730,2743 **** 9 offset L>NAME ( lfa -- nfa ) -9 offset N>LINK ( nfa -- lfa ) -5 offset N>CFAPTR ( nfa -- cfa-ptr ) -1 offset N>BFA ( nfa -- bfa ) ! CODE LINK> ( link -- cfa ) mov ebx, 4 [ebx] next c; CODE NAME> ( nfa -- cfa ) mov ebx, -5 [ebx] next c; --- 2730,2748 ---- 9 offset L>NAME ( lfa -- nfa ) + \ *G Convert link address to name address. -9 offset N>LINK ( nfa -- lfa ) + \ *G Convert name address to link address. -5 offset N>CFAPTR ( nfa -- cfa-ptr ) + \ *G Convert name address to the address of the CFA pointer address. -1 offset N>BFA ( nfa -- bfa ) ! \ *G Convert neme address to the address of the bit fields. CODE LINK> ( link -- cfa ) + \ *G Convert the link address to the CFA (xt). mov ebx, 4 [ebx] next c; CODE NAME> ( nfa -- cfa ) + \ *G Convert the name address to the CFA (xt). mov ebx, -5 [ebx] next c; *************** *** 4600,4605 **** \ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog ! : WINPAUSE ( -- ) \ release control to OS for a moment, pump message loop (in wrapper) ! KEY? DROP ; --- 4605,4610 ---- \ 07/07/2003 21:10:55 fkernel.f [ 745385 ] Bug in "Find Text in Files" Dialog ! DEFER WINPAUSE ( -- ) \ release control to OS for a moment, pump message loop (in wrapper) ! : (WINPAUSE) KEY? DROP ; ' (WINPAUSE) IS WINPAUSE |
|
From: George H. <geo...@us...> - 2006-02-13 14:06:23
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5274/win32forth/src Modified Files: CALLBACK.f imageman.f Log Message: gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build). Index: CALLBACK.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/CALLBACK.f,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 *** CALLBACK.f 17 Dec 2005 15:11:59 -0000 1.5 --- CALLBACK.f 13 Feb 2006 14:06:08 -0000 1.6 *************** *** 232,235 **** --- 232,242 ---- HandleMessages-init + 5 proc PeekMessage + + :Noname ( -- ) + { \ hwnd mess wparm lparm time pt.x pt.y -- } + BEGIN PM_REMOVE 0 0 0 &of hwnd Call PeekMessage + WHILE &of hwnd HandleMessages drop + REPEAT ; is winpause \ A Win32Forth-message example: Index: imageman.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/imageman.f,v retrieving revision 1.9 retrieving revision 1.10 diff -C2 -d -r1.9 -r1.10 *** imageman.f 15 Sep 2005 16:36:09 -0000 1.9 --- imageman.f 13 Feb 2006 14:06:09 -0000 1.10 *************** *** 145,153 **** IN-SYSTEM VOCABULARY VIMAGE ALSO VIMAGE DEFINITIONS - BASE @ DECIMAL NOSTACK1 - SYS-FLOAD SRC\IMAGEHDS.F \ image header file --- 145,160 ---- IN-SYSTEM + BASE @ DECIMAL NOSTACK1 + + \ Moved the 2 values to the Forth Vocabulary to be Findable. + + TRUE VALUE CONSOLE-DLL? \ W32F Forth System Imageman + \ *G Set to true if your app needs the w32fConsole.dll. + FALSE VALUE SCINTILLA-DLL? \ W32F Forth System Imageman + \ *G Set to true if your app needs the w32fScintilla.dll. + VOCABULARY VIMAGE ALSO VIMAGE DEFINITIONS SYS-FLOAD SRC\IMAGEHDS.F \ image header file *************** *** 664,670 **** GUI VALUE EXETYPE - TRUE VALUE CONSOLE-DLL? \ set to true if your app needs the w32fConsole.dll - FALSE VALUE SCINTILLA-DLL? \ set to true if your app needs the w32fScintilla.dll - : std-IMG2EXE ( addr len -- ) \ compose STD image, addr/len is name --- 671,674 ---- *************** *** 956,963 **** r> is default-application \ calls default application after init &except off \ no previous exceptions... ! fsave is default-application is boot ! ; : TURNKEY ( cfa -<name>- ) \ create application "name" that runs --- 960,967 ---- r> is default-application \ calls default application after init &except off \ no previous exceptions... ! ['] fsave catch >r is default-application is boot ! r> throw ; : TURNKEY ( cfa -<name>- ) \ create application "name" that runs *************** *** 965,977 **** dup>r sys-addr? abort" Can't TURNKEY a system word!" ignore-missing-procs? ! true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS ! defer@ INIT-CONSOLE ['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console ! SYS-SIZE 0 ['] SYS-SIZE >BODY ! \ set system free space to zero, no system ! FALSE to with-source? \ no source level debugging ! 0 0 r> application \ calls default application after init ['] SYS-SIZE >BODY ! is INIT-CONSOLE to ignore-missing-procs? ! ; PREVIOUS --- 969,981 ---- dup>r sys-addr? abort" Can't TURNKEY a system word!" ignore-missing-procs? ! true to ignore-missing-procs? \ WHEN TURNKEYING, IGNORE MISSING PROCEDURE WARNINGS ! defer@ INIT-CONSOLE ['] x_INIT-CONSOLE is INIT-CONSOLE \ no statusbar for the console ! SYS-SIZE 0 ['] SYS-SIZE >BODY ! \ set system free space to zero, no system ! FALSE to with-source? \ no source level debugging ! 0 0 r> ['] application catch >r \ calls default application after init ['] SYS-SIZE >BODY ! is INIT-CONSOLE to ignore-missing-procs? ! r> throw ; PREVIOUS |
|
From: George H. <geo...@us...> - 2006-02-13 14:06:22
|
Update of /cvsroot/win32forth/win32forth In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5274/win32forth Modified Files: fkernel.exe Log Message: gah: Modified WinPause to work w/o the console (needs new KERNEL.EXE to build). Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth/fkernel.exe,v retrieving revision 1.29 retrieving revision 1.30 diff -C2 -d -r1.29 -r1.30 Binary files /tmp/cvsgBftTj and /tmp/cvsbNCcqk differ |
|
From: George H. <geo...@us...> - 2006-02-13 14:02:28
|
Update of /cvsroot/win32forth/win32forth/src In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3736/win32forth/src Modified Files: FLOAT.F Log Message: gah: More Dexing (still work in progress) optimizations and bug fixes Index: FLOAT.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/FLOAT.F,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** FLOAT.F 8 Feb 2006 10:51:43 -0000 1.36 --- FLOAT.F 13 Feb 2006 14:02:19 -0000 1.37 *************** *** 1447,1453 **** \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat : F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext ! \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than r3. ! \ ** If r3 is zero, flag is true if the implementation-dependent encoding of r1 and r2 are ! \ ** exactly identical (positive and negative zero are unequal if they have distinct encodings). \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the \ ** absolute value of r3 times the sum of the absolute values of r1 and r2. --- 1447,1453 ---- \ added '@' after FLOATSP to fix a bug reported by Pierre Abbat : F~ ( -- flag ; fs: r1 r2 r3 -- ) \ ANSI Floating ext ! \ *G If r3 is positive, flag is true if the absolute value of (r1 minus r2) is less than ! \ ** r3. If r3 is zero, flag is true if the implementation-dependent encoding of r1 and ! \ ** r2 are exactly identical (positive and negative zero are unequal). \ ** If r3 is negative, flag is true if the absolute value of (r1 minus r2) is less than the \ ** absolute value of r3 times the sum of the absolute values of r1 and r2. *************** *** 1660,1664 **** >r 2dup blank r> count \ addr1 u addr2 v rot umin >r swap r> move ! 0x7fffffff 0 fdrop ; external --- 1660,1664 ---- >r 2dup blank r> count \ addr1 u addr2 v rot umin >r swap r> move ! 0x7fffffff false fdrop ; external |
|
From: George H. <geo...@us...> - 2006-02-13 14:01:33
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv3242/win32forth/src/console Modified Files: NoConsole.f Log Message: gah: Modified to change search-order at compile time and balance search-order Index: NoConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** NoConsole.f 10 Feb 2006 16:02:05 -0000 1.2 --- NoConsole.f 13 Feb 2006 14:01:20 -0000 1.3 *************** *** 88,97 **** ; : NoConsoleInImage ( -- ) \ W32F console \ *G Tell Imageman that we don't need the w32fconsole.dll if possible. \ In older w32f versions you have to modify Imageman.f to do this. - \+ VIMAGE also VIMAGE \+ CONSOLE-DLL? false to CONSOLE-DLL? ; in-application --- 88,98 ---- ; + \+ VIMAGE also VIMAGE : NoConsoleInImage ( -- ) \ W32F console \ *G Tell Imageman that we don't need the w32fconsole.dll if possible. \ In older w32f versions you have to modify Imageman.f to do this. \+ CONSOLE-DLL? false to CONSOLE-DLL? ; + \+ VIMAGE previous in-application |
|
From: Jos v.d.V. <jo...@us...> - 2006-02-12 16:35:13
|
Update of /cvsroot/win32forth/win32forth/apps/Player4 In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv24562/apps/Player4 Modified Files: Catalog.f PLAYER4.F Log Message: Jos: Enabled auto play and tray window options at the start Index: PLAYER4.F =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/PLAYER4.F,v retrieving revision 1.36 retrieving revision 1.37 diff -C2 -d -r1.36 -r1.37 *** PLAYER4.F 21 Jan 2006 18:23:54 -0000 1.36 --- PLAYER4.F 12 Feb 2006 16:34:56 -0000 1.37 *************** *** 37,40 **** --- 37,41 ---- defer SortLeastPlayed ' noop is SortLeastPlayed defer SortSize ' noop is SortSize + defer RefreshWindow ' noop is SortSize needs Pl_Toolset.f *************** *** 71,74 **** --- 72,77 ---- ENDBAR + : invert-check ( check - ) dup c@ not swap c! RefreshWindow ; + \ ----------------------------------------------------------------------------- \ Define the Menu bar *************** *** 89,93 **** MENUITEM "&Start/Resume playing\tCtrl+R" 'R' +k_control pushkey ; MENUSEPARATOR - SUBMENU "S&ort and view" MENUITEM "Define a view" StartViewForm ; --- 92,95 ---- *************** *** 117,120 **** --- 119,127 ---- MENUITEM "&Audio on\tCtrl+A" 'A' +k_control pushkey ; MENUITEM "&Audio off\tShift+A" 'A' +k_shift pushkey ; + MENUSEPARATOR + :MENUITEM mAutostart "Auto play the catalog at the start" + vadr-config AutoStart- invert-check ; + :MENUITEM mTray "Tray window at the start" + vadr-config AutoMinimized- invert-check ; POPUP "&Help" MENUITEM "About Player 4th..." k_F1 pushkey ; *************** *** 163,166 **** --- 170,178 ---- ; + :M On_Paint: ( -- ) + vadr-config AutoStart- c@ Check: mAutostart + vadr-config AutoMinimized- c@ Check: mTray + ;M + :M StartPos: ( -- x y ) CenterWindow: Self *************** *** 282,286 **** :M HideWindow: ( -- ) ! IsVisible?: self if Video?: Player4W if Pause: Player4W then SW_HIDE Show: ControlCenter Update: ControlCenter --- 294,298 ---- :M HideWindow: ( -- ) ! IsVisible?: self if Video?: Player4W if Pause: Player4W then SW_HIDE Show: ControlCenter Update: ControlCenter *************** *** 406,409 **** --- 418,424 ---- then ; is UndeleteAll + :noname ( -- ) \ to update the checks + Paint: Mainwindow ; is RefreshWindow + \ ----------------------------------------------------------------------------- \ Simple command line handling *************** *** 474,477 **** --- 489,494 ---- Close: MainWindow bye ; + : start/resume ( - ) beep catalog-exist? if play-catalog-random: Player4W then ; + : KeyHandler ( -- ) ekey? *************** *** 500,504 **** k_right of Forward endof ! 'R' +k_control of beep catalog-exist? if play-catalog-random: Player4W then endof 'M' +k_control of AddFilesFromSelector: Player4W endof 'I' +k_control of Import-to-catalog: Player4W RefreshCatalog endof --- 517,521 ---- k_right of Forward endof ! 'R' +k_control of start/resume endof 'M' +k_control of AddFilesFromSelector: Player4W endof 'I' +k_control of Import-to-catalog: Player4W RefreshCatalog endof *************** *** 511,514 **** --- 528,534 ---- Start: ControlCenter ['] FullScreenToggle SetDblClickFunc: MouseHandlerWindow + vadr-config AutoMinimized- c@ if HideWindow: MainWindow then + vadr-config AutoStart- c@ if start/resume then + ; Index: Catalog.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/Player4/Catalog.f,v retrieving revision 1.24 retrieving revision 1.25 diff -C2 -d -r1.24 -r1.25 *** Catalog.f 21 Jan 2006 18:23:54 -0000 1.24 --- Catalog.f 12 Feb 2006 16:34:56 -0000 1.25 *************** *** 44,47 **** --- 44,49 ---- BYTE l_Record- BYTE ExitFailed- + BYTE AutoStart- + BYTE AutoMinimized- ;struct *************** *** 626,627 **** --- 628,630 ---- then ; + \s |
|
From: George H. <geo...@us...> - 2006-02-10 16:02:16
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv26741/win32forth/src/console Modified Files: NoConsole.f Log Message: gah: Modified to use task-safe version of message loop Index: NoConsole.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/console/NoConsole.f,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** NoConsole.f 9 Feb 2006 18:01:44 -0000 1.1 --- NoConsole.f 10 Feb 2006 16:02:05 -0000 1.2 *************** *** 6,10 **** \ *T No console \ *Q Helper words for turnkey applications that don't need the console window and the \i w32fConsole.dll \d. ! \ *P To use this words you must load the file \i src/console/NoConsole.f \d first. \ *S Glossary --- 6,10 ---- \ *T No console \ *Q Helper words for turnkey applications that don't need the console window and the \i w32fConsole.dll \d. ! \ *P To use these words you must load the file \i src/console/NoConsole.f \d first. \ *S Glossary *************** *** 21,26 **** internal - Create MessageStructure 32 allot - : K_NOOP0 2DROP 0 ; : K_NOOP1 0 ; --- 21,24 ---- *************** *** 35,42 **** : MessageLoop ( -- ) \ W32F console \ *G The message loop for the application. ! \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d. ! BEGIN 0 0 0 MessageStructure Call GetMessage ! WHILE MessageStructure HandleMessages drop ! REPEAT ; in-system --- 33,42 ---- : MessageLoop ( -- ) \ W32F console \ *G The message loop for the application. ! \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d. \n ! \ ** Also needs to be used by tasks that start their own windows. ! { \ hwnd mess wparm lparm time pt.x pt.y -- } ! Begin 0 0 0 &of hwnd call GetMessage ! While &of hwnd handlemessages drop ! Repeat ; in-system *************** *** 134,136 **** --- 134,138 ---- \ *P For a full working example see \i apps/PlayVirginRadio/PlayVirginRadio.f \d. + \ *P For an example of multi-tasking use see \i demos/MultiHello.f \d. + \ *Z |
|
From: George H. <geo...@us...> - 2006-02-10 11:08:12
|
Update of /cvsroot/win32forth/win32forth-610old/htm In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv2349/win32forth-610old/htm Modified Files: p-relnotes.6.10.htm Log Message: gah: Updated release notes Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/htm/p-relnotes.6.10.htm,v retrieving revision 1.3 retrieving revision 1.4 diff -C2 -d -r1.3 -r1.4 *** p-relnotes.6.10.htm 10 Feb 2006 10:59:36 -0000 1.3 --- p-relnotes.6.10.htm 10 Feb 2006 11:07:55 -0000 1.4 *************** *** 22,26 **** <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.01</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> --- 22,26 ---- <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.04</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> *************** *** 137,146 **** <li>support for CMOVcc and SETcc opcodes</li> </ul> <h3>Bug fixes</h3> <p>A large number of bugs have been fixed.</p> - <h3>V6.10.04</h3> <p>The bug in <b>\</b> which was causing the stack check warnings to try to print 4,000,000 spaces if the line has a comment has been fixed..</p> <p><b> REPRESENT </b> has been modified so zero is output as 0.0e0 by <b>FS.</b> </p> <h2>New Applications</h2> <ul> --- 137,147 ---- <li>support for CMOVcc and SETcc opcodes</li> </ul> + <h3>Bug fixes</h3> <p>A large number of bugs have been fixed.</p> <p>The bug in <b>\</b> which was causing the stack check warnings to try to print 4,000,000 spaces if the line has a comment has been fixed..</p> <p><b> REPRESENT </b> has been modified so zero is output as 0.0e0 by <b>FS.</b> </p> + <h2>New Applications</h2> <ul> |
|
From: George H. <geo...@us...> - 2006-02-10 11:04:54
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1329/win32forth/doc Modified Files: p-relnotes.6.10.htm Log Message: gah: Updated release notes Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.10.htm,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 *** p-relnotes.6.10.htm 12 Jun 2005 08:37:35 -0000 1.1 --- p-relnotes.6.10.htm 10 Feb 2006 11:04:45 -0000 1.2 *************** *** 22,26 **** <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.01</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> --- 22,26 ---- <a href="mailto:win...@ya...?subject=DOC: Doc error in $Id$"> <img border="0" src="TELLUS.gif" align="left" width="32" height="32"></a></font>Release ! Notes for version 6.10.04</h2> <ul> <li><a href="p-relnotes.htm">Previous version release notes </a></li> *************** *** 137,142 **** --- 137,146 ---- <li>support for CMOVcc and SETcc opcodes</li> </ul> + <h3>Bug fixes</h3> <p>A large number of bugs have been fixed.</p> + <p>The bug in <b>\</b> which was causing the stack check warnings to try + to print 4,000,000 spaces if the line has a comment has been fixed..</p> + <p><b> REPRESENT </b> has been modified so zero is output as 0.0e0 by <b>FS.</b> </p> <h2>New Applications</h2> |
|
From: George H. <geo...@us...> - 2006-02-10 10:59:48
|
Update of /cvsroot/win32forth/win32forth-610old/htm In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv31793/win32forth-610old/htm Modified Files: p-relnotes.6.10.htm Log Message: gah: Updated release notes Index: p-relnotes.6.10.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/htm/p-relnotes.6.10.htm,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 *** p-relnotes.6.10.htm 24 May 2005 07:55:14 -0000 1.2 --- p-relnotes.6.10.htm 10 Feb 2006 10:59:36 -0000 1.3 *************** *** 139,143 **** <h3>Bug fixes</h3> <p>A large number of bugs have been fixed.</p> ! <h2>New Applications</h2> <ul> --- 139,146 ---- <h3>Bug fixes</h3> <p>A large number of bugs have been fixed.</p> ! <h3>V6.10.04</h3> ! <p>The bug in <b>\</b> which was causing the stack check warnings to try ! to print 4,000,000 spaces if the line has a comment has been fixed..</p> ! <p><b> REPRESENT </b> has been modified so zero is output as 0.0e0 by <b>FS.</b> </p> <h2>New Applications</h2> <ul> |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:04:25
|
Update of /cvsroot/win32forth/win32forth/src/lib In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29219/src/lib Modified Files: excontrols.f Log Message: Some minor changes and some more dexing. Index: excontrols.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/lib/excontrols.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** excontrols.f 6 Feb 2006 17:48:17 -0000 1.12 --- excontrols.f 9 Feb 2006 18:04:10 -0000 1.13 *************** *** 1958,1962 **** ;Class ! :Class HorizScroll <Super ScrollBar :M WindowStyle: ( -- style ) --- 1958,1967 ---- ;Class ! \ ------------------------------------------------------------------------ ! \ *W <a name="HorizScroll"></a> ! \ *S HorizScroll class ! \ ------------------------------------------------------------------------ ! :Class HorizScroll <Super ScrollBar ! \ *G Scrollbar control (vorizontal). :M WindowStyle: ( -- style ) *************** *** 1965,1969 **** ;Class ! \ *G End of ScrollBar class \ ------------------------------------------------------------------------ --- 1970,1974 ---- ;Class ! \ *G End of HorizScroll class \ ------------------------------------------------------------------------ *************** *** 1972,1976 **** \ ------------------------------------------------------------------------ :Class VertScroll <Super ScrollBar ! \ *G Scrollbar control (vertical) :M WindowStyle: ( -- style ) --- 1977,1981 ---- \ ------------------------------------------------------------------------ :Class VertScroll <Super ScrollBar ! \ *G Scrollbar control (vertical). :M WindowStyle: ( -- style ) *************** *** 1986,1990 **** \ ------------------------------------------------------------------------ :Class SizeBox <Super ScrollBar ! \ *G Size box control :M WindowStyle: ( -- style ) --- 1991,1995 ---- \ ------------------------------------------------------------------------ :Class SizeBox <Super ScrollBar ! \ *G Size box control. :M WindowStyle: ( -- style ) *************** *** 2020,2031 **** set-time-pointers ! #THEN ! ! \ ------------------------------------------------------------------------ ! \ *W <a name="MonthCalendar"></a> ! \ *S MonthCalendar class ! \ ------------------------------------------------------------------------ ! :Class MonthCalendar <Super Control ! \ *G Month Calendar control Comment: --- 2025,2030 ---- set-time-pointers ! \ TODO: Move the SystemTime-struct into class. So that every instance of the ! \ control becomes his own set of values. Comment: *************** *** 2073,2076 **** --- 2072,2087 ---- Comment; + #THEN + + \ ------------------------------------------------------------------------ + \ *W <a name="MonthCalendar"></a> + \ *S MonthCalendar class + \ ------------------------------------------------------------------------ + :Class MonthCalendar <Super Control + \ *G Month Calendar control. + \ ** A month calendar control implements a calendar-like user interface. This + \ ** provides the user with a very intuitive and recognizable method of entering + \ ** or selecting a date. + int style *************** *** 2078,2082 **** \ *G Initialise the class. ClassInit: super - \ _systemtime /size erase 0 to style ;M --- 2089,2092 ---- *************** *** 2089,2103 **** :M Start: ( Parent -- ) \ *G Create the control. ! to parent ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop ! z" SysMonthCal32" Create-Control ! ;M ! :M MinSize: ( -- x y) ! \ *G return minimum size required to display a month ! EraseRect: TempRect ! Temprect 0 MCM_GETMINREQRECT SendMessage:Self ?Win-Error ! Right: TempRect Bottom: TempRect ! ;M :M WindowStyle: ( -- style ) --- 2099,2113 ---- :M Start: ( Parent -- ) \ *G Create the control. ! to parent ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop ! z" SysMonthCal32" Create-Control ! ;M ! :M MinSize: ( -- x y ) ! \ *G Return minimum size required to display a month. ! EraseRect: TempRect ! TempRect 0 MCM_GETMINREQRECT SendMessage:Self ?Win-Error ! Right: TempRect Bottom: TempRect ! ;M :M WindowStyle: ( -- style ) *************** *** 2106,2113 **** --- 2116,2131 ---- :M GetDate: ( -- day month year ) + \ *G Retrieves the currently selected date. + \ *P \i day \d is the day of the month (0-31). + \ *P \i Month \d is the month (January = 1; December = 12) + \ *P \i year \d is the year (1601 - 30827). _SystemTime 0 MCM_GETCURSEL SendMessage:Self drop wday w@ wmonth w@ wyear w@ ;M :M GetToday: ( -- day month year ) + \ *G Retrieves the date information for the date specified as "today". + \ *P \i day \d is the day of the month (0-31). + \ *P \i Month \d is the month (January = 1; December = 12) + \ *P \i year \d is the year (1601 - 30827). _systemtime 0 MCM_GETTODAY SendMessage:Self ?Win-Error wday w@ wmonth w@ wyear w@ ;M *************** *** 2119,2123 **** \ *S DateTimePicker class \ ------------------------------------------------------------------------ ! :Class DateTimePicker <Super Control \ *G Date and Time Picker control --- 2137,2141 ---- \ *S DateTimePicker class \ ------------------------------------------------------------------------ ! :Class DateTimePicker <Super Control \ *G Date and Time Picker control *************** *** 2137,2144 **** :M Start: ( Parent -- ) \ *G Create the control. ! to parent ! ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop ! z" SysDateTimePick32" Create-Control ! ;M /* --- 2155,2162 ---- :M Start: ( Parent -- ) \ *G Create the control. ! to parent ! ICC_DATE_CLASSES 8 sp@ Call InitCommonControlsEx 3drop ! z" SysDateTimePick32" Create-Control ! ;M /* |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:04:25
|
Update of /cvsroot/win32forth/win32forth/doc/classes In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv29219/doc/classes Modified Files: Controls.htm Log Message: Some minor changes and some more dexing. Index: Controls.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/classes/Controls.htm,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** Controls.htm 8 Feb 2006 14:26:34 -0000 1.12 --- Controls.htm 9 Feb 2006 18:04:10 -0000 1.13 *************** *** 1230,1354 **** </p><pre><b><a name="307">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="308">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_HORZ. ! </p><pre><b><a name="309">;Class ! </a></b></pre><p>End of ScrollBar class </p><a name="VertScroll"></a> <h2>VertScroll class ! </h2><pre><b><a name="310">:Class VertScroll <Super ScrollBar ! </a></b></pre><p>Scrollbar control (vertical) ! </p><pre><b><a name="311">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_VERT. ! </p><pre><b><a name="312">;Class </a></b></pre><p>End of VertScroll class </p><a name="SizeBox"></a> <h2>SizeBox class ! </h2><pre><b><a name="313">:Class SizeBox <Super ScrollBar ! </a></b></pre><p>Size box control ! </p><pre><b><a name="314">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_SIZEGRIP. ! </p><pre><b><a name="315">;Class </a></b></pre><p>End of SizeBox class </p><a name="MonthCalendar"></a> <h2>MonthCalendar class ! </h2><pre><b><a name="316">:Class MonthCalendar <Super Control ! </a></b></pre><p>Month Calendar control ! </p><pre><b><a name="317">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="318">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="319">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="320">:M MinSize: ( -- x y) ! </a></b></pre><p>return minimum size required to display a month ! </p><pre><b><a name="321">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: WS_BORDER. ! </p><pre><b><a name="322">;Class </a></b></pre><p>End of MonthCalendar class </p><a name="DateTimePicker"></a> <h2>DateTimePicker class ! </h2><pre><b><a name="323">:Class DateTimePicker <Super Control </a></b></pre><p>Date and Time Picker control ! </p><pre><b><a name="324">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="325">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="326">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="327">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: WS_BORDER. ! </p><pre><b><a name="328">:M SetCustomFormat: ( z"format" -- ) </a></b></pre><p>set the display format for time or date ! </p><pre><b><a name="329">:M GetTime: ( -- hrs min secs ) </a></b></pre><p>get user selected time ! </p><pre><b><a name="330">:M SetTime: ( hr min sec -- ) </a></b></pre><p>set time for user to edit ! </p><pre><b><a name="331">:M GetDate: ( -- day month year ) </a></b></pre><p>get user selected date ! </p><pre><b><a name="332">;Class </a></b></pre><p>End of DateTimePicker class </p><a name="TabControlr"></a> <h2>TabControl class ! </h2><pre><b><a name="333">:Class TabControl <Super Control </a></b></pre><p>Tab control ! </p><pre><b><a name="334">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="335">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="336">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: TCS_FOCUSONBUTTONDOWN. ! </p><pre><b><a name="337">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="338">:M InsertTab: ( index -- ) </a></b></pre><p>tc_item mask and other members must be set ! </p><pre><b><a name="339">:M GetTabInfo: ( index -- ) </a></b></pre><p>tc_item mask member must be set ! </p><pre><b><a name="340">:M SetTabInfo: ( index -- ) </a></b></pre><p>tc_item members must be set ! </p><pre><b><a name="341">:M ClientSize: ( -- x y w h ) </a></b></pre><p>return size of display area ! </p><pre><b><a name="342">:M WindowSize: ( 0 0 width height -- x y w h ) </a></b></pre><p>given display area return window size required ! </p><pre><b><a name="343">:M Enable: ( f -- ) </a></b></pre><p>Enable the control. ! </p><pre><b><a name="344">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="345">:M Setfont: ( handle -- ) </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="346">:M WindowTitle: ( -- null$ ) </a></b></pre><p>SintillaControl asks for window title of parent ! </p><pre><b><a name="347">;Class </a></b></pre><p>End of TabControl class </p><hr /><h1>ExControls -- More (enhanced) classes for none standard windows controls. </h1><hr /><a name="VertButtonBar"></a> <h2>VertButtonBar class ! </h2><pre><b><a name="348">:Class VertButtonBar <super VButtonBar </a></b></pre><p>VertButtonBar control </p><p>This is an enhanced Version of the VButtonBar class. </p><p>Note: this control isn't one of the standard control of MS windows. ! </p><pre><b><a name="349">:M SetFont: { fonthndl \ hb1 -- } </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="350">:M Enable: { flag \ hb1 -- } </a></b></pre><p>Enable the control. ! </p><pre><b><a name="351">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="352">;Class </a></b></pre><p>End of VertButtonBar class </p><a name="HorizButtonBar"></a> <h2>HorizButtonBar class ! </h2><pre><b><a name="353">:Class HorizButtonBar <super HButtonBar </a></b></pre><p>HorizButtonBar control </p><p>This is an enhanced Version of the HButtonBar class. </p><p>Note: this control isn't one of the standard control of MS windows. ! </p><pre><b><a name="354">:M SetFont: { fonthndl \ hb1 -- } </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="355">:M Enable: { flag \ hb1 -- } </a></b></pre><p>Enable the control. ! </p><pre><b><a name="356">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="357">;Class </a></b></pre><p>End of HorizButtonBar class </p><hr><p>Document $Id$</p> --- 1230,1371 ---- </p><pre><b><a name="307">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><a name="HorizScroll"></a> ! <h2>HorizScroll class ! </h2><pre><b><a name="308">:Class HorizScroll <Super ScrollBar ! </a></b></pre><p>Scrollbar control (vorizontal). ! </p><pre><b><a name="309">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_HORZ. ! </p><pre><b><a name="310">;Class ! </a></b></pre><p>End of HorizScroll class </p><a name="VertScroll"></a> <h2>VertScroll class ! </h2><pre><b><a name="311">:Class VertScroll <Super ScrollBar ! </a></b></pre><p>Scrollbar control (vertical). ! </p><pre><b><a name="312">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_VERT. ! </p><pre><b><a name="313">;Class </a></b></pre><p>End of VertScroll class </p><a name="SizeBox"></a> <h2>SizeBox class ! </h2><pre><b><a name="314">:Class SizeBox <Super ScrollBar ! </a></b></pre><p>Size box control. ! </p><pre><b><a name="315">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: SBS_SIZEGRIP. ! </p><pre><b><a name="316">;Class </a></b></pre><p>End of SizeBox class </p><a name="MonthCalendar"></a> <h2>MonthCalendar class ! </h2><pre><b><a name="317">:Class MonthCalendar <Super Control ! </a></b></pre><p>Month Calendar control. ! A month calendar control implements a calendar-like user interface. This ! provides the user with a very intuitive and recognizable method of entering ! or selecting a date. ! </p><pre><b><a name="318">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="319">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="320">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="321">:M MinSize: ( -- x y ) ! </a></b></pre><p>Return minimum size required to display a month. ! </p><pre><b><a name="322">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: WS_BORDER. ! </p><pre><b><a name="323">:M GetDate: ( -- day month year ) ! </a></b></pre><p>Retrieves the currently selected date. ! </p><p><i> day </i> is the day of the month (0-31). ! </p><p><i> Month </i> is the month (January = 1; December = 12) ! </p><p><i> year </i> is the year (1601 - 30827). ! </p><pre><b><a name="324">:M GetToday: ( -- day month year ) ! </a></b></pre><p>Retrieves the date information for the date specified as "today". ! </p><p><i> day </i> is the day of the month (0-31). ! </p><p><i> Month </i> is the month (January = 1; December = 12) ! </p><p><i> year </i> is the year (1601 - 30827). ! </p><pre><b><a name="325">;Class </a></b></pre><p>End of MonthCalendar class </p><a name="DateTimePicker"></a> <h2>DateTimePicker class ! </h2><pre><b><a name="326">:Class DateTimePicker <Super Control </a></b></pre><p>Date and Time Picker control ! </p><pre><b><a name="327">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="328">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="329">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="330">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: WS_BORDER. ! </p><pre><b><a name="331">:M SetCustomFormat: ( z"format" -- ) </a></b></pre><p>set the display format for time or date ! </p><pre><b><a name="332">:M GetTime: ( -- hrs min secs ) </a></b></pre><p>get user selected time ! </p><pre><b><a name="333">:M SetTime: ( hr min sec -- ) </a></b></pre><p>set time for user to edit ! </p><pre><b><a name="334">:M GetDate: ( -- day month year ) </a></b></pre><p>get user selected date ! </p><pre><b><a name="335">;Class </a></b></pre><p>End of DateTimePicker class </p><a name="TabControlr"></a> <h2>TabControl class ! </h2><pre><b><a name="336">:Class TabControl <Super Control </a></b></pre><p>Tab control ! </p><pre><b><a name="337">:M Start: ( Parent -- ) </a></b></pre><p>Create the control. ! </p><pre><b><a name="338">:M ClassInit: ( -- ) </a></b></pre><p>Initialise the class. ! </p><pre><b><a name="339">:M WindowStyle: ( -- style ) </a></b></pre><p>Get the window style of the control. Default style is: TCS_FOCUSONBUTTONDOWN. ! </p><pre><b><a name="340">:M AddStyle: ( n -- ) </a></b></pre><p>Set any additional style of the control. Must be done before the control is created. ! </p><pre><b><a name="341">:M InsertTab: ( index -- ) </a></b></pre><p>tc_item mask and other members must be set ! </p><pre><b><a name="342">:M GetTabInfo: ( index -- ) </a></b></pre><p>tc_item mask member must be set ! </p><pre><b><a name="343">:M SetTabInfo: ( index -- ) </a></b></pre><p>tc_item members must be set ! </p><pre><b><a name="344">:M ClientSize: ( -- x y w h ) </a></b></pre><p>return size of display area ! </p><pre><b><a name="345">:M WindowSize: ( 0 0 width height -- x y w h ) </a></b></pre><p>given display area return window size required ! </p><pre><b><a name="346">:M Enable: ( f -- ) </a></b></pre><p>Enable the control. ! </p><pre><b><a name="347">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="348">:M Setfont: ( handle -- ) </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="349">:M WindowTitle: ( -- null$ ) </a></b></pre><p>SintillaControl asks for window title of parent ! </p><pre><b><a name="350">;Class </a></b></pre><p>End of TabControl class </p><hr /><h1>ExControls -- More (enhanced) classes for none standard windows controls. </h1><hr /><a name="VertButtonBar"></a> <h2>VertButtonBar class ! </h2><pre><b><a name="351">:Class VertButtonBar <super VButtonBar </a></b></pre><p>VertButtonBar control </p><p>This is an enhanced Version of the VButtonBar class. </p><p>Note: this control isn't one of the standard control of MS windows. ! </p><pre><b><a name="352">:M SetFont: { fonthndl \ hb1 -- } </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="353">:M Enable: { flag \ hb1 -- } </a></b></pre><p>Enable the control. ! </p><pre><b><a name="354">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="355">;Class </a></b></pre><p>End of VertButtonBar class </p><a name="HorizButtonBar"></a> <h2>HorizButtonBar class ! </h2><pre><b><a name="356">:Class HorizButtonBar <super HButtonBar </a></b></pre><p>HorizButtonBar control </p><p>This is an enhanced Version of the HButtonBar class. </p><p>Note: this control isn't one of the standard control of MS windows. ! </p><pre><b><a name="357">:M SetFont: { fonthndl \ hb1 -- } </a></b></pre><p>Set the font in the control. ! </p><pre><b><a name="358">:M Enable: { flag \ hb1 -- } </a></b></pre><p>Enable the control. ! </p><pre><b><a name="359">:M Disable: ( -- ) </a></b></pre><p>Disable the control. ! </p><pre><b><a name="360">;Class </a></b></pre><p>End of HorizButtonBar class </p><hr><p>Document $Id$</p> |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:02:03
|
Update of /cvsroot/win32forth/win32forth/doc In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27763/doc Modified Files: p-relnotes.6.12.htm Added Files: p-noconsole.htm Log Message: Helper words for turnkey applications that don't need the console window and the w32fConsole.dll added. Index: p-relnotes.6.12.htm =================================================================== RCS file: /cvsroot/win32forth/win32forth/doc/p-relnotes.6.12.htm,v retrieving revision 1.7 retrieving revision 1.8 diff -C2 -d -r1.7 -r1.8 *** p-relnotes.6.12.htm 15 Jan 2006 11:07:27 -0000 1.7 --- p-relnotes.6.12.htm 9 Feb 2006 18:01:44 -0000 1.8 *************** *** 219,222 **** --- 219,223 ---- <li><a href="../src/tools/AxConInfo.f">src/tools/AxConInfo.f - Shows informations about an ActiveX control</a></li> <li><a href="p-dexh.htm">DexH - Document Extractor</a></li> + <li><a href="p-noconsole.htm">Helper words for turnkey applications that don't need the w32fConsole.dll</a></li> </ul> --- NEW FILE: p-noconsole.htm --- <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: p-noconsole.htm,v 1.1 2006/02/09 18:01:44 dbu_de Exp $"> <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>No console </h1><hr /><h3><i>Helper words for turnkey applications that don't need the console window and the <i> w32fConsole.dll </i>. </i></h3><p></p><p>To use this words you must load the file <i> src/console/NoConsole.f </i> first. </p><h2>Glossary </h2><pre><b><a name="0">: MessageLoop ( -- ) \ W32F console </a></b></pre><p>The message loop for the application. Use this instead of: <i> BEGIN KEY DROP AGAIN </i>. </p><pre><b><a name="1">: NoConsoleIO ( -- ) \ W32F console </a></b></pre><p>Setup of the Console I/O for turnkey applications that don't need the console window. </p><pre><b><a name="2">: NoConsoleInImage ( -- ) \ W32F console </a></b></pre><p>Tell Imageman that we don't need the w32fconsole.dll if possible. </p><h2>Example </h2><pre>: Main ( -- ) \ things to do to start the application ... \ enter the message loop Turnkeyed? IF MessageLoop bye THEN ; turnkey? [if] \ Setup the console I/O NoConsoleIO \ Tell Imageman that we don't need the w32fconsole.dll. NoConsoleInImage \ Create the exe-file ' Main turnkey PlayVirginRadio.exe \ add the Application icon to the EXE file s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon 1 pause-seconds bye [else] s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon Main [then] </pre><p>For a full working example see <i> apps/PlayVirginRadio/PlayVirginRadio.f </i>. </p><hr><p>Document $Id: p-noconsole.htm,v 1.1 2006/02/09 18:01:44 dbu_de Exp $</p> </body></html> |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:01:52
|
Update of /cvsroot/win32forth/win32forth/src/console In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27763/src/console Added Files: NoConsole.f Log Message: Helper words for turnkey applications that don't need the console window and the w32fConsole.dll added. --- NEW FILE: NoConsole.f --- \ File: NoConsole.f \ Author: Dirk Busch di...@wi... \ *D doc \ *! p-noconsole \ *T No console \ *Q Helper words for turnkey applications that don't need the console window and the \i w32fConsole.dll \d. \ *P To use this words you must load the file \i src/console/NoConsole.f \d first. \ *S Glossary cr .( Loading NoConsole...) anew -NoConsole.f \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ Turnkey without needing w32fConsole.dll \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ in-application internal Create MessageStructure 32 allot : K_NOOP0 2DROP 0 ; : K_NOOP1 0 ; : K_NOOP2 0 0 ; : NoConsole ( -- ) initialization-chain do-chain default-application ; external : MessageLoop ( -- ) \ W32F console \ *G The message loop for the application. \ ** Use this instead of: \i BEGIN KEY DROP AGAIN \d. BEGIN 0 0 0 MessageStructure Call GetMessage WHILE MessageStructure HandleMessages drop REPEAT ; in-system : NoConsoleIO ( -- ) \ W32F console \ *G Setup of the Console I/O for turnkey applications that don't need \ ** the console window. \ reset all deferd words for the console window to noop's. ['] NOOP IS INIT-CONSOLE-REG ['] K_NOOP1 IS INIT-CONSOLE ['] NOOP IS INIT-SCREEN ['] K_NOOP1 IS KEY ['] K_NOOP1 IS KEY? ['] K_NOOP0 IS ACCEPT ['] DROP IS PUSHKEY ['] 2DROP IS "PUSHKEYS ['] K_NOOP1 IS SHIFTMASK ['] NOOP IS CLS ['] DROP IS EMIT ['] 2DROP IS TYPE ['] NOOP IS CR ['] DROP IS ?CR ['] NOOP IS CONSOLE ['] 2DROP IS GOTOXY ['] K_NOOP2 IS GETXY ['] K_NOOP2 IS GETCOLROW ['] K_NOOP1 IS SIZESTATE ['] 4DROP IS MARKCONSOLE ['] NOOP IS CURSORINVIEW ['] 2DROP IS FGBG! ['] K_NOOP1 IS FG@ ['] K_NOOP1 IS BG@ ['] K_NOOP2 IS CHARWH ['] 2DROP IS SETCHARWH ['] 2DROP IS SETCOLROW ['] DROP IS SET-CURSOR ['] K_NOOP1 IS GET-CURSOR ['] DROP IS SETROWOFF ['] K_NOOP1 IS GETROWOFF ['] K_NOOP2 IS GETMAXCOLROW ['] 2DROP IS SETMAXCOLROW ['] K_NOOP1 IS &THE-SCREEN \ reset BYE to default ['] k_bye is bye \ set default-hello for the turnkey application ['] NoConsole is default-hello ; : NoConsoleInImage ( -- ) \ W32F console \ *G Tell Imageman that we don't need the w32fconsole.dll if possible. \ In older w32f versions you have to modify Imageman.f to do this. \+ VIMAGE also VIMAGE \+ CONSOLE-DLL? false to CONSOLE-DLL? ; in-application module \s \ *S Example \ *E : Main ( -- ) \ ** \ things to do to start the application \ ** ... \ ** \ ** \ enter the message loop \ ** Turnkeyed? \ ** IF MessageLoop bye \ ** THEN ; \ ** \ ** turnkey? [if] \ ** \ ** \ Setup the console I/O \ ** NoConsoleIO \ ** \ ** \ Tell Imageman that we don't need the w32fconsole.dll. \ ** NoConsoleInImage \ ** \ ** \ Create the exe-file \ ** ' Main turnkey PlayVirginRadio.exe \ ** \ ** \ add the Application icon to the EXE file \ ** s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon \ ** \ ** 1 pause-seconds bye \ ** [else] \ ** s" apps\PlayVirginRadio\Virgin.ico" s" PlayVirginRadio.exe" AddAppIcon \ ** Main \ ** [then] \ *P For a full working example see \i apps/PlayVirginRadio/PlayVirginRadio.f \d. \ *Z |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:01:52
|
Update of /cvsroot/win32forth/win32forth/src/tools In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27763/src/tools Modified Files: DexH-CreateDocs.f Log Message: Helper words for turnkey applications that don't need the console window and the w32fConsole.dll added. Index: DexH-CreateDocs.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/src/tools/DexH-CreateDocs.f,v retrieving revision 1.12 retrieving revision 1.13 diff -C2 -d -r1.12 -r1.13 *** DexH-CreateDocs.f 6 Feb 2006 17:48:18 -0000 1.12 --- DexH-CreateDocs.f 9 Feb 2006 18:01:44 -0000 1.13 *************** *** 58,61 **** --- 58,62 ---- s" src\Classdbg.f" create-doc s" src\FLOAT.F" create-doc + s" src\console\NoConsole.f" create-doc ; |
|
From: Dirk B. <db...@us...> - 2006-02-09 18:01:52
|
Update of /cvsroot/win32forth/win32forth/apps/PlayVirginRadio In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv27763/apps/PlayVirginRadio Modified Files: PlayVirginRadio.f Log Message: Helper words for turnkey applications that don't need the console window and the w32fConsole.dll added. Index: PlayVirginRadio.f =================================================================== RCS file: /cvsroot/win32forth/win32forth/apps/PlayVirginRadio/PlayVirginRadio.f,v retrieving revision 1.8 retrieving revision 1.9 diff -C2 -d -r1.8 -r1.9 *** PlayVirginRadio.f 15 Jan 2006 09:29:14 -0000 1.8 --- PlayVirginRadio.f 9 Feb 2006 18:01:44 -0000 1.9 *************** *** 18,24 **** needs HtmlControl.f needs SoundVolume.f needs Resources.f ! true value turnkey? \ ----------------------------------------------------------------------------- --- 18,25 ---- needs HtmlControl.f needs SoundVolume.f + needs NoConsole.f needs Resources.f ! true value turnkey? \ ----------------------------------------------------------------------------- *************** *** 45,54 **** :M WM_CLOSE ( h m w l -- res ) SoundOff Stop: Player ! DestroyWindow: Player ! ! WM_CLOSE WM: Super ! bye 0 ;M :M GetTooltip: ( -- addr len ) --- 46,58 ---- :M WM_CLOSE ( h m w l -- res ) + bye 0 ;M + + :M On_Done: ( h m w l -- res ) SoundOff Stop: Player ! SoundOn ! 0 call PostQuitMessage drop \ terminate application ! On_Done: super \ cleanup the super class ! 0 ;M :M GetTooltip: ( -- addr len ) *************** *** 95,141 **** :M On_Init: ( hWnd-focus -- f ) ! about-head zcount IDD_ABOUT_HEAD SetDlgItemText: self ! about-msg1 zcount IDD_ABOUT_TEXT SetDlgItemText: self ! about-msg2 zcount IDD_ABOUT_TEXT2 SetDlgItemText: self ! about-msg3 zcount IDD_ABOUT_TEXT3 SetDlgItemText: self ! 1 ;M :M On_Command: ( hCtrl code ID -- f1 ) ! CASE ! IDCANCEL OF 0 end-dialog ENDOF ! false swap ( default result ) ! ENDCASE ;M :M Start: ( -- f ) ! Addr: MainWindow template run-dialog ;M ;Object \ ----------------------------------------------------------------------------- - \ Define the Popup bar \ ----------------------------------------------------------------------------- popupbar player-popup-bar popup " " menuitem "&Turn sound on/off" SoundOnOff ; menuseparator ! menuitem "&Close Virgin Radio Player" DestroyWindow: MainWindow ; menuseparator menuitem "&About Virgin Radio Player" Start: AboutDialog ; endbar - \ ----------------------------------------------------------------------------- - \ ----------------------------------------------------------------------------- - : UnloadPlayer ( -- ) - DestroyWindow: MainWindow - SoundOn \ turn the sound on - ; - unload-chain chain-add-before UnloadPlayer - - \ ----------------------------------------------------------------------------- - \ ----------------------------------------------------------------------------- : StartPlayer ( -- ) Start: MainWindow Play: MainWindow \ start playing radio... ! SoundOn \ turn the sound on HideWindow: MainWindow \ hide the window in the traybar player-popup-bar SetPopupBar: MainWindow --- 99,144 ---- :M On_Init: ( hWnd-focus -- f ) ! about-head zcount IDD_ABOUT_HEAD SetDlgItemText: self ! about-msg1 zcount IDD_ABOUT_TEXT SetDlgItemText: self ! about-msg2 zcount IDD_ABOUT_TEXT2 SetDlgItemText: self ! about-msg3 zcount IDD_ABOUT_TEXT3 SetDlgItemText: self ! 1 ;M :M On_Command: ( hCtrl code ID -- f1 ) ! CASE ! IDCANCEL OF 0 end-dialog ENDOF ! false swap ( default result ) ! ENDCASE ;M :M Start: ( -- f ) ! Addr: MainWindow template run-dialog ;M ;Object + \ ----------------------------------------------------------------------------- \ ----------------------------------------------------------------------------- + + : ExitPlayer ( -- ) + \ *G Exit the player. + SoundOff + Close: MainWindow + SoundOn bye ; + popupbar player-popup-bar + \ *G Define the Popup menu for the player. popup " " menuitem "&Turn sound on/off" SoundOnOff ; menuseparator ! menuitem "&Close Virgin Radio Player" ExitPlayer ; menuseparator menuitem "&About Virgin Radio Player" Start: AboutDialog ; endbar : StartPlayer ( -- ) + \ *G Start the player. Start: MainWindow Play: MainWindow \ start playing radio... ! Sound? 0= if 100 100 volume! then \ turn the sound on HideWindow: MainWindow \ hide the window in the traybar player-popup-bar SetPopupBar: MainWindow *************** *** 143,163 **** \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ \\\\\ Turnkey without needing w32fConsole.dll \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ - - Create MessageStructure 32 allot - : MessageLoop ( -- ) \ instead of "Begin key drop again" - BEGIN 0 0 0 MessageStructure Call GetMessage - WHILE MessageStructure HandleMessages drop - REPEAT - ; - - : NoConsole ( -- ) - initialization-chain do-chain - default-application ; - ' NoConsole is default-hello - - - \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\ The application \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ --- 146,149 ---- *************** *** 171,178 **** turnkey? [if] ! \ Tell Imageman that we don't need the w32fconsole.dll if possible ! \ (in older w32f versions you have to modify Imageman.f to do this). ! \+ VIMAGE also VIMAGE ! \+ CONSOLE-DLL? false to CONSOLE-DLL? \ Create the exe-file --- 157,165 ---- turnkey? [if] ! \ Setup the Console I/O for an application without the console window. ! NoConsoleIO ! ! \ Tell Imageman that we don't need the w32fconsole.dll. ! NoConsoleInImage \ Create the exe-file |
|
From: George H. <geo...@us...> - 2006-02-09 11:09:32
|
Update of /cvsroot/win32forth/win32forth-610old/src/kernel In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17257/win32forth-610old/src/kernel Modified Files: fkernel.f version.f Log Message: gah: Corrected \\ to fix fload bug. Altered version to V6.10.04 (needs updating of download). Index: fkernel.f =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/src/kernel/fkernel.f,v retrieving revision 1.4 retrieving revision 1.5 diff -C2 -d -r1.4 -r1.5 *** fkernel.f 20 Jun 2005 15:28:47 -0000 1.4 --- fkernel.f 9 Feb 2006 11:09:00 -0000 1.5 *************** *** 351,355 **** pop ebx jo short @@1 ! br-next @@1: mov eax, 4 [esi] add esi, # 8 --- 351,355 ---- pop ebx jo short @@1 ! br-next @@1: mov eax, 4 [esi] add esi, # 8 *************** *** 1870,1876 **** mov eax, # 1234 \ get constant (patched, see res-multi-libs) LABEL RES-MULTI-X \ cell beyond patch address ! xchg esp, ebp \ swap regs for call call callf \ resolve with forth call ! xchg esp, ebp \ swap regs for call mov eax, ebx \ get address pop ebx \ correct the stack --- 1870,1876 ---- mov eax, # 1234 \ get constant (patched, see res-multi-libs) LABEL RES-MULTI-X \ cell beyond patch address ! xchg esp, ebp \ swap regs for call call callf \ resolve with forth call ! xchg esp, ebp \ swap regs for call mov eax, ebx \ get address pop ebx \ correct the stack *************** *** 1882,1888 **** mov eax, # 1234 \ get constant (patched, see res-single-lib) LABEL RES-SINGLE-X \ cell beyond patch address ! xchg esp, ebp \ swap regs for call call callf \ resolve with forth call ! xchg esp, ebp \ swap regs for call mov eax, ebx \ get address pop ebx \ correct the stack --- 1882,1888 ---- mov eax, # 1234 \ get constant (patched, see res-single-lib) LABEL RES-SINGLE-X \ cell beyond patch address ! xchg esp, ebp \ swap regs for call call callf \ resolve with forth call ! xchg esp, ebp \ swap regs for call mov eax, ebx \ get address pop ebx \ correct the stack *************** *** 2214,2218 **** - REPEAT DROP ; ! DEFER COL --- 2214,2218 ---- - REPEAT DROP ; ! DEFER COL *************** *** 3334,3338 **** \ *G Compiletime: Parses the input stream until it finds the next " and \ ** compiles it into the current definition. ! \ ** Runtime: Prints the compiled text to the console window COMPILE (.") ," ; IMMEDIATE --- 3334,3338 ---- \ *G Compiletime: Parses the input stream until it finds the next " and \ ** compiles it into the current definition. ! \ ** Runtime: Prints the compiled text to the console window COMPILE (.") ," ; IMMEDIATE *************** *** 4121,4125 **** : IF ?COMP HERE 2 CELLS - @ DUP ['] COMPILE = SWAP ['] LIT = OR 0= ! HERE CELL - @ ['] DUP = AND IF CELL NEGATE ALLOT COMPILE -?BRANCH ELSE COMPILE ?BRANCH --- 4121,4125 ---- : IF ?COMP HERE 2 CELLS - @ DUP ['] COMPILE = SWAP ['] LIT = OR 0= ! HERE CELL - @ ['] DUP = AND IF CELL NEGATE ALLOT COMPILE -?BRANCH ELSE COMPILE ?BRANCH *************** *** 4232,4236 **** : ("HEADER) ( a1 n1 -- ) CURRENT @ DUP SYS-ADDR? \ if the dictionary is in system space ! over class>sys or \ or is a class or object IF >SYSTEM ELSE >APPLICATION THEN \ then build the header in the same space 2000 ?MEMCHK \ check avail mem --- 4232,4236 ---- : ("HEADER) ( a1 n1 -- ) CURRENT @ DUP SYS-ADDR? \ if the dictionary is in system space ! over class>sys or \ or is a class or object IF >SYSTEM ELSE >APPLICATION THEN \ then build the header in the same space 2000 ?MEMCHK \ check avail mem *************** *** 4333,4337 **** FALSE TO ?:M 0 TO PARMS ; ! |: :COLONDEF ( -- ) PARMS-INIT DOCOL COMPILE, !CSP ] ; --- 4333,4337 ---- FALSE TO ?:M 0 TO PARMS ; ! |: :COLONDEF ( -- ) PARMS-INIT DOCOL COMPILE, !CSP ] ; *************** *** 4432,4436 **** DOVALUE! COMPILE, DOVALUE+! COMPILE, ; ! in-system --- 4432,4436 ---- DOVALUE! COMPILE, DOVALUE+! COMPILE, ; ! in-system *************** *** 4541,4545 **** ( n2 -- n3 ) \ runtime n3=n1+n2 header dooff compile, , ; ! : field+ ( n1 n2 <-name-> -- n3 ) \ compiling n3=n1+n2 stored offset=n1 ( addr1 -- addr2 ) \ runtime addr2=addr1+n1 --- 4541,4545 ---- ( n2 -- n3 ) \ runtime n3=n1+n2 header dooff compile, , ; ! : field+ ( n1 n2 <-name-> -- n3 ) \ compiling n3=n1+n2 stored offset=n1 ( addr1 -- addr2 ) \ runtime addr2=addr1+n1 *************** *** 4868,4872 **** : FLOAD ( -<filename>- ) \ load "filename" into application dictionary /PARSE-S$ $FLOAD ; ! ' INCLUDED ALIAS "FLOAD ' FLOAD ALIAS INCLUDE --- 4868,4872 ---- : FLOAD ( -<filename>- ) \ load "filename" into application dictionary /PARSE-S$ $FLOAD ; ! ' INCLUDED ALIAS "FLOAD ' FLOAD ALIAS INCLUDE *************** *** 4885,4889 **** : \ ( -- ) ! (SOURCE) >IN ! ; IMMEDIATE --- 4885,4889 ---- : \ ( -- ) ! (SOURCE) @ >IN ! ; IMMEDIATE *************** *** 5177,5181 **** : PARMFIND ( addr -- addr FALSE | cfa -1 | cfa 1 ) dup count find-buffer place \ copy for case-sensitive searches ! ?UPPERCASE \ uppercase PFIND ?DUP 0= IF (FIND) ?DUP 0= --- 5177,5181 ---- : PARMFIND ( addr -- addr FALSE | cfa -1 | cfa 1 ) dup count find-buffer place \ copy for case-sensitive searches ! ?UPPERCASE \ uppercase PFIND ?DUP 0= IF (FIND) ?DUP 0= *************** *** 5258,5262 **** R> BASE ! \ restore base ; ! : WARNMSG ( n -- ) \ prints Warning: S" Warning" (TYPEMSG) ; \ mark the source line in error, warning --- 5258,5262 ---- R> BASE ! \ restore base ; ! : WARNMSG ( n -- ) \ prints Warning: S" Warning" (TYPEMSG) ; \ mark the source line in error, warning *************** *** 5268,5272 **** THEN DROP ; ! DEFER MESSAGE ' _MESSAGE IS MESSAGE : QUERY-INTERPRET ( -- ) --- 5268,5272 ---- THEN DROP ; ! DEFER MESSAGE ' _MESSAGE IS MESSAGE : QUERY-INTERPRET ( -- ) *************** *** 5833,5837 **** in-application ! ' CONSTANT RESOLVES CONSTANT ' THROW RESOLVES THROW ' START/STOP RESOLVES START/STOP --- 5833,5837 ---- in-application ! ' CONSTANT RESOLVES CONSTANT ' THROW RESOLVES THROW ' START/STOP RESOLVES START/STOP *************** *** 5880,5882 **** \ Prad~ - |
|
From: George H. <geo...@us...> - 2006-02-09 11:09:32
|
Update of /cvsroot/win32forth/win32forth-610old In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv17257/win32forth-610old Modified Files: Win32for.cfg fkernel.exe Log Message: gah: Corrected \\ to fix fload bug. Altered version to V6.10.04 (needs updating of download). Index: Win32for.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/Win32for.cfg,v retrieving revision 1.2 retrieving revision 1.3 diff -C2 -d -r1.2 -r1.3 Binary files /tmp/cvsFfUgjJ and /tmp/cvsCF8dip differ Index: fkernel.exe =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/fkernel.exe,v retrieving revision 1.5 retrieving revision 1.6 diff -C2 -d -r1.5 -r1.6 Binary files /tmp/cvsVAlw0R and /tmp/cvsjokWry differ |
|
From: George H. <geo...@us...> - 2006-02-08 16:51:59
|
Update of /cvsroot/win32forth/win32forth-610old In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv25435/win32forth-610old Modified Files: Win32for.cfg Log Message: gah: Quick fix for fload bug Index: Win32for.cfg =================================================================== RCS file: /cvsroot/win32forth/win32forth-610old/Win32for.cfg,v retrieving revision 1.1 retrieving revision 1.2 diff -C2 -d -r1.1 -r1.2 Binary files /tmp/cvss56W8K and /tmp/cvsednbSb differ |
1040 messages has been excluded from this view by a project administrator.
