Imported https://downloads.factorcode.org/releases/0.98/factor-src-0.98.zip

It was leaving the result of 'system' on the stack.

.cvskeywords

@@ -0,0 +1,4 @@
+./basis/xmode/modes/java.xml:		<!-- for the common usage of the cvs keyword $Id: java.xml 9228 2007-03-27 22:01:25Z ezust $ -->
+./basis/xmode/modes/fortran.xml:      Version $Id: fortran.xml 10573 2007-09-14 02:04:59Z ezust $
+./basis/xmode/modes/nsis2.xml:$Id: nsis2.xml 9932 2007-07-06 15:44:46Z Vampire0 $
+./vm/bignumint.hpp:// $Id: s48_bignumint.h,v 1.14 2005/12/21 02:36:52 spestov Exp $

.dir-locals.el

@@ -1,14 +0,0 @@
-;; Per-directory local variables for GNU Emacs 23 and later.
-((c++-mode . ((c-basic-offset . 2)
-              (show-trailing-whitespace . t)
-              (indicate-empty-lines . t)
-              (indent-tabs-mode . nil)
-              (eval . (progn
-                        (c-set-offset 'innamespace 0)
-                        (c-set-offset 'topmost-intro 0)
-                        (c-set-offset 'cpp-macro-cont '++)
-                        (c-set-offset 'case-label '+)
-                        (c-set-offset 'member-init-intro '++)
-                        (c-set-offset 'statement-cont '++)
-                        (c-set-offset 'arglist-intro '++)))))
- (factor-mode . ((factor-block-offset . 4))))

.gitattributes

@@ -1,2 +1 @@
-*.factor text eol=lf
-*.html text eol=lf
+.cvskeywords binary

.gitignore

@@ -1,33 +1,5 @@
-*~
-*.gch*
-*.obj
-*.o
-*.s
-*.exe
-Factor/factor
-*.a
-*.dll
-*.lib
-*.exp
-*.res
-*.RES
-*.image
-factor.image.fresh
+*.class
+*.zip
+*.jar
 *.dylib
-factor.com
-*#*#
-.DS_Store
-.gdb_history
-*.*.marks
-.*.swm
-.*.swn
-.*.swo
-.*.swp
-logs
-work
-*.bak
-.#*
-checksums.txt
-*.so
-a.out
-Factor.app/Contents/_CodeSignature
+*.gz

.travis.yml

@@ -1,72 +0,0 @@
-language: cpp
-compiler:
-  - clang
-  - gcc
-os:
-  - linux
-  - osx
-sudo: required
-dist: trusty
-group: deprecated-2017Q4
-services:
-  - postgresql
-  - redis-server
-branches:
-  except:
-  - clean-windows-x86-64
-  - clean-windows-x86-32
-  - clean-linux-x86-64
-  - clean-linux-x86-32
-  - clean-macosx-x86-64
-  - clean-macosx-x86-32
-addons:
-  apt:
-    packages:
-      - links
-      - libblas-dev
-      - libmagic-dev
-      - libsnappy-dev
-      - libzmq-dev
-      - libpq-dev
-      - cmake
-      - libaio-dev
-      - libsnappy-dev
-before_install:
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then ./build.sh deps-macosx ; else ./build.sh deps-apt-get ; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions snappy > /dev/null || brew install snappy; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions cmake > /dev/null || brew install cmake; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions libmagic > /dev/null || brew install libmagic; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions memcached > /dev/null || brew install memcached; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions redis > /dev/null || brew install redis; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions zeromq > /dev/null || brew install zeromq; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew ls --versions postgresql > /dev/null || brew install postgresql; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew services start memcached; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew services start redis; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew services start postgresql; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then brew services start memcached; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then rm -rf ~/.gnupg/; fi  # https://github.com/rvm/rvm/issues/3110
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then curl -#LO https://rvm.io/mpapis.asc; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then gpg --import mpapis.asc; fi
-  - if [[ "$TRAVIS_OS_NAME" == "osx" ]]; then curl -sSL https://get.rvm.io | bash -s stable; fi  # https://github.com/travis-ci/travis-ci/issues/6307
-  - >
-    wget https://github.com/vmt/udis86/archive/v1.7.2.tar.gz && tar xzvf v1.7.2.tar.gz &&
-    ( cd udis86-1.7.2/ && ./autogen.sh && ./configure --enable-shared=yes && make && sudo make install ) &&
-    ( [[ "$TRAVIS_OS_NAME" != "osx" ]] && sudo ldconfig || true )
-  - git remote set-branches --add origin master
-  - git remote set-branches --add origin clean-windows-x86-64
-  - git remote set-branches --add origin clean-windows-x86-32
-  - git remote set-branches --add origin clean-linux-x86-64
-  - git remote set-branches --add origin clean-linux-x86-32
-  - git remote set-branches --add origin clean-macosx-x86-64
-  - git remote set-branches --add origin clean-macosx-x86-32
-  - git fetch # so we can see which vocabs changed versus origin/master...
-script:
-  - echo "TRAVIS_BRANCH=$TRAVIS_BRANCH, TRAVIS_PULL_REQUEST_BRANCH=$TRAVIS_PULL_REQUEST_BRANCH"
-  - export CI_BRANCH="${TRAVIS_PULL_REQUEST_BRANCH:-$TRAVIS_BRANCH}"
-  - echo "CI_BRANCH=${CI_BRANCH}"
-  - DEBUG=1 ./build.sh net-bootstrap < /dev/null
-  - "./factor -e='USING: memory vocabs.hierarchy ; \"zealot\" load save'"
-  - './factor -run=zealot.cli-changed-vocabs'
-  - './factor -run=tools.test `./factor -run=zealot.cli-changed-vocabs | paste -s -d " " -`'
-  - './factor -run=help.lint `./factor -run=zealot.cli-changed-vocabs | paste -s -d " " -`'
-  - "./factor -e='USING: modern.paths tools.test sequences system kernel math random ; core-vocabs os macosx? [ dup length 3 /i sample ] when [ test ] each'"

LICENSE.txt

@@ -1,22 +0,0 @@
-Copyright (c) 2018, Slava Pestov, et al.
-All rights reserved.
-
-Redistribution and use in source and binary forms, with or without
-modification, are permitted provided that the following conditions are met:
-
-1. Redistributions of source code must retain the above copyright notice, this
-   list of conditions and the following disclaimer.
-2. Redistributions in binary form must reproduce the above copyright notice,
-   this list of conditions and the following disclaimer in the documentation
-   and/or other materials provided with the distribution.
-
-THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" AND
-ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
-WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
-DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR
-ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
-(INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
-LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
-ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
-(INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
-SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.

basis/tools/deploy/test/1/1.factor

@@ -1,6 +0,0 @@
-IN: tools.deploy.test.1
-USING: threads ;
-
-: deploy-test-1 ( -- ) 1000000 sleep ;
-
-MAIN: deploy-test-1

basis/tools/deploy/test/1/deploy.factor

@@ -1,13 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-threads? t }
-    { deploy-c-types? f }
-    { deploy-ui? f }
-    { deploy-word-props? f }
-    { deploy-word-defs? f }
-    { deploy-math? t }
-    { deploy-io 2 }
-    { deploy-name "tools.deploy.test.1" }
-    { deploy-reflection 1 }
-    { "stop-after-last-window?" t }
-}

basis/tools/deploy/test/2/2.factor

@@ -1,6 +0,0 @@
-IN: tools.deploy.test.2
-USING: calendar calendar.format ;
-
-: deploy-test-2 ( -- ) now (timestamp>string) ;
-
-MAIN: deploy-test-2

basis/tools/deploy/test/2/deploy.factor

@@ -1,13 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-threads? t }
-    { deploy-c-types? f }
-    { deploy-ui? f }
-    { deploy-word-props? f }
-    { deploy-word-defs? f }
-    { deploy-math? t }
-    { deploy-io 2 }
-    { deploy-name "tools.deploy.test.2" }
-    { deploy-reflection 1 }
-    { "stop-after-last-window?" t }
-}

basis/tools/deploy/test/3/3.factor

@@ -1,7 +0,0 @@
-IN: tools.deploy.test.3
-USING: io.encodings.ascii io.encodings.string system kernel ;
-
-: deploy-test-3 ( -- )
-    "xyzthg" ascii encode drop ;
-
-MAIN: deploy-test-3

basis/tools/deploy/test/3/deploy.factor

@@ -1,14 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-unicode? f }
-    { deploy-name "tools.deploy.test.3" }
-    { deploy-ui? f }
-    { "stop-after-last-window?" t }
-    { deploy-word-defs? f }
-    { deploy-reflection 1 }
-    { deploy-threads? t }
-    { deploy-io 3 }
-    { deploy-math? t }
-    { deploy-word-props? f }
-    { deploy-c-types? f }
-}

