############################################################################### ### PistolGrip's BAJA Examples (Version 2) ############################################################################### ###
### This version expands a little on the last, and includes a very crude
### implementation of a WALL or One-Liner module. This example is primarily ### designed to show an example of both string-based and binary File I/O.
### ############################################################################### ### Note: This file is an example only, it is by no means supposed to work or ### or do anything other than hopefully help some people get started
### with BAJA programming. This code is not tested or thought-out very ### well, it is only intended to show some basic concepts and common
### tasks useful when coding custom modules. I'm sure there is easier ### and better ways to do some of this with with BAJA, but again, this ### code has just been 'thrown-together' to try to show some ideas.
###
### THIS CODE MAY OR MAY NOT COMPILE WITHOUT ERRORS!
### ############################################################################### ### Required Include Files for SBBS Definitions, and our File I/O Functions ############################################################################### !include sbbsdefs.inc
!include file_io.inc ############################################################################### ### Defines Global or Constant Variables ############################################################################### !define USER _USERON.ALIAS
!define USER_NUM _USERON.NUMBER
!define MAX_ENTRY_LENGTH 100
!define WALL_VERSION "1.0" ############################################################################### ### Define our Integer variables ############################################################################### int cfg_file
int dat_file
int access_lvl
int user_number

############################################################################### ### Define our String variables ############################################################################### str sysop
str user_alias
str entry

############################################################################### ###
### When executing a BAJA module the command line arguments
### (for example "WALL.BIN DISPLAY")
### are available from the default String variable named 'str' in BAJA.
### ############################################################################### ### Copies the command line arguments for use later. ############################################################################### truncsp str
copy cmd_line str
strupr cmd_line

############################################################################### ### Two things to notice about this next section:
### 1.) When using Synchronet Command Line Specifiers (ie. "%n") with the
### BAJA sprintf command, you must use two (2) percent signs (%). Refer ### to the BAJA docs for more information on using the sprintf function ### and certain characters.
### 2.) The double forward slashes "/" in the path. When you specify paths
### within a sprintf statement you must use two (2) slashes, either forward ### (/) or backward (\). We use the "/" to ensure Linux compatibility.
### Refer to the BAJA docs for more information on using the sprintf
### function and certain characters.
###

############################################################################### ### Open our modules config file for reading ############################################################################### sprintf str "%%n..//baja//wall//wall.cfg"

fopen cfg_file O_RDONLY str
if_false
print "\r\n\r\nError Loading Configuration File - WALL.CFG"
return
end_if

############################################################################### ### Now we'll read our config file one line at a time and set the appropriate ### variables to the correct values for our CONFIG. ############################################################################### fread_line cfg_file sysop
truncsp sysop

############################################################################### ###
### Note: On this next line read-in, we read in a string value and then
### convert it to an integer when we use the copy command.
###

fread_line cfg_file str
truncsp str
copy access_lvl str

############################################################################### ### Close our config file (IMPORTANT) ############################################################################### fclose cfg_file

############################################################################### ### Note: You can use this technique to fairly easily create complex
### configuration and customization options of your programs. ###############################################################################

############################################################################### ### Here's were we will see what argurments were passed to module upon exec. ############################################################################### compare cmd_line "DISPLAY"
if_true
goto display_mode
end_if

############################################################################### ############################################################################### ###
### Main Entry Point
### ############################################################################### ############################################################################### compare _USERON.LEVEL access_lvl
if_less
print "\r\nSorry, your access is insufficient for this program.\1p"
return
end_if

############################################################################### ### Set return point for menu commands (via end_cmd) ############################################################################### cmd_home

############################################################################### ### Display Header ############################################################################### cls
printf "EZWALL v%s" WALL_VERSION
print "\r\n-------------------------------"

############################################################################### ### This next sections checks for existence of menu file and then decides if ### we should display it or the internal menu ############################################################################### sprintf str "%%n..//baja//wall//menu.*"
chkfile "%s" ### Note: Here the "%s" is translated into str as sprintf'd
### above for the chkfile function.

if_false
print "\r\n(C)reate a Wall Entry
compare _USERON.LEVEL 90
if_greater_or_equal
print "\r\n(D)elete an Entry"
end_if
print "\r\n(V)iew the Wall"
print "\r\n\r\n(Q)uit"
print "\r\n-------------------------------"
else
printfile str
end_if

############################################################################### ### Now, let's grab some input from the user ############################################################################### getcmd "CDVQ"

############################################################################### ### Now we execute the desired option. ############################################################################### cmdkey C
cls
printf "EZWALL v%s" WALL_VERSION
print "\r\n-------------------------------"


sprintf str "%%n..//baja//wall//colors.asc"
chkfile str
if_true
printfile str
end_if

print "\r\nEnter your Entry:\r\n"

getstr entry MAX_ENTRY_LENGTH K_LOWPRIO|K_MSG
truncsp entry
compare entry ""
if_true
print "\r\n\r\nEntry Aborted!"
return
end_if

cls
printf "EZWALL v%s" WALL_VERSION
print "\r\n-------------------------------"
print "\r\n\r\nYou entered the following:"

printf "\r\n%s" entry

yes_no "Is this correct"
if_false
print "\r\n\r\nEntry Aborted!"
return
else

