← Back to branch summary

~ubuntu-branches/ubuntu/gutsy/vnc4/gutsy

« back to all changes in this revision

Viewing changes to unix/xc/extras/Xpm/lib/make.com

  • Committer: Bazaar Package Importer
  • Author(s): Ola Lundqvist
  • Date: 2006-05-15 20:35:17 UTC
  • mfrom: (1.1.2 upstream)
  • Revision ID: james.westby@ubuntu.com-20060515203517-l4lre1ku942mn26k
Tags: 4.1.1+X4.3.0-10
* Correction of critical security issue. Thanks to Martin Kogler
  <e9925248@student.tuwien.ac.at> that informed me about the issue,
  and provided the patch.
  This flaw was originally found by Steve Wiseman of intelliadmin.com.
* Applied patch from Javier Kohen <jkohen@users.sourceforge.net> that
  inform the user that only 8 first characters of the password will
  actually be used when typing more than 8 characters, closes:
  #355619.

Show diffs side-by-side

added added

removed removed

Lines of Context:
unix/xc/extras/Xpm/lib/make.com
 
1
$!---------------make.com for xpmlib----------------------------------------
 
2
$! make xpmlib under VMS
 
3
$!
 
4
$ Make = ""
 
5
$!
 
6
$! Where are we?
 
7
$!
 
8
$ here = f$directory()
 
9
$ disk = f$trnlnm("SYS$DISK")
 
10
$ path = "''disk'"+ "''here'" 
 
11
$ xpath = "''path'" - "SXPM]" + "lib]"
 
12
$ if f$trnlnm("X11").eqs."" then define x11 decw$include,'xpath
 
13
$!
 
14
$! Check for MMK/MMS
 
15
$!
 
16
$ If F$Search ("Sys$System:MMS.EXE") .nes. "" Then Make = "MMS"
 
17
$ If F$Type (MMK) .eqs. "STRING" Then Make = "MMK"
 
18
$!
 
19
$! Look for the compiler used
 
20
$!
 
21
$ ccopt = "/define=(NEED_STRCASECMP,NEED_STRDUP,NO_ZPIPE)"
 
22
$ if f$getsyi("HW_MODEL").ge.1024
 
23
$ then
 
24
$  ccopt = "/prefix=all"+ccopt
 
25
$  comp  = "__decc__=1"
 
26
$  if f$trnlnm("SYS").eqs."" then define sys sys$library:
 
27
$ else
 
28
$  if f$search("SYS$SYSTEM:DECC$COMPILER.EXE").eqs.""
 
29
$   then
 
30
$    comp  = "__vaxc__=1"
 
31
$    if f$trnlnm("SYS").eqs."" then define sys sys$library:
 
32
$   else
 
33
$    if f$trnlnm("SYS").eqs."" then define sys decc$library_include:
 
34
$    ccopt = "/decc/prefix=all"+ccopt
 
35
$    comp  = "__decc__=1"
 
36
$  endif
 
37
$ endif
 
38
$!
 
39
$! Produce linker-options file according to X-Release and compiler used
 
40
$!
 
41
$ open/write optf sxpm.opt
 
42
$ write optf "libxpm.olb/lib"
 
43
$ write optf "sys$share:decw$xextlibshr.exe/share"
 
44
$ write optf "sys$share:decw$xlibshr.exe/share"
 
45
$ @sys$update:decw$get_image_version sys$share:decw$xlibshr.exe decw$version
 
46
$ if f$extract(4,3,decw$version).eqs."1.1"
 
47
$ then
 
48
$   write optf "sys$share:decw$xtshr.exe/share"
 
49
$ endif
 
50
$ if f$extract(4,3,decw$version).eqs."1.2"
 
51
$ then
 
52
$   write optf "sys$share:decw$xtlibshrr5.exe/share"
 
53
$ endif
 
54
$ close optf
 
55
$!
 
56
$! Build the thing plain or with 'Make'
 
57
$!
 
58
$ write sys$output "Compiling XPMlib sources ..."
 
59
$  if (Make .eqs. "")
 
60
$   then
 
61
$    'Make'/Macro = ('comp')
 
62
$  else
 
63
$   CALL MAKE CrBufFrI.OBJ "CC ''CCOPT' CrBufFrI" -
 
64
                CrBufFrI.c XpmI.h xpm.h
 
65
$   CALL MAKE CrBufFrP.OBJ "CC ''CCOPT' CrBufFrP" -
 
66
                CrBufFrP.c XpmI.h xpm.h
 
67
$   CALL MAKE CrDatFI.OBJ "CC ''CCOPT' CrDatFrI" -
 
68
                CrDatFrI.c XpmI.h xpm.h
 
69
$   CALL MAKE CrDatFP.OBJ "CC ''CCOPT' CrDatFrP" -
 
70
                CrDatFrP.c XpmI.h xpm.h
 
71
$   CALL MAKE CrIFrBuf.OBJ "CC ''CCOPT' CrIFrBuf" -
 
72
                CrIFrBuf.c XpmI.h xpm.h
 
73
$   CALL MAKE CrIFrDat.OBJ "CC ''CCOPT' CrIFrDat" -
 
74
                CrIFrDat.c XpmI.h xpm.h
 
75
$   CALL MAKE CrPFrBuf.OBJ "CC ''CCOPT' CrPFrBuf" -
 
76
                CrPFrBuf.c XpmI.h xpm.h
 
77
$   CALL MAKE CrPFrDat.OBJ "CC ''CCOPT' CrPFrDat" -
 
78
                CrPFrDat.c XpmI.h xpm.h
 
79
$   CALL MAKE RdFToDat.OBJ "CC ''CCOPT' RdFToDat" -
 