basis/tools/deploy/test/4/4.factor

@@ -1,7 +0,0 @@
-USING: io.encodings.string kernel io.encodings.8-bit ;
-IN: tools.deploy.test.4
-
-: deploy-test-4 ( -- )
-    "xyzthg" latin7 encode drop ;
-
-MAIN: deploy-test-4

basis/tools/deploy/test/4/deploy.factor

@@ -1,13 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-threads? t }
-    { deploy-c-types? f }
-    { deploy-ui? f }
-    { deploy-word-props? f }
-    { deploy-word-defs? f }
-    { deploy-math? t }
-    { deploy-io 2 }
-    { deploy-name "tools.deploy.test.4" }
-    { deploy-reflection 1 }
-    { "stop-after-last-window?" t }
-}

basis/tools/deploy/test/5/5.factor

@@ -1,10 +0,0 @@
-IN: tools.deploy.test.5
-USING: accessors urls io.encodings.ascii io.files math.parser
-io.files.temp http.client kernel ;
-
-: deploy-test-5 ( -- )
-    URL" http://localhost/foo.html" clone
-    "port-number" temp-file ascii file-contents string>number >>port
-    http-get 2drop ;
-
-MAIN: deploy-test-5

basis/tools/deploy/test/5/deploy.factor

@@ -1,14 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-name "tools.deploy.test.5" }
-    { deploy-ui? f }
-    { deploy-c-types? f }
-    { deploy-unicode? f }
-    { "stop-after-last-window?" t }
-    { deploy-io 3 }
-    { deploy-reflection 2 }
-    { deploy-word-props? f }
-    { deploy-math? t }
-    { deploy-threads? t }
-    { deploy-word-defs? f }
-}

basis/tools/deploy/test/6/6.factor

@@ -1,13 +0,0 @@
-IN: tools.deploy.test.6
-USING: namespaces math kernel ;
-
-SYMBOL: x
-
-SYMBOL: y
-
-: deploy-test-6 ( -- )
-    1 x set-global
-    2 y set-global
-    x get-global y get-global + 3 assert= ;
-
-MAIN: deploy-test-6

basis/tools/deploy/test/6/deploy.factor

@@ -1,13 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-reflection 1 }
-    { deploy-word-props? f }
-    { deploy-io 1 }
-    { deploy-name "tools.deploy.test.6" }
-    { deploy-math? t }
-    { deploy-ui? f }
-    { deploy-c-types? f }
-    { deploy-word-defs? f }
-    { "stop-after-last-window?" t }
-    { deploy-threads? f }
-}

basis/tools/deploy/test/7/7.factor

@@ -1,18 +0,0 @@
-! Copyright (C) 2008 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel math namespaces ;
-IN: tools.deploy.test.7
-
-SYMBOL: my-var
-
-GENERIC: my-generic ( x -- b )
-
-M: integer my-generic sq ;
-
-M: fixnum my-generic call-next-method my-var get call( a -- b ) ;
-
-: test-7 ( -- )
-    [ 1 + ] my-var set-global
-    12 my-generic 145 assert= ;
-
-MAIN: test-7

basis/tools/deploy/test/7/deploy.factor

@@ -1,14 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-threads? t }
-    { deploy-word-props? f }
-    { deploy-ui? f }
-    { deploy-io 2 }
-    { deploy-math? t }
-    { "stop-after-last-window?" t }
-    { deploy-unicode? f }
-    { deploy-c-types? f }
-    { deploy-reflection 1 }
-    { deploy-word-defs? f }
-    { deploy-name "tools.deploy.test.7" }
-}

basis/tools/deploy/test/8/8.factor

@@ -1,21 +0,0 @@
-USING: calendar game.input threads ui ui.gadgets.worlds kernel
-method-chains system ;
-IN: tools.deploy.test.8
-
-TUPLE: my-world < world ;
-
-BEFORE: my-world begin-world drop open-game-input ;
-
-AFTER: my-world end-world drop close-game-input ;
-
-: test-game-input ( -- )
-    [
-        f T{ world-attributes
-             { world-class my-world }
-             { title "Test" }
-        } open-window
-        1 seconds sleep
-        0 exit
-    ] with-ui ;
-
-MAIN: test-game-input

basis/tools/deploy/test/8/deploy.factor

@@ -1,14 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-c-types? f }
-    { deploy-unicode? f }
-    { deploy-word-defs? f }
-    { deploy-name "tools.deploy.test.8" }
-    { "stop-after-last-window?" t }
-    { deploy-reflection 1 }
-    { deploy-ui? t }
-    { deploy-math? t }
-    { deploy-io 2 }
-    { deploy-word-props? f }
-    { deploy-threads? t }
-}

basis/tools/deploy/test/9/9.factor

@@ -1,10 +0,0 @@
-USING: alien alien.c-types kernel math ;
-IN: tools.deploy.test.9
-
-: callback-test ( -- callback )
-    int { int } cdecl [ 1 + ] alien-callback ;
-
-: indirect-test ( -- )
-    10 callback-test int { int } cdecl alien-indirect 11 assert= ;
-
-MAIN: indirect-test

basis/tools/deploy/test/9/deploy.factor

@@ -1,14 +0,0 @@
-USING: tools.deploy.config ;
-H{
-    { deploy-unicode? f }
-    { deploy-name "tools.deploy.test.9" }
-    { deploy-ui? f }
-    { "stop-after-last-window?" t }
-    { deploy-word-defs? f }
-    { deploy-reflection 1 }
-    { deploy-threads? f }
-    { deploy-io 1 }
-    { deploy-math? t }
-    { deploy-word-props? f }
-    { deploy-c-types? f }
-}

basis/vocabs/metadata/resources/test/1/1.factor

@@ -1,6 +0,0 @@
-USING: io kernel ;
-IN: vocabs.metadata.resources.test.1
-
-: main ( -- ) "Resources test 1" print ;
-
-MAIN: main

basis/vocabs/metadata/resources/test/1/resources.txt

@@ -1,3 +0,0 @@
-foo
-bar
-bas

basis/vocabs/metadata/resources/test/2/2.factor

@@ -1,6 +0,0 @@
-USING: io kernel ;
-IN: vocabs.metadata.resources.test.2
-
-: main ( -- ) "Resources test 2" print ;
-
-MAIN: main

basis/vocabs/metadata/resources/test/2/resources.txt

@@ -1 +0,0 @@
-*.wtf

basis/vocabs/metadata/resources/test/3/3.factor

@@ -1,6 +0,0 @@
-USING: io kernel ;
-IN: vocabs.metadata.resources.test.3
-
-: main ( -- ) "Resources test 3" print ;
-
-MAIN: main

basis/vocabs/metadata/resources/test/3/resources.txt

@@ -1 +0,0 @@
-resource-dir

basis/x11/X/X.factor

