home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume19 / shape / part09 < prev    next >
Text File  |  1989-05-31  |  55KB  |  1,981 lines
  1. Subject:  v19i022:  A software configuration management system, Part09/33
  2. Newsgroups: comp.sources.unix
  3. Sender: sources
  4. Approved: rsalz@uunet.UU.NET
  5.  
  6. Submitted-by: Axel Mahler <unido!coma!axel>
  7. Posting-number: Volume 19, Issue 22
  8. Archive-name: shape/part09
  9.  
  10.  
  11.  
  12. #! /bin/sh
  13. # This is a shell archive.  Remove anything before this line, then unpack
  14. # it by saving it into a file and typing "sh file".  To overwrite existing
  15. # files, type "sh file -c".  You can also feed this as standard input via
  16. # unshar, or by typing "sh <file", e.g..  If this archive is complete, you
  17. # will see the following message at the end:
  18. #        "End of archive 9 (of 33)."
  19. # Contents:  man/man1/save.1 src/inc/afs.h src/shape/inherit.c
  20. #   src/shape/main.c src/shape/shape.l src/shape/varsec.c
  21. # Wrapped by rsalz@papaya.bbn.com on Thu Jun  1 19:26:57 1989
  22. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  23. if test -f 'man/man1/save.1' -a "${1}" != "-c" ; then 
  24.   echo shar: Will not clobber existing file \"'man/man1/save.1'\"
  25. else
  26. echo shar: Extracting \"'man/man1/save.1'\" \(7936 characters\)
  27. sed "s/^X//" >'man/man1/save.1' <<'END_OF_FILE'
  28. X...
  29. X... Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  30. X...  and U. Pralle
  31. X... 
  32. X... This software is published on an as-is basis. There is ABSOLUTELY NO
  33. X... WARRANTY for any part of this software to work correctly or as described
  34. X... in the manuals. We do not accept any liability for any kind of damage
  35. X... caused by use of this software, such as loss of data, time, money, or 
  36. X... effort.
  37. X... 
  38. X... Permission is granted to use, copy, modify, or distribute any part of
  39. X... this software as long as this is done without asking for charge, and
  40. X... provided that this copyright notice is retained as part of the source
  41. X... files. You may charge a distribution fee for the physical act of
  42. X... transferring a copy, and you may at your option offer warranty
  43. X... protection in exchange for a fee.
  44. X... 
  45. X... Direct questions to: Tech. Univ. Berlin
  46. X...              Wilfried Koch
  47. X...              Sekr. FR 5-6 
  48. X...              Franklinstr. 28/29
  49. X...              D-1000 Berlin 10, West Germany
  50. X... 
  51. X...              Tel: +49-30-314-22972
  52. X...              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  53. X... 
  54. X...
  55. X... $Header: save.1[3.1] Thu Feb 23 18:13:51 1989 axel@coma published $
  56. X... 
  57. X... Log for /u/shape/dist-tape/src/vc/save.1[3.0]
  58. X...     Thu Feb 23 18:13:51 1989 axel@coma published $
  59. X...  --- empty log message ---
  60. X...  save.1[3.1] Thu Feb 23 18:13:51 1989 axel@coma published $
  61. X...  --- empty log message ---
  62. X...
  63. X.TH SAVE 1 save \n(dy.\n(mo.\n(yr
  64. X.SH NAME
  65. Xsave \- save revision of a file
  66. X.SH SYNOPSIS
  67. X.IP \fBsave\fR \w'\fBSave++\fR'u
  68. X[\ \fIoptions\fR\ ]\ files \.\|.
  69. X.IP \fBSave\fR
  70. X[\ \fIoptions\fR\ ]\ files \.\|.
  71. X.IP \fBsbmt\fR
  72. X[\ \fIoptions\fR\ ]\ files \.\|.
  73. X.IP \fIOptions:\fR \w'\fIOptions:++\fR'u
  74. X[\ \fB\-fhqu\fR\ ]\ [\ \fB\-a\ \fIafile\fR\ ] [\ \fB\-m\ \fImessage\fR\ ]
  75. X[\ \fB\-n\ \fIname\fR\ ] [\ \fB\-p\ \fIprojectname\fR\ ] 
  76. X.br
  77. X[\ \fB\-setvnum\ \fIversion\fR\ ]
  78. X[\ \fB\-t\ \fItextfile\fR\ ]\ [\ \fB\-unlock\fR\ ]\ [\ \fB\-version\fR\ ]
  79. X.SH DESCRIPTION
  80. X.PP
  81. X\fISave\fR stores the current state of the specified files into 
  82. Xarchive files and
  83. Xassigns a unique \fIversion number\fR to the saved version. Versions
  84. Xin archives are inalterable.
  85. XAn archive will be created
  86. Xin a subdirectory named \fIAFS\fR the first time a file saved.
  87. XThe AFS subdirectory must be present.
  88. XWhen an archive is created, save asks for the purpose
  89. Xof the saved document. If a subsequent version is saved, the user
  90. Xis prompted for a comment concerning the modifications.
  91. XThe \fBsave\fR command requires that the object history corresponding
  92. Xto the file to be saved is either \fIlocked\fR by the user
  93. Xissuing the command or not locked at all.
  94. XBefore a file is saved it will be checked whether it has actually 
  95. Xchanged. If the file hasn't changed, the user will be asked if it
  96. Xshould be saved anyway. The command line option \fB\-f\fR overrides the query.
  97. XA newly created object version in the archive will be assigned the
  98. Xstate \fIsaved\fR. This status marks the lowest level of quality,
  99. Xsuggesting that the version is just saved for possible later retrieval 
  100. Xbut may be inconsistent. Versions that meet higher quality standards
  101. X(or are part of a release) should be marked by appropriate status
  102. X(see \fBvadm\fR \-promote\fR or \fBsbmt\fR).
  103. X.PP
  104. XIf the program is invoked as \fBSave\fR (that is with capital-S) 
  105. Xa \fInew generation\fR of the document history is initiated \-
  106. Xprovided the programmer issuing the command has the permission to do this.
  107. X.PP
  108. XIf the program is invoked as \fBsbmt\fR, a newly created version
  109. Xwill be set to status \fIpublished\fR. If the file to be saved
  110. Xis unchanged with respect to the last saved version, the status
  111. Xof the last saved version will be promoted to \fIpublished\fR.
  112. X.LP
  113. XIn complete detail, \fBsave\fR can be invoked with the following options:
  114. X.IP \fB\-f\fR \w'\fB\-p\ \fIproject++\fR'u
  115. Xforces a revision deposit (i.e. without asking), even if the busy
  116. Xversion hasn't changed since the last time it was saved.
  117. X.IP \fB\-h\fR
  118. Xprint short information about usage of this command.
  119. X.IP \fB\-q\fR
  120. Xquiet operation. No messages are printed on standard output. 
  121. XIf the busy version is unchanged, it will not be saved unless
  122. X\fB\-f\fR is set. The user will not be prompted for a descriptive
  123. Xnote. If no message or note is supplied with the command line 
  124. X(see options \fB\-m\fR and \fB\-t\fR) the log
  125. Xwill remain empty. This option is useful for batch operation.
  126. X.IP \fB\-u\fR
  127. Xunlock object history upon save. This option is identical to 
  128. X\fB\-unlock\fR (see below).
  129. X.IP \fB\-a\ \fIafile\fR
  130. Xassign all the attributes specified in \fIafile\fR to the evolving
  131. Xnew versions. Attributes must be given in the form \fIname=value\fR
  132. Xwith one attribute specification per line and no white-space.
  133. XWhile the attribute value is optional, the \fIequal\fR symbol must
  134. Xbe present. If the \fB\-a\fR option is omitted, \fBsave\fR searches
  135. Xthe environment for a variable \fISVATTRS\fR. If this variable
  136. Xis absent, no user defined attributes will be assigned to the evolving
  137. Xversions.
  138. X.IP \fB\-m\ \fImessage\fR
  139. Xsets \fImessage\fR as descriptive note for all document versions 
  140. Xthat result from the invocation of \fBsave\fR. This option is alternative
  141. Xto \fB\-t\fR which overrides \fB\-m\fR.
  142. X.IP \fB\-n\ \fIname\fR
  143. Xassigns a symbolic name \fIname\fR to the saved version. In more detail,
  144. Xan attribute \fISYMNAME\fR is set to the value specified in \fIname\fR.
  145. XThe specified symbolic name must not be assigned to any other version
  146. Xwithin the same object history.
  147. X.IP \fB\-p\ \fIproject\fR
  148. Xspecifies the name of a project to provide a \fIproject context\fR
  149. Xin which the save operation takes place. This project context may 
  150. Xdetermine a number of addtional parameters that affect the overall
  151. Xbehaviour of the save command. Such parameters might be
  152. Xa set of standard attributes that are to be assigned to evolving versions
  153. Xcertain permissions or some general project policy.
  154. X.br
  155. X\fHUNIMPLEMENTED FEATURE.\fR
  156. X.IP \fB\-setvnum\ \fI<version>\fR
  157. Xsets the version number of the newly created revision to \fIversion\fR.
  158. XThe \fIversion\fR must be given in the format \fI<generation>.<revision>\fR
  159. Xwhere \fIgeneration\fR and \fIrevision\fR are integers. Example:
  160. X.RS
  161. X.DS
  162. X\fCsave -setvnum 4.3 mkattr.c\fR
  163. X.DE
  164. XThe specified \fIversion\fR must be greater than the highest previously
  165. Xassigned version number in a given object history. \fB\-setvnum\fR
  166. Xis useful for keeping consistent version numbering across related, physically
  167. Xdifferent object bases, or for converting archive formats of other
  168. Xrevision control systems to this toolkit (see: \fBrcs2afs\fR).
  169. X.RE
  170. X.IP \fB\-t\ \fIfile\fR
  171. Xsets the text contained in \fIfile\fR as descriptive note for all document
  172. Xversions that result from the invocation of \fBsave\fR. This option is
  173. Xalternative to \fB\-m\fR which is superseded by \fB\-t\fR.
  174. X.IP \fB\-unlock\fR
  175. Xgives up the lock for the object history into which the new revision
  176. Xof a file is saved. Upon unlocking the history, the user is prompted 
  177. Xfor a description of the applied changes with the original \fIchange 
  178. Xintent\fR (see \fBretrv \-lock\fR and \fBvadm -lock\fR) as initial
  179. Xcomment. This comment might be edited appropriately. The change intention
  180. Xis cleared afterwards.
  181. X.IP \fB\-version\fR
  182. Xprints the version of the program itself.
  183. X.SH FILES
  184. XAll revisions of documents are stored in archive files in the subdirectory
  185. XAFS.
  186. X.SH SEE ALSO
  187. Xretrv(1), rsrv(1), sbmt(1), shape(1), vadm(1), vl(1), 
  188. Xaf_intro(3), af_archive(5)
  189. X.SH BUGS
  190. XProject support is unimplemented.
  191. X.PP
  192. XSupport of user-defined attributes is rudimentary. Specification of such
  193. Xattributes must be syntactically correct.
  194. X.PP
  195. X\fBsave\fR neither reads the \fIShapefile\fR nor the \fIMakefile\fR and
  196. Xconsequently sticks with the 'individual document level' rather than to
  197. Xsupport the saving of entire systems or subsystems (higer level targets
  198. Xin \fI{Shape,Make}file\fRs).
  199. X.SH AUTHOR
  200. XAxel Mahler
  201. X.br
  202. XTechnical University Berlin
  203. X.sp
  204. X\fIUUCP:\fR        axel@coma.uucp (unido!coma!axel)
  205. X.br
  206. X\fIBITNET:\fR    axel@db0tui62
  207. END_OF_FILE
  208. if test 7936 -ne `wc -c <'man/man1/save.1'`; then
  209.     echo shar: \"'man/man1/save.1'\" unpacked with wrong size!
  210. fi
  211. # end of 'man/man1/save.1'
  212. fi
  213. if test -f 'src/inc/afs.h' -a "${1}" != "-c" ; then 
  214.   echo shar: Will not clobber existing file \"'src/inc/afs.h'\"
  215. else
  216. echo shar: Extracting \"'src/inc/afs.h'\" \(8320 characters\)
  217. sed "s/^X//" >'src/inc/afs.h' <<'END_OF_FILE'
  218. X/*
  219. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  220. X *  and U. Pralle
  221. X * 
  222. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  223. X * WARRANTY for any part of this software to work correctly or as described
  224. X * in the manuals. We do not accept any liability for any kind of damage
  225. X * caused by use of this software, such as loss of data, time, money, or 
  226. X * effort.
  227. X * 
  228. X * Permission is granted to use, copy, modify, or distribute any part of
  229. X * this software as long as this is done without asking for charge, and
  230. X * provided that this copyright notice is retained as part of the source
  231. X * files. You may charge a distribution fee for the physical act of
  232. X * transferring a copy, and you may at your option offer warranty
  233. X * protection in exchange for a fee.
  234. X * 
  235. X * Direct questions to: Tech. Univ. Berlin
  236. X *              Wilfried Koch
  237. X *              Sekr. FR 5-6 
  238. X *              Franklinstr. 28/29
  239. X *              D-1000 Berlin 10, West Germany
  240. X * 
  241. X *              Tel: +49-30-314-22972
  242. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  243. X */
  244. X/*
  245. X *    Shape/AFS
  246. X *
  247. X *    afs.h - Type and Constant-Definitions for the 
  248. X *        Attribute-Filesystem
  249. X *
  250. X *    Author:    Andreas Lampen (andy@coma.UUCP
  251. X *                andy@db0tui62.BITNET)
  252. X *
  253. X *    $Header: afs.h[1.4] Wed Feb 22 16:29:43 1989 andy@coma published $
  254. X */
  255. X
  256. X#ifndef _AFSHDR_
  257. X#define _AFSHDR_
  258. X
  259. X/*=========================================================================
  260. X * Installation dependent constants 
  261. X *=========================================================================*/
  262. X
  263. X#include <stdio.h>
  264. X#include <sys/types.h>
  265. X#ifndef MAXNAMLEN
  266. X#include <sys/dir.h>
  267. X#endif
  268. X#include <sys/param.h>
  269. X
  270. X#define MAXTYPLEN      256
  271. X#define MAXVARLEN      256
  272. X#define MAXUSERNAMELEN 64
  273. X
  274. X/*=========================================================================
  275. X * External Type Definitions
  276. X *=========================================================================*/
  277. X
  278. X#include "afsys.h"
  279. X
  280. X/**** filekey ****/
  281. Xtypedef struct {
  282. X        Af_revlist *af_ldes;        /* ptr to revlist descriptor */
  283. X        int        af_lpos;             /* position in revlist */
  284. X           } Af_key;
  285. X
  286. X/**** Set descriptor ****/
  287. Xtypedef struct {
  288. X        int    af_nkeys;
  289. X        int    af_setlen;
  290. X        Af_key    *af_klist;
  291. X           } Af_set;
  292. X
  293. X/**** User Identification ****/
  294. Xtypedef struct {
  295. X                char    af_username[MAXUSERNAMELEN];
  296. X        char    af_userhost[MAXHOSTNAMELEN];
  297. X           } Af_user;
  298. X
  299. X/**** Attribute buffer ****/
  300. Xtypedef struct {
  301. X        char    af_host[MAXHOSTNAMELEN]; /* hostname */
  302. X        char    af_syspath[MAXNAMLEN+1]; /* system path */
  303. X        char    af_name[MAXNAMLEN+1];    /* filename */
  304. X        char    af_type[MAXTYPLEN];    /* filename extension (type) */
  305. X        int    af_gen;            /* generation number */
  306. X        int    af_rev;            /* revision number */
  307. X        char    af_variant[MAXVARLEN];  /* variant attribute */
  308. X        int    af_state;        /* version state (see below) */
  309. X        Af_user af_owner;        /* owner */
  310. X        Af_user af_author;        /* author */
  311. X        off_t   af_size;                /* size of file */
  312. X        u_short af_mode;        /* protection (from inode) */
  313. X        Af_user af_locker;              /* locker */
  314. X        time_t    af_mtime;        /* date of last modification */
  315. X        time_t    af_atime;        /* date of last access */
  316. X        time_t    af_ctime;        /* date of last status change*/
  317. X        time_t    af_stime;        /* save date */
  318. X        time_t  af_ltime;               /* date of last lock change */
  319. X        char    *af_udattrs[AF_MAXUDAS]; /* user def. attributes */
  320. X           } Af_attrs;
  321. X
  322. X/*=========================================================================
  323. X * Constant Definitions
  324. X *=========================================================================*/
  325. X
  326. X/**** Version states ****/
  327. X
  328. X#define AF_NOSTATE     -1
  329. X#define    AF_BUSY        0
  330. X#define AF_SAVED    1
  331. X#define AF_PROPOSED    2
  332. X#define AF_PUBLISHED    3
  333. X#define AF_ACCESSED    4
  334. X#define AF_FROZEN    5
  335. X
  336. X/**** Settings for Attrbuf ****/
  337. X
  338. X#define AF_NONAME       "\0"
  339. X#define AF_NOTYPE       "\0"
  340. X#define AF_NOVNUM    -1
  341. X#define AF_NOSIZE    -1
  342. X#define AF_NOMODE    0
  343. X#define AF_NOTIME       -1
  344. X
  345. X/**** Modes ****/
  346. X
  347. X#define AF_ADD          1   /* user-defined attributes */
  348. X#define AF_REMOVE       2   /* " */
  349. X#define AF_REPLACE      3   /* " */
  350. X
  351. X#define AF_BUSYVERS     -2   /* version identification */
  352. X#define AF_FIRSTVERS    -3   /* " */
  353. X#define AF_LASTVERS     -4   /* " */
  354. X
  355. X#define AF_LASTPOS      -4   /* set position */
  356. X
  357. X/**** Object classes ****/
  358. X
  359. X#define AF_SOURCE       00
  360. X#define AF_DERIVED      01
  361. X#define AF_VALID        02
  362. X
  363. X/**** Locking Modes ****/
  364. X
  365. X#define AF_VERSIONLOCK   0
  366. X#define AF_GLOBALLOCK    1
  367. X
  368. X/*=========================================================================
  369. X * Attribute names
  370. X *=========================================================================*/
  371. X
  372. X#define AF_UDANAMLEN    128       /* maximum length of uda name */
  373. X#define AF_ATTNUM       20        /* number of attrributes in attrbuf */
  374. X
  375. X#define AF_ATTHOST    "af_host"
  376. X#define AF_ATTSPATH    "af_syspath"
  377. X#define AF_ATTNAME      "af_name"
  378. X#define AF_ATTTYPE      "af_type"
  379. X#define AF_ATTGEN    "af_gen"
  380. X#define AF_ATTREV    "af_rev"
  381. X#define AF_ATTVARIANT   "af_variant"
  382. X#define AF_ATTVERSION    "af_version" /* compound attribute: gen.rev */
  383. X#define AF_ATTHUMAN     "af_human"   /* compound name,type,gen,rev,variant */
  384. X#define AF_ATTSTATE    "af_state"
  385. X#define AF_ATTOWNER    "af_owner"
  386. X#define AF_ATTAUTHOR    "af_author"
  387. X#define AF_ATTSIZE      "af_size"
  388. X#define AF_ATTMODE      "af_mode"
  389. X#define AF_ATTLOCKER    "af_locker"
  390. X#define AF_ATTMTIME    "af_mtime"
  391. X#define AF_ATTATIME    "af_atime"
  392. X#define AF_ATTCTIME    "af_ctime"
  393. X#define AF_ATTSTIME    "af_stime"
  394. X#define AF_ATTLTIME    "af_ltime"
  395. X
  396. X
  397. X
  398. X/*=========================================================================
  399. X * Errorcodes
  400. X *=========================================================================*/
  401. X
  402. X/* General */
  403. X#define AF_OK         0
  404. X
  405. X#define AF_ESYSERR     -2    /* Error during execution of Syslib-command */
  406. X#define AF_EACCES        -3     /* permission denied */
  407. X#define AF_EARCHANGED    -4     /* archive has changed since last read */
  408. X#define AF_EARLOCKED     -5     /* archive is locked for writing */
  409. X#define AF_EBPFULL       -6     /* no additional place in binary pool */
  410. X#define AF_EBUSY         -7     /* spec. revision must not be a busy version */
  411. X#define AF_EDERIVED      -8     /* spec. revision is a derived object */
  412. X#define AF_EFORMAT       -9     /* illegal format of var or uda string */
  413. X#define AF_EINVKEY     -10    /* invalid key */
  414. X#define AF_EINVSET    -11     /* invalid set */
  415. X#define AF_EINVUSER     -12     /* invalid user */
  416. X#define AF_EINVVNUM     -13     /* bad version number */
  417. X#define AF_ELOC        -14    /* invalid location of archive */
  418. X#define AF_EMISC        -15     /* miscellaneous errors */
  419. X#define AF_EMODE        -16     /* invalid mode */
  420. X#define AF_ENOAFSDIR    -17     /* no AFS subdirectory */
  421. X#define AF_ENOKEY       -18     /* key does not exist in set */
  422. X#define AF_ENOPOS       -19     /* invalid position in set */
  423. X#define AF_ENOREV       -20     /* specified revision does not exist */
  424. X#define AF_ENOTBUSY     -21     /* specified object is no busy version */
  425. X#define AF_ENOTDERIVED  -22     /* specified object is no derived object */
  426. X#define AF_ENOTLOCKED   -23     /* version is not locked or - by another user*/
  427. X#define AF_ENOTREGULAR  -24     /* specified object is no regular file */
  428. X#define AF_ENOTVERS     -25     /* specified object has no versions */
  429. X#define AF_ENOUDA       -26     /* user defined attribute does not exist */
  430. X#define AF_ESAVED       -27     /* saved versions cannot be modified */
  431. X#define AF_ESTATE    -28    /* invalid state transition */
  432. X#define AF_ETOOLONG     -29     /* string too long */
  433. X#define AF_EUDASNUM     -30     /* too many user defined attributes */
  434. X#define AF_EWRONGSTATE  -31     /* wrong state */
  435. X
  436. X/* codes for really serious errors */
  437. X#define AF_EDELTA       -32     /* error during delta operation */
  438. X#define AF_EINCONSIST    -33    /* Archive file inconsistent */
  439. X#define AF_EINTERNAL    -34    /* internal error */
  440. X#define AF_ENOAFSFILE   -35     /* no AFS file */
  441. X
  442. X/*=========================================================================
  443. X * Declarations
  444. X *=========================================================================*/
  445. X
  446. Xchar *af_afname(), *af_afpath(), *af_aftype(), *af_rvariant();
  447. Xchar *af_rname(), *af_rsyspath(), *af_rtype(), *af_rnote(), *af_rudattr();
  448. XFILE *af_open();
  449. XAf_user *af_lock(), *af_unlock(), *af_testlock(), *af_rowner(), *af_rauthor();
  450. XAf_user *af_getuser();
  451. Xvoid af_perror();
  452. X
  453. X#endif /* __AFSHDR__ */
  454. X
  455. END_OF_FILE
  456. if test 8320 -ne `wc -c <'src/inc/afs.h'`; then
  457.     echo shar: \"'src/inc/afs.h'\" unpacked with wrong size!
  458. fi
  459. # end of 'src/inc/afs.h'
  460. fi
  461. if test -f 'src/shape/inherit.c' -a "${1}" != "-c" ; then 
  462.   echo shar: Will not clobber existing file \"'src/shape/inherit.c'\"
  463. else
  464. echo shar: Extracting \"'src/shape/inherit.c'\" \(8336 characters\)
  465. sed "s/^X//" >'src/shape/inherit.c' <<'END_OF_FILE'
  466. X/*
  467. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  468. X *  and U. Pralle
  469. X * 
  470. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  471. X * WARRANTY for any part of this software to work correctly or as described
  472. X * in the manuals. We do not accept any liability for any kind of damage
  473. X * caused by use of this software, such as loss of data, time, money, or 
  474. X * effort.
  475. X * 
  476. X * Permission is granted to use, copy, modify, or distribute any part of
  477. X * this software as long as this is done without asking for charge, and
  478. X * provided that this copyright notice is retained as part of the source
  479. X * files. You may charge a distribution fee for the physical act of
  480. X * transferring a copy, and you may at your option offer warranty
  481. X * protection in exchange for a fee.
  482. X * 
  483. X * Direct questions to: Tech. Univ. Berlin
  484. X *              Wilfried Koch
  485. X *              Sekr. FR 5-6 
  486. X *              Franklinstr. 28/29
  487. X *              D-1000 Berlin 10, West Germany
  488. X * 
  489. X *              Tel: +49-30-314-22972
  490. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  491. X */
  492. X#ifndef lint
  493. Xstatic char *RCSid = "$Header: inherit.c,v 3.2 89/02/15 16:24:39 wolfgang Exp $";
  494. X#endif
  495. X#ifndef lint
  496. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  497. X#endif
  498. X/*
  499. X * $Log:    inherit.c,v $
  500. X * Revision 3.2  89/02/15  16:24:39  wolfgang
  501. X * bug fixed.
  502. X * 
  503. X * Revision 3.1  89/02/06  14:25:20  wolfgang
  504. X * calls of forbidden() cahnged
  505. X * 
  506. X * Revision 3.0  89/01/24  11:35:46  wolfgang
  507. X * New System Generation
  508. X * 
  509. X * Revision 1.15  89/01/03  13:10:48  wolfgang
  510. X * changes done for lint
  511. X * 
  512. X * Revision 1.14  88/12/22  13:23:16  wolfgang
  513. X * minor bug fixed.
  514. X * 
  515. X * Revision 1.13  88/12/21  15:03:29  wolfgang
  516. X * changes done for lint
  517. X * 
  518. X * Revision 1.12  88/12/19  13:22:59  wolfgang
  519. X * forbidden() & finddep() added.
  520. X * 
  521. X * Revision 1.9  88/11/21  15:51:01  wolfgang
  522. X * return code of all malloc's checked
  523. X * 
  524. X * Revision 1.8  88/11/09  16:26:30  wolfgang
  525. X * bug fixed in comapare_attrstring(). dropset was located wrong
  526. X * 
  527. X * Revision 1.7  88/11/08  19:28:33  wolfgang
  528. X * expandall or expandnothing added to ATTR-string
  529. X * 
  530. X * Revision 1.6  88/11/08  18:07:07  wolfgang
  531. X * inheritance changed: attributes should now be correct.
  532. X * 
  533. X * Revision 1.5  88/11/04  16:43:50  wolfgang
  534. X * This version is part of a release
  535. X * 
  536. X * Revision 1.4  88/09/20  10:03:54  wolfgang
  537. X * bug fixed. concatenation of vflags was not correct.
  538. X * 
  539. X * Revision 1.3  88/08/18  10:25:49  wolfgang
  540. X * This version is part of a release
  541. X * 
  542. X * Revision 1.2  88/08/12  08:58:09  wolfgang
  543. X * This version is part of a release
  544. X * 
  545. X */
  546. X
  547. X#include "shape.h"
  548. X
  549. Xextern char *expandmacro();
  550. Xextern char *build_attrstring();
  551. Xextern int error();
  552. Xextern void warning();
  553. Xextern Af_attrs buft;
  554. Xextern char *longattrs[];
  555. Xextern int depth;
  556. Xextern Bool error_occ;
  557. Xextern Bool finddep();
  558. Xextern Bool forbidden();
  559. Xextern struct rules *get_target();
  560. X
  561. Xsave_targets(rulename, srcname, objrulename,attrstr)
  562. X     struct rules *rulename;
  563. X     char *srcname;
  564. X     struct rules *objrulename;
  565. X     char *attrstr;
  566. X{
  567. X  Af_key busykey, savekey;
  568. X  char *syspath;
  569. X  char *name;
  570. X  char *type;
  571. X  int gen = AF_BUSYVERS;
  572. X  int rev = AF_BUSYVERS;
  573. X  char attr[MAXATTRLENGTH];
  574. X  char *p;
  575. X  int retcode;
  576. X  char savepath[MAXNAMLEN];
  577. X
  578. X#ifdef NOBPOOL
  579. X  return;
  580. X#endif NOBPOOL
  581. X
  582. X  if(error_occ)
  583. X    {
  584. X      error_occ = FALSE;
  585. X      return;
  586. X    }
  587. X
  588. X  if(noexflg)
  589. X    return;
  590. X
  591. X  if ((rindex(srcname,'/')) != NIL)
  592. X    {
  593. X      (void) strcpy(savepath,srcname);
  594. X      p = rindex(savepath,'/');
  595. X      *p = '\0';
  596. X      p++;
  597. X      srcname = p;
  598. X      syspath = &savepath[0];
  599. X    }
  600. X  else
  601. X    syspath = curvpath[0];
  602. X
  603. X  if(objrulename != (struct rules *) NIL)
  604. X    {
  605. X      if((name = malloc((unsigned) (strlen(objrulename->name) + 1))) == NIL)
  606. X    errexit(10,"malloc");
  607. X      (void) strcpy(name, objrulename->name);
  608. X    }
  609. X  else
  610. X    {
  611. X      if((name = malloc((unsigned) (strlen(srcname) + 1))) == NIL)
  612. X     errexit(10,"malloc");
  613. X      (void) strcpy(name,srcname);
  614. X    }
  615. X
  616. X  if (rulename->name[0] == '%')
  617. X    {
  618. X      if((p = rindex(name,'.')) != NIL)
  619. X    {
  620. X      *p = '\0';
  621. X      (void) strcat(name, rulename->name+1);
  622. X    }
  623. X    }
  624. X
  625. X  if ((p = rindex(name,'.')) != NIL)
  626. X    {
  627. X      *p = '\0';
  628. X      type = p+1;
  629. X    }
  630. X  else
  631. X    type = NIL;
  632. X
  633. X
  634. X  if ((af_getkey(syspath,name,type,gen,rev,NIL,&busykey)) == -1)
  635. X    errexit(10, "af_getkey");
  636. X
  637. X  af_errno = 0; /* sollte nocht sein */
  638. X
  639. X  retcode = af_sudattr(&busykey,AF_REMOVE,ATTRNAME);
  640. X
  641. X  if ((retcode == -1) && (af_errno == AF_ENOAFSDIR))
  642. X    {
  643. X      af_initattrs(&buft);
  644. X      af_dropkey(&busykey);
  645. X      return;
  646. X    }
  647. X  
  648. X  if ((retcode == -1) && (af_errno != AF_ENOUDA) &&
  649. X      (af_errno != AF_ENOAFSDIR))
  650. X    errexit(10,"af_sudattr");
  651. X
  652. X  if ((bpoolflg) || (nobpoolflg))
  653. X    {
  654. X      if(!forbidden(syspath,name,type))
  655. X    {
  656. X      if ((af_savebinary(&busykey,&savekey)) == -1)
  657. X        {
  658. X          if(af_errno == AF_ENOAFSDIR)
  659. X        warning(1,NIL);
  660. X          else
  661. X        errexit(10, "af_savebinary");
  662. X        }
  663. X    }
  664. X    }
  665. X
  666. X  if(attrstr[0] == '\0')
  667. X    (void) strcpy(attr,build_attrstring(rulename,srcname,objrulename));
  668. X  else
  669. X    (void) strcpy(attr,attrstr);
  670. X
  671. X  if ((bpoolflg) || (nobpoolflg))
  672. X    {
  673. X      if(!forbidden(syspath,name,type))
  674. X    {
  675. X      retcode = af_sudattr(&savekey,AF_REPLACE,attr);
  676. X      if (retcode == -1)
  677. X        {
  678. X          retcode = af_sudattr(&savekey,AF_ADD,attr);
  679. X          if ((retcode == -1) && (af_errno != AF_ETOOLONG) &&
  680. X          (af_errno != AF_ENOAFSDIR))
  681. X        errexit(10,"af_sudattr");
  682. X          if (af_errno == AF_ETOOLONG)
  683. X        {
  684. X          retcode = af_errno;
  685. X          /* attrs are too long */
  686. X          if ((af_rm(&savekey)) == -1)
  687. X            errexit(10,"af_rm");
  688. X        }
  689. X        }
  690. X      if (retcode != AF_ETOOLONG)
  691. X        {
  692. X          if (buft.af_gen != -1)
  693. X        {
  694. X          if ((af_svnum(&savekey,buft.af_gen,buft.af_rev)) == -1)
  695. X            errexit(10,"af_svnum");
  696. X        }
  697. X          else
  698. X        {
  699. X          if ((af_svnum(&savekey,AF_BUSYVERS,AF_BUSYVERS)) == -1)
  700. X            errexit(10,"af_svnum");
  701. X        }
  702. X        }
  703. X      af_dropkey(&savekey);
  704. X    }
  705. X    }
  706. X
  707. X  if ((af_sudattr(&busykey,AF_REPLACE,attr)) == -1)
  708. X    {
  709. X      if ((af_sudattr(&busykey,AF_ADD,attr)) == -1)
  710. X    errexit(10,"af_sudattr");
  711. X    }
  712. X  af_initattrs(&buft);
  713. X}
  714. X 
  715. X
  716. Xchar *build_attrstring(rulename,srcname,objrulename)
  717. X     struct rules *rulename;
  718. X     /*ARGSUSED*/
  719. X     char *srcname;
  720. X     struct rules *objrulename;
  721. X
  722. X{
  723. X  char attr[MAXATTRLENGTH];
  724. X  int i = 0;
  725. X  char *p;
  726. X
  727. X  attr[0] = '\0';
  728. X  (void) strcpy(attr,ATTRNAME);
  729. X  
  730. X  if(expflg)
  731. X    (void) strcat(attr,"expandall");
  732. X  if(noexpflg)
  733. X    (void) strcat(attr,"expandnothing");
  734. X
  735. X  for( i = 0; rulename->targetlist[i] != NIL; i++)
  736. X    {
  737. X      (void) strcat(attr,rulename->targetlist[i] + 1);
  738. X    }
  739. X  for(i = 0; rulename->heritage[i] != NIL; i++)
  740. X    {
  741. X      (void) strcat(attr, rulename->heritage[i]);
  742. X      (void) strcat(attr,"=");
  743. X      (void) strcat(attr,rulename->heritage[i]);
  744. X      p = rindex(attr,'+');
  745. X      *p = '$';
  746. X      (void) strcpy(attr,expandmacro(attr));
  747. X    }
  748. X
  749. X/*  if (buft.af_gen != -1)
  750. X    {
  751. X       (void) sprintf(attr,"%sversion=%d.%d",attr,buft.af_gen,buft.af_rev);
  752. X    }
  753. X    else
  754. X    (void) sprintf(attr,"%sversion=%d.%d",attr,AF_BUSYVERS,AF_BUSYVERS); */
  755. X  (void) strcat(attr, longattrs[depth]);
  756. X  (void) strcpy(longattrs[depth],attr);
  757. X  return(attr);
  758. X}
  759. X
  760. X
  761. XBool forbidden(syspath,name,type)
  762. X     char *syspath;
  763. X     char *name;
  764. X     char *type;
  765. X{
  766. X  char fullname[MAXNAMLEN];
  767. X  Bool bp = FALSE;
  768. X  Bool nobp = FALSE;
  769. X  struct rules *bpool;
  770. X  struct rules *nobpool;
  771. X  
  772. X  fullname[0] = '\0';
  773. X  if (strcmp(syspath,curvpath[0]))
  774. X    {
  775. X      (void) strcpy(fullname,syspath);
  776. X      (void) strcat(fullname,"/");
  777. X      (void) strcat(fullname,name);
  778. X    }
  779. X  else
  780. X    {
  781. X      (void) strcpy(fullname,name);
  782. X    }
  783. X
  784. X  if (type != NIL)
  785. X    {
  786. X      (void) strcat(fullname,".");
  787. X      (void) strcat(fullname,type);
  788. X    }
  789. X
  790. X  bpool = get_target(".BPOOL");
  791. X  nobpool = get_target(".NOBPOOL");
  792. X
  793. X  if (bpool != (struct rules *) NIL)
  794. X    {
  795. X      bp = finddep(bpool,fullname);
  796. X    }
  797. X  else
  798. X    bp = TRUE;
  799. X  
  800. X  if (nobpool != (struct rules *) NIL)
  801. X    {
  802. X      nobp = finddep(nobpool,fullname);
  803. X    }
  804. X
  805. X  if (bp && nobp)
  806. X    return(TRUE);
  807. X
  808. X  if (bp && (!nobp))
  809. X    return(FALSE);
  810. X
  811. X  if ((!bp) && nobp)
  812. X    return(TRUE);
  813. X  
  814. X  if ((!bp) && (!nobp))
  815. X    return(TRUE);
  816. X/*NOTREACHED*/
  817. Xreturn(FALSE);
  818. X}
  819. X
  820. XBool finddep(rule,name)
  821. X     struct rules *rule;
  822. X     char *name;
  823. X{
  824. X  int i = 0;
  825. X  while(rule->deplist[i] != NIL)
  826. X    {
  827. X      if (!strcmp(rule->deplist[i],name))
  828. X    return(TRUE);
  829. X      i++;
  830. X    }
  831. X  return(FALSE);
  832. X}
  833. END_OF_FILE
  834. if test 8336 -ne `wc -c <'src/shape/inherit.c'`; then
  835.     echo shar: \"'src/shape/inherit.c'\" unpacked with wrong size!
  836. fi
  837. # end of 'src/shape/inherit.c'
  838. fi
  839. if test -f 'src/shape/main.c' -a "${1}" != "-c" ; then 
  840.   echo shar: Will not clobber existing file \"'src/shape/main.c'\"
  841. else
  842. echo shar: Extracting \"'src/shape/main.c'\" \(8311 characters\)
  843. sed "s/^X//" >'src/shape/main.c' <<'END_OF_FILE'
  844. X/*
  845. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  846. X *  and U. Pralle
  847. X * 
  848. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  849. X * WARRANTY for any part of this software to work correctly or as described
  850. X * in the manuals. We do not accept any liability for any kind of damage
  851. X * caused by use of this software, such as loss of data, time, money, or 
  852. X * effort.
  853. X * 
  854. X * Permission is granted to use, copy, modify, or distribute any part of
  855. X * this software as long as this is done without asking for charge, and
  856. X * provided that this copyright notice is retained as part of the source
  857. X * files. You may charge a distribution fee for the physical act of
  858. X * transferring a copy, and you may at your option offer warranty
  859. X * protection in exchange for a fee.
  860. X * 
  861. X * Direct questions to: Tech. Univ. Berlin
  862. X *              Wilfried Koch
  863. X *              Sekr. FR 5-6 
  864. X *              Franklinstr. 28/29
  865. X *              D-1000 Berlin 10, West Germany
  866. X * 
  867. X *              Tel: +49-30-314-22972
  868. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  869. X */
  870. X#ifndef lint
  871. Xstatic char *RCSid = "$Header: main.c,v 3.1 89/02/20 16:25:58 wolfgang Exp $";
  872. X#endif
  873. X#ifndef lint
  874. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  875. X#endif
  876. X/*
  877. X * $Log:    main.c,v $
  878. X * Revision 3.1  89/02/20  16:25:58  wolfgang
  879. X * NET-RELEASE
  880. X * 
  881. X * Revision 3.0  89/01/24  11:36:03  wolfgang
  882. X * New System Generation
  883. X * 
  884. X * Revision 2.16  89/01/18  13:42:29  wolfgang
  885. X * call of init_selruletab() added.
  886. X * 
  887. X * Revision 2.15  89/01/03  13:11:31  wolfgang
  888. X * changes done for lint
  889. X * 
  890. X * Revision 2.14  88/12/22  13:22:33  wolfgang
  891. X * initializarion of bpoolflg added.
  892. X * 
  893. X * Revision 2.13  88/12/21  15:10:52  wolfgang
  894. X * changes done for lint
  895. X * 
  896. X * Revision 2.12  88/11/22  17:37:23  wolfgang
  897. X * This version is part of a release
  898. X * 
  899. X * Revision 2.11  88/11/21  15:50:36  wolfgang
  900. X * return code of all malloc's checked
  901. X * 
  902. X * Revision 2.10  88/10/10  14:16:58  wolfgang
  903. X * feature for -p option added.
  904. X * 
  905. X * Revision 2.9  88/09/22  16:16:24  wolfgang
  906. X * call of cleanup_links changed. call of shape_cleanup added.
  907. X * 
  908. X * Revision 2.8  88/09/22  10:02:17  wolfgang
  909. X * declaration of ruleset changed.
  910. X * 
  911. X * Revision 2.7  88/09/07  11:21:13  wolfgang
  912. X * changes for include mechanism: now a tmp file is produced which
  913. X * contains all input files for shape.
  914. X * 
  915. X * Revision 2.6  88/08/25  15:17:19  wolfgang
  916. X * stdmacros changed: the macros for sccs replaced by two macros
  917. X * for shape: SHAPEFLAGS & SHAPE.
  918. X * 
  919. X * Revision 2.5  88/08/23  16:38:06  wolfgang
  920. X * Rebuild feature added (to rebuild something from a confid).
  921. X * 
  922. X * Revision 2.4  88/08/23  10:24:28  wolfgang
  923. X * Changed ruledump() to ruledump(fd) to be able to use it for
  924. X * generating confid's.
  925. X * 
  926. X * Revision 2.3  88/08/22  17:02:12  wolfgang
  927. X * dump() changed to dump(fd).
  928. X * finis_confid added.
  929. X * 
  930. X * Revision 2.2  88/08/22  10:12:15  wolfgang
  931. X * Changed main.c, so that it is no longer necessary to have a description
  932. X * file. It's enaugh to have the name of a target to produce on the command
  933. X * line
  934. X * 
  935. X * Revision 2.1  88/08/19  10:17:37  wolfgang
  936. X * This version is part of a release
  937. X * 
  938. X */
  939. X
  940. X#include "shape.h"
  941. X#include "ParseArgs.h"
  942. X
  943. X#include <stdio.h>
  944. X
  945. X#define MAXCMDTARGETS 32
  946. X
  947. Xextern char *getwd();
  948. Xextern char *mktemp();
  949. X
  950. Xextern int hashval();
  951. Xextern void addhash();
  952. Xextern int adjust_stdrules();
  953. Xextern int dump();
  954. Xextern int ruleend();
  955. Xextern int ruledump();
  956. Xextern int errexit();
  957. Xextern int init_ruletab();
  958. Xextern int init_selruletab();
  959. Xextern int seldump();
  960. Xextern int selruledef();
  961. Xextern int stdrules();
  962. Xextern Bool is_selrule_name();
  963. Xextern int catch_sigs();
  964. X
  965. Xextern int yylex();
  966. Xextern FILE *yyin;
  967. Xextern FILE *vmfopen();
  968. X
  969. Xextern int cleanup_links();
  970. Xextern int af_cleanup();
  971. X
  972. Xextern struct linkreg *link_reg;
  973. X
  974. Xextern char *firsttarget;
  975. Xextern char ruleset[];
  976. Xextern char *stdsuff;
  977. X
  978. Xextern struct selection_rules *currule;
  979. Xextern char *busy_rule;
  980. Xextern char *longattrs[];
  981. Xextern char *template;
  982. Xextern FILE *temp;
  983. Xchar rbfile[MAXNAMLEN];
  984. X
  985. Xchar *filenames[] = {"Shapefile", "shapefile", "Makefile", "makefile"};
  986. X
  987. X#define STDMACROS 29
  988. X
  989. Xchar *stdmacros[] = { "SHAPEFLAGS=","SHAPE=shape","ASFLAGS=","AS=as",
  990. X            "RFLAGS=","FFLAGS=","FC=f77","M2FLAGS=",
  991. X            "M2C=m2c","PFLAGS=","PC=pc","CFLAGS=",
  992. X            "CC=cc","LDFLAGS=","LD=ld","LFLAGS=",
  993. X            "LEX=lex","YFLAGS=","YACC=yacc","MAKE=make",
  994. X            "$=$$","MFLAGS=-b","MAKEFLAGS=b",
  995. X                "@=$@", "?=$?", "<=$<", "*=$*",
  996. X            "+=$+"};
  997. X
  998. Xstruct linked_list *shapefiles = (struct linked_list *) NIL;
  999. X     /* list of names of files from
  1000. X    command line via the -f option */
  1001. Xstruct linked_list *shfiles;
  1002. X
  1003. Xchar *cmdtargets[MAXCMDTARGETS];
  1004. X     /* list of target form the    command line */
  1005. X
  1006. X
  1007. XBool synterrflg = FALSE;
  1008. XBool Oldsuffs = FALSE;
  1009. XBool Newsuffs = FALSE;
  1010. Xchar *suffs;
  1011. X#ifdef MEMDEBUG
  1012. XFILE *memprot;
  1013. X#endif
  1014. X
  1015. Xmain(argc, argv)
  1016. X     int argc;
  1017. X     char **argv;
  1018. X     
  1019. X{
  1020. Xint newac = 0;
  1021. Xchar **newav;
  1022. X
  1023. Xint i;
  1024. Xint k = 0;
  1025. Xint gen = AF_BUSYVERS;
  1026. Xint rev = AF_BUSYVERS;
  1027. Xchar macrostr[2048];
  1028. Xextern OptDesc odesc[];
  1029. X
  1030. X#ifdef MEMDEBUG
  1031. Xmemprot = fopen ("memprot", "w");
  1032. X#endif
  1033. X
  1034. Xrebuildflg = FALSE;
  1035. Xbpoolflg = TRUE;
  1036. X
  1037. Xcatch_sigs(); 
  1038. X
  1039. Xif (argc != 1)
  1040. X  {
  1041. X    if(ParseArgs (argc, argv, &newac, &newav, odesc))
  1042. X      {
  1043. X    pa_ShortUsage(argv[0], odesc, "\n\t      rtfm! (read the manual)");
  1044. X    exit(1);
  1045. X      }
  1046. X  }
  1047. X
  1048. Xif ((curvpath[0] = malloc(MAXNAMLEN)) == NIL)
  1049. X  errexit(10,"malloc");
  1050. X(void) getwd(curvpath[0]);
  1051. Xinit_ruletab();
  1052. Xinit_selruletab();
  1053. X(void) mktemp(template);
  1054. Xtemp = fopen(template,"w");
  1055. Xif(logflg)
  1056. X  {
  1057. X    logfd = fopen("SHAPE.LOGFILE","a");
  1058. X    for (i = 0; i<argc; i++)
  1059. X      fprintf(logfd,"%s ", argv[i]);
  1060. X    fprintf(logfd,"\n");
  1061. X    (void) fclose(logfd);
  1062. X  }
  1063. X
  1064. Xfor(i = 0; i < newac; i++)
  1065. X  {
  1066. X    if (index(newav[i],'=') != NIL)
  1067. X      {
  1068. X    (void) strcpy(macrostr,newav[i]);
  1069. X    macrodef(macrostr);
  1070. X      }
  1071. X  }
  1072. X
  1073. Xfor (i = 0; i < STDMACROS; i++)
  1074. X     macrodef(stdmacros[i]);
  1075. X
  1076. X
  1077. Xif  (!rebuildflg)
  1078. X  {
  1079. X
  1080. X    if (fileflg)
  1081. X      {
  1082. X    shfiles = shapefiles;
  1083. X    while(shfiles != (struct linked_list *) NIL)
  1084. X      {
  1085. X        if ((yyin = vmfopen(shfiles->string,"r", gen, rev)) == (FILE *)NIL)
  1086. X          errexit(12,shfiles->string);
  1087. X        else
  1088. X          {
  1089. X        get_macros(yyin);
  1090. X        (void) fclose(yyin);
  1091. X          }
  1092. X        shfiles = shfiles->nextstring;
  1093. X      }
  1094. X    if (stdinflg == TRUE)
  1095. X      get_macros(stdin);
  1096. X      }
  1097. X    else
  1098. X      {
  1099. X    for ( i = 0; i <= 3; i++)
  1100. X      {
  1101. X        if ((yyin = vmfopen (filenames[i], "r", gen, rev)) != (FILE *)NIL) 
  1102. X          break;
  1103. X      }
  1104. X    if (yyin == (FILE *)NIL)
  1105. X      nostdfile = TRUE;
  1106. X    else
  1107. X      {
  1108. X        nostdfile = FALSE;
  1109. X        get_macros(yyin);
  1110. X        (void) fclose(yyin);
  1111. X      }
  1112. X      }
  1113. X  }
  1114. X
  1115. Xelse
  1116. X  {
  1117. X    if(( yyin = vmfopen(rbfile, "r", gen, rev)) == (FILE *) NIL)
  1118. X      errexit(12, rbfile);
  1119. X    get_macros(yyin);
  1120. X    (void) fclose(yyin);
  1121. X  }
  1122. X
  1123. X(void) fclose(temp);
  1124. X
  1125. Xfor(i = 0; i < newac; i++)
  1126. X  {
  1127. X    if (index(newav[i],'=') != NIL)
  1128. X      macrodef(newav[i]);
  1129. X    else
  1130. X      {
  1131. X    if ((cmdtargets[k] = malloc((unsigned) (strlen(newav[i]) + sizeof(char)))) == NIL)
  1132. X      errexit(10,"malloc");
  1133. X    (void) strcpy(cmdtargets[k++],newav[i]);
  1134. X    cmdtargets[k] = NIL;
  1135. X      }
  1136. X  }
  1137. X
  1138. Xadd_stdrules();
  1139. Xfirsttarget = NIL;
  1140. X
  1141. Xif ((yyin = fopen(template,"r")) == (FILE *)NIL)
  1142. X  errexit(12,template);
  1143. Xelse
  1144. X  {
  1145. X    (void) unlink(template);
  1146. X    (void) yylex();
  1147. X    (void) fclose(yyin);
  1148. X  }
  1149. X
  1150. X
  1151. Xif (synterrflg == TRUE)
  1152. X  errexit(15,NIL);
  1153. X
  1154. Xruleend(); /* just for security ????  */
  1155. X
  1156. Xadjust_stdrules(suffs);
  1157. X
  1158. X/* add busy rule */
  1159. X
  1160. Xselruledef(busy_rule);
  1161. X(void) is_selrule_name("-STD-");
  1162. X
  1163. Xinitattrfield();
  1164. X
  1165. Xproduce();
  1166. X/*
  1167. X#ifdef DEBUG_HASH
  1168. Xdump();
  1169. X#endif DEBUG_HASH
  1170. X#ifdef DEBUG_RULE
  1171. Xruledump(stdout);
  1172. X#endif DEBUG_RULE
  1173. X#ifdef DEBUG_SELRULE
  1174. Xseldump();
  1175. X#endif DEBUG_SELRULE */
  1176. X(void) fclose(yyin);
  1177. Xif (confid)
  1178. X  {
  1179. X    finish_confid();
  1180. X    af_close(cid);
  1181. X  }
  1182. Xif (debugflg)
  1183. X  {
  1184. X    if (suffs_deleted)
  1185. X      printf("no suffix list");
  1186. X    dump(stdout);  /* dumping macros */
  1187. X    ruledump(stdout); /* dumping targets, dependents & commands, resp. */
  1188. X  }
  1189. X
  1190. Xif (printflg)
  1191. X  {
  1192. X    if (suffs_deleted)
  1193. X      printf("no suffix list");
  1194. X    dump(stdout);  /* dumping macros */
  1195. X    ruledump(stdout); /* dumping targets, dependents & commands, resp. */
  1196. X  }
  1197. X
  1198. Xcleanup_links(link_reg);
  1199. Xaf_cleanup();
  1200. Xexit(0);
  1201. X}
  1202. X
  1203. Xint initattrfield()
  1204. X{
  1205. X  int i;
  1206. X  for(i = 0; i < MAXDEPTH; i++)
  1207. X    {
  1208. X      if((longattrs[i] = malloc(MAX_ATTR)) == NIL)
  1209. X    errexit(10,"malloc");
  1210. X      (void) strcpy(longattrs[i],"");
  1211. X    }
  1212. X}
  1213. X
  1214. X    
  1215. END_OF_FILE
  1216. if test 8311 -ne `wc -c <'src/shape/main.c'`; then
  1217.     echo shar: \"'src/shape/main.c'\" unpacked with wrong size!
  1218. fi
  1219. # end of 'src/shape/main.c'
  1220. fi
  1221. if test -f 'src/shape/shape.l' -a "${1}" != "-c" ; then 
  1222.   echo shar: Will not clobber existing file \"'src/shape/shape.l'\"
  1223. else
  1224. echo shar: Extracting \"'src/shape/shape.l'\" \(8084 characters\)
  1225. sed "s/^X//" >'src/shape/shape.l' <<'END_OF_FILE'
  1226. X%a 40000
  1227. X%p 20000
  1228. X%o 10000
  1229. X
  1230. X%{
  1231. X/*
  1232. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1233. X *  and U. Pralle
  1234. X * 
  1235. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  1236. X * WARRANTY for any part of this software to work correctly or as described
  1237. X * in the manuals. We do not accept any liability for any kind of damage
  1238. X * caused by use of this software, such as loss of data, time, money, or 
  1239. X * effort.
  1240. X * 
  1241. X * Permission is granted to use, copy, modify, or distribute any part of
  1242. X * this software as long as this is done without asking for charge, and
  1243. X * provided that this copyright notice is retained as part of the source
  1244. X * files. You may charge a distribution fee for the physical act of
  1245. X * transferring a copy, and you may at your option offer warranty
  1246. X * protection in exchange for a fee.
  1247. X * 
  1248. X * Direct questions to: Tech. Univ. Berlin
  1249. X *              Wilfried Koch
  1250. X *              Sekr. FR 5-6 
  1251. X *              Franklinstr. 28/29
  1252. X *              D-1000 Berlin 10, West Germany
  1253. X * 
  1254. X *              Tel: +49-30-314-22972
  1255. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1256. X */
  1257. X/*
  1258. X *    Scanner for SHAPE
  1259. X */
  1260. X
  1261. X#ifndef lint
  1262. Xstatic char *RCSid = "$Header: shape.l,v 3.1 89/02/14 11:06:40 wolfgang Exp $";
  1263. X#endif
  1264. X#ifndef lint
  1265. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  1266. X#endif
  1267. X/*
  1268. X * $Log:    shape.l,v $
  1269. X * Revision 3.1  89/02/14  11:06:40  wolfgang
  1270. X * YYLMAX increased to 20000
  1271. X * 
  1272. X * Revision 3.0  89/01/24  11:35:50  wolfgang
  1273. X * New System Generation
  1274. X * 
  1275. X * Revision 2.13  89/01/18  13:17:10  wolfgang
  1276. X * bug fixed. didn't recognize lines with a single TAB as layout line.
  1277. X * 
  1278. X * Revision 2.12  89/01/03  13:10:56  wolfgang
  1279. X * changes done for lint
  1280. X * 
  1281. X * Revision 2.11  88/12/21  15:03:37  wolfgang
  1282. X * changes done for lint
  1283. X * 
  1284. X * Revision 2.10  88/11/21  15:49:23  wolfgang
  1285. X * return code of all malloc's checked
  1286. X * 
  1287. X * Revision 2.9  88/11/21  12:46:12  wolfgang
  1288. X * yyless deleted
  1289. X * 
  1290. X * Revision 2.8  88/10/18  17:42:31  wolfgang
  1291. X * new variant handling
  1292. X * 
  1293. X * Revision 2.7  88/10/06  15:41:10  wolfgang
  1294. X * no more macrodefs evaluated by lex
  1295. X * 
  1296. X * Revision 2.6  88/09/07  11:20:15  wolfgang
  1297. X * any2 changed ==> no comments are allowed within rule- or variant-section!
  1298. X * 
  1299. X * Revision 2.5  88/08/23  14:05:30  wolfgang
  1300. X * YYLMAX increased to 10000 (Scheiss LEX)
  1301. X * 
  1302. X * Revision 2.4  88/08/12  09:08:00  wolfgang
  1303. X * This version is part of a release
  1304. X * 
  1305. X * Revision 2.2  88/08/12  08:58:11  wolfgang
  1306. X * This version is part of a release
  1307. X * 
  1308. X */
  1309. X
  1310. X
  1311. X#include <stdio.h>
  1312. X#include <ctype.h>
  1313. X#include "shape.h"
  1314. X
  1315. Xextern char *malloc();
  1316. X
  1317. Xextern struct hash *hashtab[];
  1318. Xextern char *sel_rule_name;
  1319. Xextern Bool synterrflg;
  1320. Xextern Bool Oldsuffs;
  1321. Xextern Bool Newsuffs;
  1322. Xextern char *shaperules;
  1323. Xextern char *stdsuff;
  1324. Xextern char *expandmacro();
  1325. X
  1326. Xextern int macrodef();
  1327. Xextern int ruledef();
  1328. Xextern int rulecont();
  1329. Xextern int ruleend();
  1330. Xextern int selruledef();
  1331. Xextern int vclassdef();
  1332. Xextern int errexit();
  1333. X#undef YYLMAX
  1334. X#define YYLMAX 20000  /* Scheiss LEX */
  1335. Xchar *ppp;
  1336. Xextern char *suffs;
  1337. Xextern char *suffs;
  1338. XBool suffs_deleted = FALSE;
  1339. X%}
  1340. X%START RULEDEF RULESEC VARSEC
  1341. XWhiteSpace    [ \t\n]
  1342. XLayout        [ \t]
  1343. XBlank        " "
  1344. XColon        ":"
  1345. XPeriod        "."
  1346. XSemi        ";"
  1347. XSemiperiod    [;.]
  1348. XSemicomma    [;,]
  1349. XLayoutline    {Layout}*\n
  1350. XTab        \t
  1351. XNotab        [^\t]
  1352. XAny        .\n
  1353. XAny2        [^#]
  1354. XAnybutnewline    .
  1355. XNC1        "\\\n"
  1356. XNC3        "\\\n"
  1357. XNC2        [^#\n]*
  1358. XNC4        [^\n]*
  1359. XNocomment    ({NC1}*|{NC2}?)*\n?
  1360. XNocomment2    ({NC3}*|{NC4}?)*\n?
  1361. XMacroname    [0-9a-zA-Z_-]
  1362. XVcl        "::=".*
  1363. XVclass        "vclass"{Layout}*{Ruledef}{Nocomment}
  1364. XMacrodef    {Macroname}+{Layout}*"="{Layout}*{Nocomment}
  1365. XRulesecstart    "#%"{Layout}*"RULE-SECTION"{Layout}*
  1366. XRulesecend    "#%"{Layout}*"END-RULE-SECTION"{Layout}*
  1367. XSelectionrule    {Rulesecstart}+{Any2}*{Rulesecend}+
  1368. XVarsecstart    "#%"{Layout}*"VARIANT-SECTION"{Layout}*
  1369. XVarsecend    "#%"{Layout}*"END-VARIANT-SECTION"{Layout}*
  1370. XDepstart    [@%0-9a-zA-Z.\-/$("{""}")_~,]
  1371. XDepcont        [@%0-9a-zA-Z.\-/\t $("{""}")_~,+]
  1372. XSuff        [a-zA-Z0-9~,]
  1373. XRuledef        {Depstart}+{Depcont}*{Colon}+{Colon}*{Depcont}*{Nocomment}
  1374. XRulecont    {Tab}+{Nocomment2}
  1375. XOthers        [^#\n]
  1376. X%%
  1377. X
  1378. X{Selectionrule}    {
  1379. X#ifdef DEBUG_LEX
  1380. X        fprintf(yyout, "\nSelection Rule: %s\n", yytext);
  1381. X#endif DEBUG_LEX
  1382. X(void) strcpy(yytext,expandmacro(yytext));
  1383. X        selruledef(yytext);
  1384. X        }
  1385. X
  1386. X{Varsecstart}    {
  1387. X#ifdef DEBUG_LEX
  1388. X        fprintf(yyout, "\nVariant Section Start: %s\n", yytext);
  1389. X#endif DEBUG_LEX
  1390. X        ;
  1391. X        BEGIN VARSEC;
  1392. X        }
  1393. X
  1394. X<VARSEC>^{Tab}{Macrodef}    {
  1395. X#ifdef DEBUG_LEX
  1396. X        fprintf(yyout, "\nMacro in variant section: %s\n", yytext);
  1397. X#endif DEBUG_LEX
  1398. X        varmacrodef(yytext);
  1399. X        }
  1400. X
  1401. X<VARSEC>^{Layoutline}$    {
  1402. X#ifdef DEBUG_LEX
  1403. X        fprintf(yyout,"\n Layoutline in variant section\n");
  1404. X#endif DEBUG_LEX
  1405. X        }
  1406. X
  1407. X
  1408. X<VARSEC>^"\n"    {
  1409. X#ifdef DEBUG_LEX
  1410. X        fprintf(yyout,"\n Empty line in variant section\n");
  1411. X#endif DEBUG_LEX
  1412. X        }
  1413. X
  1414. X<VARSEC>{Ruledef}    {
  1415. X#ifdef DEBUG_LEX
  1416. X        fprintf(yyout, "\nVariant name: %s\n", yytext);
  1417. X#endif DEBUG_LEX
  1418. X        varsec_name(yytext);
  1419. X        }
  1420. X
  1421. X<VARSEC>{Varsecend}    {
  1422. X#ifdef DEBUG_LEX
  1423. X        fprintf(yyout, "\nVarsec end: %s\n", yytext);
  1424. X#endif DEBUG_LEX
  1425. X        ;
  1426. X        BEGIN 0;
  1427. X        }
  1428. X
  1429. X<VARSEC>{Vclass}    {
  1430. X#ifdef DEBUG_LEX
  1431. X        fprintf(yyout, "\nvclass definition: %s\n", yytext);
  1432. X#endif DEBUG_LEX
  1433. X        vclassdef(yytext);        
  1434. X        }
  1435. X
  1436. X
  1437. X<RULEDEF>^{Macrodef}    {
  1438. X        ruleend();
  1439. X#ifdef DEBUG_LEX
  1440. X        fprintf(yyout, "\n Ruledef end found\n");
  1441. X        fprintf(yyout, "\nMacrodefinition: %s\n", yytext);
  1442. X#endif DEBUG_LEX
  1443. X        /* if (yytext[yyleng-1] == '\n')
  1444. X              yytext[yyleng-1] = '\0';
  1445. X        macrodef(yytext) */ ;
  1446. X        BEGIN 0;
  1447. X        }
  1448. X
  1449. X<RULEDEF>{Varsecstart}    {
  1450. X        ruleend();
  1451. X#ifdef DEBUG_LEX
  1452. X        fprintf(yyout, "\n Ruledef end found\n");
  1453. X        fprintf(yyout, "\nVarsec start: %s\n", yytext);
  1454. X#endif DEBUG_LEX
  1455. X        /* if (yytext[yyleng-1] == '\n')
  1456. X              yytext[yyleng-1] = '\0';
  1457. X        macrodef(yytext) */ ;
  1458. X        BEGIN VARSEC;
  1459. X        }
  1460. X
  1461. X
  1462. X^{Macrodef}    {
  1463. X#ifdef DEBUG_LEX
  1464. X        fprintf(yyout, "\nMacrodefinition: %s\n", yytext);
  1465. X#endif DEBUG_LEX
  1466. X        /* if (yytext[yyleng-1] == '\n')
  1467. X            yytext[yyleng-1] = '\0';
  1468. X        macrodef(yytext) */ ;
  1469. X        }
  1470. X
  1471. X^{Rulesecstart}    {
  1472. X#ifdef DEBUG_LEX
  1473. X        fprintf(yyout, "\nRulesec starts: %s\n", yytext);
  1474. X#endif DEBUG_LEX
  1475. X        BEGIN RULESEC;
  1476. X        }
  1477. X
  1478. X
  1479. X^{Ruledef}    {
  1480. X#ifdef DEBUG_LEX
  1481. X        fprintf(yyout, "\n Rule: %s\n", yytext);
  1482. X#endif DEBUG_LEX
  1483. X        ruleend();
  1484. X        if (yytext[yyleng-1] == '\n')
  1485. X            yytext[yyleng-1] = '\0';
  1486. X        if ((strncmp(yytext,".SUFFIXES:",10) == 0))
  1487. X            {
  1488. X            if((ppp = index(yytext,'%')) == NIL)
  1489. X            /* old style suffix list */
  1490. X                {
  1491. X                    Oldsuffs = TRUE;
  1492. X                ppp = yytext + 10;
  1493. X                if (index(ppp,'.') != NIL)
  1494. X                    {
  1495. X                    if ((suffs = malloc((unsigned) 
  1496. X                          (strlen(yytext) +
  1497. X                           strlen(stdsuff) + 3))) == NIL)
  1498. X                          errexit(10,"malloc");
  1499. X                    suffs[0] = '\0';
  1500. X                        (void) strcat(suffs,".SUFFIXES: ");
  1501. X                    if (!suffs_deleted)
  1502. X                        (void) strcat(suffs,stdsuff);
  1503. X                        (void) strcat(suffs,ppp);
  1504. X                    suffs_deleted = FALSE;
  1505. X                    }
  1506. X                else
  1507. X                    {
  1508. X                    suffs_deleted = TRUE;
  1509. X                    }
  1510. X                }
  1511. X            else
  1512. X                {
  1513. X                /* new style suffixes */
  1514. X                Newsuffs = TRUE;
  1515. X                ppp = yytext + 10;
  1516. X                if ((suffs =
  1517. X                     malloc ((unsigned) 
  1518. X                     (strlen(yytext) + strlen(shaperules)
  1519. X                        + 3))) == NIL)
  1520. X                      errexit(10,"malloc");
  1521. X                suffs[0] = '\0';
  1522. X                    (void) strcat(suffs,".SUFFIXES");
  1523. X                if (!suffs_deleted)
  1524. X                    (void) strcat(suffs,shaperules);
  1525. X                    (void) strcat(suffs,ppp);
  1526. X                suffs_deleted = FALSE;
  1527. X                }
  1528. X#ifdef DEBUG_LEX
  1529. Xfprintf(yyout,"suffixes:%s\n", suffs);
  1530. X#endif DEBUG_LEX
  1531. X            }
  1532. X        else    
  1533. X            ruledef(yytext);        
  1534. X        BEGIN RULEDEF;
  1535. X        }
  1536. X
  1537. X<RULEDEF>^{Layoutline}$    {
  1538. X#ifdef DEBUG_LEX
  1539. X        fprintf(yyout,"\n Layoutline in ruledef\n");
  1540. X#endif DEBUG_LEX
  1541. X        }
  1542. X
  1543. X<RULEDEF>^{Rulecont}    {
  1544. X#ifdef DEBUG_LEX
  1545. X        fprintf(yyout, "\n Rulecont: %s\n", yytext);
  1546. X#endif DEBUG_LEX
  1547. X        /* strcpy(yytext,expandmacro(yytext)); */
  1548. X        rulecont(yytext);        
  1549. X        }
  1550. X
  1551. X
  1552. X
  1553. X<RULEDEF>^{Notab}    {
  1554. X#ifdef DEBUG_LEX
  1555. X        fprintf(yyout, "\n Ruledef end found\n");
  1556. X#endif DEBUG_LEX
  1557. X        ruleend();
  1558. X        yyless(yyleng-1);
  1559. X        BEGIN 0;
  1560. X        }
  1561. X^{Layoutline}$    {
  1562. X#ifdef DEBUG_LEX
  1563. X        fprintf(yyout,"\n Layoutline\n");
  1564. X#endif DEBUG_LEX
  1565. X        }
  1566. X
  1567. X^{Blank}*    {
  1568. X#ifdef DEBUG_LEX
  1569. X        fprintf(yyout,"\n Layoutline\n");
  1570. X#endif DEBUG_LEX
  1571. X        }
  1572. X
  1573. X^{Tab}*        {
  1574. X#ifdef DEBUG_LEX
  1575. X        fprintf(yyout,"\n Layoutline\n");
  1576. X#endif DEBUG_LEX
  1577. X        }    
  1578. X
  1579. X\n        {
  1580. X        ;
  1581. X        }
  1582. X
  1583. X^\n        {
  1584. X        ;
  1585. X        }
  1586. X
  1587. X{Others}*    {
  1588. X        synterrflg = TRUE;
  1589. X        errexit(14,yytext);
  1590. X        BEGIN 0;
  1591. X        }
  1592. X
  1593. X%%
  1594. END_OF_FILE
  1595. if test 8084 -ne `wc -c <'src/shape/shape.l'`; then
  1596.     echo shar: \"'src/shape/shape.l'\" unpacked with wrong size!
  1597. fi
  1598. # end of 'src/shape/shape.l'
  1599. fi
  1600. if test -f 'src/shape/varsec.c' -a "${1}" != "-c" ; then 
  1601.   echo shar: Will not clobber existing file \"'src/shape/varsec.c'\"
  1602. else
  1603. echo shar: Extracting \"'src/shape/varsec.c'\" \(8140 characters\)
  1604. sed "s/^X//" >'src/shape/varsec.c' <<'END_OF_FILE'
  1605. X/*
  1606. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1607. X *  and U. Pralle
  1608. X * 
  1609. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  1610. X * WARRANTY for any part of this software to work correctly or as described
  1611. X * in the manuals. We do not accept any liability for any kind of damage
  1612. X * caused by use of this software, such as loss of data, time, money, or 
  1613. X * effort.
  1614. X * 
  1615. X * Permission is granted to use, copy, modify, or distribute any part of
  1616. X * this software as long as this is done without asking for charge, and
  1617. X * provided that this copyright notice is retained as part of the source
  1618. X * files. You may charge a distribution fee for the physical act of
  1619. X * transferring a copy, and you may at your option offer warranty
  1620. X * protection in exchange for a fee.
  1621. X * 
  1622. X * Direct questions to: Tech. Univ. Berlin
  1623. X *              Wilfried Koch
  1624. X *              Sekr. FR 5-6 
  1625. X *              Franklinstr. 28/29
  1626. X *              D-1000 Berlin 10, West Germany
  1627. X * 
  1628. X *              Tel: +49-30-314-22972
  1629. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1630. X */
  1631. X#ifndef lint
  1632. Xstatic char *RCSid = "$Header: varsec.c,v 3.0 89/01/24 11:37:15 wolfgang Stable $";
  1633. X#endif
  1634. X#ifndef lint
  1635. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  1636. X#endif
  1637. X/*
  1638. X * $Log:    varsec.c,v $
  1639. X * Revision 3.0  89/01/24  11:37:15  wolfgang
  1640. X * New System Generation
  1641. X * 
  1642. X * Revision 2.18  89/01/03  13:14:14  wolfgang
  1643. X * changes done for lint
  1644. X * 
  1645. X * Revision 2.17  88/12/21  15:13:22  wolfgang
  1646. X * changes done for lint
  1647. X * 
  1648. X * Revision 2.16  88/11/22  18:32:17  wolfgang
  1649. X * bug fixed: missing initialisation.
  1650. X * 
  1651. X * Revision 2.15  88/11/21  15:48:20  wolfgang
  1652. X * return code of all malloc's checked
  1653. X * 
  1654. X * Revision 2.14  88/11/03  17:30:22  wolfgang
  1655. X * bug fixed in is_varname().
  1656. X * 
  1657. X * Revision 2.13  88/10/27  16:37:34  wolfgang
  1658. X * bugs fixed (new variant handling).
  1659. X * 
  1660. X * Revision 2.12  88/10/26  13:13:36  wolfgang
  1661. X * changes done for new syntax of variant deps
  1662. X * 
  1663. X * Revision 2.11  88/10/24  16:21:56  wolfgang
  1664. X * another segmentation violation fixed in is_varname().
  1665. X * 
  1666. X * Revision 2.10  88/10/21  11:36:37  wolfgang
  1667. X * bug fixed in is_varname: produced a segmentation violation ($(RULE)+.
  1668. X * 
  1669. X * Revision 2.9  88/10/20  13:20:16  wolfgang
  1670. X * 
  1671. X * bug fixed in is_varname: string = "+" caused segmentation violation.
  1672. X * 
  1673. X * Revision 2.8  88/10/18  17:41:56  wolfgang
  1674. X * nearly newly written (for new variant handling)
  1675. X * 
  1676. X * Revision 2.7  88/10/14  17:15:05  wolfgang
  1677. X * varsecname() & varmacrodef() added. vardump() changed.
  1678. X * 
  1679. X * Revision 2.6  88/09/19  18:40:29  wolfgang
  1680. X * Bug fixes. Second endless loop in check_vclass. Shit!!!!
  1681. X * 
  1682. X * Revision 2.5  88/09/19  18:11:36  wolfgang
  1683. X * bug fixed (endless loop in check_vclass).
  1684. X * 
  1685. X * Revision 2.4  88/09/15  18:41:05  wolfgang
  1686. X * check_vclass & reset_vclass added.
  1687. X * 
  1688. X * Revision 2.3  88/09/15  12:42:54  wolfgang
  1689. X * bug fixed.
  1690. X * 
  1691. X * Revision 2.2  88/08/23  11:23:40  wolfgang
  1692. X * New procedure added: vardump(fd). To be used for the generation of
  1693. X * confid's. Dumps the variant section.
  1694. X * 
  1695. X * Revision 2.1  88/08/19  10:18:16  wolfgang
  1696. X * This version is part of a release
  1697. X * 
  1698. X */
  1699. X
  1700. X#include <sys/types.h>
  1701. X#include <sys/dir.h>
  1702. X
  1703. X#include "shape.h"
  1704. X#include "varsec.h"
  1705. X
  1706. Xvarsec_name(string)
  1707. X     char *string;
  1708. X{
  1709. X  char *p;
  1710. X  int k = 0;
  1711. X
  1712. X  if (( p = index(string,':')) == 0)
  1713. X    errexit(14, string);
  1714. X
  1715. X  *p = '\0';
  1716. X  while((vardefs[k] != (struct vardef *) NIL))
  1717. X    {
  1718. X      if (!strcmp(vardefs[k]->name,string))
  1719. X    errexit(33, string);
  1720. X      k++;
  1721. X    }
  1722. X  if ((vardefs[k] = (struct vardef *) malloc (sizeof (struct vardef))) == (struct vardef *) NIL)
  1723. X    errexit(10,"malloc");
  1724. X  if ((vardefs[k]->name = malloc((unsigned) (strlen(string) + sizeof(char)))) == NIL)
  1725. X    errexit(10,"malloc");
  1726. X  (void) strcpy(vardefs[k]->name, string);
  1727. X
  1728. X  lastvardef = k;
  1729. X  vardefs[k+1] = (struct vardef *) NIL;
  1730. X
  1731. X  vardefs[k]->vpath = NIL;
  1732. X  vardefs[k]->vflags = NIL;
  1733. X  
  1734. X  for(k = 0; k < MAXVMACROS; k++)
  1735. X    vardefs[lastvardef]->vmacros[k] = NIL;
  1736. X}
  1737. X
  1738. X
  1739. Xvarmacrodef(string)
  1740. X     char *string;
  1741. X{
  1742. X  char *p;
  1743. X  int k = 0;
  1744. X
  1745. X  if (string[strlen(string) - 1] == '\n')
  1746. X    string[strlen(string) - 1] = '\0';
  1747. X
  1748. X  while((*string == '\t') || (*string == ' '))
  1749. X    string++;
  1750. X
  1751. X  if(!strncmp(string,"vpath",5))
  1752. X    {
  1753. X      if ((p = index(string,'=')) == NIL)
  1754. X    errexit(7, string);
  1755. X      p++;
  1756. X      while((*p == ' ') || (*p == '\t'))
  1757. X    p++;
  1758. X      
  1759. X      if ((vardefs[lastvardef]->vpath = malloc((unsigned) (strlen(p)+sizeof(char)))) == NIL)
  1760. X    errexit(10,"malloc");
  1761. X      (void) strcpy(vardefs[lastvardef]->vpath,p);
  1762. X      return;
  1763. X    }
  1764. X
  1765. X  if(!strncmp(string,"vflags",6))
  1766. X    {
  1767. X      if ((p = index(string,'=')) == NIL)
  1768. X    errexit(7, string);
  1769. X      p++;
  1770. X      while((*p == ' ') || (*p == '\t'))
  1771. X    p++;
  1772. X      
  1773. X      if ((vardefs[lastvardef]->vflags = malloc((unsigned) (strlen(p)+sizeof(char)))) == NIL)
  1774. X    errexit(10,"malloc");
  1775. X      (void) strcpy(vardefs[lastvardef]->vflags,p);
  1776. X      return;
  1777. X    }
  1778. X
  1779. X  while(vardefs[lastvardef]->vmacros[k] != NIL)
  1780. X    k++;
  1781. X  
  1782. X  if ((vardefs[lastvardef]->vmacros[k] = malloc((unsigned) (strlen(string) + sizeof(char)))) == NIL)
  1783. X    errexit(10,"malloc");
  1784. X  (void) strcpy(vardefs[lastvardef]->vmacros[k],string);
  1785. X}
  1786. X  
  1787. X
  1788. X
  1789. Xint vardump(fd)
  1790. X     FILE *fd;
  1791. X{
  1792. Xint i = 0;
  1793. Xint k = 0;
  1794. X
  1795. Xif (vardefs[i] != (struct vardef *) NIL)
  1796. X  {
  1797. X
  1798. X    fprintf(fd,"#%% VARIANT-SECTION\n");
  1799. X
  1800. X    for(i = 0; vardefs[i] != (struct vardef *) NIL; i++)
  1801. X      {
  1802. X    fprintf(fd,"\n");
  1803. X
  1804. X    fprintf(fd,"%s:\n", vardefs[i]->name);
  1805. X
  1806. X    if(vardefs[i]->vflags != NIL)
  1807. X      fprintf(fd,"\tvflags = %s\n", vardefs[i]->vflags);
  1808. X
  1809. X    if(vardefs[i]->vpath != NIL)
  1810. X      fprintf(fd,"\tvpath = %s\n", vardefs[i]->vpath);
  1811. X
  1812. X    while(vardefs[i]->vmacros[k] != NIL)
  1813. X      {
  1814. X        fprintf(fd,"\t%s\n",vardefs[i]->vmacros[k]);
  1815. X        k++;
  1816. X      }
  1817. X    k = 0;
  1818. X      }
  1819. X    fprintf(fd,"\n");
  1820. X
  1821. X    fprintf(fd,"#%% END-VARIANT-SECTION\n");
  1822. X    
  1823. X    (void) fflush(fd);
  1824. X  }
  1825. X}
  1826. X
  1827. X        
  1828. Xvclassdef(string)
  1829. X     char *string;
  1830. X{
  1831. Xchar *p;
  1832. Xchar *vname;
  1833. Xint k = 0;
  1834. Xint l = 0;
  1835. Xint j = 0;
  1836. Xchar vc[32];
  1837. X
  1838. Xif ((p = index(string,' ')) == NIL)
  1839. X  errexit(14,string);
  1840. Xelse
  1841. X  {
  1842. X    *p = '\0';
  1843. X    p++;
  1844. X    vname = p;
  1845. X    string = p;
  1846. X    if ((p = index(string,':')) == NIL)
  1847. X      errexit(14,string);
  1848. X    *p = '\0';
  1849. X    string++;
  1850. X    if ((p = index(vname,' ')) != NIL)
  1851. X      *p = '\0';
  1852. X    while(vclass[k] != (struct varclass *) NIL)
  1853. X      k++;
  1854. X    if((vclass[k] = (struct varclass *) malloc( sizeof (struct varclass))) == (struct varclass *) NIL)
  1855. X      errexit(10,"malloc");
  1856. X    if ((vclass[k]->name = malloc((unsigned) (strlen(vname) + sizeof(char)))) == NIL)
  1857. X      errexit(10,"malloc");
  1858. X    (void) strcpy(vclass[k]->name,vname);
  1859. X    vclass[k]->active = -1;
  1860. X  }
  1861. X
  1862. Xwhile(*string != '(')
  1863. X  string++;
  1864. X
  1865. Xstring++;
  1866. X
  1867. Xwhile(*string != ')')
  1868. X  {
  1869. X    while((*string == ' ') || (*string == '\t'))
  1870. X      string++;
  1871. X
  1872. X    while((*string != ',') && (*string != ')'))
  1873. X      {
  1874. X    vc[j] = *string;
  1875. X    string++;
  1876. X    j++;
  1877. X      }
  1878. X    if (*string == ',')
  1879. X      string++;
  1880. X
  1881. X    vc[j] = '\0';
  1882. X    if ((vclass[k]->variants[l] = malloc((unsigned) (strlen(vc) + sizeof(char)))) == NIL)
  1883. X      errexit(10,"malloc");
  1884. X    (void) strcpy(vclass[k]->variants[l],vc);
  1885. X    l++;
  1886. X    vclass[k]->variants[l] = NIL;
  1887. X    j = 0;
  1888. X    while((*string == ' ') || (*string == '\t'))
  1889. X      string++;
  1890. X  }
  1891. X}
  1892. X
  1893. X    
  1894. XBool check_vclass(varname)
  1895. X     char *varname;
  1896. X{
  1897. X  int i = 0;
  1898. X  int j = 0;
  1899. X  
  1900. X  while(vclass[i] != (struct varclass *) NIL)
  1901. X    {
  1902. X      j = 0;
  1903. X      while(vclass[i]->variants[j] != NIL)
  1904. X    {
  1905. X      if(strcmp(vclass[i]->variants[j],varname) == 0)
  1906. X        {
  1907. X          if((vclass[i]->active != -1) && (vclass[i]->active != j))
  1908. X        return(FALSE);
  1909. X          vclass[i]->active = j;
  1910. X          return(TRUE);
  1911. X        }
  1912. X      j++;
  1913. X    }
  1914. X      i++;
  1915. X    }
  1916. X  if(vclass[i] == (struct varclass *) NIL)
  1917. X    return(TRUE);
  1918. X/*NOTREACHED*/
  1919. Xreturn(FALSE);
  1920. X}
  1921. X
  1922. Xreset_vclass()
  1923. X{
  1924. X  int i = 0;
  1925. X
  1926. X  while( vclass[i] != (struct varclass *) NIL)
  1927. X    {
  1928. X      vclass[i]->active = -1;
  1929. X      i++;
  1930. X    }
  1931. X}
  1932. X
  1933. X
  1934. X    
  1935. XBool is_varname(string)
  1936. X     char *string;
  1937. X{
  1938. X  char *p;
  1939. X  int k = 0;
  1940. X
  1941. X  if(string == NIL)
  1942. X    return(FALSE);
  1943. X
  1944. X  if(string[0] != '+')
  1945. X    return(FALSE);
  1946. X
  1947. X  p = index(string,'+');
  1948. X  p++;
  1949. X
  1950. X  while(vardefs[k] != (struct vardef *) NIL)
  1951. X    {
  1952. X      if(!strcmp(vardefs[k]->name,p))
  1953. X    return(TRUE);
  1954. X      k++;
  1955. X    }
  1956. X  return(FALSE);
  1957. X}
  1958. END_OF_FILE
  1959. if test 8140 -ne `wc -c <'src/shape/varsec.c'`; then
  1960.     echo shar: \"'src/shape/varsec.c'\" unpacked with wrong size!
  1961. fi
  1962. # end of 'src/shape/varsec.c'
  1963. fi
  1964. echo shar: End of archive 9 \(of 33\).
  1965. cp /dev/null ark9isdone
  1966. MISSING=""
  1967. for I in 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 ; do
  1968.     if test ! -f ark${I}isdone ; then
  1969.     MISSING="${MISSING} ${I}"
  1970.     fi
  1971. done
  1972. if test "${MISSING}" = "" ; then
  1973.     echo You have unpacked all 33 archives.
  1974.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1975. else
  1976.     echo You still need to unpack the following archives:
  1977.     echo "        " ${MISSING}
  1978. fi
  1979. ##  End of shell archive.
  1980. exit 0
  1981.