blob: 131b37f6b0da0542fabbd538facaf03246e72794 (
plain)
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
|
$! CLP.COM: Commandfile for quick CLiP run on files specified by !$
$! up to eight parameters. Generates all modules. !$
$! PAR1 - PAR8: Sourcefiles to be scanned by CLiP. !$
$! Note 1: !$
$! The global logicals CLiP$SRC_DIR and CLiP$MOD_DIR are used !$
$! to determine the source and target directories, respectively. !$
$! Use the CLIP_ENV command procedure to set these logicals. !$
$! NOTE 2:
$! This command-procedure is tailored to Pascal-use of CLiP. !$
$! The "Left/right comment string" have to be edited to accomodate !$
$! other languages. !$
$!
$ OPEN/WRITE CLIP_INI CLIP.INI
$ WRITE CLIP_INI "This file contains data that is needed to run CLiP_2"
$ WRITE CLIP_INI "And is generated by CLiP_1"
$ WRITE CLIP_INI "Modifying this file at own risk."
$ WRITE CLIP_INI "Using CLiP_1 is definitely recommended."
$ WRITE CLIP_INI ""
$ WRITE CLIP_INI "INTERACTIVE_MODE Mode (INTERACTIVE/DEBUG/HELPFUL/AUTO)"
$ WRITE CLIP_INI "NO Interactive fault correction (YES/NO)"
$ WRITE CLIP_INI "FILE Error message destination (TERMINAL/FILE/BOTH/NONE)"
$ WRITE CLIP_INI "(* Left comment string"
$ WRITE CLIP_INI "*) Right comment string"
$ WRITE CLIP_INI "* Command character"
$ WRITE CLIP_INI "ENDOF END string"
$ WRITE CLIP_INI "# Option marker"
$ WRITE CLIP_INI "OMITTED The specified modules are (OMITTED/EXTRACTED)"
$ WRITE CLIP_INI "------------ REPORT FILE -----------"
$ WRITE CLIP_INI "CLIP.RPT"
$ WRITE CLIP_INI "------------ INPUT FILES -----------"
$ CLIP_SRC_DIR = F$TRNLNM("CLIP$SRC_DIR")
$ IF P1 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P1
$ IF P2 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P2
$ IF P3 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P3
$ IF P4 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P4
$ IF P5 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P5
$ IF P6 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P6
$ IF P7 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P7
$ IF P8 .NES. "" THEN WRITE CLIP_INI CLIP_SRC_DIR+P8
$ WRITE CLIP_INI "------------ MODULES ---------------"
$ WRITE CLIP_INI "------------ MODULE DIRECTORY ------"
$ CLIP_MOD_DIR = F$TRNLNM("CLIP$MOD_DIR")
$ WRITE CLIP_INI CLIP_MOD_DIR
$ WRITE CLIP_INI "------------ END OF INI FILE -------"
$ CLOSE CLIP_INI
$ CL
$! DELETE CLIP.INI.
$ EXIT
|