fsl wrapper

Check-in [33f9807c72]
Login

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

Overview
Comment:Added new files for utils
Timelines: family | ancestors | descendants | both | trunk
Files: files | file ages | folders
SHA1:33f9807c7252d520f801f7bd6dccc40cdad3f6ca
User & Date: matt 2013-03-29 06:32:59
Context
2013-03-30
23:41
Setting up for new fslutil Leaf check-in: d7717768f9 user: mrwellan tags: trunk
2013-03-29
06:32
Added new files for utils check-in: 33f9807c72 user: matt tags: trunk
2012-05-08
20:42
Updated the reference html log check-in: 29b2f5e1f0 user: mrwellan tags: trunk
Changes
Hide Diffs Unified Diffs Ignore Whitespace Patch

Changes to scripts/fsl.

419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
...
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
}

# check for forks
function fsl_fork_find {
    forks=`echo "SELECT tagxref.value FROM leaf, tagxref WHERE leaf.rid=tagxref.rid and tagxref.value != '' and srcid != 0 group by tagxref.value having count(tagxref.value) > 1;"|$FOSSILEXE sql`
    if [ "x$forks" != "x" ]; then
        echo
        echo "WARNING!!! Fork(s) detected on $forks, use \"fsl leaves\" and \"fsl merge\" to find and correct."
        echo
    fi
}

#======================================================================
# T H E   M A I N   H A N D L E R   A N D   P R O C E S S I N G 
#======================================================================
................................................................................
       esac
    else
       $FOSSILEXE help | sed -e 's/sync/sync        repo/'
    fi
    exit
    ;;

    xup*)
    fsl_fork_find
    $FOSSILEXE "$@"
    exit
    ;;

esac	

exec $FOSSILEXE "$@"







|







 







|








419
420
421
422
423
424
425
426
427
428
429
430
431
432
433
...
585
586
587
588
589
590
591
592
593
594
595
596
597
598
599
600
}

# check for forks
function fsl_fork_find {
    forks=`echo "SELECT tagxref.value FROM leaf, tagxref WHERE leaf.rid=tagxref.rid and tagxref.value != '' and srcid != 0 group by tagxref.value having count(tagxref.value) > 1;"|$FOSSILEXE sql`
    if [ "x$forks" != "x" ]; then
        echo
        echo "WARNING!!! Fork detected on $forks, use \"fsl leaves\" and \"fsl merge\" to find and correct."
        echo
    fi
}

#======================================================================
# T H E   M A I N   H A N D L E R   A N D   P R O C E S S I N G 
#======================================================================
................................................................................
       esac
    else
       $FOSSILEXE help | sed -e 's/sync/sync        repo/'
    fi
    exit
    ;;

    xup* | xco)
    fsl_fork_find
    $FOSSILEXE "$@"
    exit
    ;;

esac	

exec $FOSSILEXE "$@"

Added src/fslutil.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
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
(use sqlite3 srfi-1 posix regex regex-case srfi-69 format) ;; canvas-draw)
(require-library margs mutils)

(import (prefix sqlite3 sqlite3:))
;; (import (prefix iup iup:))

(declare (unit fslmgr))
(declare (uses db))
(declare (uses fossil))

(define *fslutil-version* 0.02)
(define help (conc
"Fossil utilitys, fslutil; documentation at http://www.kiatoa.com/fossils/opensrc
  version " *fslutil-version* "
  license GPLv2, Copyright Matt Welland 2013

Usage: fslutil [cmd] <args>

User commands
  fslhelp              : this help
                 : submit a change for inclusion in the official repo
  repo get reponame    : clone and open from the official repos
  repo list [patt]     : list the official repos, wildcard is %
  dashboard            : launch the dashboard to view submissions

Or any valid fossil subcommand:

  fsl status

For Admin commands: fsl repo [cmd]

"))

(define repo-help (conc
"Fossil wrapper, fsl: repo commands
  get reponame          : clone and open reponame from the offical repos
  list [patt]           : list repos matching patt, wild is %
  create reponame [grp] : create a repo named reponame accessible to grp
  createdb              : create the administration db
  monitor               : start the monitor for handling submits
  import reponame file [grp] : import reponame from file
  remove reponame       : remove reponame completely, no undo!!!!

"))

(if (< (length (argv)) 2)
    (begin
      (print help)
      (exit)))

(define primary-command   (cadr (argv)))
(define full-command      (cdr  (argv)))
(define remaining-command (cddr (argv)))

Name change from src/Makefile to src/old/Makefile.

Name change from src/db.scm to src/old/db.scm.

Name change from src/envgui.scm to src/old/envgui.scm.

Name change from src/envsetup.scm to src/old/envsetup.scm.

Name change from src/fossil.scm to src/old/fossil.scm.

Name change from src/fslmgr.scm to src/old/fslmgr.scm.

Name change from src/gowork.scm to src/old/gowork.scm.

Name change from src/makefile.mk.template to src/old/makefile.mk.template.

Name change from src/setup.scm.template to src/old/setup.scm.template.