← Back to branch summary

~ubuntu-branches/debian/sid/picolisp/sid

« back to all changes in this revision

Viewing changes to lib/db32-64.l

  • Committer: Package Import Robot
  • Author(s): Kan-Ru Chen
  • Date: 2011-11-13 17:15:44 UTC
  • mfrom: (1.1.14)
  • Revision ID: package-import@ubuntu.com-20111113171544-04gkr7r0lzmngt0u
Tags: 3.0.8.7-1
New upstream release.

Show diffs side-by-side

added added

removed removed

Lines of Context:
lib/db32-64.l
1
 
# 21jul11abu
 
1
# 10nov11abu
2
2
# (c) Software Lab. Alexander Burger
3
3
 
4
 
## 1. On the 32-bit system, in single-user mode:
5
 
##    : (load "lib/db32-64.l")
6
 
##    : (export64 *Pool *Dbs *Blob)
 
4
## 1. On the 32-bit system:
 
5
##    $ pil app/main.l @lib/db32-64.l
 
6
##    : (export64 "db/app/" *Dbs *Blob)
 
7
##    : (bye)
7
8
##
8
9
## 2. Transfer the resulting file "~/.pil/db64.tgz" to the 64-bit system,
9
10
##    and unpack it in the application's runtime directory
10
11
##
11
 
## 3. On the 64-bit system, in single-user mode:
12
 
##    : (load "lib/db32-64.l")
 
12
## 3. On the 64-bit system:
 
13
##    $ pil app/main.l @lib/too.l @lib/db32-64.l
 
14
##    : (pool "db/app/" *Dbs)
13
15
##    : (import32)
 
16
##    : (bye)
14
17
 
15
 
# 64-bit DB export: (export64 "db/app/" *Dbs *Blob) -> "db64.tgz"
 
18
# 64-bit DB export -> "~/.pil/db64.tgz"
16
19
(de export64 (Pool Dbs Blob)
17
20
   (if Blob
18
21
      (call 'tar "cfz" (tmp "db32.tgz") Pool Blob)