@@ -1,577 +0,0 @@
-! Copyright (C) 2005, 2006 Eduardo Cavazos and Alex Chapman, 2016 Björn Lindqvist
-! http://factorcode.org/license.txt for BSD license.
-
-! Selected parts of /usr/include/X11/X.h
-USING: alien.c-types alien.syntax math ;
-IN: x11.X
-
-! Resources
-TYPEDEF: ulong XID
-TYPEDEF: ulong Mask
-TYPEDEF: ulong Atom
-TYPEDEF: XID Window
-TYPEDEF: XID Drawable
-TYPEDEF: XID Font
-TYPEDEF: XID Pixmap
-TYPEDEF: XID Cursor
-TYPEDEF: XID Colormap
-TYPEDEF: XID GContext
-TYPEDEF: XID KeySym
-
-TYPEDEF: uchar KeyCode
-
-! Reserved resource and constant definitions
-CONSTANT: ParentRelative 1
-CONSTANT: CopyFromParent 0
-CONSTANT: PointerWindow 0
-CONSTANT: InputFocus 1
-CONSTANT: PointerRoot 1
-CONSTANT: AnyPropertyType 0
-CONSTANT: AnyKey 0
-CONSTANT: AnyButton 0
-CONSTANT: AllTemporary 0
-CONSTANT: CurrentTime 0
-CONSTANT: NoSymbol 0
-
-CONSTANT: None 0
-
-! Input Event Masks. Used as event-mask window attribute and as
-! arguments to Grab requests. Not to be confused with event names.
-: NoEventMask              ( -- n ) 0 ; inline
-: KeyPressMask             ( -- n ) 0 2^ ; inline
-: KeyReleaseMask           ( -- n ) 1 2^ ; inline
-: ButtonPressMask          ( -- n ) 2 2^ ; inline
-: ButtonReleaseMask        ( -- n ) 3 2^ ; inline
-: EnterWindowMask          ( -- n ) 4 2^ ; inline
-: LeaveWindowMask          ( -- n ) 5 2^ ; inline
-: PointerMotionMask        ( -- n ) 6 2^ ; inline
-: PointerMotionHintMask    ( -- n ) 7 2^ ; inline
-: Button1MotionMask        ( -- n ) 8 2^ ; inline
-: Button2MotionMask        ( -- n ) 9 2^ ; inline
-: Button3MotionMask        ( -- n ) 10 2^ ; inline
-: Button4MotionMask        ( -- n ) 11 2^ ; inline
-: Button5MotionMask        ( -- n ) 12 2^ ; inline
-: ButtonMotionMask         ( -- n ) 13 2^ ; inline
-: KeymapStateMask          ( -- n ) 14 2^ ; inline
-: ExposureMask             ( -- n ) 15 2^ ; inline
-: VisibilityChangeMask     ( -- n ) 16 2^ ; inline
-: StructureNotifyMask      ( -- n ) 17 2^ ; inline
-: ResizeRedirectMask       ( -- n ) 18 2^ ; inline
-: SubstructureNotifyMask   ( -- n ) 19 2^ ; inline
-: SubstructureRedirectMask ( -- n ) 20 2^ ; inline
-: FocusChangeMask          ( -- n ) 21 2^ ; inline
-: PropertyChangeMask       ( -- n ) 22 2^ ; inline
-: ColormapChangeMask       ( -- n ) 23 2^ ; inline
-: OwnerGrabButtonMask      ( -- n ) 24 2^ ; inline
-
-! Event names. Used in "type" field in XEvent structures. Not to be
-! confused with event masks above. They start from 2 because 0 and 1
-! are reserved in the protocol for errors and replies.
-CONSTANT: KeyPress              2
-CONSTANT: KeyRelease            3
-CONSTANT: ButtonPress           4
-CONSTANT: ButtonRelease         5
-CONSTANT: MotionNotify          6
-CONSTANT: EnterNotify           7
-CONSTANT: LeaveNotify           8
-CONSTANT: FocusIn               9
-CONSTANT: FocusOut              10
-CONSTANT: KeymapNotify          11
-CONSTANT: Expose                12
-CONSTANT: GraphicsExpose        13
-CONSTANT: NoExpose              14
-CONSTANT: VisibilityNotify      15
-CONSTANT: CreateNotify          16
-CONSTANT: DestroyNotify         17
-CONSTANT: UnmapNotify           18
-CONSTANT: MapNotify             19
-CONSTANT: MapRequest            20
-CONSTANT: ReparentNotify        21
-CONSTANT: ConfigureNotify       22
-CONSTANT: ConfigureRequest      23
-CONSTANT: GravityNotify         24
-CONSTANT: ResizeRequest         25
-CONSTANT: CirculateNotify       26
-CONSTANT: CirculateRequest      27
-CONSTANT: PropertyNotify        28
-CONSTANT: SelectionClear        29
-CONSTANT: SelectionRequest      30
-CONSTANT: SelectionNotify       31
-CONSTANT: ColormapNotify        32
-CONSTANT: ClientMessage         33
-CONSTANT: MappingNotify         34
-CONSTANT: GenericEvent          35
-CONSTANT: LASTEvent             36
-
-! Key masks. Used as modifiers to GrabButton and GrabKey, results of
-! QueryPointer, state in various key-, mouse-, and button-related
-! events.
-: ShiftMask   ( -- n ) 1 0 shift ; inline
-: LockMask    ( -- n ) 1 1 shift ; inline
-: ControlMask ( -- n ) 1 2 shift ; inline
-: Mod1Mask    ( -- n ) 1 3 shift ; inline
-: Mod2Mask    ( -- n ) 1 4 shift ; inline
-: Mod3Mask    ( -- n ) 1 5 shift ; inline
-: Mod4Mask    ( -- n ) 1 6 shift ; inline
-: Mod5Mask    ( -- n ) 1 7 shift ; inline
-
-! modifier names.  Used to build a SetModifierMapping request or
-! to read a GetModifierMapping request.  These correspond to the
-! masks defined above.
-CONSTANT: ShiftMapIndex 0
-CONSTANT: LockMapIndex 1
-CONSTANT: ControlMapIndex 2
-CONSTANT: Mod1MapIndex 3
-CONSTANT: Mod2MapIndex 4
-CONSTANT: Mod3MapIndex 5
-CONSTANT: Mod4MapIndex 6
-CONSTANT: Mod5MapIndex 7
-
-! button masks. Used in same manner as Key masks above. Not to be
-! confused with button names below.
-: Button1Mask ( -- n ) 1 8  shift ; inline
-: Button2Mask ( -- n ) 1 9  shift ; inline
-: Button3Mask ( -- n ) 1 10 shift ; inline
-: Button4Mask ( -- n ) 1 11 shift ; inline
-: Button5Mask ( -- n ) 1 12 shift ; inline
-
-: AnyModifier          ( -- n ) 15 2^ ; ! used in GrabButton, GrabKey
-
-! button names. Used as arguments to GrabButton and as detail in
-! ButtonPress and ButtonRelease events.  Not to be confused with
-! button masks above. Note that 0 is already defined above as
-! "AnyButton".  */
-CONSTANT: Button1 1
-CONSTANT: Button2 2
-CONSTANT: Button3 3
-CONSTANT: Button4 4
-CONSTANT: Button5 5
-
-! Notify modes
-
-CONSTANT: NotifyNormal 0
-CONSTANT: NotifyGrab 1
-CONSTANT: NotifyUngrab 2
-CONSTANT: NotifyWhileGrabbed 3
-
-CONSTANT: NotifyHint 1 ! for MotionNotify events
-
-! Notify detail
-
-CONSTANT: NotifyAncestor 0
-CONSTANT: NotifyVirtual 1
-CONSTANT: NotifyInferior 2
-CONSTANT: NotifyNonlinear 3
-CONSTANT: NotifyNonlinearVirtual 4
-CONSTANT: NotifyPointer 5
-CONSTANT: NotifyPointerRoot 6
-CONSTANT: NotifyDetailNone 7
-
-! Visibility notify
-
-CONSTANT: VisibilityUnobscured 0
-CONSTANT: VisibilityPartiallyObscured 1
-CONSTANT: VisibilityFullyObscured 2
-
-! Circulation request
-
-CONSTANT: PlaceOnTop 0
-CONSTANT: PlaceOnBottom 1
-
-! protocol families
-
-CONSTANT: FamilyInternet 0     ! IPv4
-CONSTANT: FamilyDECnet 1
-CONSTANT: FamilyChaos 2
-CONSTANT: FamilyInternet6 6     ! IPv6
-
-! authentication families not tied to a specific protocol
-CONSTANT: FamilyServerInterpreted 5
-
-! Property notification
-
-CONSTANT: PropertyNewValue 0
-CONSTANT: PropertyDelete 1
-
-! Color Map notification
-
-CONSTANT: ColormapUninstalled 0
-CONSTANT: ColormapInstalled 1
-
-! GrabPointer, GrabButton, GrabKeyboard, GrabKey Modes
-
-CONSTANT: GrabModeSync 0
-CONSTANT: GrabModeAsync 1
-
-! GrabPointer, GrabKeyboard reply status
-
-CONSTANT: GrabSuccess 0
-CONSTANT: AlreadyGrabbed 1
-CONSTANT: GrabInvalidTime 2
-CONSTANT: GrabNotViewable 3
-CONSTANT: GrabFrozen 4
-
-! AllowEvents modes
-
-CONSTANT: AsyncPointer 0
-CONSTANT: SyncPointer 1
-CONSTANT: ReplayPointer 2
-CONSTANT: AsyncKeyboard 3
-CONSTANT: SyncKeyboard 4
-CONSTANT: ReplayKeyboard 5
-CONSTANT: AsyncBoth 6
-CONSTANT: SyncBoth 7
-
-! Used in SetInputFocus, GetInputFocus
-
-: RevertToNone         ( -- n ) None ;
-: RevertToPointerRoot  ( -- n ) PointerRoot ;
-CONSTANT: RevertToParent 2
-
-! *****************************************************************
-! * ERROR CODES
-! *****************************************************************
-
-CONSTANT: Success 0         ! everything's okay
-CONSTANT: BadRequest 1      ! bad request code
-CONSTANT: BadValue 2        ! int parameter out of range
-CONSTANT: BadWindow 3       ! parameter not a Window
-CONSTANT: BadPixmap 4       ! parameter not a Pixmap
-CONSTANT: BadAtom 5         ! parameter not an Atom
-CONSTANT: BadCursor 6       ! parameter not a Cursor
-CONSTANT: BadFont 7         ! parameter not a Font
-CONSTANT: BadMatch 8        ! parameter mismatch
-CONSTANT: BadDrawable 9     ! parameter not a Pixmap or Window
-CONSTANT: BadAccess 10      ! depending on context:
-                            !         - key/button already grabbed
-                            !         - attempt to free an illegal
-                            !           cmap entry
-                            !        - attempt to store into a read-only
-                            !           color map entry.
-                            !        - attempt to modify the access control
-                            !           list from other than the local host.
-CONSTANT: BadAlloc 11       ! insufficient resources
-CONSTANT: BadColor 12       ! no such colormap
-CONSTANT: BadGC 13          ! parameter not a GC
-CONSTANT: BadIDChoice 14    ! choice not in range or already used
-CONSTANT: BadName 15        ! font or color name doesn't exist
-CONSTANT: BadLength 16      ! Request length incorrect
-CONSTANT: BadImplementation 17  ! server is defective
-
-CONSTANT: FirstExtensionError 128
-CONSTANT: LastExtensionError 255
-
-! *****************************************************************
-! * WINDOW DEFINITIONS
-! *****************************************************************
-
-! Window classes used by CreateWindow
-! Note that CopyFromParent is already defined as 0 above
-
-CONSTANT: InputOutput 1
-CONSTANT: InputOnly 2
-
-! ConfigureWindow structure
-: CWX           ( -- n ) 0 2^ ; inline
-: CWY           ( -- n ) 1 2^ ; inline
-: CWWidth       ( -- n ) 2 2^ ; inline
-: CWHeight      ( -- n ) 3 2^ ; inline
-: CWBorderWidth ( -- n ) 4 2^ ; inline
-: CWSibling     ( -- n ) 5 2^ ; inline
-: CWStackMode   ( -- n ) 6 2^ ; inline
-
-! Bit Gravity
-
-CONSTANT: ForgetGravity         0
-CONSTANT: NorthWestGravity      1
-CONSTANT: NorthGravity          2
-CONSTANT: NorthEastGravity      3
-CONSTANT: WestGravity           4
-CONSTANT: CenterGravity         5
-CONSTANT: EastGravity           6
-CONSTANT: SouthWestGravity      7
-CONSTANT: SouthGravity          8
-CONSTANT: SouthEastGravity      9
-CONSTANT: StaticGravity         10
-
-! Window gravity + bit gravity above
-
-CONSTANT: UnmapGravity          0
-
-! Used in CreateWindow for backing-store hint
-
-CONSTANT: NotUseful 0
-CONSTANT: WhenMapped 1
-CONSTANT: Always 2
-
-! Used in GetWindowAttributes reply
-CONSTANT: IsUnmapped            0
-CONSTANT: IsUnviewable          1
-CONSTANT: IsViewable            2
-
-
-! Used in ChangeSaveSet
-
-CONSTANT: SetModeInsert 0
-CONSTANT: SetModeDelete 1
-
-! Used in ChangeCloseDownMode
-
-CONSTANT: DestroyAll 0
-CONSTANT: RetainPermanent 1
-CONSTANT: RetainTemporary 2
-
-! Window stacking method (in configureWindow)
-
-CONSTANT: Above 0
-CONSTANT: Below 1
-CONSTANT: TopIf 2
-CONSTANT: BottomIf 3
-CONSTANT: Opposite 4
-
-! Circulation direction
-
-CONSTANT: RaiseLowest 0
-CONSTANT: LowerHighest 1
-
-! Property modes
-
-CONSTANT: PropModeReplace 0
-CONSTANT: PropModePrepend 1
-CONSTANT: PropModeAppend 2
-
-! *****************************************************************
-! * GRAPHICS DEFINITIONS
-! *****************************************************************
-
-! graphics functions, as in GC.alu
-
-CONSTANT: GXclear               0x0
-CONSTANT: GXand                 0x1
-CONSTANT: GXandReverse          0x2
-CONSTANT: GXcopy                0x3
-CONSTANT: GXandInverted         0x4
-CONSTANT: GXnoop                0x5
-CONSTANT: GXxor                 0x6
-CONSTANT: GXor                  0x7
-CONSTANT: GXnor                 0x8
-CONSTANT: GXequiv               0x9
-CONSTANT: GXinvert              0xa
-CONSTANT: GXorReverse           0xb
-CONSTANT: GXcopyInverted        0xc
-CONSTANT: GXorInverted          0xd
-CONSTANT: GXnand                0xe
-CONSTANT: GXset                 0xf
-
-! LineStyle
-
-CONSTANT: LineSolid 0
-CONSTANT: LineOnOffDash 1
-CONSTANT: LineDoubleDash 2
-
-! capStyle
-
-CONSTANT: CapNotLast 0
-CONSTANT: CapButt 1
-CONSTANT: CapRound 2
-CONSTANT: CapProjecting 3
-
-! joinStyle
-
-CONSTANT: JoinMiter 0
-CONSTANT: JoinRound 1
-CONSTANT: JoinBevel 2
-
-! fillStyle
-
-CONSTANT: FillSolid 0
-CONSTANT: FillTiled 1
-CONSTANT: FillStippled 2
-CONSTANT: FillOpaqueStippled 3
-
-! fillRule
-
-CONSTANT: EvenOddRule 0
-CONSTANT: WindingRule 1
-
-! subwindow mode
-
-CONSTANT: ClipByChildren 0
-CONSTANT: IncludeInferiors 1
-
-! SetClipRectangles ordering
-
-CONSTANT: Unsorted 0
-CONSTANT: YSorted 1
-CONSTANT: YXSorted 2
-CONSTANT: YXBanded 3
-
-! CoordinateMode for drawing routines
-
-CONSTANT: CoordModeOrigin 0     ! relative to the origin
-CONSTANT: CoordModePrevious 1   ! relative to previous point
-
-! Polygon shapes
-
-CONSTANT: Complex 0 ! paths may intersect
-CONSTANT: Nonconvex 1 ! no paths intersect, but not convex
-CONSTANT: Convex 2 ! wholly convex
-
-! Arc modes for PolyFillArc
-
-CONSTANT: ArcChord 0 ! join endpoints of arc
-CONSTANT: ArcPieSlice 1 ! join endpoints to center of arc
-
-! GC components: masks used in CreateGC, CopyGC, ChangeGC, OR'ed into
-! GC.stateChanges
-
-: GCFunction          ( -- n ) 0 2^ ; inline
-: GCPlaneMask         ( -- n ) 1 2^ ; inline
-: GCForeground        ( -- n ) 2 2^ ; inline
-: GCBackground        ( -- n ) 3 2^ ; inline
-: GCLineWidth         ( -- n ) 4 2^ ; inline
-: GCLineStyle         ( -- n ) 5 2^ ; inline
-: GCCapStyle          ( -- n ) 6 2^ ; inline
-: GCJoinStyle         ( -- n ) 7 2^ ; inline
-: GCFillStyle         ( -- n ) 8 2^ ; inline
-: GCFillRule          ( -- n ) 9 2^ ; inline
-: GCTile              ( -- n ) 10 2^ ; inline
-: GCStipple           ( -- n ) 11 2^ ; inline
-: GCTileStipXOrigin   ( -- n ) 12 2^ ; inline
-: GCTileStipYOrigin   ( -- n ) 13 2^ ; inline
-: GCFont              ( -- n ) 14 2^ ; inline
-: GCSubwindowMode     ( -- n ) 15 2^ ; inline
-: GCGraphicsExposures ( -- n ) 16 2^ ; inline
-: GCClipXOrigin       ( -- n ) 17 2^ ; inline
-: GCClipYOrigin       ( -- n ) 18 2^ ; inline
-: GCClipMask          ( -- n ) 19 2^ ; inline
-: GCDashOffset        ( -- n ) 20 2^ ; inline
-: GCDashList          ( -- n ) 21 2^ ; inline
-: GCArcMode           ( -- n ) 22 2^ ; inline
-
-! *****************************************************************
-! * FONTS
-! *****************************************************************
-
-! used in QueryFont -- draw direction
-
-CONSTANT: FontLeftToRight 0
-CONSTANT: FontRightToLeft 1
-
-CONSTANT: FontChange 255
-
-! *****************************************************************
-! *  IMAGING
-! *****************************************************************
-
-! ImageFormat -- PutImage, GetImage
-
-CONSTANT: XYBitmap 0    ! depth 1, XYFormat
-CONSTANT: XYPixmap 1    ! depth == drawable depth
-CONSTANT: ZPixmap 2     ! depth == drawable depth
-
-! *****************************************************************
-! *  COLOR MAP STUFF
-! *****************************************************************
-
-! For CreateColormap
-
-CONSTANT: AllocNone 0   ! create map with no entries
-CONSTANT: AllocAll 1    ! allocate entire map writeable
-
-
-! Flags used in StoreNamedColor, StoreColors
-
-: DoRed        ( -- n ) 0 2^ ;
-: DoGreen      ( -- n ) 1 2^ ;
-: DoBlue       ( -- n ) 2 2^ ;
-
-! *****************************************************************
-! * CURSOR STUFF
-! *****************************************************************
-
-! QueryBestSize Class
-
-CONSTANT: CursorShape 0     ! largest size that can be displayed
-CONSTANT: TileShape 1       ! size tiled fastest
-CONSTANT: StippleShape 2    ! size stippled fastest
-
-! *****************************************************************
-! * KEYBOARD/POINTER STUFF
-! *****************************************************************
-
-CONSTANT: AutoRepeatModeOff 0
-CONSTANT: AutoRepeatModeOn 1
-CONSTANT: AutoRepeatModeDefault 2
-
-CONSTANT: LedModeOff 0
-CONSTANT: LedModeOn 1
-
-! masks for ChangeKeyboardControl
-
-: KBKeyClickPercent    ( -- n ) 0 2^ ;
-: KBBellPercent        ( -- n ) 1 2^ ;
-: KBBellPitch          ( -- n ) 2 2^ ;
-: KBBellDuration       ( -- n ) 3 2^ ;
-: KBLed                ( -- n ) 4 2^ ;
-: KBLedMode            ( -- n ) 5 2^ ;
-: KBKey                ( -- n ) 6 2^ ;
-: KBAutoRepeatMode     ( -- n ) 7 2^ ;
-
-CONSTANT: MappingSuccess 0
-CONSTANT: MappingBusy 1
-CONSTANT: MappingFailed 2
-
-CONSTANT: MappingModifier 0
-CONSTANT: MappingKeyboard 1
-CONSTANT: MappingPointer 2
-
-! *****************************************************************
-! * SCREEN SAVER STUFF
-! *****************************************************************
-
-CONSTANT: DontPreferBlanking 0
-CONSTANT: PreferBlanking 1
-CONSTANT: DefaultBlanking 2
-
-CONSTANT: DisableScreenSaver 0
-CONSTANT: DisableScreenInterval 0
-
-CONSTANT: DontAllowExposures 0
-CONSTANT: AllowExposures 1
-CONSTANT: DefaultExposures 2
-
-! for ForceScreenSaver
-
-CONSTANT: ScreenSaverReset 0
-CONSTANT: ScreenSaverActive 1
-
-! *****************************************************************
-! * HOSTS AND CONNECTIONS
-! *****************************************************************
-
-! for ChangeHosts
-
-CONSTANT: HostInsert 0
-CONSTANT: HostDelete 1
-
-! for ChangeAccessControl
-
-CONSTANT: EnableAccess 1
-CONSTANT: DisableAccess 0
-
-! Display classes  used in opening the connection
-! Note that the statically allocated ones are even numbered and the
-! dynamically changeable ones are odd numbered
-
-CONSTANT: StaticGray 0
-CONSTANT: GrayScale 1
-CONSTANT: StaticColor 2
-CONSTANT: PseudoColor 3
-CONSTANT: TrueColor 4
-CONSTANT: DirectColor 5
-
-! Byte order  used in imageByteOrder and bitmapBitOrder
-
-CONSTANT: LSBFirst 0
-CONSTANT: MSBFirst 1

