source/texk/web2c/cwebdir/readme.ql

   1 This is the readme file for CWEB for QDOS/SMSQ systems
   2
   3 (These instructions are for systems with Toolkit II,
   4  please report any problems to me, the address is at the
   5  end of the file)
   6
   7 If you want to compile CWEB for your QL system, you must first
   8 convert the ASCII code to the QL's character set.  Therefore you
   9 can use the little BASIC program appended at the end of the file.
  10
  11 For a first version you have to alter the supplied ctangle_c file.
  12 Set your DATA_USE to the directory you have the CWEB sources in, and
  13 the PROG_USE to C68's directory.
  14 compile it with:
  15 ex cc;'common_c ctangle_c -bufp500K -octangle'
  16
  17 then ctangle the source files with:
  18 ex datad$&'ctangle';'common_w comm-ql_ch'
  19 ex datad$&'ctangle';'ctangle_w ctang-ql_ch'
  20 ex datad$&'ctangle';'cweave_w cweav-ql_ch'
  21
  22 Compile the following way (C68v4.14 +):
  23
  24 ex cc;'-c common_c'
  25 ex cc;'-c ctangle_c'
  26 ex cc;'-c cweave_c'
  27 ex ld;'-bufp500K common_o ctangle_o -octangle'
  28 ex ld;'-bufp500K common_o cweave_o -ocweave'
  29
  30 After that copy the ctangle and cweave executables into your
  31 programs directory (if you want them there).
  32
  33 The DATA default may be used as usual.  E.g. if you have
  34 a file win2_data_test_w and the DATA default set to
  35 win2_data_ you may call ctangle with
  36      ex ctangle;'test'
  37 assuming that ctangle is in your PROG default.
  38
  39 Please report any problems with the QL version to:
  40 Robert Klein
  41 Bluecherstrasse 24
  42 D-56349 Kaub
  43 Germany
  44
  45
  46 **************** ASCII Conversion program ***************
  47 With this program you can convert DOS and Unix 7-Bit ASCII
  48 files to the QL's character set.  You'll need Toolkit II.
  49 The program will take all the files in the source directory
  50 and put them converted into the destination&source directory,
  51 e.g. you have as drive1$='win2_', drive2$='win3_',
  52 path1$='cweb_' and path2$='ql_'.  Then the routine will take
  53 all files in win2_cweb_ (wthout subdirectories!) convert them
  54 and write them to 'win3_ql_cweb_'.  It's only a lousy hack,
  55 but it'll do it's job.
  56
  57 1000 DEFine PROCedure dos2ql (drive1$,path1$,drive2$,path2$)
  58 1002 LOCal zx$,zx%,ishl,ashl
  59 1005 DELETE drive2$&path2$&'dirlist'
  60 1010 OPEN_NEW#5,drive2$&path2$&'dirlist'
  61 1020 DIR#5,drive1$&path1$
  62 1030 CLOSE#5
  63 1040 OPEN_IN#5,drive2$&path2$&'dirlist'
  64 1050 INPUT#5,zx$:INPUT#5,zx$:REMark devicename and sectors
  65 1060 REPeat ashl
  66 1070   IF EOF(#5)THEN EXIT ashl
  67 1080   INPUT#5,zx$
  68 1085   IF '->' INSTR zx$ THEN NEXT ashl
  69 1090   OPEN_IN#3,drive1$&zx$
  70 1100   OPEN_NEW#4,drive2$&path2$&zx$
  71 1110   REPeat ishl
  72 1120     IF EOF(#3)THEN EXIT ishl
  73 1130     BGET#3,zx%
  74 1140     SELect ON zx%
  75 1150       = 13:REMark do nothing (DOS LineFeed)
  76 1155       = 26:REMark do nothing (DOS EOF sign)
  77 1160       = 96: BPUT#4,159:REMark Unix/DOS beginning quote sign
  78 1170       = REMAINDER : BPUT#4,zx%
  79 1180     END SELect
  80 1190   END REPeat ishl
  81 1195   CLOSE#3:CLOSE#4
  82 1200 END REPeat ashl
  83 1205 CLOSE#5
  84 1210 END DEFine dos2ql