CreateSocket ~ac/lib/win/winsock/SOCKETS.F ( -- socket ior ) CreateSocketWithTimeout ~ac/lib/win/winsock/SOCKETS.F ( -- socket ior ) SetSocketTimeout ~ac/lib/win/winsock/SOCKETS.F ( timeout socket -- ior ) CreateUdpSocket ~ac/lib/win/winsock/SOCKETS.F ( -- socket ior ) CreateBroadcastSocket ~ac/lib/win/winsock/SOCKETS.F ( -- socket ior ) ToRead ~ac/lib/win/winsock/SOCKETS.F ( socket -- n ior ) BindSocketInterface ~ac/lib/win/winsock/SOCKETS.F ( port ip s -- ior ) ConnectSocket ~ac/lib/win/winsock/SOCKETS.F ( IP port socket -- ior ) CloseSocket ~ac/lib/win/winsock/SOCKETS.F ( s -- ior ) FastCloseSocket ~ac/lib/win/winsock/SOCKETS.F ( s -- ior ) WriteSocket ~ac/lib/win/winsock/SOCKETS.F ( addr u s -- ior ) WriteSocketLine ~ac/lib/win/winsock/SOCKETS.F ( addr u s -- ior ) WriteSocketCRLF ~ac/lib/win/winsock/SOCKETS.F ( s -- ior ) ReadSocket ~ac/lib/win/winsock/SOCKETS.F ( addr u s -- rlen ior ) GetHostName ~ac/lib/win/winsock/SOCKETS.F ( IP -- addr u ior ) Get.Host.Name ~ac/lib/win/winsock/SOCKETS.F ( addr u -- addr u ior ) GetHostIP ~ac/lib/win/winsock/SOCKETS.F ( addr u -- IP ior ) GetPeerName ~ac/lib/win/winsock/SOCKETS.F ( s -- addr u ior ) GetPeerIP ~ac/lib/win/winsock/SOCKETS.F ( s -- IP ior ) GetPeerIP&Port ~ac/lib/win/winsock/SOCKETS.F ( s -- IP port ior ) SocketsStartup ~ac/lib/win/winsock/SOCKETS.F ( -- ior ) SocketsCleanup ~ac/lib/win/winsock/SOCKETS.F ( -- ior ) BindSocket ~ac/lib/win/winsock/SOCKETS.F ( port s -- ior ) ReuseAddrSocket ~ac/lib/win/winsock/SOCKETS.F ( s -- ior ) ReusedBindSocket ~ac/lib/win/winsock/SOCKETS.F ( port s -- ior ) ListenSocket ~ac/lib/win/winsock/SOCKETS.F ( s -- ior ) AcceptSocket ~ac/lib/win/winsock/SOCKETS.F ( s -- s2 ior ) NtoA ~ac/lib/win/winsock/SOCKETS.F ( IP -- addr u ) AcceptSocketNotBlock ~ac/lib/win/winsock/SOCKETS.F ( s -- s2 ior ) GetHostIPs ~ac/lib/win/winsock/SOCKETS.F ( addr u -- IPab IPae ior ) ConnectHost ~ac/lib/win/winsock/SOCKETS.F ( addr u port -- sock ior ) READ-SOCK-EXACT ~ac/lib/win/winsock/SOCKETS.F ( a u socket -- ior ) ReadSocketExact ~ac/lib/win/winsock/SOCKETS.F ( a u socket -- ior ) LoadLibEx ~ac/lib/win/winsock/ssl.f ( addr u -- h ) LoadSslLibrary ~ac/lib/win/winsock/ssl.f ( -- ) LoadSsleLibrary ~ac/lib/win/winsock/ssl.f ( -- ) CREATE-SSL-MUT ~ac/lib/win/winsock/ssl.f SSLAPI: ~ac/lib/win/winsock/ssl.f SSLEAPI: ~ac/lib/win/winsock/ssl.f SslInit ~ac/lib/win/winsock/ssl.f ( -- ) SslNewServerContext ~ac/lib/win/winsock/ssl.f ( pema pemu type \ c -- context ) SslNewClientContext ~ac/lib/win/winsock/ssl.f ( pema pemu type \ c -- context ) SslSetVerifyDepth ~ac/lib/win/winsock/ssl.f ( depth context -- ) SslSetVerify ~ac/lib/win/winsock/ssl.f ( pema pemu mode context -- ) SslGetVerifyResults ~ac/lib/win/winsock/ssl.f ( conn \ cert name mem -- cert addr u ior ) SslObjConnect ~ac/lib/win/winsock/ssl.f ( socket context -- conn_obj ) SslObjAccept ~ac/lib/win/winsock/ssl.f ( socket context -- conn_obj ) SslWrite ~ac/lib/win/winsock/ssl.f ( addr u conn_obj -- n ) SslRead ~ac/lib/win/winsock/ssl.f ( addr u conn_obj -- n ) FailedSsl ~ac/lib/win/winsock/sockets_ssl.f ( ior -- namea nameu cert ) SslServerSocket ~ac/lib/win/winsock/sockets_ssl.f ( addr u verify s -- namea nameu cert ) SslClientSocket ~ac/lib/win/winsock/sockets_ssl.f ( addr u verify s -- namea nameu cert ) WriteSocket ~ac/lib/win/winsock/sockets_ssl.f ( addr u s -- ior ) WriteSocketLine ~ac/lib/win/winsock/sockets_ssl.f ( addr u s -- ior ) WriteSocketCRLF ~ac/lib/win/winsock/sockets_ssl.f ( s -- ior ) ReadSocket ~ac/lib/win/winsock/sockets_ssl.f ( addr u s -- rlen ior ) CloseSocket ~ac/lib/win/winsock/sockets_ssl.f ( s -- ior ) read ~ac/lib/win/winsock/sockets_ssl.f ( addr len socket -- ) upTo0 ~ac/lib/win/winsock/sockets_ssl.f ( -- ) READ-SOCK-EXACT ~ac/lib/win/winsock/sockets_ssl.f ( a u socket -- ior ) ReadSocketExact ~ac/lib/win/winsock/sockets_ssl.f ( a u socket -- ior ) SocketLine ~ac/lib/win/winsock/socketline2.f ( socket -- addr-S ) SocketGetPending ~ac/lib/win/winsock/socketline2.f ( addr-S -- addr1 u1 ) SocketReadFromPending ~ac/lib/win/winsock/socketline2.f ( u1 addr-S -- addr1 u2 ) SocketContRead1 ~ac/lib/win/winsock/socketline2.f ( addr-S -- ) SocketContRead2 ~ac/lib/win/winsock/socketline2.f ( addr-S -- ior ) SocketContRead ~ac/lib/win/winsock/socketline2.f SocketReadLine ~ac/lib/win/winsock/socketline2.f ( addr -- addr1 u1 ) CreateServerSocket ~ac/lib/win/winsock/socketline2.f ( port -- socket ) sockIP&Port ~ac/lib/win/winsock/SOCKNAME.F ( socket -- IP port ) ReadFrom ~ac/lib/win/winsock/SOCKNAME.F ( addr u socket -- size IP port ) WriteTo ~ac/lib/win/winsock/SOCKNAME.F ( IP port addr u socket -- ) fsock ~ac/lib/win/winsock/PSOCKET.F ( socketline -- socket ) fsockopen_old ~ac/lib/win/winsock/PSOCKET.F ( server port -- socketline ) fsockopen ~ac/lib/win/winsock/PSOCKET.F ( server port -- socketline ) fclose ~ac/lib/win/winsock/PSOCKET.F ( socketline -- ) fast-fclose ~ac/lib/win/winsock/PSOCKET.F ( socketline -- ) fputs ~ac/lib/win/winsock/PSOCKET.F ( str socketline -- ) fgets ~ac/lib/win/winsock/PSOCKET.F ( socketline -- str ) ExternIP: ~ac/lib/win/winsock/foreach_ip.f EIP, ~ac/lib/win/winsock/foreach_ip.f ExternIPs: ~ac/lib/win/winsock/foreach_ip.f ForEachIP ~ac/lib/win/winsock/foreach_ip.f ( xt \ addr -- ior ) IsLocalhost ~ac/lib/win/winsock/foreach_ip.f ( ip -- flag ) IsMyIP ~ac/lib/win/winsock/foreach_ip.f ( ip \ addr sp -- flag ) IsMyHostname ~ac/lib/win/winsock/foreach_ip.f ( addr u -- flag ) IsMyHostnameAndNotLocalhost ~ac/lib/win/winsock/foreach_ip.f ( addr u -- flag ) >B< ~ac/lib/win/winsock/dns_q.f TOKEN, ~ac/lib/win/winsock/dns_q.f ( addr u -- ) WT, ~ac/lib/win/winsock/dns_q.f ( x -- ) HOLDS ~ac/lib/win/winsock/dns_q.f ( addr u -- ) XCOUNT ~ac/lib/win/winsock/dns_q.f FreeField ~ac/lib/win/winsock/dns_q.f ( af -- ) GetFieldData ~ac/lib/win/winsock/dns_q.f ( af -- addr u ) SetFieldData ~ac/lib/win/winsock/dns_q.f ( addr u af -- ) AddName ~ac/lib/win/winsock/dns_q.f ( addr u -- ) FreeRlist ~ac/lib/win/winsock/dns_q.f PrintRL ~ac/lib/win/winsock/dns_q.f ( addr -- ) PrintRLIST ~ac/lib/win/winsock/dns_q.f ( -- ) PrintReceivedRDs ~ac/lib/win/winsock/dns_q.f ( type -- ) PrintReceivedMXs ~ac/lib/win/winsock/dns_q.f ( -- ) EnumReceivedRDs ~ac/lib/win/winsock/dns_q.f ( type -- n ) EnumReceivedMXs ~ac/lib/win/winsock/dns_q.f ( -- n ) PrepareDnsQuery ~ac/lib/win/winsock/dns_q.f ( qtype addr u -- ) BsStartup ~ac/lib/win/winsock/dns_q.f BsCloseSocket ~ac/lib/win/winsock/dns_q.f BsReopen ~ac/lib/win/winsock/dns_q.f SendDnsQuery ~ac/lib/win/winsock/dns_q.f PrintName1 ~ac/lib/win/winsock/dns_q.f PrintName ~ac/lib/win/winsock/dns_q.f ParseName1 ~ac/lib/win/winsock/dns_q.f ( -- ... ) ParseName ~ac/lib/win/winsock/dns_q.f ( -- addr u ) ParseAddName ~ac/lib/win/winsock/dns_q.f ( -- ) PrintType ~ac/lib/win/winsock/dns_q.f ParseType ~ac/lib/win/winsock/dns_q.f PrintClass ~ac/lib/win/winsock/dns_q.f ParseClass ~ac/lib/win/winsock/dns_q.f PrintTTL ~ac/lib/win/winsock/dns_q.f ParseTTL ~ac/lib/win/winsock/dns_q.f NextRD ~ac/lib/win/winsock/dns_q.f PrintRD ~ac/lib/win/winsock/dns_q.f ParseRD ~ac/lib/win/winsock/dns_q.f PrintDnsQuestions ~ac/lib/win/winsock/dns_q.f ( n -- ) ParseDnsQuestions ~ac/lib/win/winsock/dns_q.f ( n -- ) PrintDnsAnswers ~ac/lib/win/winsock/dns_q.f ( n -- ) ParseDnsAnswers ~ac/lib/win/winsock/dns_q.f ( n -- ) PrintDnsReply ~ac/lib/win/winsock/dns_q.f ParseDnsReply ~ac/lib/win/winsock/dns_q.f ParseAnswer ~ac/lib/win/winsock/dns_q.f RecvDnsReplyIdMismatch ~ac/lib/win/winsock/dns_q.f RecvDnsReply ~ac/lib/win/winsock/dns_q.f NextDNS ~ac/lib/win/winsock/dns_q.f ( -- flag ) DNS-SERVER. ~ac/lib/win/winsock/dns_q.f GetRRs ~ac/lib/win/winsock/dns_q.f ( hosta hostu type \ attempts -- n ) GetRRn ~ac/lib/win/winsock/dns_q.f ( hosta hostu type \ attempts -- n ) GetDomainFromEmail ~ac/lib/win/winsock/dns_q.f GetUserFromEmail ~ac/lib/win/winsock/dns_q.f DnsValidateDomain ~ac/lib/win/winsock/dns_q.f ( domaina domainu -- flag ) DnsValidateEmailDomain ~ac/lib/win/winsock/dns_q.f ( emaila emailu -- flag ) DnsValidateList ~ac/lib/win/winsock/dns_q.f ( addr u -- ) GetMXs_old ~ac/lib/win/winsock/dns_q.f ( domaina domainu -- n ) GetMXs ~ac/lib/win/winsock/dns_q.f ( domaina domainu -- n ) NextMX ~ac/lib/win/winsock/dns_q.f ( -- servera serveru true | false ) DnsDomainExistsOld ~ac/lib/win/winsock/dns_q.f ( domaina domainu -- flag ) DnsDomainExists ~ac/lib/win/winsock/dns_q.f ( domaina domainu -- flag ) GetHosts ~ac/lib/win/winsock/dns_q.f ( namea nameu -- n ) NextRR ~ac/lib/win/winsock/dns_q.f ( type -- hosta hostu true | false ) NextHost ~ac/lib/win/winsock/dns_q.f ( -- hosta hostu true | false ) IsNameMatchesIp ~ac/lib/win/winsock/dns_q.f ( namea nameu ip -- err false | true ) PutFileTr ~ac/lib/win/winsock/transmit.f ( h s -- ior ) SnmpFreeOutValue ~ac/lib/win/snmp/snmp.f ( -- ) SnmpDumpReceivedPdu ~ac/lib/win/snmp/snmp.f ( -- ) SnmpGraphReceivedPdu ~ac/lib/win/snmp/snmp.f ( -- ) SnmpExecReceivedPdu ~ac/lib/win/snmp/snmp.f ( -- ) SnmpFreeReceivedPdu ~ac/lib/win/snmp/snmp.f SnmpGetType ~ac/lib/win/snmp/snmp.f ( S"oid" type S"host" -- ) SnmpGetTypeExSend ~ac/lib/win/snmp/snmp.f ( S"oid" type S"community" S"host" port -- ) SnmpGetTypeExRecv ~ac/lib/win/snmp/snmp.f ( -- ) SnmpGetTypeEx ~ac/lib/win/snmp/snmp.f ( S"oid" type S"community" S"host" port -- ) SnmpGet ~ac/lib/win/snmp/snmp.f ( S"oid" S"host" -- ) SnmpGetNext ~ac/lib/win/snmp/snmp.f ( S"oid" S"host" -- ) SnmpInit ~ac/lib/win/snmp/snmp.f SnmpStrValue ~ac/lib/win/snmp/snmp.f ( addr u -- addr2 ) SnmpGaugeValue ~ac/lib/win/snmp/snmp.f ( x -- addr2 ) SnmpIntValue ~ac/lib/win/snmp/snmp.f ( n -- addr2 ) SnmpUintValue ~ac/lib/win/snmp/snmp.f ( n -- addr2 ) SnmpCounterValue ~ac/lib/win/snmp/snmp.f ( n -- addr2 ) SnmpOidValue ~ac/lib/win/snmp/snmp.f ( addr u -- addr2 ) SnmpTimeValue ~ac/lib/win/snmp/snmp.f ( n -- addr2 ) SnmpOidName ~ac/lib/win/snmp/snmp.f ( addr u -- addr2 ) SnmpFreeVbIndex ~ac/lib/win/snmp/snmp.f ( index -- ) SnmpSetStrReply ~ac/lib/win/snmp/snmp.f ( index S"str" -- ) SnmpSetGaugeReply ~ac/lib/win/snmp/snmp.f ( index x -- ) SnmpSetIntReply ~ac/lib/win/snmp/snmp.f ( index n -- ) SnmpSetUintReply ~ac/lib/win/snmp/snmp.f ( index u -- ) SnmpSetCounterReply ~ac/lib/win/snmp/snmp.f ( index u -- ) SnmpSetOidReply ~ac/lib/win/snmp/snmp.f ( index S"o.i.d" -- ) SnmpSetTimeReply ~ac/lib/win/snmp/snmp.f ( index n -- ) SnmpSetReplyName ~ac/lib/win/snmp/snmp.f ( index S"o.i.d" -- ) 1.3.6.1.2.1.1.1.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.2.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.3.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.4.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.5.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.6.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.1.7.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.2.1.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.6.9.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.6.9 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.2.2.1.10.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.2.1.2.2.1.16.0 ~ac/lib/win/snmp/snmp.f 1.3.6.1.4.1.18474 ~ac/lib/win/snmp/snmp.f ROOT-DIR ~nn/lib/web/server.f HTTP-WRITE ~nn/lib/web/server.f ( a u -- ) NOT_FOUND ~nn/lib/web/server.f SEND_FILE ~nn/lib/web/server.f ( filename -- ) PROCESS_REQUEST ~nn/lib/web/server.f ( addr u -- ) (WS-THREAD) ~nn/lib/web/server.f ( s \ mem offs -- ) CP-WEB-INFO ~nn/lib/web/server.f ( s -- a ) (WS-SERVER) ~nn/lib/web/server.f ( port \ ss -- ) WEB-SERVER ~nn/lib/web/server.f ( port S"dir" -- task_id ) ShowAbout ~ygrek/lib/joopengl/GLWindow.f ( c-addr1 u1 c-addr2-u2 hwnd) status ~ygrek/lib/joopengl/GLWindow.f M, ~ygrek/lib/joopengl/GLWindow.f ( addr u -- addr+4 ) MC, ~ygrek/lib/joopengl/GLWindow.f ( addr c -- addr+4 ) MW, ~ygrek/lib/joopengl/GLWindow.f ( addr c -- addr+4 ) show ~ygrek/lib/joopengl/GLWindow.f ( node -- ) M, ~ygrek/lib/wfl/opengl/GLWindow.f ( addr u -- addr+4 ) MC, ~ygrek/lib/wfl/opengl/GLWindow.f ( addr c -- addr+4 ) MW, ~ygrek/lib/wfl/opengl/GLWindow.f ( addr c -- addr+4 ) set-reactions ~profit/misc/basicdraw.f ( "state-table -- ) glTHROW ~profit/misc/basicdraw.f ( res -- ) CLS ~profit/misc/basicdraw.f ( -- ) PIXEL ~profit/misc/basicdraw.f ( x y -- ) SET-COLOR ~profit/misc/basicdraw.f ( r g b -- ) SET-SIZE ~profit/misc/basicdraw.f ( w h -- ) START-DRAW ~profit/misc/basicdraw.f ( xt -- n ) REFRESH ~profit/misc/basicdraw.f ( -- ) mfree ~day/joop/lib/list.f FreeNode ~day/joop/lib/list.f ( node -- f) XCOUNT ~ac/lib/list/STR_LIST.F ( addr -- addr1 u1 ) NodeValue ~ac/lib/list/STR_LIST.F ( node -- value ) NextNode ~ac/lib/list/STR_LIST.F ( node1 -- node2 | 0 ) FirstNode ~ac/lib/list/STR_LIST.F ( list -- node ) DoList ~ac/lib/list/STR_LIST.F ( xt list -- ) inList ~ac/lib/list/STR_LIST.F ( addr u list -- flag ) FreeNode ~ac/lib/list/STR_LIST.F ( node -- ) FreeList ~ac/lib/list/STR_LIST.F ( list -- ) AddNode ~ac/lib/list/STR_LIST.F ( value list -- ) ReverseList ~ac/lib/list/STR_LIST.F ( list -- ) LINK, ~day/common/link.f ( list -- ) DO-LIST ~day/common/link.f ( list -- ) ITERATE-LIST ~day/common/link.f ( list xt -- ) ITERATE-LIST2 ~day/common/link.f ( list xt -- f ) CHAIN ~day/common/link.f ( "name" -- ) INHERITH-CHAIN ~day/common/link.f ( list "name" -- ) ADD-LINK ~day/common/link.f ( list "name" -- ) firstNode ~day/lib/staticlist.f ( list -- addr | 0 ) CalculateLastNode ~day/lib/staticlist.f ( list -- addr | 0 ) lastNode ~day/lib/staticlist.f ( list -- addr | 0 ) listNodeSize ~day/lib/staticlist.f ( list - u ) NextCircleNode ~day/lib/staticlist.f ( node -- node1 ) PrevCircleNode ~day/lib/staticlist.f ( node -- node1 ) InsertNodeBegin ~day/lib/staticlist.f ( addr list ) InsertNodeAfter ~day/lib/staticlist.f ( addr node list -- ) InsertNodeEnd ~day/lib/staticlist.f ( addr list ) ZALLOCATE ~day/lib/staticlist.f ( u -- addr ) ZALLOT ~day/lib/staticlist.f ( u -- addr ) AllocateNodeBegin ~day/lib/staticlist.f ( list -- addr | 0 ) AllocateNodeEnd ~day/lib/staticlist.f ( list -- addr | 0 ) AllocateNode ~day/lib/staticlist.f AllotNodeBegin ~day/lib/staticlist.f ( list -- addr ) AllotNodeEnd ~day/lib/staticlist.f ( list -- addr ) list: ~day/lib/staticlist.f ( u "ccc" ) CreateList ~day/lib/staticlist.f ( u -- addr ) CreateStaticList ~day/lib/staticlist.f ( u -- addr ) ForEach ~day/lib/staticlist.f ( xt list -- ) ?ForEachFrom ~day/lib/staticlist.f ( xt node -- node | 0 ) ?ForEach ~day/lib/staticlist.f ( xt list -- node | 0 ) ForEach: ~day/lib/staticlist.f ?ForEach: ~day/lib/staticlist.f FreeNode ~day/lib/staticlist.f ( node -- ) FastFreeNode ~day/lib/staticlist.f FreeList ~day/lib/staticlist.f ( list -- ) (listSize) ~day/lib/staticlist.f listSize ~day/lib/staticlist.f ( list -- u ) (listNth) ~day/lib/staticlist.f list[] ~day/lib/staticlist.f ( n list -- node | 0) (PrintList) ~day/lib/staticlist.f PrintList ~day/lib/staticlist.f ( list -- ) list-bottom ~pinka/lib/list_ext.f ( hlist -- node ) catanation-lists ~pinka/lib/list_ext.f ( h1 h2 -- ) list+s ~pinka/lib/list_ext.f ( i*x i list -- ) @list ~pinka/lib/list_ext.f ( list -- i*x i ) reverse-list-small ~pinka/lib/list_ext.f ( list -- ) reverse-list ~pinka/lib/list_ext.f ( list -- ) list_allot+ ~pinka/lib/list_ext.f ( value hlist -- ) -list_allot+ ~pinka/lib/list_ext.f ( value hlist -- ) list_alloc+ ~pinka/lib/list_ext.f ( value hlist -- ) dealloc-list ~pinka/lib/list_ext.f ( hlist -- ) list-each_value ~pinka/lib/list_ext.f ( xt hList -- ) for-list_values ~pinka/lib/list_ext.f ( hList xt -- ) exist-list_value ~pinka/lib/list_ext.f ( value hlist -- flag ) list_entry-node ~pinka/lib/list_ext.f ( value hlist -- node ) enum-list ~pinka/lib/list_ext.f ( xt hList -- ) HoldEnum ~pinka/lib/list_ext.f ?enum-list ~pinka/lib/list_ext.f ( xt hList -- ) node-entry ~pinka/lib/list_ext.f ( node -- value ) list-top ~pinka/lib/list_ext.f ( hlist -- node ) NEW-NODE ~ygrek/lib/list/core.f ( -- node ) FREE-NODE ~ygrek/lib/list/core.f ( node -- ) LINK-NODE ~ygrek/lib/list/core.f ( node1 node2 -- ) vnode ~ygrek/lib/list/core.f ( val -- node ) empty? ~ygrek/lib/list/core.f ( node -- ? ) cdr ~ygrek/lib/list/core.f ( node1 -- node2 ) car ~ygrek/lib/list/core.f ( node -- val ) setcar ~ygrek/lib/list/core.f ( val node -- ) cddr ~ygrek/lib/list/core.f cdddr ~ygrek/lib/list/core.f cdar ~ygrek/lib/list/core.f cddar ~ygrek/lib/list/core.f end ~ygrek/lib/list/core.f ( node -- node2 ) cons ~ygrek/lib/list/core.f ( node1 node2 -- node1 ) vcons ~ygrek/lib/list/core.f ( value node -- node1 ) concat-list ~ygrek/lib/list/core.f ( node1 node2 -- node ) map ~ygrek/lib/list/core.f ( xt node1 -- ) mapcar ~ygrek/lib/list/core.f ( xt node -- ) nth ~ygrek/lib/list/core.f ( n node -- node ) length ~ygrek/lib/list/core.f ( node -- n ) FREE-LIST ~ygrek/lib/list/core.f ( node -- ) (append) ~ygrek/lib/list/core.f ( node1 node2 -- ) append ~ygrek/lib/list/core.f ( node1 node2 -- node ) reverse-list ~ygrek/lib/list/core.f ( node -- node1 ) member? ~ygrek/lib/list/core.f ( n node -- ? ) LIST> ~ygrek/lib/list/core.f ( node -- x1 x2 ... xn ) as-value ~ygrek/lib/list/ext.f ( node -- node ) as-list ~ygrek/lib/list/ext.f ( node -- node ) as-str ~ygrek/lib/list/ext.f ( node -- ) value? ~ygrek/lib/list/ext.f ( node -- ? ) str? ~ygrek/lib/list/ext.f ( node -- ? ) list? ~ygrek/lib/list/ext.f ( node -- ? ) list-what ~ygrek/lib/list/ext.f ( node -- n ) cur-list ~ygrek/lib/list/ext.f ( -- list ) cur-list! ~ygrek/lib/list/ext.f ( list -- ) add-node ~ygrek/lib/list/ext.f ( node -- ) %n ~ygrek/lib/list/ext.f ( u -- ) % ~ygrek/lib/list/ext.f ( u -- ) %l ~ygrek/lib/list/ext.f ( l -- ) %s ~ygrek/lib/list/ext.f ( s -- ) lst( ~ygrek/lib/list/ext.f ( -- ) )lst ~ygrek/lib/list/ext.f ( -- list ) %[ ~ygrek/lib/list/ext.f ]% ~ygrek/lib/list/ext.f ]%l ~ygrek/lib/list/ext.f FREE-LIST ~ygrek/lib/list/ext.f ( node -- ) filter-this ~ygrek/lib/list/more.f ( xt node1 -- node2 ) scan-list ~ygrek/lib/list/more.f ( xt node -- node1 -1 | empty-list 0 ) mapcar ~ygrek/lib/list/more.f ( xt node -- ) map ~ygrek/lib/list/more.f ( xt node1 -- ) list-remove-all ~ygrek/lib/list/more.f ( val node -- node1 ) mapcar! ~ygrek/lib/list/more.f ( xt node -- ) list-remove-dublicates ~ygrek/lib/list/more.f ( lst -- ) (list-iterate) ~ygrek/lib/list/more.f ( addr ) list-iterator ~ygrek/lib/list/more.f ( list -- xt ) nlist ~ygrek/lib/list/more.f ( v1 ... vn n -- l ) list-> ~ygrek/lib/list/more.f ( node --> node1 \ <-- ) list=> ~ygrek/lib/list/more.f ( node --> node1 \ <-- ) insert-after ~ygrek/lib/list/more.f ( node1 list -- ) zipcar! ~ygrek/lib/list/more.f ( xt node1 -- ) zipcar ~ygrek/lib/list/more.f ( xt node1 -- ) map2 ~ygrek/lib/list/more.f ( xt node1 node2 -- ) equal? ~ygrek/lib/list/more.f ( node1 node2 -- ? ) PARSE-DATA ~ygrek/lib/list/write.f ( n -- a u ) (.) ~ygrek/lib/list/write.f ( n -- ) print-str-for-eval ~ygrek/lib/list/write.f ( s -- ) print-quoted-str-cut ~ygrek/lib/list/write.f ( s -- ) write-node ~ygrek/lib/list/write.f ( node -- ) write-list ~ygrek/lib/list/write.f ( node -- ) print-node ~ygrek/lib/list/write.f ( node -- ) print-list ~ygrek/lib/list/write.f ( node -- ) dump-node ~ygrek/lib/list/write.f ( node -- ) dump-list ~ygrek/lib/list/write.f ( node -- ) STRUCT: lib/ext/struct.f ;STRUCT lib/ext/struct.f STRUCT: ~af/lib/struct.f ( "name" -- old-current ) ;STRUCT ~af/lib/struct.f ( old-current -- ) f: ~af/lib/struct.f ( offset "new-name" -- offset+cell ) f...: ~af/lib/struct.f ( offset "new-name" -- offset+cell ) TVOC ~af/lib/struct-t.f ( -- ) (f:) ~af/lib/struct-t.f ( obj offset -- ) (f...:) ~af/lib/struct-t.f ( obj cells offset -- ) STRUCT: ~af/lib/struct-t.f ( "name" -- old-current ) ;STRUCT ~af/lib/struct-t.f ( old-current -- ) -- ~af/lib/struct-t.f f: ~af/lib/struct-t.f ( offset "new-name" -- offset+cell ) f...: ~af/lib/struct-t.f ( offset "new-name" -- offset+cell ) New-Queue ~pinka/lib/queue_pr.f ( -- queue ) Enterly ~pinka/lib/queue_pr.f ( x pr queue \ newel -- ) LeaveLow ~pinka/lib/queue_pr.f ( queue -- x true | false ) Del-Queue ~pinka/lib/queue_pr.f ( queue -- ) queue. ~pinka/lib/queue_pr.f ( q -- ) Queue-Count ~pinka/lib/queue_pr.f ( q -- count ) mapQueue ~pinka/lib/queue_pr.f ( q xt \ e -- ) >ROR> ~mlg/SrcLib/bitfield.f ( x -- x' ) >SHR> ~mlg/SrcLib/bitfield.f ( x -- x' ) c \ <-- flag ) reverse-function ~profit/lib/binary-search.f ( a b res --> x \ x flag <-- x' ) { lib/ext/locals.f LAMBDA{ ~pinka/lib/lambda.f ( -- ) } ~pinka/lib/lambda.f ( -- xt ) (: ~yz/lib/inline.f ( -- resolve xt id) ;) ~yz/lib/inline.f ( -- resolve xt id) .s-mark ~spn/se.f .s-tag ~spn/se.f .s-car ~spn/se.f .s-cdr ~spn/se.f /s-obj ~spn/se.f lp-reset ~spn/se.f ( n ) s-depth ~spn/se.f ( -- n ) p->s ~spn/se.f ( x -- s: x ) s->p ~spn/se.f ( s: x -- x ) s-dup ~spn/se.f ( s: x -- s: x x ) s-drop ~spn/se.f ( s: x ) s-swap ~spn/se.f ( s: x y -- s: y x ) s-over ~spn/se.f ( s: x y -- s: x y x ) cp-reset ~spn/se.f ( n ) s->c ~spn/se.f ( s: x -- c: x ) c->s ~spn/se.f ( c: x -- s: x ) c-pick ~spn/se.f ( n -- s: x ) (pair) ~spn/se.f ( a ) (null) ~spn/se.f ( a ) (number) ~spn/se.f ( a ) (xt) ~spn/se.f ( a ) () ~spn/se.f ( -- s: 0 ) s-variable ~spn/se.f get ~spn/se.f ( a -- s: x ) set ~spn/se.f ( a s: x ) s-reserve ~spn/se.f ( a n ) s-mark ~spn/se.f ( a ) s-sweep ~spn/se.f gc ~spn/se.f (cons) ~spn/se.f ( x y -- z ) cons ~spn/se.f ( s: x y -- s: z ) ->s ~spn/se.f ( n -- s: n ) xt->s ~spn/se.f ( a -- s: a ) s-> ~spn/se.f ( s: x ) pair? ~spn/se.f ( s: x -- ? ) null? ~spn/se.f ( s: x -- ? ) number? ~spn/se.f ( s: x -- ? ) xt? ~spn/se.f ( s: x -- ? ) car ~spn/se.f ( s: x -- s: y ) cdr ~spn/se.f ( s: x -- s: y ) set-car! ~spn/se.f ( s: x y ) set-cdr! ~spn/se.f ( s: x y ) list ~spn/se.f ( n s: ... -- s: x ) s( ~spn/se.f ( -- n ) )s ~spn/se.f ( n s: ... -- s: x ) eq? ~spn/se.f ( s: x y -- ? ) equal? ~spn/se.f ( s: x y -- ? ) list-tail ~spn/se.f ( n s: x -- s: y ) list-ref ~spn/se.f ( n s: x -- s: y ) s-execute ~spn/se.f ( s: f ) for-each-pair ~spn/se.f ( s: x f ) last-pair' ~spn/se.f ( s: x e -- s: e ) last-pair ~spn/se.f ( s: x -- s: y ) for-each ~spn/se.f ( s: x f ) length' ~spn/se.f ( i s: e -- j ) length ~spn/se.f ( s: x -- n ) fold ~spn/se.f ( s: x z f -- s: y ) reverse' ~spn/se.f ( s: x e -- s: y ) reverse ~spn/se.f ( s: x -- s: y ) reverse!' ~spn/se.f ( s: x e -- s: y ) reverse! ~spn/se.f ( s: x -- s: y ) map' ~spn/se.f ( s: f x e -- s: y ) map ~spn/se.f ( s: x f -- s: y ) list-copy ~spn/se.f ( s: x -- s: y ) append ~spn/se.f ( s: x y -- s: z ) filter' ~spn/se.f ( s: f x e -- s: y ) filter ~spn/se.f ( s: x f -- s: y ) 1pr ~spn/se.f ( a -- s: f ) 1op ~spn/se.f ( a -- s: f ) 2op ~spn/se.f ( a -- s: f ) (.atom) ~spn/se.f ( s: x ) .atom ~spn/se.f .se ~spn/se.f ( s: x ) gc-free ~spn/se.f ( -- n ) .free ~spn/se.f .locals ~spn/se.f memoize: ~ygrek/lib/fun/memoize.f ( "name" -- ) ENTER ~profit/lib/bac4th.f ( xt -- ) ONFALSE ~profit/lib/bac4th.f ( f -- ) ONTRUE ~profit/lib/bac4th.f ( f -- ) R@ENTER, ~profit/lib/bac4th.f R>ENTER, ~profit/lib/bac4th.f PRO ~profit/lib/bac4th.f CONT ~profit/lib/bac4th.f RUSH ~profit/lib/bac4th.f ( xt -- ) RUSH> ~profit/lib/bac4th.f ( "name ) RESTB ~profit/lib/bac4th.f ( n --> n / n <-- ) 2RESTB ~profit/lib/bac4th.f BSWAP ~profit/lib/bac4th.f ( a b <--> b a ) SWAPB ~profit/lib/bac4th.f ( a b --> a b \ b a <-- a b ) BDROP ~profit/lib/bac4th.f ( n <--> ) DROPB ~profit/lib/bac4th.f ( n --> n / <-- n ) 2DROPB ~profit/lib/bac4th.f ( n --> n / <-- n ) KEEP ~profit/lib/bac4th.f KEEP! ~profit/lib/bac4th.f ( n addr --> / <-- ) BACK ~profit/lib/bac4th.f TRACKING ~profit/lib/bac4th.f START{ ~profit/lib/bac4th.f ( -- org dest $TART ) DIVE ~profit/lib/bac4th.f }EMERGE ~profit/lib/bac4th.f S| ~profit/lib/bac4th.f NOT: ~profit/lib/bac4th.f -NOT ~profit/lib/bac4th.f PREDICATE ~profit/lib/bac4th.f SUCCEEDS ~profit/lib/bac4th.f ALL ~profit/lib/bac4th.f ARE ~profit/lib/bac4th.f OTHER ~profit/lib/bac4th.f WISE ~profit/lib/bac4th.f CUT: ~profit/lib/bac4th.f -CUT ~profit/lib/bac4th.f -NOCUT ~profit/lib/bac4th.f *> ~profit/lib/bac4th.f <*> ~profit/lib/bac4th.f <* ~profit/lib/bac4th.f agg{ ~profit/lib/bac4th.f ( -- ) {agg} ~profit/lib/bac4th.f ( intermed -- ) }agg ~profit/lib/bac4th.f ( agg succ -- ) +{ ~profit/lib/bac4th.f }+ ~profit/lib/bac4th.f MAX{ ~profit/lib/bac4th.f }MAX ~profit/lib/bac4th.f *{ ~profit/lib/bac4th.f }* ~profit/lib/bac4th.f &{ ~profit/lib/bac4th.f }& ~profit/lib/bac4th.f |{ ~profit/lib/bac4th.f }| ~profit/lib/bac4th.f {} ~profit/lib/bac4th.f (AMONG) ~profit/lib/bac4th.f (AMONG>) ~profit/lib/bac4th.f (EACH) ~profit/lib/bac4th.f (ITERATE) ~profit/lib/bac4th.f FINIS ~profit/lib/bac4th.f AMONG ~profit/lib/bac4th.f EACH ~profit/lib/bac4th.f ITERATE ~profit/lib/bac4th.f axt ~profit/lib/bac4th-closures.f ( addr u -- xt ) axt=> ~profit/lib/bac4th-closures.f ( addr u --> xt \ <-- ) straxt=> ~profit/lib/bac4th-closures.f ( s --> xt \ <-- ) compiledCode ~profit/lib/bac4th-closures.f ( addr u --> xt \ <-- ) STRcompiledCode ~profit/lib/bac4th-closures.f ( s --> xt \ <-- ) GetHeaps ~ac/lib/memory/heap_enum2.f ( -- addr n ) HeapEnum ~ac/lib/memory/heap_enum2.f ( xt h -- ) MemDump1 ~ac/lib/memory/heap_enum2.f ( entry -- ) MemDump ~ac/lib/memory/heap_enum2.f ( entry -- ) MEM ~ac/lib/memory/heap_enum2.f FillStub ~day/lib/mem_sanity.f ( u addr ) ALLOCATE ~day/lib/mem_sanity.f ( u -- addr ior ) mem_abort1 ~day/lib/mem_sanity.f mem_abort2 ~day/lib/mem_sanity.f FREE ~day/lib/mem_sanity.f ALLOCATE ~day/lib/memreport.f ( n -- addr ior ) HEAP-COPY ~day/lib/memreport.f ( addr u -- addr1 ) FREE ~day/lib/memreport.f ( addr -- ior ) RESIZE ~day/lib/memreport.f ( addr n -- addr2 ior ) ClearMemInfo ~day/lib/memreport.f ( -- ) countMem ~day/lib/memreport.f ( -- size n ) RemoveThreadMemoryInfo ~day/lib/memreport.f ( threadId -- ) MemReport ~day/lib/memreport.f ( -- ) MemReportThread ~day/lib/memreport.f ( threadId -- ) NewMemoryMark ~day/lib/memreport.f ( -- n ) SetReportMark ~day/lib/memreport.f ( n -- ) ShowFailedFree ~day/lib/memreport.f ( -- ) HideFailedFree ~day/lib/memreport.f ( -- ) _LINE_ lib/ext/debug/accert.f _FILE_ lib/ext/debug/accert.f ACCERT-EV lib/ext/debug/accert.f ( addr u n -- ) _ACCERT( lib/ext/debug/accert.f ( n -- ) ACCERT1( lib/ext/debug/accert.f ACCERT2( lib/ext/debug/accert.f ACCERT3( lib/ext/debug/accert.f ACCERT( lib/ext/debug/accert.f DOES> lib/ext/debug/tracer.f : lib/ext/debug/tracer.f ; lib/ext/debug/tracer.f get-local-time ~af/lib/elapse.f ( -- ) ms@ ~af/lib/elapse.f ( -- ms ) time-reset ~af/lib/elapse.f ( -- ) .elapsed ~af/lib/elapse.f ( -- ) elapse ~af/lib/elapse.f ( -- ) >NAME ~pinka/lib/tools/profiler.f ( CFA -- NFA ) GetTacts ~pinka/lib/tools/profiler.f on ~pinka/lib/tools/profiler.f ( a -- ) off ~pinka/lib/tools/profiler.f ( a -- ) GetTimes ~pinka/lib/tools/profiler.f ( a u -- d-ticks u-rets true | false ) ResetProfiles ~pinka/lib/tools/profiler.f ( -- ) .AllStatistic_o ~pinka/lib/tools/profiler.f ( -- ) .AllStatistic ~pinka/lib/tools/profiler.f ( -- ) .StatisticByCFA ~pinka/lib/tools/profiler.f ( CFA_last_word -- ) EXIT ~pinka/lib/tools/profiler.f THROW ~pinka/lib/tools/profiler.f ( errno -- ) : ~pinka/lib/tools/profiler.f ( -- ) ; ~pinka/lib/tools/profiler.f ( -- ) (( ~ygrek/lib/testcase.f -> ~ygrek/lib/testcase.f )) ~ygrek/lib/testcase.f TESTING ~ygrek/lib/testcase.f TEST-ARRAY ~ygrek/lib/testcase.f ( addr u addr1 u1 ) TESTCASES ~ygrek/lib/testcase.f END-TESTCASES ~ygrek/lib/testcase.f /TEST ~profit/lib/testing.f $> ~profit/lib/testing.f FSTRICT lib/include/float2.f ( -- ? ) SET-FSTRICT lib/include/float2.f ( ? -- ) 2e lib/include/float2.f 1e lib/include/float2.f .e lib/include/float2.f PRECISION lib/include/float2.f ( -- u ) SET-PRECISION lib/include/float2.f ( u -- ) PRINT-EXP lib/include/float2.f PRINT-FIX lib/include/float2.f FSINGLE lib/include/float2.f FDOUBLE lib/include/float2.f FLONG lib/include/float2.f FLOATS lib/include/float2.f FLOAT+ lib/include/float2.f FSTATE lib/include/float2.f stackIsEmpty lib/include/float2.f DF, lib/include/float2.f ( F: r -- ) SF, lib/include/float2.f ( F: r -- ) FINF lib/include/float2.f -FINF lib/include/float2.f ERROR-MODE lib/include/float2.f NORMAL-MODE lib/include/float2.f SILENT-MODE lib/include/float2.f FPUmask lib/include/float2.f FPUstate lib/include/float2.f F! lib/include/float2.f F@ lib/include/float2.f F, lib/include/float2.f ( F: r -- ) TNUM lib/include/float2.f ( addr u -- d ) F10X lib/include/float2.f ( u -- R: 10^u ) SEARCH-EXP lib/include/float2.f ( c-addr1 u -- c-addr2 u flag ) GET-EXP lib/include/float2.f ( addr u -- d ) FRAC>F lib/include/float2.f ( addr u -- F: r ) >FLOAT-ABS lib/include/float2.f ( addr u -- F: r D: bool ) CHECK-SET lib/include/float2.f ( addr u max min addr2 u2 -- addr2 u2 bool ) lib/include/float2.f ( addr u max min -- addr2 u2 bool ) lib/include/float2.f ( addr u max min -- addr2 u2 bool ) lib/include/float2.f ( addr u max min -- addr2 u2 bool ) lib/include/float2.f ( addr u max min -- addr2 u2 bool ) ?FLOAT lib/include/float2.f ( addr u -- bool ) >FLOAT lib/include/float2.f ( addr u -- F: r true | false ) FABORT lib/include/float2.f FLOOR lib/include/float2.f ( F: r1 -- r2 ) FROUND lib/include/float2.f ( F: r1 -- r2 ) #EXP lib/include/float2.f ( -- n ) 0.1E lib/include/float2.f REPRESENT lib/include/float2.f ( c-addr u -- n flag1 flag2 ) (T0) lib/include/float2.f ( c-addr u1 -- c-addr u2 ) FDISPLAY lib/include/float2.f ( n -- ) format-exp lib/include/float2.f ( ud1 -- ud2 ) .EXP lib/include/float2.f PrintFInf lib/include/float2.f ( F: r -- r ) (F.) lib/include/float2.f ( n1 n2 ) FS. lib/include/float2.f ( r -- ) F. lib/include/float2.f ( r -- ) G. lib/include/float2.f ( r) Adjust lib/include/float2.f ( n - n' 1|2|3 ) FE. lib/include/float2.f ( r) C-TO-PAD lib/include/float2.f ( c ) S-TO-PAD lib/include/float2.f ( addr u ) >FNUM lib/include/float2.f ( F: r -- addr u ) DFLOAT+ lib/include/float2.f ( addr1 -- addr2 ) DFLOATS lib/include/float2.f ( n1 -- n2 ) SFLOAT+ lib/include/float2.f ( addr1 -- addr2 ) SFLOATS lib/include/float2.f ( n1 -- n2 ) FLIT, lib/include/float2.f FLITERAL lib/include/float2.f ( F: r -- ) F~ lib/include/float2.f ( F1 F2 F3 -- FLAG ) FALOG lib/include/float2.f FSINH lib/include/float2.f FCOSH lib/include/float2.f FTANH lib/include/float2.f FATANH lib/include/float2.f FASINH lib/include/float2.f FACOSH lib/include/float2.f FTO lib/include/float2.f HIGH-FINIT lib/include/float2.f FALIGN lib/include/float2.f FALIGNED lib/include/float2.f SFALIGN lib/include/float2.f SFALIGNED lib/include/float2.f DFALIGN lib/include/float2.f DFALIGNED lib/include/float2.f FVARIABLE lib/include/float2.f FCONSTANT lib/include/float2.f FVALUE lib/include/float2.f NOTFOUND lib/include/float2.f ( c-addr u -- ) GCD ~nn/lib/fraction.f ( n1 n2 -- u3) FR-NORMALIZE ~nn/lib/fraction.f ( a1/b1 -- a2/b2) FR+ ~nn/lib/fraction.f ( a1/b1 a2/b2 -- [a1*b2+a2*b1]/[b1*b2]) FR-NEGATE ~nn/lib/fraction.f FR-ABS ~nn/lib/fraction.f FR- ~nn/lib/fraction.f FR* ~nn/lib/fraction.f ( a1/b1 a2/b2 -- a3/b3) FR/ ~nn/lib/fraction.f ( a1/b1 a2/b2 -- a3/b3) FRS* ~nn/lib/fraction.f ( a1/b1 n2 -- a2/b2) ?SPACES ~nn/lib/fraction.f R-TYPE ~nn/lib/fraction.f ( addr len1 len-field -- ) L-TYPE ~nn/lib/fraction.f ( addr len1 len-field -- ) FR>/STR ~nn/lib/fraction.f ( a/b -- addr u) FR/.R ~nn/lib/fraction.f ( a/b len --) FR/.L ~nn/lib/fraction.f ( a/b len --) FR/. ~nn/lib/fraction.f ( a/b --) FR>STR ~nn/lib/fraction.f ( a/b -- addr u) FR.R ~nn/lib/fraction.f ( a/b len --) FR.L ~nn/lib/fraction.f ( a/b len --) FR. ~nn/lib/fraction.f ?FR-SLITERAL ~nn/lib/fraction.f ( addr u -- ) NOTFOUND ~nn/lib/fraction.f ( addr u -- ) FR: ~nn/lib/fraction.f ( -- a/b) FR-VARIABLE ~nn/lib/fraction.f FR-CONSTANT ~nn/lib/fraction.f FR0= ~nn/lib/fraction.f FR0< ~nn/lib/fraction.f ( a/b -- ?) FR0> ~nn/lib/fraction.f ( a/b -- ?) FR< ~nn/lib/fraction.f ( a1/b1 a2/b2 -- ?) FR> ~nn/lib/fraction.f ( a1/b1 a2/b2 -- ?) FR= ~nn/lib/fraction.f FR! ~nn/lib/fraction.f FR@ ~nn/lib/fraction.f FR? ~nn/lib/fraction.f FR-DUP ~nn/lib/fraction.f FR-DROP ~nn/lib/fraction.f FR-SWAP ~nn/lib/fraction.f FR-OVER ~nn/lib/fraction.f FR-NIP ~nn/lib/fraction.f FR-TUCK ~nn/lib/fraction.f FR-SIGN ~nn/lib/fraction.f FRR/. ~nn/lib/fraction.f ( a/b --) NOT ~pinka/lib/BigMath.f +CARRY ~pinka/lib/BigMath.f ( a b -- a+b carry ) -BORROW ~pinka/lib/BigMath.f ( a b -- a-b borrow ) D* ~pinka/lib/BigMath.f ( a . b . -- a*b . ) TUM* ~pinka/lib/BigMath.f ( n . mpr -- t . . ) TUM/ ~pinka/lib/BigMath.f ( t . . dvr -- n . ) T+ ~pinka/lib/BigMath.f ( t1 . . t2 . . -- t3 . . ) T- ~pinka/lib/BigMath.f ( t1 . . t2 . . -- t3 . . ) NORMALIZE-DIVISOR ~pinka/lib/BigMath.f ( divr . -- divr' . shift ) DU/MOD ~pinka/lib/BigMath.f ( divd . divr . -- rem . quot . ) ARRAY ~pinka/lib/BigMath.f ( n -- ) ADV ~pinka/lib/BigMath.f ( -- flag ) (RATIO) ~pinka/lib/BigMath.f ( -- ) RATIO ~pinka/lib/BigMath.f ( +d +d -- n n ) F> ~ygrek/lib/math/inv_normal.f inv_normalDF ~ygrek/lib/math/inv_normal.f ( F: level -- F: q ) gcd-step ~ygrek/lib/math/gcd.f ( x y -- y r n ) (gcd) ~ygrek/lib/math/gcd.f ( x y -- n ) check-gcd-conditions ~ygrek/lib/math/gcd.f ( x y -- x y ) GCD ~ygrek/lib/math/gcd.f ( x y -- z ) InvertNumber ~ygrek/lib/math/gcd.f ( a m | z q p0 p1 -- x ) SEED lib/ext/rnd.f ( U -- ) RANDOM lib/ext/rnd.f ( -- U ) CHOOSE lib/ext/rnd.f ( U1 -- U2 ) RANDOMIZE lib/ext/rnd.f RANDOMIZE ~day/common/RND.F RANDOM ~day/common/RND.F ( -- u ) CHOOSE ~day/common/RND.F ( u1 -- u2 ) RANDOMIZE ~af/lib/random.f RANDOM ~af/lib/random.f ( -- n ) CHOOSE ~af/lib/random.f ( n -- 0..n-1 ) SGENRAND ~ygrek/lib/neilbawd/mersenne.f ( seed -- ) LSGENRAND ~ygrek/lib/neilbawd/mersenne.f ( &seed-array -- ) GENRAND ~ygrek/lib/neilbawd/mersenne.f ( -- u ) GENRANDMAX ~ygrek/lib/neilbawd/mersenne.f ( u -- n ) FGENRAND ~ygrek/lib/neilbawd/mersenne.f ( F: -- 0. <= r <= 1. ) FGENRAND-1 ~ygrek/lib/neilbawd/mersenne.f ( F: -- 0. <= r < 1. ) SALLOC ~pinka/lib/hash-table.f ( a u -- a1 ) CALLOC ~pinka/lib/hash-table.f ( a u -- a1 ) ZALLOC ~pinka/lib/hash-table.f ( az -- a1 ) new-hash ~pinka/lib/hash-table.f ( n -- h ) HASH! ~pinka/lib/hash-table.f ( avalue nvalue akey nkey h -- ) HASH!Z ~pinka/lib/hash-table.f ( zvalue akey nkey h -- ) HASH!N ~pinka/lib/hash-table.f ( value akey nkey h -- ) HASH!R ~pinka/lib/hash-table.f ( size akey nkey h -- adr ) -HASH ~pinka/lib/hash-table.f ( akey nkey h -- ) HASH? ~pinka/lib/hash-table.f ( akey ukey h -- true|false ) HASH@ ~pinka/lib/hash-table.f ( akey nkey h -- avalue nvalue / 0 0) HASH@R ~pinka/lib/hash-table.f ( akey nkey h -- a/0) HASH@Z ~pinka/lib/hash-table.f ( akey nkey h -- a/0) HASH@N ~pinka/lib/hash-table.f ( akey nkey h -- n TRUE / FALSE) small-hash ~pinka/lib/hash-table.f ( -- h ) large-hash ~pinka/lib/hash-table.f ( -- h) big-hash ~pinka/lib/hash-table.f ( -- h) traverse-hash ~pinka/lib/hash-table.f ( xt h -- ) clear-hash ~pinka/lib/hash-table.f ( h -- ) del-hash ~pinka/lib/hash-table.f ( h -- ) all-hash ~pinka/lib/hash-table.f ( xt h -- ) for-hash ~pinka/lib/hash-table.f ( h xt -- ) hash-empty? ~pinka/lib/hash-table.f ( h -- flag ) hash-count ~pinka/lib/hash-table.f ( h -- n ) HashCode ~af/lib/simple_hash.f ( addr u list -- hash ) ListAllocate ~af/lib/simple_hash.f ( list size -- addr ) NodeCreate ~af/lib/simple_hash.f ( addr_key u_key list -- node ) ListCreate ~af/lib/simple_hash.f ( size -- list ) ListDestroy ~af/lib/simple_hash.f ( list --) AddListItem ~af/lib/simple_hash.f ( addr u prev list -- node) AddNode ~af/lib/simple_hash.f ( addr_key u_key list -- node ) FindNode ~af/lib/simple_hash.f ( addr_key u_key list -- node ) NextNode ~af/lib/simple_hash.f ( list -- node) FirstNode ~af/lib/simple_hash.f ( list -- node) ListCount ~af/lib/simple_hash.f ( list -- n) ROL ~day/common/hash.f ( u -- u1 ) HASH ~day/common/hash.f ( addr u -- u1 ) PLACE ~clf/MD5.F ( CADDR N ADDR -) STRING ~clf/MD5.F ( CHAR "CCC" -) ANEW ~clf/MD5.F SPLIT-AT-CHAR ~clf/MD5.F ( A N CHAR - A K A+K N-K) DOES>MACRO ~clf/MD5.F MACRO ~clf/MD5.F ]L ~clf/MD5.F ENDIAN@ ~clf/MD5.F ( A1 - N1 ) ENDIAN! ~clf/MD5.F ( N A1 -- ) TRANSFORM ~clf/MD5.F ( ADR -- ) MD5INT ~clf/MD5.F ( -- ) SETLEN ~clf/MD5.F ( -- ) DOFULLBLOCKS ~clf/MD5.F ( ADR1 COUNT1 -- ADR2 COUNT2 ) DOFINAL ~clf/MD5.F ( ADDR COUNT -- ) MD5FULL ~clf/MD5.F ( ADDR COUNT -- ) INTDIGITS ~clf/MD5.F ( -- ) SAVEDIGIT ~clf/MD5.F ( N -- ) BYTEDIGITS ~clf/MD5.F ( N1 -- ) CELLDIGITS ~clf/MD5.F ( A1 -- ) MD5STRING ~clf/MD5.F ( -- ADR COUNT ) QUOTESTRING ~clf/MD5.F ( ADR COUNT -- ) .MD5 ~clf/MD5.F ( ADR COUNT -- ) INPUTFILENAME ~clf/MD5.F ( -- IOR) TRYAGAIN? ~clf/MD5.F ( -- ?) BYTES@ ~clf/MD5.F ( ADR N - ) STORELEN ~clf/MD5.F ( LO HI - ) GETPARTIAL ~clf/MD5.F ( CNT -- BUF[] CNT2 ?) MD5FILE ~clf/MD5.F ( -- ) MD5 ~clf/MD5.F ( addr u -- addr2 u2 ) PLACE ~clf/md5-ts.f ( CADDR N ADDR -) STRING ~clf/md5-ts.f ( CHAR "CCC" -) SPLIT-AT-CHAR ~clf/md5-ts.f ( A N CHAR - A K A+K N-K) DOES>MACRO ~clf/md5-ts.f MACRO ~clf/md5-ts.f ]L ~clf/md5-ts.f ENDIAN@ ~clf/md5-ts.f ( A1 - N1 ) ENDIAN! ~clf/md5-ts.f ( N A1 -- ) TRANSFORM ~clf/md5-ts.f ( ADR -- ) MD5INT ~clf/md5-ts.f ( -- ) SETLEN ~clf/md5-ts.f ( -- ) DOFULLBLOCKS ~clf/md5-ts.f ( ADR1 COUNT1 -- ADR2 COUNT2 ) DOFINAL ~clf/md5-ts.f ( ADDR COUNT -- ) MD5FULL ~clf/md5-ts.f ( ADDR COUNT -- ) INTDIGITS ~clf/md5-ts.f ( -- ) SAVEDIGIT ~clf/md5-ts.f ( N -- ) BYTEDIGITS ~clf/md5-ts.f ( N1 -- ) CELLDIGITS ~clf/md5-ts.f ( A1 -- ) MD5STRING ~clf/md5-ts.f ( -- ADR COUNT ) QUOTESTRING ~clf/md5-ts.f ( ADR COUNT -- ) .MD5 ~clf/md5-ts.f ( ADR COUNT -- ) INPUTFILENAME ~clf/md5-ts.f ( -- IOR) TRYAGAIN? ~clf/md5-ts.f ( -- ?) BYTES@ ~clf/md5-ts.f ( ADR N - ) STORELEN ~clf/md5-ts.f ( LO HI - ) GETPARTIAL ~clf/md5-ts.f ( CNT -- BUF[] CNT2 ?) MD5FILE ~clf/md5-ts.f ( -- ) MD5 ~clf/md5-ts.f ( addr u -- addr2 u2 ) MD5 lib/alg/md5-jz.f ( a u -- a1 u2 ) MD5FILE lib/alg/md5-jz.f ( a u -- a1 u2 ) QUOTESTRING lib/alg/md5-jz.f ( ADR COUNT -- ) .MD5 lib/alg/md5-jz.f ( ADR COUNT -- ) md5-jz.f lib/alg/md5-jz.f ( -- ) MD5TEST lib/alg/md5-jz.f ( -- ) UTIMER lib/alg/md5-jz.f [TEST] lib/alg/md5-jz.f TEST lib/alg/md5-jz.f FIND-CONSTANT ~yz/lib/const.f ( name-a name-n -- n T / F) FIND-CONSTANT2 ~yz/lib/const.f ( name-a name-n -- n) W: ~yz/lib/const.f ( ->bl) (* ~yz/lib/const.f LOAD-CONSTANTS ~yz/lib/const.f ( file-a file-n -- ) REMOVE-ALL-CONSTANTS ~yz/lib/const.f SEARCH-CONST lib/ext/const.f ( addr u -- u -1 | 0 ) NOTFOUND lib/ext/const.f ( addr u -- ) ADD-CONST-VOC lib/ext/const.f ( addr u -- ) REMOVE-ALL-CONSTANTS lib/ext/const.f BEGIN-CONST ~day/wincons/compile.f ADD-NODE ~day/wincons/compile.f ( u1 addr u2 -- addr2 ) ADD-LEFT ~day/wincons/compile.f ( u1 addr u2 dad -- ) ADD-RIGHT ~day/wincons/compile.f ( u1 addr u2 dad -- ) INSERT-NODE ~day/wincons/compile.f ( u1 addr u2 dad -- ) _SEARCH-NODE ~day/wincons/compile.f ( addr u node -- u -1 | 0 ) SEARCH-NODE ~day/wincons/compile.f ( addr u -- u -1 | 0 ) ADD-TO-STUB ~day/wincons/compile.f ( node -- ) MAKE-STUB ~day/wincons/compile.f ( node -- ) FORM-STUB ~day/wincons/compile.f SAVE-CONST ~day/wincons/compile.f ( c-addr u -- ) _CONSTANT ~day/wincons/compile.f ( u1 addr u2 -- ) CONSTANT ~day/wincons/compile.f #define ~day/wincons/compile.f NOTFOUND ~day/wincons/compile.f ( addr u -- ) OR! ~yz/lib/winlib.f ( n a -- ) ORC! ~yz/lib/winlib.f ( c a -- ) getter? ~yz/lib/winlib.f ( a -- ?) setter? ~yz/lib/winlib.f ( a -- ?) shared? ~yz/lib/winlib.f ( a -- ?) datatype ~yz/lib/winlib.f ( a -- ) getproc ~yz/lib/winlib.f ( index tab -- ) setproc ~yz/lib/winlib.f ( value index tab -- ) indtab>a ~yz/lib/winlib.f ( index tab -- addr) store ~yz/lib/winlib.f ( value index tab --) storeset ~yz/lib/winlib.f ( setproc index tab) setitem ~yz/lib/winlib.f ( value1 value2 index tab -- ) setflagitem ~yz/lib/winlib.f ( val1 val2 flag index tab -- ) make-getter ~yz/lib/winlib.f ( ; index -- ) make-setter ~yz/lib/winlib.f ( ; index -- ) make-constant ~yz/lib/winlib.f ( ; index -- ) table ~yz/lib/winlib.f ( ->bl; parenttable/0 -- a) generate-names ~yz/lib/winlib.f endtable ~yz/lib/winlib.f ( a -- ) save-name ~yz/lib/winlib.f ( ->bl; n --) item ~yz/lib/winlib.f ( ->bl ; a n -- a) shared ~yz/lib/winlib.f set ~yz/lib/winlib.f getset ~yz/lib/winlib.f type ~yz/lib/winlib.f ( n -- ) new-table ~yz/lib/winlib.f ( table -- a) del-table ~yz/lib/winlib.f ( table -- ) send-to-window ~yz/lib/winlib.f ( wparam lparam msg hwnd -- result) send ~yz/lib/winlib.f ( wparam lparam msg win -- result) ?send ~yz/lib/winlib.f ( ctl message -- n/ ) wsend ~yz/lib/winlib.f ( wparam ctl message -- n/ ) lsend ~yz/lib/winlib.f ( lparam ctl message -- n/ ) set-text ~yz/lib/winlib.f ( z ctl -- ) -text# ~yz/lib/winlib.f ( ctl -- ) >bgr ~yz/lib/winlib.f ( rgb -- bgr ) rgb ~yz/lib/winlib.f ( r g b -- rgb) syscolor ~yz/lib/winlib.f ( index -- rgb) invalidate ~yz/lib/winlib.f ( ctl \ [ 4 CELLS ] rect -- ) ?invalidate ~yz/lib/winlib.f ( ctl -- ) window! ~yz/lib/winlib.f ( n hwnd -- ) window@ ~yz/lib/winlib.f ( hwnd -- n) :no ~yz/lib/winlib.f :ptr ~yz/lib/winlib.f :data ~yz/lib/winlib.f create-utable ~yz/lib/winlib.f ( bytes -- ut) destroy-utable ~yz/lib/winlib.f ( ut -- ) u>> ~yz/lib/winlib.f ( n ut -- ) uw>> ~yz/lib/winlib.f ( w ut -- ) uc>> ~yz/lib/winlib.f ( c ut -- ) uan>> ~yz/lib/winlib.f ( a n ut -- ) ut++ ~yz/lib/winlib.f ( ut -- ) utable-size ~yz/lib/winlib.f ( ut -- bytes ) land-utable ~yz/lib/winlib.f ( ut -- adr ) land-utable-without-header ~yz/lib/winlib.f ( ut -- adr ) :link ~yz/lib/winlib.f init-xtptr ~yz/lib/winlib.f >xtptr ~yz/lib/winlib.f ( n -- ) save-xtname ~yz/lib/winlib.f ( a # -- ) init-yptr ~yz/lib/winlib.f >yptr ~yz/lib/winlib.f ( n -- ) c>yptr ~yz/lib/winlib.f ( c -- ) >>yptr ~yz/lib/winlib.f ( a # -- ) MESSAGES: ~yz/lib/winlib.f ( ->bl; -- ) create-saved-xtname ~yz/lib/winlib.f land-xttable ~yz/lib/winlib.f ( -- ) land-ytable ~yz/lib/winlib.f ( -- ) MESSAGES; ~yz/lib/winlib.f ( -- ) :M ~yz/lib/winlib.f ( msg# -- xt secret-sign) M: ~yz/lib/winlib.f ( ->message-name; -- msg# xt secret-sign) M; ~yz/lib/winlib.f ( msg# xt secret-sign -- ) XLIST ~yz/lib/winlib.f ( ->bl; -- ) create-xlist ~yz/lib/winlib.f ( -- xlist) empty-xlist ~yz/lib/winlib.f ( xlist -- ) insert-to-begin ~yz/lib/winlib.f ( xtable xlist -- ) insert-to-end ~yz/lib/winlib.f ( xtable xlist -- ) find-in-xtable ~yz/lib/winlib.f ( id xttable -- result true / false) ?find-in-xtable ~yz/lib/winlib.f ( id xttable -- ?) RETURN ~yz/lib/winlib.f ( n -- ) find-and-execute ~yz/lib/winlib.f ( id xlist -- ? ) ?find-and-execute ~yz/lib/winlib.f ( id xlist -- ? ) nc-win-size ~yz/lib/winlib.f ( dx dy win \ [ 4 CELLS ] rect -- ex ey ) wm-paint-proc ~yz/lib/winlib.f end-dialog ~yz/lib/winlib.f ( code -- ) dialog-ok ~yz/lib/winlib.f ( -- ) dialog-cancel ~yz/lib/winlib.f ( -- ) set-colors ~yz/lib/winlib.f extend-window-proc ~yz/lib/winlib.f ( xtable -- ) create-window-with-styles ~yz/lib/winlib.f ( parent style exstyle -- ) create-window ~yz/lib/winlib.f ( parent -- win/0) dialog-window ~yz/lib/winlib.f ( parent -- win/0) tool-window ~yz/lib/winlib.f ( parent -- win/0) destroy-window ~yz/lib/winlib.f ( win -- ) (show) ~yz/lib/winlib.f ( win flag -- ) winshow ~yz/lib/winlib.f ( win -- ) winhide ~yz/lib/winlib.f ( win -- ) winminimize ~yz/lib/winlib.f ( win -- ) winmaximize ~yz/lib/winlib.f ( win -- ) winrestore ~yz/lib/winlib.f ( win -- ) winenable ~yz/lib/winlib.f ( win -- ) windisable ~yz/lib/winlib.f ( win -- ) winfocus ~yz/lib/winlib.f ( ctl -- ) win-rect ~yz/lib/winlib.f ( win \ [ 4 CELLS ] rect -- x1 y1 x2 y2 ) child-win-rect ~yz/lib/winlib.f ( win \ [ 4 CELLS ] rect -- x1 y1 x2 y2 ) win-size ~yz/lib/winlib.f ( win -- ) winmove ~yz/lib/winlib.f ( x y win -- ) new-size ~yz/lib/winlib.f ( xsize ysize win -- ) resize ~yz/lib/winlib.f ( xsize ysize win -- ) winresize ~yz/lib/winlib.f ( xsize ysize win -- ) force-redraw ~yz/lib/winlib.f ( win -- ) message-box ~yz/lib/winlib.f ( title text style -- result) msg ~yz/lib/winlib.f ( text -- ) err ~yz/lib/winlib.f ( text -- ) screen-x ~yz/lib/winlib.f ( -- x) screen-y ~yz/lib/winlib.f ( -- x) wincenter ~yz/lib/winlib.f ( win -- ) next-menu-id ~yz/lib/winlib.f ( -- n) MENU: ~yz/lib/winlib.f ( ->bl; -- ) LINE ~yz/lib/winlib.f ( -- ) SUBMENU ~yz/lib/winlib.f ( ->eol; menu -- ) MENUITEM ~yz/lib/winlib.f ( ->eol; proc -- ) CHECKED ~yz/lib/winlib.f DISABLED ~yz/lib/winlib.f MENU; ~yz/lib/winlib.f ( -- ) append-to-menu ~yz/lib/winlib.f ( menu hmenu \ ptr flags -- ) wake-menu ~yz/lib/winlib.f ( menu -- ) wake-menubar ~yz/lib/winlib.f ( menu -- ) destroy-menu ~yz/lib/winlib.f ( menu -- ) append-xtable-to-menuslist ~yz/lib/winlib.f ( menu mlist \ ptr -- ) make-menus-list ~yz/lib/winlib.f ( menu -- menu-list ) attach-menubar ~yz/lib/winlib.f ( menu window -- ) detach-menubar ~yz/lib/winlib.f ( window -- ) show-menu ~yz/lib/winlib.f ( menu x y \ menulist -- ) check-menu-item ~yz/lib/winlib.f ( no menu -- ) uncheck-menu-item ~yz/lib/winlib.f ( no menu -- ) (un)check-me ~yz/lib/winlib.f ( -- ?) check-menu-radio ~yz/lib/winlib.f ( first last no menu -- ) select-me ~yz/lib/winlib.f ( first last -- ) enable-menu-item ~yz/lib/winlib.f ( no menu -- ) disable-menu-item ~yz/lib/winlib.f ( no menu -- ) default-menu-item ~yz/lib/winlib.f ( no menu -- ) redraw-window-menu ~yz/lib/winlib.f ( win -- ) KEYTABLE ~yz/lib/winlib.f ( -- ) ?modifier ~yz/lib/winlib.f ( adr n -- adr1 n1 flags ) parse-key ~yz/lib/winlib.f ( adr n -- key flags ) ONKEY ~yz/lib/winlib.f ( ->bl; proc -- ) KEYTABLE; ~yz/lib/winlib.f ( -- ) bold ~yz/lib/winlib.f italic ~yz/lib/winlib.f underline ~yz/lib/winlib.f strike-out ~yz/lib/winlib.f pt>devunits ~yz/lib/winlib.f ( n -- n1) create-font-devunits ~yz/lib/winlib.f ( zname devunits -- ) create-font ~yz/lib/winlib.f ( zname size -- font ) delete-font ~yz/lib/winlib.f ( font -- ) hdu ~yz/lib/winlib.f ( n -- n1) vdu ~yz/lib/winlib.f ( n -- n1) dunits ~yz/lib/winlib.f ( n n1 -- n2 n3) initcc ~yz/lib/winlib.f ( what \ [ 2 CELLS ] buf -- ) WINDOWS... ~yz/lib/winlib.f ?dialog ~yz/lib/winlib.f ( msg -- ?) ...WINDOWS ~yz/lib/winlib.f tool-unclosable-window ~profit/lib/winlibex.f ( parent -- win/0) win-pos ~profit/lib/winlibex.f ( tab \ [ 4 CELLS ] rect -- x y ) through-control ~profit/lib/winlibex.f set-page-size ~profit/lib/winlibex.f ( page-size ctl \ [ 7 CELLS ] scrollinfo -- ) tv-del-all-items ~profit/lib/winlibex.f ( ctl --) create-font-uni ~profit/lib/winlibex.f ( zname size -- ) DisableTaskWindows ~day/joop/win/framewindow.f ( param -- ) EnableTaskWindows ~day/joop/win/framewindow.f ( stack -- ) [[ ~day/wfl/wfl.f ?WinError ~day/common/console.f AT-XY ~day/common/console.f ( X Y -- ) TEXT-ATTR ~day/common/console.f ( fg bg -- ) MAX-XY ~day/common/console.f ( -- x y ) CLS ~day/common/console.f HIDE-CURSOR ~day/common/console.f DUPS ~pi/lib/console.f ( n -> ) XY->N ~pi/lib/console.f ( x y -> n ) N->XY ~pi/lib/console.f ( n -> x y ) Color->N ~pi/lib/console.f ( 梥â ä®­ -> n ) N->Color ~pi/lib/console.f ( n -> 梥â ä®­ ) SetTitle ~pi/lib/console.f ( addr n -> ) SetLocate ~pi/lib/console.f ( x y -> ) HideCursore ~pi/lib/console.f ( -> ) ShowCursore ~pi/lib/console.f ( -> ) SizeCursore ~pi/lib/console.f ( n -> ) SizeConsole ~pi/lib/console.f ( lenght height -> ) GetLength ~pi/lib/console.f ( -> n ) GetHeight ~pi/lib/console.f ( -> n ) GetX ~pi/lib/console.f ( -> n ) GetY ~pi/lib/console.f ( -> n ) GetLocate ~pi/lib/console.f ( -> x y ) GetColor ~pi/lib/console.f ( -> n ) GetBackground ~pi/lib/console.f ( -> n ) SetColor ~pi/lib/console.f ( n -> ) SetBackground ~pi/lib/console.f ( n -> ) SetX ~pi/lib/console.f ( n -> ) SetY ~pi/lib/console.f ( n -> ) Cls ~pi/lib/console.f ( -> ) FullConsole ~pi/lib/console.f ( -> ) WindowsConsole ~pi/lib/console.f ( -> ) AttrWindow ~pi/lib/console.f ( -> ) ClearWindow ~pi/lib/console.f ( -> ) ClsWindow ~pi/lib/console.f ( -> ) SwapColor ~pi/lib/console.f ( -> ) Print‘ ~pi/lib/console.f ( n addr x y -> ) Emit‘ ~pi/lib/console.f ( x y char -> ) LineH ~pi/lib/console.f ( n -> ) DLineH ~pi/lib/console.f ( n -> ) LineV ~pi/lib/console.f ( n -> ) DLineV ~pi/lib/console.f ( n -> ) Box ~pi/lib/console.f ( -> ) DBox ~pi/lib/console.f ( -> ) Console ~pi/lib/console.f ( -> ) >UNICODE ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UNICODE> ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UTF8>UNICODE ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UNICODE>UTF8 ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) >UTF8 ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UTF8> ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UASCIIZ> ~ac/lib/win/com/COM.F ( addr -- addr u ) >BSTR ~ac/lib/win/com/COM.F ( addr u -- bstr ) BSTR> ~ac/lib/win/com/COM.F ( bstr -- addr2 u2 ) ComInit ~ac/lib/win/com/COM.F ( -- ior ) ComExit ~ac/lib/win/com/COM.F ( -- ) ComCreateGUID ~ac/lib/win/com/COM.F ( GUIaddr -- ior ) CLSID>String ~ac/lib/win/com/COM.F ( GUIaddr -- addr u ior ) String>CLSID ~ac/lib/win/com/COM.F ( addr u -- addr2 ior ) ProgID>CLSID ~ac/lib/win/com/COM.F ( addr u -- addr2 ior ) CLSID, ~ac/lib/win/com/COM.F ( addr u -- ) ComGetForthGUID ~ac/lib/win/com/COM.F ( addr -- ) InvokeMethod ~ac/lib/win/com/COM.F ( parameters interface_pointer method_number -- result ) Methods# ~ac/lib/win/com/COM.F ( interface_id -- n ) Methods#! ~ac/lib/win/com/COM.F ( n interface_id -- ) Interface: ~ac/lib/win/com/COM.F ( parent_interface "name" "clsid" -- interface_id n ) Interface; ~ac/lib/win/com/COM.F Method: ~ac/lib/win/com/COM.F ( interface_id n "name" -- interface_id n+1 ) CreateObject ~ac/lib/win/com/COM.F ( addr u -- oid ior ) CreateClass ~ac/lib/win/com/COM.F ( addr u -- oid ior ) GetIDispatch ~ac/lib/win/com/COM.F ( oid -- idispatch ior ) GetIdOfName ~ac/lib/win/com/COM.F ( idisp addr u -- n ior ) Class. ~ac/lib/win/com/com_server.f ( oid -- oid ) Class: ~ac/lib/win/com/com_server.f ( implement_interface "name" "clsid" -- current class_int ) Class; ~ac/lib/win/com/com_server.f Class ~ac/lib/win/com/com_server.f ( oid -- class_int ) SpfClassName ~ac/lib/win/com/com_server.f ( oid -- addr u ) SpfClassWid ~ac/lib/win/com/com_server.f ( oid -- wid ) ComClassIID ~ac/lib/win/com/com_server.f ( oid -- addr u ) NewComObj ~ac/lib/win/com/com_server.f ( extra_size class_oid -- oid ) IsMyComObject? ~ac/lib/win/com/com_server.f ( oid -- flag ) (AddRef) ~ac/lib/win/com/com_server.f ( oid -- cnt ) (Release) ~ac/lib/win/com/com_server.f ( oid -- cnt ) Extends ~ac/lib/win/com/com_server.f ( class_int -- class_int ) ToVtable ~ac/lib/win/com/com_server.f ( class_int xt -- class_int ) METHOD ~ac/lib/win/com/com_server.f ( class_int -- class_int ) DeleteService ~ac/lib/win/service/SERVICE.F ( addr u -- 0 | 1 ) CreateService ~ac/lib/win/service/SERVICE.F ( addr u -- 0 | handle ) (ServiceControlHandler) ~ac/lib/win/service/SERVICE.F ( fdwControl -- ) (ServiceMain) ~ac/lib/win/service/SERVICE.F ( dwArgc *lpszArgv -- void ) StartService ~ac/lib/win/service/SERVICE.F ( addr u -- flag ) InstallService95 ~ac/lib/win/service/service95.f ( S" service_name" -- ior ) UninstallService95 ~ac/lib/win/service/service95.f ( S" service_name" -- ior ) W-DATE ~ac/lib/win/date/date-int.f M-DATE ~ac/lib/win/date/date-int.f >Date>W ~ac/lib/win/date/date-int.f ( d m y -- w ) DateW>S ~ac/lib/win/date/date-int.f ( w -- addr u ) DateM>S ~ac/lib/win/date/date-int.f ( m -- addr u ) #: ~ac/lib/win/date/date-int.f ( -- ) #N ~ac/lib/win/date/date-int.f ( n -- ) #N## ~ac/lib/win/date/date-int.f ( n -- ) #SG ~ac/lib/win/date/date-int.f ( n -- ) <<# ~ac/lib/win/date/date-int.f ( -- 0 0 ) <#N ~ac/lib/win/date/date-int.f ( n -- xd ) Date# ~ac/lib/win/date/date-int.f ( d m y -- ) Time# ~ac/lib/win/date/date-int.f ( h m s -- ) DateTime# ~ac/lib/win/date/date-int.f ( s m h d m1 y -- ) DateTime#GMT ~ac/lib/win/date/date-int.f ( s m h d m1 y -- ) Zone# ~ac/lib/win/date/date-int.f ( -- ) DateTime#Z ~ac/lib/win/date/date-int.f ( s m h d m1 y -- ) CurrentDateTime# ~ac/lib/win/date/date-int.f CurrentDateTime#Z ~ac/lib/win/date/date-int.f SecsSince1970 ~ac/lib/win/date/unixdate.f ( -- n ) UnixDate ~ac/lib/win/date/unixdate.f ( -- n ) UnixDate# ~ac/lib/win/date/unixdate.f UnixDate.# ~ac/lib/win/date/unixdate.f UNIXDATE ~ac/lib/win/date/unixdate.f UTC>LOCAL ~ac/lib/win/file/filetime.f ( filetime1 -- filetime2 ) GET-FILETIME-WRITE ~ac/lib/win/file/filetime.f ( h -- filetime ) GET-FILETIME ~ac/lib/win/file/filetime.f ( h -- filetime ) FILETIME>TIME&DATE ~ac/lib/win/file/filetime.f ( tlo thi -- sec min hr day mt year ) GET-FILE-LASTWRITETIME ~ac/lib/win/file/filetime.f ( h -- sec min hr day mt year ) NOW-FILETIME ~ac/lib/win/file/filetime.f ( -- filetime ) NOW-UTC-FILETIME ~ac/lib/win/file/filetime.f ( -- filetime ) DAYS-OLD ~ac/lib/win/file/filetime.f ( h -- days ) DELETE-IF-OLDER ~ac/lib/win/file/filetime.f ( filename days -- flag ) FileDateTime# ~ac/lib/win/file/filetime.f ( h -- ) FileDateTime#GMT ~ac/lib/win/file/filetime.f ( h -- ) CurrentDateTime#UTC ~ac/lib/win/file/filetime.f ?DayOfWeek ~ygrek/lib/spec/sdate.f ( a u -- ? ) MonthName ~ygrek/lib/spec/sdate.f ( a u -- n ? ) ?MonthName ~ygrek/lib/spec/sdate.f ( a u -- ? ) parse-unixdate ~ygrek/lib/spec/sdate.f ( a u -- timestamp|0 ) parse-date? ~ygrek/lib/spec/sdate.f ( a u -- ss mm hh d m y -1 | 0 ) parse-num-unixdate ~ygrek/lib/spec/sdate2.f ( a u -- timestamp|0 ) unix_epoch_j ~ygrek/lib/spec/unixdate.f ( -- j_double ) Num>DateTime ~ygrek/lib/spec/unixdate.f ( n -- s m h d m1 y ) DateTime>Num ~ygrek/lib/spec/unixdate.f ( s m h d m1 y -- n ) Num>Time ~ygrek/lib/spec/unixdate.f ( n -- s m h ) DateTime>Days ~ygrek/lib/spec/unixdate.f ( s m h d m1 y -- days ) DateTime>PAD ~ygrek/lib/spec/unixdate.f ( s m h d m1 y -- a u ) ColNumAttribute ~yz/lib/ODBC.F ( col attr fodbc \ num -- n ) ColStrAttribute ~yz/lib/ODBC.F ( addr col attr fodbc \ len -- ) ColSize ~yz/lib/ODBC.F ( col fodbc -- n) ColDisplaySize ~yz/lib/ODBC.F ( col fodbc -- n) ColType ~yz/lib/ODBC.F ( col fodbc -- n) ColCount ~yz/lib/ODBC.F ( fodbc -- n) ColName ~yz/lib/ODBC.F ( a col fodbc -- ) SQL_OK? ~yz/lib/ODBC.F SQL_INTEGER ~yz/lib/ODBC.F ( ->bl; -- ) SQL_SMALLINT ~yz/lib/ODBC.F ( ->bl; -- ) SQL_TINYINT ~yz/lib/ODBC.F ( ->bl; -- ) SQL_FLOAT ~yz/lib/ODBC.F ( ->bl; -- ) SQL_DOUBLE ~yz/lib/ODBC.F ( ->bl; -- ) SQL_CHAR ~yz/lib/ODBC.F ( ->bl; --) SQL_BINARY ~yz/lib/ODBC.F ( ->bl; -- ) SQL_BIT ~yz/lib/ODBC.F ( ->bl; -- ) SQL_DATE ~yz/lib/ODBC.F ( ->bl; -- ) SQL_TIME ~yz/lib/ODBC.F ( ->bl; -- ) SQL_TIMESTAMP ~yz/lib/ODBC.F ( ->bl; -- ) BIND ~yz/lib/ODBC.F ( -- ) BIND; ~yz/lib/ODBC.F ( -- ) ISNULL ~yz/lib/ODBC.F ( field-len -- ) StartSQL ~yz/lib/ODBC.F ( -- fodbc flag ) StopSQL ~yz/lib/ODBC.F ( fodbc -- ) ConnectSQL ~yz/lib/ODBC.F ( S" data source" S" name" S" pass" fodbc -- ior ) ResultCols ~yz/lib/ODBC.F ( fodbc -- n ) AffectedRows ~yz/lib/ODBC.F ( fodbc -- n ) ExecuteSQL ~yz/lib/ODBC.F ( z-stat fodbc -- ior ) NextRowWithInfo ~yz/lib/ODBC.F ( fodbc -- ? ) NextRow ~yz/lib/ODBC.F ( fodbc -- ? ) SqlIsBinary ~ac/lib/win/odbc/ODBC.F ( type -- flag ) SQL_OK? ~ac/lib/win/odbc/ODBC.F SQL_Error_old ~ac/lib/win/odbc/ODBC.F ( ior fodbc -- ) SQLDumpError ~ac/lib/win/odbc/ODBC.F ( addr u -- ) SQL_Error ~ac/lib/win/odbc/ODBC.F ( ior fodbc \ pcbErrorMsg ErrNat mem -- ) SQL_ConnError ~ac/lib/win/odbc/ODBC.F ( ior fodbc \ pcbErrorMsg ErrNat mem -- ) StartSQL ~ac/lib/win/odbc/ODBC.F ( -- fodbc flag ) ConnectSQL ~ac/lib/win/odbc/ODBC.F ( S" data source" S" name" S" pass" fodbc -- ior ) FreeStmt ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) ReconnectSQL ~ac/lib/win/odbc/ODBC.F ( fodbc -- ior ) ResultCols ~ac/lib/win/odbc/ODBC.F ( fodbc -- n ) AffectedRows ~ac/lib/win/odbc/ODBC.F ( fodbc -- n ) IndexResultCol ~ac/lib/win/odbc/ODBC.F ( n fodbc -- errcode ) IndexResultCols ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) RowSize ~ac/lib/win/odbc/ODBC.F ( fodbc -- n ) BindCols ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) UnbindCols ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) cash-odbc-params ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) SQLLastQuery ~ac/lib/win/odbc/ODBC.F ( addr u -- ) ExecSQL ~ac/lib/win/odbc/ODBC.F ( S" statement" fodbc -- ior ) FreeExec ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) StopSQL ~ac/lib/win/odbc/ODBC.F ( fodbc -- ) ExecSQLfile ~ac/lib/win/odbc/ODBC.F ( S" filename" fodbc -- ior ) ColFind ~ac/lib/win/odbc/ODBC.F ( n fodbc -- ci ) ColName ~ac/lib/win/odbc/ODBC.F ( n fodbc \ ci -- addr u ) ColSize ~ac/lib/win/odbc/ODBC.F ( n fodbc -- n ) ColType ~ac/lib/win/odbc/ODBC.F ( n fodbc -- n ) Row ~ac/lib/win/odbc/ODBC.F ( fodbc -- addr u ) NextRow ~ac/lib/win/odbc/ODBC.F ( fodbc -- flag ) Col ~ac/lib/win/odbc/ODBC.F ( n fodbc -- addr u ) SqlTxtDelete ~pinka/lib/win/odbc/ODBC-txt.f ( S" statement" fodbc -- sql_ior ) ExecSQLTxt ~pinka/lib/win/odbc/ODBC-txt.f ( S" statement" fodbc -- sql_ior ) MyErrStr ~day/lib/mysql.f ( -- addr u ) MyConnect ~day/lib/mysql.f ( host hu user uu passw pu -- h ior ) MyClose ~day/lib/mysql.f ( h -- ) MyStat ~day/lib/mysql.f ( h -- addr u ) MySelectDB ~day/lib/mysql.f ( addr u h -- f ) MyQuery ~day/lib/mysql.f ( addr u h -- f ) MyStoreRes ~day/lib/mysql.f ( h -- res ) MyFreeRes ~day/lib/mysql.f ( res -- ) MyNumRows ~day/lib/mysql.f ( res -- u ) MyNumFields ~day/lib/mysql.f ( res -- u ) MyFetchField ~day/lib/mysql.f ( u res -- field ) MyFetchRow ~day/lib/mysql.f ( res -- row ) FieldName ~day/lib/mysql.f ( field -- addr u ) FieldSize ~day/lib/mysql.f ( field -- u ) ColData ~day/lib/mysql.f ( u row res -- addr u ) StartAppWaitDir ~ac/lib/win/process/process.f ( S" application.exe" S" curr_directory" wait -- exit_code ior ) StartApp ~ac/lib/win/process/process.f ( S" application.exe" -- flag ) StartAppWait ~ac/lib/win/process/process.f ( S" application.exe" -- flag ) Visible ~ac/lib/win/process/process.f GetProcessACL ~ac/lib/win/access/nt_access.f ( handle -- dacl ior ) CreateEveryoneACE ~ac/lib/win/access/nt_access.f ( -- ) CreateEveryoneACL ~ac/lib/win/access/nt_access.f ( -- acl ior ) SetObjectACL ~ac/lib/win/access/nt_access.f ( acl h -- ior ) IsapiTYPE ~ac/lib/win/isapi/isapi.f IsapiSetStatus ~ac/lib/win/isapi/isapi.f IsapiSetHeader ~ac/lib/win/isapi/isapi.f SCRIPT_FILENAME ~ac/lib/win/isapi/isapi.f SCRIPT_NAME ~ac/lib/win/isapi/isapi.f SERVER_PROTOCOL ~ac/lib/win/isapi/isapi.f SERVER_SOFTWARE ~ac/lib/win/isapi/isapi.f IsapiMapPath ~ac/lib/win/isapi/isapi.f ( addr u -- addr2 u2 ) IsapiExtension: ~ac/lib/win/isapi/isapi.f IsapiInitExtension ~ac/lib/win/isapi/isapi.f ( addr -- ) IsapiCallExtension ~ac/lib/win/isapi/isapi.f ( ecb addr -- res ) IsapiAdump ~ac/lib/win/isapi/isapi.f IsapiRunExtension ~ac/lib/win/isapi/isapi.f ( scriptaddr scriptu addr -- code ) CREATE-CP ~ac/lib/win/thread/pool.f ( max-threads -- h ior ) GET-CP ~ac/lib/win/thread/pool.f ( time h -- flag ior ) POST-CP ~ac/lib/win/thread/pool.f ( over key bytes h -- ior ) CREATE-MUTEX lib/win/mutex.f ( addr u flag -- handle ior ) CLOSE-MUTEX lib/win/mutex.f ( handle -- ior ) RELEASE-MUTEX lib/win/mutex.f ( handle -- ior ) WAIT lib/win/mutex.f ( time handle -- flag ior ) MAKE-CS, ~pinka/lib/multi/critical.f ( -- ) CREATED-CS ~pinka/lib/multi/critical.f ( name-a name-u -- ) CREATE-CS ~pinka/lib/multi/critical.f ( "name" -- ) ActivateCSs ~pinka/lib/multi/critical.f ( -- ) DeactivateCSs ~pinka/lib/multi/critical.f ( -- ) ENTER-CS ~pinka/lib/multi/critical.f ( cs -- ) LEAVE-CS ~pinka/lib/multi/critical.f ( cs -- ) NEW-CS ~pinka/lib/multi/critical.f ( -- cs ) DEL-CS ~pinka/lib/multi/critical.f ( cs -- ) WaitAny ~pinka/lib/multi/Synchr.f ( h1 h2 ... hn n time -- false|number_from_top ) WaitAll ~pinka/lib/multi/Synchr.f ( h1 h2 ... hn n time -- flag ) Wait ~pinka/lib/multi/Synchr.f ( handle time -- flag ) RG_OpenKey ~ac/lib/win/registry2.f ( addr u key -- h ior ) RG_CreateKey ~ac/lib/win/registry2.f ( addr u key -- h ior ) RG_ForEachKey ~ac/lib/win/registry2.f ( xt h -- ) RG_ForEachValue ~ac/lib/win/registry2.f ( xt h -- ) RG_QueryValue ~ac/lib/win/registry2.f ( valuename-a valuename-u h -- addr u type ) RG_SetValue ~ac/lib/win/registry2.f ( addr u type valuename-a valuename-u h -- ) Value ~ac/lib/win/registry2.f ( valuename-a valuename-u keyname-a keyname-u -- addr u type ) Value! ~ac/lib/win/registry2.f ( addr u type valuename-a valuename-u keyname-a keyname-u -- ) StrValue ~ac/lib/win/registry2.f ( valuename-a valuename-u keyname-a keyname-u -- addr u ) NumValue ~ac/lib/win/registry2.f ( valuename-a valuename-u keyname-a keyname-u -- x ) BinValue ~ac/lib/win/registry2.f ( valuename-a valuename-u keyname-a keyname-u -- addr u ) StrValue! ~ac/lib/win/registry2.f ( addr u valuename-a valuename-u keyname-a keyname-u -- ) NumValue! ~ac/lib/win/registry2.f ( x valuename-a valuename-u keyname-a keyname-u -- ) FormatV ~ac/lib/win/registry2.f ( addr u type -- addr u ) FormatValue ~ac/lib/win/registry2.f ( valuename-a valuename-u keyname-a keyname-u -- addr u ) (IniFile@) ~ac/lib/win/ini.f ( S" key" S" section" S" file" -- S" value" ) IniFile@ ~ac/lib/win/ini.f ( S" key" S" section" S" file" -- S" value" ) IniFile! ~ac/lib/win/ini.f ( S" value" S" key" S" section" S" file" -- ) (IniEnum) ~ac/lib/win/ini.f IniEnum ~ac/lib/win/ini.f ( a u xt -- ... ) IniFileExists_old ~ac/lib/win/ini.f ( addr u -- flag ) IniFileExists ~ac/lib/win/ini.f ( addr u -- flag ) IniDefault2 ~ac/lib/win/ini.f IniDefault1 ~ac/lib/win/ini.f STRNIL ~ac/lib/win/ini.f SFS! ~ac/lib/win/ini.f ( s addr -- ) (File.Section[Key]>) ~ac/lib/win/ini.f File.Section[Key]> ~ac/lib/win/ini.f FileOrig.Section[Key]> ~ac/lib/win/ini.f (IniS@) ~ac/lib/win/ini.f (IniS!) ~ac/lib/win/ini.f ( va vu -- ) IniS@ ~ac/lib/win/ini.f ( a u -- S" value" ) IniS! ~ac/lib/win/ini.f ( va vu a u -- S" value" ) ""@ ~ac/lib/win/ini.f ( a u -- str ) "S"@ ~ac/lib/win/ini.f ( a u -- str ) NOTFOUND ~ac/lib/win/ini.f ( a u -- ... ) XCOUNT ~ac/lib/str5.f ( xs -- addr1 u1 ) S' ~ac/lib/str5.f SALLOT ~ac/lib/str5.f ( addr u -- xs ) sALLOT ~ac/lib/str5.f s@ ~ac/lib/str5.f ( s -- xs ) s! ~ac/lib/str5.f ( xs s -- ) STR@ ~ac/lib/str5.f ( s -- addr u ) STRFREE ~ac/lib/str5.f ( s -- ) STYPE ~ac/lib/str5.f ( s -- ) STR+ ~ac/lib/str5.f ( addr u s -- ) STR! ~ac/lib/str5.f ( addr u s -- ) S+ ~ac/lib/str5.f ( s1 s -- ) "" ~ac/lib/str5.f ( -- s ) LSTRFREE1 ~ac/lib/str5.f ( -- ) {eval} ~ac/lib/str5.f ( ... s -- s ) {sn} ~ac/lib/str5.f ( ... s -- s ) ({...}) ~ac/lib/str5.f ( -- s ) {...} ~ac/lib/str5.f ( addr u -- ... ) S"{" ~ac/lib/str5.f ( -- addr u ) S"}" ~ac/lib/str5.f ( -- addr u ) "delimiters ~ac/lib/str5.f ( addr 2 -- ) "delimiters: ~ac/lib/str5.f ( -- ) ((")) ~ac/lib/str5.f ( -- s ) (") ~ac/lib/str5.f ( addr u -- s ) {STR@LOCAL} ~ac/lib/str5.f ( addr u s -- ) (STR@LOCAL) ~ac/lib/str5.f ( -- s ) STR@LOCALs ~ac/lib/str5.f ( addr u -- s ) _STRLITERAL ~ac/lib/str5.f ( -- s ) STRLITERAL ~ac/lib/str5.f ( addr u -- ) CRLF ~ac/lib/str5.f '' ~ac/lib/str5.f PARSE" ~ac/lib/str5.f ( \ s c -- addr u ) " ~ac/lib/str5.f ( "ccc" -- ) LastFileFree ~ac/lib/str5.f LastFileSize ~ac/lib/str5.f FILE ~ac/lib/str5.f ( addr u -- addr1 u1 ) FILEFREE ~ac/lib/str5.f ( a -- ) S@ ~ac/lib/str5.f ( addr u -- addr2 u2 ) EVAL-FILE ~ac/lib/str5.f ( addr u -- addr1 u1 ) S! ~ac/lib/str5.f ( addr u var_addr -- ) >STR ~ac/lib/str5.f ( addr u -- str ) STRLEN ~ac/lib/str5.f STRA ~ac/lib/str5.f GetNextChar ~ac/lib/transl/BNF.F ( -- ) Expected ~ac/lib/transl/BNF.F ( addr u -- ) Match ~ac/lib/transl/BNF.F ( char -- ) IsDigit_nz ~ac/lib/transl/BNF.F ( char -- flag ) IsDigit ~ac/lib/transl/BNF.F ( char -- flag ) GetNumber ~ac/lib/transl/BNF.F ( -- s ) GetNzNumber ~ac/lib/transl/BNF.F ( -- s ) IsCHAR ~ac/lib/transl/BNF.F ( char -- flag ) IsTEXT_CHAR ~ac/lib/transl/BNF.F ( char -- flag ) IsCHAR8 ~ac/lib/transl/BNF.F ( char -- flag ) IsCTL ~ac/lib/transl/BNF.F ( char -- flag ) IsSPACE ~ac/lib/transl/BNF.F ( char -- flag ) IsQuotedSpecials ~ac/lib/transl/BNF.F ( char -- flag ) IsQUOTED_CHAR ~ac/lib/transl/BNF.F ( char -- flag ) GetQuoted ~ac/lib/transl/BNF.F ( -- s ) LookString ~ac/lib/transl/BNF.F ( addr u -- flag ) SkipString ~ac/lib/transl/BNF.F ( addr u -- flag ) BNF ~ac/lib/transl/BNF.F CHECK-SET ~day/common/sbnf.f ( addr u max min addr2 u2 -- addr2 u2 bool ) ~day/common/sbnf.f ( addr u max min -- addr2 u2 bool ) ~day/common/sbnf.f ( addr u max min -- addr2 u2 bool ) ~day/common/sbnf.f ( addr u max min -- addr2 u2 bool ) ~day/common/sbnf.f ( addr u max min -- addr2 u2 bool ) ?FLOAT ~day/common/sbnf.f ( addr u -- bool ) UpCase ~pinka/lib/mask.f ( c1 -- c2 ) WildCMP-U ~pinka/lib/mask.f ( str strlen wc wclen -- n ) SEARCH&SKIP ~pinka/lib/like.f ( a u a-subs u-subs -- a2 u2 true | a u false ) MATCH-SIMPLE ~pinka/lib/like.f ( a u apat upat -- a1 u1 flag ) LIKE ~pinka/lib/like.f ( a1 u1 a-mask u-mask -- flag ) ULIKE ~pinka/lib/like.f ( a1 u1 a-mask u-mask -- flag ) CHAR-UPPERCASE ~ac/lib/string/uppercase.f ( c -- c1 ) UPPERCASE ~ac/lib/string/uppercase.f ( addr1 u1 -- ) COMPARE-CHAR-U ~ac/lib/string/compare-u.f ( c1 c2 -- -1|0|1 ) COMPARE-U ~ac/lib/string/compare-u.f ( addr1 u1 addr2 u2 -- flag ) CONVERT ~ac/lib/string/get_params.f ( a u c1 c2 -- ) CONVERT% ~ac/lib/string/get_params.f ( a u \ a2 u2 i -- a2 u2 ) SetParam1 ~ac/lib/string/get_params.f ( va vu na nu -- ) STRING: ~ac/lib/string/get_params.f Name:Value ~ac/lib/string/get_params.f AllocParams ~ac/lib/string/get_params.f GetParamsFromString ~ac/lib/string/get_params.f ( addr u -- ) ForEachParam ~ac/lib/string/get_params.f ( xt \ a -- ) DumpParam ~ac/lib/string/get_params.f ( na nu va vu -- ) DumpParams ~ac/lib/string/get_params.f SearchParam ~ac/lib/string/get_params.f ( na nu \ a -- a true | false ) IsSet ~ac/lib/string/get_params.f ( addr u -- flag ) SetParam ~ac/lib/string/get_params.f ( va vu na nu -- ) GetParam ~ac/lib/string/get_params.f ( na nu -- va vu ) SPLIT- ~pinka/samples/2005/lib/split.f ( a u a-key u-key -- a-right u-right a-left u-left true | a u false ) SPLIT ~pinka/samples/2005/lib/split.f ( a u a-key u-key -- a-left u-left a-right u-right true | a u false ) MOVE- ~pinka/samples/2005/lib/split.f ( a-dst a-src u-src -- ) INPLACE- ~pinka/samples/2005/lib/split.f ( a u a-key u-key a-value u-value -- ) SEAT- ~pinka/samples/2005/lib/split.f ( a-dst u-dst a-src u-src -- ) SEATED- ~pinka/samples/2005/lib/split.f ( a-dst u-dst a-src u-src -- a-dst u ) SEATED ~pinka/samples/2005/lib/split.f ( a-src u-src a-dst u-dst -- a-dst u ) REPLACE- ~pinka/samples/2005/lib/split.f ( a u a-k u-k a-new u-new -- a u3 ) CROP ~pinka/samples/2005/lib/split.f ( a1 u1 a-dst u-dst-max -- a-rest u-rest ) CROP- ~pinka/samples/2005/lib/split.f ( a-dst u-dst-max a1 u1 -- a-rest u-rest ) REPLACE-TO ~pinka/samples/2005/lib/split.f ( a u a-k u-k a-new u-new a-dst u-dst-max -- a-dst u ) replace-str- ~pinka/samples/2005/lib/replace-str.f ( s s-old s-new -- ) replace-str ~pinka/samples/2005/lib/replace-str.f ( s-new s-old s -- ) IS-WHITE ~pinka/samples/2005/lib/split-white.f ( c -- flag ) FINE-HEAD ~pinka/samples/2005/lib/split-white.f ( c-addr u -- c-addr1 u1 ) FINE-TAIL ~pinka/samples/2005/lib/split-white.f ( c-addr u -- c-addr u2 ) SPLIT-WHITE-FORCE ~pinka/samples/2005/lib/split-white.f ( c-addr u -- c-addr-left u-left c-addr-right u-right ) -SPLIT-WHITE-FORCE ~pinka/samples/2005/lib/split-white.f ( c-addr u -- c-addr-left u-left c-addr-right u-right ) UNBROKEN ~pinka/samples/2005/lib/split-white.f ( c-addr u -- c-addr u2 ) TYPE>STR-CATCH ~ygrek/lib/typestr.f ( xt | old.type old.heap old.str -- str ior ) TYPE>STR ~ygrek/lib/typestr.f ( xt -- str ) S> ~profit/lib/bac4th-str.f ( a u -- s ) S>STR ~profit/lib/bac4th-str.f ( a u --> s \ <-- s ) S>STR2 ~profit/lib/bac4th-str.f ( a u --> s \ <-- ) copy-patch ~profit/lib/bac4th-str.f ( a u i l \ e t -- a+i l ) copy ~profit/lib/bac4th-str.f ( a u i l --> s \ <-- s ) byChar ~profit/lib/bac4th-str.f ( c <--> xt ) find ~profit/lib/bac4th-str.f ( a u f <--> a1 ) split-patch ~profit/lib/bac4th-str.f ( a u f <--> addr u ) first-patch ~profit/lib/bac4th-str.f ( a u f -- addr u ) first ~profit/lib/bac4th-str.f ( a u f <--> s ) divide-patch ~profit/lib/bac4th-str.f ( a u f -- addr1 u1 addr2 u2 ) divide ~profit/lib/bac4th-str.f ( a u f --> s1 s2 \ <-- s1 s2 ) split ~profit/lib/bac4th-str.f ( a u f <--> s1 ) last-patch ~profit/lib/bac4th-str.f ( a u f <--> addr u ) last ~profit/lib/bac4th-str.f ( a u f <--> s1 ) notEmpty ~profit/lib/bac4th-str.f ( s <--> s ) concat{ ~profit/lib/bac4th-str.f }concat ~profit/lib/bac4th-str.f load-file ~profit/lib/bac4th-str.f ( addr u <--> addr1 u1 ) iterateStrings ~profit/lib/bac4th-str.f ( addr u <--> s ) CEQUAL ~pinka/spf/string-equal.f ( c-addr1 u1 c-addr2 u2 -- flag ) EQUAL ~pinka/spf/string-equal.f ( c-addr1 u1 c-addr2 u2 -- flag ) OPEN-FILE-SHARED-DELETE ~ac/lib/win/file/share-delete.f ( c-addr u fam -- fileid ior ) CREATE-FILE-SHARED-DELETE ~ac/lib/win/file/share-delete.f ( c-addr u fam -- fileid ior ) CREATE-FILE-SHARED-DELETE-ON-CLOSE ~ac/lib/win/file/share-delete.f ( c-addr u fam -- fileid ior ) CREATE-FOLDER ~pinka/samples/2005/lib/lay-path.f ( addr u -- ior ) LAY-PATH-CATCH ~pinka/samples/2005/lib/lay-path.f ( a u -- ior ) LAY-PATH ~pinka/samples/2005/lib/lay-path.f ( a u -- ) FORCE-PATH ~pinka/samples/2005/lib/lay-path.f ( a u -- a u ) 9REPOSITION-FILE ~pinka/samples/2005/lib/append-file.f ( fileid -- ior ) OPEN-LOGFILE ~pinka/samples/2005/lib/append-file.f ( a u -- h ior ) ATTACH-CATCH ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ior ) ATTACH ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ) ATTACH-LINE ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ) ATTACH-LINE-CATCH ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ior ) EMPTY ~pinka/samples/2005/lib/append-file.f ( file-a file-u -- ) OCCUPY ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ) OCCUPY-CATCH ~pinka/samples/2005/lib/append-file.f ( a u a-file u-file -- ior ) SAVE-TANK ~pinka/samples/2005/ext/tank.f ( -- i*x i ) RESTORE-TANK ~pinka/samples/2005/ext/tank.f ( i*x i -- ) TANK-ID! ~pinka/samples/2005/ext/tank.f ( hfile -- ) STD-TANK ~pinka/samples/2005/ext/tank.f ( -- ) SPEAK-FILE-WITH ~pinka/samples/2005/ext/tank.f ( i*x hfile xt -- j*x ior ) APPEND-FILE ~pinka/samples/2005/ext/tank.f ( a-file u-file -- h ) APPEND-FILE-CATCH ~pinka/samples/2005/ext/tank.f ( a-file u-file -- h ior ) SPEAK-WITH ~pinka/samples/2005/ext/tank.f ( i*x a u xt -- j*x ) XML_DumpAttrs ~ac/lib/lin/xml/expat.f ( addr -- ) SEARCH-ATTRIBUTE ~ac/lib/lin/xml/expat.f ( a u wid -- 0 | xt true ) XML_ExecAttrs ~ac/lib/lin/xml/expat.f ( addr -- ) >NAME ~ac/lib/lin/xml/expat.f VOC-NAME ~ac/lib/lin/xml/expat.f ( wid -- addr u ) XML_NewParserGenerator ~ac/lib/lin/xml/expat.f ( \ p -- p ) XML_DumpError ~ac/lib/lin/xml/expat.f ( p -- ) XML_PFree ~ac/lib/lin/xml/expat.f ( p -- ) XML_Generate ~ac/lib/lin/xml/expat.f ( islast addr u p -- ) XML_NewEvaluator ~ac/lib/lin/xml/expat.f ( \ p -- p ) XML_Evaluate ~ac/lib/lin/xml/expat.f ( islast addr u p -- ) X{ ~ac/lib/lin/xml/expat.f }X ~ac/lib/lin/xml/expat.f SWAP-CURRENT ~day/joop/oop.f this ~day/joop/oop.f WITH ~day/joop/oop.f ( oid -- ) UnknownMsg ~day/joop/oop.f ( -- a u ) RESOLVE-LINK ~day/joop/oop.f ( addr u oid -- xt true | false ) ResolveLink ~day/joop/oop.f ( addr u oid -- xt ) ExecuteMethod ~day/joop/oop.f ( i*x xt oid -- j*x ) sendMessage ~day/joop/oop.f ( ... addr u oid -- ... ) message: ~day/joop/oop.f ( oid ) pvar: ~day/joop/oop.f << ~day/joop/oop.f CLASS: ~day/joop/oop.f ( - ) own_old ~day/joop/oop.f own ~day/joop/oop.f >CLASS ~day/joop/oop.f M:: ~day/joop/oop.f ( c "WM_..." -- ) W: ~day/joop/oop.f C: ~day/joop/oop.f N: ~day/joop/oop.f P: ~day/joop/oop.f M: ~day/joop/oop.f SearchWM ~day/joop/oop.f ( mess_id oid c -- xt -1 | 0) ->WM ~day/joop/oop.f ( mess_id oid c) WM: ~day/joop/oop.f METHODS{ ~day/joop/oop.f ( oid -- ) }METHODS ~day/joop/oop.f VARS{ ~day/joop/oop.f ( oid -- ) }VARS ~day/joop/oop.f EXPAND-CLASS ~day/joop/oop.f ( oid -- ) ;EXPAND-CLASS ~day/joop/oop.f ( C: oid1 oid2 wid -- ) CLASS: ~af/mc/microclass.f ( "name" -- 0 ) CHILD: ~af/mc/microclass.f ( -- u ) OBJECT ~af/mc/microclass.f ( length -- addr ) NEWOBJ ~af/mc/microclass.f ( -- addr ) DELETEOBJ ~af/mc/microclass.f ( addr -- ) FIELD ~day/mc/microclass.f _exitm ~day/mc/microclass.f _in ~day/mc/microclass.f M: ~day/mc/microclass.f DO-IT-DEF ~day/mc/microclass.f CLASS: ~day/mc/microclass.f ( "name" -- 0 ) ;CLASS ~day/mc/microclass.f CHILD: ~day/mc/microclass.f ( -- u ) WITH ~day/mc/microclass.f ENDWITH ~day/mc/microclass.f LOOK-FOR-INIT ~day/mc/microclass.f ( -- 0 | xt 1 | xt -1 ) LOOK-FOR-DESTROY ~day/mc/microclass.f ( wid -- 0 | xt 1 | xt -1 ) OBJECT ~day/mc/microclass.f ( length -- addr ) (NEW) ~day/mc/microclass.f ( length -- addr ) NEW ~day/mc/microclass.f ( -- ) INHERIT ~day/mc/microclass.f ( -- ) CLASS ~day/hype3/hype3.f SUBCLASS ~day/hype3/hype3.f DEFS ~day/hype3/hype3.f ( n "f ") PROPERTY ~day/hype3/hype3.f ( n "f ") (send-obj) ~day/hype3/hype3.f ( xt shift ) (enter-subobject) ~day/hype3/hype3.f ( shift -- R: prev-self ) (enter-subobject0) ~day/hype3/hype3.f ( obj -- R: prev-self ) (exit-subobject) ~day/hype3/hype3.f OBJ-SEND, ~day/hype3/hype3.f ( class shift addr u ) OBJ ~day/hype3/hype3.f ( ta "f" ) VAR ~day/hype3/hype3.f ;CLASS ~day/hype3/hype3.f CompileDeferredStatic ~day/hype3/hype3.f ( a ta "name" ) :: ~day/hype3/hype3.f ( obj "word" ) with{ ~day/hype3/hype3.f ( " class" -- ) OBJ-SIZE ~day/hype3/hype3.f ^ ~day/hype3/hype3.f => ~day/hype3/hype3.f SUPER ~day/hype3/hype3.f init: ~day/hype3/hype3.f dispose: ~day/hype3/hype3.f SELF ~day/hype3/hype3.f NewObj ~day/hype3/hype3.f ( ta -- addr ) FreeObj ~day/hype3/hype3.f ( obj ) NEW ~day/hype3/hype3.f ( ta "name ") HypeDisposeVoc ~day/hype3/hype3.f INHERIT ~day/hype3/hype3.f ( -- ) DoNotAlign ~day/hype3/hype3.f InVoc{ ~ac/lib/transl/vocab.f ( "vocabulary" -- current ) }PrevVoc ~ac/lib/transl/vocab.f ( current -- ) Public{ ~ac/lib/transl/vocab.f ( current1 -- current1 current2 ) }Public ~ac/lib/transl/vocab.f ( curren1 current2 -- current1 ) ?FORTH ~ac/lib/ns/iterators.f ( wid -- flag ) CAR ~ac/lib/ns/iterators.f ( wid -- item ) WCDR ~ac/lib/ns/iterators.f ( item1 wid -- item2 ) CDR ~ac/lib/ns/iterators.f ( item1 -- item2 ) W?VOC ~ac/lib/ns/iterators.f ( item wid -- flag ) ?VOC ~ac/lib/ns/iterators.f ( item -- flag ) WNAME ~ac/lib/ns/iterators.f ( item wid -- addr u ) NAME ~ac/lib/ns/iterators.f ( item -- addr u ) NFA>WID ~ac/lib/ns/iterators.f ( nfa -- wid ) >WID ~ac/lib/ns/iterators.f ( item -- wid ) ITEM>WID ~ac/lib/ns/iterators.f ( item wid1 -- wid2 ) ForEach ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachW ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachDir ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachR ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachWR ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachDirR ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachDirWR ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachNdirWR ~ac/lib/ns/iterators.f ( xt wid -- ) ForEachNdirW ~ac/lib/ns/iterators.f ( xt wid -- ) id. ~ac/lib/ns/iterators.f wid. ~ac/lib/ns/iterators.f ForEach-Word ~pinka/lib/Words.f ( xt wid -- ) >NAME ~pinka/lib/Words.f ( xt -- NFA|0 ) ReversLink ~pinka/lib/Words.f ( nfa -- ) ReversWL ~pinka/lib/Words.f ( wid -- ) QuickSWL ~pinka/spf/quick-swl2.f ( c-addr u wid -- 0 | xt 1 | xt -1 ) REFRESH-WLHASH ~pinka/spf/quick-swl2.f ( wid -- ) FREE-WORDLIST ~pinka/spf/quick-swl2.f ( wid -- ) WL-#WORDS ~pinka/spf/quick-swl2.f ( wid -- n ) +SWORD2 ~pinka/spf/quick-swl2.f ( addr u wid -- ) : ~pinka/spf/quick-swl2.f ( C: "name" -- colon-sys ) ; ~pinka/spf/quick-swl2.f DLOPEN ~ac/lib/ns/dlopen.f ( addr u -- h ) DLSYM ~ac/lib/ns/dlopen.f ( addr u h -- api-xt ) STACK_MEM ~ac/lib/memory/mem_stack.f ( addr -- ) ALLOCATE ~ac/lib/memory/mem_stack.f ( size -- addr ior ) MS_FREE ~ac/lib/memory/mem_stack.f FREE ~ac/lib/memory/mem_stack.f ( addr -- ior ) RESIZE ~ac/lib/memory/mem_stack.f ( a-addr1 u -- a-addr2 ior ) HEAP-COPY ~ac/lib/memory/mem_stack.f ( addr u -- addr1 ) MARK_MEM ~ac/lib/memory/mem_stack.f ( -- ) FREE_MEM ~ac/lib/memory/mem_stack.f ( -- ) CreateMemoryResourceNotification ~ac/lib/memory/low_memory.f ( flag -- handle ) QueryMemoryResourceNotification ~ac/lib/memory/low_memory.f ( var handle -- flag ) LowMemory? ~ac/lib/memory/low_memory.f ( -- flag ) HighMemory? ~ac/lib/memory/low_memory.f ( -- flag ) InitMemoryNotification ~ac/lib/memory/low_memory.f ( -- ) WaitHighMemory,Log ~ac/lib/memory/low_memory.f L_LOCALALLOC ~mak/LALLOC.F ( n1 -- a1 ) LOCALALLOC ~mak/LALLOC.F ( n1 -- a1 ) TT0 ~mak/LALLOC.F TT1 ~mak/LALLOC.F TT2 ~mak/LALLOC.F TST ~mak/LALLOC.F HEAP-ID! ~pinka/spf/mem2.f ( heap -- ) ALLOCATE2 ~pinka/spf/mem2.f ( u -- a-addr ior ) FREE2 ~pinka/spf/mem2.f ( a-addr -- ior ) RESIZE2 ~pinka/spf/mem2.f ( a-addr1 u -- a-addr2 ior ) HEAP-GLOBAL ~pinka/spf/mem2.f ( -- ) HEAP-DEFAULT ~pinka/spf/mem2.f ( -- ) TLS-ALLOC ~ss/lib/task-values.f ( -- index ior ) TLS-FREE ~ss/lib/task-values.f ( index -- ior ) TLS! ~ss/lib/task-values.f ( x index -- ior ) TLS@ ~ss/lib/task-values.f ( index -- x ior ) _TASK-VALUE-CODE ~ss/lib/task-values.f _TOTASK-VALUE-CODE ~ss/lib/task-values.f TASK-VALUE ~ss/lib/task-values.f ( x "name" -- ) INIT-TASK-VALUES ~ss/lib/task-values.f RESET-TASK-VALUES ~ss/lib/task-values.f FREE-TASK-VALUES ~ss/lib/task-values.f VIRTUAL-PROTECT-PAGE ~ss/ext/stack-guard.f ( addr new-prot -- old-prot ior ) xTHROW ~ss/ext/stack-guard.f PROTECT-RETURN-STACK ~ss/ext/stack-guard.f EXC-DUMP-20060215 ~ss/ext/stack-guard.f ( exc-info -- ) MALLOCATE ~yz/lib/gmem.f ( u -- u-addr/0) MFREE ~yz/lib/gmem.f ( a-addr -- ?) MGETMEM ~yz/lib/gmem.f ( u -- a-addr ) MFREEMEM ~yz/lib/gmem.f ( a-addr -- ) CMGETMEM ~yz/lib/gmem.f ( a n -- a2) CZMGETMEM ~yz/lib/gmem.f ( a n -- a) ZMGETMEM ~yz/lib/gmem.f ( z -- a) CONST ~micro/lib/const/CONST.F CheckNextWord ~ygrek/lib/enum.f ( -- ? ) ENUM: ~ygrek/lib/enum.f ( xt -- ) ENUM ~ygrek/lib/enum.f ( xt "name" -- ) enqueueNOTFOUND ~pinka/samples/2006/core/trans/nf-ext.f ( xt -- ) preemptNOTFOUND ~pinka/samples/2006/core/trans/nf-ext.f ( xt -- ) GLOBAL-ALLOC ~day/lib/clipboard.f ( u -- h ior) GLOBAL-FREE ~day/lib/clipboard.f ( addr -- ior) GLOBAL-COPY ~day/lib/clipboard.f ( addr u \ h p -- h ) StringToCB ~day/lib/clipboard.f ( addr u) CBString ~day/lib/clipboard.f ( -- c-addr u) >UNICODE ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UNICODE> ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UTF8>UNICODE ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UNICODE>UTF8 ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) >UTF8 ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UTF8> ~ac/lib/win/com/COM.F ( addr u -- addr2 u2 ) UASCIIZ> ~ac/lib/win/com/COM.F ( addr -- addr u ) >BSTR ~ac/lib/win/com/COM.F ( addr u -- bstr ) BSTR> ~ac/lib/win/com/COM.F ( bstr -- addr2 u2 ) ComInit ~ac/lib/win/com/COM.F ( -- ior ) ComExit ~ac/lib/win/com/COM.F ( -- ) ComCreateGUID ~ac/lib/win/com/COM.F ( GUIaddr -- ior ) CLSID>String ~ac/lib/win/com/COM.F ( GUIaddr -- addr u ior ) String>CLSID ~ac/lib/win/com/COM.F ( addr u -- addr2 ior ) ProgID>CLSID ~ac/lib/win/com/COM.F ( addr u -- addr2 ior ) CLSID, ~ac/lib/win/com/COM.F ( addr u -- ) ComGetForthGUID ~ac/lib/win/com/COM.F ( addr -- ) InvokeMethod ~ac/lib/win/com/COM.F ( parameters interface_pointer method_number -- result ) Methods# ~ac/lib/win/com/COM.F ( interface_id -- n ) Methods#! ~ac/lib/win/com/COM.F ( n interface_id -- ) Interface: ~ac/lib/win/com/COM.F ( parent_interface "name" "clsid" -- interface_id n ) Interface; ~ac/lib/win/com/COM.F Method: ~ac/lib/win/com/COM.F ( interface_id n "name" -- interface_id n+1 ) CreateObject ~ac/lib/win/com/COM.F ( addr u -- oid ior ) CreateClass ~ac/lib/win/com/COM.F ( addr u -- oid ior ) GetIDispatch ~ac/lib/win/com/COM.F ( oid -- idispatch ior ) GetIdOfName ~ac/lib/win/com/COM.F ( idisp addr u -- n ior ) unicode> ~day/lib/unicode.f ( addr u \ addr1 u1 ) >unicode ~day/lib/unicode.f ( addr u \ addr1 u1 ) utf8Next ~profit/lib/utf8.f ( addr -- wchar ) utf8Move ~profit/lib/utf8.f ( addr -- addr wchar ) utf8Decode ~profit/lib/utf8.f ( addr u buf -- end ) utf8>uni ~profit/lib/utf8.f ( addr1 u1 -- addr2 u2 ) AL64 ~ac/lib/string/CONV.F ( n -- char ) -AL64 ~ac/lib/string/CONV.F ( char -- n flag ) AL@ ~ac/lib/string/CONV.F base64 ~ac/lib/string/CONV.F ( addr u -- addr1 u1 ) debase64_1 ~ac/lib/string/CONV.F ( addr u -- addr1 u1 ) +>BL ~ac/lib/string/CONV.F ( addr u -- ) />\ ~ac/lib/string/CONV.F ( addr u -- ) \>/ ~ac/lib/string/CONV.F ( addr u -- ) ?=&>BL ~ac/lib/string/CONV.F ( addr u -- ) TIB>BL ~ac/lib/string/CONV.F ( addr u -- ) TIB;>BL ~ac/lib/string/CONV.F ( addr u -- ) TIB,>BL ~ac/lib/string/CONV.F ( addr u -- ) TIB,<>>BL ~ac/lib/string/CONV.F ( addr u -- ) Strip< ~ac/lib/string/CONV.F ( addr u -- addr2 u2 ) ..>-- ~ac/lib/string/CONV.F ( addr u -- ) CKOI>WIN ~ac/lib/string/CONV.F ( char1 -- char2 ) KOI>WIN ~ac/lib/string/CONV.F ( addr u -- addr u ) CWIN>KOI ~ac/lib/string/CONV.F ( char1 -- char2 ) WIN>KOI ~ac/lib/string/CONV.F ( addr u -- addr u ) asTib ~ac/lib/string/CONV.F ( addr u -- ) iconv: ~ygrek/lib/iconv.f ( a1 u1 a2 u2 "name" -- ) _CREATE-CODE src/spf_defkern.f _CONSTANT-CODE src/spf_defkern.f _USER-CODE src/spf_defkern.f USER+ src/spf_defkern.f ( offs -- addr ) _USER-VALUE-CODE src/spf_defkern.f _USER-VECT-CODE src/spf_defkern.f _VECT-CODE src/spf_defkern.f _TOVALUE-CODE src/spf_defkern.f _TOUSER-VALUE-CODE src/spf_defkern.f _SLITERAL-CODE src/spf_defkern.f _CLITERAL-CODE src/spf_defkern.f _---CODE src/spf_defkern.f DUP src/spf_forthproc.f ( x -- x x ) 2DUP src/spf_forthproc.f ( x1 x2 -- x1 x2 x1 x2 ) DROP src/spf_forthproc.f ( x -- ) MAX src/spf_forthproc.f ( n1 n2 -- n3 ) MIN src/spf_forthproc.f ( n1 n2 -- n3 ) UMAX src/spf_forthproc.f ( n1 n2 -- n3 ) UMIN src/spf_forthproc.f ( n1 n2 -- n3 ) 0MAX src/spf_forthproc.f ( N1 -- N2 ) 2DROP src/spf_forthproc.f ( x1 x2 -- ) SWAP src/spf_forthproc.f ( x1 x2 -- x2 x1 ) 2SWAP src/spf_forthproc.f ( x1 x2 x3 x4 -- x3 x4 x1 x2 ) OVER src/spf_forthproc.f ( x1 x2 -- x1 x2 x1 ) 2OVER src/spf_forthproc.f ( x1 x2 x3 x4 -- x1 x2 x3 x4 x1 x2 ) NIP src/spf_forthproc.f ( x1 x2 -- x2 ) ROT src/spf_forthproc.f ( x1 x2 x3 -- x2 x3 x1 ) -ROT src/spf_forthproc.f ( x1 x2 x3 -- x3 x1 x2 ) PICK src/spf_forthproc.f ( xu ... x1 x0 u -- xu ... x1 x0 xu ) ROLL src/spf_forthproc.f ( xu xu-1 ... x0 u -- xu-1 ... x0 xu ) TUCK src/spf_forthproc.f ( x1 x2 -- x2 x1 x2 ) 2>R src/spf_forthproc.f 2R> src/spf_forthproc.f R@ src/spf_forthproc.f 2R@ src/spf_forthproc.f @ src/spf_forthproc.f ( a-addr -- x ) ! src/spf_forthproc.f ( x a-addr -- ) C@ src/spf_forthproc.f ( c-addr -- char ) C! src/spf_forthproc.f ( char c-addr -- ) W@ src/spf_forthproc.f ( c-addr -- word ) W! src/spf_forthproc.f ( word c-addr -- ) 2@ src/spf_forthproc.f ( a-addr -- x1 x2 ) 2! src/spf_forthproc.f ( x1 x2 a-addr -- ) 1+ src/spf_forthproc.f ( n1|u1 -- n2|u2 ) 1- src/spf_forthproc.f ( n1|u1 -- n2|u2 ) 2+ src/spf_forthproc.f ( W -> W+2 ) 2- src/spf_forthproc.f ( W -> W-2 ) 2* src/spf_forthproc.f + src/spf_forthproc.f ( n1|u1 n2|u2 -- n3|u3 ) CELL+ src/spf_forthproc.f CELL- src/spf_forthproc.f CELLS src/spf_forthproc.f D+ src/spf_forthproc.f ( d1|ud1 d2|ud2 -- d3|ud3 ) D- src/spf_forthproc.f ( d1|ud1 d2|ud2 -- d3|ud3 ) - src/spf_forthproc.f ( n1|u1 n2|u2 -- n3|u3 ) 1+! src/spf_forthproc.f ( A -> ) 0! src/spf_forthproc.f ( A -> ) COUNT src/spf_forthproc.f ( c-addr1 -- c-addr2 u ) * src/spf_forthproc.f ( n1|u1 n2|u2 -- n3|u3 ) AND src/spf_forthproc.f ( x1 x2 -- x3 ) OR src/spf_forthproc.f ( x1 x2 -- x3 ) XOR src/spf_forthproc.f ( x1 x2 -- x3 ) INVERT src/spf_forthproc.f ( x1 -- x2 ) NEGATE src/spf_forthproc.f ( n1 -- n2 ) ABS src/spf_forthproc.f ( n -- u ) DNEGATE src/spf_forthproc.f ( d1 -- d2 ) NOOP src/spf_forthproc.f ( -> ) S>D src/spf_forthproc.f ( n -- d ) D>S src/spf_forthproc.f ( d -- n ) U>D src/spf_forthproc.f ( U -> D ) C>S src/spf_forthproc.f ( c -- n ) UM* src/spf_forthproc.f ( u1 u2 -- ud ) / src/spf_forthproc.f ( n1 n2 -- n3 ) U/ src/spf_forthproc.f ( W1, W2 -> W3 ) +! src/spf_forthproc.f ( n|u a-addr -- ) MOD src/spf_forthproc.f ( n1 n2 -- n3 ) /MOD src/spf_forthproc.f ( n1 n2 -- n3 n4 ) UMOD src/spf_forthproc.f ( W1, W2 -> W3 ) UM/MOD src/spf_forthproc.f ( ud u1 -- u2 u3 ) 2/ src/spf_forthproc.f ( x1 -- x2 ) U2/ src/spf_forthproc.f ( N1 -- N2 ) */MOD src/spf_forthproc.f ( n1 n2 n3 -- n4 n5 ) M* src/spf_forthproc.f ( n1 n2 -- d ) LSHIFT src/spf_forthproc.f ( x1 u -- x2 ) RSHIFT src/spf_forthproc.f ( x1 u -- x2 ) ARSHIFT src/spf_forthproc.f ( u1 n -- n2 ) SM/REM src/spf_forthproc.f ( d1 n1 -- n2 n3 ) FM/MOD src/spf_forthproc.f ( d1 n1 -- n2 n3 ) DIGIT src/spf_forthproc.f = src/spf_forthproc.f ( x1 x2 -- flag ) <> src/spf_forthproc.f ( x1 x2 -- flag ) < src/spf_forthproc.f ( n1 n2 -- flag ) > src/spf_forthproc.f ( n1 n2 -- flag ) WITHIN src/spf_forthproc.f ( n1 low high -- f1 ) D< src/spf_forthproc.f ( d1 d2 -- flag ) D> src/spf_forthproc.f ( d1 d2 -- flag ) U< src/spf_forthproc.f ( u1 u2 -- flag ) U> src/spf_forthproc.f ( u1 u2 -- flag ) 0< src/spf_forthproc.f ( n -- flag ) 0= src/spf_forthproc.f ( x -- flag ) 0<> src/spf_forthproc.f ( x -- flag ) D0= src/spf_forthproc.f ( xd -- flag ) D= src/spf_forthproc.f ( xd1 xd2 -- flag ) D2* src/spf_forthproc.f ( xd1 -- xd2 ) D2/ src/spf_forthproc.f ( xd1 -- xd2 ) -TRAILING src/spf_forthproc.f ( c-addr u1 -- c-addr u2 ) COMPARE src/spf_forthproc.f ( c-addr1 u1 c-addr2 u2 -- n ) SEARCH src/spf_forthproc.f ( c-addr1 u1 c-addr2 u2 -- c-addr3 u3 flag ) CMOVE src/spf_forthproc.f ( c-addr1 c-addr2 u -- ) CMOVE> src/spf_forthproc.f ( c-addr1 c-addr2 u -- ) FILL src/spf_forthproc.f ( c-addr u char -- ) ASCIIZ> src/spf_forthproc.f ( c-addr -- c-addr u ) SP! src/spf_forthproc.f ( A -> ) RP! src/spf_forthproc.f ( A -> ) SP@ src/spf_forthproc.f ( -> A ) RP@ src/spf_forthproc.f ( -- RP ) TlsIndex! src/spf_forthproc.f ( x -- ) TlsIndex@ src/spf_forthproc.f ( -- x ) FS@ src/spf_forthproc.f ( addr -- x ) FS! src/spf_forthproc.f ( x addr -- ) J src/spf_forthproc.f C-DO src/spf_forthproc.f C-?DO src/spf_forthproc.f ADD[ESP],EAX src/spf_forthproc.f C-I src/spf_forthproc.f C->R src/spf_forthproc.f C-R> src/spf_forthproc.f C-RDROP src/spf_forthproc.f C-?DUP src/spf_forthproc.f C-EXECUTE src/spf_forthproc.f ( i*x xt -- j*x ) DRMOVE src/spf_forthproc.f ( x1 ... xn n*4 -- ) NR> src/spf_forthproc.f ( R: x1 ... xn n -- D: x1 ... xn n ) N>R src/spf_forthproc.f ( D: x1 ... xn n -- R: x1 ... xn n ) NRCOPY src/spf_forthproc.f ( D: i*x i -- D: i*x i R: i*x i ) RP+@ src/spf_forthproc.f ( offs -- x ) RP+ src/spf_forthproc.f ( offs -- addr ) RP+! src/spf_forthproc.f ( x offs -- ) RALLOT src/spf_forthproc.f ( n -- addr ) (RALLOT) src/spf_forthproc.f ( n -- ) RFREE src/spf_forthproc.f ( n -- ) (LocalsExit) src/spf_forthproc.f ( -- ) TIMER@ src/spf_forthproc.f ( -- tlo thi ) TRAP-CODE src/spf_forthproc.f ( D: j*x u R: i*x i -- i*x u ) (ENTER) src/spf_forthproc.f ( {4*params ret_addr} -- 4*params R: ret_addr ebp ) 2.E src/spf_floatkern.f 10.E src/spf_floatkern.f FPI src/spf_floatkern.f FLG2 src/spf_floatkern.f FLN2 src/spf_floatkern.f FL2T src/spf_floatkern.f FL2E src/spf_floatkern.f .E src/spf_floatkern.f 1.E src/spf_floatkern.f F0= src/spf_floatkern.f F0< src/spf_floatkern.f F< src/spf_floatkern.f F= src/spf_floatkern.f FMAX src/spf_floatkern.f FMIN src/spf_floatkern.f FNEGATE src/spf_floatkern.f FCOS src/spf_floatkern.f FSIN src/spf_floatkern.f FSINCOS src/spf_floatkern.f FABS src/spf_floatkern.f F* src/spf_floatkern.f F+ src/spf_floatkern.f F- src/spf_floatkern.f F/ src/spf_floatkern.f FSQRT src/spf_floatkern.f FDROP src/spf_floatkern.f FDUP src/spf_floatkern.f FOVER src/spf_floatkern.f FINT src/spf_floatkern.f FSWAP src/spf_floatkern.f FROT src/spf_floatkern.f FDEPTH src/spf_floatkern.f F1+ src/spf_floatkern.f D>F src/spf_floatkern.f DF! src/spf_floatkern.f DF@ src/spf_floatkern.f F! src/spf_floatkern.f FLOAT>DATA src/spf_floatkern.f ( F: f -- D: du ) DATA>FLOAT src/spf_floatkern.f ( D: du -- F: f ) FLOAT>DATA32 src/spf_floatkern.f ( F: f -- D: f ) DATA>FLOAT32 src/spf_floatkern.f ( D: f -- F: f ) F@ src/spf_floatkern.f SF! src/spf_floatkern.f SF@ src/spf_floatkern.f FLN src/spf_floatkern.f FLNP1 src/spf_floatkern.f FLOG src/spf_floatkern.f ( F: r1 -- r2 ) FEXP src/spf_floatkern.f FEXPM1 src/spf_floatkern.f F** src/spf_floatkern.f FTAN src/spf_floatkern.f FATAN src/spf_floatkern.f FATAN2 src/spf_floatkern.f FACOS src/spf_floatkern.f FASIN src/spf_floatkern.f F>DEG src/spf_floatkern.f F>RAD src/spf_floatkern.f FINIT src/spf_floatkern.f SETFPUCW src/spf_floatkern.f ( u -- ) GETFPUCW src/spf_floatkern.f ( -- u ) DS>F src/spf_floatkern.f ( D: f -- F: f ) F>DS src/spf_floatkern.f ( F: f -- D: [f] ) F--DS src/spf_floatkern.f GETFPUSW src/spf_floatkern.f FLOG2 src/spf_floatkern.f ( F: r1 -- r2 ) F[LOG] src/spf_floatkern.f TRUNC-MODE src/spf_floatkern.f ROUND-MODE src/spf_floatkern.f UP-MODE src/spf_floatkern.f LOW-MODE src/spf_floatkern.f F>D src/spf_floatkern.f F>D src/spf_floatkern.f F10* src/spf_floatkern.f F10/ src/spf_floatkern.f F>ENV src/spf_floatkern.f ( addr -- ) FENV> src/spf_floatkern.f ( addr -- ) FSAVE src/spf_floatkern.f ( addr -- ) FRSTOR src/spf_floatkern.f ( addr -- ) FD< src/spf_floatkern.f FD> src/spf_floatkern.f `F1+ src/spf_floatkern.f F**2 src/spf_floatkern.f `F1- src/spf_floatkern.f _FLIT-CODE8 src/spf_floatkern.f _FLIT-CODE10 src/spf_floatkern.f FNOP src/spf_floatkern.f */ src/spf_forthproc_hl.f ( n1 n2 n3 -- n4 ) CHAR+ src/spf_forthproc_hl.f ( c-addr1 -- c-addr2 ) CHAR- src/spf_forthproc_hl.f ( c-addr1 -- c-addr2 ) CHARS src/spf_forthproc_hl.f ( n1 -- n2 ) >CHARS src/spf_forthproc_hl.f ( n1 -- n2 ) >CELLS src/spf_forthproc_hl.f ( n1 -- n2 ) MOVE src/spf_forthproc_hl.f ( addr1 addr2 u -- ) ERASE src/spf_forthproc_hl.f ( addr u -- ) CZMOVE src/spf_forthproc_hl.f ( a # z --) DABS src/spf_forthproc_hl.f ( d -- ud ) HASH src/spf_forthproc_hl.f ( addr u u1 -- u2 ) DOS-LINES src/spf_forthproc_hl.f ( -- ) UNIX-LINES src/spf_forthproc_hl.f ( -- ) EOLN src/spf_forthproc_hl.f ( -- a u ) NATIVE-LINES src/spf_forthproc_hl.f C-CALL src/posix/api.f ( x1 ... xn n adr -- res) C-CALL2 src/posix/api.f ( x1 ... xn n adr -- dres) _WNDPROC-CODE src/posix/api.f (DLOPEN) src/posix/dl.f ( file mode -- h) (DLSYM) src/posix/dl.f ( h name -- a) DLERROR src/posix/dl.f ( -- z/0) DLOPEN src/posix/dl.f ( addr u -- h ) DLSYM src/posix/dl.f ( addr u h -- api-xt ) write-dlerror src/posix/dl.f ( z -- ) dlopen2 src/posix/dl.f ( file -- ) dlsym2 src/posix/dl.f ( name -- a ) dlrealloc src/posix/dl.f ( adr size -- adr2) enter-into-strtab src/posix/dl.f ( a n strtab -- n ) szcompare src/posix/dl.f ( a # z -- ? ) table-lookup src/posix/dl.f ( a # strtab symtab symtab# -- sym# T / F) table-enter src/posix/dl.f ( library? a # -- sym# ) name-lookup src/posix/dl.f ( a # library? -- sym# ) symbol-lookup src/posix/dl.f ( a # -- sym# ) get-symbol-record src/posix/dl.f ( sym# -- strtab dlrec) symbol-address src/posix/dl.f ( sym# -- adr) symbol-call src/posix/dl.f ( ... n sym# -- res ) symbol-call2 src/posix/dl.f ( ... n sym# -- dres ) load-libraries src/posix/dl.f dl-init src/posix/dl.f (( src/posix/dl.f ( -- ) <( src/posix/dl.f ( n -- ) ())) src/posix/dl.f ( -- n ) __ret2 src/posix/dl.f ( -- ) errno src/posix/memory.f ( -- n) ?ERR src/posix/memory.f ( -1/n -- x err / n 0) USER-ALLOT src/posix/memory.f ( n -- ) USER-HERE src/posix/memory.f ( -- n ) ALLOCATE-THREAD-MEMORY src/posix/memory.f ( -- ) FREE-THREAD-MEMORY src/posix/memory.f ( -- ) ALLOCATE src/posix/memory.f ( u -- a-addr ior ) FREE src/posix/memory.f ( a-addr -- ior ) RESIZE src/posix/memory.f ( a-addr1 u -- a-addr2 ior ) THROW src/spf_except.f ( k*x n -- k*x | i*x n ) CATCH src/spf_except.f ( i*x xt -- j*x 0 | i*x n ) ABORT src/spf_except.f AT-THREAD-FINISHING src/posix/except.f ( -- ) AT-PROCESS-FINISHING src/posix/except.f ( -- ) HALT src/posix/except.f ( ERRNUM -> ) CLOSE-FILE src/posix/io.f ( fileid -- ior ) CREATE-FILE src/posix/io.f ( c-addr u fam -- fileid ior ) DELETE-FILE src/posix/io.f ( c-addr u -- ior ) FILE-POSITION src/posix/io.f ( fileid -- ud ior ) OPEN-FILE src/posix/io.f ( c-addr u fam -- fileid ior ) CREATE-FILE-SHARED src/posix/io.f ( c-addr u fam -- fileid ior ) OPEN-FILE-SHARED src/posix/io.f ( c-addr u fam -- fileid ior ) READ-FILE src/posix/io.f ( c-addr u1 fileid -- u2 ior ) REPOSITION-FILE src/posix/io.f ( ud fileid -- ior ) READ-LINE src/posix/io.f ( c-addr u1 fileid -- u2 flag ior ) WRITE-FILE src/posix/io.f ( c-addr u fileid -- ior ) RESIZE-FILE src/posix/io.f ( ud fileid -- ior ) WRITE-LINE src/posix/io.f ( c-addr u fileid -- ior ) FLUSH-FILE src/posix/io.f ( fileid -- ior ) FILE-EXIST src/posix/io.f ( addr u -- f ) FILE-EXISTS src/posix/io.f ( addr u -- f ) FILE-SIZE src/posix/io.f ( fileid -- ud ior ) ENDLOG src/spf_con_io.f STARTLOG src/spf_con_io.f ( -- ) TO-LOG src/spf_con_io.f ( addr u -- ) ACCEPT1 src/spf_con_io.f ( c-addr +n1 -- +n2 ) TYPE1 src/spf_con_io.f ( c-addr u -- ) EMIT src/spf_con_io.f ( x -- ) CR src/spf_con_io.f ( -- ) SPACE src/spf_con_io.f ( -- ) SPACES src/spf_con_io.f ( n -- ) HEX src/spf_print.f ( -- ) DECIMAL src/spf_print.f ( -- ) HOLD src/spf_print.f ( char -- ) HOLDS src/spf_print.f ( addr u -- ) <# src/spf_print.f ( -- ) # src/spf_print.f ( ud1 -- ud2 ) #S src/spf_print.f ( ud1 -- ud2 ) #> src/spf_print.f ( xd -- c-addr u ) SIGN src/spf_print.f ( n -- ) (D.) src/spf_print.f ( d -- addr len ) D. src/spf_print.f ( d -- ) . src/spf_print.f ( n -- ) U. src/spf_print.f ( u -- ) .0 src/spf_print.f .TO-LOG src/spf_print.f ( n -- ) >PRT src/spf_print.f PTYPE src/spf_print.f DUMP src/spf_print.f ( addr u -- ) (.") src/spf_print.f ( T -> ) >NUMBER src/spf_print.f ( ud1 c-addr1 u1 -- ud2 c-addr2 u2 ) SCREEN-LENGTH src/spf_print.f ( addr n -- n1 ) CUT-PATH src/spf_module.f ( a u -- a u1 ) ModuleDirName src/spf_module.f ( -- addr u ) +ModuleDirName src/spf_module.f ( addr u -- addr2 u2 ) +LibraryDirName src/spf_module.f ( addr u -- addr2 u2 ) SOURCE-NAME src/spf_module.f ( -- a u ) SOURCE src/compiler/spf_parser.f ( -- c-addr u ) SOURCE! src/compiler/spf_parser.f ( c-addr u -- ) EndOfChunk src/compiler/spf_parser.f ( -- flag ) CharAddr src/compiler/spf_parser.f ( -- c-addr ) PeekChar src/compiler/spf_parser.f ( -- char ) IsDelimiter1 src/compiler/spf_parser.f ( char -- flag ) GetChar src/compiler/spf_parser.f ( -- char flag ) OnDelimiter src/compiler/spf_parser.f ( -- flag ) SkipDelimiters src/compiler/spf_parser.f ( -- ) OnNotDelimiter src/compiler/spf_parser.f ( -- flag ) SkipWord src/compiler/spf_parser.f ( -- ) SkipUpTo src/compiler/spf_parser.f ( char -- ) ParseWord src/compiler/spf_parser.f ( -- c-addr u ) NextWord src/compiler/spf_parser.f ( -- c-addr u ) PARSE-NAME src/compiler/spf_parser.f PARSE src/compiler/spf_parser.f ( char "ccc" -- c-addr u ) PSKIP src/compiler/spf_parser.f ( char "ccc" -- ) SKIP src/compiler/spf_parser.f SKIP1 src/compiler/spf_parser.f ( addr u -- addr+1 u-1 ) CONSOLE-HANDLES src/compiler/spf_read_source.f TAKEN-TIB src/compiler/spf_read_source.f ( u flag -- flag ) REFILL-STDIN src/compiler/spf_read_source.f ( -- flag ) FREFILL src/compiler/spf_read_source.f ( h -- flag ) REFILL-FILE src/compiler/spf_read_source.f ( -- flag ) REFILL-SOURCE src/compiler/spf_read_source.f ( -- flag ) SET-CURRENT src/compiler/spf_compile0.f ( wid -- ) GET-CURRENT src/compiler/spf_compile0.f ( -- wid ) IS-TEMP-WL src/compiler/spf_compile0.f ( -- flag ) DP src/compiler/spf_compile0.f ( -- addr ) ALLOT src/compiler/spf_compile0.f ( n -- ) , src/compiler/spf_compile0.f ( x -- ) C, src/compiler/spf_compile0.f ( char -- ) W, src/compiler/spf_compile0.f ( word -- ) SHORT? src/noopt.f ( n -- -129 < n < 128 ) SetOP src/noopt.f ClearJpBuff src/noopt.f SetJP src/noopt.f ?SET src/noopt.f OPT_CLOSE src/noopt.f OPT_INIT src/noopt.f INLINE, src/noopt.f ???BR-OPT src/noopt.f OPT src/noopt.f RESOLVE_OPT src/noopt.f INIT-MACROOPT-LIGHT src/noopt.f MACRO, src/noopt.f SET-OPT src/noopt.f DIS-OPT src/noopt.f HERE src/compiler/spf_compile.f ( -- addr ) _COMPILE, src/compiler/spf_compile.f COMPILE, src/compiler/spf_compile.f BRANCH, src/compiler/spf_compile.f ( ADDR -> ) RET, src/compiler/spf_compile.f ( -> ) LIT, src/compiler/spf_compile.f ( W -> ) DLIT, src/compiler/spf_compile.f ( D -> ) RLIT, src/compiler/spf_compile.f ( u -- ) ?BRANCH, src/compiler/spf_compile.f ( ADDR -> ) S, src/compiler/spf_compile.f ( addr u -- ) S", src/compiler/spf_compile.f ( addr u -- ) SLIT, src/compiler/spf_compile.f ( a u -- ) ", src/compiler/spf_compile.f ( A -> ) >MARK src/compiler/spf_compile.f ( -> A ) A ) >ORESOLVE1 src/compiler/spf_compile.f ( A -> ) >ORESOLVE src/compiler/spf_compile.f ( A, N -- ) >RESOLVE1 src/compiler/spf_compile.f ( A -> ) >RESOLVE src/compiler/spf_compile.f ( A, N -- ) ALIGN-TO src/compiler/spf_compile.f ( addr u -- addr1 ) ALIGNED src/compiler/spf_compile.f ( addr -- a-addr ) ALIGN src/compiler/spf_compile.f ( -- ) ALIGN-NOP src/compiler/spf_compile.f ( n -- ) >BODY src/compiler/spf_wordlist.f ( xt -- a-addr ) +SWORD src/compiler/spf_wordlist.f ( addr u wid -> ) +WORD src/compiler/spf_wordlist.f ( A1, A2 -> ) AT-WORDLIST-CREATING src/compiler/spf_wordlist.f ( wid -- wid ) WORDLIST src/compiler/spf_wordlist.f ( -- wid ) TEMP-WORDLIST src/compiler/spf_wordlist.f ( -- wid ) FREE-WORDLIST src/compiler/spf_wordlist.f ( wid -- ) VOC-NAME! src/compiler/spf_wordlist.f ( c-addr wid -- ) VOC-NAME@ src/compiler/spf_wordlist.f ( wid -- c-addr|0 ) CLASS! src/compiler/spf_wordlist.f ( cls wid -- ) CLASS@ src/compiler/spf_wordlist.f ( wid -- cls ) PAR! src/compiler/spf_wordlist.f ( Pwid wid -- ) PAR@ src/compiler/spf_wordlist.f ( wid -- Pwid ) WID-EXTRA src/compiler/spf_wordlist.f ( wid -- addr ) NAME> src/compiler/spf_wordlist.f ( NFA -> CFA ) NAME>C src/compiler/spf_wordlist.f ( NFA -> 'CFA ) NAME>F src/compiler/spf_wordlist.f ( NFA -> FFA ) NAME>L src/compiler/spf_wordlist.f ( NFA -> LFA ) CDR src/compiler/spf_wordlist.f ( NFA1 -> NFA2 ) ID. src/compiler/spf_wordlist.f ( NFA[E] -> ) IS-IMMEDIATE src/compiler/spf_wordlist.f ( NFA -> F ) IS-VOC src/compiler/spf_wordlist.f ( NFA -> F ) ?IMMEDIATE src/compiler/spf_wordlist.f ( NFA -> F ) ?VOC src/compiler/spf_wordlist.f ( NFA -> F ) IMMEDIATE src/compiler/spf_wordlist.f ( -- ) VOC src/compiler/spf_wordlist.f ( -- ) IS-CLASS-FORTH src/compiler/spf_wordlist.f ( wid -- flag ) ENUM-VOCS src/compiler/spf_wordlist.f ( xt -- ) (ENUM-VOCS-FORTH) src/compiler/spf_wordlist.f ( xt wid -- xt ) ENUM-VOCS-FORTH src/compiler/spf_wordlist.f ( xt -- ) FOR-WORDLIST src/compiler/spf_wordlist.f ( wid xt -- ) (NEAREST1) src/compiler/spf_wordlist.f ( addr 0|nfa1 nfa2 -- addr 0|nfa1|nfa2 ) (NEAREST2) src/compiler/spf_wordlist.f ( addr nfa1 wid -- addr nfa2 ) (NEAREST3) src/compiler/spf_wordlist.f ( addr nfa1 -- addr nfa2 ) (WordByAddr) src/compiler/spf_wordlist.f ( addr -- c-addr u ) WordByAddr src/compiler/spf_wordlist.f ( addr -- c-addr u ) NEAR_NFA src/compiler/spf_wordlist.f ( addr -- nfa|0 addr ) CDR-BY-NAME src/compiler/spf_find.f ( c-addr u nfa1|0 -- c-addr u nfa1|nfa2|0 ) SEARCH-WORDLIST-NFA src/compiler/spf_find.f ( c-addr u wid -- 0 | nfa -1 ) SEARCH-WORDLIST1 src/compiler/spf_find.f SFIND src/compiler/spf_find.f ( addr u -- addr u 0 | xt 1 | xt -1 ) FIND1 src/compiler/spf_find.f ( c-addr -- c-addr 0 | xt 1 | xt -1 ) DEFINITIONS src/compiler/spf_find.f ( -- ) GET-ORDER src/compiler/spf_find.f ( -- widn ... wid1 n ) FORTH src/compiler/spf_find.f ( -- ) ONLY src/compiler/spf_find.f ( -- ) SET-ORDER src/compiler/spf_find.f ( widn ... wid1 n -- ) ALSO src/compiler/spf_find.f ( -- ) PREVIOUS src/compiler/spf_find.f ( -- ) VOC-NAME. src/compiler/spf_find.f ( wid -- ) ORDER src/compiler/spf_find.f ( -- ) LATEST src/compiler/spf_find.f ( -> NFA ) NLIST src/compiler/spf_words.f ( A -> ) WORDS src/compiler/spf_words.f ( -- ) SEEN-ERR? src/compiler/spf_error.f ( -- flag ) SEEN-ERR src/compiler/spf_error.f ( -- ) NOTSEEN-ERR src/compiler/spf_error.f ( -- ) ERR-NUMBER src/compiler/spf_error.f ( -- ior ) ERR-LINE# src/compiler/spf_error.f ( -- num ) ERR-IN# src/compiler/spf_error.f ( -- num ) ERR-LINE src/compiler/spf_error.f ( -- a u ) ERR-FILE src/compiler/spf_error.f ( -- a u ) ERR-STRING src/compiler/spf_error.f ( -- a u ) TYPE0 src/compiler/spf_error.f ( a n -- ) LAST-WORD src/compiler/spf_error.f ( -- ) ?ERROR src/compiler/spf_error.f ( F, N -> ) (ABORT1") src/compiler/spf_error.f ( flag c-addr -- ) SAVE-ERR src/compiler/spf_error.f ( err-num -- ) DEPTH src/compiler/spf_translate.f ( -- +n ) ?STACK src/compiler/spf_translate.f ( -> ) ?COMP src/compiler/spf_translate.f ( -> ) WORD src/compiler/spf_translate.f ( char "ccc" -- c-addr ) ' src/compiler/spf_translate.f ( "name" -- xt ) CHAR src/compiler/spf_translate.f ( "name" -- char ) BYE src/compiler/spf_translate.f ( -- ) EVAL-WORD src/compiler/spf_translate.f ( a u -- ) NOTFOUND src/compiler/spf_translate.f ( a u -- ) INTERPRET_ src/compiler/spf_translate.f ( -> ) INTERPRET src/compiler/spf_translate.f #(SIGNED) src/compiler/spf_translate.f ( d1 -- d2 ) .SN src/compiler/spf_translate.f ( n --) OK1 src/compiler/spf_translate.f [ src/compiler/spf_translate.f ] src/compiler/spf_translate.f ( -- ) MAIN1 src/compiler/spf_translate.f ( -- ) QUIT src/compiler/spf_translate.f ( -- ) SAVE-SOURCE src/compiler/spf_translate.f ( -- i*x i ) RESTORE-SOURCE src/compiler/spf_translate.f ( i*x i -- ) EVALUATE-WITH src/compiler/spf_translate.f ( ( i*x c-addr u xt -- j*x ) EVALUATE src/compiler/spf_translate.f ( i*x c-addr u -- j*x ) PROCESS-ERR1 src/compiler/spf_translate.f ( ior -- ior ) RECEIVE-WITH-XT src/compiler/spf_translate.f ( i*x source source-xt xt -- j*x ior ) RECEIVE-WITH src/compiler/spf_translate.f ( i*x source xt -- j*x ior ) HEAP-COPY src/compiler/spf_translate.f ( addr u -- addr1 ) FIND-FULLNAME1 src/compiler/spf_translate.f ( a1 u1 -- a u ) TranslateFlow src/compiler/spf_translate.f ( -- ) INCLUDE-FILE src/compiler/spf_translate.f ( i*x fileid -- j*x ) INCLUDE-PROBE src/compiler/spf_translate.f ( addr u -- ... 0 | ior ) (INCLUDED1) src/compiler/spf_translate.f ( i*x a u -- j*x ) INCLUDED_STD src/compiler/spf_translate.f ( i*x c-addr u -- j*x ) INCLUDED src/compiler/spf_translate.f ( i*x c-addr u -- j*x ) REQUIRED src/compiler/spf_translate.f ( waddr wu laddr lu -- ) REQUIRE src/compiler/spf_translate.f ( "word" "libpath" -- ) SHEADER1 src/compiler/spf_defwords.f ( addr u -- ) HEADER src/compiler/spf_defwords.f ( "name" -- ) CREATED src/compiler/spf_defwords.f ( addr u -- ) CREATE src/compiler/spf_defwords.f ( "name" -- ) (DOES1) src/compiler/spf_defwords.f (DOES2) src/compiler/spf_defwords.f DOES> src/compiler/spf_defwords.f VOCABULARY src/compiler/spf_defwords.f ( "name" -- ) VARIABLE src/compiler/spf_defwords.f ( "name" -- ) CONSTANT src/compiler/spf_defwords.f ( x "name" -- ) VALUE src/compiler/spf_defwords.f ( x "name" -- ) VECT src/compiler/spf_defwords.f ( -> ) ->VARIABLE src/compiler/spf_defwords.f ( x "name" -- ) USER-ALIGNED src/compiler/spf_defwords.f ( -- a-addr n ) USER-CREATE src/compiler/spf_defwords.f ( "name" -- ) USER src/compiler/spf_defwords.f ( "name" -- ) USER-VALUE src/compiler/spf_defwords.f ( "name" -- ) USER-VECT src/compiler/spf_defwords.f ( "name" -- ) ->VECT src/compiler/spf_defwords.f ( x -> ) BEHAVIOR src/compiler/spf_defwords.f ( vect-xt -- assigned-xt ) BEHAVIOR! src/compiler/spf_defwords.f ( xt1 xt2 -- ) SMUDGE src/compiler/spf_defwords.f ( -- ) HIDE src/compiler/spf_defwords.f :NONAME src/compiler/spf_defwords.f ( C: -- colon-sys ) : src/compiler/spf_defwords.f ( C: "name" -- colon-sys ) TO src/compiler/spf_immed_transl.f POSTPONE src/compiler/spf_immed_transl.f \ src/compiler/spf_immed_transl.f .( src/compiler/spf_immed_transl.f ( src/compiler/spf_immed_transl.f ( "ccc" -- ) [COMPILE] src/compiler/spf_immed_transl.f ; src/compiler/spf_immed_transl.f ( -- ) EXIT src/compiler/spf_immed_transl.f \EOF src/compiler/spf_immed_transl.f ( -- ) FIELD src/compiler/spf_immed_transl.f ( offset size "new-name< >" -- offset+size ) -- src/compiler/spf_immed_transl.f LITERAL src/compiler/spf_immed_lit.f 2LITERAL src/compiler/spf_immed_lit.f SLITERAL src/compiler/spf_immed_lit.f CLITERAL src/compiler/spf_immed_lit.f ( addr -- ) S" src/compiler/spf_immed_lit.f C" src/compiler/spf_immed_lit.f ." src/compiler/spf_immed_lit.f [CHAR] src/compiler/spf_immed_lit.f ABORT" src/compiler/spf_immed_lit.f ['] src/compiler/spf_immed_lit.f ?SLITERAL1 src/compiler/spf_literal.f ( c-addr u -> ... ) ?LITERAL1 src/compiler/spf_literal.f ( T -> ... ) HEX-SLITERAL src/compiler/spf_literal.f ( addr u -> flag ) ?SLITERAL2 src/compiler/spf_literal.f ( c-addr u -- ... ) ?LITERAL2 src/compiler/spf_literal.f ( c-addr -- ... ) IF src/compiler/spf_immed_control.f ELSE src/compiler/spf_immed_control.f THEN src/compiler/spf_immed_control.f BEGIN src/compiler/spf_immed_control.f UNTIL src/compiler/spf_immed_control.f WHILE src/compiler/spf_immed_control.f REPEAT src/compiler/spf_immed_control.f AGAIN src/compiler/spf_immed_control.f RECURSE src/compiler/spf_immed_control.f DO src/compiler/spf_immed_loop.f ?DO src/compiler/spf_immed_loop.f LOOP src/compiler/spf_immed_loop.f +LOOP src/compiler/spf_immed_loop.f I src/compiler/spf_immed_loop.f LEAVE src/compiler/spf_immed_loop.f UNLOOP src/compiler/spf_immed_loop.f MODULE: src/compiler/spf_modules.f ( "name" -- old-current ) EXPORT src/compiler/spf_modules.f ( old-current -- old-current ) ;MODULE src/compiler/spf_modules.f ( old-current -- ) {{ src/compiler/spf_modules.f ( "name" -- ) }} src/compiler/spf_modules.f R> src/compiler/spf_inline.f >R src/compiler/spf_inline.f RDROP src/compiler/spf_inline.f ?DUP src/compiler/spf_inline.f EXECUTE src/compiler/spf_inline.f dl-no-library src/posix/envir.f ( z ) dl-no-symbol src/posix/envir.f ( z -- ) (ENVIR?) src/posix/envir.f ( addr u -- false | i*x true ) ENVIRONMENT? src/posix/envir.f ( c-addr u -- false | i*x true ) (DECODE-ERROR) src/posix/envir.f ( n -- c-addr u ) DECODE-ERROR src/posix/envir.f ( n u -- c-addr u ) ERROR2 src/posix/envir.f ( ERR-NUM -> ) USE src/posix/envir.f ( ->bl) extern src/posix/envir.f ( ->bl ) compile-call src/posix/envir.f ( n -- ) )) src/posix/envir.f ( ->bl; -- ) (()) src/posix/envir.f ( ->bl; -- ) system src/posix/envir.f ( z -- ) #! src/posix/envir.f ( ->eol; -- ) EXTERN src/posix/defwords.f ( xt1 n -- xt2 ) CALLBACK: src/posix/defwords.f ( xt n "name" -- ) TASK src/posix/defwords.f ( xt1 -- xt2 ) TASK: src/posix/defwords.f ( xt "name" -- ) ERASE-IMPORTS src/posix/defwords.f START src/posix/mtask.f ( x task -- tid ) SUSPEND src/posix/mtask.f ( tid -- ) RESUME src/posix/mtask.f ( tid -- ) STOP src/posix/mtask.f ( tid -- ) PAUSE src/posix/mtask.f ( ms -- ) TERMINATE src/posix/mtask.f ( -- ) THREAD-ID src/posix/mtask.f ( -- tid ) CGI-OPTIONS src/win/spf_win_cgi.f ( -- ) AT-THREAD-STARTING src/spf_init.f ( -- ) AT-PROCESS-STARTING src/spf_init.f ( -- ) POOL-INIT src/spf_init.f ( n -- ) ERR-EXIT src/spf_init.f ( xt -- ) ADDR. src/spf_init.f ( n -- ) STACK-ADDR. src/spf_init.f ( addr -- addr ) DUMP-TRACE src/spf_init.f ( addr-h addr-l -- ) DUMP-TRACE-SHRUNKEN src/spf_init.f ( addr-h addr-l -- ) DUMP-EXCEPTION-HEADER src/spf_init.f ( addr num -- ) DUMP-TRACE-USING-REGS src/spf_init.f ( esp eax ebp -- ) FATAL-HANDLER1 src/spf_init.f ( ior -- ) (TITLE) src/spf_init.f TITLE src/spf_init.f (OPTIONS) src/spf_init.f ( -- ) OPTIONS src/spf_init.f ( -> ) SPF-INI src/spf_init.f ... src/spf_init.f ..: src/spf_init.f ;.. src/spf_init.f (INIT) src/spf_init.f ( env argv argc -- ) ASCIIZ" src/posix/save.f ( ->" ) reloc-dl-second-strings src/posix/save.f ( off -- ) IMAGE-BASE src/posix/save.f (forth.ld) src/posix/save.f ( a u -- ) forth.ld src/posix/save.f ( a u -- ) SAVE src/posix/save.f ( c-addr u -- ) +offset src/xsave.f ( n -- ) offset,size, src/xsave.f ( n -- ) '' src/xsave.f reloc-sections-offsets src/xsave.f reloc-wordlist src/xsave.f ( wl-last -- ) >elf src/xsave.f ( a n -- ) XSAVE src/xsave.f ( c-addr u -- )