basis/x11/X/authors.txt

@@ -1,3 +0,0 @@
-Eduardo Cavazos
-Slava Pestov
-Björn Lindqvist

basis/x11/X/summary.txt

@@ -1 +0,0 @@
-Bindings for /usr/include/X11/X.h constants

basis/xmode/modes/fortran.xml

@@ -2,7 +2,7 @@
 
 <!DOCTYPE MODE SYSTEM "xmode.dtd">
 <!--  FORTRAN edit mode
-      Version $Id: fortran.xml 10573 2007-09-14 02:04:59Z ezust $
+      Version $Id$
 -->
 <!-- This is a mode for FORTRAN source files.  In general, this supports
 common features of the F90 specification.  This may however contain some

basis/xmode/modes/java.xml

@@ -187,7 +187,7 @@
 			<END>}</END>
 		</SPAN_REGEXP>
 
-		<!-- for the common usage of the cvs keyword $Id: java.xml 9228 2007-03-27 22:01:25Z ezust $ -->
+		<!-- for the common usage of the cvs keyword $Id$ -->
 		<SPAN_REGEXP TYPE="LABEL" HASH_CHAR="@version" NO_WORD_BREAK="FALSE" DELEGATE="JAVADOC_PARAM">
 			<BEGIN>@version\s+\$</BEGIN>
 			<END>$</END>

