steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Doug Coleman 2008-03-17 00:26:12 -05:00
parent 16e6f36fc9 4e0c0dab49
commit f0ef7dddcb
4 changed files with 32 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
core/io/files/files.factor
View File

@ -86,16 +86,10 @@ SYMBOL: +unknown+
: stat ( path -- directory? permissions length modified ) : stat ( path -- directory? permissions length modified )
normalize-pathname (stat) ; normalize-pathname (stat) ;
! : file-length ( path -- n ) stat drop 2nip ;
: file-modified ( path -- n ) stat >r 3drop r> ; : file-modified ( path -- n ) stat >r 3drop r> ;
! : file-permissions ( path -- perm ) stat 2drop nip ;
: exists? ( path -- ? ) file-modified >boolean ; : exists? ( path -- ? ) file-modified >boolean ;
! : directory? ( path -- ? ) stat 3drop ;
: directory? ( path -- ? ) file-info file-info-type +directory+ = ; : directory? ( path -- ? ) file-info file-info-type +directory+ = ;
! Current working directory ! Current working directory

10
extra/builder/benchmark/benchmark.factor
View File

@ -4,10 +4,12 @@ USING: kernel continuations arrays assocs sequences sorting math
IN: builder.benchmark IN: builder.benchmark
: passing-benchmarks ( table -- table ) ! : passing-benchmarks ( table -- table )
[ second first2 number? swap number? and ] subset ; ! [ second first2 number? swap number? and ] subset ;
: simplify-table ( table -- table ) [ first2 second 2array ] map ; : passing-benchmarks ( table -- table ) [ second number? ] subset ;
! : simplify-table ( table -- table ) [ first2 second 2array ] map ;
: benchmark-difference ( old-table benchmark-result -- result-diff ) : benchmark-difference ( old-table benchmark-result -- result-diff )
first2 >r first2 >r
@ -17,7 +19,7 @@ IN: builder.benchmark
2array ; 2array ;
: compare-tables ( old new -- table ) : compare-tables ( old new -- table )
[ passing-benchmarks simplify-table ] 2apply [ passing-benchmarks ] 2apply
[ benchmark-difference ] with map ; [ benchmark-difference ] with map ;
: benchmark-deltas ( -- table ) : benchmark-deltas ( -- table )

17
extra/opengl/gl/gl-docs.factor
View File

@ -5,7 +5,8 @@ IN: opengl.gl
ARTICLE: "opengl-low-level" "OpenGL Library (low level)" ARTICLE: "opengl-low-level" "OpenGL Library (low level)"
{ $subsection "opengl-specifying-vertices" } { $subsection "opengl-specifying-vertices" }
{ $subsection "opengl-geometric-primitives" } ; { $subsection "opengl-geometric-primitives" }
{ $subsection "opengl-modeling-transformations" } ;
ARTICLE: "opengl-specifying-vertices" "Specifying Vertices" ARTICLE: "opengl-specifying-vertices" "Specifying Vertices"
@ -68,3 +69,17 @@ HELP: glPolygonMode
{ $link GL_POINT } { $link GL_POINT }
{ $link GL_LINE } { $link GL_LINE }
{ $link GL_FILL } } } } } ; { $link GL_FILL } } } } } ;
ARTICLE: "opengl-modeling-transformations" "Modeling Transformations"
{ $subsection glTranslatef }
{ $subsection glTranslated }
{ $subsection glRotatef }
{ $subsection glRotated }
{ $subsection glScalef }
{ $subsection glScaled } ;
{ glTranslatef glTranslated glRotatef glRotated glScalef glScaled }
related-words

8
misc/factor.el
View File

@ -158,6 +158,11 @@
(insert str) (insert str)
(comint-send-input)))) (comint-send-input))))
(defun factor-send-definition ()
(interactive)
(factor-send-region (search-backward ":")
(search-forward ";")))
(defun factor-see () (defun factor-see ()
(interactive) (interactive)
(comint-send-string "*factor*" "\\ ") (comint-send-string "*factor*" "\\ ")
@ -187,6 +192,7 @@
(define-key factor-mode-map "\C-c\C-f" 'factor-run-file) (define-key factor-mode-map "\C-c\C-f" 'factor-run-file)
(define-key factor-mode-map "\C-c\C-r" 'factor-send-region) (define-key factor-mode-map "\C-c\C-r" 'factor-send-region)
(define-key factor-mode-map "\C-c\C-d" 'factor-send-definition)
(define-key factor-mode-map "\C-c\C-s" 'factor-see) (define-key factor-mode-map "\C-c\C-s" 'factor-see)
(define-key factor-mode-map "\C-ce" 'factor-edit) (define-key factor-mode-map "\C-ce" 'factor-edit)
(define-key factor-mode-map "\C-c\C-h" 'factor-help) (define-key factor-mode-map "\C-c\C-h" 'factor-help)
@ -212,3 +218,5 @@
(defun factor-refresh-all () (defun factor-refresh-all ()
(interactive) (interactive)
(comint-send-string "*factor*" "refresh-all\n")) (comint-send-string "*factor*" "refresh-all\n"))