80
                RdFToDat.c XpmI.h xpm.h
 
81
$   CALL MAKE RdFToI.OBJ "CC ''CCOPT' RdFToI" -
 
82
                RdFToI.c XpmI.h xpm.h
 
83
$   CALL MAKE RdFToP.OBJ "CC ''CCOPT' RdFToP" -
 
84
                RdFToP.c XpmI.h xpm.h
 
85
$   CALL MAKE WrFFrDat.OBJ "CC ''CCOPT' WrFFrDat" -
 
86
                WrFFrDat.c XpmI.h xpm.h
 
87
$   CALL MAKE WrFFrI.OBJ "CC ''CCOPT' WrFFrI" -
 
88
                WrFFrI.c XpmI.h xpm.h
 
89
$   CALL MAKE WrFFrP.OBJ "CC ''CCOPT' WrFFrP" -
 
90
                WrFFrP.c XpmI.h xpm.h
 
91
$   CALL MAKE create.OBJ "CC ''CCOPT' create" -
 
92
                create.c XpmI.h xpm.h
 
93
$   CALL MAKE data.OBJ "CC ''CCOPT' data" -
 
94
                data.c XpmI.h xpm.h
 
95
$   CALL MAKE hashtab.OBJ "CC ''CCOPT' hashtab" -
 
96
                hashtab.c XpmI.h xpm.h
 
97
$   CALL MAKE misc.OBJ "CC ''CCOPT' misc" -
 
98
                misc.c XpmI.h xpm.h
 
99
$   CALL MAKE parse.OBJ "CC ''CCOPT' parse" -
 
100
                parse.c XpmI.h xpm.h
 
101
$   CALL MAKE rgb.OBJ "CC ''CCOPT' rgb" -
 
102
                rgb.c XpmI.h xpm.h
 
103
$   CALL MAKE scan.OBJ "CC ''CCOPT' scan" -
 
104
                scan.c XpmI.h xpm.h
 
105
$   CALL MAKE Attrib.OBJ "CC ''CCOPT' Attrib" -
 
106
                Attrib.c XpmI.h xpm.h
 
107
$   CALL MAKE CrIFrP.OBJ "CC ''CCOPT' CrIFrP" -
 
108
                CrIFrP.c XpmI.h xpm.h
 
109
$   CALL MAKE CrPFrI.OBJ "CC ''CCOPT' CrPFrI" -
 
110
                CrPFrI.c XpmI.h xpm.h
 
111
$   CALL MAKE Image.OBJ "CC ''CCOPT' Image" -
 
112
                Image.c XpmI.h xpm.h
 
113
$   CALL MAKE Info.OBJ "CC ''CCOPT' Info" -
 
114
                Info.c XpmI.h xpm.h
 
115
$   CALL MAKE RdFToBuf.OBJ "CC ''CCOPT' RdFToBuf" -
 
116
                RdFToBuf.c XpmI.h xpm.h
 
117
$   CALL MAKE WrFFrBuf.OBJ "CC ''CCOPT' WrFFrBuf" -
 
118
                WrFFrBuf.c XpmI.h xpm.h
 
119
$   write sys$output "Building XPMlib ..."
 
120
$   CALL MAKE LIBXPM.OLB "lib/crea libxpm.olb *.obj" *.OBJ
 
121
$   CALL MAKE SXPM.OBJ "CC  ''CCOPT' [-.sxpm]sxpm" -
 
122
                [-.sxpm]sxpm.c xpm.h
 
123
$   write sys$output "Linking SXPM ..."
 
124
$   CALL MAKE SXPM.EXE "LINK  sxpm,sxpm.opt/OPT" sxpm.OBJ
 
125
$  endif
 
126
$ write sys$output "XPMlib build completed"
 
127
$ sxpm :=="$''path'sxpm.exe"
 
128
$ exit
 
129
$!
 
130
$!
 
131
$MAKE: SUBROUTINE   !SUBROUTINE TO CHECK DEPENDENCIES
 
132
$ V = 'F$Verify(0)
 
133
$! P1 = What we are trying to make
 
134
$! P2 = Command to make it
 
135
$! P3 - P8  What it depends on
 
136
$
 
137
$ If F$Search(P1) .Eqs. "" Then Goto Makeit
 
138
$ Time = F$CvTime(F$File(P1,"RDT"))
 
139
$arg=3
 
140
$Loop:
 
141
$       Argument = P'arg
 
142
$       If Argument .Eqs. "" Then Goto Exit
 
143
$       El=0
 
144
$Loop2:
 
145
$       File = F$Element(El," ",Argument)
 
146
$       If File .Eqs. " " Then Goto Endl
 
147
$       AFile = ""
 
148
$Loop3:
 
149
$       OFile = AFile
 
150
$       AFile = F$Search(File)
 
151
$       If AFile .Eqs. "" .Or. AFile .Eqs. OFile Then Goto NextEl
 
152
$       If F$CvTime(F$File(AFile,"RDT")) .Ges. Time Then Goto Makeit
 
153
$       Goto Loop3
 
154
$NextEL:
 
155
$       El = El + 1
 
156
$       Goto Loop2
 
157
$EndL:
 
158
$ arg=arg+1
 
159
$ If arg .Le. 8 Then Goto Loop
 
160
$ Goto Exit
 
161
$
 
162
$Makeit:
 
163
$ VV=F$VERIFY(0)
 
164
$ write sys$output P2
 
165
$ 'P2
 
166
$ VV='F$Verify(VV)
 
167
$Exit:
 
168
$ If V Then Set Verify
 
169
$ENDSUBROUTINE