basis/xmode/modes/nsis2.xml

@@ -6,7 +6,7 @@
 Nullsoft Scriptable Installation System mode by Ryan Grove 2003
 Updated by Uwe (donovaly@users.sourceforge.net) 2007
 Updated for 4.3pre9 by Alan Ezust 2007
-$Id: nsis2.xml 9932 2007-07-06 15:44:46Z Vampire0 $
+$Id$
 
 This file should be accurate as of the version of NSIS 2.25. If I've left something out, please let me know.
 -->

core/io/streams/c/authors.txt

@@ -1 +0,0 @@
-Slava Pestov

core/io/streams/c/c-docs.factor

@@ -1,86 +0,0 @@
-USING: help.markup help.syntax io io.files threads
-strings byte-arrays io.streams.plain alien math ;
-IN: io.streams.c
-
-ARTICLE: "io.streams.c" "ANSI C streams"
-"C streams are found in the " { $vocab-link "io.streams.c" } " vocabulary; they are " { $link "stream-protocol" } " implementations which read and write C " { $snippet "FILE*" } " handles."
-{ $subsections
-    <c-reader>
-    <c-writer>
-}
-"Underlying primitives used to implement the above:"
-{ $subsections
-    fopen
-    fwrite
-    fflush
-    fclose
-    fputc
-    fgetc
-    fread-unsafe
-}
-"The three standard file handles:"
-{ $subsections
-    stdin-handle
-    stdout-handle
-    stderr-handle
-} ;
-
-ABOUT: "io.streams.c"
-
-HELP: <c-reader>
-{ $values { "handle" "a C FILE* handle" } { "stream" "a new stream" } }
-{ $description "Creates a stream which reads data by calling C standard library functions." }
-{ $notes "Usually C streams are only used during bootstrap, and non-blocking OS-specific I/O routines are used during normal operation." } ;
-
-HELP: <c-writer>
-{ $values { "handle" "a C FILE* handle" } { "stream" "a new stream" } }
-{ $description "Creates a stream which writes data by calling C standard library functions." }
-{ $notes "Usually C streams are only used during bootstrap, and non-blocking OS-specific I/O routines are used during normal operation." } ;
-
-HELP: fopen
-{ $values { "path" "a pathname string" } { "mode" "an access mode specifier" } { "alien" "a C FILE* handle" } }
-{ $description "Opens a file named by " { $snippet "path" } ". The " { $snippet "mode" } " parameter should be something like " { $snippet "\"r\"" } " or " { $snippet "\"rw\"" } "; consult the " { $snippet "fopen(3)" } " manual page for details." }
-{ $errors "Throws an error if the file could not be opened." }
-{ $notes "User code should call " { $link <file-reader> } " or " { $link <file-writer> } " to get a high level stream." } ;
-
-HELP: fwrite
-{ $values { "data" c-ptr } { "length" integer } { "alien" "a C FILE* handle" } }
-{ $description "Writes some bytes to a C FILE* handle." }
-{ $errors "Throws an error if the output operation failed." } ;
-
-HELP: fflush
-{ $values { "alien" "a C FILE* handle" } }
-{ $description "Forces pending output on a C FILE* handle to complete." }
-{ $errors "Throws an error if the output operation failed." } ;
-
-HELP: fclose
-{ $values { "alien" "a C FILE* handle" } }
-{ $description "Closes a C FILE* handle." } ;
-
-HELP: fgetc
-{ $values { "alien" "a C FILE* handle" } { "byte/f" { $maybe "an integer from 0 to 255" } } }
-{ $description "Reads a single byte from a C FILE* handle, and outputs " { $link f } " on end of file." }
-{ $errors "Throws an error if the input operation failed." } ;
-
-HELP: fputc
-{ $values { "byte" "an integer from 0 to 255" } { "alien" "a C FILE* handle" } }
-{ $description "Writes a single byte to a C FILE* handle." }
-{ $errors "Throws an error if the output operation failed." } ;
-
-HELP: fread-unsafe
-{ $values { "n" "a positive integer" } { "buf" c-ptr } { "alien" "a C FILE* handle" } { "count" integer } }
-{ $description "Reads " { $snippet "n" } " bytes from a C FILE* handle into the memory referenced by " { $snippet "buf" } ", and outputs the number of characters read. Zero is output on end of file." }
-{ $warning "This word does not check whether " { $snippet "buf" } " is large enough to accommodate the requested number of bytes. Memory corruption will occur if this is not the case." }
-{ $errors "Throws an error if the input operation failed." } ;
-
-HELP: stdin-handle
-{ $values { "alien" "a C FILE* handle" } }
-{ $description "Outputs the console standard input file handle." } ;
-
-HELP: stdout-handle
-{ $values { "alien" "a C FILE* handle" } }
-{ $description "Outputs the console standard output file handle." } ;
-
-HELP: stderr-handle
-{ $values { "alien" "a C FILE* handle" } }
-{ $description "Outputs the console standard error file handle." } ;

