Can I use an UE macro as preprocessor replacement?

smap · Jul 08, 2006#12006-07-08T17:06+00:00

Working in a language called Progress. I'm trying to create a macro to replace a preprocessor constant with it's defined value.

/* example preprocessor definitions */
&scop constant_friendly_name constant_value
&scop num_days_in_week 7
&scop days_of_week Mon Tue Wed Thu Fri Sat Sun

/* the constant name is 1 word, followed by >= 1 space, then the constant value; the constant value *could* span lines if line-terminated with ~ but I am not concerned with that scenario as it's rarely used in the code I'm dealing with */

/* in code the constant is wrapped inside {& } like so: */
print "{&days_of_week}".

/* would like the macro to change this to */
print "Mon Tue Wed Thu Fri Sat Sun".

Is this possible with UltraEdit and if so, can someone give me some pointers? I'm using the 12.10a build.

Thanks!

Mofi · Jul 08, 2006#22006-07-08T21:31+00:00

That was no problem for me because I already have several macros which are for string replacements. But none of my macros is so easy as the following one which should work for you. It is easy because the line with the 2 strings has an identifier string (&scop) and the first string is always a single word and not a term with spaces like in my macros.

The macro needs the property Continue if a Find with Replace not found enabled.

It also works for multi-line defines because it selects always from start of the replacement string till the end of the line which has no ~ at the end. This is normally the end of the current line. You must make sure only that you never have 1 or more trailing spaces if they should not be also part of the replacement string.

If your defines are case-sensitive, add the find parameter MatchCase at the find command Find "{&^c}".

Here is the macro for UltraEdit style:

InsertMode
ColumnModeOff
HexOff
UnixReOff
Top
Clipboard 9
Loop
Find "&scop"
IfNotFound
ExitLoop
EndIf
EndSelect
Key Ctrl+RIGHT ARROW
SelectWord
StartSelect
Copy
EndSelect
Key Ctrl+RIGHT ARROW
StartSelect
Find RegExp Select "[~^~]$"
Find "{&^c}"
Replace All "^s"
EndSelect
EndLoop
ClearClipboard
Clipboard 0

If you prefer legacy Unix engine, modify the 4th command to UnixReOn and use following regular expression find to select the (multi-line) replacement string:

Find RegExp Select "[^~]$"

I have had no success with this macro with the Perl engine with UE v12.10a. The are still some bugs with it. In this case it finds first "&scop" (a normal find!) but the macro exits the loop - strange!

Note: If instead of Find "{&^c}" and Replace All "^s" the command ReplInFiles is used, the macro can be used also for projects with multiple files where all defines are stored in a separate file.

smap · Jul 08, 2006#32006-07-08T22:59+00:00

Great. Thanks so much!

I modified it a bit to get it to work just as I needed.

InsertMode
ColumnModeOff
HexOff
Clipboard 9
Find "&"
IfNotFound
ExitLoop
EndIf
TrimTrailingSpaces
Find " "
Key RIGHT ARROW
Key LEFT ARROW
UnixReOn
Find RegExp Select "[\w-]*"
UnixReOff
Copy
Find " "
Key RIGHT ARROW
Key LEFT ARROW
StartSelect
Find RegExp Select "[~^~]$"
Find "{&^c}"
Replace All "^s"
EndSelect
EndLoop
ClearClipboard
Clipboard 0

I can't replace ALL preprocessors in any given file, so I removed the Top command and I assume I'm at the start of the line containing the target preprocessor when I run the macro.

I also added a TrimTrailingSpaces as I believe the preprocessor does that itself.

I neglected to mention originally that &scop, &scoped-define, &glob, and &global-define are all valid preprocessor directives, so I changed '&scop' to '&'. I'm not sure if this correctly accomplishes the sanity check that should probably be here, but that's OK for now.

Also '-' is a legal character in a preprocessor name so I kludged around SelectWord. I suspect there is a better way to do this.

Thanks again

Mofi · Jul 09, 2006#42006-07-09T16:50+00:00

Does your macro really work?

It contains the commands ExitLoop and EndLoop but no Loop. And Find " " with the following cursor movements moves the cursor only to the position after first space after the definition string. You have written in your first post " followed by >= 1 space" and so your code will fail if there are more than 1 space.

Here is an improved version of the macro in Unix regex style according to the new infos from your second post. If you don't want the loop, remove the red lines.

InsertMode
ColumnModeOff
HexOff
UnixReOn
TrimTrailingSpaces
Clipboard 9
Loop
Find RegExp "(&scop[-defin]*|&glob[-adefiln]*)"
IfFound
EndSelect
Key Ctrl+RIGHT ARROW
Find RegExp "[\w-]*"
StartSelect
Copy
EndSelect
Key Ctrl+RIGHT ARROW
StartSelect
Find RegExp Select "[^~]$"
Find "{&^c}"
Replace All "^s"
EndSelect
Else
ExitLoop
ClearClipboard
EndIf
EndLoop
Clipboard 0

If someone else is interested in, here is the macro with UltraEdit regex style:

InsertMode
ColumnModeOff
HexOff
UnixReOff
TrimTrailingSpaces
Clipboard 9
Loop
Find RegExp "^{&scop[^-defin]++^}^{&glob[^-adefiln]++^}"
IfFound
EndSelect
Key Ctrl+RIGHT ARROW
Find RegExp "[0-9A-Z_^-]+"
StartSelect
Copy
EndSelect
Key Ctrl+RIGHT ARROW
StartSelect
Find RegExp Select "[~^~]$"
Find "{&^c}"
Replace All "^s"
EndSelect
Else
ExitLoop
ClearClipboard
EndIf
EndLoop
Clipboard 0

With the loop the macro needs the macro property Continue if a Find with Replace not found enabled.

smap · Jul 09, 2006#52006-07-09T17:29+00:00

Mofi wrote:Does your macro really work?

Yes I wouldn't have reposted it having just written it and not trying it at least once.

Now I see however that it worked mostly by coincidence given it had some syntactical and logic errors.

Mofi wrote:It contains the commands ExitLoop and EndLoop but no Loop. And Find " " with the following cursor movements moves the cursor only to the position after first space after the definition string. You have written in your first post " followed by >= 1 space" and so your code will fail if there are more than 1 space.

Absolutely right. My mistakes.

Mofi wrote:Here is an improved version of the macro in Unix regex style according to the new infos from your second post. If you don't want the loop, remove the red lines.

Great. Thanks again. I really need to carve out some time to get familiar with regular expressions.