### Here's where we open our DATA file to write our new entry
sprintf str "%%n..//baja//wall//wall.dat"
fopen dat_file O_CREAT|O_WRONLY str
if_false
print "\r\n\r\nError Loading Data File - WALL.DAT"
cmd_pop
return
end_if

### Goes to the end of the file
fset_pos dat_file 0 SEEK_END

### Writes the data for our ENTRY to our file
fwrite dat_file USER_NUM 4
fwrite dat_file USER 40
fwrite dat_file entry MAX_ENTRY_LENGTH

### Ummm.. yeah don't forget this
fclose dat_file

print "\r\n\r\nYour entry has been saved.\r\n"
pause
end_if
end_cmd

cmdkey D
##########################
### Not implemented yet!
##########################
end_cmd

cmdkey V
cls
printf "EZWALL v%s" WALL_VERSION
print "\r\n-------------------------------"

### Here's where we open our DATA file
sprintf str "%%n..//baja//wall//wall.dat"
fopen dat_file O_RDONLY str
if_false
print "\r\n\r\nError Loading Data File - WALL.DAT"
cmd_pop
return
end_if

############################################################################
### This is the beginning of the loop we use to read in our data from file
############################################################################
:wall_read_loop_view
feof dat_file
if_true
fclose dat_file
print "\r\n-------------------------------\r\n"
pause
return
end_if

### Read in one record
fread dat_file user_number 4
fread dat_file user_alias 40
fread dat_file entry MAX_ENTRY_LENGTH

### Display that record
printf "\r\n%s" entry
printf "\r\nEntered By: %s" user_alias

### Continue our loop
goto wall_read_loop_view
end_cmd

cmdkey Q
cmd_pop
return
end_cmd

### Fall-through
print "\r\nERROR: Fall through to the end of the Main Section of Module" cmd_pop
return ############################################################################### ##### End Main Program Section ###############################################################################


############################################################################### ############################################################################### ### This is where we go if called with the DISPLAY parameter ############################################################################### :display_mode
cls
printf "EZWALL v%s" WALL_VERSION
print "\r\n-------------------------------"

### Here's where we open our DATA file
sprintf str "%%n..//baja//wall//wall.dat"
fopen dat_file O_RDONLY str
if_false
print "\r\n\r\nError Loading Data File - WALL.DAT"
cmd_pop
return
end_if

############################################################################
### This is the beginning of the loop we use to read in our data from file
############################################################################
:wall_read_loop_display
feof dat_file
if_true
fclose dat_file
print "\r\n-------------------------------\r\n"
pause
return
end_if

### Read in one record
fread dat_file user_number 4
fread dat_file user_alias 40
fread dat_file entry MAX_ENTRY_LENGTH

### Display that record
printf "\r\n%s" entry
printf "\r\nEntered By: %s" user_alias

### Continue our loop
goto wall_read_loop_display
### Fall-through
print "\r\nERROR: Fall through to the end of the Display Section of Module" return ############################################################################### ############################################################################### ### End of Sample BAJA Source ###############################################################################

---
þ Synchronet þ WasteLand BBS þ telnet://wasteland.darktech.org

RE: BAJA Programming 101.2
BY: PistolGrip to All on Sun Oct 21 2001 09:59 pm

############################################################################ ### Two things to notice about this next section:
### 1.) When using Synchronet Command Line Specifiers (ie. "%n") with the ### BAJA sprintf command, you must use two (2) percent signs (%). Refe ### to the BAJA docs for more information on using the sprintf function ### and certain characters.
### 2.) The double forward slashes "/" in the path. When you specify paths ### within a sprintf statement you must use two (2) slashes, either forw

Are you sure about this double forward-slash thing? You have to use double-backslash to represent a single backslash character (because the C programming language uses backslash a special 'escape' character - e.g. '\r' indicates carriage return), but the same is not true of the forward slash character.

For example, print "\\test\\" would display "\test\"
print "//test//" would display "//test//"

Just another incentive to use forward slashes instead of backslashes in pathnames. :-)

-Rob

---
þ Synchronet þ Vertrauen þ Home of Synchronet þ [vert/cvs/bbs].synchro.net

RE: BAJA Programming 101.2
BY: Digital Man to PistolGrip on Mon Oct 22 2001 12:33 am

### 2.) The double forward slashes "/" in the path. When you specify p

at

### within a sprintf statement you must use two (2) slashes, either f

Are you sure about this double forward-slash thing? You have to use double-backslash to represent a single backslash character (because the C programming language uses backslash a special 'escape' character - e.g. '\r' indicates carriage return), but the same is not true of the forward slash character.

For example, print "\\test\\" would display "\test\"
print "//test//" would display "//test//"

Just another incentive to use forward slashes instead of backslashes in pathnames. :-)

Hrrm... I will have to look into this further. I was going by what I thought I remembered back when converting modules for linux compatibility. I thought the single forward slash did not work when used in a sprintf, and my code from that time is and has been working with two forward slashes.

But, what you say makes sense. I would think it would only apply to the backslash in retrospect. I will do some tests here with this to see what turns up.

PG

---
þ Synchronet þ WasteLand BBS þ telnet://wasteland-bbs.com