core/io/streams/c/c-tests.factor

@@ -1,37 +0,0 @@
-USING: alien alien.c-types alien.data debugger io io.encodings.ascii
-io.files io.pathnames io.streams.c kernel math specialized-arrays
-strings tools.test ;
-SPECIALIZED-ARRAY: int
-
-[
-    ! Writing strings to ascii streams
-    { "hello world" } [
-        "hello-world.txt" absolute-path
-        [ "hello world" swap ascii set-file-contents ]
-        [ "rb" fopen <c-reader> stream-contents >string ] bi
-    ] unit-test
-
-    ! Writing specialized arrays to binary streams
-    { int-array{ 1 2 3 } } [
-        "c-tests-int.dat" absolute-path [
-            "wb" fopen <c-writer> [
-                int-array{ 1 2 3 } write
-            ] with-output-stream
-        ] [
-            "rb" fopen <c-reader> [
-                3 4 * read int cast-array
-            ] with-input-stream
-        ] bi
-    ] unit-test
-
-    ! Writing strings to binary streams should fail
-    [
-        "omgfail.txt" absolute-path "wb" fopen <c-writer> [
-            "OMGFAIL" write
-        ] with-output-stream
-    ] must-fail
-
-] with-test-directory
-
-
-[ 3 10 99 <alien> fseek ] [ vm-error? ] must-fail-with

core/io/streams/c/c.factor

@@ -1,102 +0,0 @@
-! Copyright (C) 2004, 2010 Slava Pestov.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors alien alien.strings byte-arrays byte-vectors
-destructors io io.backend io.encodings.utf8 io.files kernel
-kernel.private math sequences threads.private ;
-IN: io.streams.c
-
-PRIMITIVE: (fopen) ( path mode -- alien )
-PRIMITIVE: fclose ( alien -- )
-PRIMITIVE: fflush ( alien -- )
-PRIMITIVE: fgetc ( alien -- byte/f )
-PRIMITIVE: fputc ( byte alien -- )
-PRIMITIVE: fread-unsafe ( n buf alien -- count )
-PRIMITIVE: fseek ( alien offset whence -- )
-PRIMITIVE: ftell ( alien -- n )
-PRIMITIVE: fwrite ( data length alien -- )
-
-TUPLE: c-stream < disposable handle ;
-
-: new-c-stream ( handle class -- c-stream )
-    new-disposable swap >>handle ; inline
-
-M: c-stream dispose* handle>> fclose ;
-
-TUPLE: c-writer < c-stream ;
-INSTANCE: c-writer output-stream
-INSTANCE: c-writer file-writer
-
-: <c-writer> ( handle -- stream ) c-writer new-c-stream ;
-
-M: c-writer stream-write1
-    check-disposed handle>> fputc ;
-
-M: c-writer stream-write
-    check-disposed
-    [ binary-object ] [ handle>> ] bi* fwrite ;
-
-M: c-writer stream-flush
-    check-disposed handle>> fflush ;
-
-TUPLE: c-reader < c-stream ;
-INSTANCE: c-reader input-stream
-INSTANCE: c-reader file-reader
-
-: <c-reader> ( handle -- stream ) c-reader new-c-stream ;
-
-M: c-reader stream-read-unsafe
-    check-disposed handle>> fread-unsafe ;
-
-M: c-reader stream-read1
-    check-disposed handle>> fgetc ;
-
-: read-until-loop ( handle seps accum -- accum ch )
-    pick fgetc dup [
-        pick dupd member-eq?
-        [ 2nipd ] [ suffix! read-until-loop ] if
-    ] [
-        2nipd
-    ] if ; inline recursive
-
-M: c-reader stream-read-until
-    check-disposed handle>> swap
-    32 <byte-vector> read-until-loop [ B{ } like ] dip
-    over empty? over not and [ 2drop f f ] when ;
-
-M: c-io-backend init-io ;
-
-: stdin-handle ( -- alien ) OBJ-STDIN special-object ;
-: stdout-handle ( -- alien ) OBJ-STDOUT special-object ;
-: stderr-handle ( -- alien ) OBJ-STDERR special-object ;
-
-: init-c-stdio ( -- )
-    stdin-handle <c-reader>
-    stdout-handle <c-writer>
-    stderr-handle <c-writer>
-    set-stdio ;
-
-M: c-io-backend init-stdio init-c-stdio ;
-
-M: c-io-backend io-multiplex
-    dup 0 = [ drop ] [ 60 60 * 1000 * 1000 * or (sleep) ] if ;
-
-: fopen ( path mode -- alien )
-    [ utf8 string>alien ] bi@ (fopen) ;
-
-M: c-io-backend (file-reader)
-    "rb" fopen <c-reader> ;
-
-M: c-io-backend (file-writer)
-    "wb" fopen <c-writer> ;
-
-M: c-io-backend (file-appender)
-    "ab" fopen <c-writer> ;
-
-: show ( msg -- )
-    ! A word which directly calls primitives. It is used to
-    ! print stuff from contexts where the I/O system would
-    ! otherwise not work (tools.deploy.shaker, the I/O
-    ! multiplexer thread).
-    "\n" append >byte-array dup length
-    stdout-handle fwrite
-    stdout-handle fflush ;

core/io/streams/c/summary.txt

@@ -1 +0,0 @@
-Bare-bones ANSI C I/O implementation

core/vocabs/loader/test/a/a.factor

