home *** CD-ROM | disk | FTP | other *** search
/ Usenet 1994 October / usenetsourcesnewsgroupsinfomagicoctober1994disk2.iso / unix / volume19 / shape / part05 < prev    next >
Text File  |  1989-05-31  |  58KB  |  1,965 lines
  1. Subject:  v19i018:  A software configuration management system, Part05/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 18
  8. Archive-name: shape/part05
  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 5 (of 33)."
  19. # Contents:  man/man3/afmisc.3 src/afs/Makefile.distribution
  20. #   src/afs/afkeys.c src/afs/lcs.gedc.c src/shape/Shapefile
  21. #   src/shape/select.c src/shape/vpath.c src/vc/deps
  22. #   src/vc/vadm_delete.c src/vc/vc_keyboardIo.c src/vfind/Shapefile
  23. #   tutorial/tutorial.ms
  24. # Wrapped by rsalz@papaya.bbn.com on Thu Jun  1 19:26:52 1989
  25. PATH=/bin:/usr/bin:/usr/ucb ; export PATH
  26. if test -f 'man/man3/afmisc.3' -a "${1}" != "-c" ; then 
  27.   echo shar: Will not clobber existing file \"'man/man3/afmisc.3'\"
  28. else
  29. echo shar: Extracting \"'man/man3/afmisc.3'\" \(4025 characters\)
  30. sed "s/^X//" >'man/man3/afmisc.3' <<'END_OF_FILE'
  31. X...
  32. X... Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  33. X...  and U. Pralle
  34. X... 
  35. X... This software is published on an as-is basis. There is ABSOLUTELY NO
  36. X... WARRANTY for any part of this software to work correctly or as described
  37. X... in the manuals. We do not accept any liability for any kind of damage
  38. X... caused by use of this software, such as loss of data, time, money, or 
  39. X... effort.
  40. X... 
  41. X... Permission is granted to use, copy, modify, or distribute any part of
  42. X... this software as long as this is done without asking for charge, and
  43. X... provided that this copyright notice is retained as part of the source
  44. X... files. You may charge a distribution fee for the physical act of
  45. X... transferring a copy, and you may at your option offer warranty
  46. X... protection in exchange for a fee.
  47. X... 
  48. X... Direct questions to: Tech. Univ. Berlin
  49. X...              Wilfried Koch
  50. X...              Sekr. FR 5-6 
  51. X...              Franklinstr. 28/29
  52. X...              D-1000 Berlin 10, West Germany
  53. X... 
  54. X...              Tel: +49-30-314-22972
  55. X...              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  56. X... 
  57. X.TH AF_MISC 3 "" \n(dy.\n(mo.\n(yr
  58. X.SH NAME
  59. Xaf_misc \(em miscellaneous AFS-functions
  60. X.SH SYNOPSIS
  61. X\fBchar *af_afname (path)
  62. X.br
  63. Xchar    *path;
  64. X.sp
  65. Xchar *af_afpath (path)
  66. X.br
  67. Xchar    *path;
  68. X.sp
  69. Xchar *af_aftype (path)
  70. X.br
  71. Xchar    *path;
  72. X.sp
  73. Xchar *af_access (path, name, type, mode)
  74. X.br
  75. Xchar    *path, *name, *type;
  76. X.br
  77. Xint    mode;
  78. X.sp
  79. Xaf_setarchpath (path)
  80. X.br
  81. Xchar    *path;
  82. X.sp
  83. Xaf_cleanup ()
  84. X.sp
  85. Xaf_perror (string)
  86. X.br
  87. Xchar    *string;
  88. X.sp
  89. Xchar *af_version()
  90. X.SH DESCRIPTION
  91. XThe functions \fIaf_afname, af_afpath\fR and \fIaf_aftype\fR
  92. Xextract name, syspath or type from a given (operating
  93. Xsystem dependent) file identification.
  94. XIn an \s-1UNIX\s+1 environment, a given pathname of the form
  95. X\fC/usr/lib/libafs.a\fR
  96. Xleads to the afname \fClibafs\fR, afpath \fC/usr/lib\fR and aftype \fCa\fR.
  97. XIf no path (eg. \fCotto.c\fR), or no type
  98. X(eg. \fC/usr/hugo/Makefile\fR) is given, the corresponding routine returns an
  99. Xempty string.
  100. XA period as first character in a filename is always
  101. Xconsidered to be part of the name (e.g. \fC.cshrc\fR has the name
  102. X\fC.cshrc\fR and an empty type string).
  103. X\(lq\fC.\fR\(rq and \(lq\fC..\fR\(rq are recognized as names.
  104. XArchive file extensions and AFS-specific path extensions are stripped from
  105. Xthe resulting name resp. pathname.
  106. X.br
  107. X\fBNote:\fR \fIaf_afname, af_afpath\fR and \fIaf_aftype\fR use static
  108. Xmemory for the returned results.
  109. XSubsequent calls of the same function overwrite former results.
  110. X.PP
  111. X\fIAf_access\fR determines the existence of an line of development.
  112. XIf any ASO (any version) with the given \fIpath\fR, \fIname\fR
  113. Xand \fItype\fR attributes exists, af_access returns zero, otherwise \-1.
  114. XThe \fImode\fR argument can either be \fIAF_SOURCE\fR indicating that
  115. Xonly source objects shall be searched or \fIAF_DERIVED\fR which means that
  116. Xonly the derived object pool shall be searched for existence
  117. Xof a matching ASO.
  118. X.PP
  119. X\fIAf_setarchpath\fR is used to define the location of the AFS 
  120. Xarchive files. If no path is set, the archive files are stored
  121. Xin a subdirectory called \fCAFS\fR, relative to the directory
  122. Xwhere corresponding busy version resides.
  123. XIf a nil-pointer is given as \fIpath\fR-argument, the former setting
  124. Xof the global archive path is cleared.
  125. X.PP
  126. X\fIAf_cleanup\fR serves as cleanup routine upon premature termination
  127. Xof an AFS application. It removes temporary files and frees all allocated
  128. Xmemory.
  129. X.PP
  130. X\fIAf_perror\fR produces a short error message on the standard error file
  131. Xof the form described in \fIperror(3)\fR.
  132. XIf the last error encountered during an AFS-application was an AFS-specific
  133. Xerror, a corresponding message is generated, otherwise \fIaf_perror\fR
  134. Xcalls \fIperror(3)\fR.
  135. X.PP
  136. X\fIAf_version\fR returns a string that names the version and the
  137. Xcreator of the currently used AFS library.
  138. X.SH SEE ALSO
  139. Xintro(2), af_intro(3), perror(3), free(3)
  140. X.SH DIAGNOSTICS
  141. XUpon error, af_afname, af_afpath and af_aftype returned a nil pointer
  142. Xand \fIaf_errno\fR is set to the corresponding error number.
  143. X
  144. X
  145. END_OF_FILE
  146. if test 4025 -ne `wc -c <'man/man3/afmisc.3'`; then
  147.     echo shar: \"'man/man3/afmisc.3'\" unpacked with wrong size!
  148. fi
  149. # end of 'man/man3/afmisc.3'
  150. fi
  151. if test -f 'src/afs/Makefile.distribution' -a "${1}" != "-c" ; then 
  152.   echo shar: Will not clobber existing file \"'src/afs/Makefile.distribution'\"
  153. else
  154. echo shar: Extracting \"'src/afs/Makefile.distribution'\" \(4290 characters\)
  155. sed "s/^X//" >'src/afs/Makefile.distribution' <<'END_OF_FILE'
  156. X#
  157. X# Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  158. X#  and U. Pralle
  159. X# 
  160. X# This software is published on an as-is basis. There is ABSOLUTELY NO
  161. X# WARRANTY for any part of this software to work correctly or as described
  162. X# in the manuals. We do not accept any liability for any kind of damage
  163. X# caused by use of this software, such as loss of data, time, money, or effort.
  164. X# 
  165. X# Permission is granted to use, copy, modify, or distribute any part of
  166. X# this software as long as this is done without asking for charge, and
  167. X# provided that this copyright notice is retained as part of the source
  168. X# files. You may charge a distribution fee for the physical act of
  169. X# transferring a copy, and you may at your option offer warranty
  170. X# protection in exchange for a fee.
  171. X# 
  172. X# Direct questions to: Tech. Univ. Berlin
  173. X#              Wilfried Koch
  174. X#              Sekr. FR 5-6 
  175. X#              Franklinstr. 28/29
  176. X#              D-1000 Berlin 10, West Germany
  177. X# 
  178. X#              Tel: +49-30-314-22972
  179. X#              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  180. X# 
  181. X#
  182. X#  Makefile.distribution for AFS
  183. X#
  184. X
  185. XSOURCE = \
  186. X    afarchive.c afenviron.c aflib.c afvers.c afdelta.c afkeys.c\
  187. X    afstates.c afsattrs.c afretr.c afsysc.c affiles.c afcattrs.c\
  188. X    afsets.c afhash.c afcompar.c afbpool.c afsymtab.c afstore.c\
  189. X    aflock.c afsrepair.c
  190. X
  191. XDELTASOURCE = \
  192. X    bsfd.c lcs.main.c lcs.cdlt.c lcs.gedc.c edcmd.h suffix.h predef.h
  193. X
  194. XINCLUDE = $(INCLUDEDIR)/afs.h $(INCLUDEDIR)/afsys.h afarchive.h typeconv.h
  195. X
  196. XCOMPONENTS = $(SOURCE) $(INCLUDE) afsrepair.h
  197. X
  198. XVERSION = af_version
  199. X
  200. XAFSOBJS = \
  201. X    afarchive.o afenviron.o aflib.o afvers.o afdelta.o afkeys.o\
  202. X    afstates.o afsattrs.o afretr.o afsysc.o affiles.o afcattrs.o\
  203. X    afsets.o afhash.o afcompar.o afbpool.o afsymtab.o afstore.o\
  204. X    aflock.o $(VERSION).o
  205. X
  206. XDELTALIB = bsfd.o lcs.cdlt.o lcs.gedc.o lcs.main.o
  207. X
  208. XTESTSOURCE = \
  209. X    testmain.c testcall.c testfdes.c testkey.c testabuf.c testset.c\
  210. X    testvar.c testshow.c test.h
  211. X
  212. XTESTOBJS = testmain.o testcall.o testshow.o testvar.o testkey.o testset.o\
  213. X    testabuf.o testfdes.o
  214. X
  215. X#
  216. X#  Product dependencies
  217. X#
  218. X
  219. Xall: $(LIBDIR)/libafs.a afsrepair $(AFSDB) # macro AFSDB only set on coma
  220. X
  221. X$(LIBDIR)/libafs.a: $(AFSOBJS) $(DELTALIB) $(VERSION).o
  222. X    @ar ruv $(LIBDIR)/libafs.a $(AFSOBJS) $(DELTALIB); \
  223. X    ranlib $(LIBDIR)/libafs.a
  224. X
  225. X#
  226. X# installation stuff
  227. X#
  228. X
  229. Xinstallall: install installtest
  230. X
  231. Xinstall: $(LIBDIR)/libafs.a afsrepair\
  232. X         $(INSTALINCDIR)/afs.h $(INSTALINCDIR)/afsys.h
  233. X    @-if [ "$(INSTALLIBDIR)" != "$(LIBDIR)" ]; then \
  234. X    echo installing libafs.a in $(INSTALLIBDIR) ...; \
  235. X    install -c -m 644 -o $(INSTALOWNER) -g $(INSTALGROUP)\
  236. X        $(LIBDIR)/libafs.a $(INSTALLIBDIR); \
  237. X    ranlib $(INSTALLIBDIR)/libafs.a; \
  238. X    fi; \
  239. X    echo installing afsrepair in $(INSTALDIR)/bin ...; \
  240. X    install -c -m 755 -o $(INSTALOWNER) -g $(INSTALGROUP) afsrepair $(INSTALDIR)/bin
  241. X    
  242. X$(INSTALINCDIR)/afs.h: $(INCLUDEDIR)/afs.h
  243. X    @-if [ "$(INSTALINCDIR)" != "$(INCLUDEDIR)" ]; then \
  244. X    echo installing afs.h in $(INSTALINCDIR) ...; \
  245. X    install -c -m 644 -o $(INSTALOWNER) -g $(INSTALGROUP) $(INCLUDEDIR)/afs.h $(INSTALINCDIR); \
  246. X    fi
  247. X
  248. X$(INSTALINCDIR)/afsys.h: $(INCLUDEDIR)/afsys.h
  249. X    @-if [ "$(INSTALINCDIR)" != "$(INCLUDEDIR)" ]; then \
  250. X    echo installing afsys.h in $(INSTALINCDIR) ...; \
  251. X    install -c -m 644 -o $(INSTALOWNER) -g $(INSTALGROUP) $(INCLUDEDIR)/afsys.h $(INSTALINCDIR); \
  252. X    touch $(INSTALINCDIR)/afs.h; \
  253. X    fi
  254. X
  255. X#
  256. X# archive repair tool
  257. X#
  258. X
  259. X$(AFSOBJS) $(TESTOBJS) afsrepair.o: $(INCLUDE)
  260. X
  261. Xafsrepair.o: afsrepair.h
  262. X
  263. Xafsrepair: afsrepair.o afsysc.o afsymtab.o afenviron.o afhash.o aflib.o\
  264. X        af_version.o
  265. X    $(CC) -o afsrepair $(LDFLAGS) afsrepair.o afsysc.o afsymtab.o\
  266. X        afenviron.o afhash.o aflib.o af_version.o
  267. X
  268. X#
  269. X# Test-environment for libafs.a (only on coma)
  270. X#
  271. X
  272. Xinstalltest: $(TESTOBJS) afsdb
  273. X    install -c -m 755 -o $(INSTALOWNER) -g $(INSTALGROUP) afsdb $(INSTALDIR)/bin
  274. X
  275. Xafsdb: $(TESTOBJS) $(AFSOBJS) $(DELTALIB)
  276. X    $(CC) -o afsdb $(LDFLAGS) $(TESTOBJS) $(AFSOBJS) $(DELTALIB) $(CLIBS)
  277. X
  278. X$(TESTOBJS): test.h
  279. X
  280. X#
  281. X# Miscellaneous stuff
  282. X#
  283. X
  284. Xobjects : $(AFSOBJS) afsrepair.o
  285. X
  286. Xlint:
  287. X    lint -DLINT -D$(SYSTEM) -I$(INCLUDEDIR) $(SOURCE)  
  288. X
  289. Xtags: $(SOURCE)
  290. X    /usr/local/etags $(SOURCE)
  291. X
  292. Xxref: $(SOURCE)
  293. X    /usr/ucb/ctags -w -x $(SOURCE) > xref
  294. X
  295. Xclean :
  296. X    rm $(AFSOBJS)
  297. X
  298. Xtar:
  299. X    retrv -fq $(VERSION).c; \
  300. X    tar cvhf /tmp/afs.tar $(COMPONENTS) $(TESTSOURCE) Makefile\
  301. X             $(VERSION).c $(DELTASOURCE); \
  302. X    rm -f $(VERSION).c
  303. END_OF_FILE
  304. if test 4290 -ne `wc -c <'src/afs/Makefile.distribution'`; then
  305.     echo shar: \"'src/afs/Makefile.distribution'\" unpacked with wrong size!
  306. fi
  307. # end of 'src/afs/Makefile.distribution'
  308. fi
  309. if test -f 'src/afs/afkeys.c' -a "${1}" != "-c" ; then 
  310.   echo shar: Will not clobber existing file \"'src/afs/afkeys.c'\"
  311. else
  312. echo shar: Extracting \"'src/afs/afkeys.c'\" \(4153 characters\)
  313. sed "s/^X//" >'src/afs/afkeys.c' <<'END_OF_FILE'
  314. X/*
  315. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  316. X *  and U. Pralle
  317. X * 
  318. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  319. X * WARRANTY for any part of this software to work correctly or as described
  320. X * in the manuals. We do not accept any liability for any kind of damage
  321. X * caused by use of this software, such as loss of data, time, money, or 
  322. X * effort.
  323. X * 
  324. X * Permission is granted to use, copy, modify, or distribute any part of
  325. X * this software as long as this is done without asking for charge, and
  326. X * provided that this copyright notice is retained as part of the source
  327. X * files. You may charge a distribution fee for the physical act of
  328. X * transferring a copy, and you may at your option offer warranty
  329. X * protection in exchange for a fee.
  330. X * 
  331. X * Direct questions to: Tech. Univ. Berlin
  332. X *              Wilfried Koch
  333. X *              Sekr. FR 5-6 
  334. X *              Franklinstr. 28/29
  335. X *              D-1000 Berlin 10, West Germany
  336. X * 
  337. X *              Tel: +49-30-314-22972
  338. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  339. X */
  340. X/*
  341. X *    Shape/AFS
  342. X *
  343. X *    afkeys.c -- handle revision keys
  344. X *
  345. X *    Author: Andreas Lampen, TU-Berlin (andy@coma.UUCP)
  346. X *                      (andy@db0tui62.BITNET)
  347. X *
  348. X *    $Header: afkeys.c[1.3] Wed Feb 22 16:27:39 1989 andy@coma published $
  349. X *
  350. X *    EXPORT:
  351. X *    af_buildkey -- build key from generation and revision
  352. X *      af_gbuskey -- get key of busy version
  353. X *      af_glastkey -- get key of last saved version
  354. X *      af_gfreepos -- search free position in revlist
  355. X *    af_keytest -- check plausibility of key
  356. X */
  357. X
  358. X#include <stdio.h>
  359. X
  360. X#include "typeconv.h"
  361. X#include "afsys.h"
  362. X#include "afs.h"
  363. X
  364. X/*================================================================
  365. X *    af_buildkey
  366. X *
  367. X *================================================================*/
  368. X
  369. XEXPORT af_buildkey (list, gen, rev, key)
  370. X     Af_revlist *list;
  371. X     int     gen;
  372. X     int    rev;
  373. X     Af_key    *key; /* out */
  374. X{
  375. X  int i;
  376. X  
  377. X  key->af_ldes = list;
  378. X  if (list->af_list[0].af_class & AF_VALID)
  379. X    i = list->af_nrevs-1;
  380. X  else
  381. X    i = list->af_nrevs;
  382. X
  383. X  while (!((list->af_list[i].af_gen == gen) && (list->af_list[i].af_rev == rev)
  384. X     && (list->af_list[i].af_class & AF_VALID)))
  385. X    {
  386. X      if (i == 0)
  387. X    SFAIL ("buildkey", "", AF_ENOREV, ERROR);
  388. X      i--;
  389. X    }
  390. X  key->af_lpos = i;
  391. X  return (AF_OK);
  392. X}
  393. X
  394. X/*================================================================
  395. X *    af_gbuskey
  396. X *
  397. X *================================================================*/
  398. X
  399. XEXPORT Af_key *af_gbuskey (list)
  400. X     Af_revlist *list;
  401. X{
  402. X  static Af_key busykey;
  403. X
  404. X  busykey.af_ldes = list;
  405. X  busykey.af_lpos = 0;
  406. X  return (&busykey);
  407. X}
  408. X
  409. X
  410. X/*================================================================
  411. X *    af_glastkey
  412. X *
  413. X *================================================================*/
  414. X
  415. XEXPORT Af_key *af_glastkey (list)
  416. X     Af_revlist *list;
  417. X{
  418. X  int i;
  419. X  static Af_key lastkey;
  420. X
  421. X  lastkey.af_ldes = list;
  422. X  i = list->af_listlen-1;
  423. X  while (!(list->af_list[i].af_class & AF_VALID))
  424. X    {
  425. X      if (i-- == 1)
  426. X    return ((Af_key *)0);
  427. X    }
  428. X  lastkey.af_lpos = i;
  429. X  return (&lastkey);
  430. X}
  431. X
  432. X/*================================================================
  433. X * af_gfreepos -- search space for new list entry
  434. X *                preserve increasing order
  435. X *
  436. X *================================================================*/
  437. X
  438. XEXPORT af_gfreepos (list)
  439. X     Af_revlist *list;
  440. X{
  441. X  int i;
  442. X
  443. X  i = list->af_listlen-1;
  444. X  while (!(list->af_list[i].af_class & AF_VALID) && (i >= 0))
  445. X    i--;
  446. X
  447. X  if (i == list->af_listlen-1)
  448. X    return (ERROR);
  449. X
  450. X  if (!(list->af_list[i].af_class & AF_VALID) && (i == 0))
  451. X    return (0);
  452. X
  453. X  return (i+1);
  454. X}
  455. X
  456. X 
  457. X/*================================================================
  458. X *    af_keytest -- test plausibility of filekey
  459. X *                    returnes TRUE (ERROR) if key is invalid,
  460. X *                    otherwise FALSE (AF_OK).
  461. X *
  462. X *================================================================*/
  463. X
  464. XEXPORT af_keytest (key)
  465. X     Af_key *key;
  466. X{
  467. X  if (key == (Af_key *)0)
  468. X    return (ERROR);
  469. X  if ((key->af_lpos < 0) || (key->af_lpos >= key->af_ldes->af_listlen))
  470. X    return (ERROR);
  471. X  if (VATTR(key).af_nlinks < 1)
  472. X    return (ERROR);
  473. X
  474. X  return (AF_OK);
  475. X}
  476. X
  477. END_OF_FILE
  478. if test 4153 -ne `wc -c <'src/afs/afkeys.c'`; then
  479.     echo shar: \"'src/afs/afkeys.c'\" unpacked with wrong size!
  480. fi
  481. # end of 'src/afs/afkeys.c'
  482. fi
  483. if test -f 'src/afs/lcs.gedc.c' -a "${1}" != "-c" ; then 
  484.   echo shar: Will not clobber existing file \"'src/afs/lcs.gedc.c'\"
  485. else
  486. echo shar: Extracting \"'src/afs/lcs.gedc.c'\" \(4012 characters\)
  487. sed "s/^X//" >'src/afs/lcs.gedc.c' <<'END_OF_FILE'
  488. X/*
  489. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  490. X *  and U. Pralle
  491. X * 
  492. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  493. X * WARRANTY for any part of this software to work correctly or as described
  494. X * in the manuals. We do not accept any liability for any kind of damage
  495. X * caused by use of this software, such as loss of data, time, money, or 
  496. X * effort.
  497. X * 
  498. X * Permission is granted to use, copy, modify, or distribute any part of
  499. X * this software as long as this is done without asking for charge, and
  500. X * provided that this copyright notice is retained as part of the source
  501. X * files. You may charge a distribution fee for the physical act of
  502. X * transferring a copy, and you may at your option offer warranty
  503. X * protection in exchange for a fee.
  504. X * 
  505. X * Direct questions to: Tech. Univ. Berlin
  506. X *              Wilfried Koch
  507. X *              Sekr. FR 5-6 
  508. X *              Franklinstr. 28/29
  509. X *              D-1000 Berlin 10, West Germany
  510. X * 
  511. X *              Tel: +49-30-314-22972
  512. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  513. X */
  514. X
  515. X/* ================================================== */
  516. X/* ================================================== */
  517. X/*                                                    */
  518. X/* MODULE-NAME: gedc        KEY : ge                  */
  519. X/*              = generate editor commands            */
  520. X/* ORIGINAL                                           */
  521. X/* AUTHOR : sibylle         DATE: 28/07/87            */
  522. X/*                                                    */
  523. X/* LAST UPDATE                                        */
  524. X/* AUTHOR :                 DATE:                     */
  525. X/*                                                    */
  526. X/* VERSION: 1.6.2                                     */
  527. X/*                                                    */
  528. X/* ================================================== */
  529. X/*                                                    */
  530. X/* PURPOSE:                                           */
  531. X/*                generation of editor commands;      */
  532. X/*                writing them into the delta file    */
  533. X/*                                                    */
  534. X/* SPECIALITIES:                                      */
  535. X/*                targetsize gets written into        */
  536. X/*                deltafile                           */                       
  537. X/*                                                    */
  538. X/* EXCEPTIONS, ERRORS:                                */
  539. X/*                none                                */
  540. X/*                                                    */
  541. X/* ================================================== */
  542. X/*                                                    */
  543. X/*
  544. X * $Header: lcs.gedc.c[1.0] Wed Feb 22 16:14:22 1989 shape@coma save $
  545. X */
  546. X
  547. X# include "predef.h"
  548. X# include "typeconv.h"
  549. X# include <stdio.h>
  550. X# include "edcmd.h"
  551. X
  552. X
  553. Xextern int fwrite();
  554. Xextern int fclose();
  555. Xextern FILE *fopen();
  556. X
  557. X
  558. XLOCAL char *trg_str = NIL;
  559. XLOCAL FILE *fdelta = (FILE *) NIL;
  560. X
  561. X
  562. XLOCAL void write_cmd (ecmd, indx)
  563. X     struct ed_cmd *ecmd;
  564. X     long indx;
  565. X{
  566. X  long cmd_ind;
  567. X  char *t_str = trg_str;
  568. X  
  569. X  cmd_ind = indx;
  570. X  if (ecmd->cmd == MV)
  571. X    {
  572. X      (void) fwrite ((char *)ecmd, sizeof (*ecmd), 1, fdelta);
  573. X      (void) fwrite ((char *)&cmd_ind, sizeof(cmd_ind), 1, fdelta);
  574. X    }
  575. X  else
  576. X    {
  577. X      (void) fwrite ((char *)ecmd, sizeof (*ecmd), 1, fdelta);
  578. X      (void) fwrite ((t_str = (t_str + cmd_ind)), sizeof(char), (Size_t)ecmd->length, fdelta);
  579. X    }
  580. X
  581. X  return;
  582. X}
  583. X
  584. X
  585. X
  586. XEXPORT void ge_init (deltafile, targetstr)
  587. X     char *deltafile, *targetstr;
  588. X{
  589. X  trg_str = targetstr;
  590. X  fdelta  = fopen (deltafile, "w");
  591. X  return;
  592. X}
  593. X
  594. X
  595. XEXPORT void ge_finit()
  596. X{
  597. X  (void) fclose (fdelta);
  598. X  return;
  599. X}
  600. X
  601. X
  602. XEXPORT void ge_move (indx, length)
  603. X     long indx, length;
  604. X{
  605. X  struct ed_cmd cmd;
  606. X
  607. X  cmd.cmd = MV;
  608. X  cmd.length = length;
  609. X  write_cmd (&cmd, indx);
  610. X
  611. X  return;
  612. X}
  613. X
  614. X
  615. XEXPORT void ge_add (indx, length)
  616. X     long indx, length;
  617. X{
  618. X  struct ed_cmd cmd;
  619. X
  620. X  cmd.cmd = AD;
  621. X  cmd.length = length;
  622. X  write_cmd (&cmd, indx);
  623. X  return;
  624. X}
  625. X
  626. X
  627. X
  628. END_OF_FILE
  629. if test 4012 -ne `wc -c <'src/afs/lcs.gedc.c'`; then
  630.     echo shar: \"'src/afs/lcs.gedc.c'\" unpacked with wrong size!
  631. fi
  632. # end of 'src/afs/lcs.gedc.c'
  633. fi
  634. if test -f 'src/shape/Shapefile' -a "${1}" != "-c" ; then 
  635.   echo shar: Will not clobber existing file \"'src/shape/Shapefile'\"
  636. else
  637. echo shar: Extracting \"'src/shape/Shapefile'\" \(3789 characters\)
  638. sed "s/^X//" >'src/shape/Shapefile' <<'END_OF_FILE'
  639. X#
  640. X# Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  641. X#  and U. Pralle
  642. X# 
  643. X# This software is published on an as-is basis. There is ABSOLUTELY NO
  644. X# WARRANTY for any part of this software to work correctly or as described
  645. X# in the manuals. We do not accept any liability for any kind of damage
  646. X# caused by use of this software, such as loss of data, time, money, or effort.
  647. X# 
  648. X# Permission is granted to use, copy, modify, or distribute any part of
  649. X# this software as long as this is done without asking for charge, and
  650. X# provided that this copyright notice is retained as part of the source
  651. X# files. You may charge a distribution fee for the physical act of
  652. X# transferring a copy, and you may at your option offer warranty
  653. X# protection in exchange for a fee.
  654. X# 
  655. X# Direct questions to: Tech. Univ. Berlin
  656. X#              Wilfried Koch
  657. X#              Sekr. FR 5-6 
  658. X#              Franklinstr. 28/29
  659. X#              D-1000 Berlin 10, West Germany
  660. X# 
  661. X#              Tel: +49-30-314-22972
  662. X#              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  663. X# 
  664. X#
  665. X#    $__Log$
  666. X#
  667. X###############################################################################
  668. X#                                          #
  669. X#                  Shapefile for SHAPE                        #
  670. X#                                          #
  671. X###############################################################################
  672. X
  673. X
  674. XCOMPONENTS =     README Shapefile attr.c attr.h error.c files.c files.h \
  675. X        hash.c     hash.h inherit.c shape.l macro.c macro.h main.c \
  676. X        shape.h misc.c     produce.c rule.c rule.h select.c selrule.c \
  677. X        selrule.h shape.1 shapeopt.c sighand.c std.c std.h string.c \
  678. X        varsec.c varsec.h vpath.c version.c
  679. X
  680. XSRCDIR =    /u/wolf/src/shape
  681. X
  682. XINSTALDIR =    /u/shape/bin
  683. X
  684. XPROGS =        shapex
  685. XINSTALLPROGS =    shape
  686. X
  687. XSHAPESRC =      main.c hash.c macro.c rule.c files.c error.c produce.c \
  688. X         std.c selrule.c attr.c varsec.c select.c vpath.c misc.c \
  689. X         sighand.c inherit.c string.c version.c
  690. X
  691. XSHAPOBJS =    main.o shape.o hash.o macro.o rule.o files.o error.o \
  692. Xproduce.o std.o selrule.o attr.o varsec.o select.o vpath.o \
  693. Xmisc.o sighand.o shapeopt.o inherit.o string.o version.o
  694. X
  695. XHFILES =    shape.h macro.h hash.h rule.h selrule.h std.h varsec.h \
  696. Xattr.h file.h
  697. X
  698. XAFSLIB =    /u/shape/lib/libafs.a
  699. X
  700. XCLIBS =
  701. X
  702. XUTILLIB =    /u/shape/lib/libutil.a
  703. X
  704. XAFSINC =    /u/shape/src/inc
  705. X
  706. XHEADER =    shape.h $(AFSINC)/afs.h 
  707. X
  708. XSYSTEM =     bsd_4_3
  709. X
  710. XQUALITY =     test
  711. X
  712. XCC = cc -DCFFLGS='"$$Flags: $(CFLAGS) $$"'
  713. X
  714. XRULE = test
  715. XSYSTEM = bsd_4_3
  716. XQUALITY = test 
  717. X
  718. Xall: $(PROGS)
  719. X
  720. Xshapex: $(RULE) +$(SYSTEM) +$(QUALITY) $(SHAPOBJS) $(AFSLIB) $(UTILLIB)
  721. X    cc -g -pg -o $@ $(SHAPOBJS) $(UTILLIB) $(AFSLIB) $(CLIBS) -ll
  722. X
  723. X$(SHAPOBJS):    $(HEADER)
  724. Xmacro.o:    $(HEADER) macro.h
  725. Xhash.o:        $(HEADER) hash.h
  726. Xrule.o:     $(HEADER) rule.h
  727. Xselrule.o:    $(HEADER) selrule.h
  728. Xstd.o:        $(HEADER) std.h
  729. Xvarsec.o:    $(HEADER) varsec.h
  730. Xattr.o:        $(HEADER) attr.h
  731. Xfiles.o:    $(HEADER) files.h
  732. Xversion.o:    version.c
  733. X
  734. XClean:
  735. X    rm shape *.o core
  736. X
  737. Xsave:
  738. X    save $(COMPONENTS)
  739. X
  740. Xlint:
  741. X    lint  -I/u/shape/src/inc $(SHAPESRC) shape.c
  742. X
  743. Xshar:
  744. X    shar Shapefile Makefile $(COMPONENTS) version.c /u/shape/src/inc/ParseArgs.h > shape.sh 
  745. X
  746. Xinstall: all
  747. X    @-for i in $(INSTALLPROGS); \
  748. X    do \
  749. X    echo installing $$i in $(INSTALDIR); \
  750. X    install -c -g unib shapex $(INSTALDIR)/$$i;\
  751. X    done;
  752. X
  753. X
  754. X#% RULE-SECTION
  755. X
  756. Xrelease:
  757. X    *, attr (state, published), attrmax (version);
  758. X    *, attr (state, busy).
  759. X
  760. Xtest:    *, attr(state, busy);
  761. X    *, attrmax(version).
  762. X
  763. X#% END-RULE-SECTION
  764. X
  765. X#% VARIANT-SECTION
  766. X
  767. Xvclass system ::= (bsd_4_3, ultrix_2_0)
  768. Xvclass quality ::= (test, release)
  769. X
  770. Xbsd_4_3:
  771. X
  772. Xultrix_2_0:
  773. X    vflags = -DULTRIX_2_0 -DOLDDBM
  774. X    CFLAGS = -g -I$(AFSINC)
  775. X    CLIBS = -ldbm
  776. X
  777. Xtest:
  778. X    CFLAGS = -pg -g -I$(AFSINC)
  779. X    LDFLAGS = -pg -g
  780. X
  781. Xrelease:
  782. X    CFLAGS = -O -I$(AFSINC)
  783. X    LDFLAGS = -s
  784. X
  785. Xgnu:
  786. X    CC = gcc -I/u/shape/src/inc
  787. X    CFLAGS = -O -g -finline-functions -fkeep-inline-functions \
  788. X        -fcombine-regs -DCFFLGS=\"HALLO\"
  789. X# '"$$Flags: $(CFLAGS) $$"'
  790. X
  791. X#% END-VARIANT-SECTION
  792. END_OF_FILE
  793. if test 3789 -ne `wc -c <'src/shape/Shapefile'`; then
  794.     echo shar: \"'src/shape/Shapefile'\" unpacked with wrong size!
  795. fi
  796. # end of 'src/shape/Shapefile'
  797. fi
  798. if test -f 'src/shape/select.c' -a "${1}" != "-c" ; then 
  799.   echo shar: Will not clobber existing file \"'src/shape/select.c'\"
  800. else
  801. echo shar: Extracting \"'src/shape/select.c'\" \(4466 characters\)
  802. sed "s/^X//" >'src/shape/select.c' <<'END_OF_FILE'
  803. X/*
  804. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  805. X *  and U. Pralle
  806. X * 
  807. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  808. X * WARRANTY for any part of this software to work correctly or as described
  809. X * in the manuals. We do not accept any liability for any kind of damage
  810. X * caused by use of this software, such as loss of data, time, money, or 
  811. X * effort.
  812. X * 
  813. X * Permission is granted to use, copy, modify, or distribute any part of
  814. X * this software as long as this is done without asking for charge, and
  815. X * provided that this copyright notice is retained as part of the source
  816. X * files. You may charge a distribution fee for the physical act of
  817. X * transferring a copy, and you may at your option offer warranty
  818. X * protection in exchange for a fee.
  819. X * 
  820. X * Direct questions to: Tech. Univ. Berlin
  821. X *              Wilfried Koch
  822. X *              Sekr. FR 5-6 
  823. X *              Franklinstr. 28/29
  824. X *              D-1000 Berlin 10, West Germany
  825. X * 
  826. X *              Tel: +49-30-314-22972
  827. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  828. X */
  829. X#ifndef lint
  830. Xstatic char *RCSid = "$Header: select.c,v 3.1 89/02/20 16:26:38 wolfgang Exp $";
  831. X#endif
  832. X#ifndef lint
  833. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  834. X#endif
  835. X/*
  836. X * $Log:    select.c,v $
  837. X * Revision 3.1  89/02/20  16:26:38  wolfgang
  838. X * NET-RELEASE
  839. X * 
  840. X * Revision 3.0  89/01/24  11:36:45  wolfgang
  841. X * New System Generation
  842. X * 
  843. X * Revision 2.5  89/01/03  13:13:21  wolfgang
  844. X * changes done for lint
  845. X * 
  846. X * Revision 2.4  88/12/21  15:12:33  wolfgang
  847. X * changes done for lint
  848. X * 
  849. X * Revision 2.3  88/11/22  17:37:42  wolfgang
  850. X * This version is part of a release
  851. X * 
  852. X * Revision 2.2  88/08/31  12:12:53  wolfgang
  853. X * Bugs fixed.
  854. X * 
  855. X * Revision 2.1  88/08/19  10:17:57  wolfgang
  856. X * This version is part of a release
  857. X * 
  858. X */
  859. X
  860. X#include <pwd.h>
  861. X
  862. X#include "shape.h"
  863. X
  864. Xextern struct passwd *getpwnam();
  865. Xextern char *mktemp();
  866. X
  867. Xextern int get_set();
  868. Xextern int af_setgkey();
  869. Xextern int af_gattrs();
  870. X
  871. Xextern char current_dep[];
  872. Xextern Af_attrs buft;
  873. Xextern int depth;
  874. Xextern char actpath[];
  875. X
  876. Xchar cursr[64]; /* name of active selection rule */
  877. Xstruct selection_rules *currule; /* active selection rule */
  878. X
  879. XBool Sselect(targ, path, ttt, fdep, dep)
  880. X     char *targ;
  881. X     char *path;
  882. X     Bool ttt;
  883. X     /*ARGSUSED*/
  884. X     char *fdep;
  885. X     char *dep;
  886. X{
  887. X
  888. XAf_attrs buf1;
  889. X/* Af_attrs buft; */
  890. X
  891. XAf_key key1;
  892. XAf_key key2;
  893. X
  894. XAf_set set1;
  895. XAf_set set2;
  896. XBool t1;
  897. XBool t2;
  898. Xchar path1[MAXNAMLEN];
  899. Xchar path2[MAXNAMLEN];
  900. XBool appflg = TRUE;
  901. Xchar apptest[MAXNAMLEN];
  902. X
  903. X/* if (strcmp(cursr,"-STD-"))
  904. X return(TRUE); */
  905. X
  906. Xif (buft.af_name[0] == targ[0])
  907. X  {
  908. X    (void) strcpy(apptest,buft.af_name);
  909. X    (void) strcat(apptest,".");
  910. X    (void) strcat(apptest,buft.af_type);
  911. X    if (!strcmp(apptest,targ))
  912. X      appflg = FALSE;
  913. X  }
  914. X
  915. Xpath1[0] = '\0';
  916. Xpath2[0] = '\0';
  917. X
  918. Xaf_initattrs(&buf1);
  919. Xaf_initattrs(&buft);
  920. X
  921. X/* no selection rule is active or dep didn't match */
  922. Xt1 = ttt; /* exists_file(targ,0);  */
  923. X(void) strcpy(path1,path); /* actpath); */
  924. Xt2 = exists_file(dep,0);
  925. X(void) strcpy(path2,actpath);
  926. X(void) strcpy(actpath,"");
  927. Xif ((t1) && (t2))
  928. X  {
  929. X
  930. X    get_date_of(targ,&set1,path1);
  931. X    if (set1.af_setlen == 0)
  932. X      return(TRUE);   /* targ only in bpool */
  933. X
  934. X    get_date_of(dep,&set2,path2);
  935. X    
  936. X    if (af_setgkey(&set1,0,&key1) == -1)
  937. X      errexit(10,"af_setgkey");
  938. X    if (af_setgkey(&set2,0,&key2) == -1)
  939. X      errexit(10,"af_setgkey");
  940. X    
  941. X    if (af_gattrs(&key1,&buf1) == -1)
  942. X      errexit(10,"af_gattrs");
  943. X    if (af_gattrs(&key2,&buft) == -1)
  944. X      errexit(10,"af_gattrs");
  945. X    
  946. X    if (af_dropset(&set1) == -1)
  947. X      errexit(10, "af_dropset");
  948. X
  949. X    if (af_dropset(&set2) == -1)
  950. X      errexit(10, "af_dropset");
  951. X    
  952. X
  953. X    if ((buf1.af_mtime < buft.af_mtime) || ((buf1.af_mtime == -1) && (buft.af_mtime == -1)))
  954. X      {
  955. X    if(appflg)
  956. X      append_attrs(&buft,depth);
  957. X    (void) strcpy(current_dep,dep);
  958. X    return(TRUE);
  959. X      }
  960. X    else
  961. X      return(FALSE);
  962. X  }
  963. Xelse
  964. X  {
  965. X    (void) strcpy(current_dep,dep);
  966. X    if ((!t1) && (t2))
  967. X      {
  968. X    if (appflg)
  969. X      {
  970. X        /* get attrs for inheritage */
  971. X        get_date_of(dep,&set2,path2);
  972. X        if (af_setgkey(&set2,0,&key2) == -1)
  973. X          errexit(10,"af_setgkey");
  974. X        if (af_gattrs(&key2,&buft) == -1)
  975. X          errexit(10,"af_gattrs");
  976. X        if (af_dropset(&set2) == -1)
  977. X          errexit(10, "af_dropset");
  978. X        append_attrs(&buft,depth);
  979. X      }
  980. X    return(TRUE);
  981. X      }
  982. X    if ((!t1) && (!t2))
  983. X      return(TRUE);
  984. X    if ((t1) && (!t2))
  985. X      return(TRUE);
  986. X  }
  987. X/*NOTREACHED*/
  988. X}
  989. X
  990. END_OF_FILE
  991. if test 4466 -ne `wc -c <'src/shape/select.c'`; then
  992.     echo shar: \"'src/shape/select.c'\" unpacked with wrong size!
  993. fi
  994. # end of 'src/shape/select.c'
  995. fi
  996. if test -f 'src/shape/vpath.c' -a "${1}" != "-c" ; then 
  997.   echo shar: Will not clobber existing file \"'src/shape/vpath.c'\"
  998. else
  999. echo shar: Extracting \"'src/shape/vpath.c'\" \(3595 characters\)
  1000. sed "s/^X//" >'src/shape/vpath.c' <<'END_OF_FILE'
  1001. X/*
  1002. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1003. X *  and U. Pralle
  1004. X * 
  1005. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  1006. X * WARRANTY for any part of this software to work correctly or as described
  1007. X * in the manuals. We do not accept any liability for any kind of damage
  1008. X * caused by use of this software, such as loss of data, time, money, or 
  1009. X * effort.
  1010. X * 
  1011. X * Permission is granted to use, copy, modify, or distribute any part of
  1012. X * this software as long as this is done without asking for charge, and
  1013. X * provided that this copyright notice is retained as part of the source
  1014. X * files. You may charge a distribution fee for the physical act of
  1015. X * transferring a copy, and you may at your option offer warranty
  1016. X * protection in exchange for a fee.
  1017. X * 
  1018. X * Direct questions to: Tech. Univ. Berlin
  1019. X *              Wilfried Koch
  1020. X *              Sekr. FR 5-6 
  1021. X *              Franklinstr. 28/29
  1022. X *              D-1000 Berlin 10, West Germany
  1023. X * 
  1024. X *              Tel: +49-30-314-22972
  1025. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1026. X */
  1027. X#ifndef lint
  1028. Xstatic char *RCSid = "$Header: vpath.c,v 3.2 89/02/20 16:26:55 wolfgang Exp $";
  1029. X#endif
  1030. X#ifndef lint
  1031. Xstatic char *ConfFlg = CFFLGS;    /* should be defined from within Makefile */
  1032. X#endif
  1033. X/*
  1034. X * $Log:    vpath.c,v $
  1035. X * Revision 3.2  89/02/20  16:26:55  wolfgang
  1036. X * NET-RELEASE
  1037. X * 
  1038. X * Revision 3.1  89/02/08  12:44:58  wolfgang
  1039. X * performance improved.
  1040. X * 
  1041. X * Revision 3.0  89/01/24  11:37:26  wolfgang
  1042. X * New System Generation
  1043. X * 
  1044. X * Revision 2.6  89/01/03  13:14:30  wolfgang
  1045. X * changes done for lint
  1046. X * 
  1047. X * Revision 2.5  88/12/21  15:13:37  wolfgang
  1048. X * changes done for lint
  1049. X * 
  1050. X * Revision 2.4  88/11/21  20:54:15  wolfgang
  1051. X * changes done for sun
  1052. X * 
  1053. X * Revision 2.3  88/11/21  15:49:32  wolfgang
  1054. X * return code of all malloc's checked
  1055. X * 
  1056. X * Revision 2.2  88/11/18  15:03:21  wolfgang
  1057. X * is_vpath_dir added.
  1058. X * 
  1059. X * Revision 2.1  88/08/19  10:18:19  wolfgang
  1060. X * This version is part of a release
  1061. X * 
  1062. X */
  1063. X
  1064. X#include "shape.h"
  1065. X
  1066. Xinsertvpath(string)
  1067. X     char *string;
  1068. X{
  1069. X  char *p;
  1070. X  int i;
  1071. X  for(i = 1; (p = index(string,':')) != NIL; i++)
  1072. X    {
  1073. X      *p = '\0';
  1074. X      if(*string != '/')
  1075. X    {
  1076. X      if ((curvpath[i] = malloc((unsigned) (strlen(string) + strlen(curvpath[0])
  1077. X                 + 3 * sizeof(char)))) == NIL)
  1078. X        errexit(10,"malloc");
  1079. X      (void) strcpy(curvpath[i],curvpath[0]);
  1080. X      (void) strcat(curvpath[i],"/");
  1081. X      if ((*string == '.') && (*string+1 == '/'))
  1082. X        {
  1083. X          string++;
  1084. X          string++;
  1085. X        }
  1086. X      else
  1087. X        {
  1088. X          if ((*string == '.') && (*string+1 == '.') && (*string+2 == '/'))
  1089. X        {
  1090. X          *string++;
  1091. X          *string++;
  1092. X          *string++;
  1093. X        }
  1094. X        }
  1095. X      (void) strcat(curvpath[i],string);
  1096. X    }
  1097. X      else
  1098. X    {
  1099. X      if ((curvpath[i] = malloc((unsigned) (strlen(string) + sizeof(char)))) == NIL)
  1100. X        errexit(10,"malloc");
  1101. X      (void) strcpy(curvpath[i],string);
  1102. X      p++;
  1103. X      string = p;
  1104. X    }
  1105. X    }
  1106. X  if((p == NIL) && (string != NIL))
  1107. X    {
  1108. X      if(*string != '/')
  1109. X    {
  1110. X      if((curvpath[i] = malloc((unsigned) (strlen(string) + strlen(curvpath[0])
  1111. X                 + 2 * sizeof(char)))) == NIL)
  1112. X        errexit(10,"malloc");
  1113. X      (void) strcpy(curvpath[i],curvpath[0]);
  1114. X      (void) strcat(curvpath[i],"/");
  1115. X      if ((*string == '.') && (*string+1 == '/'))
  1116. X        {
  1117. X          string++;
  1118. X          string++;
  1119. X        }
  1120. X      else
  1121. X        {
  1122. X          if ((*string == '.') && (*string+1 == '.') && (*string+2 == '/'))
  1123. X        {
  1124. X          *string++;
  1125. X          *string++;
  1126. X          *string++;
  1127. X        }
  1128. X        }
  1129. X      (void) strcat(curvpath[i],string);
  1130. X    }
  1131. X      else
  1132. X    {
  1133. X      if((curvpath[i] = malloc((unsigned) (strlen(string) + sizeof(char)))) == NIL)
  1134. X        errexit(10,"malloc");
  1135. X      (void) strcpy(curvpath[i],string);
  1136. X    }
  1137. X    }
  1138. X}
  1139. X
  1140. END_OF_FILE
  1141. if test 3595 -ne `wc -c <'src/shape/vpath.c'`; then
  1142.     echo shar: \"'src/shape/vpath.c'\" unpacked with wrong size!
  1143. fi
  1144. # end of 'src/shape/vpath.c'
  1145. fi
  1146. if test -f 'src/vc/deps' -a "${1}" != "-c" ; then 
  1147.   echo shar: Will not clobber existing file \"'src/vc/deps'\"
  1148. else
  1149. echo shar: Extracting \"'src/vc/deps'\" \(3686 characters\)
  1150. sed "s/^X//" >'src/vc/deps' <<'END_OF_FILE'
  1151. Xdoretrv.o: afsapp.h
  1152. Xdoretrv.o: locks.h
  1153. Xdoretrv.o: project.h
  1154. Xdoretrv.o: retrv.h
  1155. Xdoretrv.o: typeconv.h
  1156. Xdoretrv.o: /u/shape/src/inc/afs.h
  1157. Xdoretrv.o: /u/shape/src/inc/afsys.h
  1158. Xdoretrv.o: doretrv.c
  1159. Xdosave.o: afsapp.h
  1160. Xdosave.o: locks.h
  1161. Xdosave.o: project.h
  1162. Xdosave.o: save.h
  1163. Xdosave.o: typeconv.h
  1164. Xdosave.o: /u/shape/src/inc/afs.h
  1165. Xdosave.o: /u/shape/src/inc/afsys.h
  1166. Xdosave.o: dosave.c
  1167. Xmkattr.o: afsapp.h
  1168. Xmkattr.o: retrv.h
  1169. Xmkattr.o: typeconv.h
  1170. Xmkattr.o: /u/shape/src/inc/afs.h
  1171. Xmkattr.o: /u/shape/src/inc/afsys.h
  1172. Xmkattr.o: mkattr.c
  1173. Xproject.o: project.h
  1174. Xproject.o: project.c
  1175. Xretrv.o: afsapp.h
  1176. Xretrv.o: project.h
  1177. Xretrv.o: retrv.h
  1178. Xretrv.o: typeconv.h
  1179. Xretrv.o: /u/shape/src/inc/ParseArgs.h
  1180. Xretrv.o: /u/shape/src/inc/afs.h
  1181. Xretrv.o: /u/shape/src/inc/afsys.h
  1182. Xretrv.o: retrv.c
  1183. Xsave.o: afsapp.h
  1184. Xsave.o: project.h
  1185. Xsave.o: save.h
  1186. Xsave.o: typeconv.h
  1187. Xsave.o: /u/shape/src/inc/ParseArgs.h
  1188. Xsave.o: save.c
  1189. Xsighand.o: afsapp.h
  1190. Xsighand.o: typeconv.h
  1191. Xsighand.o: /u/shape/src/inc/afs.h
  1192. Xsighand.o: /u/shape/src/inc/afsys.h
  1193. Xsighand.o: sighand.c
  1194. Xutil.o: afsapp.h
  1195. Xutil.o: locks.h
  1196. Xutil.o: project.h
  1197. Xutil.o: typeconv.h
  1198. Xutil.o: /u/shape/src/inc/afs.h
  1199. Xutil.o: /u/shape/src/inc/afsys.h
  1200. Xutil.o: util.c
  1201. Xvadm.o: afsapp.h
  1202. Xvadm.o: typeconv.h
  1203. Xvadm.o: vadm.h
  1204. Xvadm.o: /u/shape/src/inc/ParseArgs.h
  1205. Xvadm.o: /u/shape/src/inc/afs.h
  1206. Xvadm.o: /u/shape/src/inc/afsys.h
  1207. Xvadm.o: vadm.c
  1208. Xvadm_delete.o: afsapp.h
  1209. Xvadm_delete.o: locks.h
  1210. Xvadm_delete.o: typeconv.h
  1211. Xvadm_delete.o: vadm.h
  1212. Xvadm_delete.o: /u/shape/src/inc/afs.h
  1213. Xvadm_delete.o: /u/shape/src/inc/afsys.h
  1214. Xvadm_delete.o: vadm_delete.c
  1215. Xvadm_gkeys.o: afsapp.h
  1216. Xvadm_gkeys.o: typeconv.h
  1217. Xvadm_gkeys.o: vadm.h
  1218. Xvadm_gkeys.o: /u/shape/src/inc/afs.h
  1219. Xvadm_gkeys.o: /u/shape/src/inc/afsys.h
  1220. Xvadm_gkeys.o: vadm_gkeys.c
  1221. Xvadm_note.o: afsapp.h
  1222. Xvadm_note.o: locks.h
  1223. Xvadm_note.o: typeconv.h
  1224. Xvadm_note.o: vadm.h
  1225. Xvadm_note.o: vc_sysdep.h
  1226. Xvadm_note.o: /u/shape/src/inc/afs.h
  1227. Xvadm_note.o: /u/shape/src/inc/afsys.h
  1228. Xvadm_note.o: vadm_note.c
  1229. Xvadm_promote.o: afsapp.h
  1230. Xvadm_promote.o: locks.h
  1231. Xvadm_promote.o: typeconv.h
  1232. Xvadm_promote.o: vadm.h
  1233. Xvadm_promote.o: /u/shape/src/inc/afs.h
  1234. Xvadm_promote.o: /u/shape/src/inc/afsys.h
  1235. Xvadm_promote.o: vadm_promote.c
  1236. Xvadm_reserve.o: afsapp.h
  1237. Xvadm_reserve.o: locks.h
  1238. Xvadm_reserve.o: typeconv.h
  1239. Xvadm_reserve.o: vadm.h
  1240. Xvadm_reserve.o: /u/shape/src/inc/afs.h
  1241. Xvadm_reserve.o: /u/shape/src/inc/afsys.h
  1242. Xvadm_reserve.o: vadm_reserve.c
  1243. Xvadm_symname.o: afsapp.h
  1244. Xvadm_symname.o: project.h
  1245. Xvadm_symname.o: typeconv.h
  1246. Xvadm_symname.o: vadm.h
  1247. Xvadm_symname.o: /u/shape/src/inc/afs.h
  1248. Xvadm_symname.o: /u/shape/src/inc/afsys.h
  1249. Xvadm_symname.o: vadm_symname.c
  1250. Xvadm_utils.o: afsapp.h
  1251. Xvadm_utils.o: typeconv.h
  1252. Xvadm_utils.o: vadm.h
  1253. Xvadm_utils.o: vadmdefs.h
  1254. Xvadm_utils.o: /u/shape/src/inc/afs.h
  1255. Xvadm_utils.o: /u/shape/src/inc/afsys.h
  1256. Xvadm_utils.o: vadm_utils.c
  1257. Xvc_call.o: afsapp.h
  1258. Xvc_call.o: typeconv.h
  1259. Xvc_call.o: vc_call.c
  1260. Xvc_files.o: afsapp.h
  1261. Xvc_files.o: locks.h
  1262. Xvc_files.o: typeconv.h
  1263. Xvc_files.o: vc_sysdep.h
  1264. Xvc_files.o: /u/shape/src/inc/afs.h
  1265. Xvc_files.o: /u/shape/src/inc/afsys.h
  1266. Xvc_files.o: vc_files.c
  1267. Xvc_keyboardIo.o: afsapp.h
  1268. Xvc_keyboardIo.o: typeconv.h
  1269. Xvc_keyboardIo.o: vc_keyboardIo.c
  1270. Xvc_lock.o: afsapp.h
  1271. Xvc_lock.o: typeconv.h
  1272. Xvc_lock.o: /u/shape/src/inc/afs.h
  1273. Xvc_lock.o: /u/shape/src/inc/afsys.h
  1274. Xvc_lock.o: vc_lock.c
  1275. Xvl.o: afsapp.h
  1276. Xvl.o: typeconv.h
  1277. Xvl.o: vl.h
  1278. Xvl.o: /u/shape/src/inc/ParseArgs.h
  1279. Xvl.o: vl.c
  1280. Xvldovl.o: afsapp.h
  1281. Xvldovl.o: typeconv.h
  1282. Xvldovl.o: vl.h
  1283. Xvldovl.o: /u/shape/src/inc/afs.h
  1284. Xvldovl.o: /u/shape/src/inc/afsys.h
  1285. Xvldovl.o: vldovl.c
  1286. Xvlmisc.o: afsapp.h
  1287. Xvlmisc.o: typeconv.h
  1288. Xvlmisc.o: vl.h
  1289. Xvlmisc.o: /u/shape/src/inc/afs.h
  1290. Xvlmisc.o: /u/shape/src/inc/afsys.h
  1291. Xvlmisc.o: vlmisc.c
  1292. Xvlopt.o: afsapp.h
  1293. Xvlopt.o: typeconv.h
  1294. Xvlopt.o: vl.h
  1295. Xvlopt.o: /u/shape/src/inc/ParseArgs.h
  1296. Xvlopt.o: vlopt.c
  1297. END_OF_FILE
  1298. if test 3686 -ne `wc -c <'src/vc/deps'`; then
  1299.     echo shar: \"'src/vc/deps'\" unpacked with wrong size!
  1300. fi
  1301. # end of 'src/vc/deps'
  1302. fi
  1303. if test -f 'src/vc/vadm_delete.c' -a "${1}" != "-c" ; then 
  1304.   echo shar: Will not clobber existing file \"'src/vc/vadm_delete.c'\"
  1305. else
  1306. echo shar: Extracting \"'src/vc/vadm_delete.c'\" \(4539 characters\)
  1307. sed "s/^X//" >'src/vc/vadm_delete.c' <<'END_OF_FILE'
  1308. X/*
  1309. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1310. X *  and U. Pralle
  1311. X * 
  1312. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  1313. X * WARRANTY for any part of this software to work correctly or as described
  1314. X * in the manuals. We do not accept any liability for any kind of damage
  1315. X * caused by use of this software, such as loss of data, time, money, or 
  1316. X * effort.
  1317. X * 
  1318. X * Permission is granted to use, copy, modify, or distribute any part of
  1319. X * this software as long as this is done without asking for charge, and
  1320. X * provided that this copyright notice is retained as part of the source
  1321. X * files. You may charge a distribution fee for the physical act of
  1322. X * transferring a copy, and you may at your option offer warranty
  1323. X * protection in exchange for a fee.
  1324. X * 
  1325. X * Direct questions to: Tech. Univ. Berlin
  1326. X *              Wilfried Koch
  1327. X *              Sekr. FR 5-6 
  1328. X *              Franklinstr. 28/29
  1329. X *              D-1000 Berlin 10, West Germany
  1330. X * 
  1331. X *              Tel: +49-30-314-22972
  1332. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1333. X */
  1334. X#ifndef lint
  1335. Xstatic char *AFSid = "$Header: vadm_delete.c[3.7] Thu Feb 23 18:14:09 1989 axel@coma published $";
  1336. X#ifdef CFFLGS
  1337. Xstatic char *ConfFlg = CFFLGS;
  1338. X    /* should be defined from within Makefile */
  1339. X#endif
  1340. X#endif
  1341. X/*
  1342. X * Log for /u/shape/dist-tape/src/vc/vadm_delete.c[3.4]
  1343. X *     Thu Feb 23 18:14:09 1989 axel@coma published $
  1344. X *  --- empty log message ---
  1345. X *  vadm_delete.c[3.5] Thu Feb 23 18:14:09 1989 axel@coma published $
  1346. X *  --- empty log message ---
  1347. X *  vadm_delete.c[3.6] Thu Feb 23 18:14:09 1989 axel@coma save $
  1348. X *  --- empty log message ---
  1349. X *  vadm_delete.c[3.7] Thu Feb 23 18:14:09 1989 axel@coma published $
  1350. X *  --- empty log message ---
  1351. X */
  1352. X
  1353. X#include <stdio.h>
  1354. X#include <strings.h>
  1355. X
  1356. X#include "afs.h"
  1357. X#include "afsapp.h"
  1358. X#include "vadm.h"
  1359. X#include "locks.h"
  1360. X
  1361. X/* external */
  1362. Xextern char *malloc();
  1363. Xextern unsigned int options;
  1364. Xextern struct Transaction ThisTransaction;
  1365. X
  1366. X/* locals */
  1367. Xstatic char buf[2048];
  1368. X
  1369. X/**/
  1370. Xint DoDelete (vlist, ac, av)
  1371. X     struct vc_vlist *vlist;
  1372. X     int ac;
  1373. X     char **av;
  1374. X{
  1375. X  Af_set set;
  1376. X  Af_key *key;
  1377. X  Af_user *vc_testlock(), *vc_lock();
  1378. X  Uid_t lockeruid();
  1379. X  char **erroneous, *lockerid();
  1380. X  char version[1024];
  1381. X  int state;
  1382. X  int i;
  1383. X  int errs = 0;
  1384. X
  1385. X  errs = GetKeysByName (ac, av, vlist, &set, &erroneous);
  1386. X
  1387. X  if (errs)
  1388. X    print_erroneous (erroneous, errs);
  1389. X
  1390. X  if (!set.af_nkeys) {
  1391. X    logmsg ("Nothing appropriate found."); 
  1392. X    return 1;
  1393. X  }
  1394. X
  1395. X  if (errs)
  1396. X    if (IsOptionSet(Vopt_no_confirm) || IsOptionSet(Vopt_quiet) 
  1397. X    || !ask_confirm ("Continue", "yes"))
  1398. X      return 1;
  1399. X
  1400. X  ThisTransaction.tr_rc = 0;
  1401. X  for (i = 0 ; i < set.af_nkeys; i++) {
  1402. X    Af_user *thislock;
  1403. X    ThisTransaction.tr_seqno = i;
  1404. X    key = &set.af_klist[i];
  1405. X    mkvstring (version, key);
  1406. X    (void)strcpy (ThisTransaction.tr_fname, version);
  1407. X    if (setjmp (ThisTransaction.tr_env)) continue;
  1408. X    if ((state = af_rstate (key)) == -1) {
  1409. X      (void) sprintf (buf, "DoDelete (%s): af_rstate", 
  1410. X              ThisTransaction.tr_fname);
  1411. X      af_perror (buf);
  1412. X      ThisTransaction.tr_rc++;
  1413. X      continue;
  1414. X    }
  1415. X
  1416. X    if (state > AF_SAVED) {
  1417. X      (void)sprintf (buf, "%s cannot be deleted. Version state must be \"saved\".",
  1418. X           version);
  1419. X      logmsg (buf);
  1420. X      ThisTransaction.tr_rc++;
  1421. X      continue;
  1422. X    }
  1423. X
  1424. X    (void)sprintf (buf, "Delete %s ?", version);
  1425. X    thislock = vc_testlock_v(key);
  1426. X    if (locked(thislock)) {
  1427. X      if (lockeruid (thislock) != (Uid_t)getuid ()) {
  1428. X    /* locked ! ... but by somebody else */
  1429. X    (void)sprintf (buf, "No permission to delete %s (locked by %s).",
  1430. X         version, lockerid (thislock));
  1431. X    logmsg (buf); free ((char *)thislock);
  1432. X    continue;
  1433. X      }
  1434. X    }
  1435. X    else { /* the version is not locked. We must lock it to delete it. */
  1436. X      Af_user *mylock = vc_lock_v(key, (Uid_t)getuid ());
  1437. X      if (lockeruid (mylock) != (Uid_t)getuid ()) {
  1438. X    (void)sprintf (buf, "can't lock %s. Not deleted.", version);
  1439. X    logmsg (buf);
  1440. X    free ((char *)mylock); free ((char *)thislock);
  1441. X    continue;
  1442. X      }
  1443. X      free ((char *)mylock);
  1444. X    }
  1445. X    free ((char *)thislock);
  1446. X
  1447. X    if (!(IsOptionSet(Vopt_no_confirm) || IsOptionSet(Vopt_quiet)))
  1448. X      if (!ask_confirm (buf, "yes")) {
  1449. X    (void)sprintf (buf, "%s not deleted.", version);
  1450. X    logmsg (buf); free ((char *)thislock);
  1451. X    continue;
  1452. X      }
  1453. X    if (af_rm (key) == -1) {
  1454. X      (void)sprintf (buf, "DoDelete(): During deletion of %s.", version);
  1455. X      af_perror (buf);
  1456. X      return 1;
  1457. X    }
  1458. X    (void)sprintf (buf, "%s deleted.", version);
  1459. X    logmsg (buf);
  1460. X  }
  1461. X
  1462. X  if (errs)
  1463. X    return 1;
  1464. X  else
  1465. X    return 0;
  1466. X}
  1467. X
  1468. END_OF_FILE
  1469. if test 4539 -ne `wc -c <'src/vc/vadm_delete.c'`; then
  1470.     echo shar: \"'src/vc/vadm_delete.c'\" unpacked with wrong size!
  1471. fi
  1472. # end of 'src/vc/vadm_delete.c'
  1473. fi
  1474. if test -f 'src/vc/vc_keyboardIo.c' -a "${1}" != "-c" ; then 
  1475.   echo shar: Will not clobber existing file \"'src/vc/vc_keyboardIo.c'\"
  1476. else
  1477. echo shar: Extracting \"'src/vc/vc_keyboardIo.c'\" \(4259 characters\)
  1478. sed "s/^X//" >'src/vc/vc_keyboardIo.c' <<'END_OF_FILE'
  1479. X/*
  1480. X * Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1481. X *  and U. Pralle
  1482. X * 
  1483. X * This software is published on an as-is basis. There is ABSOLUTELY NO
  1484. X * WARRANTY for any part of this software to work correctly or as described
  1485. X * in the manuals. We do not accept any liability for any kind of damage
  1486. X * caused by use of this software, such as loss of data, time, money, or 
  1487. X * effort.
  1488. X * 
  1489. X * Permission is granted to use, copy, modify, or distribute any part of
  1490. X * this software as long as this is done without asking for charge, and
  1491. X * provided that this copyright notice is retained as part of the source
  1492. X * files. You may charge a distribution fee for the physical act of
  1493. X * transferring a copy, and you may at your option offer warranty
  1494. X * protection in exchange for a fee.
  1495. X * 
  1496. X * Direct questions to: Tech. Univ. Berlin
  1497. X *              Wilfried Koch
  1498. X *              Sekr. FR 5-6 
  1499. X *              Franklinstr. 28/29
  1500. X *              D-1000 Berlin 10, West Germany
  1501. X * 
  1502. X *              Tel: +49-30-314-22972
  1503. X *              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1504. X */
  1505. X#ifndef lint
  1506. Xstatic char *AFSid = "$Header: vc_keyboardIo.c[1.5] Thu Feb 23 18:14:31 1989 axel@coma published $";
  1507. X#ifdef CFFLGS
  1508. Xstatic char *ConfFlg = CFFLGS;
  1509. X    /* should be defined from within Makefile */
  1510. X#endif
  1511. X#endif
  1512. X/*
  1513. X * Log for /u/shape/dist-tape/src/vc/vc_keyboardIo.c[1.3]
  1514. X *     Thu Feb 23 18:14:31 1989 axel@coma published $
  1515. X *  --- empty log message ---
  1516. X *  vc_keyboardIo.c[1.4] Thu Feb 23 18:14:31 1989 axel@coma published $
  1517. X *  --- empty log message ---
  1518. X *  vc_keyboardIo.c[1.5] Thu Feb 23 18:14:31 1989 axel@coma published $
  1519. X *  --- empty log message ---
  1520. X */
  1521. X
  1522. X#include <stdio.h>
  1523. X#include "afsapp.h"
  1524. X
  1525. Xextern char *malloc();
  1526. X
  1527. X#define INPUTQUEUE 4000
  1528. X#define PROMPT "> "
  1529. X
  1530. X/*ARGSUSED*/
  1531. Xstatic
  1532. Xchar *read_unbuffered (term_char)
  1533. X     int term_char;
  1534. X{
  1535. X  char *frame, *nextframe;
  1536. X  int this_char, last_char, last_last_char, curlen, maxlen;
  1537. X
  1538. X  if ((frame = 
  1539. X       malloc ((unsigned)(sizeof (char) * (INPUTQUEUE + 1)))) == NULL) {
  1540. X    fprintf (stderr, "read_unbuffered: can't malloc frame");
  1541. X    exit (1);
  1542. X  }
  1543. X
  1544. X  curlen = 0;
  1545. X  maxlen = INPUTQUEUE;
  1546. X  nextframe = NULL;
  1547. X  last_char = last_last_char = -1;
  1548. X  
  1549. X  (void)fflush(stdin);
  1550. X  printf (PROMPT);
  1551. X
  1552. X  while ((this_char = getchar()) != EOF) {
  1553. X    if (curlen == maxlen) {
  1554. X     /* we need a new frame */
  1555. X      nextframe = 
  1556. X    malloc ((unsigned)(sizeof (char) * (maxlen + INPUTQUEUE + 1)));
  1557. X      if (nextframe == NULL) {
  1558. X    fprintf (stderr, "read_unbuffer: can't malloc new frame,2");
  1559. X    exit (1);
  1560. X      }
  1561. X
  1562. X      bzero (nextframe, maxlen + INPUTQUEUE + 1);
  1563. X      bcopy (frame, nextframe, maxlen);
  1564. X      free (frame);
  1565. X      maxlen += INPUTQUEUE;
  1566. X      frame = nextframe;
  1567. X    }
  1568. X    
  1569. X    frame[curlen++] = this_char;
  1570. X
  1571. X    if (this_char == '\n') {
  1572. X      if ((last_char == '.')
  1573. X      && ((last_last_char == '\n') || (last_last_char == -1))) {
  1574. X    /* input is done */
  1575. X    curlen -= 2;        /* forget "<term_char>\n"  */
  1576. X    break;
  1577. X      }
  1578. X      else
  1579. X    printf (PROMPT);        /* print prompt */
  1580. X    }
  1581. X    
  1582. X    last_last_char = last_char;
  1583. X    last_char = this_char;
  1584. X  }
  1585. X  frame[curlen] = NULL;
  1586. X  return frame;
  1587. X}
  1588. X
  1589. Xstatic
  1590. Xchar *read_buffered ()
  1591. X{
  1592. X  /* hmmm, muss ich erstmal ueber eine geniale
  1593. X   * Implementierung nachdenken. Also erstmal
  1594. X   * read_unbuffered ().
  1595. X   */
  1596. X
  1597. X  return read_unbuffered (-1);    /* no special term_char */
  1598. X}
  1599. X
  1600. Xchar *get_from_stdin (contents, term_char)
  1601. X     char *contents;
  1602. X     int term_char;        /* char that indicates input termination */
  1603. X{
  1604. X  /*
  1605. X   * Reads from stdin a text terminated by ^D or by a specified
  1606. X   * single charcter "term_char" at the beginning of a new line.
  1607. X   * If term_char is -1 text is terminated  by ^D.
  1608. X   *
  1609. X   * The text is appended to "contents", if "contents" is given.
  1610. X   */
  1611. X  char *tmp, *new;
  1612. X  int ltmp, lcontents;        /* length of tmp and contents */
  1613. X  
  1614. X  if (!isatty (0))        /* 0 == stdin */
  1615. X    tmp = read_buffered ();    /* ignore term_char */
  1616. X  else
  1617. X    tmp = read_unbuffered (term_char);
  1618. X
  1619. X  if (contents && *contents) {
  1620. X    ltmp = strlen (tmp);
  1621. X    lcontents = strlen (contents);
  1622. X    if ((new = 
  1623. X     malloc ((unsigned)(sizeof (char) * (ltmp+lcontents+1)))) == NULL) {
  1624. X      fprintf (stderr, "Get_from_stdin: Can't malloc");
  1625. X      exit (1);
  1626. X    }
  1627. X
  1628. X    (void)sprintf (new, "%s%s", contents, tmp);
  1629. X    free (tmp);
  1630. X    return new;
  1631. X  }
  1632. X
  1633. X  return tmp;
  1634. X}
  1635. END_OF_FILE
  1636. if test 4259 -ne `wc -c <'src/vc/vc_keyboardIo.c'`; then
  1637.     echo shar: \"'src/vc/vc_keyboardIo.c'\" unpacked with wrong size!
  1638. fi
  1639. # end of 'src/vc/vc_keyboardIo.c'
  1640. fi
  1641. if test -f 'src/vfind/Shapefile' -a "${1}" != "-c" ; then 
  1642.   echo shar: Will not clobber existing file \"'src/vfind/Shapefile'\"
  1643. else
  1644. echo shar: Extracting \"'src/vfind/Shapefile'\" \(4217 characters\)
  1645. sed "s/^X//" >'src/vfind/Shapefile' <<'END_OF_FILE'
  1646. X#
  1647. X# Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1648. X#  and U. Pralle
  1649. X# 
  1650. X# This software is published on an as-is basis. There is ABSOLUTELY NO
  1651. X# WARRANTY for any part of this software to work correctly or as described
  1652. X# in the manuals. We do not accept any liability for any kind of damage
  1653. X# caused by use of this software, such as loss of data, time, money, or effort.
  1654. X# 
  1655. X# Permission is granted to use, copy, modify, or distribute any part of
  1656. X# this software as long as this is done without asking for charge, and
  1657. X# provided that this copyright notice is retained as part of the source
  1658. X# files. You may charge a distribution fee for the physical act of
  1659. X# transferring a copy, and you may at your option offer warranty
  1660. X# protection in exchange for a fee.
  1661. X# 
  1662. X# Direct questions to: Tech. Univ. Berlin
  1663. X#              Wilfried Koch
  1664. X#              Sekr. FR 5-6 
  1665. X#              Franklinstr. 28/29
  1666. X#              D-1000 Berlin 10, West Germany
  1667. X# 
  1668. X#              Tel: +49-30-314-22972
  1669. X#              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1670. X# 
  1671. X# Shapefile for vfind
  1672. X# $Header: Shapefile[1.6] Tue Feb 21 20:23:03 1989 uli@coma published $
  1673. X#
  1674. X# Log for /u/shape/dist-tape/src/vfind/Shapefile[1.6]
  1675. X#     Tue Feb 21 20:23:03 1989 uli@coma published $
  1676. X#      * This is the Shapefile for vfind. It works on BSD 4.3, SunOS
  1677. X#      4.0, and Ultrix 2.0.
  1678. X#  
  1679. X#  
  1680. X#
  1681. X# This is the directory where the AFS header files reside.
  1682. XAFSINC = /u/shape/src/inc
  1683. X# This is the directory where the AFS libraries reside.
  1684. XAFSLIBPATH = /u/shape/lib
  1685. X#
  1686. X# You are ready, if you don't want to install vfind via shape.
  1687. XINSTALDIR = /u/shape/bin
  1688. X#
  1689. X# Ok, that's it. Don't change other macros settings.
  1690. XRULE=
  1691. XSYSTEM=bsd_4_3
  1692. XCOMPILER=pcc
  1693. XQUALITY=debug
  1694. XAFSLIBS = $(AFSLIBPATH)/libutil.a $(AFSLIBPATH)/libafs.a
  1695. X
  1696. X#% RULE-SECTION
  1697. Xrel:
  1698. X    $(AFSINC)/*, attr (state, busy);
  1699. X    *.a, attr (state, busy);
  1700. X    *, attrge (state, published), attrmax (version).
  1701. X
  1702. Xvsave:
  1703. X    *, attrmax (version);
  1704. X    *.a, attr (state, busy).
  1705. X
  1706. X
  1707. X#% END-RULE-SECTION
  1708. X
  1709. X#% VARIANT-SECTION
  1710. X
  1711. Xvclass system ::= (bsd_4_3, sunos_4_0, ultrix_2_0)
  1712. Xvclass compiler ::= (pcc, gcc)
  1713. X#
  1714. X#
  1715. Xcfflags:
  1716. X    vflags = -DCFFLGS='"$$Flags: <$<> $(CFLAGS) $$"'
  1717. X#
  1718. X# vclass system
  1719. Xbsd_4_3:
  1720. X    CFLAGS = -DBSD_4_3
  1721. X    LIBS = $(AFSLIBS)
  1722. Xsunos_4_0:
  1723. X    CFLAGS = -DSUNOS_4_0
  1724. X    LIBS = $(AFSLIBS)
  1725. Xultrix_2_0:
  1726. X    CFLAGS = -DULTRIX_2_0
  1727. X    LIBS = $(AFSLIBS) -ldbm
  1728. X#
  1729. X# vclass compiler
  1730. X#
  1731. Xpcc:
  1732. X    CC=cc $(INCLUDES)
  1733. Xgnu:
  1734. X    CC=gcc -traditional 
  1735. X    CFLAGS=-g -fwritable-strings $(INCLUDES)
  1736. X#
  1737. X# vclass quality
  1738. X#
  1739. Xdebug:
  1740. X    CFLAGS=-g
  1741. X
  1742. Xas:
  1743. X    CFLAGS=-S
  1744. X
  1745. Xprofile:
  1746. X    CFLAGS=-pg
  1747. X    LDFLAGS=-pg
  1748. X
  1749. Xoptimize:
  1750. X    CFLAGS=-O
  1751. X
  1752. Xmaxoptimize:
  1753. X    CFLAGS=-O -finline-functions -fcombine-regs -fstrength-reduce
  1754. X
  1755. Xpreprocess:
  1756. X    CFLAGS=-E
  1757. X
  1758. X#% END-VARIANT-SECTION
  1759. X
  1760. XCOMPONENTS = $(SOURCES) $(HEADERS) $(MANUALS) Shapefile README
  1761. XSOURCES = vfind.c vfversion.c at_misc.c
  1762. XOBJECTS = vfind.o vfversion.o at_misc.o
  1763. XHEADERS = atk.h
  1764. XMANUALS = vfind.1
  1765. XINCLUDES = -I$(AFSINC)
  1766. X
  1767. X.BPOOL:
  1768. X#.NOBPOOL:
  1769. X
  1770. Xvfind: $(RULE) +cfflags +$(SYSTEM) +$(COMPILER) +$(QUALITY) $(LIBS) $(OBJECTS)
  1771. X    $(CC) $(LDFLAGS) -o vfind $(OBJECTS) $(LIBS)
  1772. X
  1773. Xpreprel: rel @newrel @publish
  1774. X
  1775. Xcomprel: rel vfind
  1776. X
  1777. X
  1778. Xlint: +$(SYSTEM) +$(COMPILER) +$(QUALITY) +$(PURITY) $(COMPONENTS)
  1779. X    lint $(CFLAGS) $(INCLUDES) $(COMPONENTS)
  1780. X
  1781. XVERSIONPROTO = /u/shape/lib/version.c
  1782. Xvfversion.o: $(VERSIONPROTO)
  1783. Xvfind.o: atk.h
  1784. X
  1785. X#
  1786. X# Metatargets
  1787. X#
  1788. X@save:
  1789. X    save -q $(COMPONENTS)
  1790. X
  1791. X@publish:
  1792. X    sbmt -q $(COMPONENTS) -n $(RELNAME)
  1793. X
  1794. X@newrel:
  1795. X    cp $(VERSIONPROTO) vfversion.c ; \
  1796. X    sbmt -fq vfversion.c
  1797. X
  1798. X@sunset: $(COMPONENTS)
  1799. X    rsh troll '(cd vfind; rm -f $(COMPONENTS) )';
  1800. X    rcp $(COMPONENTS) troll:vfind;
  1801. X    rsh troll '(set path = ($$path /usr/gnu/bin) ;cd vfind; /u/shape/bin/shape SYSTEM=sunos_4_0)'
  1802. X
  1803. X@suninstall: vsave $(COMPONENTS)
  1804. X    rsh troll '(cd vfind; rm -f $(COMPONENTS) )';
  1805. X    rcp $(COMPONENTS) troll:vfind;
  1806. X    rsh troll '(set path = ($$path /usr/gnu/bin) ;cd vfind; /u/shape/bin/shape SYSTEM=sunos_4_0)'
  1807. X
  1808. X@vaxset: $(COMPONENTS)
  1809. X    rsh chaos '(cd vfind; rm -f $(COMPONENTS) )';
  1810. X    rcp $(COMPONENTS) chaos:vfind;
  1811. X    rsh chaos '(set path = ($$path /usr/local) ;cd vfind; /u/shape/bin/shape SYSTEM=ultrix_2_0)'
  1812. X
  1813. X@bclean:
  1814. X    rm -f AFS/?B*
  1815. X
  1816. Xinstall: rel vfind
  1817. X    @echo installing vfind in $(INSTALDIR); \
  1818. X    install -c -m 755 vfind $(INSTALDIR)
  1819. X
  1820. X@nothing:
  1821. X
  1822. X@echocomp:
  1823. X    @echo $(COMPONENTS)
  1824. X
  1825. Xtags:
  1826. X    etags $(SOURCES) $(HEADERS)
  1827. END_OF_FILE
  1828. if test 4217 -ne `wc -c <'src/vfind/Shapefile'`; then
  1829.     echo shar: \"'src/vfind/Shapefile'\" unpacked with wrong size!
  1830. fi
  1831. # end of 'src/vfind/Shapefile'
  1832. fi
  1833. if test -f 'tutorial/tutorial.ms' -a "${1}" != "-c" ; then 
  1834.   echo shar: Will not clobber existing file \"'tutorial/tutorial.ms'\"
  1835. else
  1836. echo shar: Extracting \"'tutorial/tutorial.ms'\" \(4195 characters\)
  1837. sed "s/^X//" >'tutorial/tutorial.ms' <<'END_OF_FILE'
  1838. X.\"
  1839. X.\" Copyright (C) 1989, 1990 W. Koch, A. Lampen, A. Mahler, W. Obst,
  1840. X.\"  and U. Pralle
  1841. X.\" 
  1842. X.\" This software is published on an as-is basis. There is ABSOLUTELY NO
  1843. X.\" WARRANTY for any part of this software to work correctly or as described
  1844. X.\" in the manuals. We do not accept any liability for any kind of damage
  1845. X.\" caused by use of this software, such as loss of data, time, money, or 
  1846. X.\" effort.
  1847. X.\" 
  1848. X.\" Permission is granted to use, copy, modify, or distribute any part of
  1849. X.\" this software as long as this is done without asking for charge, and
  1850. X.\" provided that this copyright notice is retained as part of the source
  1851. X.\" files. You may charge a distribution fee for the physical act of
  1852. X.\" transferring a copy, and you may at your option offer warranty
  1853. X.\" protection in exchange for a fee.
  1854. X.\" 
  1855. X.\" Direct questions to: Tech. Univ. Berlin
  1856. X.\"              Wilfried Koch
  1857. X.\"              Sekr. FR 5-6 
  1858. X.\"              Franklinstr. 28/29
  1859. X.\"              D-1000 Berlin 10, West Germany
  1860. X.\" 
  1861. X.\"              Tel: +49-30-314-22972
  1862. X.\"              E-mail: shape@coma.uucp or shape@db0tui62.bitnet
  1863. X.\" 
  1864. X.IZ
  1865. X.sp 1i
  1866. X.nr PS 30
  1867. X.ps \n(PS
  1868. X.nr VS 33
  1869. X.vs \n(VS
  1870. X.ce 2
  1871. XA tutorial introduction to the
  1872. X\f(HB\s-1shape\s+1\fR-toolkit
  1873. X.sp 1i
  1874. X.nr PS 12
  1875. X.ps \n(PS
  1876. X.nr VS 14
  1877. X.vs \n(VS
  1878. X.ce 3
  1879. X\fIWilfried Koch, Andreas Lampen, Axel Mahler, Wolfgang Obst, Uli Pralle\fR
  1880. XTechnische Universit\*:at Berlin
  1881. X.sp 4i
  1882. X.ce
  1883. XPreliminary Draft (\n(dy.\n(mo.\n(yr)
  1884. X.bp
  1885. X.NH 1
  1886. XAbout the status of this release
  1887. X.PP
  1888. XAs you will see when going on reading, this tutorial is still very raw
  1889. Xand incomplete. Properly spoken it is just a small fragment of the
  1890. Xtutorial we plan to write. We put this on the distribution tape because
  1891. Xwe think that a fragment of a tutorial is better than no
  1892. Xtutorial at all.
  1893. X.NH 1
  1894. XIntroduction
  1895. X.PP
  1896. XThe \*(sh-toolkit is a collection of programs to support
  1897. Xsoftware configuration management in an
  1898. X.UX
  1899. Xenvironment. It consists of a set of version control
  1900. Xcommands and \*(sh, a significantly enhanced \fIMake-oid\fR. \*(sh and
  1901. Xthe version control commands are integrated on top of AFS (Attributed
  1902. XFile System), a dedicated version object base. The system features
  1903. XRCS-style version control and a configuration identification and
  1904. X-build process that has full access to all revisions in the object
  1905. Xbase (other than make which only knows about plain files).  AFS also
  1906. Xsupports derived object management, i.e. it maintains a cache of
  1907. Xmultiple versions of compiled object-files (e.g. compiled c-files with
  1908. Xdifferent compile switches).
  1909. X.PP
  1910. XThe \*(sh program itself is upward compatible to Make in that it can
  1911. Xproperly handle conventional Makefiles. The \fIShapefile\fR however, uses
  1912. XMakefile-style dependencies as (versionless) \fIabstract system model\fR
  1913. Xand employs \fIconfiguration selection rules\fR to dynamically bind
  1914. Xparticular version objects in the object base to the names listed in
  1915. Xthe system model. The version selection mechanism exploits AFS'
  1916. Xability to maintain any number of arbitrary attributes for objects in
  1917. Xthe object base.
  1918. XOn special request, \*(sh records an identified configuration in a
  1919. X\fIconfiguration identification document\fR (CID) which has the form of
  1920. Xa completely bound Shapefile (all object-instances are explicit). This
  1921. Xmakes it particularly easy to rebuild recorded configurations. As 
  1922. XCID's are themselves documents, they can be placed under version control,
  1923. Xmaking it easy to maintain histories of entire software systems. 
  1924. X.PP
  1925. XThe object base abstraction presented by AFS provides uniform access to
  1926. Ximmutable revisions of data entities (files) stored in special
  1927. Xarchives, and mutable regular
  1928. X.UX
  1929. Xfiles. Consequently, the AFS based
  1930. Xtoolkit lives peacefully (and meaningfully!) together with standard
  1931. Xfilesystem applications (editors, compilers, formatters etc.).
  1932. XCooperative work within projects is supported by a build-in status
  1933. Xmodel, controlling visibility of version objects, and locking, a
  1934. Xprimitive form of \fIlong transactions\fR. The general concept of object
  1935. Xattributes provides for passing information between individual tools
  1936. Xthat would otherwise be lost. This mechanism is useful for building
  1937. Xintegrated environments from a set of unrelated tools.
  1938. X.bp
  1939. X.so make2shape.ms
  1940. X.bp
  1941. X.so trouble.ms
  1942. END_OF_FILE
  1943. if test 4195 -ne `wc -c <'tutorial/tutorial.ms'`; then
  1944.     echo shar: \"'tutorial/tutorial.ms'\" unpacked with wrong size!
  1945. fi
  1946. # end of 'tutorial/tutorial.ms'
  1947. fi
  1948. echo shar: End of archive 5 \(of 33\).
  1949. cp /dev/null ark5isdone
  1950. MISSING=""
  1951. 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
  1952.     if test ! -f ark${I}isdone ; then
  1953.     MISSING="${MISSING} ${I}"
  1954.     fi
  1955. done
  1956. if test "${MISSING}" = "" ; then
  1957.     echo You have unpacked all 33 archives.
  1958.     rm -f ark[1-9]isdone ark[1-9][0-9]isdone
  1959. else
  1960.     echo You still need to unpack the following archives:
  1961.     echo "        " ${MISSING}
  1962. fi
  1963. ##  End of shell archive.
  1964. exit 0
  1965.