Artifact
6378155bc9481f2df2abf4ed20058dbdd2a0e86e:
- File
json/g+-import.fs
— part of check-in
[7cd7c65a2f]
at
2019-04-09 21:56:44
on branch trunk
— Pepare for Forth-Tagung
(user:
bernd
size: 15380)
0000: 5c 20 47 6f 6f 67 6c 65 2b 20 69 6d 70 6f 72 74 \ Google+ import
0010: 0a 0a 5c 20 43 6f 70 79 72 69 67 68 74 20 28 43 ..\ Copyright (C
0020: 29 20 32 30 31 38 20 20 20 42 65 72 6e 64 20 50 ) 2018 Bernd P
0030: 61 79 73 61 6e 0a 0a 5c 20 54 68 69 73 20 70 72 aysan..\ This pr
0040: 6f 67 72 61 6d 20 69 73 20 66 72 65 65 20 73 6f ogram is free so
0050: 66 74 77 61 72 65 3a 20 79 6f 75 20 63 61 6e 20 ftware: you can
0060: 72 65 64 69 73 74 72 69 62 75 74 65 20 69 74 20 redistribute it
0070: 61 6e 64 2f 6f 72 20 6d 6f 64 69 66 79 0a 5c 20 and/or modify.\
0080: 69 74 20 75 6e 64 65 72 20 74 68 65 20 74 65 72 it under the ter
0090: 6d 73 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 ms of the GNU Af
00a0: 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 fero General Pub
00b0: 6c 69 63 20 4c 69 63 65 6e 73 65 20 61 73 20 70 lic License as p
00c0: 75 62 6c 69 73 68 65 64 20 62 79 0a 5c 20 74 68 ublished by.\ th
00d0: 65 20 46 72 65 65 20 53 6f 66 74 77 61 72 65 20 e Free Software
00e0: 46 6f 75 6e 64 61 74 69 6f 6e 2c 20 65 69 74 68 Foundation, eith
00f0: 65 72 20 76 65 72 73 69 6f 6e 20 33 20 6f 66 20 er version 3 of
0100: 74 68 65 20 4c 69 63 65 6e 73 65 2c 20 6f 72 0a the License, or.
0110: 5c 20 28 61 74 20 79 6f 75 72 20 6f 70 74 69 6f \ (at your optio
0120: 6e 29 20 61 6e 79 20 6c 61 74 65 72 20 76 65 72 n) any later ver
0130: 73 69 6f 6e 2e 0a 0a 5c 20 54 68 69 73 20 70 72 sion...\ This pr
0140: 6f 67 72 61 6d 20 69 73 20 64 69 73 74 72 69 62 ogram is distrib
0150: 75 74 65 64 20 69 6e 20 74 68 65 20 68 6f 70 65 uted in the hope
0160: 20 74 68 61 74 20 69 74 20 77 69 6c 6c 20 62 65 that it will be
0170: 20 75 73 65 66 75 6c 2c 0a 5c 20 62 75 74 20 57 useful,.\ but W
0180: 49 54 48 4f 55 54 20 41 4e 59 20 57 41 52 52 41 ITHOUT ANY WARRA
0190: 4e 54 59 3b 20 77 69 74 68 6f 75 74 20 65 76 65 NTY; without eve
01a0: 6e 20 74 68 65 20 69 6d 70 6c 69 65 64 20 77 61 n the implied wa
01b0: 72 72 61 6e 74 79 20 6f 66 0a 5c 20 4d 45 52 43 rranty of.\ MERC
01c0: 48 41 4e 54 41 42 49 4c 49 54 59 20 6f 72 20 46 HANTABILITY or F
01d0: 49 54 4e 45 53 53 20 46 4f 52 20 41 20 50 41 52 ITNESS FOR A PAR
01e0: 54 49 43 55 4c 41 52 20 50 55 52 50 4f 53 45 2e TICULAR PURPOSE.
01f0: 20 20 53 65 65 20 74 68 65 0a 5c 20 47 4e 55 20 See the.\ GNU
0200: 41 66 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 Affero General P
0210: 75 62 6c 69 63 20 4c 69 63 65 6e 73 65 20 66 6f ublic License fo
0220: 72 20 6d 6f 72 65 20 64 65 74 61 69 6c 73 2e 0a r more details..
0230: 0a 5c 20 59 6f 75 20 73 68 6f 75 6c 64 20 68 61 .\ You should ha
0240: 76 65 20 72 65 63 65 69 76 65 64 20 61 20 63 6f ve received a co
0250: 70 79 20 6f 66 20 74 68 65 20 47 4e 55 20 41 66 py of the GNU Af
0260: 66 65 72 6f 20 47 65 6e 65 72 61 6c 20 50 75 62 fero General Pub
0270: 6c 69 63 20 4c 69 63 65 6e 73 65 0a 5c 20 61 6c lic License.\ al
0280: 6f 6e 67 20 77 69 74 68 20 74 68 69 73 20 70 72 ong with this pr
0290: 6f 67 72 61 6d 2e 20 20 49 66 20 6e 6f 74 2c 20 ogram. If not,
02a0: 73 65 65 20 3c 68 74 74 70 3a 2f 2f 77 77 77 2e see <http://www.
02b0: 67 6e 75 2e 6f 72 67 2f 6c 69 63 65 6e 73 65 73 gnu.org/licenses
02c0: 2f 3e 2e 0a 0a 72 65 71 75 69 72 65 20 2e 2e 2f />...require ../
02d0: 68 74 6d 6c 2f 70 61 72 73 65 72 2e 66 73 0a 0a html/parser.fs..
02e0: 3a 20 6b 65 79 2d 70 6b 40 20 28 20 6f 3a 6b 65 : key-pk@ ( o:ke
02f0: 79 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 y -- addr u ).
0300: 20 20 61 75 74 68 6f 72 3a 6d 61 70 70 65 64 2d author:mapped-
0310: 6b 65 79 20 2e 6b 65 2d 70 6b 20 24 40 20 6b 65 key .ke-pk $@ ke
0320: 79 7c 20 3b 0a 0a 3a 20 2e 6b 65 79 36 34 20 28 y| ;..: .key64 (
0330: 20 6f 3a 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 o:key -- ).
0340: 6b 65 79 2d 70 6b 40 20 36 34 74 79 70 65 20 3b key-pk@ 64type ;
0350: 0a 0a 3a 20 72 65 70 6c 61 63 65 2d 75 73 65 72 ..: replace-user
0360: 20 28 20 61 64 64 72 20 75 20 2d 2d 20 29 0a 20 ( addr u -- ).
0370: 20 20 20 32 64 75 70 20 22 68 74 74 70 73 3a 2f 2dup "https:/
0380: 2f 70 6c 75 73 2e 67 6f 6f 67 6c 65 2e 63 6f 6d /plus.google.com
0390: 2f 22 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 /" string-prefix
03a0: 3f 20 49 46 0a 09 32 64 75 70 20 23 32 34 20 2f ? IF..2dup #24 /
03b0: 73 74 72 69 6e 67 20 61 75 74 68 6f 72 73 23 20 string authors#
03c0: 23 40 20 49 46 0a 09 20 20 20 20 2e 22 20 6b 65 #@ IF.. ." ke
03d0: 79 3a 22 20 40 20 2e 2e 6b 65 79 36 34 0a 09 20 y:" @ ..key64..
03e0: 20 20 20 32 64 72 6f 70 20 45 58 49 54 20 20 54 2drop EXIT T
03f0: 48 45 4e 0a 09 64 72 6f 70 20 20 54 48 45 4e 0a HEN..drop THEN.
0400: 20 20 20 20 74 79 70 65 20 3b 0a 0a 27 20 72 65 type ;..' re
0410: 70 6c 61 63 65 2d 75 73 65 72 20 49 53 20 68 72 place-user IS hr
0420: 65 66 2d 72 65 70 6c 61 63 65 0a 0a 56 61 72 69 ef-replace..Vari
0430: 61 62 6c 65 20 70 69 63 73 23 0a 56 61 72 69 61 able pics#.Varia
0440: 62 6c 65 20 70 69 63 62 61 73 65 23 0a 56 61 72 ble picbase#.Var
0450: 69 61 62 6c 65 20 70 69 63 64 65 73 63 23 0a 56 iable picdesc#.V
0460: 61 72 69 61 62 6c 65 20 61 6c 62 75 6d 23 0a 56 ariable album#.V
0470: 61 72 69 61 62 6c 65 20 64 69 72 23 0a 0a 22 2e ariable dir#..".
0480: 6d 65 74 61 64 61 74 61 2e 63 73 76 22 20 6e 69 metadata.csv" ni
0490: 70 20 43 6f 6e 73 74 61 6e 74 20 2e 6d 74 63 73 p Constant .mtcs
04a0: 76 23 0a 0a 3a 20 6d 61 74 63 68 2d 6a 70 67 2f v#..: match-jpg/
04b0: 70 6e 67 20 28 20 6b 65 79 20 75 20 61 64 64 72 png ( key u addr
04c0: 20 75 20 2d 2d 20 29 20 24 6d 61 6b 65 20 7b 20 u -- ) $make {
04d0: 77 5e 20 66 6e 24 20 7d 0a 20 20 20 20 66 6e 24 w^ fn$ }. fn$
04e0: 20 24 40 20 64 69 72 23 20 23 40 20 64 30 3d 20 $@ dir# #@ d0=
04f0: 49 46 0a 09 22 2e 70 6e 67 22 20 66 6e 24 20 24 IF..".png" fn$ $
0500: 2b 21 20 66 6e 24 20 24 40 20 64 69 72 23 20 23 +! fn$ $@ dir# #
0510: 40 20 64 30 3d 20 49 46 0a 09 20 20 20 20 22 2e @ d0= IF.. ".
0520: 6a 70 67 22 20 66 6e 24 20 24 40 20 2b 20 6f 76 jpg" fn$ $@ + ov
0530: 65 72 20 2d 20 73 77 61 70 20 6d 6f 76 65 0a 09 er - swap move..
0540: 20 20 20 20 66 6e 24 20 24 40 20 64 69 72 23 20 fn$ $@ dir#
0550: 23 40 20 64 30 3d 20 49 46 0a 09 09 32 64 72 6f #@ d0= IF...2dro
0560: 70 20 66 6e 24 20 24 66 72 65 65 20 20 45 58 49 p fn$ $free EXI
0570: 54 20 20 54 48 45 4e 0a 09 54 48 45 4e 0a 20 20 T THEN..THEN.
0580: 20 20 54 48 45 4e 0a 20 20 20 20 66 6e 24 20 24 THEN. fn$ $
0590: 40 20 32 73 77 61 70 20 70 69 63 73 23 20 23 21 @ 2swap pics# #!
05a0: 0a 20 20 20 20 66 6e 24 20 24 66 72 65 65 20 3b . fn$ $free ;
05b0: 0a 0a 3a 20 75 6e 71 75 6f 74 65 20 28 20 61 64 ..: unquote ( ad
05c0: 64 72 20 75 20 2d 2d 20 61 64 64 72 27 20 75 27 dr u -- addr' u'
05d0: 20 29 0a 20 20 20 20 32 64 75 70 20 2b 20 31 2d ). 2dup + 1-
05e0: 20 63 40 20 27 2c 27 20 3d 20 2b 0a 20 20 20 20 c@ ',' = +.
05f0: 6f 76 65 72 20 63 40 20 27 22 27 20 3d 20 6e 65 over c@ '"' = ne
0600: 67 61 74 65 20 73 61 66 65 2f 73 74 72 69 6e 67 gate safe/string
0610: 20 3f 64 75 70 2d 49 46 20 20 32 64 75 70 20 2b ?dup-IF 2dup +
0620: 20 31 2d 20 63 40 20 27 22 27 20 3d 20 2b 20 20 1- c@ '"' = +
0630: 54 48 45 4e 20 3b 0a 0a 3a 20 64 69 72 2d 73 6b THEN ;..: dir-sk
0640: 69 70 73 20 28 20 61 64 64 72 20 75 20 6e 20 2d ips ( addr u n -
0650: 2d 20 61 64 64 72 27 20 75 27 20 29 0a 20 20 20 - addr' u' ).
0660: 20 30 20 3f 44 4f 20 27 2f 27 20 24 73 70 6c 69 0 ?DO '/' $spli
0670: 74 20 32 6e 69 70 20 4c 4f 4f 50 20 3b 0a 0a 3a t 2nip LOOP ;..:
0680: 20 62 61 73 65 64 69 72 2b 6e 61 6d 65 20 28 20 basedir+name (
0690: 61 64 64 72 20 75 20 2d 2d 20 61 64 64 72 27 20 addr u -- addr'
06a0: 75 27 20 29 0a 20 20 20 20 5b 3a 20 28 20 32 64 u' ). [: ( 2d
06b0: 75 70 20 62 61 73 65 6e 61 6d 65 20 32 3e 72 20 up basename 2>r
06c0: 29 20 33 20 64 69 72 2d 73 6b 69 70 73 0a 09 32 ) 3 dir-skips..2
06d0: 64 75 70 20 32 20 64 69 72 2d 73 6b 69 70 73 20 dup 2 dir-skips
06e0: 64 72 6f 70 20 6e 69 70 20 6f 76 65 72 20 2d 20 drop nip over -
06f0: 74 79 70 65 0a 09 28 20 32 72 3e 20 74 79 70 65 type..( 2r> type
0700: 20 29 20 3b 5d 20 24 74 6d 70 20 3b 0a 0a 3a 20 ) ;] $tmp ;..:
0710: 6e 65 78 74 2c 20 28 20 61 64 64 72 20 75 20 2d next, ( addr u -
0720: 2d 20 61 64 64 72 27 20 75 27 20 29 0a 20 20 20 - addr' u' ).
0730: 20 32 64 75 70 20 22 5c 22 5c 22 2c 22 20 73 74 2dup "\"\"," st
0740: 72 69 6e 67 2d 70 72 65 66 69 78 3f 20 49 46 20 ring-prefix? IF
0750: 20 33 20 2f 73 74 72 69 6e 67 20 20 45 58 49 54 3 /string EXIT
0760: 20 20 54 48 45 4e 0a 20 20 20 20 42 45 47 49 4e THEN. BEGIN
0770: 20 20 31 20 2f 73 74 72 69 6e 67 20 22 5c 22 2c 1 /string "\",
0780: 22 20 20 73 65 61 72 63 68 20 20 57 48 49 4c 45 " search WHILE
0790: 0a 09 6f 76 65 72 20 31 2d 20 63 40 20 27 22 27 ..over 1- c@ '"'
07a0: 20 3c 3e 20 20 55 4e 54 49 4c 20 20 32 20 73 61 <> UNTIL 2 sa
07b0: 66 65 2f 73 74 72 69 6e 67 20 20 54 48 45 4e 20 fe/string THEN
07c0: 3b 0a 0a 3a 20 6e 65 78 74 2d 63 73 76 20 28 20 ;..: next-csv (
07d0: 61 64 64 72 20 75 20 2d 2d 20 61 64 64 72 27 20 addr u -- addr'
07e0: 75 27 20 61 64 64 72 31 20 75 31 20 29 0a 20 20 u' addr1 u1 ).
07f0: 20 20 32 64 75 70 20 6e 65 78 74 2c 20 32 74 75 2dup next, 2tu
0800: 63 6b 20 64 72 6f 70 20 6e 69 70 20 6f 76 65 72 ck drop nip over
0810: 20 2d 20 75 6e 71 75 6f 74 65 20 3b 0a 0a 3a 20 - unquote ;..:
0820: 75 6e 2d 64 71 75 6f 74 65 20 28 20 61 64 64 72 un-dquote ( addr
0830: 20 75 20 2d 2d 20 29 0a 20 20 20 20 42 45 47 49 u -- ). BEGI
0840: 4e 0a 09 32 64 75 70 20 22 5c 22 5c 22 22 20 73 N..2dup "\"\"" s
0850: 65 61 72 63 68 20 20 57 48 49 4c 45 0a 09 20 20 earch WHILE..
0860: 20 20 32 64 75 70 20 32 20 2f 73 74 72 69 6e 67 2dup 2 /string
0870: 20 32 3e 72 20 64 72 6f 70 20 31 2b 20 6e 69 70 2>r drop 1+ nip
0880: 20 6f 76 65 72 20 2d 20 74 79 70 65 0a 09 20 20 over - type..
0890: 20 20 32 72 3e 20 20 52 45 50 45 41 54 20 20 32 2r> REPEAT 2
08a0: 64 72 6f 70 20 74 79 70 65 20 3b 0a 0a 3a 20 2b drop type ;..: +
08b0: 61 6c 62 75 6d 20 28 20 61 64 64 72 20 75 20 2d album ( addr u -
08c0: 2d 20 29 0a 20 20 20 20 32 64 75 70 20 35 20 75 - ). 2dup 5 u
08d0: 6d 69 6e 20 61 6c 62 75 6d 23 20 23 40 20 64 30 min album# #@ d0
08e0: 3d 20 49 46 0a 09 24 6d 61 6b 65 20 7b 20 77 5e = IF..$make { w^
08f0: 20 66 6e 20 7d 20 66 6e 20 63 65 6c 6c 20 6f 76 fn } fn cell ov
0900: 65 72 20 24 40 20 35 20 75 6d 69 6e 20 61 6c 62 er $@ 5 umin alb
0910: 75 6d 23 20 23 21 0a 20 20 20 20 45 4c 53 45 0a um# #!. ELSE.
0920: 09 6c 61 73 74 23 20 63 65 6c 6c 2b 20 24 69 6e .last# cell+ $in
0930: 73 5b 5d 20 64 72 6f 70 0a 20 20 20 20 54 48 45 s[] drop. THE
0940: 4e 20 3b 0a 0a 3a 20 67 65 74 2d 70 69 63 2d 66 N ;..: get-pic-f
0950: 69 6c 65 6e 61 6d 65 20 7b 20 64 3a 20 6d 74 63 ilename { d: mtc
0960: 73 76 20 2d 2d 20 7d 0a 20 20 20 20 6d 74 63 73 sv -- }. mtcs
0970: 76 20 72 2f 6f 20 6f 70 65 6e 2d 66 69 6c 65 20 v r/o open-file
0980: 74 68 72 6f 77 20 7b 20 66 64 20 7d 0a 20 20 20 throw { fd }.
0990: 20 6d 74 63 73 76 20 2e 6d 74 63 73 76 23 20 2d mtcsv .mtcsv# -
09a0: 20 74 6f 20 6d 74 63 73 76 20 5c 20 66 6f 72 20 to mtcsv \ for
09b0: 74 68 65 20 72 65 73 74 2c 20 6e 65 65 64 20 6f the rest, need o
09c0: 6e 6c 79 20 74 68 65 20 62 61 73 65 6e 61 6d 65 nly the basename
09d0: 20 6f 66 20 74 68 65 20 66 69 6c 65 0a 20 20 20 of the file.
09e0: 20 70 61 64 20 24 31 30 30 20 2b 20 24 31 30 30 pad $100 + $100
09f0: 30 30 20 66 64 20 72 65 61 64 2d 6c 69 6e 65 20 00 fd read-line
0a00: 74 68 72 6f 77 20 32 64 72 6f 70 0a 20 20 20 20 throw 2drop.
0a10: 70 61 64 20 24 31 30 30 20 2b 20 24 31 30 30 30 pad $100 + $1000
0a20: 30 20 66 64 20 72 65 61 64 2d 66 69 6c 65 20 74 0 fd read-file t
0a30: 68 72 6f 77 20 70 61 64 20 24 31 30 30 20 2b 20 hrow pad $100 +
0a40: 73 77 61 70 0a 20 20 20 20 6e 65 78 74 2d 63 73 swap. next-cs
0a50: 76 20 7b 20 64 3a 20 62 61 73 65 66 6e 20 7d 0a v { d: basefn }.
0a60: 20 20 20 20 6e 65 78 74 2d 63 73 76 20 7b 20 64 next-csv { d
0a70: 3a 20 64 65 73 63 20 7d 0a 20 20 20 20 6e 65 78 : desc }. nex
0a80: 74 2d 63 73 76 20 32 6e 69 70 20 62 61 73 65 64 t-csv 2nip based
0a90: 69 72 2b 6e 61 6d 65 20 6d 74 63 73 76 20 6d 61 ir+name mtcsv ma
0aa0: 74 63 68 2d 6a 70 67 2f 70 6e 67 0a 20 20 20 20 tch-jpg/png.
0ab0: 6c 61 73 74 23 20 63 65 6c 6c 2b 20 24 40 0a 20 last# cell+ $@.
0ac0: 20 20 20 62 61 73 65 66 6e 20 32 6f 76 65 72 20 basefn 2over
0ad0: 70 69 63 62 61 73 65 23 20 23 21 0a 20 20 20 20 picbase# #!.
0ae0: 64 65 73 63 20 5b 27 5d 20 75 6e 2d 64 71 75 6f desc ['] un-dquo
0af0: 74 65 20 24 74 6d 70 20 32 6f 76 65 72 20 70 69 te $tmp 2over pi
0b00: 63 64 65 73 63 23 20 23 21 0a 20 20 20 20 2b 61 cdesc# #!. +a
0b10: 6c 62 75 6d 0a 20 20 20 20 66 64 20 63 6c 6f 73 lbum. fd clos
0b20: 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 3b 0a 0a e-file throw ;..
0b30: 3a 20 67 65 74 2d 70 69 63 2d 66 69 6c 65 6e 61 : get-pic-filena
0b40: 6d 65 73 20 28 20 61 64 64 72 20 75 20 2d 2d 20 mes ( addr u --
0b50: 29 0a 20 20 20 20 32 64 75 70 20 6f 70 65 6e 2d ). 2dup open-
0b60: 64 69 72 20 74 68 72 6f 77 20 7b 20 64 64 20 7d dir throw { dd }
0b70: 20 66 70 61 74 68 20 40 20 3e 72 20 66 70 61 74 fpath @ >r fpat
0b80: 68 20 6f 66 66 20 66 70 61 74 68 20 61 6c 73 6f h off fpath also
0b90: 2d 70 61 74 68 20 64 64 0a 20 20 20 20 5b 3a 20 -path dd. [:
0ba0: 7b 20 64 64 20 7d 20 21 74 69 6d 65 0a 09 42 45 { dd } !time..BE
0bb0: 47 49 4e 0a 09 20 20 20 20 70 61 64 20 24 31 30 GIN.. pad $10
0bc0: 30 20 64 64 20 72 65 61 64 2d 64 69 72 20 74 68 0 dd read-dir th
0bd0: 72 6f 77 20 20 57 48 49 4c 45 0a 09 09 70 61 64 row WHILE...pad
0be0: 20 73 77 61 70 20 73 22 20 22 20 32 73 77 61 70 swap s" " 2swap
0bf0: 20 64 69 72 23 20 23 21 0a 09 52 45 50 45 41 54 dir# #!..REPEAT
0c00: 20 20 64 72 6f 70 0a 09 30 20 64 69 72 23 20 5b drop..0 dir# [
0c10: 3a 20 24 40 20 32 64 75 70 20 22 2a 2e 6d 65 74 : $@ 2dup "*.met
0c20: 61 64 61 74 61 2e 63 73 76 22 20 66 69 6c 65 6e adata.csv" filen
0c30: 61 6d 65 2d 6d 61 74 63 68 20 49 46 0a 09 09 67 ame-match IF...g
0c40: 65 74 2d 70 69 63 2d 66 69 6c 65 6e 61 6d 65 20 et-pic-filename
0c50: 31 2b 0a 09 20 20 20 20 45 4c 53 45 20 20 32 64 1+.. ELSE 2d
0c60: 72 6f 70 20 20 54 48 45 4e 20 3b 5d 20 23 6d 61 rop THEN ;] #ma
0c70: 70 0a 09 5b 3a 20 2e 22 20 72 65 61 64 20 22 20 p..[: ." read "
0c80: 2e 20 2e 22 20 70 69 63 73 20 69 6e 20 22 20 2e . ." pics in " .
0c90: 74 69 6d 65 20 3b 5d 0a 09 73 75 63 63 65 73 73 time ;]..success
0ca0: 2d 63 6f 6c 6f 72 20 63 6f 6c 6f 72 2d 65 78 65 -color color-exe
0cb0: 63 75 74 65 20 63 72 20 3b 5d 20 63 61 74 63 68 cute cr ;] catch
0cc0: 0a 20 20 20 20 66 70 61 74 68 20 24 66 72 65 65 . fpath $free
0cd0: 20 72 3e 20 66 70 61 74 68 20 21 20 20 64 64 20 r> fpath ! dd
0ce0: 63 6c 6f 73 65 2d 64 69 72 20 74 68 72 6f 77 20 close-dir throw
0cf0: 20 74 68 72 6f 77 0a 20 20 20 20 64 69 72 23 20 throw. dir#
0d00: 23 66 72 65 65 73 20 3b 0a 0a 3a 20 67 65 74 2d #frees ;..: get-
0d10: 61 76 61 74 61 72 73 20 28 20 2d 2d 20 29 0a 20 avatars ( -- ).
0d20: 20 20 20 61 76 61 74 61 72 73 5b 5d 20 24 5b 5d avatars[] $[]
0d30: 23 20 30 3d 20 3f 45 58 49 54 20 5c 20 6e 6f 74 # 0= ?EXIT \ not
0d40: 68 69 6e 67 20 74 6f 20 64 6f 0a 20 20 20 20 22 hing to do. "
0d50: 61 76 61 74 61 72 73 22 20 2e 6e 65 74 32 6f 2d avatars" .net2o-
0d60: 63 61 63 68 65 2f 20 7b 20 64 3a 20 64 69 72 20 cache/ { d: dir
0d70: 7d 0a 20 20 20 20 64 69 72 20 24 31 46 46 20 69 }. dir $1FF i
0d80: 6e 69 74 2d 64 69 72 20 64 72 6f 70 0a 20 20 20 nit-dir drop.
0d90: 20 64 69 72 20 5b 3a 20 2e 22 20 63 64 20 22 20 dir [: ." cd "
0da0: 74 79 70 65 20 2e 22 20 3b 20 73 6f 72 74 20 2d type ." ; sort -
0db0: 6b 20 33 20 7c 20 73 70 6c 69 74 20 2d 6c 31 32 k 3 | split -l12
0dc0: 38 20 2d 20 61 76 61 74 61 72 73 2e 73 68 2e 22 8 - avatars.sh."
0dd0: 20 3b 5d 20 24 74 6d 70 0a 20 20 20 20 77 2f 6f ;] $tmp. w/o
0de0: 20 6f 70 65 6e 2d 70 69 70 65 20 74 68 72 6f 77 open-pipe throw
0df0: 20 3e 72 0a 20 20 20 20 61 76 61 74 61 72 73 5b >r. avatars[
0e00: 5d 20 5b 27 5d 20 24 5b 5d 2e 20 72 40 20 6f 75 ] ['] $[]. r@ ou
0e10: 74 66 69 6c 65 2d 65 78 65 63 75 74 65 0a 20 20 tfile-execute.
0e20: 20 20 72 3e 20 63 6c 6f 73 65 2d 70 69 70 65 20 r> close-pipe
0e30: 74 68 72 6f 77 20 74 6f 20 24 3f 0a 20 20 20 20 throw to $?.
0e40: 64 69 72 20 5b 3a 20 2e 22 20 63 64 20 22 20 74 dir [: ." cd " t
0e50: 79 70 65 20 2e 22 20 3b 74 69 6d 65 20 65 76 61 ype ." ;time eva
0e60: 6c 20 27 28 66 6f 72 20 69 20 69 6e 20 61 76 61 l '(for i in ava
0e70: 74 61 72 73 2e 73 68 2e 2a 3b 20 64 6f 20 63 75 tars.sh.*; do cu
0e80: 72 6c 20 2d 73 20 24 28 63 61 74 20 24 69 29 20 rl -s $(cat $i)
0e90: 26 20 64 6f 6e 65 3b 20 77 61 69 74 29 27 3b 20 & done; wait)';
0ea0: 23 72 6d 20 61 76 61 74 61 72 73 2e 73 68 2e 2a #rm avatars.sh.*
0eb0: 22 20 3b 5d 20 24 74 6d 70 20 73 79 73 74 65 6d " ;] $tmp system
0ec0: 20 3b 0a 0a 3a 20 2e 61 76 61 74 61 72 2d 66 69 ;..: .avatar-fi
0ed0: 6c 65 20 28 20 6f 3a 61 75 74 68 6f 72 20 2d 2d le ( o:author --
0ee0: 20 61 64 64 72 20 75 20 29 0a 20 20 20 20 5b 3a addr u ). [:
0ef0: 20 2e 22 20 61 76 61 74 61 72 73 2f 67 2b 3a 22 ." avatars/g+:"
0f00: 20 61 75 74 68 6f 72 3a 72 65 73 6f 75 72 63 65 author:resource
0f10: 4e 61 6d 65 24 20 62 61 73 65 6e 61 6d 65 20 74 Name$ basename t
0f20: 79 70 65 20 2e 22 20 2e 70 6e 67 22 20 3b 5d 20 ype ." .png" ;]
0f30: 24 74 6d 70 0a 20 20 20 20 2e 6e 65 74 32 6f 2d $tmp. .net2o-
0f40: 63 61 63 68 65 2f 20 3b 0a 0a 3a 20 68 61 73 68 cache/ ;..: hash
0f50: 2d 69 6e 2d 61 76 61 74 61 72 73 20 28 20 2d 2d -in-avatars ( --
0f60: 20 29 0a 20 20 20 20 61 75 74 68 6f 72 73 23 20 ). authors#
0f70: 5b 3a 20 63 65 6c 6c 2b 20 24 40 20 64 72 6f 70 [: cell+ $@ drop
0f80: 20 40 20 3e 6f 0a 09 61 75 74 68 6f 72 3a 61 76 @ >o..author:av
0f90: 61 74 61 72 49 6d 61 67 65 55 72 6c 24 20 6e 69 atarImageUrl$ ni
0fa0: 70 20 49 46 0a 09 20 20 20 20 2e 61 76 61 74 61 p IF.. .avata
0fb0: 72 2d 66 69 6c 65 20 73 6c 75 72 70 2d 66 69 6c r-file slurp-fil
0fc0: 65 20 6f 76 65 72 20 3e 72 20 68 61 73 68 2d 69 e over >r hash-i
0fd0: 6e 20 72 3e 20 66 72 65 65 20 74 68 72 6f 77 0a n r> free throw.
0fe0: 09 20 20 20 20 61 75 74 68 6f 72 3a 6d 61 70 70 . author:mapp
0ff0: 65 64 2d 6b 65 79 20 3e 6f 20 6b 65 2d 61 76 61 ed-key >o ke-ava
1000: 74 61 72 20 24 21 20 74 68 69 73 2d 6b 65 79 2d tar $! this-key-
1010: 73 69 67 6e 20 6f 3e 0a 09 54 48 45 4e 0a 09 6f sign o>..THEN..o
1020: 3e 20 3b 5d 20 23 6d 61 70 20 3b 0a 0a 3a 20 6b > ;] #map ;..: k
1030: 65 79 2d 61 75 74 68 6f 72 20 28 20 6f 3a 61 75 ey-author ( o:au
1040: 74 68 6f 72 20 2d 2d 20 29 0a 20 20 20 20 66 69 thor -- ). fi
1050: 72 73 74 2d 6b 65 79 3f 20 49 46 0a 09 6d 79 2d rst-key? IF..my-
1060: 6b 65 79 2d 64 65 66 61 75 6c 74 20 20 66 61 6c key-default fal
1070: 73 65 20 74 6f 20 66 69 72 73 74 2d 6b 65 79 3f se to first-key?
1080: 0a 20 20 20 20 45 4c 53 45 0a 09 61 75 74 68 6f . ELSE..autho
1090: 72 3a 72 65 73 6f 75 72 63 65 4e 61 6d 65 24 20 r:resourceName$
10a0: 62 61 73 65 6e 61 6d 65 20 20 61 75 74 68 6f 72 basename author
10b0: 3a 64 69 73 70 6c 61 79 4e 61 6d 65 24 0a 09 30 :displayName$..0
10c0: 20 2e 64 75 6d 6d 79 2d 6b 65 79 0a 20 20 20 20 .dummy-key.
10d0: 54 48 45 4e 20 20 74 6f 20 61 75 74 68 6f 72 3a THEN to author:
10e0: 6d 61 70 70 65 64 2d 6b 65 79 20 3b 0a 0a 3a 20 mapped-key ;..:
10f0: 2e 75 72 6c 20 28 20 61 64 64 72 20 75 20 2d 2d .url ( addr u --
1100: 20 29 0a 20 20 20 20 32 64 75 70 20 22 68 74 74 ). 2dup "htt
1110: 70 22 20 73 74 72 69 6e 67 2d 70 72 65 66 69 78 p" string-prefix
1120: 3f 20 30 3d 20 49 46 20 20 2e 22 20 68 74 74 70 ? 0= IF ." http
1130: 73 3a 22 20 20 54 48 45 4e 20 20 74 79 70 65 20 s:" THEN type
1140: 3b 0a 0a 3a 20 2b 61 76 61 74 61 72 2d 61 75 74 ;..: +avatar-aut
1150: 68 6f 72 20 28 20 6f 3a 61 75 74 68 6f 72 20 2d hor ( o:author -
1160: 2d 20 29 0a 20 20 20 20 61 75 74 68 6f 72 3a 61 - ). author:a
1170: 76 61 74 61 72 49 6d 61 67 65 55 72 6c 24 20 64 vatarImageUrl$ d
1180: 75 70 20 49 46 0a 09 2e 61 76 61 74 61 72 2d 66 up IF...avatar-f
1190: 69 6c 65 20 66 69 6c 65 2d 73 74 61 74 75 73 20 ile file-status
11a0: 30 3d 20 49 46 0a 09 20 20 20 20 64 72 6f 70 20 0= IF.. drop
11b0: 32 64 72 6f 70 0a 09 45 4c 53 45 0a 09 20 20 20 2drop..ELSE..
11c0: 20 64 72 6f 70 20 5b 3a 20 2e 22 20 2d 6f 20 67 drop [: ." -o g
11d0: 2b 3a 22 20 61 75 74 68 6f 72 3a 72 65 73 6f 75 +:" author:resou
11e0: 72 63 65 4e 61 6d 65 24 20 62 61 73 65 6e 61 6d rceName$ basenam
11f0: 65 20 74 79 70 65 20 2e 22 20 2e 70 6e 67 20 22 e type ." .png "
1200: 0a 09 09 2e 75 72 6c 0a 09 20 20 20 20 3b 5d 20 ....url.. ;]
1210: 24 74 6d 70 20 61 76 61 74 61 72 73 5b 5d 20 24 $tmp avatars[] $
1220: 2b 5b 5d 21 0a 09 54 48 45 4e 0a 20 20 20 20 45 +[]!..THEN. E
1230: 4c 53 45 20 20 32 64 72 6f 70 20 20 54 48 45 4e LSE 2drop THEN
1240: 20 3b 0a 0a 3a 20 65 78 65 63 75 74 65 3e 66 69 ;..: execute>fi
1250: 6c 65 20 28 20 2e 2e 2e 20 78 74 20 61 64 64 72 le ( ... xt addr
1260: 20 75 20 2d 2d 20 29 0a 20 20 20 20 72 2f 77 20 u -- ). r/w
1270: 63 72 65 61 74 65 2d 66 69 6c 65 20 74 68 72 6f create-file thro
1280: 77 20 64 75 70 20 3e 72 20 6f 75 74 66 69 6c 65 w dup >r outfile
1290: 2d 65 78 65 63 75 74 65 0a 20 20 20 20 72 3e 20 -execute. r>
12a0: 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68 72 6f 77 close-file throw
12b0: 20 3b 0a 0a 24 31 30 30 20 62 75 66 66 65 72 3a ;..$100 buffer:
12c0: 20 66 69 6c 74 65 72 2d 6f 75 74 0a 66 69 6c 74 filter-out.filt
12d0: 65 72 2d 6f 75 74 20 62 6c 20 31 2d 20 31 20 66 er-out bl 1- 1 f
12e0: 69 6c 6c 0a 31 20 66 69 6c 74 65 72 2d 6f 75 74 ill.1 filter-out
12f0: 20 27 5d 27 20 2b 20 63 21 0a 0a 3a 20 2e 73 69 ']' + c!..: .si
1300: 6d 70 6c 65 2d 74 65 78 74 20 28 20 61 64 64 72 mple-text ( addr
1310: 20 75 20 2d 2d 20 29 0a 20 20 20 20 62 6f 75 6e u -- ). boun
1320: 64 73 20 3f 44 4f 20 20 69 20 63 40 20 66 69 6c ds ?DO i c@ fil
1330: 74 65 72 2d 6f 75 74 20 2b 20 63 40 20 30 3d 20 ter-out + c@ 0=
1340: 49 46 20 20 49 20 63 40 20 65 6d 69 74 20 20 54 IF I c@ emit T
1350: 48 45 4e 20 20 4c 4f 4f 50 20 3b 0a 0a 3a 20 2e HEN LOOP ;..: .
1360: 68 74 6d 6c 20 28 20 2d 2d 20 29 0a 20 20 20 20 html ( -- ).
1370: 63 6f 6d 6d 65 6e 74 73 3a 63 6f 6e 74 65 6e 74 comments:content
1380: 24 20 68 74 6d 6c 2d 75 6e 74 61 67 20 63 72 20 $ html-untag cr
1390: 3b 0a 3a 20 2e 70 6c 61 69 6e 20 28 20 2d 2d 20 ;.: .plain ( --
13a0: 29 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 73 3a 63 ). comments:c
13b0: 6f 6e 74 65 6e 74 24 20 68 74 6d 6c 3e 74 65 78 ontent$ html>tex
13c0: 74 20 3b 0a 3a 20 2e 6c 69 6e 6b 20 28 20 2d 2d t ;.: .link ( --
13d0: 20 29 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 73 3a ). comments:
13e0: 6c 69 6e 6b 7b 7d 20 3f 64 75 70 2d 49 46 20 63 link{} ?dup-IF c
13f0: 72 20 3e 6f 0a 09 27 5b 27 20 65 6d 69 74 20 6c r >o..'[' emit l
1400: 69 6e 6b 3a 74 69 74 6c 65 24 20 74 79 70 65 2d ink:title$ type-
1410: 65 73 63 27 64 20 2e 22 20 5d 28 22 20 6c 69 6e esc'd ." ](" lin
1420: 6b 3a 75 72 6c 24 20 74 79 70 65 20 27 29 27 20 k:url$ type ')'
1430: 65 6d 69 74 20 63 72 0a 09 6f 3e 20 20 54 48 45 emit cr..o> THE
1440: 4e 20 3b 0a 0a 30 20 56 61 6c 75 65 20 69 6d 67 N ;..0 Value img
1450: 2d 72 65 71 2d 66 69 64 0a 0a 3a 20 2e 6d 66 69 -req-fid..: .mfi
1460: 6c 65 20 7b 20 64 3a 20 66 6e 20 2d 2d 20 7d 0a le { d: fn -- }.
1470: 20 20 20 20 66 6e 20 62 61 73 65 64 69 72 2b 6e fn basedir+n
1480: 61 6d 65 20 70 69 63 73 23 20 23 40 20 32 64 75 ame pics# #@ 2du
1490: 70 20 64 30 3d 20 49 46 0a 09 32 64 72 6f 70 20 p d0= IF..2drop
14a0: 66 6e 20 2e 75 72 6c 0a 09 66 6e 20 5b 3a 20 2e fn .url..fn [: .
14b0: 75 72 6c 20 63 72 20 3b 5d 20 69 6d 67 2d 72 65 url cr ;] img-re
14c0: 71 2d 66 69 64 20 6f 75 74 66 69 6c 65 2d 65 78 q-fid outfile-ex
14d0: 65 63 75 74 65 0a 20 20 20 20 45 4c 53 45 0a 09 ecute. ELSE..
14e0: 2e 22 20 66 69 6c 65 3a 22 20 70 69 63 62 61 73 ." file:" picbas
14f0: 65 23 20 23 40 20 74 79 70 65 0a 20 20 20 20 54 e# #@ type. T
1500: 48 45 4e 20 3b 0a 3a 20 2e 63 73 76 2d 6c 69 6e HEN ;.: .csv-lin
1510: 6b 20 7b 20 64 3a 20 66 6e 20 2d 2d 20 7d 0a 20 k { d: fn -- }.
1520: 20 20 20 2e 22 20 21 5b 22 20 66 6e 20 70 69 63 ." " cr ;
1570: 0a 3a 20 2e 6d 65 64 69 61 2d 66 69 6c 65 20 28 .: .media-file (
1580: 20 2d 2d 20 29 0a 20 20 20 20 6d 65 64 69 61 3a -- ). media:
1590: 75 72 6c 24 20 62 61 73 65 6e 61 6d 65 20 6e 69 url$ basename ni
15a0: 70 20 24 31 30 30 20 3e 20 49 46 0a 09 2e 22 20 p $100 > IF..."
15b0: 66 69 6c 65 3a 22 20 6d 65 64 69 61 3a 6c 6f 63 file:" media:loc
15c0: 61 6c 46 69 6c 65 50 61 74 68 24 20 62 61 73 65 alFilePath$ base
15d0: 6e 61 6d 65 20 74 79 70 65 0a 20 20 20 20 45 4c name type. EL
15e0: 53 45 0a 09 6d 65 64 69 61 3a 6c 6f 63 61 6c 46 SE..media:localF
15f0: 69 6c 65 50 61 74 68 24 20 6e 69 70 20 49 46 20 ilePath$ nip IF
1600: 20 2e 22 20 66 69 6c 65 3a 22 20 6d 65 64 69 61 ." file:" media
1610: 3a 75 72 6c 24 20 62 61 73 65 6e 61 6d 65 20 74 :url$ basename t
1620: 79 70 65 0a 09 45 4c 53 45 20 20 6d 65 64 69 61 ype..ELSE media
1630: 3a 75 72 6c 24 20 2e 6d 66 69 6c 65 20 20 54 48 :url$ .mfile TH
1640: 45 4e 0a 20 20 20 20 54 48 45 4e 20 3b 0a 3a 20 EN. THEN ;.:
1650: 69 6e 6c 69 6e 65 2d 69 6d 61 67 65 20 28 20 2d inline-image ( -
1660: 2d 20 29 0a 20 20 20 20 6d 65 64 69 61 3a 63 6f - ). media:co
1670: 6e 74 65 6e 74 54 79 70 65 24 20 22 69 6d 61 67 ntentType$ "imag
1680: 65 2f 22 20 73 74 72 69 6e 67 2d 70 72 65 66 69 e/" string-prefi
1690: 78 3f 20 49 46 0a 09 2e 22 20 21 5b 22 20 6d 65 x? IF..." ![" me
16a0: 64 69 61 3a 64 65 73 63 72 69 70 74 69 6f 6e 24 dia:description$
16b0: 20 2e 73 69 6d 70 6c 65 2d 74 65 78 74 20 2e 22 .simple-text ."
16c0: 20 5d 28 22 20 2e 6d 65 64 69 61 2d 66 69 6c 65 ](" .media-file
16d0: 20 27 29 27 20 65 6d 69 74 20 63 72 0a 20 20 20 ')' emit cr.
16e0: 20 45 4c 53 45 0a 09 6d 65 64 69 61 3a 75 72 6c ELSE..media:url
16f0: 24 20 2e 22 20 5b 22 20 32 64 75 70 20 74 79 70 $ ." [" 2dup typ
1700: 65 20 2e 22 20 5d 28 22 20 74 79 70 65 20 27 29 e ." ](" type ')
1710: 27 20 65 6d 69 74 20 63 72 0a 20 20 20 20 54 48 ' emit cr. TH
1720: 45 4e 20 3b 0a 3a 20 2e 6d 65 64 69 61 20 28 20 EN ;.: .media (
1730: 2d 2d 20 29 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 -- ). comment
1740: 73 3a 6d 65 64 69 61 7b 7d 20 3f 64 75 70 2d 49 s:media{} ?dup-I
1750: 46 20 63 72 20 2e 69 6e 6c 69 6e 65 2d 69 6d 61 F cr .inline-ima
1760: 67 65 20 20 54 48 45 4e 20 3b 0a 3a 20 2e 61 6c ge THEN ;.: .al
1770: 62 75 6d 20 28 20 2d 2d 20 29 0a 20 20 20 20 63 bum ( -- ). c
1780: 6f 6d 6d 65 6e 74 73 3a 61 6c 62 75 6d 7b 7d 20 omments:album{}
1790: 3f 64 75 70 2d 49 46 20 63 72 0a 09 2e 22 20 3a ?dup-IF cr..." :
17a0: 3a 61 6c 62 75 6d 3a 3a 22 20 63 72 20 63 72 0a :album::" cr cr.
17b0: 09 2e 61 6c 62 75 6d 3a 6d 65 64 69 61 5b 5d 20 ..album:media[]
17c0: 24 40 20 6f 76 65 72 20 40 20 2e 6d 65 64 69 61 $@ over @ .media
17d0: 3a 75 72 6c 24 0a 09 62 61 73 65 64 69 72 2b 6e :url$..basedir+n
17e0: 61 6d 65 20 70 69 63 73 23 20 23 40 20 64 30 3d ame pics# #@ d0=
17f0: 20 49 46 0a 09 20 20 20 20 62 6f 75 6e 64 73 20 IF.. bounds
1800: 55 2b 44 4f 0a 09 09 49 20 40 20 2e 69 6e 6c 69 U+DO...I @ .inli
1810: 6e 65 2d 69 6d 61 67 65 0a 09 20 20 20 20 63 65 ne-image.. ce
1820: 6c 6c 20 2b 4c 4f 4f 50 0a 09 45 4c 53 45 0a 09 ll +LOOP..ELSE..
1830: 20 20 20 20 32 64 72 6f 70 0a 09 20 20 20 20 6c 2drop.. l
1840: 61 73 74 23 20 63 65 6c 6c 2b 20 24 40 20 35 20 ast# cell+ $@ 5
1850: 75 6d 69 6e 20 61 6c 62 75 6d 23 20 23 40 20 62 umin album# #@ b
1860: 6f 75 6e 64 73 20 55 2b 44 4f 0a 09 09 49 20 24 ounds U+DO...I $
1870: 40 20 2e 63 73 76 2d 6c 69 6e 6b 0a 09 20 20 20 @ .csv-link..
1880: 20 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 09 54 48 45 cell +LOOP..THE
1890: 4e 0a 20 20 20 20 54 48 45 4e 20 3b 0a 3a 20 2e N. THEN ;.: .
18a0: 70 6f 73 74 20 28 20 6f 3a 63 6f 6d 6d 65 6e 74 post ( o:comment
18b0: 73 20 2d 2d 20 29 0a 20 20 20 20 2e 22 20 70 6f s -- ). ." po
18c0: 73 74 3a 22 20 63 6f 6d 6d 65 6e 74 73 3a 61 75 st:" comments:au
18d0: 74 68 6f 72 7b 7d 20 2e 2e 6b 65 79 36 34 20 27 thor{} ..key64 '
18e0: 2f 27 20 65 6d 69 74 0a 20 20 20 20 2e 22 20 67 /' emit. ." g
18f0: 2b 3a 22 20 63 6f 6d 6d 65 6e 74 73 3a 75 72 6c +:" comments:url
1900: 24 20 62 61 73 65 6e 61 6d 65 20 74 79 70 65 20 $ basename type
1910: 3b 0a 3a 20 2e 70 72 6f 6a 65 63 74 20 28 20 6f ;.: .project ( o
1920: 3a 63 6f 6d 6d 65 6e 74 73 20 2d 2d 20 29 0a 20 :comments -- ).
1930: 20 20 20 63 6f 6d 6d 65 6e 74 73 3a 61 75 74 68 comments:auth
1940: 6f 72 7b 7d 20 2e 6b 65 79 2d 70 6b 40 20 74 79 or{} .key-pk@ ty
1950: 70 65 0a 20 20 20 20 2e 22 20 67 2b 3a 22 20 63 pe. ." g+:" c
1960: 6f 6d 6d 65 6e 74 73 3a 75 72 6c 24 20 62 61 73 omments:url$ bas
1970: 65 6e 61 6d 65 20 74 79 70 65 20 3b 0a 3a 20 2e ename type ;.: .
1980: 61 75 74 68 6f 72 20 28 20 6f 3a 61 75 74 68 6f author ( o:autho
1990: 72 20 2d 2d 20 29 0a 20 20 20 20 2e 22 20 2b 5b r -- ). ." +[
19a0: 22 20 61 75 74 68 6f 72 3a 64 69 73 70 6c 61 79 " author:display
19b0: 4e 61 6d 65 24 20 74 79 70 65 20 2e 22 20 5d 28 Name$ type ." ](
19c0: 6b 65 79 3a 22 20 2e 6b 65 79 36 34 20 2e 22 20 key:" .key64 ."
19d0: 29 22 20 3b 0a 3a 20 2e 72 65 73 68 61 72 65 64 )" ;.: .reshared
19e0: 20 28 20 6f 3a 63 6f 6d 6d 65 6e 74 73 20 2d 2d ( o:comments --
19f0: 20 29 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 73 3a ). comments:
1a00: 72 65 73 68 61 72 65 64 50 6f 73 74 7b 7d 20 3f resharedPost{} ?
1a10: 64 75 70 2d 49 46 20 20 63 72 20 3e 6f 0a 09 2e dup-IF cr >o...
1a20: 22 20 3e 20 22 20 63 6f 6d 6d 65 6e 74 73 3a 61 " > " comments:a
1a30: 75 74 68 6f 72 7b 7d 20 3f 64 75 70 2d 49 46 20 uthor{} ?dup-IF
1a40: 20 2e 2e 61 75 74 68 6f 72 20 2e 22 20 3a 20 22 ..author ." : "
1a50: 20 54 48 45 4e 0a 09 27 5b 27 20 65 6d 69 74 20 THEN..'[' emit
1a60: 63 6f 6d 6d 65 6e 74 73 3a 63 6f 6e 74 65 6e 74 comments:content
1a70: 24 20 5b 27 5d 20 68 74 6d 6c 3e 74 65 78 74 20 $ ['] html>text
1a80: 24 74 6d 70 20 24 34 30 20 75 6d 69 6e 20 2e 73 $tmp $40 umin .s
1a90: 69 6d 70 6c 65 2d 74 65 78 74 0a 09 2e 22 20 5d imple-text..." ]
1aa0: 28 22 20 2e 70 6f 73 74 20 27 29 20 65 6d 69 74 (" .post ') emit
1ab0: 20 63 72 20 63 72 0a 09 2e 68 74 6d 6c 20 2e 6c cr cr...html .l
1ac0: 69 6e 6b 20 2e 6d 65 64 69 61 20 2e 61 6c 62 75 ink .media .albu
1ad0: 6d 20 6f 3e 0a 20 20 20 20 54 48 45 4e 20 3b 0a m o>. THEN ;.
1ae0: 3a 20 2e 63 68 6f 69 63 65 20 28 20 6e 20 6f 3a : .choice ( n o:
1af0: 63 68 6f 69 63 65 73 20 2d 2d 20 29 0a 20 20 20 choices -- ).
1b00: 20 27 31 27 20 2b 20 64 75 70 20 65 6d 69 74 20 '1' + dup emit
1b10: 2e 22 20 2e 20 3a 3a 76 6f 74 65 73 23 22 20 65 ." . ::votes#" e
1b20: 6d 69 74 20 2e 22 20 3a 3a 20 22 20 63 68 6f 69 mit ." :: " choi
1b30: 63 65 73 3a 64 65 73 63 72 69 70 74 69 6f 6e 24 ces:description$
1b40: 20 74 79 70 65 0a 20 20 20 20 27 5c 27 20 65 6d type. '\' em
1b50: 69 74 20 63 72 20 2e 22 20 20 20 21 5b 22 20 63 it cr ." ![" c
1b60: 68 6f 69 63 65 73 3a 64 65 73 63 72 69 70 74 69 hoices:descripti
1b70: 6f 6e 24 20 74 79 70 65 20 2e 22 20 5d 28 22 0a on$ type ." ](".
1b80: 20 20 20 20 63 68 6f 69 63 65 73 3a 69 6d 61 67 choices:imag
1b90: 65 4c 6f 63 61 6c 46 69 6c 65 50 61 74 68 24 20 eLocalFilePath$
1ba0: 64 75 70 20 49 46 20 20 62 61 73 65 6e 61 6d 65 dup IF basename
1bb0: 20 74 79 70 65 0a 20 20 20 20 45 4c 53 45 20 20 type. ELSE
1bc0: 32 64 72 6f 70 20 63 68 6f 69 63 65 73 3a 69 6d 2drop choices:im
1bd0: 61 67 65 55 72 6c 24 20 2e 6d 66 69 6c 65 20 20 ageUrl$ .mfile
1be0: 54 48 45 4e 20 20 2e 22 20 29 20 22 20 3b 0a 3a THEN ." ) " ;.:
1bf0: 20 2e 70 6f 6c 6c 73 20 28 20 6f 3a 63 6f 6d 6d .polls ( o:comm
1c00: 65 6e 74 73 20 2d 2d 20 29 0a 20 20 20 20 63 6f ents -- ). co
1c10: 6d 6d 65 6e 74 73 3a 70 6f 6c 6c 7b 7d 20 3f 64 mments:poll{} ?d
1c20: 75 70 2d 49 46 20 20 63 72 20 3e 6f 0a 09 30 20 up-IF cr >o..0
1c30: 7b 20 6e 20 7d 0a 09 70 6f 6c 6c 3a 63 68 6f 69 { n }..poll:choi
1c40: 63 65 73 5b 5d 20 24 40 20 62 6f 75 6e 64 73 20 ces[] $@ bounds
1c50: 55 2b 44 4f 0a 09 20 20 20 20 6e 20 49 20 40 20 U+DO.. n I @
1c60: 2e 2e 63 68 6f 69 63 65 20 63 72 20 20 31 20 2b ..choice cr 1 +
1c70: 74 6f 20 6e 0a 09 63 65 6c 6c 20 2b 4c 4f 4f 50 to n..cell +LOOP
1c80: 20 6f 3e 0a 20 20 20 20 54 48 45 4e 20 3b 0a 3a o>. THEN ;.:
1c90: 20 2e 63 6f 6d 2f 63 6f 6c 20 28 20 6f 3a 63 6f .com/col ( o:co
1ca0: 6c 6c 65 63 74 69 6f 6e 20 2d 2d 20 29 20 63 72 llection -- ) cr
1cb0: 0a 20 20 20 20 63 6f 6c 6c 65 63 74 69 6f 6e 41 . collectionA
1cc0: 74 74 61 63 68 6d 65 6e 74 3a 64 69 73 70 6c 61 ttachment:displa
1cd0: 79 4e 61 6d 65 24 0a 20 20 20 20 2e 22 20 5b 21 yName$. ." [!
1ce0: 5b 22 09 32 64 75 70 20 74 79 70 65 20 2e 22 20 [".2dup type ."
1cf0: 5d 28 22 20 63 6f 6c 6c 65 63 74 69 6f 6e 41 74 ](" collectionAt
1d00: 74 61 63 68 6d 65 6e 74 3a 63 6f 76 65 72 50 68 tachment:coverPh
1d10: 6f 74 6f 55 72 6c 24 20 2e 6d 66 69 6c 65 0a 20 otoUrl$ .mfile.
1d20: 20 20 20 2e 22 20 29 5d 28 63 68 61 74 3a 67 2b ." )](chat:g+
1d30: 3a 22 20 74 79 70 65 0a 20 20 20 20 63 6f 6c 6c :" type. coll
1d40: 65 63 74 69 6f 6e 41 74 74 61 63 68 6d 65 6e 74 ectionAttachment
1d50: 3a 6f 77 6e 65 72 7b 7d 20 3f 64 75 70 2d 49 46 :owner{} ?dup-IF
1d60: 20 20 27 40 27 20 65 6d 69 74 20 2e 2e 6b 65 79 '@' emit ..key
1d70: 36 34 20 20 54 48 45 4e 0a 20 20 20 20 27 29 27 64 THEN. ')'
1d80: 20 65 6d 69 74 20 3b 0a 0a 3a 20 2e 63 6f 6c 6c emit ;..: .coll
1d90: 65 63 74 69 6f 6e 20 28 20 6f 3a 63 6f 6d 6d 65 ection ( o:comme
1da0: 6e 74 73 20 2d 2d 20 29 0a 20 20 20 20 63 6f 6d nts -- ). com
1db0: 6d 65 6e 74 73 3a 63 6f 6c 6c 65 63 74 69 6f 6e ments:collection
1dc0: 41 74 74 61 63 68 6d 65 6e 74 7b 7d 20 3f 64 75 Attachment{} ?du
1dd0: 70 2d 49 46 20 20 2e 2e 63 6f 6d 2f 63 6f 6c 20 p-IF ..com/col
1de0: 20 54 48 45 4e 20 3b 0a 3a 20 2e 63 6f 6d 6d 75 THEN ;.: .commu
1df0: 6e 69 74 79 20 28 20 6f 3a 63 6f 6d 6d 65 6e 74 nity ( o:comment
1e00: 73 20 2d 2d 20 29 0a 20 20 20 20 63 6f 6d 6d 65 s -- ). comme
1e10: 6e 74 73 3a 63 6f 6d 6d 75 6e 69 74 79 41 74 74 nts:communityAtt
1e20: 61 63 68 6d 65 6e 74 7b 7d 20 3f 64 75 70 2d 49 achment{} ?dup-I
1e30: 46 20 20 2e 2e 63 6f 6d 2f 63 6f 6c 20 20 54 48 F ..com/col TH
1e40: 45 4e 20 3b 0a 0a 3a 20 61 64 64 2d 66 69 6c 65 EN ;..: add-file
1e50: 20 7b 20 64 76 63 73 20 64 3a 20 66 69 6c 65 20 { dvcs d: file
1e60: 2d 2d 20 7d 0a 20 20 20 20 5b 3a 20 2e 68 74 6d -- }. [: .htm
1e70: 6c 20 2e 6c 69 6e 6b 20 2e 6d 65 64 69 61 20 2e l .link .media .
1e80: 72 65 73 68 61 72 65 64 20 2e 61 6c 62 75 6d 20 reshared .album
1e90: 2e 70 6f 6c 6c 73 20 2e 63 6f 6c 6c 65 63 74 69 .polls .collecti
1ea0: 6f 6e 20 2e 63 6f 6d 6d 75 6e 69 74 79 20 3b 5d on .community ;]
1eb0: 20 66 69 6c 65 20 65 78 65 63 75 74 65 3e 66 69 file execute>fi
1ec0: 6c 65 0a 20 20 20 20 66 69 6c 65 20 64 76 63 73 le. file dvcs
1ed0: 20 2e 64 76 63 73 2d 61 64 64 20 3b 0a 0a 56 61 .dvcs-add ;..Va
1ee0: 72 69 61 62 6c 65 20 70 66 69 6c 65 24 0a 3a 20 riable pfile$.:
1ef0: 24 70 66 69 6c 65 20 28 20 78 74 20 2d 2d 20 61 $pfile ( xt -- a
1f00: 64 64 72 20 75 20 29 0a 20 20 20 20 70 66 69 6c ddr u ). pfil
1f10: 65 24 20 24 66 72 65 65 20 20 70 66 69 6c 65 24 e$ $free pfile$
1f20: 20 24 65 78 65 63 20 20 70 66 69 6c 65 24 20 24 $exec pfile$ $
1f30: 40 20 3b 0a 3a 20 70 6f 73 74 2d 66 69 6c 65 20 @ ;.: post-file
1f40: 28 20 2d 2d 20 29 0a 20 20 20 20 5b 3a 20 2e 22 ( -- ). [: ."
1f50: 20 70 6f 73 74 2d 22 20 70 72 6f 6a 65 63 74 3a post-" project:
1f60: 70 72 6f 6a 65 63 74 24 20 24 2e 20 2e 22 20 2e project$ $. ." .
1f70: 6d 64 22 20 3b 5d 20 24 70 66 69 6c 65 20 3b 0a md" ;] $pfile ;.
1f80: 3a 20 63 6f 6d 6d 65 6e 74 2d 66 69 6c 65 20 28 : comment-file (
1f90: 20 2d 2d 20 61 64 64 72 20 75 20 29 0a 20 20 20 -- addr u ).
1fa0: 20 5b 3a 20 2e 22 20 63 6f 6d 6d 65 6e 74 2d 22 [: ." comment-"
1fb0: 20 63 6f 6d 6d 65 6e 74 73 3a 72 65 73 6f 75 72 comments:resour
1fc0: 63 65 4e 61 6d 65 24 20 64 75 70 20 31 31 20 2d ceName$ dup 11 -
1fd0: 20 2f 73 74 72 69 6e 67 20 74 79 70 65 20 2e 22 /string type ."
1fe0: 20 2e 6d 64 22 20 3b 5d 0a 20 20 20 20 24 70 66 .md" ;]. $pf
1ff0: 69 6c 65 20 3b 0a 0a 3a 20 61 64 64 2d 70 6f 73 ile ;..: add-pos
2000: 74 20 28 20 64 76 63 73 20 2d 2d 20 29 20 64 75 t ( dvcs -- ) du
2010: 70 20 2e 70 6f 73 74 2d 66 69 6c 65 20 61 64 64 p .post-file add
2020: 2d 66 69 6c 65 20 3b 0a 0a 3a 20 2f 64 69 72 73 -file ;..: /dirs
2030: 20 28 20 61 64 64 72 20 75 20 6e 20 2d 2d 20 61 ( addr u n -- a
2040: 64 64 72 27 20 75 27 20 29 0a 20 20 20 20 30 20 ddr' u' ). 0
2050: 3f 44 4f 20 20 27 2f 27 20 73 63 61 6e 20 31 20 ?DO '/' scan 1
2060: 73 61 66 65 2f 73 74 72 69 6e 67 20 20 4c 4f 4f safe/string LOO
2070: 50 20 3b 0a 0a 56 61 72 69 61 62 6c 65 20 70 68 P ;..Variable ph
2080: 6f 74 6f 2d 70 61 74 68 0a 0a 3a 20 2b 70 68 6f oto-path..: +pho
2090: 74 6f 2d 70 61 74 68 73 20 28 20 2d 2d 20 29 0a to-paths ( -- ).
20a0: 20 20 20 20 22 2e 2e 2f 2e 2e 22 20 6f 70 65 6e "../.." open
20b0: 2d 64 69 72 20 74 68 72 6f 77 20 3e 72 0a 20 20 -dir throw >r.
20c0: 20 20 42 45 47 49 4e 20 20 70 61 64 20 24 31 30 BEGIN pad $10
20d0: 30 20 72 40 20 72 65 61 64 2d 64 69 72 20 74 68 0 r@ read-dir th
20e0: 72 6f 77 20 20 57 48 49 4c 45 0a 09 20 20 20 20 row WHILE..
20f0: 70 61 64 20 6f 76 65 72 20 22 2e 22 20 73 74 72 pad over "." str
2100: 3d 20 3e 72 20 70 61 64 20 6f 76 65 72 20 22 2e = >r pad over ".
2110: 2e 22 20 73 74 72 3d 20 72 3e 20 6f 72 20 30 3d ." str= r> or 0=
2120: 20 49 46 0a 09 09 5b 3a 20 64 69 72 40 20 74 79 IF...[: dir@ ty
2130: 70 65 20 2e 22 20 2f 2e 2e 2f 2e 2e 2f 22 20 70 pe ." /../../" p
2140: 61 64 20 73 77 61 70 20 74 79 70 65 20 3b 5d 20 ad swap type ;]
2150: 24 74 6d 70 0a 09 09 63 6f 6d 70 61 63 74 2d 66 $tmp...compact-f
2160: 69 6c 65 6e 61 6d 65 20 70 68 6f 74 6f 2d 70 61 ilename photo-pa
2170: 74 68 20 61 6c 73 6f 2d 70 61 74 68 0a 09 20 20 th also-path..
2180: 20 20 45 4c 53 45 20 20 64 72 6f 70 20 20 54 48 ELSE drop TH
2190: 45 4e 0a 20 20 20 20 52 45 50 45 41 54 20 20 64 EN. REPEAT d
21a0: 72 6f 70 20 72 3e 20 63 6c 6f 73 65 2d 64 69 72 rop r> close-dir
21b0: 20 74 68 72 6f 77 20 3b 0a 0a 3a 20 66 69 6e 64 throw ;..: find
21c0: 2d 66 69 6c 65 20 7b 20 64 3a 20 66 6e 2d 6f 72 -file { d: fn-or
21d0: 69 67 20 64 3a 20 66 6e 20 2d 2d 20 66 6e 2d 6f ig d: fn -- fn-o
21e0: 72 69 67 20 61 64 64 72 27 20 75 27 20 66 6c 61 rig addr' u' fla
21f0: 67 20 7d 0a 20 20 20 20 66 6e 2d 6f 72 69 67 0a g }. fn-orig.
2200: 20 20 20 20 66 6e 20 5b 3a 20 64 69 72 40 20 66 fn [: dir@ f
2210: 6f 72 74 68 3a 74 79 70 65 20 2e 22 20 2f 22 20 orth:type ." /"
2220: 66 6f 72 74 68 3a 74 79 70 65 20 3b 5d 0a 20 20 forth:type ;].
2230: 20 20 24 74 6d 70 20 63 6f 6d 70 61 63 74 2d 66 $tmp compact-f
2240: 69 6c 65 6e 61 6d 65 20 32 64 75 70 20 66 69 6c ilename 2dup fil
2250: 65 2d 73 74 61 74 75 73 20 6e 69 70 20 30 3d 20 e-status nip 0=
2260: 64 75 70 20 3f 45 58 49 54 20 20 64 72 6f 70 20 dup ?EXIT drop
2270: 32 64 72 6f 70 0a 20 20 20 20 66 6e 2d 6f 72 69 2drop. fn-ori
2280: 67 20 66 6e 20 5b 3a 0a 09 33 20 2f 64 69 72 73 g fn [:..3 /dirs
2290: 09 64 69 72 6e 61 6d 65 20 66 6f 72 74 68 3a 74 .dirname forth:t
22a0: 79 70 65 20 27 2f 27 20 65 6d 69 74 20 62 61 73 ype '/' emit bas
22b0: 65 6e 61 6d 65 20 66 6f 72 74 68 3a 74 79 70 65 ename forth:type
22c0: 20 3b 5d 0a 20 20 20 20 24 74 6d 70 20 70 68 6f ;]. $tmp pho
22d0: 74 6f 2d 70 61 74 68 20 6f 70 65 6e 2d 70 61 74 to-path open-pat
22e0: 68 2d 66 69 6c 65 20 49 46 20 20 30 20 30 20 66 h-file IF 0 0 f
22f0: 61 6c 73 65 0a 20 20 20 20 45 4c 53 45 20 20 72 alse. ELSE r
2300: 6f 74 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68 ot close-file th
2310: 72 6f 77 20 74 72 75 65 20 20 54 48 45 4e 20 3b row true THEN ;
2320: 0a 0a 3a 20 6c 6f 63 61 6c 2d 6d 65 64 69 61 20 ..: local-media
2330: 28 20 66 69 6c 65 6e 61 6d 65 20 75 20 62 61 73 ( filename u bas
2340: 65 6e 61 6d 65 20 75 20 6f 3a 64 73 76 63 20 2d ename u o:dsvc -
2350: 2d 20 29 0a 20 20 20 20 32 64 75 70 20 64 65 6c - ). 2dup del
2360: 65 74 65 2d 66 69 6c 65 20 64 72 6f 70 20 32 73 ete-file drop 2s
2370: 77 61 70 0a 20 20 20 20 66 69 6e 64 2d 66 69 6c wap. find-fil
2380: 65 20 49 46 20 20 32 6f 76 65 72 20 73 79 6d 6c e IF 2over syml
2390: 69 6e 6b 20 3f 69 6f 72 20 20 64 76 63 73 2d 72 ink ?ior dvcs-r
23a0: 65 66 0a 20 20 20 20 45 4c 53 45 20 20 32 64 72 ef. ELSE 2dr
23b0: 6f 70 20 32 64 72 6f 70 20 20 54 48 45 4e 20 3b op 2drop THEN ;
23c0: 0a 0a 3a 20 63 73 76 2d 6d 65 64 69 61 20 28 20 ..: csv-media (
23d0: 66 69 6c 65 6e 61 6d 65 20 75 20 6f 3a 64 73 76 filename u o:dsv
23e0: 63 20 2d 2d 20 29 0a 20 20 20 20 32 64 75 70 20 c -- ). 2dup
23f0: 70 69 63 62 61 73 65 23 20 23 40 20 6c 6f 63 61 picbase# #@ loca
2400: 6c 2d 6d 65 64 69 61 20 3b 0a 0a 3a 20 61 64 64 l-media ;..: add
2410: 2d 6d 65 64 69 61 20 7b 20 64 76 63 73 20 2d 2d -media { dvcs --
2420: 20 7d 0a 20 20 20 20 6d 65 64 69 61 3a 6c 6f 63 }. media:loc
2430: 61 6c 46 69 6c 65 50 61 74 68 24 20 64 75 70 20 alFilePath$ dup
2440: 49 46 0a 09 6d 65 64 69 61 3a 75 72 6c 24 20 62 IF..media:url$ b
2450: 61 73 65 6e 61 6d 65 20 64 75 70 20 24 31 30 30 asename dup $100
2460: 20 3e 20 49 46 0a 09 20 20 20 20 32 64 72 6f 70 > IF.. 2drop
2470: 20 6d 65 64 69 61 3a 6c 6f 63 61 6c 46 69 6c 65 media:localFile
2480: 50 61 74 68 24 20 62 61 73 65 6e 61 6d 65 0a 09 Path$ basename..
2490: 54 48 45 4e 20 20 64 76 63 73 20 2e 6c 6f 63 61 THEN dvcs .loca
24a0: 6c 2d 6d 65 64 69 61 20 20 45 58 49 54 0a 20 20 l-media EXIT.
24b0: 20 20 54 48 45 4e 20 20 32 64 72 6f 70 0a 20 20 THEN 2drop.
24c0: 20 20 6d 65 64 69 61 3a 75 72 6c 24 20 62 61 73 media:url$ bas
24d0: 65 64 69 72 2b 6e 61 6d 65 20 70 69 63 73 23 20 edir+name pics#
24e0: 23 40 20 64 30 3d 20 49 46 0a 09 6d 65 64 69 61 #@ d0= IF..media
24f0: 3a 63 6f 6e 74 65 6e 74 54 79 70 65 24 20 22 69 :contentType$ "i
2500: 6d 61 67 65 2f 2a 22 20 73 74 72 3d 20 49 46 0a mage/*" str= IF.
2510: 09 20 20 20 20 2e 22 20 6d 65 64 69 61 20 75 6e . ." media un
2520: 61 76 61 69 6c 61 62 6c 65 3a 20 22 20 6d 65 64 available: " med
2530: 69 61 3a 75 72 6c 24 20 74 79 70 65 20 63 72 20 ia:url$ type cr
2540: 20 54 48 45 4e 0a 09 45 58 49 54 20 20 54 48 45 THEN..EXIT THE
2550: 4e 0a 20 20 20 20 6d 65 64 69 61 3a 63 6f 6e 74 N. media:cont
2560: 65 6e 74 54 79 70 65 24 20 22 76 69 64 65 6f 2f entType$ "video/
2570: 2a 22 20 73 74 72 3d 20 49 46 0a 09 6d 65 64 69 *" str= IF..medi
2580: 61 3a 75 72 6c 24 20 2e 22 20 5b 22 20 32 64 75 a:url$ ." [" 2du
2590: 70 20 74 79 70 65 20 2e 22 20 5d 28 22 20 74 79 p type ." ](" ty
25a0: 70 65 20 2e 22 20 29 22 20 63 72 0a 09 45 58 49 pe ." )" cr..EXI
25b0: 54 20 20 54 48 45 4e 0a 20 20 20 20 6c 61 73 74 T THEN. last
25c0: 23 20 63 65 6c 6c 2b 20 24 40 20 64 76 63 73 20 # cell+ $@ dvcs
25d0: 2e 63 73 76 2d 6d 65 64 69 61 20 3b 0a 0a 3a 20 .csv-media ;..:
25e0: 61 64 64 2d 61 6c 62 75 6d 20 7b 20 64 76 63 73 add-album { dvcs
25f0: 20 2d 2d 20 7d 0a 20 20 20 20 63 6f 6d 6d 65 6e -- }. commen
2600: 74 73 3a 61 6c 62 75 6d 7b 7d 20 3f 64 75 70 2d ts:album{} ?dup-
2610: 49 46 0a 09 2e 61 6c 62 75 6d 3a 6d 65 64 69 61 IF...album:media
2620: 5b 5d 20 24 40 0a 09 6f 76 65 72 20 40 20 2e 6d [] $@..over @ .m
2630: 65 64 69 61 3a 75 72 6c 24 0a 09 62 61 73 65 64 edia:url$..based
2640: 69 72 2b 6e 61 6d 65 20 70 69 63 73 23 20 23 40 ir+name pics# #@
2650: 20 64 30 3d 20 49 46 0a 09 20 20 20 20 62 6f 75 d0= IF.. bou
2660: 6e 64 73 20 55 2b 44 4f 0a 09 09 64 76 63 73 20 nds U+DO...dvcs
2670: 49 20 40 20 2e 61 64 64 2d 6d 65 64 69 61 0a 09 I @ .add-media..
2680: 20 20 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 09 cell +LOOP..
2690: 45 4c 53 45 0a 09 20 20 20 20 32 64 72 6f 70 0a ELSE.. 2drop.
26a0: 09 20 20 20 20 6c 61 73 74 23 20 63 65 6c 6c 2b . last# cell+
26b0: 20 24 40 20 35 20 75 6d 69 6e 20 61 6c 62 75 6d $@ 5 umin album
26c0: 23 20 23 40 20 62 6f 75 6e 64 73 20 55 2b 44 4f # #@ bounds U+DO
26d0: 0a 09 09 49 20 24 40 20 64 76 63 73 20 2e 63 73 ...I $@ dvcs .cs
26e0: 76 2d 6d 65 64 69 61 0a 09 20 20 20 20 63 65 6c v-media.. cel
26f0: 6c 20 2b 4c 4f 4f 50 0a 09 54 48 45 4e 0a 20 20 l +LOOP..THEN.
2700: 20 20 54 48 45 4e 20 3b 0a 0a 3a 20 61 64 64 2d THEN ;..: add-
2710: 70 6f 6c 6c 2d 70 68 6f 74 6f 20 7b 20 64 76 63 poll-photo { dvc
2720: 73 20 2d 2d 20 7d 0a 20 20 20 20 63 68 6f 69 63 s -- }. choic
2730: 65 73 3a 69 6d 61 67 65 4c 6f 63 61 6c 46 69 6c es:imageLocalFil
2740: 65 50 61 74 68 24 20 32 64 75 70 20 62 61 73 65 ePath$ 2dup base
2750: 6e 61 6d 65 20 64 76 63 73 20 2e 6c 6f 63 61 6c name dvcs .local
2760: 2d 6d 65 64 69 61 20 3b 0a 0a 3a 20 61 64 64 2d -media ;..: add-
2770: 70 6f 6c 6c 2d 70 68 6f 74 6f 73 20 7b 20 64 76 poll-photos { dv
2780: 63 73 20 2d 2d 20 7d 0a 20 20 20 20 63 6f 6d 6d cs -- }. comm
2790: 65 6e 74 73 3a 70 6f 6c 6c 7b 7d 20 3f 64 75 70 ents:poll{} ?dup
27a0: 2d 49 46 0a 09 2e 70 6f 6c 6c 3a 63 68 6f 69 63 -IF...poll:choic
27b0: 65 73 5b 5d 20 24 40 20 62 6f 75 6e 64 73 20 55 es[] $@ bounds U
27c0: 2b 44 4f 0a 09 20 20 20 20 64 76 63 73 20 49 20 +DO.. dvcs I
27d0: 40 20 2e 61 64 64 2d 70 6f 6c 6c 2d 70 68 6f 74 @ .add-poll-phot
27e0: 6f 0a 09 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 20 20 o..cell +LOOP.
27f0: 20 20 54 48 45 4e 20 3b 0a 0a 61 6c 73 6f 20 6e THEN ;..also n
2800: 65 74 32 6f 2d 62 61 73 65 0a 0a 32 56 61 72 69 et2o-base..2Vari
2810: 61 62 6c 65 20 70 6f 73 74 2d 72 65 66 0a 0a 3a able post-ref..:
2820: 20 61 64 64 2d 6d 65 73 73 61 67 65 20 28 20 78 add-message ( x
2830: 74 20 2d 2d 20 29 0a 20 20 20 20 70 72 6f 6a 65 t -- ). proje
2840: 63 74 3a 70 72 6f 6a 65 63 74 24 20 24 40 20 3f ct:project$ $@ ?
2850: 6d 73 67 2d 6c 6f 67 0a 20 20 20 20 5b 3a 20 73 msg-log. [: s
2860: 69 67 6e 5b 20 6d 73 67 2d 73 74 61 72 74 20 65 ign[ msg-start e
2870: 78 65 63 75 74 65 20 70 6f 73 74 2d 72 65 66 20 xecute post-ref
2880: 32 40 20 63 68 61 69 6e 2c 20 5d 70 6b 73 69 67 2@ chain, ]pksig
2890: 6e 20 3b 5d 20 67 65 6e 2d 63 6d 64 24 0a 20 20 n ;] gen-cmd$.
28a0: 20 20 2b 6c 61 73 74 2d 73 69 67 6e 65 64 20 6c +last-signed l
28b0: 61 73 74 2d 73 69 67 6e 65 64 20 32 40 20 3e 6d ast-signed 2@ >m
28c0: 73 67 2d 6c 6f 67 20 32 64 72 6f 70 20 3b 0a 0a sg-log 2drop ;..
28d0: 3a 20 73 69 67 64 61 74 65 2b 20 28 20 2d 2d 20 : sigdate+ ( --
28e0: 29 0a 20 20 20 20 73 69 67 64 61 74 65 20 6c 65 ). sigdate le
28f0: 2d 36 34 40 20 36 34 23 31 20 36 34 2b 20 73 69 -64@ 64#1 64+ si
2900: 67 64 61 74 65 20 6c 65 2d 36 34 21 20 3b 0a 0a gdate le-64! ;..
2910: 3a 20 61 64 64 2d 70 6c 75 73 6f 6e 65 73 20 7b : add-plusones {
2920: 20 64 76 63 73 20 2d 2d 20 7d 0a 20 20 20 20 63 dvcs -- }. c
2930: 6f 6d 6d 65 6e 74 73 3a 70 6c 75 73 4f 6e 65 73 omments:plusOnes
2940: 5b 5d 20 24 40 20 62 6f 75 6e 64 73 20 55 2b 44 [] $@ bounds U+D
2950: 4f 0a 09 73 69 67 64 61 74 65 2b 0a 09 49 20 40 O..sigdate+..I @
2960: 20 2e 70 6c 75 73 4f 6e 65 73 3a 70 6c 75 73 4f .plusOnes:plusO
2970: 6e 65 72 7b 7d 20 2e 61 75 74 68 6f 72 3a 6d 61 ner{} .author:ma
2980: 70 70 65 64 2d 6b 65 79 20 64 76 63 73 20 3e 6f pped-key dvcs >o
2990: 20 74 6f 20 6d 79 2d 6b 65 79 0a 09 5b 3a 20 27 to my-key..[: '
29a0: f0 9f 91 8d 27 20 75 6c 69 74 2c 20 6d 73 67 2d 👍' ulit, msg-
29b0: 6c 69 6b 65 20 3b 5d 20 61 64 64 2d 6d 65 73 73 like ;] add-mess
29c0: 61 67 65 20 6f 3e 0a 20 20 20 20 63 65 6c 6c 20 age o>. cell
29d0: 2b 4c 4f 4f 50 20 3b 0a 0a 3a 20 61 64 64 2d 72 +LOOP ;..: add-r
29e0: 65 73 68 61 72 65 73 20 7b 20 64 76 63 73 20 2d eshares { dvcs -
29f0: 2d 20 7d 0a 20 20 20 20 63 6f 6d 6d 65 6e 74 73 - }. comments
2a00: 3a 72 65 73 68 61 72 65 73 5b 5d 20 24 40 20 62 :reshares[] $@ b
2a10: 6f 75 6e 64 73 20 55 2b 44 4f 0a 09 73 69 67 64 ounds U+DO..sigd
2a20: 61 74 65 2b 0a 09 49 20 40 20 2e 72 65 73 68 61 ate+..I @ .resha
2a30: 72 65 73 3a 72 65 73 68 61 72 65 72 7b 7d 20 2e res:resharer{} .
2a40: 61 75 74 68 6f 72 3a 6d 61 70 70 65 64 2d 6b 65 author:mapped-ke
2a50: 79 20 64 76 63 73 20 3e 6f 20 74 6f 20 6d 79 2d y dvcs >o to my-
2a60: 6b 65 79 0a 09 5b 3a 20 27 ef 87 a0 27 20 28 20 key..[: '' (
2a70: 27 f0 9f 94 83 27 20 6f 72 20 27 f0 9f 90 99 27 '🔃' or '🐙'
2a80: 20 29 20 75 6c 69 74 2c 20 6d 73 67 2d 6c 69 6b ) ulit, msg-lik
2a90: 65 20 3b 5d 20 61 64 64 2d 6d 65 73 73 61 67 65 e ;] add-message
2aa0: 20 6f 3e 0a 20 20 20 20 63 65 6c 6c 20 2b 4c 4f o>. cell +LO
2ab0: 4f 50 20 3b 0a 0a 3a 20 61 64 64 2d 76 6f 74 65 OP ;..: add-vote
2ac0: 73 20 7b 20 64 76 63 73 20 2d 2d 20 7d 0a 20 20 s { dvcs -- }.
2ad0: 20 20 63 6f 6d 6d 65 6e 74 73 3a 70 6f 6c 6c 7b comments:poll{
2ae0: 7d 20 3f 64 75 70 2d 49 46 0a 09 30 20 7b 20 6e } ?dup-IF..0 { n
2af0: 20 7d 0a 09 2e 70 6f 6c 6c 3a 63 68 6f 69 63 65 }...poll:choice
2b00: 73 5b 5d 20 24 40 20 62 6f 75 6e 64 73 20 55 2b s[] $@ bounds U+
2b10: 44 4f 0a 09 20 20 20 20 49 20 40 20 2e 63 68 6f DO.. I @ .cho
2b20: 69 63 65 73 3a 76 6f 74 65 73 5b 5d 20 24 40 20 ices:votes[] $@
2b30: 62 6f 75 6e 64 73 20 55 2b 44 4f 0a 09 09 73 69 bounds U+DO...si
2b40: 67 64 61 74 65 2b 0a 09 09 49 20 40 20 2e 76 6f gdate+...I @ .vo
2b50: 74 65 73 3a 76 6f 74 65 72 7b 7d 20 2e 61 75 74 tes:voter{} .aut
2b60: 68 6f 72 3a 6d 61 70 70 65 64 2d 6b 65 79 20 64 hor:mapped-key d
2b70: 76 63 73 20 3e 6f 20 74 6f 20 6d 79 2d 6b 65 79 vcs >o to my-key
2b80: 0a 09 09 6e 20 5b 7b 3a 20 6e 20 3a 7d 4c 20 6e ...n [{: n :}L n
2b90: 20 27 31 27 20 2b 20 75 6c 69 74 2c 20 6d 73 67 '1' + ulit, msg
2ba0: 2d 6c 69 6b 65 20 3b 5d 20 61 64 64 2d 6d 65 73 -like ;] add-mes
2bb0: 73 61 67 65 20 6f 3e 0a 09 20 20 20 20 63 65 6c sage o>.. cel
2bc0: 6c 20 2b 4c 4f 4f 50 0a 09 20 20 20 20 31 20 2b l +LOOP.. 1 +
2bd0: 74 6f 20 6e 0a 09 63 65 6c 6c 20 2b 4c 4f 4f 50 to n..cell +LOOP
2be0: 0a 20 20 20 20 54 48 45 4e 20 3b 0a 20 20 20 20 . THEN ;.
2bf0: 0a 70 72 65 76 69 6f 75 73 0a 0a 56 61 72 69 61 .previous..Varia
2c00: 62 6c 65 20 63 6f 6d 6d 65 6e 74 23 0a 0a 3a 20 ble comment#..:
2c10: 61 64 64 2d 63 6f 6d 6d 65 6e 74 20 28 20 64 76 add-comment ( dv
2c20: 63 73 20 2d 2d 20 29 0a 20 20 20 20 63 6f 6d 6d cs -- ). comm
2c30: 65 6e 74 2d 66 69 6c 65 20 61 64 64 2d 66 69 6c ent-file add-fil
2c40: 65 20 3b 0a 0a 3a 20 63 72 65 61 74 65 3e 6e 65 e ;..: create>ne
2c50: 76 65 72 20 28 20 6f 3a 63 6f 6d 6d 65 6e 74 73 ver ( o:comments
2c60: 20 2d 2d 20 29 0a 20 20 20 20 63 6f 6d 6d 65 6e -- ). commen
2c70: 74 73 3a 63 72 65 61 74 69 6f 6e 54 69 6d 65 21 ts:creationTime!
2c80: 20 28 20 63 6f 6d 6d 65 6e 74 73 3a 75 70 64 61 ( comments:upda
2c90: 74 65 54 69 6d 65 21 20 36 34 75 6d 61 78 20 29 teTime! 64umax )
2ca0: 0a 20 20 20 20 36 34 23 2d 31 20 73 69 67 64 61 . 64#-1 sigda
2cb0: 74 65 20 6c 65 2d 31 32 38 21 20 3b 0a 0a 3a 20 te le-128! ;..:
2cc0: 77 72 61 70 2d 6b 65 79 20 28 20 2e 2e 2e 20 78 wrap-key ( ... x
2cd0: 74 20 6b 65 79 20 2d 2d 20 29 0a 20 20 20 20 6d t key -- ). m
2ce0: 79 2d 6b 65 79 2d 64 65 66 61 75 6c 74 20 3e 72 y-key-default >r
2cf0: 20 74 6f 20 6d 79 2d 6b 65 79 2d 64 65 66 61 75 to my-key-defau
2d00: 6c 74 20 63 61 74 63 68 0a 20 20 20 20 72 3e 20 lt catch. r>
2d10: 74 6f 20 6d 79 2d 6b 65 79 2d 64 65 66 61 75 6c to my-key-defaul
2d20: 74 20 74 68 72 6f 77 20 3b 0a 0a 3a 20 61 64 64 t throw ;..: add
2d30: 2d 63 6f 6d 6d 65 6e 74 73 20 7b 20 64 76 63 73 -comments { dvcs
2d40: 2d 6f 20 2d 2d 20 7d 0a 20 20 20 20 63 6f 6d 6d -o -- }. comm
2d50: 65 6e 74 73 3a 63 6f 6d 6d 65 6e 74 73 5b 5d 20 ents:comments[]
2d60: 24 40 20 62 6f 75 6e 64 73 20 55 2b 44 4f 0a 09 $@ bounds U+DO..
2d70: 49 20 40 20 3e 6f 0a 09 64 76 63 73 2d 6f 20 61 I @ >o..dvcs-o a
2d80: 64 64 2d 63 6f 6d 6d 65 6e 74 0a 09 63 6f 6d 6d dd-comment..comm
2d90: 65 6e 74 73 3a 6d 65 64 69 61 7b 7d 20 3f 64 75 ents:media{} ?du
2da0: 70 2d 49 46 20 20 3e 6f 20 64 76 63 73 2d 6f 20 p-IF >o dvcs-o
2db0: 61 64 64 2d 6d 65 64 69 61 20 6f 3e 20 20 54 48 add-media o> TH
2dc0: 45 4e 0a 09 63 6f 6d 6d 65 6e 74 73 3a 61 75 74 EN..comments:aut
2dd0: 68 6f 72 7b 7d 20 2e 61 75 74 68 6f 72 3a 6d 61 hor{} .author:ma
2de0: 70 70 65 64 2d 6b 65 79 20 7b 20 6d 6b 65 79 20 pped-key { mkey
2df0: 7d 0a 09 63 72 65 61 74 65 3e 6e 65 76 65 72 0a }..create>never.
2e00: 09 5b 27 5d 20 2e 70 6c 61 69 6e 20 24 74 6d 70 .['] .plain $tmp
2e10: 20 24 38 30 20 75 6d 69 6e 20 2d 74 72 61 69 6c $80 umin -trail
2e20: 69 6e 67 2d 67 61 72 62 61 67 65 0a 09 64 76 63 ing-garbage..dvc
2e30: 73 2d 6f 20 3e 6f 20 70 66 69 6c 65 24 20 24 40 s-o >o pfile$ $@
2e40: 20 64 76 63 73 3a 66 69 6c 65 72 65 66 5b 5d 20 dvcs:fileref[]
2e50: 24 2b 5b 5d 21 0a 09 5b 27 5d 20 28 64 76 63 73 $+[]!..['] (dvcs
2e60: 2d 63 69 29 20 6d 6b 65 79 20 77 72 61 70 2d 6b -ci) mkey wrap-k
2e70: 65 79 20 6f 3e 0a 09 6c 61 73 74 2d 6d 73 67 20 ey o>..last-msg
2e80: 32 40 20 70 6f 73 74 2d 72 65 66 20 32 21 0a 09 2@ post-ref 2!..
2e90: 64 76 63 73 2d 6f 20 61 64 64 2d 70 6c 75 73 6f dvcs-o add-pluso
2ea0: 6e 65 73 20 5c 20 70 6c 75 73 6f 6e 65 73 20 6e nes \ plusones n
2eb0: 6f 74 20 65 78 70 6f 72 74 65 64 20 61 74 20 74 ot exported at t
2ec0: 68 65 20 6d 6f 6d 65 6e 74 0a 09 5c 20 64 76 63 he moment..\ dvc
2ed0: 73 2d 6f 20 61 64 64 2d 72 65 73 68 61 72 65 73 s-o add-reshares
2ee0: 20 5c 20 72 65 73 68 61 72 65 73 20 6f 66 20 63 \ reshares of c
2ef0: 6f 6d 6d 65 6e 74 73 20 6e 6f 74 20 70 6f 73 73 omments not poss
2f00: 69 62 6c 65 0a 09 6f 3e 0a 20 20 20 20 63 65 6c ible..o>. cel
2f10: 6c 20 2b 4c 4f 4f 50 20 3b 0a 0a 3a 20 63 6f 6d l +LOOP ;..: com
2f20: 6d 65 6e 74 73 2d 62 61 73 65 20 28 20 2d 2d 20 ments-base ( --
2f30: 61 64 64 72 20 75 20 29 0a 20 20 20 20 63 6f 6d addr u ). com
2f40: 6d 65 6e 74 73 3a 63 6f 6d 6d 65 6e 74 73 5b 5d ments:comments[]
2f50: 20 24 40 6c 65 6e 20 49 46 0a 09 63 6f 6d 6d 65 $@len IF..comme
2f60: 6e 74 73 3a 63 6f 6d 6d 65 6e 74 73 5b 5d 20 24 nts:comments[] $
2f70: 40 20 64 72 6f 70 20 40 20 2e 63 6f 6d 6d 65 6e @ drop @ .commen
2f80: 74 73 3a 75 72 6c 24 0a 20 20 20 20 45 4c 53 45 ts:url$. ELSE
2f90: 0a 09 63 6f 6d 6d 65 6e 74 73 3a 75 72 6c 24 0a ..comments:url$.
2fa0: 20 20 20 20 54 48 45 4e 20 20 62 61 73 65 6e 61 THEN basena
2fb0: 6d 65 20 3b 0a 0a 3a 20 3f 6d 61 6b 65 2d 67 72 me ;..: ?make-gr
2fc0: 6f 75 70 20 28 20 2d 2d 20 29 0a 20 20 20 20 6d oup ( -- ). m
2fd0: 73 67 2d 67 72 6f 75 70 24 20 24 40 20 67 72 6f sg-group$ $@ gro
2fe0: 75 70 23 20 23 40 20 64 30 3d 20 49 46 0a 09 6d up# #@ d0= IF..m
2ff0: 73 67 2d 67 72 6f 75 70 24 20 24 40 20 6d 61 6b sg-group$ $@ mak
3000: 65 2d 67 72 6f 75 70 0a 20 20 20 20 54 48 45 4e e-group. THEN
3010: 20 3b 0a 0a 3a 20 61 64 64 2d 63 6f 6c 6c 65 63 ;..: add-collec
3020: 74 69 6f 6e 20 7b 20 64 76 63 73 6f 20 7c 20 77 tion { dvcso | w
3030: 5e 20 67 72 6f 75 70 73 5b 5d 20 2d 2d 20 7d 0a ^ groups[] -- }.
3040: 20 20 20 20 63 6f 6d 6d 65 6e 74 73 3a 70 6f 73 comments:pos
3050: 74 41 63 6c 7b 7d 20 3f 64 75 70 2d 49 46 20 3e tAcl{} ?dup-IF >
3060: 6f 0a 09 70 6f 73 74 41 63 6c 3a 63 6f 6c 6c 65 o..postAcl:colle
3070: 63 74 69 6f 6e 41 63 6c 7b 7d 20 3f 64 75 70 2d ctionAcl{} ?dup-
3080: 49 46 0a 09 20 20 20 20 2e 63 6f 6c 6c 65 63 74 IF.. .collect
3090: 69 6f 6e 41 63 6c 3a 63 6f 6c 6c 65 63 74 69 6f ionAcl:collectio
30a0: 6e 7b 7d 20 3f 64 75 70 2d 49 46 0a 09 09 5b 3a n{} ?dup-IF...[:
30b0: 20 2e 22 20 67 2b 3a 63 6f 6c 6c 3a 22 20 2e 63 ." g+:coll:" .c
30c0: 6f 6c 6c 65 63 74 69 6f 6e 3a 64 69 73 70 6c 61 ollection:displa
30d0: 79 4e 61 6d 65 24 20 74 79 70 65 20 3b 5d 20 24 yName$ type ;] $
30e0: 74 6d 70 0a 09 09 67 72 6f 75 70 73 5b 5d 20 24 tmp...groups[] $
30f0: 2b 5b 5d 21 0a 09 20 20 20 20 54 48 45 4e 0a 09 +[]!.. THEN..
3100: 54 48 45 4e 0a 09 70 6f 73 74 41 63 6c 3a 63 6f THEN..postAcl:co
3110: 6d 6d 75 6e 69 74 79 41 63 6c 7b 7d 20 3f 64 75 mmunityAcl{} ?du
3120: 70 2d 49 46 0a 09 20 20 20 20 2e 63 6f 6d 6d 75 p-IF.. .commu
3130: 6e 69 74 79 41 63 6c 3a 63 6f 6d 6d 75 6e 69 74 nityAcl:communit
3140: 79 7b 7d 20 3f 64 75 70 2d 49 46 0a 09 09 5b 3a y{} ?dup-IF...[:
3150: 20 2e 22 20 67 2b 3a 63 6f 6d 6d 3a 22 20 2e 63 ." g+:comm:" .c
3160: 6f 6c 6c 65 63 74 69 6f 6e 3a 64 69 73 70 6c 61 ollection:displa
3170: 79 4e 61 6d 65 24 20 74 79 70 65 20 3b 5d 20 24 yName$ type ;] $
3180: 74 6d 70 0a 09 09 67 72 6f 75 70 73 5b 5d 20 24 tmp...groups[] $
3190: 2b 5b 5d 21 0a 09 20 20 20 20 54 48 45 4e 0a 09 +[]!.. THEN..
31a0: 54 48 45 4e 0a 09 70 6f 73 74 41 63 6c 3a 76 69 THEN..postAcl:vi
31b0: 73 69 62 6c 65 54 6f 53 74 61 6e 64 61 72 64 41 sibleToStandardA
31c0: 63 6c 7b 7d 20 3f 64 75 70 2d 49 46 0a 09 20 20 cl{} ?dup-IF..
31d0: 20 20 2e 76 69 73 69 62 6c 65 54 6f 53 74 61 6e .visibleToStan
31e0: 64 61 72 64 41 63 6c 3a 63 69 72 63 6c 65 73 5b dardAcl:circles[
31f0: 5d 20 24 40 20 62 6f 75 6e 64 73 20 55 2b 44 4f ] $@ bounds U+DO
3200: 0a 09 09 49 20 40 20 2e 63 69 72 63 6c 65 73 3a ...I @ .circles:
3210: 64 69 73 70 6c 61 79 4e 61 6d 65 24 20 64 75 70 displayName$ dup
3220: 20 49 46 0a 09 09 20 20 20 20 5b 3a 20 2e 22 20 IF... [: ."
3230: 67 2b 3a 63 69 72 63 6c 65 3a 22 20 20 74 79 70 g+:circle:" typ
3240: 65 20 3b 5d 20 24 74 6d 70 20 67 72 6f 75 70 73 e ;] $tmp groups
3250: 5b 5d 20 24 2b 5b 5d 21 0a 09 09 45 4c 53 45 20 [] $+[]!...ELSE
3260: 20 32 64 72 6f 70 20 20 54 48 45 4e 0a 09 20 20 2drop THEN..
3270: 20 20 63 65 6c 6c 20 2b 4c 4f 4f 50 0a 09 54 48 cell +LOOP..TH
3280: 45 4e 0a 09 67 72 6f 75 70 73 5b 5d 20 24 5b 5d EN..groups[] $[]
3290: 23 20 30 3d 20 49 46 0a 09 20 20 20 20 70 6f 73 # 0= IF.. pos
32a0: 74 41 63 6c 3a 69 73 50 75 62 6c 69 63 3f 0a 09 tAcl:isPublic?..
32b0: 20 20 20 20 49 46 20 20 22 67 2b 3a 3c 70 75 62 IF "g+:<pub
32c0: 6c 69 63 3e 22 20 20 45 4c 53 45 20 20 22 67 2b lic>" ELSE "g+
32d0: 3a 3c 70 72 69 76 61 74 65 3e 22 20 20 54 48 45 :<private>" THE
32e0: 4e 0a 09 20 20 20 20 67 72 6f 75 70 73 5b 5d 20 N.. groups[]
32f0: 24 2b 5b 5d 21 0a 09 54 48 45 4e 0a 09 6f 3e 0a $+[]!..THEN..o>.
3300: 20 20 20 20 54 48 45 4e 0a 20 20 20 20 63 6f 6d THEN. com
3310: 6d 65 6e 74 73 3a 70 6f 73 74 4b 69 6e 64 24 20 ments:postKind$
3320: 22 45 58 54 45 52 4e 41 4c 5f 53 49 54 45 5f 43 "EXTERNAL_SITE_C
3330: 4f 4d 4d 45 4e 54 22 20 73 74 72 3d 20 49 46 0a OMMENT" str= IF.
3340: 09 22 67 2b 3a 65 78 74 65 72 6e 61 6c 2d 73 69 ."g+:external-si
3350: 74 65 2d 63 6f 6d 6d 65 6e 74 22 20 67 72 6f 75 te-comment" grou
3360: 70 73 5b 5d 20 24 2b 5b 5d 21 0a 20 20 20 20 54 ps[] $+[]!. T
3370: 48 45 4e 0a 20 20 20 20 5b 27 5d 20 2e 70 6c 61 HEN. ['] .pla
3380: 69 6e 20 24 74 6d 70 20 24 38 30 20 75 6d 69 6e in $tmp $80 umin
3390: 20 2d 74 72 61 69 6c 69 6e 67 2d 67 61 72 62 61 -trailing-garba
33a0: 67 65 0a 20 20 20 20 64 75 70 20 30 3d 20 49 46 ge. dup 0= IF
33b0: 20 20 32 64 72 6f 70 20 22 3c 6e 6f 20 74 65 78 2drop "<no tex
33c0: 74 3e 22 20 20 54 48 45 4e 20 20 5b 27 5d 20 2e t>" THEN ['] .
33d0: 70 72 6f 6a 65 63 74 20 24 74 6d 70 0a 20 20 20 project $tmp.
33e0: 20 67 72 6f 75 70 73 5b 5d 20 5b 3a 20 6d 73 67 groups[] [: msg
33f0: 2d 67 72 6f 75 70 24 20 24 21 20 30 20 2e 3f 6d -group$ $! 0 .?m
3400: 61 6b 65 2d 67 72 6f 75 70 0a 09 5b 20 61 6c 73 ake-group..[ als
3410: 6f 20 6e 65 74 32 6f 2d 62 61 73 65 20 5d 0a 09 o net2o-base ]..
3420: 5b 3a 20 32 6f 76 65 72 20 24 2c 20 6d 73 67 2d [: 2over $, msg-
3430: 74 65 78 74 20 32 64 75 70 20 24 2c 20 6d 73 67 text 2dup $, msg
3440: 3a 70 6f 73 74 69 6e 67 23 20 75 6c 69 74 2c 20 :posting# ulit,
3450: 6d 73 67 2d 6f 62 6a 65 63 74 20 3b 5d 0a 09 5b msg-object ;]..[
3460: 20 70 72 65 76 69 6f 75 73 20 5d 0a 09 28 73 65 previous ]..(se
3470: 6e 64 2d 61 76 61 6c 61 6e 63 68 65 29 20 64 72 nd-avalanche) dr
3480: 6f 70 20 6d 73 67 2d 67 72 6f 75 70 24 20 24 2e op msg-group$ $.
3490: 20 73 70 61 63 65 0a 09 32 64 75 70 20 64 30 3d space..2dup d0=
34a0: 20 49 46 20 20 2e 22 20 3c 64 75 70 65 3e 22 20 IF ." <dupe>"
34b0: 32 64 72 6f 70 20 63 72 20 20 45 4c 53 45 20 20 2drop cr ELSE
34c0: 2e 63 68 61 74 20 20 54 48 45 4e 20 3b 5d 20 24 .chat THEN ;] $
34d0: 5b 5d 6d 61 70 0a 20 20 20 20 32 64 72 6f 70 20 []map. 2drop
34e0: 32 64 72 6f 70 20 20 67 72 6f 75 70 73 5b 5d 20 2drop groups[]
34f0: 24 5b 5d 66 72 65 65 20 3b 0a 0a 3a 20 77 72 69 $[]free ;..: wri
3500: 74 65 2d 6f 75 74 2d 61 72 74 69 63 6c 65 20 28 te-out-article (
3510: 20 6f 3a 63 6f 6d 6d 65 6e 74 20 2d 2d 20 29 0a o:comment -- ).
3520: 20 20 20 20 5c 20 3c 69 6e 66 6f 3e 20 2e 22 20 \ <info> ."
3530: 77 72 69 74 65 20 6f 75 74 3a 20 22 20 63 6f 6d write out: " com
3540: 6d 65 6e 74 73 3a 75 72 6c 24 20 74 79 70 65 20 ments:url$ type
3550: 63 72 20 3c 64 65 66 61 75 6c 74 3e 0a 20 20 20 cr <default>.
3560: 20 3e 64 69 72 20 72 65 64 61 74 65 2d 6d 6f 64 >dir redate-mod
3570: 65 20 6f 6e 20 20 63 6f 6d 6d 65 6e 74 23 20 6f e on comment# o
3580: 66 66 0a 20 20 20 20 64 76 63 73 3a 6e 65 77 2d ff. dvcs:new-
3590: 64 76 63 73 20 7b 20 64 76 63 73 2d 6f 20 7d 0a dvcs { dvcs-o }.
35a0: 20 20 20 20 63 6f 6d 6d 65 6e 74 73 2d 62 61 73 comments-bas
35b0: 65 0a 20 20 20 20 32 64 75 70 20 5b 3a 20 2e 22 e. 2dup [: ."
35c0: 20 70 6f 73 74 73 2f 22 20 74 79 70 65 20 2e 22 posts/" type ."
35d0: 20 2f 2e 6e 32 6f 22 20 3b 5d 20 24 74 6d 70 20 /.n2o" ;] $tmp
35e0: 7e 6e 65 74 32 6f 2d 63 61 63 68 65 2f 2e 2e 0a ~net2o-cache/...
35f0: 20 20 20 20 22 2e 6e 32 6f 2f 66 69 6c 65 73 22 ".n2o/files"
3600: 20 74 6f 75 63 68 0a 20 20 20 20 64 76 63 73 2d touch. dvcs-
3610: 6f 20 3e 6f 20 22 67 2b 3a 22 20 70 72 6f 6a 65 o >o "g+:" proje
3620: 63 74 3a 70 72 6f 6a 65 63 74 24 20 24 21 20 70 ct:project$ $! p
3630: 72 6f 6a 65 63 74 3a 70 72 6f 6a 65 63 74 24 20 roject:project$
3640: 24 2b 21 0a 20 20 20 20 22 6d 61 73 74 65 72 22 $+!. "master"
3650: 20 70 72 6f 6a 65 63 74 3a 62 72 61 6e 63 68 24 project:branch$
3660: 20 24 21 20 20 73 61 76 65 2d 70 72 6f 6a 65 63 $! save-projec
3670: 74 20 6f 3e 0a 20 20 20 20 64 76 63 73 2d 6f 20 t o>. dvcs-o
3680: 61 64 64 2d 70 6f 73 74 0a 20 20 20 20 64 76 63 add-post. dvc
3690: 73 2d 6f 20 61 64 64 2d 61 6c 62 75 6d 0a 20 20 s-o add-album.
36a0: 20 20 64 76 63 73 2d 6f 20 61 64 64 2d 70 6f 6c dvcs-o add-pol
36b0: 6c 2d 70 68 6f 74 6f 73 0a 20 20 20 20 63 6f 6d l-photos. com
36c0: 6d 65 6e 74 73 3a 6d 65 64 69 61 7b 7d 20 3f 64 ments:media{} ?d
36d0: 75 70 2d 49 46 20 20 3e 6f 20 64 76 63 73 2d 6f up-IF >o dvcs-o
36e0: 20 61 64 64 2d 6d 65 64 69 61 20 6f 3e 20 20 54 add-media o> T
36f0: 48 45 4e 0a 20 20 20 20 63 72 65 61 74 65 3e 6e HEN. create>n
3700: 65 76 65 72 0a 20 20 20 20 5b 27 5d 20 2e 70 6c ever. ['] .pl
3710: 61 69 6e 20 24 74 6d 70 20 24 31 30 30 20 75 6d ain $tmp $100 um
3720: 69 6e 20 2d 74 72 61 69 6c 69 6e 67 2d 67 61 72 in -trailing-gar
3730: 62 61 67 65 0a 20 20 20 20 64 75 70 20 30 3d 20 bage. dup 0=
3740: 49 46 20 20 32 64 72 6f 70 20 22 3c 6e 6f 20 74 IF 2drop "<no t
3750: 65 78 74 3e 22 20 20 54 48 45 4e 0a 20 20 20 20 ext>" THEN.
3760: 63 6f 6d 6d 65 6e 74 73 3a 61 75 74 68 6f 72 7b comments:author{
3770: 7d 20 2e 61 75 74 68 6f 72 3a 6d 61 70 70 65 64 } .author:mapped
3780: 2d 6b 65 79 20 7b 20 6d 6b 65 79 20 7d 0a 20 20 -key { mkey }.
3790: 20 20 64 76 63 73 2d 6f 20 3e 6f 20 70 66 69 6c dvcs-o >o pfil
37a0: 65 24 20 24 40 20 64 76 63 73 3a 66 69 6c 65 72 e$ $@ dvcs:filer
37b0: 65 66 5b 5d 20 24 2b 5b 5d 21 0a 20 20 20 20 5b ef[] $+[]!. [
37c0: 27 5d 20 28 64 76 63 73 2d 63 69 29 20 6d 6b 65 '] (dvcs-ci) mke
37d0: 79 20 77 72 61 70 2d 6b 65 79 20 6f 3e 0a 20 20 y wrap-key o>.
37e0: 20 20 6c 61 73 74 2d 6d 73 67 20 32 40 20 70 6f last-msg 2@ po
37f0: 73 74 2d 72 65 66 20 32 21 0a 20 20 20 20 64 76 st-ref 2!. dv
3800: 63 73 2d 6f 20 61 64 64 2d 70 6c 75 73 6f 6e 65 cs-o add-plusone
3810: 73 0a 20 20 20 20 64 76 63 73 2d 6f 20 61 64 64 s. dvcs-o add
3820: 2d 72 65 73 68 61 72 65 73 0a 20 20 20 20 64 76 -reshares. dv
3830: 63 73 2d 6f 20 61 64 64 2d 76 6f 74 65 73 0a 20 cs-o add-votes.
3840: 20 20 20 64 76 63 73 2d 6f 20 61 64 64 2d 63 6f dvcs-o add-co
3850: 6d 6d 65 6e 74 73 0a 20 20 20 20 64 76 63 73 2d mments. dvcs-
3860: 6f 20 2e 64 76 63 73 3a 64 69 73 70 6f 73 65 2d o .dvcs:dispose-
3870: 64 76 63 73 0a 20 20 20 20 63 72 65 61 74 65 3e dvcs. create>
3880: 6e 65 76 65 72 0a 20 20 20 20 64 76 63 73 2d 6f never. dvcs-o
3890: 20 5b 27 5d 20 61 64 64 2d 63 6f 6c 6c 65 63 74 ['] add-collect
38a0: 69 6f 6e 20 6d 6b 65 79 20 77 72 61 70 2d 6b 65 ion mkey wrap-ke
38b0: 79 0a 20 20 20 20 64 69 72 3e 20 72 65 64 61 74 y. dir> redat
38c0: 65 2d 6d 6f 64 65 20 6f 66 66 0a 20 20 20 20 64 e-mode off. d
38d0: 76 63 73 2d 6f 62 6a 65 63 74 73 20 23 66 72 65 vcs-objects #fre
38e0: 65 73 20 3b 0a 0a 3a 20 77 72 69 74 65 2d 61 72 es ;..: write-ar
38f0: 74 69 63 6c 65 73 20 28 20 2d 2d 20 29 20 7b 20 ticles ( -- ) {
3900: 7c 20 6e 6e 20 7d 0a 20 20 20 20 22 69 6d 67 2d | nn }. "img-
3910: 72 65 71 2e 6c 73 74 22 20 77 2f 6f 20 63 72 65 req.lst" w/o cre
3920: 61 74 65 2d 66 69 6c 65 20 74 68 72 6f 77 20 74 ate-file throw t
3930: 6f 20 69 6d 67 2d 72 65 71 2d 66 69 64 0a 20 20 o img-req-fid.
3940: 20 20 65 6e 74 72 69 65 73 5b 5d 20 24 40 20 62 entries[] $@ b
3950: 6f 75 6e 64 73 20 3f 44 4f 0a 09 6e 6e 20 5b 3a ounds ?DO..nn [:
3960: 20 2e 22 20 77 72 69 74 65 20 22 20 36 20 2e 72 ." write " 6 .r
3970: 20 2e 22 20 20 70 6f 73 74 69 6e 67 73 22 20 3b ." postings" ;
3980: 5d 0a 09 77 61 72 6e 69 6e 67 2d 63 6f 6c 6f 72 ]..warning-color
3990: 20 63 6f 6c 6f 72 2d 65 78 65 63 75 74 65 0a 09 color-execute..
39a0: 23 2d 32 31 20 30 20 61 74 2d 64 65 6c 74 61 78 #-21 0 at-deltax
39b0: 79 0a 09 49 20 40 20 2e 77 72 69 74 65 2d 6f 75 y..I @ .write-ou
39c0: 74 2d 61 72 74 69 63 6c 65 0a 09 31 20 2b 74 6f t-article..1 +to
39d0: 20 6e 6e 0a 20 20 20 20 63 65 6c 6c 20 2b 4c 4f nn. cell +LO
39e0: 4f 50 0a 20 20 20 20 69 6d 67 2d 72 65 71 2d 66 OP. img-req-f
39f0: 69 64 20 63 6c 6f 73 65 2d 66 69 6c 65 20 74 68 id close-file th
3a00: 72 6f 77 20 20 30 20 74 6f 20 69 6d 67 2d 72 65 row 0 to img-re
3a10: 71 2d 66 69 64 0a 20 20 20 20 6e 6e 20 5b 3a 20 q-fid. nn [:
3a20: 2e 22 20 77 72 69 74 65 20 22 20 20 36 20 2e 72 ." write " 6 .r
3a30: 20 2e 22 20 20 70 6f 73 74 69 6e 67 73 20 69 6e ." postings in
3a40: 20 22 20 2e 74 69 6d 65 20 3b 5d 0a 20 20 20 20 " .time ;].
3a50: 73 75 63 63 65 73 73 2d 63 6f 6c 6f 72 20 63 6f success-color co
3a60: 6c 6f 72 2d 65 78 65 63 75 74 65 20 63 72 20 3b lor-execute cr ;
3a70: 0a 0a 5b 49 46 55 4e 44 45 46 5d 20 6a 73 6f 6e ..[IFUNDEF] json
3a80: 2d 6c 6f 61 64 2d 64 69 72 0a 20 20 20 20 66 6f -load-dir. fo
3a90: 72 77 61 72 64 20 6a 73 6f 6e 2d 6c 6f 61 64 2d rward json-load-
3aa0: 64 69 72 0a 5b 54 48 45 4e 5d 0a 0a 3a 20 67 2b dir.[THEN]..: g+
3ab0: 2d 69 6d 70 6f 72 74 20 7b 20 64 3a 20 64 69 72 -import { d: dir
3ac0: 20 2d 2d 20 7d 0a 20 20 20 20 3f 67 65 74 2d 6d -- }. ?get-m
3ad0: 65 20 3e 64 69 72 20 2b 70 68 6f 74 6f 2d 70 61 e >dir +photo-pa
3ae0: 74 68 73 20 64 69 72 3e 0a 20 20 20 20 2e 22 20 ths dir>. ."
3af0: 52 65 61 64 20 70 69 63 73 20 6d 65 74 61 64 61 Read pics metada
3b00: 74 61 22 20 63 72 20 20 20 64 69 72 20 67 65 74 ta" cr dir get
3b10: 2d 70 69 63 2d 66 69 6c 65 6e 61 6d 65 73 20 5c -pic-filenames \
3b20: 20 6c 65 67 61 63 79 20 66 6f 72 20 6f 6c 64 20 legacy for old
3b30: 74 61 6b 65 6f 75 74 0a 20 20 20 20 2e 22 20 52 takeout. ." R
3b40: 65 61 64 20 4a 53 4f 4e 20 66 69 6c 65 73 22 20 ead JSON files"
3b50: 63 72 20 20 20 20 20 20 64 69 72 20 6a 73 6f 6e cr dir json
3b60: 2d 6c 6f 61 64 2d 64 69 72 0a 20 20 20 20 2e 22 -load-dir. ."
3b70: 20 57 72 69 74 65 20 65 6e 74 72 69 65 73 22 20 Write entries"
3b80: 63 72 20 20 20 20 20 20 20 20 77 72 69 74 65 2d cr write-
3b90: 61 72 74 69 63 6c 65 73 0a 20 20 20 20 2e 22 20 articles. ."
3ba0: 47 65 74 20 61 76 61 74 61 72 73 22 20 63 72 20 Get avatars" cr
3bb0: 20 20 20 20 20 20 20 20 20 67 65 74 2d 61 76 61 get-ava
3bc0: 74 61 72 73 20 68 61 73 68 2d 69 6e 2d 61 76 61 tars hash-in-ava
3bd0: 74 61 72 73 0a 20 20 20 20 21 73 61 76 65 2d 61 tars. !save-a
3be0: 6c 6c 2d 6d 73 67 73 20 73 61 76 65 2d 6b 65 79 ll-msgs save-key
3bf0: 73 0a 20 20 20 20 73 61 76 65 2d 63 68 61 74 67 s. save-chatg
3c00: 72 6f 75 70 73 20 2e 63 68 61 74 67 72 6f 75 70 roups .chatgroup
3c10: 73 20 3b 0a s ;.