← Back to branch summary

~ubuntu-branches/debian/lenny/fpc/lenny

« back to all changes in this revision

Viewing changes to packages/extra/amunits/rexx/getrecord.rexx

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-05-17 17:12:11 UTC
  • mfrom: (3.1.9 intrepid)
  • Revision ID: james.westby@ubuntu.com-20080517171211-9qi33xhd9evfa0kg
Tags: 2.2.0-dfsg1-9
http://bugs.debian.org/477743
[ Torsten Werner ]
* Add Mazen Neifer to Uploaders field.

[ Mazen Neifer ]
* Moved FPC sources into a version dependent directory from /usr/share/fpcsrc
  to /usr/share/fpcsrc/${FPCVERSION}. This allow installing more than on FPC
  release.
* Fixed far call issue in compiler preventing building huge binearies.
  (closes: #477743)
* Updated building dependencies, recomennded and suggested packages.
* Moved fppkg to fp-utils as it is just a helper tool and is not required by
  compiler.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/amunits/rexx/getrecord.rexx
1
 
/* getrecord.rexx
2
 
 
3
 
   This is a rexxscript to scan for pascal records.
4
 
 
5
 
   I made this one to check my translation of
6
 
   cheaders to fpc units. It will write two
7
 
   files one pascalfile and one cfile.
8
 
 
9
 
   The pascalfile you can almost everytime just
10
 
   compile with fpc. In the cfile you have to
11
 
   make some changes, just put in a line that
12
 
   include the cheader for you testprogram.
13
 
 
14
 
   So if you translate a cheader to fpc just
15
 
   let this script check it out, if you get
16
 
   the same result from both program you have
17
 
   probably made the translation correct.
18
 
 
19
 
   Usage:
20
 
 
21
 
   rx getrecord yourunit.pas
22
 
 
23
 
   nils.sjoholm@mailbox.swipnet.se
24
 
 
25
 
*/
26
 
 
27
 
 
28
 
SIGNAL ON BREAK_C
29
 
SIGNAL ON SYNTAX
30
 
 
31
 
parse arg name
32
 
 
33
 
if name = '' then do
34
 
   say 'Input filename to scan for records'
35
 
   parse pull name end
36
 
   if name = '' then do
37
 
   say 'Error no filename'
38
 
   exit 20
39
 
   end
40
 
   end
41
 
 
42
 
k = 1
43
 
 
44
 
thesource = name
45
 
 
46
 
if index(name,'.') > 0 then do
47
 
parse var name thesource '.' extension
48
 
end
49
 
 
50
 
pasname = thesource || 'rec1.pas'
51
 
cname = thesource || 'rec2.c'
52
 
 
53
 
IF ~Open('textfile',name,'READ') THEN DO
54
 
    say 'File not found'
55
 
    exit 20
56
 
end
57
 
else do
58
 
  say 'Scanning ' || name
59
 
  i = 1
60
 
  DO WHILE ~eof('textfile')
61
 
     line.i = ReadLn('textfile')
62
 
     line.i = Strip(line.i)
63
 
     myproc = Word(line.i,3)
64
 
     myproc = Upper(myproc)
65
 
     IF myproc = "RECORD" THEN DO
66
 
        CALL CheckLine(line.i)
67
 
        SAY "Doing line :" || i
68
 
     END
69
 
     i = i +1
70
 
  END
71
 
  CALL Close('textfile')
72
 
  if k > 1 then do
73
 
     call writepasfile
74
 
     call writecfile
75
 
     say 'Done'
76
 
  end
77
 
  else say 'No records found'
78
 
END
79
 
EXIT
80
 
 
81
 
pasheader:
82
 
       writeln('outfile','Program testrecords;')
83
 
       writeln('outfile','')
84
 
       writeln('outfile','uses exec,' || thesource || ';')
85
 
       writeln('outfile','')
86
 
       writeln('outfile','begin')
87
 
return
88
 
 
89
 
writepasfile:
90
 
    if ~Open('outfile',pasname,'W') then do
91
 
    say 'Can not create file'
92
 
    exit 20
93
 
    end
94
 
    else do
95
 
    SAY "Working on " || pasname
96
 
    call pasheader
97
 
    do j = 1 to k-1
98
 
    thename = record.j
99
 
    towrite = 'writeln(' || "'" || thename || "',' ':30-length(" || "'" ||thename || "'),"
100
 
    towrite = towrite || "':'"
101
 
    towrite = towrite || ',sizeof(' || thename || '));'
102
 
 
103
 
    writeln('outfile',towrite)
104
 
    end j
105
 
    writeln('outfile','end.')
106
 
    writeln('outfile','')
107
 
    CALL Close('outfile')
108
 
 
109
 
RETURN
110
 
 
111
 
cheader:
112
 
    writeln('outfile','');
113
 
    writeln('outfile','#include ' || '"stdio.h"')
114
 
    writeln('outfile','')
115
 
    writeln('outfile','main()')
116
 
    writeln('outfile','{')
117
 
    return
118
 
 
119
 
writecfile:
120
 
    if ~Open('outfile',cname,'W') then do
121
 
    say 'Can not create file'
122
 
    exit 20
123
 
    end
124
 
    else do
125
 
    SAY "Working on " || cname
126
 
    call cheader
127
 
    do j = 1 to k-1
128
 
    thename = record.j
129
 
    towrite = 'printf(' || '"%-30s:%d\n","' || thename || '",'
130
 
    towrite = towrite || 'sizeof(struct ' || right(thename,length(thename)-1) ||'));'
131
 
 
132
 
    writeln('outfile',towrite)
133
 
    end j
134
 
    writeln('outfile','}')
135
 
    writeln('outfile','')
136
 
 
137
 
    CALL Close('outfile')
138
 
return
139
 
 
140
 
CheckLine:
141
 
    PARSE ARG theline
142
 
    parse var theline thename thesep therecord therest
143
 
    if thesep = '=' then do
144
 
    thename = strip(thename)
145
 
    record.k = thename
146
 
    k = k +1
147
 
    end
148
 
RETURN
149
 
 
150
 
 
151
 
 
152
 
BREAK_C:
153
 
SYNTAX:
154
 
SAY "Sorry, error line" SIGL ":" ErrorText(RC) ":-("
155
 
EXIT
156
 
 
157