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
|
$ __save_ver = 'f$verify(0)
$! GENDEFTWMRC.COM -- Generates a new DEFTWMRC.C from SYSTEM.CTWMRC
$!
$ SET SYMBOL/SCOPE=NOGLOBAL
$! DELETE DEFTWMRC.C;*
$ OPEN/WRITE DEFTWMRC DEFTWMRC.C
$ WRITE DEFTWMRC "/* "
$ WRITE DEFTWMRC -
" * This file is generated automatically from the default"
$ WRITE DEFTWMRC -
" * twm bindings file system.ctwmrc by the twm Imakefile."
$ WRITE DEFTWMRC " */"
$ WRITE DEFTWMRC ""
$ WRITE DEFTWMRC "char *defTwmrc[] = {"
$ OPEN/READ CTWMRC SYSTEM.CTWMRC
$ LOOP_SYSTEM:
$ READ/END=LOOP_SYSTEM_END/ERR=LOOP_SYSTEM_END CTWMRC LINE
$ IF F$EXTRACT(0,1,LINE) .EQS. "#" THEN GOTO LOOP_SYSTEM
$ RESULT = ""
$ LOOP_QUOTE:
$ E = F$ELEMENT(0,"""",LINE)
$ RESULT = RESULT + E
$ LINE = LINE - E
$ IF LINE .NES. ""
$ THEN
$ LINE = LINE - """"
$ RESULT = RESULT + "\"""
$ GOTO LOOP_QUOTE
$ ENDIF
$ WRITE DEFTWMRC " """,RESULT,""","
$ GOTO LOOP_SYSTEM
$ LOOP_SYSTEM_END:
$ CLOSE CTWMRC
$ WRITE DEFTWMRC " (char *) 0 };"
$ CLOSE DEFTWMRC
$ EXIT 1+0*f$verify(__save_ver)
|