USING: accessors alien alien.c-types alien.data alien.syntax
arrays byte-arrays classes.struct destructors fry io
io.encodings.string io.encodings.utf16n kernel literals locals
-math nested-comments sequences strings system tools.ps
+math sequences strings system tools.ps
windows.errors windows.handles windows.kernel32 windows.ntdll
windows.types ;
IN: tools.ps.windows
USING: alien.c-types byte-arrays kernel locals sequences
windows.advapi32 windows.errors math windows
windows.kernel32 windows.time accessors alien.data
-nested-comments windows.types classes.struct continuations ;
+windows.types classes.struct continuations ;
IN: windows.registry
ERROR: open-key-failed key subkey mode error-string ;
! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
-USING: tools.test c.preprocessor kernel accessors multiline
-nested-comments ;
+USING: tools.test c.preprocessor kernel accessors multiline ;
IN: c.preprocessor.tests
[ "vocab:c/tests/test1/test1.c" start-preprocess-file ]
{ "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
-
-
-(*
-f(2 * (y+1)) + f(2 * (f(2 * (z[0])))) % f(2 * (0)) + t(1);
-f(2 * (2+(3,4)-0,1)) | f(2 * (~ 5)) & f(2 * (0,1))^m(0,1);
-int i[] = { 1, 23, 4, 5, };
-char c[2][6] = { "hello", "" };
-*)
forestdb.ffi forestdb.utils fry generalizations io.directories
io.encodings.string io.encodings.utf8 io.files.temp io.pathnames
kernel layouts libc make math math.parser math.ranges multiline
-namespaces sequences system tools.test nested-comments ;
+namespaces sequences system tools.test ;
IN: forestdb.lib
{ [ cell-bits 32 = ] [ os windows? ] } 0&& [
+++ /dev/null
-! Copyright (C) 2009 Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: accessors eval kernel lexer nested-comments tools.test ;
-IN: nested-comments.tests
-
-! Correct
-{ } [
- "USE: nested-comments (* comment *)" eval( -- )
-] unit-test
-
-{ } [
- "USE: nested-comments (* comment*)" eval( -- )
-] unit-test
-
-{ } [
- "USE: nested-comments (* comment
-*)" eval( -- )
-] unit-test
-
-{ } [
- "USE: nested-comments (* comment
-*)" eval( -- )
-] unit-test
-
-{ } [
- "USE: nested-comments (* comment
-*)" eval( -- )
-] unit-test
-
-{ } [
- "USE: nested-comments (* comment
- (* *)
-
-*)" eval( -- )
-] unit-test
-
-! Malformed
-[
- "USE: nested-comments (* comment
- (* *)" eval( -- )
-] [
- error>> T{ unexpected f "*)" f } =
-] must-fail-with
+++ /dev/null
-! Copyright (C) 2009 blei, Doug Coleman.
-! See http://factorcode.org/license.txt for BSD license.
-USING: kernel locals make math multiline sequences ;
-IN: nested-comments
-
-: (count-subsequences) ( count substring string n -- count' )
- [ 2dup ] dip start* [
- pick length +
- [ 1 + ] 3dip (count-subsequences)
- ] [
- 2drop
- ] if* ;
-
-: count-subsequences ( subseq seq -- n )
- [ 0 ] 2dip 0 (count-subsequences) ;
-
-: parse-nestable-comment ( parsed-vector left-to-parse -- parsed-vector )
- 1 - "*)" parse-multiline-string
- [ "(*" ] dip
- count-subsequences + dup 0 > [ parse-nestable-comment ] [ drop ] if ;
-
-SYNTAX: (* 1 parse-nestable-comment ;
! Copyright (C) 2011 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license.
USING: accessors calendar fonts fry io io.files io.files.info
-kernel math models models.arrow namespaces nested-comments
-progress-bars threads ui.gadgets.labels ui.gadgets.panes ;
+kernel math models models.arrow namespaces progress-bars
+threads ui.gadgets.labels ui.gadgets.panes ;
IN: progress-bars.models
SYMBOL: progress-bar