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

git: update syntax

modern-harvey2
Doug Coleman 2017-08-31 22:52:00 -05:00
parent 29708329ab
commit 1626d19711
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
extra/git/git.factor
View File

@ -169,8 +169,8 @@ ERROR: unexpected-text text ;
: parse-commit-lines ( obj -- obj ) : parse-commit-lines ( obj -- obj )
" \n" read-until { " \n" read-until {
{ CHAR: \s [ parse-commit-field parse-commit-lines ] } { char: \s [ parse-commit-field parse-commit-lines ] }
{ CHAR: \n [ drop contents >>message ] } { char: \n [ drop contents >>message ] }
[ unexpected-text ] [ unexpected-text ]
} case ; } case ;
@ -193,8 +193,8 @@ ERROR: unexpected-text text ;
: parse-tree-lines ( obj -- obj ) : parse-tree-lines ( obj -- obj )
"\s\n" read-until { "\s\n" read-until {
{ CHAR: \s [ parse-tree-field parse-tree-lines ] } { char: \s [ parse-tree-field parse-tree-lines ] }
{ CHAR: \n [ drop contents >>message ] } { char: \n [ drop contents >>message ] }
[ unexpected-text ] [ unexpected-text ]
} case ; } case ;
@ -205,8 +205,8 @@ ERROR: key-already-set value key assoc ;
: parse-object-line>assoc ( hashtable -- hashtable ) : parse-object-line>assoc ( hashtable -- hashtable )
"\s\n" read-until { "\s\n" read-until {
{ CHAR: \s [ [ "\r\n" read-until* ] dip pick over "parent" = [ push-at ] [ set-at-once ] if parse-object-line>assoc ] } { char: \s [ [ "\r\n" read-until* ] dip pick over "parent" = [ push-at ] [ set-at-once ] if parse-object-line>assoc ] }
{ CHAR: \n [ drop contents "message" pick set-at ] } { char: \n [ drop contents "message" pick set-at ] }
} case ; } case ;
: assoc>commit ( assoc -- commit ) : assoc>commit ( assoc -- commit )