File: gendeftwmrc.com

package info (click to toggle)
ctwm 3.7-3
  • links: PTS
  • area: main
  • in suites: etch, etch-m68k, lenny
  • size: 6,420 kB
  • ctags: 3,180
  • sloc: ansic: 26,429; yacc: 1,004; lex: 147; makefile: 55; sh: 32
file content (36 lines) | stat: -rw-r--r-- 1,011 bytes parent folder | download | duplicates (10)
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)