Check-in [87d74c78da]
Not logged in

Many hyperlinks are disabled.
Use anonymous login to enable hyperlinks.

Overview
Comment:Fix way overcomplicated write-groups
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1: 87d74c78dab196efbfe207ee35adbdb96ebee184
User & Date: bernd 2020-02-25 23:49:34
Context
2020-02-26
22:30
Add ?fetch-pks to GUI stuff check-in: 347dd4d1f3 user: bernd tags: trunk
2020-02-25
23:49
Fix way overcomplicated write-groups check-in: 87d74c78da user: bernd tags: trunk
23:23
Snap-based config init check-in: 2ade3d4f87 user: bernd tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to keys.fs.

300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316

: .in-groups ( addr u -- )
    bounds ?DO
	I p@+ I - >r 64>n groups[] $[]@ 2 cells /string space type
    r> +LOOP ;

: write-groups ( -- )
    [: ." groups+" getpid 0 .r ;] $tmp .net2o/ 2dup w/o create-file throw >r
    ['] .groups r@ outfile-execute
    r> close-file throw '+' -scan 1- >backup ;

: group-line ( -- )
    parse-name parse-name >perm >groups ;

: read-groups-loop ( -- )
    BEGIN  refill  WHILE  group-line  REPEAT ;








|
<
<







300
301
302
303
304
305
306
307


308
309
310
311
312
313
314

: .in-groups ( addr u -- )
    bounds ?DO
	I p@+ I - >r 64>n groups[] $[]@ 2 cells /string space type
    r> +LOOP ;

: write-groups ( -- )
    "groups" .net2o/ [: ['] .groups swap outfile-execute ;] new-file ;



: group-line ( -- )
    parse-name parse-name >perm >groups ;

: read-groups-loop ( -- )
    BEGIN  refill  WHILE  group-line  REPEAT ;