Random Bits of Open Code

Check-in [dbd18f41a2]
Login

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

Overview
Comment:Added sync file and preped to use it.
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:dbd18f41a24c32dd469f9fb0f26d572da6808bac
User & Date: matt 2018-08-08 05:47:41
Context
2018-08-09
04:37
First pass on sync check-in: 11a07463f1 user: matt tags: trunk
2018-08-08
05:47
Added sync file and preped to use it. check-in: dbd18f41a2 user: matt tags: trunk
02:27
Cleaned up time slots view/edit check-in: 55d3f9bc92 user: matt tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

a3d/testbox/a3d.scm became a regular file.

megatest_cgisetup/cgi-bin/models became a regular file.

megatest_cgisetup/cgi-bin/pages became a regular file.

Changes to multiapp/Makefile.

2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# Need to run as follows:
#
# CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" make deploy

SHELL = /bin/bash
CSCOPTS=

SRCFILES      = src/gui.scm
OFILES        = $(SRCFILES:%.scm=%.o)

APPFILES      = apps/learn-teach/learn-teach.scm apps/learn-teach/help.scm apps/learn-teach/learn-teach-config.scm
APPOFILES     = $(APPFILES:%.scm=%.o)

all : multiapp








|







2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
# Need to run as follows:
#
# CSC_OPTIONS="-I$PREFIX/include -L$PREFIX/lib" make deploy

SHELL = /bin/bash
CSCOPTS=

SRCFILES      = src/gui.scm src/sync.scm
OFILES        = $(SRCFILES:%.scm=%.o)

APPFILES      = apps/learn-teach/learn-teach.scm apps/learn-teach/help.scm apps/learn-teach/learn-teach-config.scm
APPOFILES     = $(APPFILES:%.scm=%.o)

all : multiapp

Changes to multiapp/src/multiapp.scm.

14
15
16
17
18
19
20

21
22
23

24
25
26
27
28
29
30

(import canvas-draw-iup)

(require-library margs)

(declare (uses gui))
(declare (uses learn-teach))

(import (prefix gui gui:)
	(prefix mtdb mtdb:)
	(prefix learn-teach learn-teach:))


(define help "Usage: multiapp [[command] args ...]
  Where the optional command is:
    help          : this help
    repl          : start up a repl
    multiapp     : start the gui (default)
")







>


|
>







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32

(import canvas-draw-iup)

(require-library margs)

(declare (uses gui))
(declare (uses learn-teach))
(declare (uses sync))
(import (prefix gui gui:)
	(prefix mtdb mtdb:)
	(prefix learn-teach learn-teach:)
	(prefix sync sync:))

(define help "Usage: multiapp [[command] args ...]
  Where the optional command is:
    help          : this help
    repl          : start up a repl
    multiapp     : start the gui (default)
")

Added multiapp/src/sync.scm.





































































>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
;;======================================================================
;; Copyright 2006-2016, Matthew Welland.
;; 
;;  This program is made available under the GNU GPL version 2.0 or
;;  greater. See the accompanying file COPYING for details.
;; 
;;  This program is distributed WITHOUT ANY WARRANTY; without even the
;;  implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
;;  PURPOSE.
;;======================================================================

(declare (unit sync))


(module sync
	*
(import scheme chicken data-structures)

;; for all pkts local but NOT del pkts
;;    if mine
;;       if not exists remote
;;           copy it to remote
;;    else
;;       if not exists remote
;;           remote from local
;; for all pkts remote
;;    if mine
;;       if not exists local
;;           remote from remote
;;       else
;;           if not exists local
;;             copy to local

)