@@ -1,10 +0,0 @@
-USING: namespaces parser ;
-IN: vocabs.loader.test.a
-
-<< global [ "count-me" inc ] with-variables >>
-
-: v-l-t-a-hello ( -- a ) 4 ;
-
-: byebye ( -- a ) v-l-t-a-hello ;
-
-[ this is an error

core/vocabs/loader/test/a/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/b/b.factor

@@ -1,6 +0,0 @@
-USING: namespaces ;
-IN: vocabs.loader.test.b
-
-<< global [ "count-me" inc ] with-variables >>
-
-: fred ( -- ) bob ;

core/vocabs/loader/test/b/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/c/c.factor

@@ -1,4 +0,0 @@
-IN: vocabs.loader.test.c
-
-GENERIC: foo
-M: foo

core/vocabs/loader/test/c/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/d/d.factor

@@ -1,4 +0,0 @@
-USING: math.private ;
-IN: vocabs.loader.test.d
-
-: foo ( -- ) iterate-next ;

core/vocabs/loader/test/d/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/e/e.factor

@@ -1 +0,0 @@
-1 2 3

core/vocabs/loader/test/e/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/f/f.factor

@@ -1,4 +0,0 @@
-IN: vocabs.laoder.test.f
-USE: vocabs
-
-"vocabs.loader.test.g" require

core/vocabs/loader/test/f/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/g/g.factor

@@ -1,4 +0,0 @@
-IN: vocabs.loader.test.g
-USING: vocabs.loader.test.f namespaces ;
-
-[ "vocabs.loader.test.g" inc ] with-global

core/vocabs/loader/test/g/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/h/h.factor

@@ -1 +0,0 @@
-USE: vocabs.loader.test.i

core/vocabs/loader/test/h/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/i/i.factor

@@ -1,2 +0,0 @@
-IN: vocabs.loader.test.i
-USE: vocabs.loader.test.h

core/vocabs/loader/test/i/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/j/j.factor

@@ -1,3 +0,0 @@
-USING: vocabs ;
-IN: vocabs.loader.test.j
-"vocabs.loader.test.k" require

core/vocabs/loader/test/j/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/k/k.factor

@@ -1,2 +0,0 @@
-IN: vocabs.loader.test.k
-USE: vocabs.loader.test.j

core/vocabs/loader/test/k/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/l/l.factor

@@ -1,4 +0,0 @@
-IN: vocabs.loader.test.l
-USE: kernel
-
-"Oops" throw

core/vocabs/loader/test/l/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/m/m.factor

@@ -1,5 +0,0 @@
-USE: vocabs.loader
-IN: vocabs.loader.test.m
-
-{ "vocabs.loader.test.o" "vocabs.loader.test.m" }
-"vocabs.loader.test.n" require-when

core/vocabs/loader/test/m/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/n/n.factor

@@ -1 +0,0 @@
-IN: vocabs.loader.test.n

core/vocabs/loader/test/n/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/o/o.factor

@@ -1 +0,0 @@
-IN: vocabs.loader.test.o

core/vocabs/loader/test/o/tags.txt

@@ -1 +0,0 @@
-not loaded

core/vocabs/loader/test/p/p.factor

@@ -1,2 +0,0 @@
-IN: vocabs.loader.test.p
-: foo ( -- ) ;

core/vocabs/loader/test/p/tags.txt

@@ -1 +0,0 @@
-not loaded

extra/c/lexer/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

extra/c/lexer/lexer-tests.factor

@@ -1,102 +0,0 @@
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors c.lexer kernel sequences.parser tools.test ;
-IN: c.lexer.tests
-
-{ 36 }
-[
-    "    //jofiejoe\n    //eoieow\n/*asdf*/\n      "
-    <sequence-parser> skip-whitespace/comments n>>
-] unit-test
-
-{ f "33asdf" }
-[ "33asdf" <sequence-parser> [ take-c-identifier ] [ take-rest ] bi ] unit-test
-
-{ "asdf" }
-[ "asdf" <sequence-parser> take-c-identifier ] unit-test
-
-{ "_asdf" }
-[ "_asdf" <sequence-parser> take-c-identifier ] unit-test
-
-{ "_asdf400" }
-[ "_asdf400" <sequence-parser> take-c-identifier ] unit-test
-
-{ "asdfasdf" } [
-    "/*asdfasdf*/" <sequence-parser> take-c-comment
-] unit-test
-
-{ "k" } [
-    "/*asdfasdf*/k" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
-] unit-test
-
-{ "omg" } [
-    "//asdfasdf\nomg" <sequence-parser>
-    [ take-c++-comment drop ] [ take-rest ] bi
-] unit-test
-
-{ "omg" } [
-    "omg" <sequence-parser>
-    [ take-c++-comment drop ] [ take-rest ] bi
-] unit-test
-
-{ "/*asdfasdf" } [
-    "/*asdfasdf" <sequence-parser> [ take-c-comment drop ] [ take-rest ] bi
-] unit-test
-
-{ "asdf" "eoieoei" } [
-    "//asdf\neoieoei" <sequence-parser>
-    [ take-c++-comment ] [ take-rest ] bi
-] unit-test
-
-{ f }
-[
-    "\"abc\" asdf" <sequence-parser>
-    [ CHAR: \ CHAR: \" take-quoted-string drop ] [ "asdf" take-sequence ] bi
-] unit-test
-
-{ "abc\\\"def" }
-[
-    "\"abc\\\"def\" asdf" <sequence-parser>
-    CHAR: \ CHAR: \" take-quoted-string
-] unit-test
-
-{ "asdf" }
-[
-    "\"abc\" asdf" <sequence-parser>
-    [ CHAR: \ CHAR: \" take-quoted-string drop ]
-    [ skip-whitespace "asdf" take-sequence ] bi
-] unit-test
-
-{ f }
-[
-    "\"abc asdf" <sequence-parser>
-    CHAR: \ CHAR: \" take-quoted-string
-] unit-test
-
-{ "\"abc" }
-[
-    "\"abc asdf" <sequence-parser>
-    [ CHAR: \ CHAR: \" take-quoted-string drop ]
-    [ "\"abc" take-sequence ] bi
-] unit-test
-
-{ "c" }
-[ "c" <sequence-parser> take-token ] unit-test
-
-{ f }
-[ "" <sequence-parser> take-token ] unit-test
-
-{ "abcd e \\\"f g" }
-[ "\"abcd e \\\"f g\"" <sequence-parser> CHAR: \ CHAR: \" take-token* ] unit-test
-
-{ "123" }
-[ "123jjj" <sequence-parser> take-c-integer ] unit-test
-
-{ "123uLL" }
-[ "123uLL" <sequence-parser> take-c-integer ] unit-test
-
-{ "123ull" }
-[ "123ull" <sequence-parser> take-c-integer ] unit-test
-
-{ "123u" }
-[ "123u" <sequence-parser> take-c-integer ] unit-test

extra/c/lexer/lexer.factor

@@ -1,123 +0,0 @@
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors combinators combinators.short-circuit
-generalizations kernel locals math.order math.ranges
-sequences.parser sequences sequences.generalizations
-sorting.functor sorting.slots unicode ;
-IN: c.lexer
-
-: take-c-comment ( sequence-parser -- seq/f )
-    [
-        dup "/*" take-sequence [
-            "*/" take-until-sequence*
-        ] [
-            drop f
-        ] if
-    ] with-sequence-parser ;
-
-: take-c++-comment ( sequence-parser -- seq/f )
-    [
-        dup "//" take-sequence [
-            [
-                [
-                    { [ current CHAR: \n = ] [ sequence-parse-end? ] } 1||
-                ] take-until
-            ] [
-                advance drop
-            ] bi
-        ] [
-            drop f
-        ] if
-    ] with-sequence-parser ;
-
-: skip-whitespace/comments ( sequence-parser -- sequence-parser )
-    skip-whitespace-eol
-    {
-        { [ dup take-c-comment ] [ skip-whitespace/comments ] }
-        { [ dup take-c++-comment ] [ skip-whitespace/comments ] }
-        [ ]
-    } cond ;
-
-: take-define-identifier ( sequence-parser -- string )
-    skip-whitespace/comments
-    [ current { [ blank? ] [ CHAR: ( = ] } 1|| ] take-until ;
-
-:: take-quoted-string ( sequence-parser escape-char quote-char -- string )
-    sequence-parser n>> :> start-n
-    sequence-parser advance
-    [
-        {
-            [ { [ previous escape-char = ] [ current quote-char = ] } 1&& ]
-            [ current quote-char = not ]
-        } 1||
-    ] take-while :> string
-    sequence-parser current quote-char = [
-        sequence-parser advance* string
-    ] [
-        start-n sequence-parser n<< f
-    ] if ;
-
-: (take-token) ( sequence-parser -- string )
-    skip-whitespace [ current { [ blank? ] [ f = ] } 1|| ] take-until ;
-
-:: take-token* ( sequence-parser escape-char quote-char -- string/f )
-    sequence-parser skip-whitespace
-    dup current {
-        { quote-char [ escape-char quote-char take-quoted-string ] }
-        { f [ drop f ] }
-        [ drop (take-token) ]
-    } case ;
-
-: take-token ( sequence-parser -- string/f )
-    CHAR: \ CHAR: \" take-token* ;
-
-: c-identifier-begin? ( ch -- ? )
-    CHAR: a CHAR: z [a,b]
-    CHAR: A CHAR: Z [a,b]
-    { CHAR: _ } 3append member? ;
-
-: c-identifier-ch? ( ch -- ? )
-    CHAR: a CHAR: z [a,b]
-    CHAR: A CHAR: Z [a,b]
-    CHAR: 0 CHAR: 9 [a,b]
-    { CHAR: _ } 4 nappend member? ;
-
-: (take-c-identifier) ( sequence-parser -- string/f )
-    dup current c-identifier-begin? [
-        [ current c-identifier-ch? ] take-while
-    ] [
-        drop f
-    ] if ;
-
-: take-c-identifier ( sequence-parser -- string/f )
-    [ (take-c-identifier) ] with-sequence-parser ;
-
-<< "length" [ length ] define-sorting >>
-
-: sort-tokens ( seq -- seq' )
-    { length>=< <=> } sort-by ;
-
-: take-c-integer ( sequence-parser -- string/f )
-    [
-        dup take-integer [
-            swap
-            { "ull" "uLL" "Ull" "ULL" "ll" "LL" "l" "L" "u" "U" }
-            take-longest [ append ] when*
-        ] [
-            drop f
-        ] if*
-    ] with-sequence-parser ;
-
-CONSTANT: c-punctuators
-    {
-        "[" "]" "(" ")" "{" "}" "." "->"
-        "++" "--" "&" "*" "+" "-" "~" "!"
-        "/" "%" "<<" ">>" "<" ">" "<=" ">=" "==" "!=" "^" "|" "&&" "||"
-        "?" ":" ";" "..."
-        "=" "*=" "/=" "%=" "+=" "-=" "<<=" ">>=" "&=" "^=" "|="
-        "," "#" "##"
-        "<:" ":>" "<%" "%>" "%:" "%:%:"
-    }
-
-: take-c-punctuator ( sequence-parser -- string/f )
-    c-punctuators take-longest ;

extra/c/lexer/tags.txt

@@ -1 +0,0 @@
-languages

extra/c/preprocessor/authors.txt

@@ -1 +0,0 @@
-Doug Coleman

extra/c/preprocessor/preprocessor-tests.factor

@@ -1,18 +0,0 @@
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test c.preprocessor kernel accessors multiline ;
-IN: c.preprocessor.tests
-
-[ "vocab:c/tests/test1/test1.c" start-preprocess-file ]
-[ include-nested-too-deeply? ] must-fail-with
-
-{ "yo\n\n\n\nyo4\n" }
-[ "vocab:c/tests/test2/test2.c" start-preprocess-file nip ] unit-test
-
-/*
-[ "vocab:c/tests/test3/test3.c" start-preprocess-file ]
-[ "\"BOO\"" = ] must-fail-with
-*/
-
-{ V{ "\"omg\"" "\"lol\"" } }
-[ "vocab:c/tests/test4/test4.c" start-preprocess-file drop warnings>> ] unit-test

extra/c/preprocessor/preprocessor.factor

@@ -1,195 +0,0 @@
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: sequences.parser io io.encodings.utf8 io.files
-io.streams.string kernel combinators accessors io.pathnames
-fry sequences arrays locals namespaces io.directories
-assocs math splitting make unicode combinators.short-circuit
-c.lexer ;
-IN: c.preprocessor
-
-: initial-library-paths ( -- seq )
-    V{ "/usr/include" } clone ;
-
-: initial-symbol-table ( -- hashtable )
-    H{
-        { "__APPLE__" "" }
-        { "__amd64__" "" }
-        { "__x86_64__" "" }
-    } clone ;
-
-TUPLE: preprocessor-state library-paths symbol-table
-include-nesting include-nesting-max processing-disabled?
-ifdef-nesting warnings errors
-pragmas
-include-nexts
-ifs elifs elses ;
-
-: <preprocessor-state> ( -- preprocessor-state )
-    preprocessor-state new
-        initial-library-paths >>library-paths
-        initial-symbol-table >>symbol-table
-        0 >>include-nesting
-        200 >>include-nesting-max
-        0 >>ifdef-nesting
-        V{ } clone >>warnings
-        V{ } clone >>errors
-        V{ } clone >>pragmas
-        V{ } clone >>include-nexts
-        V{ } clone >>ifs
-        V{ } clone >>elifs
-        V{ } clone >>elses ;
-
-DEFER: preprocess-file
-
-ERROR: unknown-c-preprocessor sequence-parser name ;
-
-ERROR: bad-include-line line ;
-
-ERROR: header-file-missing path ;
-
-:: read-standard-include ( preprocessor-state path -- )
-    preprocessor-state dup library-paths>>
-    [ path append-path exists? ] find nip
-    [
-        dup [
-            path append-path
-            preprocess-file
-        ] with-directory
-    ] [
-        ! path header-file-missing
-        drop
-    ] if* ;
-
-: read-local-include ( preprocessor-state path -- )
-    dup exists? [ preprocess-file ] [ 2drop ] if ;
-
-: skip-whitespace/comments ( sequence-parser -- sequence-parser )
-    skip-whitespace
-    {
-        { [ dup take-c-comment ] [ skip-whitespace/comments ] }
-        { [ dup take-c++-comment ] [ skip-whitespace/comments ] }
-        [ ]
-    } cond ;
-
-: handle-include ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments advance dup previous {
-        { CHAR: < [ CHAR: > take-until-object read-standard-include ] }
-        { CHAR: \" [ CHAR: \" take-until-object read-local-include ] }
-        [ bad-include-line ]
-    } case ;
-
-: (readlns) ( -- )
-    readln "\\" ?tail [ , ] dip [ (readlns) ] when ;
-
-: readlns ( -- string ) [ (readlns) ] { } make concat ;
-
-: take-define-identifier ( sequence-parser -- string )
-    skip-whitespace/comments
-    [ current { [ blank? ] [ CHAR: ( = ] } 1|| ] take-until ;
-
-:: handle-define ( preprocessor-state sequence-parser -- )
-    sequence-parser take-define-identifier :> ident
-    sequence-parser skip-whitespace/comments take-rest :> def
-    def "\\" ?tail [ readlns append ] when :> def
-    def ident preprocessor-state symbol-table>> set-at ;
-
-: handle-undef ( preprocessor-state sequence-parser -- )
-    take-token swap symbol-table>> delete-at ;
-
-: handle-ifdef ( preprocessor-state sequence-parser -- )
-    [ [ 1 + ] change-ifdef-nesting ] dip
-    take-token over symbol-table>> key?
-    [ drop ] [ t >>processing-disabled? drop ] if ;
-
-: handle-ifndef ( preprocessor-state sequence-parser -- )
-    [ [ 1 + ] change-ifdef-nesting ] dip
-    take-token over symbol-table>> key?
-    [ t >>processing-disabled? drop ]
-    [ drop ] if ;
-
-: handle-endif ( preprocessor-state sequence-parser -- )
-    drop [ 1 - ] change-ifdef-nesting drop ;
-
-: handle-if ( preprocessor-state sequence-parser -- )
-    [ [ 1 + ] change-ifdef-nesting ] dip
-    skip-whitespace/comments take-rest swap ifs>> push ;
-
-: handle-elif ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments take-rest swap elifs>> push ;
-
-: handle-else ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments take-rest swap elses>> push ;
-
-: handle-pragma ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments take-rest swap pragmas>> push ;
-
-: handle-include-next ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments take-rest swap include-nexts>> push ;
-
-: handle-error ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments take-rest swap errors>> push ;
-    ! nip take-rest throw ;
-
-: handle-warning ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments
-    take-rest swap warnings>> push ;
-
-: parse-directive ( preprocessor-state sequence-parser string -- )
-    {
-        { "warning" [ handle-warning ] }
-        { "error" [ handle-error ] }
-        { "include" [ handle-include ] }
-        { "define" [ handle-define ] }
-        { "undef" [ handle-undef ] }
-        { "ifdef" [ handle-ifdef ] }
-        { "ifndef" [ handle-ifndef ] }
-        { "endif" [ handle-endif ] }
-        { "if" [ handle-if ] }
-        { "elif" [ handle-elif ] }
-        { "else" [ handle-else ] }
-        { "pragma" [ handle-pragma ] }
-        { "include_next" [ handle-include-next ] }
-        [ unknown-c-preprocessor ]
-    } case ;
-
-: parse-directive-line ( preprocessor-state sequence-parser -- )
-    advance dup take-token
-    pick processing-disabled?>> [
-        "endif" = [
-            drop f >>processing-disabled?
-            [ 1 - ] change-ifdef-nesting
-            drop
-         ] [ 2drop ] if
-    ] [
-        parse-directive
-    ] if ;
-
-: preprocess-line ( preprocessor-state sequence-parser -- )
-    skip-whitespace/comments dup current CHAR: # =
-    [ parse-directive-line ]
-    [ swap processing-disabled?>> [ drop ] [ write-full nl ] if ] if ;
-
-: preprocess-lines ( preprocessor-state -- )
-    readln
-    [ <sequence-parser> [ preprocess-line ] [ drop preprocess-lines ] 2bi ]
-    [ drop ] if* ;
-
-ERROR: include-nested-too-deeply ;
-
-: check-nesting ( preprocessor-state -- preprocessor-state )
-    [ 1 + ] change-include-nesting
-    dup [ include-nesting>> ] [ include-nesting-max>> ] bi > [
-        include-nested-too-deeply
-    ] when ;
-
-: preprocess-file ( preprocessor-state path -- )
-    [ check-nesting ] dip
-    [ utf8 [ preprocess-lines ] with-file-reader ]
-    [ drop [ 1 - ] change-include-nesting drop ] 2bi ;
-
-: start-preprocess-file ( path -- preprocessor-state string )
-    dup parent-directory [
-        [
-            [ <preprocessor-state> dup ] dip preprocess-file
-        ] with-string-writer
-    ] with-directory ;

extra/c/preprocessor/tags.txt

@@ -1,2 +0,0 @@
-languages
-parsing

extra/c/tests/test1/README

@@ -1 +0,0 @@
-Tests if the preprocessor bails on an infinite loop caused by mutually recursive #include lines.

extra/c/tests/test1/hi.h

@@ -1 +0,0 @@
-#include "lo.h"

extra/c/tests/test1/lo.h

@@ -1 +0,0 @@
-#include "hi.h"

extra/c/tests/test1/test1.c

@@ -1 +0,0 @@
-#include "hi.h"