Replace 0 [IF] for emacs editings with \\\

parent 2c055f5c
......@@ -228,7 +228,7 @@ previous
r@ cell+ $@len 0= IF s" ." r@ cell+ $! THEN \ set route to known
r> $@ .sockaddr ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -23,7 +23,7 @@ also android also jni
is android-network
previous previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -34,7 +34,7 @@ also opengl also android
previous previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -7,3 +7,4 @@ sed -e "s/AC_INIT(\([^ ,]*, *\[\)[0-9._\-]*/AC_INIT(\1$V/g" configure.ac >config
make doc
dvcs ci -m "Bump version number"
dvcs tag add $V
git-push
......@@ -520,7 +520,7 @@ cmd-class class{ groups
64value: perms#
}class
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -825,7 +825,7 @@ also net2o-base
previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -281,7 +281,7 @@ Sema id-sema
setup-table $save
connect-table $save
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -605,7 +605,7 @@ in net2o : connect ( ucode udata -- ) reqsize! gen-request ;
previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -621,7 +621,7 @@ drop
: gen-host-del ( addr u -- addr' u' )
gen>host "host" >delete +sig$ ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -92,23 +92,6 @@ debug: syncfile( \ synchronous file operations
+db ipv4( \ ipv4 should be on by default )
+db syncfile( \ disable async file operations for now )
0 [IF]
false warnings !@
: c-section ( xt addr -- )
\G implement a critical section that will unlock the semaphore
\G even in case there's an exception within.
{ sema }
sema lock
sema( ." sema: " sema dup hex. body> >name .name ." lock" cr )
catch
sema( ." sema: " sema dup hex. body> >name .name ." unlock" cr )
sema unlock
throw ;
warnings !
[THEN]
\ key debugging task
: toggle ( addr -- ) dup @ 0= swap ! ;
......@@ -225,7 +208,7 @@ false [IF]
\ more phony throw stuff, only for debugging engine
debugging-method [defined] record-locs and [IF] record-locs [THEN]
debugging-method drop 0 [IF]
debugging-method drop false [IF]
:noname ." Store backtrace..." cr defers store-backtrace
dobacktrace ; is store-backtrace
......@@ -235,7 +218,7 @@ debugging-method drop 0 [IF]
\ Emacs fontlock mode: Highlight more stuff
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -442,7 +442,7 @@ in net2o : send-revoke ( addr u -- )
end-code| msg( ." disconnected" forth:cr )
net2o:dispose-context msg( ." Disposed context" forth:cr ) o> ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -389,8 +389,10 @@ $10 stack: vp-tops
{{
l" Right to data portability" /title
l" Art. 20 GDPR" /subtitle
\skip \footnote
l" 1. The data subject shall have the right to receive the personal data concerning him or her, which he or she has provided to a controller, in a structured, commonly used and machine-readable format and have the right to transmit those data to another controller without hindrance from the controller to which the personal data have been provided, where:" p\\ \skip
\skip \footnote nt
{{ {{ l" 1. " }}text' }}h dup value num-tab bx-tab l" The data subject shall have the right to receive the personal data concerning him or her, which he or she has provided to a controller, in a structured, commonly used and machine-readable format and have the right to transmit those data to another controller without hindrance from the controller to which the personal data have been provided, where:" }}text' glue*l }}glue }}p box[] >bl
dpy-w @ s>f font-size# 140% f* f- 1e text-shrink% f2/ f- f/ ' bx-tab over .par-split-hang
unbox \skip
l"  (a) the processing is based on consent pursuant to point (a) of Article 6(1) or point (a) of Article 9(2) or on a contract pursuant to point (b) of Article 6(1); and" p\\
l"  (b) the processing is carried out by automated means." p\\ \skip
l" 2. In exercising his or her right to data portability pursuant to paragraph 1, the data subject shall have the right to have the personal data transmitted directly from one controller to another, where technically feasible." p\\ \skip
......@@ -873,7 +875,7 @@ script? [IF]
presentation
[THEN]
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -651,7 +651,7 @@ script? [IF]
presentation
[THEN]
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -972,7 +972,7 @@ previous
>group last# silent-leave-chat
dvcs:dispose-dvcs o> ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -491,7 +491,7 @@ DOES> + w@ ;
: ?rw-perm ( n perm -- )
>r >file-perm r> invert and dup ?rd-perm ?wr-perm ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -897,7 +897,7 @@ s" LANG" getenv '_' $split 2swap ??lang '.' $split ??lang ??lang
[IFDEF] load-cov load-cov [THEN]
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -118,7 +118,7 @@ warnings !
\ test: move dictionary to hash
0 [IF]
\\\
variable ht
: test ( -- )
context @ cell+ BEGIN @ dup WHILE
......@@ -132,4 +132,3 @@ variable ht
context @ cell+ BEGIN @ dup WHILE
dup name>string 2dup ht #key dup hex. cr ht #.key $@ str= 0= IF ." unequal" cr THEN
REPEAT drop ;
[THEN]
......@@ -377,7 +377,7 @@ User pings[]
' dbg-connect IS do-connect
' dbg-disconnect IS do-disconnect
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -244,7 +244,7 @@ synonym /tbody /table
LOOP ;
[THEN]
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -336,7 +336,7 @@ Variable net2o-host "net2o.de" net2o-host $!
[THEN]
!my-addr ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -121,7 +121,7 @@ object class{ posts
['] diaspora:takeout >body to schema-wid
['] noop is process-element ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -93,7 +93,7 @@ object class{ video_metadata
fb:timeline-class to outer-class
['] fb:timeline >body to schema-wid ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -224,7 +224,7 @@ g+-scan
previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -40,7 +40,7 @@ object class{ objects
test-scan "test.json" json-load value test-result
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -189,7 +189,7 @@ object class{ options
[: (name) 2drop (name) 2drop s" tweet" key$ $!
['] noop is before-line ;] is before-line ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -1387,7 +1387,7 @@ scope: n2o
throw 0
endcase ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -141,7 +141,7 @@ event: :>netlink ( -- )
:noname defers init-rest create-netlink-task ; is init-rest
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -28,7 +28,7 @@ require minos2/soil-texture.fs
dpy 0= IF window-init THEN
new-scantexes ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -52,7 +52,7 @@ log-table >table
}scope
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -1649,7 +1649,7 @@ scope{ /chat
$, nestsig end-with
end-code ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -1976,7 +1976,7 @@ context-table $save
.unresolved
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -95,7 +95,7 @@ Sema notify-sema
previous previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -163,7 +163,7 @@ $FFFFFFFF ,
sig-params ed-sign
date>qr-key qr:keysig# .qr-rest ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -470,7 +470,7 @@ previous
?nextarg IF s" -many" str= 0= ELSE true THEN to scan-once?
scan-qr ; is run-scan-qr
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -256,7 +256,7 @@ Variable net2o-ipv4 "ipv4.net2o.de" net2o-ipv4 $!
: out-route ( -- ) 0 outbuf packet-route drop ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -252,7 +252,7 @@ $10 cell+ buffer: new-asset
SwapDragonKeys'# #frees ;
}scope
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -15,7 +15,7 @@
\ You should have received a copy of the GNU Affero General Public License
\ along with this program. If not, see <http://www.gnu.org/licenses/>.
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -191,7 +191,7 @@ vault>file
enc-fd @ ?dup-IF forth:close-file throw THEN ;
previous
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -63,7 +63,7 @@ object class{ atom-tags
}class
}class
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
......@@ -157,7 +157,7 @@ false value in-tag?
atom-tags-class new >o ['] xml-file catch
o o> nr> set-order swap throw ;
0 [IF]
\\\
Local Variables:
forth-local-words:
(
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment